AI enemies attack function - GameCreators Forum

Author

Message

MightyRy

13

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 6th Dec 2010 20:33

Link

At the moment i have loaded the enemy ai

+ Code Snippet


for e = 501 to 503

Load object "media/AI.x",e
load image "media/ai_2_D2.dds",42
texture object e,42


AI Add Enemy e
AI Set Entity Speed e,10.0
AI Set Entity View Arc e,90,170
AI Set Entity View Range e,200
AI Set Entity Can Strafe e,0

next e

and i have added ai to player in a make player function which is called before the do loop

+ Code Snippet

make object sphere 2,50 : rem hide object 2
position object 2,700,50,-500
AI Add Player 2

i have created a funtion called enemeies() which will be called in main do loop. but have struggled getting ai to work.

and have tried following the zone tutorial and a few others.

All i want is once the player (2) walks in the radius of the enemy, is the enemy to follow and fire.

any help would be great thanks

Back to top

Profile PM

GreenDixy

15

Years of Service

User Offline

Joined: 24th Jul 2008

Location: Toronto

Posted: 7th Dec 2010 12:38 Edited at: 7th Dec 2010 12:39

Link

here is my setup lines a bit messy i think still got to readjust but it still does work

+ Code Snippet

Make_Bad_guys:
load object "Files\char\officer.x",enm1
load image "Files\char\officer_1_D2.dds",enim2
load image "Files\char\officer_N.dds",enim3
position object enm1,100,9,100
scale object enm1,300,300,300
texture object enm1,enim2
AI Add Enemy enm1
set object speed enm1,80
AI Set Entity Speed enm1,300
AI Set Entity Aggressive enm1
AI Set Entity View Arc enm1,360,360
AI Set Entity View Range enm1,1220
AI Set Entity Hearing Range enm1,300
AI Set Entity Avoid Distance enm1,310
AI Set Entity Attack Distance enm1,310
YRotate object enm1,180
fix object pivot enm1
`set object effect enm1,1
SC_setupObject enm1,1,1
return

======================================

GreenDixy Productions http://GreenDixy.Com

Back to top

Profile PM Email

MightyRy

13

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 7th Dec 2010 13:01 Edited at: 7th Dec 2010 13:03

Link

Thanks for helping but i want to use a function for the enemies

i have decided to stick with the enemy defending zones

i have since added this to load the enemies.

+ Code Snippet

make object plain 13,0.3,1,1
xrotate object 13,90
fix object pivot 13
make mesh from object 2,13
delete object 13

for e = 501 to 503

Load object "media/AI.x",e
load image "media/ai_2_D2.dds",42
texture object e,42

make object e+1000,13,11
set object light e+1000,0
hide object e+1000

AI Add Enemy e
   AI Set Entity Speed e,10.0
   AI Set Entity View Arc e,90,170
   AI Set Entity View Range e,50
   AI Set Entity Can Strafe e,0
   AI Set Entity Can Search e,0
   AI Set Entity Stance e,1

next e

AI Add Zone 1,1000,-900,1300,-700

AI Entity Assign Zone 501,1

and in a function

currtime# = timer()
lasttime# = currtime#

currtime# = timer()
   speed# = 0.06*(currtime# - lasttime#)
   lasttime# = currtime#

position object 501,700,0,-2000
position object 502,1000,0,-2200
position object 503,1000,0,-1200

for e=1001 to 1003
      if object exist(e) and shootTimer(e-1000)<70 then hide object e
   next e

rem Call this command every sync to update entity AI state
   AI Update
   for e = 501 to 503
      if AI Entity Exist(e)=1
         if AI Get Entity Can Fire(e) and shootTimer(e)<=0
            rem get the target position and place the attack line between them
            tx# = AI Get Entity Target X(e)
            tz# = AI Get Entity Target Z(e)
            x# = object position x(e)
            z# = object position z(e)
            dx# = ( x# + tx# ) / 2.0
            dz# = ( z# + tz# ) / 2.0
            dist# = sqrt ( (tx#-x#)*(tx#-x#) + (tz#-z#)*(tz#-z#) )
            ang# = acos ( (tz#-z#) / dist# )
            if ( (tx#-x#) < 0 ) then ang# = 360 - ang#
            position object e+1000,dx#,2.5,dz#
            yrotate object e+1000,ang#+0.1
            scale object e+1000,100,100,100*dist#
            show object e+1000

shootTimer(e)=100
         endif
      endif

rem control how often the entity can shoot
      if shootTimer(e)>0 then shootTimer(e) = shootTimer(e)-(speed#*3)
   next e

+ Code Snippet


currtime# = timer()
lasttime# = currtime#

   currtime# = timer()
   speed# = 0.06*(currtime# - lasttime#)
   lasttime# = currtime#

position object 501,700,0,-2000
position object 502,1000,0,-2200
position object 503,1000,0,-1200

  for e=1001 to 1003
      if object exist(e) and shootTimer(e-1000)<70 then hide object e
   next e

   rem Call this command every sync to update entity AI state
   AI Update
   for e = 501 to 503
      if AI Entity Exist(e)=1
         if AI Get Entity Can Fire(e) and shootTimer(e)<=0
            rem get the target position and place the attack line between them
            tx# = AI Get Entity Target X(e)
            tz# = AI Get Entity Target Z(e)
            x# = object position x(e)
            z# = object position z(e)
            dx# = ( x# + tx# ) / 2.0
            dz# = ( z# + tz# ) / 2.0
            dist# = sqrt ( (tx#-x#)*(tx#-x#) + (tz#-z#)*(tz#-z#) )
            ang# = acos ( (tz#-z#) / dist# )
            if ( (tx#-x#) < 0 ) then ang# = 360 - ang#
            position object e+1000,dx#,2.5,dz#
            yrotate object e+1000,ang#+0.1
            scale object e+1000,100,100,100*dist#
            show object e+1000

            shootTimer(e)=100
         endif
      endif

      rem control how often the entity can shoot
      if shootTimer(e)>0 then shootTimer(e) = shootTimer(e)-(speed#*3)
   next e

ai has been added to the player as before and global dim shootTimer(3) as float has been defined at the top of the programme.

but the enemy ai are not repsonding.

Back to top

Profile PM

GreenDixy

15

Years of Service

User Offline

Joined: 24th Jul 2008

Location: Toronto

Posted: 7th Dec 2010 14:04

Link

sorry i cant be more of help on this subject im still getting use to it all also since i switched from fpsc

======================================

GreenDixy Productions http://GreenDixy.Com

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 7th Dec 2010 16:26

Link

this might be a little quicker when loading. it only loads the object once and then copies it each time you make another one. then delete the first one at the end.

+ Code Snippet

make object plain 13,0.3,1,1
xrotate object 13,90
fix object pivot 13
make mesh from object 2,13
delete object 13
Load object "media/AI.x",500
load image "media/ai_2_D2.dds",42
texture object 500,42


for e = 501 to 503
   clone object e,500
   make object e+1000,13,11
   set object light e+1000,0
   hide object e+1000

AI Add Enemy e
   AI Set Entity Speed e,10.0
   AI Set Entity View Arc e,90,170
   AI Set Entity View Range e,50
   AI Set Entity Can Strafe e,0
   AI Set Entity Can Search e,0
   AI Set Entity Stance e,1

next e
delete object 500

AI Add Zone 1,1000,-900,1300,-700

AI Entity Assign Zone 501,1

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

MightyRy

13

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 8th Dec 2010 13:11

Link

Cheers guys, i have sorted this out before. im only having a problem with the function part now. The 3rd code snippet of my second post!

Back to top

Profile PM

MightyRy

13

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 8th Dec 2010 18:37 Edited at: 8th Dec 2010 18:38

Link

FUNCTION enemies()

currtime# = timer()
lasttime# = currtime#

currtime# = timer()
   speed# = 0.06*(currtime# - lasttime#)
   lasttime# = currtime#

for e=1001 to 1003
      if object exist(e) and shootTimer(e-1000)<70 then hide object e
   next e

rem Call this command every sync to update entity AI state
   AI Update
   for e = 501 to 530
      if AI Entity Exist(e)=2
         if AI Get Entity Can Fire(e) and shootTimer(e)<=0
            rem get the target position and place the attack line between them
            tx# = AI Get Entity Target X(e)
            tz# = AI Get Entity Target Z(e)
            x# = object position x(e)
            z# = object position z(e)
            dx# = ( x# + tx# ) / 2.0
            dz# = ( z# + tz# ) / 2.0
            dist# = sqrt ( (tx#-x#)*(tx#-x#) + (tz#-z#)*(tz#-z#) )
            ang# = acos ( (tz#-z#) / dist# )
            if ( (tx#-x#) < 0 ) then ang# = 360 - ang#
            position object e+1000,dx#,2.5,dz#
            yrotate object e+1000,ang#+0.1
            scale object e+1000,100,100,100*dist#
            show object e+1000

shootTimer(e)=100
         endif
      endif

rem control how often the entity can shoot
      if shootTimer(e)>0 then shootTimer(e) = shootTimer(e)-(speed#*3) <<<<<<<<<<<
   next e

position object 501,700,0,-2000
position object 502,1000,0,-2200
position object 503,1000,0,-1200

endfunction

+ Code Snippet


FUNCTION enemies()



currtime# = timer()
lasttime# = currtime#

   currtime# = timer()
   speed# = 0.06*(currtime# - lasttime#)
   lasttime# = currtime#

  for e=1001 to 1003
      if object exist(e) and shootTimer(e-1000)<70 then hide object e
   next e

   rem Call this command every sync to update entity AI state
   AI Update
   for e = 501 to 530
      if AI Entity Exist(e)=2
         if AI Get Entity Can Fire(e) and shootTimer(e)<=0
            rem get the target position and place the attack line between them
            tx# = AI Get Entity Target X(e)
            tz# = AI Get Entity Target Z(e)
            x# = object position x(e)
            z# = object position z(e)
            dx# = ( x# + tx# ) / 2.0
            dz# = ( z# + tz# ) / 2.0
            dist# = sqrt ( (tx#-x#)*(tx#-x#) + (tz#-z#)*(tz#-z#) )
            ang# = acos ( (tz#-z#) / dist# )
            if ( (tx#-x#) < 0 ) then ang# = 360 - ang#
            position object e+1000,dx#,2.5,dz#
            yrotate object e+1000,ang#+0.1
            scale object e+1000,100,100,100*dist#
            show object e+1000

            shootTimer(e)=100
         endif
      endif

      rem control how often the entity can shoot
      if shootTimer(e)>0 then shootTimer(e) = shootTimer(e)-(speed#*3) <<<<<<<<<<<
   next e

position object 501,700,0,-2000
position object 502,1000,0,-2200
position object 503,1000,0,-1200

endfunction

This is my function so far when i run it i get this error

array does not exist or array subscript out of bounds at this line 602 which is the line with the arrow heads next to it.

what does this mean?

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 8th Dec 2010 23:03

Link

one of your varables needs to be global as the function does not know it's value so it thinks its zero which makes the error .

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

MightyRy

13

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 9th Dec 2010 00:44

Link

i have the following global variables

global dim shootTimer(3) as float
global speed#
global currtime#
global lasttime#

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 9th Dec 2010 10:03 Edited at: 9th Dec 2010 10:05

Link

where are the other 496 dim slots? you.ve dim four but at the end where it goes wrong it starts on 501 that hasn't been dim-ed yet.

either change the way you use e, or up the dim value to 530.

global dim shootTimer(3) as float

for e = 501 to 530

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

MightyRy

13

Years of Service

User Offline

Joined: 19th Oct 2010

Location:

Posted: 15th Dec 2010 16:21 Edited at: 15th Dec 2010 17:08

Link

Thanks for the help howdo!

I want to add collision, so the enemy ai cant collide with the map.

The map is a .dbo and all one object.

do you know how i would add collision?

Back to top

Profile PM

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / AI enemies attack function