Sorry your browser is not supported!

`Basic ai example

`Setup for performance
sync on
sync rate 60
hide mouse
set camera range 1,999999999
randomize timer()

`Amount of enemies - change to how many enemies you want
enemies=10

`*Arrays*  -  you need to know these!!!!
`-----------------------------------------
`-------------------------------------------
Dim enemy_state(enemies)   :`This makes an array for the state of every enemy
`Say you wanted enemy No 5 to attack you - this is what you'd do:
`Enemy_state(5)=2
`If you want enemy number 10 to attack you:
`Enemy_state(10)=2
`Then say enemy 10 goes back to wandering around
`Enemy_state(10)=1

`Here's how it goes: Enemy_state(enemy No.)=current state

`Initial state for the enemies
for e=1 to enemies
enemy_state(e)=1
next e

`!!!^^READ ALL THAT STUFF UP THERE^^!!!


Dim enemy_dist#(enemies)   :`Here, just like above, we make an array for the distance between
`you and every enemy. The array doesn't know yet that it gets the distance between you and the
`enemy, so we'll do that later


`Types: I'll explain after I've done it
Type enemy
   x as float
   y as float
   z as float
endtype
Dim enemy_position(enemies) as enemy

`Randomise positions
for e=1 to enemies
enemy_position(e).x=rnd(10000)
enemy_position(e).z=rnd(10000)
next e

Dim enemy_angle(enemies) :`Array for the enemies' angles

`Ok, this is kinda hard to explain, so read REALLLLY carefully
`Notice I did: "Dim enemy_position(enemies as enemy" - and above I typed "tpye enemy"
`Well, this way, I can have the variables between "type enemy" and "endtype"
`stuck onto the "enemy_position" array.. i.e. "enemy_position(1).x= whatever"
`This wouldn't be posible if you didn't do "Dim enemy_position(enemies) AS ENEMY"
`the "as enemy" has to be the same as what comes after the "type"
`If you did "type bots" then did "as enemy" you wouldn't be able to have "enemy_position(1).x"
`etc...

`This means we can store the x,y and z position of every enemy:
`Ifyou wanted to position enemy 3 at "100,10,500"
`you could do it like:
`position object 3,100,10,500
`OR
`enemy_position(3).x=100
`enemy_position(3).y=10
`enemy_position(3).z=500
`then you don't have to update the position of the object all the time


`Create a world - I'm sure you're familiar with this ;)
make matrix 1,10000,10000,25,25


`Create the player
make object cube 1,100

`Create the enemies
for e=1 to enemies
make object cube 10+e,100
color object 10+e,rgb(255,0,0)
next e



`Main Loop
Do

