;========================================================
;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
;========================================================