forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Проекты на Blitz3D (http://forum.boolean.name/forumdisplay.php?f=14)
-   -   Smartbots (http://forum.boolean.name/showthread.php?t=904)

H@NON 13.06.2007 13:48

Re: Smartbots
 
Раз уж зашел об этом разговор.... можно мне выслать функции там где ведется расчет поведения машины. Просто на этот счет было создано сотни тем но так никто и не смог предоставить дельный примерчик. А ваш я вижу очень даже полезен в плане ознакомления . Поэтому прошу вас, Tormoz выслать их мне .

han_90@mail.ru

alcoSHoLiK 13.06.2007 13:54

Re: Smartbots
 
Там нет функции расчета поведения машины)
Есть редактор ИИ, в котором можно неплохо поупражняться. Лучше попроси исходник ИИ Джокера.

Taugeshtu 13.06.2007 13:55

Re: Smartbots
 
Огромное спасибо! Буду сам разбираться

jimon 13.06.2007 14:02

Re: Smartbots
 
:lol: вы меня заинтриговали :)
моя оченнннь старая и запыленая наработка :) в первом турнире тогда выиграл :lol:
Код:

;========================================================
;Jimon_bot
;Autor : jimon
;========================================================
;Finder module
radar_angle#=radar_angle#+10:If radar_angle>360:radar_angle=smes#:smes#=smes#+1
If smes#>9:smes#=0:End If:End If:positionradar (casex,casey,casez):RotateRadar (0,radar_angle,0)
ent_in_radar%=ScanRadar(5000):If ent_in_radar<>null:ent_in_radar_type#=TypeEntity(ent_in_radar)
If ent_in_radar_type#=1:If target%=null:target%=ent_in_radar:;target_type#=ent_in_radar_type
End If:End If:End If:if target<>null:if ent_in_radar<>null:if ent_in_radar_type=1
dist#=entitydistance(corpus%,target):if dist>entitydistance(corpus,ent_in_radar):target=ent_in_radar
End If:End If:End If:End If
;========================================================
;Rotating
rotate_angle_turrel=deltayaw(turret,target):rotate_angle_gun=deltapitch(gun,target)
rotate_angle_corpus=deltayaw(corpus,target):turnturret=rotate_angle_turrel
turngun=rotate_angle_gun:turncorpus=rotate_angle_corpus
;========================================================
;Fire
If target<>null:fire =1:End If
;========================================================
;Collosions
if collided%<>null:target=collided%:End If
If collidedwalls%<>null:timelevel=200:End If
;========================================================
;Moving
If Abs(TurnCorpus)<40:move=1:Else:move = 0.5:EndIf
;========================================================
;Return to level center
If target%=null:dist#=EntityDistance(Corpus,center):If dist>1500:timeLevel#=200:EndIf:end if
If timeLevel>0:timeLevel=timeLevel-1:turnCorpus=DeltaYaw(corpus,center)
If Abs(TurnCorpus)<40:move=1:Else:move = 0.5:EndIf
If Abs(TurnCorpus)<5:timeLevel=0:EndIf:EndIf
;========================================================

пожаления :
хотелось бы чтобы турниры проводились в виде сетевой игры
ну тоесть игроки собираются .. посылают на сервер через игру свои машины, сервер начинает игру :)

alcoSHoLiK 13.06.2007 14:50

Re: Smartbots
 
Предоставь сервер)

H@NON 13.06.2007 15:04

Re: Smartbots
 
Цитата:

Сообщение от alcoSHoLiK
Там нет функции расчета поведения машины)
Есть редактор ИИ, в котором можно неплохо поупражняться. Лучше попроси исходник ИИ Джокера.

А как там тогда машина отскакивает от стен под правильным углом?, при наезде на трамплин как он поворачивается в воздухе и приземляется на все 4 колеса? как то же ето все там реализовывалось. Вот именно эту реализацию мне и нужно.
Про редактор . Поупрожнятся конечно можно, но я ведь не пишу ИИ а пишу физику машины. И что может быть в исходнике ИИ Джокера?

tormoz 13.06.2007 15:22

Re: Smartbots
 
H@NON , боюсь ты там не разберешься, это ж не семпл, а реальный проект.
физика растянута на 3-4 функции. да еще и в разных инклюдах

H@NON 13.06.2007 15:27

Re: Smartbots
 
Ниче . Со временем пойму.
Проекту желаю развиваться в правильном направлении.

tormoz 14.06.2007 01:20

Re: Smartbots
 
Тогда держи:
http://screensworld.com/svalka/Smart...urc 0.27bb.rar

HolyDel 14.06.2007 02:12

Re: Smartbots
 
320 кб кода.
240 без Swift Shadow System - 037.bb/
если не сектрет то скока вы все ето писали?

H@NON 14.06.2007 10:49

Re: Smartbots
 
ОООООООО... Огромное спасибо. Блин столько кода, а главное он весь читабельный, можно без напряга разбирать его. Было очень великодушно выложить код сдесь, на форуме. А теперь дружно все поблагодарим Tormoza.

Taugeshtu 14.06.2007 16:11

Re: Smartbots
 
Присоединяюсь к благодарностям, и спрашиваю:
Кто-нибудь ещё желает развивать смарт ботс?

ZanoZa 14.06.2007 21:10

Re: Smartbots
 
да помоему это будет тяжко. Мне кажется только разраб в полной мере может развивать свой проект.

Raiter 16.06.2007 06:58

Re: Smartbots
 
Полностью согласен с Занозой!

Taugeshtu 16.06.2007 22:15

Re: Smartbots
 
а кто сказал, что развивать - значит полностью перелопачивать чужие сорцы?

мы свой, мы новый мир построим,
взяв за основу старый мир.
и в новом мире мы устроим
всё так, как мы и захотим!

спасайте - у меня уже бред начался (: С каждой минутой просматривания кода смартботов я убеждаюсь в мысли, что максимум, что я из них возьму - это эдитор.
кстати, уже есть некоторые новости - после полутора ударных дней работы удалось получить сносную физику машинки, используя физиХ. Особенность подвески - она состоит из одного джоинта и одного дампера. Никакого райкаста


Часовой пояс GMT +4, время: 19:34.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Перевод: zCarot