Sorry your browser is not supported!

enemies=10
dim positionx(enemies)
dim positiony(enemies)
dim positionz(enemies)
dim state(enemies)

sync on:sync rate 60
make object sphere 1,1
make object cube 2,1
playspeed#=0.1
enemyspd#=0.05

playerx#=170
playerz#=170
enemyx#=150
enemyz#=150
patdir=1
counter=0
haltonce=10

position object 1,enemyx#,0,enemyz#
position object 2,playerx#,0,playerz#

position camera 150,70,150
point camera 150,0,150

do

distance#=distance(1,2)

if distance#<20.0
   if haltonce>0 then center text object screen x(1),object screen y(1),"HALT!":dec haltonce
   if enemyx#<playerx# then enemyx#=enemyx#+enemyspd#
   if enemyx#>playerx# then enemyx#=enemyx#-enemyspd#
   if enemyz#<playerz# then enemyz#=enemyz#+enemyspd#
   if enemyz#>playerz# then enemyz#=enemyz#-enemyspd#
else
   haltonce=10
   if patdir=1
      inc counter
      enemyx#=enemyx#+enemyspd#
         if counter>80 then patdir=1-patdir
   endif
   if patdir=0
      dec counter
      enemyx#=enemyx#-enemyspd#
         if counter<0 then patdir=1-patdir
   endif
endif

if upkey() then move object 2,playspeed#
if downkey() then move object 2,-playspeed#
if leftkey() then move object left 2,playspeed#
if rightkey() then move object right 2,playspeed#

position object 1,enemyx#,0,enemyz#

playerx#=object position x(2)
playerz#=object position z(2)

text 0,0,str$(distance#)
sync
loop

function distance(obj1, obj2)
  a = make vector3(1)
set vector3 1, object position X(obj1) - object position X(obj2),  object position Y(obj1) - object position Y(obj2), object position Z(obj1) - object position Z(obj2)
  dist# = length vector3(1)
  a = delete vector3(1)
endfunction dist#

_Artificial_Intelligence:

`Enemy AI
for e=1 to enemies

`Animate enemies
loop object inten+e : set object speed inten+e,100

   `Get distances between player and enemy
   enemy(e).dist=sqrt( (player(1).x-enemy(e).x)^2 + (player(1).y-enemy(e).y)^2 + (player(1).z-enemy(e).z)^2 )

`Get old angle
enemy(e).oldang=enemy(e).ang

   `Change states
   if enemy(e).dist<300 and shoot=0 and enemy(e).health>20
      enemy(e).state=e_attack
   endif
   if enemy(e).dist>300
      if enemy(e).health>20
         enemy(e).state=e_wander
      else
         enemy(e).state=r_run
      endif
   endif

   `Enemy actions
      if enemy(e).state=e_attack
         enemy(e).ang=atanfull(player(1).x-enemy(e).x,player(1).z-enemy(e).z)
            enemy(e).x=newxvalue(enemy(e).x,enemy(e).ang,e_speed#)
            enemy(e).z=newzvalue(enemy(e).z,enemy(e).ang,e_speed#)
      endif
      if enemy(e).state=e_wander
         if rnd(2)=1
            enemy(e).ang=wrapvalue(enemy(e).oldang+rnd(2.0))
         endif
         if rnd(2)=2
            enemy(e).ang=wrapvalue(enemy(e).oldang-rnd(2.0))
         endif
            enemy(e).x=newxvalue(enemy(e).x,enemy(e).ang,e_speed#)
            enemy(e).z=newzvalue(enemy(e).z,enemy(e).ang,e_speed#)
      endif
      if enemy(e).state=e_retreat
         enemy(e).ang=atanfull(player(1).x-enemy(e).x,player(1).z-enemy(e).z)
            enemy(e).x=newxvalue(enemy(e).x,enemy(e).ang,-e_speed#)
            enemy(e).z=newzvalue(enemy(e).z,enemy(e).ang,-e_speed#)
      endif
      if enemy(e).state=e_run
         enemy(e).ang=wrapvalue(atanfull(player(1).x-enemy(e).x,player(1).z-enemy(e).z)+(180+atanfull(player(1).x-enemy(e).x,player(1).z-enemy(e).z)/20)+rnd(50))
            enemy(e).x=newxvalue(enemy(e).x,enemy(e).ang,e_speed#)
            enemy(e).z=newzvalue(enemy(e).z,enemy(e).ang,e_speed#)
      endif

      `Ensure enemy doesn't walk out of area
      enemy(e).oldx = enemy(e).x
            enemy(e).oldy = enemy(e).y
                  enemy(e).oldz = enemy(e).z
               if enemy(e).x>10000 or enemy(e).x<0 then enemy(e).x=enemy(e).oldx : enemy(e).ang=wrapvalue(enemy(e).ang+180)
               if enemy(e).z>10000 or enemy(e).z<0 then enemy(e).z=enemy(e).oldz : enemy(e).ang=wrapvalue(enemy(e).ang+180)



   `if enemy is infront
   aimx#=newxvalue(player(1).x,player(1).yang,14000)
   aimy#=player(1).y
   aimz#=newzvalue(player(1).z,player(1).yang,14000)
   infront#=intersect object(inten+e,player(1).x,player(1).y,player(1).z,aimx#,aimy#,aimz#)
   if infront#>0
      enemy(e).screen=1
   else
      enemy(e).screen=0
   endif

   `Selected enemy
   if intersect object(inten+e,player(1).x,player(1).y,player(1).z,aimx#,aimy#,aimz#)>0
      selected_enemy=e
   endif
      position object inten+enemies+1,enemy(selected_enemy).x,enemy(selected_enemy).y+10,enemy(selected_enemy).z
      yrotate object inten+enemies+1,camera angle y()


   `if you shoot
   if shoot=1 and enemy(e).screen=1
      enemy(e).state=e_retreat
         enemy(e).health=enemy(e).health-10
   endif

   `Respawn
   if enemy(e).health<=0
      enemy(e).health=100
      player(1).kills=player(1).kills+1
      enemy(e).x=landx# : enemy(e).z=landz#
   endif

   `Lose health / lives
   if enemy(e).dist<10
      player(1).health=player(1).health-1
      play sound inten
         else
      stop sound inten
   endif
      if player(1).health<=0 then player(1).health=100 :player(1).lives=player(1).lives-1 : player(1).x=rnd(10000) : player(1).z=rnd(10000)

      `Keep above ground
      enemy(e).y=get ground height(1,enemy(e).x,enemy(e).z)


      `Update enemy
      position object inten+e,enemy(e).x,enemy(e).y,enemy(e).z
      yrotate object inten+e,curveangle(enemy(e).ang,object angle y(inten+e),10.0)

`deselect enemies
next e

Return