AI Archer - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|640\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> AI Archer
Thu, 17 Dec 2009, 05:19
realtime	trying to create AI for archer. The archer has to determine the angle and power to shoot moving target. you'll need this for the code: the alien image is available on Blitz image folder: ;AI Archer demo ;Fajar NR ;=================== ;www.dream-frog.com ;=================== Graphics 640,480,16,2 SetBuffer BackBuffer() SeedRnd MilliSecs() Type tbullet Field vx# ;x velocity Field vy# ;y velocity Field x# Field y# Field time# ;time to get to target Field ftime Field xel# ;elevation Field frame Field hit End Type Type talien Field x# Field y# Field xspeed# Field timer Field targeted End Type ;bullet Global ax#=10 ;archer position Global ay#=400 ;archer position Global bx#=450 ;target position Global by#=300 ;target position Global grav#=1 ;gravitation Global miss,kill Global test=LoadAnimImage("test.png",32,32,0,16) MidHandle test Global img_alien=LoadImage("alien.png") MidHandle img_alien ;create_bullet() alien_create() .main While True Cls bullet_update() alien_update() ;If MilliSecs()>(time+100) ; time=MilliSecs() ; create_bullet() ;EndIf If MilliSecs()>(timer2+500) timer2=MilliSecs() alien_create() EndIf ;render Color 0,0,255 Oval ax,ay,10,10,1 Color 255,255,255 For bullet.tbullet = Each tbullet If bullet\frame>=0 If Not bullet\hit DrawImage test,bullet\x,bullet\y,bullet\frame EndIf EndIf Next For alien.talien = Each talien DrawImage img_alien,alien\x,alien\y Next Text 10,10,"kill : "+kill Text 10,30,"Miss : "+miss Flip 1 If KeyHit(1) Then Exit Wend WaitKey() End Function bullet_update() For bullet.tbullet = Each tbullet If MilliSecs()>(bullet\ftime+30) x#=bullet\x y#=bullet\y bullet\x=bullet\x+bullet\vx bullet\y=bullet\y-bullet\vy+bullet\xel bullet\vy=bullet\vy-grav bullet\ftime=MilliSecs() ;angle x=(bullet\x-x) y=(bullet\y-y) If x=0 Then x=.1 a#=ATan(Abs(y)/Abs(x)) ;quad If (x>=0) And (y>=0) Then a=360-a If (x>=0) And (y<=0) Then a=a+0 If (x<=0) And (y>=0) Then a=a+180 If (x<=0) And (y<=0) Then a=180-a ;frame bullet\frame=(a-(a Mod 22.5))/22.5 If bullet\frame>15 Then bullet\frame=0 ;collision For alien.talien=Each talien If Not bullet\hit If ImagesCollide(test,bullet\x,bullet\y,0,img_alien,alien\x,alien\y,0) Delete alien bullet\hit=True kill=kill+1 EndIf EndIf Next EndIf If bullet\y>480 If bullet\hit=False Then waste=waste+1 Delete bullet EndIf Next End Function Function create_bullet() bullet.tbullet = New tbullet bullet\x=ax bullet\y=ay bullet\time#=Rand(20,60) bullet\vx#=(bx-ax)/(bullet\time) bullet\vy#=grav(bullet\time-1)/Float(2) bullet\xel=(by-ay)/(bullet\time) bullet\frame=-1 ;targeting bx=640 by=480 For alien.talien = Each talien If alien\targeted=False bx=alien\x by=alien\y speed=alien\xspeed alien\targeted=True Exit EndIf Next time#=Rand(20,50) bx=bx-(timespeed) bullet\time=time bullet\vx#=(bx-ax)/(bullet\time) bullet\vy#=grav(bullet\time-1)/Float(2) bullet\xel=(by-ay)/(bullet\time) bullet\frame=-1 End Function Function alien_create() alien.talien = New talien alien\x=600 alien\y=Rand(36,440) alien\xspeed=Rand(5,10) create_bullet() End Function Function alien_update() For alien.talien = Each talien If MilliSecs()>(alien\timer+30) alien\timer=MilliSecs() alien\x=alien\x-alien\xspeed If alien\x<50 Then Delete alien:miss=miss+1 EndIf Next End Function --v second code: Graphics 640,480,16,2 SetBuffer BackBuffer() Type tbullet Field vx# ;x velocity Field vy# ;y velocity Field x# Field y# Field time# ;time to get to target Field ftime Field xel# ;elevation Field frame End Type ;bullet Global ax#=10 ;archer position Global ay#=400 ;archer position Global bx#=450 ;target position Global by#=300 ;target position Global grav#=1 ;gravitation Global test=LoadAnimImage("test.png",32,32,0,16) MidHandle test create_bullet() .main While True Cls bullet_update() bx=MouseX() by=MouseY() If MilliSecs()>(time+100) time=MilliSecs() create_bullet() EndIf ;render Color 0,0,255 Oval ax,ay,10,10,1 Oval MouseX(),MouseY(),20,20 Text MouseX(),MouseY()+20,"Target" Color 255,255,255 For bullet.tbullet = Each tbullet If bullet\frame>=0 Then DrawImage test,bullet\x,bullet\y,bullet\frame Next Flip 1 If KeyHit(1) Then Exit Wend WaitKey() End Function bullet_update() For bullet.tbullet = Each tbullet If MilliSecs()>(bullet\ftime+30) x#=bullet\x y#=bullet\y bullet\x=bullet\x+bullet\vx bullet\y=bullet\y-bullet\vy+bullet\xel bullet\vy=bullet\vy-grav bullet\ftime=MilliSecs() ;angle x=(bullet\x-x) y=(bullet\y-y) If x=0 Then x=.1 a#=ATan(Abs(y)/Abs(x)) ;quad If (x>=0) And (y>=0) Then a=360-a If (x>=0) And (y<=0) Then a=a+0 If (x<=0) And (y>=0) Then a=a+180 If (x<=0) And (y<=0) Then a=180-a ;frame bullet\frame=(a-(a Mod 22.5))/22.5 If bullet\frame>15 Then bullet\frame=0 EndIf If bullet\y>480 Delete bullet EndIf Next End Function Function create_bullet() bullet.tbullet = New tbullet bullet\x=ax bullet\y=ay bullet\time#=Rand(20,60) bullet\vx#=(bx-ax)/(bullet\time) bullet\vy#=grav(bullet\time-1)/Float(2) bullet\xel=(by-ay)/(bullet\time) bullet\frame=-1 End Function --v -=-=- me blog: fork-garden
Thu, 17 Dec 2009, 06:27
Afr0	This should have gone into 'Code Snippets'
Thu, 17 Dec 2009, 09:00
JL235	It would be more useful if it was a bit more generic. Namely if this was supplied as a library ready to be imported rather then a complete app. Users would need to pick your code apart first before they can use it. Also if the functions had lots of their values passed in rather then getting them themselves, such as the start and target locations for create_bullet. Again these would need to be edited before anyone could use your code. Nice snippet tho.
Thu, 17 Dec 2009, 16:22
realtime	Main Program Graphics 640,480,16,2 SetBuffer BackBuffer() Include "archer_lib.bb" Type tbullet Field vx# ;x velocity Field vy# ;y velocity Field x# Field y# Field time# ;time to get to target Field ftime Field xel# ;elevation Field frame End Type ;bullet ax#=10 ;archer position ay#=400 ;archer position bx#=450 ;target position by#=300 ;target position Global grav#=1 ;gravitation test=LoadAnimImage("test.png",32,32,0,16) MidHandle test create_bullet(ax,ay,bx,by,Rand(20,30)) .main While True Cls bullet_update() bx=MouseX() by=MouseY() If MilliSecs()>(time+100) time=MilliSecs() create_bullet(ax,ay,bx,by,Rand(30,50)) EndIf ;render Color 0,0,255 Oval ax,ay,10,10,1 Oval MouseX(),MouseY(),20,20 Text MouseX(),MouseY()+20,"Target" Color 255,255,255 For bullet.tbullet = Each tbullet If bullet\frame>=0 Then DrawImage test,bullet\x,bullet\y,bullet\frame Next Flip 1 If KeyHit(1) Then Exit Wend WaitKey() End --v the library Function bullet_update() For bullet.tbullet = Each tbullet If MilliSecs()>(bullet\ftime+30) x#=bullet\x y#=bullet\y bullet\x=bullet\x+bullet\vx bullet\y=bullet\y-bullet\vy+bullet\xel bullet\vy=bullet\vy-grav bullet\ftime=MilliSecs() ;angle x=(bullet\x-x) y=(bullet\y-y) If x=0 Then x=.1 a#=ATan(Abs(y)/Abs(x)) ;quad If (x>=0) And (y>=0) Then a=360-a If (x>=0) And (y<=0) Then a=a+0 If (x<=0) And (y>=0) Then a=a+180 If (x<=0) And (y<=0) Then a=180-a ;frame bullet\frame=(a-(a Mod 22.5))/22.5 If bullet\frame>15 Then bullet\frame=0 EndIf If bullet\y>480 Delete bullet EndIf Next End Function Function create_bullet(ax#,ay#,bx#,by#,time#) bullet.tbullet = New tbullet bullet\x=ax bullet\y=ay bullet\time#=time bullet\vx#=(bx-ax)/(bullet\time) bullet\vy#=grav*(bullet\time-1)/Float(2) bullet\xel=(by-ay)/(bullet\time) bullet\frame=-1 End Function --v parameter for create_bullet() function ax = bullet start position ay = bullet start position bx = target position by = target position time = when you want to hit the target? 30 means you will hit the target after moving 30 times. if the arrow moves in 30 fps, it will hit the target in 1 second. you can change time to any value. for moving target. for example if the target move at 30 fps and the arrow moves at the same rate and you want to hit the target in 2 second, then you can calculate the position of the enemy in 2 second, then you shoot the arrow with time=60. arrow will get to the target in 2 second and will hit the target. grav# is global variable for gravitation. -=-=- me blog: fork-garden