`Control player
if upkey()=1 then x#=newxvalue(x#,a#,10.0) : z#=newzvalue(z#,a#,10.0)
if downkey()=1 then x#=newxvalue(x#,a#,-10.0) : z#=newzvalue(z#,a#,-10.0)
if leftkey()=1 then a#=wrapvalue(a#-3.0)
if rightkey()=1 then a#=wrapvalue(a#+3.0)
y#=get ground height(1,x#,z#)+(object size y(1))/2
position object 1,x#,y#,z#
yrotate object 1,wrapvalue(a#)

`Camera control
ca#=wrapvalue(curveangle(a#,ca#,10.0))
cx#=newxvalue(x#,ca#,-500)
cz#=newzvalue(z#,ca#,-500)
cy#=y#+300
position camera cx#,cy#,cz#
yrotate camera wrapvalue(ca#)
point camera x#,y#,z#



`**********AI**********

`Select all enemies
for e=1 to enemies

`Check the distance between you and the enmies
enemy_dist#(e)=sqrt((x#-enemy_position(e).x)^2+(y#-enemy_position(e).y)^2+(z#-enemy_position(e).z)^2)

`If enemy state is 1 then make the angle change (so the enemy can wander)
if enemy_state(e)=1

enemy_angle(e)=wrapvalue(enemy_angle(e)+rnd(3))

endif


`If the enemy state is 2 then point to player
if enemy_state(e)=2

enemy_angle(e)=atanfull(x#-enemy_position(e).x,z#-enemy_position(e).z)

endif


`Always move enemy
enemy_position(e).x=newxvalue(enemy_position(e).x,enemy_angle(e),8.0)
enemy_position(e).z=newzvalue(enemy_position(e).z,enemy_angle(e),8.0)


`Change state depending on distance
if enemy_dist#(e)<500 then enemy_state(e)=2 else enemy_state(e)=1


`Update enemies
enemy_position(e).y=get ground height(1,enemy_position(e).x,enemy_position(e).z)+50
position object 10+e,enemy_position(e).x,enemy_position(e).y,enemy_position(e).z
yrotate object 10+e,enemy_angle(e)


`If you get hit then respawn
if enemy_dist#(e)<140 then x#=rnd(10000) : z#=rnd(10000)


`deselect enemies
next e



`End Loop
Sync
Loop

`Select all enemies
for e=1 to 10

`Select all enemies
for e=1 to enemies

`Camera control
ca#=wrapvalue(curvevalue(a#,ca#,10.0))
cx#=newxvalue(x#,ca#,-500)
cz#=newzvalue(z#,ca#,-500)
cy#=y#+300
position camera cx#,cy#,cz#
yrotate camera wrapvalue(ca#)
point camera x#,y#,z#

`Camera control
ca#=wrapvalue(curveangle(a#,ca#,10.0))
cx#=newxvalue(x#,ca#,-500)
cz#=newzvalue(z#,ca#,-500)
cy#=y#+300
position camera cx#,cy#,cz#
yrotate camera wrapvalue(ca#)
point camera x#,y#,z#

`******* Wandering *******
sync on : sync rate 80

`**************************** MEDIA (loading) ***************************
`make a texture for the cow
cls rgb(255,255,255)
ink 0,0
for i = 1 to 50
   x = rnd(100)
   y = rnd(100)
   box x,y,x+rnd(10),y+rnd(10)
next i
get image 1,0,0,100,100,1

`make a texture for the matrix
cls rgb(0,150,0)
for i = 1 to 50
   x = rnd(100)
   y = rnd(100)
   ink rgb(0,rnd(255),0),0
   dot x,y
next i
get image 2,0,0,100,100,1

`make a cow that will wander
for i = 1 to 10
   make object box i,3,4,6
   texture object i,1
   set object collision to boxes i
   position object i,2450 + (i*10),2,2500
next i

`make a matrix
make matrix 1,5000,5000,50,50
prepare matrix texture 1,2,1,1

`setup waypoints
dim waypoint#(10,2)
dim feeling(10)
`waypoint(1) = X, waypoint(2) = Z

`************************ THE ACTUAL WANDERING SYSTEM **********************
do

   for cow = 1 to 10
      `when the cow feels like wandering:
      if feeling(cow) = 1
         feeling(cow) = -1
         `make a waypoint(using the object position, you can create a
         `position not too far away
         dist# = rnd(30) : ang# = rnd(360)
         waypoint#(cow,1) = object position x(cow) + (cos(ang#)*dist#)
         waypoint#(cow,2) = object position z(cow) + (sin(ang#)*dist#)
      endif
         if feeling(cow) <> 1 and feeling(cow) <> -1
         `make the feeling change
         feeling(cow) = rnd(500)
      endif
     
      `when the cow is wandering and the waypoints are settled
      if feeling(cow) = -1
         `* move the cow (when wandering) *
         `rotate cow
         target(cow,waypoint#(cow,1),waypoint#(cow,2))

         `get cow position
         posx# = object position x(cow)
         posz# = object position z(cow)
         posy# = get ground height(1,posx#,posy#)
         angy# = object angle y(cow)

         `move cow
         testx# = newxvalue(posx#,angy#,0.1)
         testz# = newzvalue(posz#,angy#,0.1)
         `check for collision
         position object cow,testx#,posy#,testz#
         if object collision(cow,0) > 0
            `if collided, take different waypoint
            dist# = rnd(30) : ang# = rnd(360)
            waypoint#(cow,1) = object position x(cow) + (cos(ang#)*dist#)
            waypoint#(cow,2) = object position z(cow) + (sin(ang#)*dist#)
         else
            posx# = testx# : posz# = testz#
         endif
         position object cow,posx#,posy#,posz#

         `if it's close enough too the target waypoint, stop feeling
         dist# = sqrt( (posx# - waypoint#(cow,1))^2 + (posz# - waypoint#(cow,2))^2)
         if dist# < 1.5 then feeling(cow) = 2
      endif
   next cow

   text 10,10,str$(screen fps())
   for i = 1 to 10
      text 10,10 + (i*20),str$(feeling(i))
   next i

   `this is only camera
   position camera 2700,100,2700
   point camera 2500,0,2500

   sync
loop

`********************** Functions ************************
`this function is used to rotate an object to the target as fast as you want
`it is not necessary for you to understand this math, though it can be
`useful in some situations...
function target(id,targetx#,targetz#)
   `get id position
   posx# = object position x(id)
   posz# = object position z(id)
   angy# = object angle y(id)

   `calculate diffangle#
   diffangle# = atanfull(targetx# - posx#,targetz# - posz#)

   `check when to rotate left or right
   check = wrapvalue(diffangle# - angy#)
   if check <= 180 and check > 0
      yrotate object id,wrapvalue(angy# + 2)
   endif
   if check > 180 and check < 360
      yrotate object id,wrapvalue(angy# - 2)
   endif
endfunction

`Setup
Sync on : Sync rate 60
Hide mouse : set camera range 1,9999999

`Create World
Make matrix 1,3000,3000,30,30

`Enemy Data
enemies=10              :`This changes the amount of enemies.
Type enemy
   x as float
   y as float
   z as float
   state as integer
   infront as boolean
   health as integer
   dist as float
   ang as float
   angdiff as float
Endtype
Dim enemy(enemies) as enemy

`Initialise enemies
for e=1 to enemies
   enemy(e).x=rnd(3000)
   enemy(e).z=rnd(3000)
   enemy(e).y=get ground height(1,enemy(e).x,enemy(e).z)+25
      enemy(e).state=1
         enemy(e).health=100
next e

`Create Enemies
First=10          :`This is the first object used for the enemies
For e=1 to enemies
   make object cube first+e,50
      position object first+e,enemy(e).x,enemy(e).y,enemy(e).z
next e



`Create player (well... create the gun)
make object cylinder 1,100
xrotate object 1,90 : fix object pivot 1
scale object 1,20,100,20

make object cylinder 2,100 : xrotate object 2,90 : fix object pivot 2 : scale object 2,6,20,6
make mesh from object 1,2 : delete object 2
add limb 1,1,1 : offset limb 1,1,0,55,0

`Muzzle flash
make object plain 2,200,200 : glue object to limb 2,1,1 : hide object 2

set object cull 1,0


`Variables
speed#=10
e_speed#=speed#-2.0


`**Main Loop**
Do

`Control Player
xrotate camera curveangle(wrapvalue(camera angle x()+(mousemovey()*4)),camera angle x(),20.0)
yrotate camera curveangle(wrapvalue(camera angle y()+(mousemovex()*4)),camera angle y(),20.0)
xang#=camera angle x()
yang#=camera angle y()
if keystate(17)=1
   x#=newxvalue(x#,yang#,speed#)
      z#=newzvalue(z#,yang#,speed#)
endif
if keystate(31)=1
   x#=newxvalue(x#,yang#,-speed#)
      z#=newzvalue(z#,yang#,-speed#)
endif
y#=get ground height(1,x#,z#)+50
position camera x#,y#,z#

`Position gun
gxa#=wrapvalue(curveangle(xang#,gxa#,10.0))
gya#=wrapvalue(curveangle(yang#,gya#,10.0))
gx#=newxvalue(x#,wrapvalue(gya#+30),50.0)
gz#=newzvalue(z#,wrapvalue(gya#+30),50.0)
gy#=y#-25
position object 1,gx#,gy#,gz#
rotate object 1,wrapvalue(gxa#-recoil#),gya#,0

`Shooting - (All this doesn't actually fire a bullet object... it shoot only imitates shooting)
`(The actuall shooting will check oif you are "shooting" and check if you are pointing at the)
`(enemy, then make it act accordingly ... all will be explained)
if mouseclick()=1
   inc shoot
endif
      if mouseclick()=0 then shoot=0
      if shoot=1
         show object 2
            recoil#=3.0
      endif
   if shoot<>1 then hide object 2 : shoot=0 : recoil#=0
point object 2,x#,y#,z#


`Artificial Intelligence
Gosub _AI


`**End Loop**
Sync
Loop


`**Subroutines**
_AI:

`Select all enemies
for e=1 to enemies

      `Check distance between player and enemy
      enemy(e).dist = sqrt( (x#-enemy(e).x)^2 + (y#-enemy(e).y)^2 + (z#-enemy(e).z)^2)

      `Check angle differences
      enemy(e).angdiff = atanfull(x#-enemy(e).x,z#-enemy(e).z)

   `Shoot enemy
   `Check if enemy is between you and gun and if you shoot - BAM! Change the enemy's state.
   aimout#=10000
      aimx#=newxvalue(gx#,gya#,aimout#)
      aimz#=newzvalue(gz#,gya#,aimout#)
      aimy#=gy#
         infront#=intersect object(first+e,gx#,gy#,gz#,aimx#,aimy#,aimz#)

            if infront#>0 then enemy(e).infront=1 else enemy(e).infront=0

            if enemy(e).infront=1 and shoot=1
               enemy(e).state=3
               enemy(e).health=enemy(e).health-10
            endif

            `Respawn
            if enemy(e).health<=0
               enemy(e).health=100
               enemy(e).x=rnd(3000)
               enemy(e).z=rnd(3000)
            endif


      `If enemy sees you..
      `If the enemy can see you then change state
      if enemy(e).dist<500 and enemy(e).angdiff<90 and enemy(e).health>20
         enemy(e).state=2
      endif

      `Make enemy wander
      if enemy(e).dist>500 and enemy(e).health>20
         enemy(e).state=1
      endif

      `make enemy run away
      if enemy(e).health<20
         enemy(e).state=4
      endif


      `Change enemies actions..
      if enemy(e).state=1
         enemy(e).ang=wrapvalue(enemy(e).ang+3.0)
            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=2
         enemy(e).ang=wrapvalue(enemy(e).angdiff)
            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=3
         enemy(e).ang=wrapvalue(enemy(e).angdiff)
            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=4
         enemy(e).ang=wrapvalue(enemy(e).angdiff+(180+enemy(e).angdiff/30))
            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


      `Update enemies
      enemy(e).y=get ground height(1,enemy(e).x,enemy(e).z)+25
         position object first+e,enemy(e).x,enemy(e).y,enemy(e).z
            yrotate object first+e,enemy(e).ang



`Deselect all enemies
next e


Return

point object 11, camera position x(), camera position y(), camera position z()
rotate object 11, 00, camera position y(), 0 
move object 11, 1
if object hit(11, 2) then print "YOU GOT HIT!!!!"

create say 30 enemies in a loop
create a 'trigger' variable=0
do
 if trigger variable=0
    do ai for enemies 1 to 15
    trigger variable=1
 endif

 if trigger variable=1
    do ai for enemies 16 to 30
    trigger variable=0
 endif
loop

create say 30 enemies in a loop
create a 'trigger' variable=0
do
 select trigger variable
   case 0
    do ai for enemies 1 to 15
    trigger variable=1
   endcase

   case 1
    do ai for enemies 16 to 30
    trigger variable=0
   endcase
 endselect
loop