[DBP] - function for calculating AI aim

Author

Message

noobnerd

14

Years of Service

User Offline

Joined: 30th Nov 2010

Location:

Posted: 3rd Oct 2011 11:02 Edited at: 3rd Oct 2011 11:02

Link

Hello there

Here is a function i made ( with some help from neuro fuzzy

)

what it does is that it calculates the x,y coordinates where the AI should Aim so that it will hit the target if it continues to move att a constant speed in the same direction.

Another use is to draw a cross to where the player should aim to hit the enemy. In for example a space shooter. ( remember freelancer anyone? )

It can also easily be modified for 3D

the first one is the one meant for the AI
the second one draws a cross ( for the player )

in both functions x1#/y1# are the coordinates of the target
xv#/yv# is the x and y velocity of the target ( easily obtained with vectors )
x2#/y2# are the coordinates of the shooter
v# is the bullet velocity of the shooter

the returned value d# is the distance in turns to when the collision will happen.
with d# we easily get the coordinates like this :

cx# = x1#+xv#*d# : cy# = y1#+yv#*d#
where cx#/cy# are the coordinates where the ai should aim.

function aimbot(x1#,y1#,xv#,yv#,x2#,y2#,v#)    
    v1# = x1#-x2# : v2# = y1#-y2# :  v11# = v1#*xv#*2 : v21# = v2#*yv#*2 : v12# = xv#*xv# : v22# = yv#*yv# 
    v1# = v1#*v1# : v2# = v2#*v2# :  v1# = v1#+v2# : v2# = v11#+v21# : v3# = v12#+v22#-(v#*v#)   
    discr# = v2#*v2#-4*v1#*v3#
    if discr# > 0
        d1# = 1.0/((-v2#+sqrt(discr#))/(2*v1#)) :  d2# = 1.0/((-v2#-sqrt(discr#))/(2*v1#))
        if d1# < 0 then d1# = 1000000
        if d2# < 0 then d2# = 1000000        
        d# = min(d1#,d2#)      
        else      
        exitfunction 0.0
    ENDIF      
ENDFUNCTION d#

function aimcross(x1#,y1#,xv#,yv#,x2#,y2#,v#,color as dword)    
    v1# = x1#-x2# : v2# = y1#-y2# :  v11# = v1#*xv#*2 : v21# = v2#*yv#*2 : v12# = xv#*xv# : v22# = yv#*yv# 
    v1# = v1#*v1# : v2# = v2#*v2# :  v1# = v1#+v2# : v2# = v11#+v21# : v3# = v12#+v22#-(v#*v#)   
    discr# = v2#*v2#-4*v1#*v3#
    if discr# > 0
        d1# = 1.0/((-v2#+sqrt(discr#))/(2*v1#)) :  d2# = 1.0/((-v2#-sqrt(discr#))/(2*v1#))
        if d1# < 0 then d1# = 1000000
        if d2# < 0 then d2# = 1000000        
        d# = min(d1#,d2#)      
        else      
        exitfunction 0.0
    ENDIF      
    cx# = x1#+xv#*d# : cy# = y1#+yv#*d#
    dot cx#,cy#

ENDFUNCTION d#

+ Code Snippet

function aimbot(x1#,y1#,xv#,yv#,x2#,y2#,v#)    
    v1# = x1#-x2# : v2# = y1#-y2# :  v11# = v1#*xv#*2 : v21# = v2#*yv#*2 : v12# = xv#*xv# : v22# = yv#*yv# 
    v1# = v1#*v1# : v2# = v2#*v2# :  v1# = v1#+v2# : v2# = v11#+v21# : v3# = v12#+v22#-(v#*v#)   
    discr# = v2#*v2#-4*v1#*v3#
    if discr# > 0
        d1# = 1.0/((-v2#+sqrt(discr#))/(2*v1#)) :  d2# = 1.0/((-v2#-sqrt(discr#))/(2*v1#))
        if d1# < 0 then d1# = 1000000
        if d2# < 0 then d2# = 1000000        
        d# = min(d1#,d2#)      
        else      
        exitfunction 0.0
    ENDIF      
ENDFUNCTION d#

function aimcross(x1#,y1#,xv#,yv#,x2#,y2#,v#,color as dword)    
    v1# = x1#-x2# : v2# = y1#-y2# :  v11# = v1#*xv#*2 : v21# = v2#*yv#*2 : v12# = xv#*xv# : v22# = yv#*yv# 
    v1# = v1#*v1# : v2# = v2#*v2# :  v1# = v1#+v2# : v2# = v11#+v21# : v3# = v12#+v22#-(v#*v#)   
    discr# = v2#*v2#-4*v1#*v3#
    if discr# > 0
        d1# = 1.0/((-v2#+sqrt(discr#))/(2*v1#)) :  d2# = 1.0/((-v2#-sqrt(discr#))/(2*v1#))
        if d1# < 0 then d1# = 1000000
        if d2# < 0 then d2# = 1000000        
        d# = min(d1#,d2#)      
        else      
        exitfunction 0.0
    ENDIF      
    cx# = x1#+xv#*d# : cy# = y1#+yv#*d#
    dot cx#,cy#

ENDFUNCTION d#

Back to top

Profile PM

Rapidrory

15

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 15th Oct 2011 01:22 Edited at: 15th Oct 2011 01:25

Link

Very nice

I tried it out and it work's really well. I'm posting the demo code i wrote for it so people can get a feel of how it works:

sw=screen width()
sh=screen height()
sync rate 50
x2#=rnd(sw)
y2#=rnd(sh)
x1#=rnd(sw)
y1#=rnd(sh)
s#=1
v#=2
do
cls 0
if downkey()=1 then yv#=curvevalue(1,yv#,10)
if upkey()=1 then yv#=curvevalue(-1,yv#,10)
if upkey()=0 and downkey()=0 then yv#=curvevalue(0,yv#,10)
if rightkey()=1 then xv#=curvevalue(1,xv#,10)
if leftkey()=1 then xv#=curvevalue(-1,xv#,10)
if rightkey()=0 and leftkey()=0 then xv#=curvevalue(0,xv#,10)

x2#=x2#+xv#
y2#=y2#+yv#

If rnd(400)=1
aiang#=rnd(360)
endif

inc x1#,sin(aiang#)*s#
inc y1#,cos(aiang#)*s#
if x1#<0 then x1#=0:aiang#=rnd(360)
if x1#>sw then x1#=sw:aiang#=rnd(360)
if y1#<0 then y1#=0:aiang#=rnd(360)
if y1#>sh then y1#=sh:aiang#=rnd(360)
if x2#<0 then x2#=0
if x2#>sw then x2#=sw
if y2#<0 then y2#=0
if y2#>sh then y2#=sh

aimcross(x1#,y1#,sin(aiang#)*s#,cos(aiang#)*s#,x2#,y2#,v#)

Ink rgb(255,100,100):circle x1#,y1#,2
Ink rgb(100,100,255):circle x2#,y2#,2
Ink rgb(255,255,255)
if bullet=1 then dot bx1#,by1#
text 0,0,str$(hit)

if mouseclick()=1 and flag=0
flag=1
bullet=1
bx1#=x2#
by1#=y2#
mx#=mousex()
my#=mousey()
ang#=atanfull(mx#-bx1#,my#-by1#)
bm=0
hitflag=0
endif

if bullet=1
inc bx1#,sin(ang#)*v#
inc by1#,cos(ang#)*v#
inc bm

if sqrt((bx1#-x1#)^2+(by1#-y1#)^2)<4 and hitflag=0
inc hit
hitflag=1
bullet=0
x1#=rnd(sw)
y1#=rnd(sh)
endif
endif

if mouseclick()=0 then flag=0
loop

function aimcross(x1#,y1#,xv#,yv#,x2#,y2#,v#)
    v1# = x1#-x2# : v2# = y1#-y2# :  v11# = v1#*xv#*2 : v21# = v2#*yv#*2 : v12# = xv#*xv# : v22# = yv#*yv#
    v1# = v1#*v1# : v2# = v2#*v2# :  v1# = v1#+v2# : v2# = v11#+v21# : v3# = v12#+v22#-(v#*v#)
    discr# = v2#*v2#-4*v1#*v3#
    if discr# > 0
        d1# = 1.0/((-v2#+sqrt(discr#))/(2*v1#)) :  d2# = 1.0/((-v2#-sqrt(discr#))/(2*v1#))
        if d1# < 0 then d1# = 1000000
        if d2# < 0 then d2# = 1000000
        d# = min(d1#,d2#)
        else
        exitfunction 0.0
    ENDIF
    cx# = x1#+xv#*d# : cy# = y1#+yv#*d#
    line cx#-2,cy#,cx#+2,cy#
    line cx#,cy#-2,cx#,cy#+2
ENDFUNCTION d#

+ Code Snippet

sw=screen width()
sh=screen height()
sync rate 50
x2#=rnd(sw)
y2#=rnd(sh)
x1#=rnd(sw)
y1#=rnd(sh)
s#=1
v#=2
do
cls 0
if downkey()=1 then yv#=curvevalue(1,yv#,10)
if upkey()=1 then yv#=curvevalue(-1,yv#,10)
if upkey()=0 and downkey()=0 then yv#=curvevalue(0,yv#,10)
if rightkey()=1 then xv#=curvevalue(1,xv#,10)
if leftkey()=1 then xv#=curvevalue(-1,xv#,10)
if rightkey()=0 and leftkey()=0 then xv#=curvevalue(0,xv#,10)

x2#=x2#+xv#
y2#=y2#+yv#

If rnd(400)=1
aiang#=rnd(360)
endif

inc x1#,sin(aiang#)*s#
inc y1#,cos(aiang#)*s#
if x1#<0 then x1#=0:aiang#=rnd(360)
if x1#>sw then x1#=sw:aiang#=rnd(360)
if y1#<0 then y1#=0:aiang#=rnd(360)
if y1#>sh then y1#=sh:aiang#=rnd(360)
if x2#<0 then x2#=0
if x2#>sw then x2#=sw
if y2#<0 then y2#=0
if y2#>sh then y2#=sh

aimcross(x1#,y1#,sin(aiang#)*s#,cos(aiang#)*s#,x2#,y2#,v#)

Ink rgb(255,100,100):circle x1#,y1#,2
Ink rgb(100,100,255):circle x2#,y2#,2
Ink rgb(255,255,255)
if bullet=1 then dot bx1#,by1#
text 0,0,str$(hit)

if mouseclick()=1 and flag=0
flag=1
bullet=1
bx1#=x2#
by1#=y2#
mx#=mousex()
my#=mousey()
ang#=atanfull(mx#-bx1#,my#-by1#)
bm=0
hitflag=0
endif

if bullet=1
inc bx1#,sin(ang#)*v#
inc by1#,cos(ang#)*v#
inc bm

if sqrt((bx1#-x1#)^2+(by1#-y1#)^2)<4 and hitflag=0
inc hit
hitflag=1
bullet=0
x1#=rnd(sw)
y1#=rnd(sh)
endif
endif

if mouseclick()=0 then flag=0
loop


function aimcross(x1#,y1#,xv#,yv#,x2#,y2#,v#)
    v1# = x1#-x2# : v2# = y1#-y2# :  v11# = v1#*xv#*2 : v21# = v2#*yv#*2 : v12# = xv#*xv# : v22# = yv#*yv#
    v1# = v1#*v1# : v2# = v2#*v2# :  v1# = v1#+v2# : v2# = v11#+v21# : v3# = v12#+v22#-(v#*v#)
    discr# = v2#*v2#-4*v1#*v3#
    if discr# > 0
        d1# = 1.0/((-v2#+sqrt(discr#))/(2*v1#)) :  d2# = 1.0/((-v2#-sqrt(discr#))/(2*v1#))
        if d1# < 0 then d1# = 1000000
        if d2# < 0 then d2# = 1000000
        d# = min(d1#,d2#)
        else
        exitfunction 0.0
    ENDIF
    cx# = x1#+xv#*d# : cy# = y1#+yv#*d#
    line cx#-2,cy#,cx#+2,cy#
    line cx#,cy#-2,cx#,cy#+2
ENDFUNCTION d#

Steer with arrow keys, click on the white cross, and you should hit the red guy pretty much every time... Might make a game out of this demo at some point :L Thanks for the code!

There is no such thing as "Too Fast!"

Back to top

Profile PM

noobnerd

14

Years of Service

User Offline

Joined: 30th Nov 2010

Location:

Posted: 16th Oct 2011 18:08

Link

im happy that you found it usefull

thanks also for posting a demo code

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / [DBP] - function for calculating AI aim