Sorry your browser is not supported!

`Written by Patrick Lewis

`Type Coordinates: Used by ReturnObject(),ReturnTarget() and ReturnAI() functions.
Type Coordinates
   x as Float
   y as Float
   z as Float
EndType

`Declare my globlas and arrays first.
Global Object as Coordinates
Global Target as Coordinates
Global AI as Coordinates
Global Speed as Float
Global RTarget as Integer

`The are used by the chase routine to avoide getting stuck
Global AIStuck
Dim AveragePos(20) as Coordinates

`Set our game speed.
Speed=1.5

`Set up sample world
`Load stuff
Load Image "Cement_render.bmp",1:`Use any texture file here.
Load Image "Title.jpg",2
Load Image "Retical.jpg",3
Load Image "Baseball.jpg",4
Load Image "Basketball.jpg",5
Load Image "Tennisball.jpg",6
Load Image "Planet.jpg",7
Load Image "Coin.jpg",8
Load Image "Soccerball.jpg",9

`Prep settings
Hide Mouse
Sync On
Sync Rate 150
FastSync
Set Global Collision On
Position Camera 0,0,-500

`Makin' my matrix. Want some randomness to test the AI out.
Make Matrix 1,1000,1000,40,40
Prepare Matrix Texture 1,1,1,1
Fill Matrix 1,0,1
For i = 0 to 39
   Set Matrix Height 1,i,0,100
   Set Matrix Height 1,0,i,100
   Set Matrix Height 1,i,39,100
   Set Matrix Height 1,39,i,100
Next i
For i = 5 to 35 step 6
   For j = 5 to 35 step 4
      h=rnd(99)+1
      Set Matrix Height 1,i,j,h
      Set Matrix Height 1,i+1,j,h
      Set Matrix Height 1,i,j+1,h
      Set Matrix Height 1,i+1,j+1,h
   Next j
Next i

`Make some obsticals to test the AI as well.
For i = 10 to 30
   Make Object Box i,rnd(40)+1,rnd(100)+1,rnd(40)+1
   Position Object i, rnd(900)+50,Object Size Y(i)/2,rnd(900)+50
   Texture Object i,1
   Set Object Collision to Boxes i
Next i
Update Matrix 1

`Rem some test stairs - thrown in just for fun. And yes, the AI will (accidently) go up them.
For i = 1 to 20
   Make Object Box 30+i,10,i*2,40
   Position Object 30+i,200+(i*10),Object Size Y(30+i)/2,80
   Texture Object 30+i,1
Next i
For i = 1 to 20
   Make Object Box 50+i,40,10,10
   Position Object 50+i,400,36+Object Size Y(30+i)/2,70+(i*10)
   Texture Object 40+i,1
Next i


`The "Player"
Sleep 100
Make Object Cube 1,20
Position Object 1,500,10,100
Set Object Collision Off 1


`A VERY VERY BUSY AI object - No! I mean Very Extremely Really Busy! This guy is all over the place!
`Note: Just to give you an idea of how busy; ALL evade AI routines use this guy for lots of things.
`Note: Did I mention that this is the only AI object - and he takes the place of a lot of math?
Make Object Sphere 2,1,10,10:`want a low poly count, even though it's never drawn, but still want a sphere.
Hide Object 2
Set Object Collision To Spheres 2
Set Object Collision Off 2

`A Camera Object - use this to guide the camera around (I like it better than the Camera commands, but that's me).
Make Object Box 3,1,60,1
Hide Object 3
Set Object Collision Off 3
Position Object 3,500,30,50
Position Camera 500,30,50

`AI Enemys - these are the chasies.
Enemies=5
Dim EvadeShift(Enemies)
For i = 1 to Enemies
   Make Object Sphere 3+i,20
   Texture Object 3+i,3+i
   Set Object Collision Off 3+i
Next i

`My Title Box
Sprite 1,250,0,2
Scale Sprite 1,30
Set Sprite Alpha 1,90

`The target Retical
Sprite 2,-100,0,3
Scale Sprite 2,50
Set Sprite Alpha 2,80

`**************************************************
`********** Start the intro scene here ************
`**************************************************

Make Object Cube 200,50
Position Object 200,500,25,200
Position Object 4,550,10,150
Position Camera 600,75,250
Point Camera 500,20,150
Sync
Sleep 5000
msx=Object Screen X(200)
msy=Object Screen Y(200)
ssx=Object Screen X(1)
ssy=Object Screen Y(1)
Set Cursor msx-200,msy-50
Print "Junior, you left your toys all over the place."
sync
sleep 1500
Set Cursor msx-200,msy-50
Print "Junior, you left your toys all over the place."
Set Cursor msx-200,msy-40
Print "Pick up these balls before I trip and kill myself!"
Sync
Sleep 3000
Set Cursor ssx-75,ssy-50
Print "Ahh mom...."
Sync
Sleep 5000
Delete Object 200



`**************************************************
`********** Start the main routine here ***********
`**************************************************
AIChaser=1

StartGame:
Position Object 1,500,10,100
For i = 1 to Enemies
   Position Object 3+i,(rnd(7)+2)*100,10,(rnd(7)+2)*100
   Set Object Collision Off 3+i
   EvadeShift(i)=(((rnd(30)+15)+(rnd(30)+15)+(rnd(30)+15))/3)*((rnd(1)*2)-1)
Next i
`Prime a few variables to track frames per second information.
MinFPS=10000
MaxFPS=0
FPSFlag=0
`Set some game variables
Counter=0
Score = 0
RTarget =4
AIStuck=0
StartTime=Timer()
Do
   `Handle some of the technical info we like to see.
   FPS=Screen FPS()
   If MaxFPS<=FPS
      MaxFPS=FPS
   Else
      FPSFlag=1
   Endif
   If FPSFlag=1 And MinFPS>FPS
      MinFPS=FPS
   Endif
   Set Cursor 0,20: Print "CAPTURED: ",Score
   Set Cursor 0,30: Print "FPS: ",FPS
   Set Cursor 0,40: Print "MinFPS: ",MinFPS
   Set Cursor 0,50: Print "MaxFPS: ",MaxFPS
   Set Cursor 0,10: Print "Time: ",Int((Timer()-StartTime)/1000)
   If AIChaser=1
      `Call the Chase AI function: takes care of moving the "Player"
      ChaseAI(1,RTarget)
   Else
      `Or, move the player manually.
      If Leftkey() Then Turn Object Left 1,Speed
      If RightKey() Then Turn Object Right 1,Speed
      Move Object 1,1
      NoWalls(1,1.5,8,15)
   Endif

   `Enemy wrangling starts here
   For Enemy= 4 to 3+Enemies:` I only have 5 enemies. Cycle through them to see if they see the Chaser (Player)
      If SeeTarget(Enemy,1,300):` Call the AI that handles "seeing". If the chaser is seen, then...
         `EvadeShift gives the Enemy's some randomness. It could be a set number to give them a "handedness" (i.e. always vear to the left)
         `I found that allowing for values close to 0 did not work so well here. The If rnd(250)=1 is to prevent changing every cycle.
         If rnd(250)=1 Then EvadeShift(Enemy-3)=(((rnd(30)+15)+(rnd(30)+15)+(rnd(30)+15))/3)*((rnd(1)*2)-1):`Pick numbers -45 to -15 or 15 to 45.
         PredictiveEvade(Enemy,1,200,EvadeShift(Enemy-3)):` Calls the Evade AI function
         NoWalls(Enemy,1.5,8,10):` Calls the handy-dandy Physics AI. Keeps us from going through walls and the floor, and handles falling (not gravity per se).
         For i = 4 to 3+Enemies:` Cycle through the enemies again to run away from any enemies that are running away.
            If i<>Enemy
               If SeeTarget(i,1,50):` Look
                  PredictiveEvade(i,Enemy,30,EvadeShift(i-3)):` Run
                  NoWalls(i,4,6,10):` Physics
               Endif
            Endif
         Next i
      Endif
      `Pointless moving - just for fun.
      if rnd(300)=1
         Turn Object Left Enemy,rnd(360)
         Move Object Enemy,.5
      Endif

      `Check to see if Chaser caught a Runner
      If CheckCapture(1,Enemy)=1
         Position Object Enemy,0,-1000,0:`Remove from the game. Put 'em under the game board. "Hey! Tron? So this is where you went?"
         Score = Score + 1
         If Score = 5 Then Goto GameEnd
         If Enemy=RTarget
            For i=4 to 8
               If Object Position Y(i)>-500
                  RTarget=i
                  Exit
               Endif
            Next i
         Endif
      Endif
   Next Enemy

   `Place the targeting retical
   ShowRet=Pick Object(Object Screen X(RTarget),Object Screen Y(RTarget),RTarget,RTarget)>0
   If ShowRet>0
      Show Sprite 2
      Paste Sprite 2, Object Screen X(RTarget)-24,Object Screen Y(RTarget)-24
   Else
      Hide SPrite 2
   Endif
   CameraFollow(1): `Camera wrangling function

   `Place/Show the targeting retical


   Sync
Loop
`**************************************************
`*********** End the main routine here ************
`**************************************************

`*** Restart the game
GameEnd:
EndTime = Timer()
ssx=Object Screen X(1)
ssy=Object Screen Y(1)
Set Cursor ssx-100,ssy-50
Set Text Size 12
Print "Total Time = ", Int((EndTime-StartTime)/1000)
Set Cursor ssx-100,ssy-36
Print "Now you try it. [A] for AI, [P] for player control."
Set Cursor ssx-100,ssy-22
Print "Or, presss [X] to exit game."
Sync
Do
   If lower$(Inkey$())="a"
      AIChaser=1
      Exit
   Endif
   If lower$(Inkey$())="p"
      AIChaser=0
      Exit
   Endif
   If lower$(Inkey$())="x"
      End
   Endif
Loop
Sync
Set Text Size 10
Goto StartGame
End

`Written by Patrick Lewis
`Collision Sliding Function
Function NoWalls(ObjectID,Dist#,Granularity,ClimbFactor#)
`ObjectID=Object being physicsed. Dist#=Test for walls dist. Granularity= Speed(low#) vs Accuracy(high#). ClimbFactor#: How high at Dist# is climbing the matrix allowed?
Set Object Collision On 2:` Our AI object goes to work
ObjectOffset# =Object Size(ObjectID)/2*Dist#: ` Determine how far Dist# puts us from the Object Center
ObjectHeight# =Object Size Y(ObjectID)/2:` This is how high off the ground our object should be when at rest.
Scale#=(Object Size X(ObjectID)*.25)*100:` a scale to adjust our AI for objects of different sizes (re. fitting in tight spaces).
ReturnObject(ObjectID):` You should really just check out these functions at then end of the program. I use them a lot.
Scale Object 2,Scale#,100,100*Speed:` Adjusting the AI object size compensating for our Object size and global speed.

`Start off here by checking our x-z plain surroundings.
angle=360/Granularity:`Get our angle based on how many checks we need to do.
For i = 0 to 360-angle step angle:` and cycle through the checks. Note: it's a full circle. We end up facing the same direction.
   Turn Object Left ObjectID,angle: ` turn the calculated angle
   Flag = 0

   `Our AI goes to work here and earns his pay.
   Position Object 2,Object.x,Object.y,Object.z:` Start the AI at the Object center
   Set Object to Object Orientation 2,ObjectID:` and orient the AI
   Move Object 2,ObjectOffset#:` Moves the Dist# + Object Size
   ReturnObject(ObjectID):ReturnAI():` I'm telling you, go read these.
   Height# = Get Ground Height( 1,AI.x,AI.z)-ClimbFactor#+ObjectHeight#: `Check our ground height at our test position and offset it.
   If Height#>Object.y Then Flag = 1:`Is it too High? Flag = 1 = Yes.
   If Object Collision (2,0)>0 Then Flag = 1:`Did we hit something at the test position? Flag = 1 = Yes.
   If Flag = 1
      Move Object ObjectID,-1*Speed:`If we hit something or the ground is too high, move awayfrom it!
   Endif
Next i

`Check our Y surroundings (mainly - what lies beneath?)
ReturnObject(ObjectID):` If you don't know by now...
Position Object 2,Object.x,Object.Y,Object.z:` Start the AI at the Object center
Set Object to Object Orientation 2,ObjectID:` and orient the AI
Pitch Object Down 2,90:` Look down
Move Object 2,ObjectHeight#: `Moving down to the Object's feet (or whatever)
If Object Collision(2,0)>0:`Is our object's feet in another object?
   GFlag=1:`Yes? Move up
Else
   Move Object 2,2
   If Object Collision(2,0)=0:` Is just below our feet clear?
      GFlag=-1:` Yes? Move down.
   Else
      GFlag=0:` Or... Don't move
   Endif
Endif

`*Gravity*
ReturnObject(ObjectID):` This space intentionally left blank.
Height# = Object.y-Get Ground Height(1,Object.x,Object.z)-ObjectHeight#: `Check our ground hieght at our Object's position and offset it.
Move#=2*GFlag:` Change our movement based on if wee need to go up or down.
If Move#<Height#*-1 Then Move#=Height#*-1:`Keep from going down below the ground.
Pitch Object Up ObjectID,90:`Look up
Move Object ObjectID,Move#*Speed:` Move in the appropriate direction the appropriate distance.
Pitch Object Down ObjectID,90:`Face back the way we should.
`Clean up
Set Object Collision Off 2
Scale Object 2,100,100,100
EndFunction


Function CameraFollow(ObjectID)
   `Place AI Object at ObjectID's starting coordinates and face the same direction
   ReturnObject(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object to Object Orientation 2,ObjectID

   `Move the AI object back away from ObjectID
   Move Object 2,-100

   `Keep the AI object in the playing field
   ReturnAI()
   If AI.x>950 Then Position Object 2,950,AI.y,AI.z
   If AI.x<50 Then Position Object 2,50,AI.y,AI.z
   If AI.z>950 Then Position Object 2,AI.x,AI.y,950
   If AI.z<50 Then Position Object 2,AI.x,AI.y,50

   `Move camera object to AI object
   ReturnTarget(3)
   Point Object 3,AI.x,Target.y,AI.z
   Move Object 3,5*Speed
   NoWalls(3,1.2,8,100)

   `Force move if camera gets "stuck"
   ReturnTarget(3):ReturnObject(ObjectID)
   If SeeTarget(3,ObjectID,90)
      Point Object 3,Object.x,Target.y,Object.z
      Move Object 3,5*Speed
   Endif
   `Have camera follow camera object and point at player object
   ReturnTarget(3):ReturnObject(ObjectID)
   Height#=Get Ground Height(1,Target.x,Target.z)+20
   Position Object 3,Target.x,Height#,Target.z
   Set Camera to Follow Target.x,Target.y,Target.z,0,0,0,50*Speed,1
   Point Camera Object.x,Object.y,Object.z
EndFunction

Function SeeTarget(ObjectID,TargetID,SightRange#)
ReturnObject(ObjectID)
`Set the SeeIt flag to the default of 0.
SeeIt=0
` Multiply Sight Range by 100 to convert to percent scale of 1 and multiply by 2 to get the a distance of SightRange#.
SightRange#=SightRange#*200
Scale Object 2,SightRange#,SightRange#,SightRange#
`Place the ai object
Position Object 2,Object.x,Object.y,Object.z
`Check collisions. If objects are touching then
Set Object Collision On 2
Set Object Collision On TargetID
SeeIt = Object Collision(2,TargetID)
`Clean up
Scale Object 2,100,100,100
Set Object Collision Off 2
Set Object Collision Off TargetID
EndFunction SeeIt

Function PredictiveEvade(ObjectID,TargetID,Lead#,Shift#)
`The ObjectID is running away from the TargetID with a given Lead# value. Shift# can be used to add some randomness or "personality" (i.e. left handed or right handed)
`Return starting coordinates
ReturnTarget(TargetID)
ReturnObject(ObjectID)

` Check for five conditions:
`1: Object is far enough away from target, just move away from predicted location
`2: Object is between predicted location and target. Might be stuck. Need to try heading toward target a little.
`3: Target is near to Object. Try heading to the side.
`4: Target is very close to Object. Panic. Move away from target with a slight turn.
`5: Object is close to target, but to the side or behind. Move away from target fairly directly.

Position Object 2,Target.x,Target.y,Target.z:` Place the AI object at the target's location.
Set Object to Object Orientation 2,TargetID:` Align AI object with Target facing
ReturnObject(ObjectID)
Dist1#=(Object.x-Target.x)^2+(Object.Z-Target.z)^2
`Condition 1: Check, move, and exit now to conserve processes.
If Dist1#>Lead#^2
   Move Object 2,Lead#:`Move ai to lead coordinates.
   ReturnAI()
   Point Object ObjectID,AI.x,Object.y,AI.z
   Turn Object Left ObjectID,180+Shift#
   Move Object ObjectID,1.5*Speed
   ExitFunction
Endif
`Use the collision system to calculate our distances instead of manually calculating them
`Shooting for 25% of overall lead# dist with some overlap: x 2 to convert diameter to radius. x 100 to convert to percent scale. x 0.25 to get 1/4 the distance. Add 10% for overlap.
Scale Object 2,Lead#*20,Lead#*60,Lead#*60:`The 40 in the x position is to narrow the "viewing" area a little.
Set Object Collision On ObjectID
Set Object Collision On 2


Flag=0
`Check for collision at ground zero
If Object Collision(2,ObjectID)
   Flag=1
Else
   `Check for collision at the half-way point.
   Move Object 2,Lead#/2
   Scale Object 2,Lead#*60,Lead#*60,Lead#*60
   If Object Collision(2,ObjectID)
      Flag=2
   Else
      `Check for collision at the lead coordinates
      Move Object 2,Lead#/2
      Scale Object 2,Lead#*90,Lead#*60,Lead#*60
      If Object Collision(2,ObjectID) Then Flag=3
   Endif
Endif

Select Flag
   Case 0
      `Condition 5: Object is behind or well to the side of target.
      Point Object ObjectID,Target.x,Object.y,Target.z
      Turn Object Left ObjectID,180+Shift#
   EndCase
   Case 1
      `Condition 4: Object is very close to Target
      Point Object ObjectID,Target.x,Object.y,Target.z
      Turn Object Left ObjectID,180+Shift#/2
   EndCase
   Case 2
      `Condition 3: Object is near target.
      Point Object ObjectID,Target.x,Object.y,Target.z
      Turn Object Left ObjectID, 100*((Shift#>0)*2-1)
   Endcase
   Case 3
      `Condition 2: Good distance away, but might be stuck
      Point Object ObjectID,Target.x,Object.y,Target.z
      Turn Object Left ObjectID, Shift#
   Endcase
Endselect
`Remember to clean up
Set Object Collision Off ObjectID
Set Object Collision Off 2
Move Object ObjectID,1.5*Speed
Scale Object 2,100,100,100
EndFunction

Function CheckCapture(ObjectID,TargetID)
`Simply turn both object collisions on and check if they collided. Remember to turn off the collisions after.
Set Object Collision On ObjectID
Set Object Collision On TargetID
HitFlag=Object Collision(ObjectID,TargetID)
Set Object Collision Off ObjectID
Set Object Collision Off TargetID
EndFunction HitFlag


Function ChaseAI(ObjectID,TargetID)
   `This was a fun experiment to see if I could get an AI to navigate by the camera.

   `First, keep track if we've been stuck for too long.
   `I chose to use averages of the x and z 3d coordinates. When compared to the current position,
   `if they are the same, then the object is stuck and needs to react to the situation

   `Get the x-position average
   xavg#=0
   For i= 0 to 20
      xavg#=xavg#+AveragePos(i).x
   Next i
   xavg#=xavg#/21
   xavg#=int(xavg#)

   `Get the z-position average
   zavg#=0
   For i= 0 to 20
      zavg#=zavg#+AveragePos(i).z
   Next i
   zavg#=zavg#/21
   zavg#=int(zavg#)

   `Compare the averages to the current positions
   ReturnObject(ObjectID)
   if xavg#=Int(Object.x) and zavg#=Int(Object.z) Then AIStuck=rnd(15)+20

   If AIStuck>0:` AIStuck is a counter as well as a flag. This way the AI doesn't take a step and say "Yep, I've moved."
      `Some consistant turn.
      Turn Object Right ObjectID,1*Speed
      `and store our most recent positions.
      p=rnd(20):` Yes. I do store them randomly. What's it to you? (Actually, this was easier and just as effective as another Global counter).
      AveragePos(p).x=Object.x
      AveragePos(p).z=Object.z
      AIStuck=AISTuck-1
   else
      `Get some screen coordinates.
      opx=Object Screen X(ObjectID)
      opy=Object Screen Y(ObjectID)
      tpx=Object Screen X(TargetID)
      tpy=Object Screen Y(TargetID)


      `Is the target forward (above) or behind (below)?
      infront=(Pick Object(tpx,tpy,TargetID,TargetID)>0)*2-1
      tpx=tpx*infront
      TurnLeft = (opx>(tpx+15)):` The +15 smooths out the chase
      TurnRight = (opx<(tpx-15))
      Turn Object Left ObjectID,(TurnLeft-TurnRight)*Speed

      `and store our most recent positions.
      p=rnd(20)
      AveragePos(p).x=Object.x
      AveragePos(p).z=Object.z
   Endif
   Move Object 1,Speed
   NoWalls(1,1.5,12,15)

EndFunction

`The following functions are because I'm lazy and don't want to type them a million times
Function ReturnTarget(TargetID)
Target.x=Object Position X(TargetID):Target.y=Object Position Y(TargetID):Target.z=Object Position Z(TargetID)
EndFunction

Function ReturnObject(ObjectID)
Object.x=Object Position X(ObjectID):Object.y=Object Position Y(ObjectID):Object.z=Object Position Z(ObjectID)
EndFunction

Function ReturnAI()
AI.x=Object Position X(2):AI.y=Object Position Y(2):AI.z=Object Position Z(2)
EndFunction

`Load stuff
Load Image "Cement_render.bmp",1:`Use any texture file here.
Load Image "Title.jpg",2
Load Image "Retical.jpg",3
Load Image "Baseball.jpg",4
Load Image "Basketball.jpg",5
Load Image "Tennisball.jpg",6
Load Image "Planet.jpg",7
Load Image "Coin.jpg",8
Load Image "Soccerball.jpg",9

`Load stuff
Load Image "Cement_render.bmp",1:`Use any texture file here.
Load Image "Title.jpg",2
Load Image "Retical.jpg",3
Load Image "Baseball.jpg",4
Load Image "Basketball.jpg",5
Load Image "Tennisball.jpg",6
Load Image "Planet.jpg",7
Load Image "Soccerball.jpg",8

`Written by Patrick Lewis

`Type Coordinates: Used by ReturnObject(),ReturnTarget() and ReturnAI() functions.
Type Coordinates
   x as Float
   y as Float
   z as Float
EndType

`Declare my globlas and arrays first.
Global Object as Coordinates
Global Target as Coordinates
Global AI as Coordinates
Global Speed as Float
Global RTarget as Integer

`The are used by the chase routine to avoide getting stuck
Global AIStuck
Global AITurn
Dim AveragePos(20) as Coordinates

`Set our game speed.
Speed=1

`Set up sample world
`Load stuff
Load Image "Cement_render.bmp",1:`Use any texture file here.
Load Image "Title.jpg",2
Load Image "Retical.jpg",3
Load Image "Baseball.jpg",4
Load Image "Basketball.jpg",5
Load Image "Tennisball.jpg",6
Load Image "Planet.jpg",7
Load Image "Soccerball.jpg",8

`Prep settings
Hide Mouse
Sync On
Sync Rate 150
FastSync
Set Global Collision On
Position Camera 0,0,-500

`Makin' my matrix. Want some randomness to test the AI out.
Make Matrix 1,1000,1000,40,40
Prepare Matrix Texture 1,1,1,1
Fill Matrix 1,0,1
For i = 0 to 39
   Set Matrix Height 1,i,0,100
   Set Matrix Height 1,0,i,100
   Set Matrix Height 1,i,39,100
   Set Matrix Height 1,39,i,100
Next i
For i = 5 to 35 step 6
   For j = 5 to 35 step 4
      h=rnd(99)+1
      Set Matrix Height 1,i,j,h
      Set Matrix Height 1,i+1,j,h
      Set Matrix Height 1,i,j+1,h
      Set Matrix Height 1,i+1,j+1,h
   Next j
Next i

`Make some obsticals to test the AI as well.
For i = 10 to 30
   Make Object Box i,rnd(40)+1,rnd(100)+1,rnd(40)+1
   Position Object i, rnd(900)+50,Object Size Y(i)/2,rnd(900)+50
   Texture Object i,1
   Set Object Collision to Boxes i
Next i
Update Matrix 1

`Rem some test stairs - thrown in just for fun. And yes, the AI will (accidently) go up them.
For i = 1 to 20
   Make Object Box 30+i,10,i*2,40
   Position Object 30+i,200+(i*10),Object Size Y(30+i)/2,80
   Texture Object 30+i,1
Next i
For i = 1 to 20
   Make Object Box 50+i,40,10,10
   Position Object 50+i,400,36+Object Size Y(30+i)/2,70+(i*10)
   Texture Object 40+i,1
Next i


`The "Player"
Sleep 100
Make Object Box 1,20,44,20
Set Object Collision Off 1
`Ghost Object On 1
Hide Object 1
load object "roomdemo.x",100
set object specular 100,0
Pitch Object Up 100,90
fix object pivot 100
set object speed 100,12000
heroframe#=total object frames(100)/200.0
Set Object Collision Off 100
Scale Object 100,26,24,26



`A VERY VERY BUSY AI object - No! I mean Very Extremely Really Busy! This guy is all over the place!
`Note: Just to give you an idea of how busy; ALL evade AI routines use this guy for lots of things.
`Note: Did I mention that this is the only AI object - and he takes the place of a lot of math?
Make Object Sphere 2,1,10,10:`want a low poly count, even though it's never drawn, but still want a sphere.
Hide Object 2
Set Object Collision To Spheres 2
Set Object Collision Off 2

`A Camera Object - use this to guide the camera around (I like it better than the Camera commands, but that's me).
Make Object Box 3,15,15,15
Hide Object 3
Set Object Collision Off 3


`AI Enemys - these are the chasies.
Enemies=5
Dim EvadeShift(Enemies)
For i = 1 to Enemies
   Make Object Sphere 3+i,20
   Texture Object 3+i,3+i
   Set Object Collision Off 3+i
Next i

`My Title Box
Sprite 1,250,0,2
Scale Sprite 1,30
Set Sprite Alpha 1,90

`The target Retical
Sprite 2,-100,0,3
Scale Sprite 2,50
Set Sprite Alpha 2,80

`**************************************************
`********** Start the intro scene here ************
`**************************************************

load object "roomdemo.x",200
set object specular 200,0
Pitch Object Up 200,90
Roll Object Left 200,180
Scale Object 200,30,30,30
Position Object 200,530,25,200
Position Object 100,550,10,150
Position Object 4,565,10,175
Position Camera 600,75,250
Point Camera 500,20,150
Sync
Sleep 5000
msx=Object Screen X(200)
msy=Object Screen Y(200)
ssx=Object Screen X(100)
ssy=Object Screen Y(100)
Set Cursor msx-200,msy-50
Print "Junior, you left your toys all over the place."
sync
sleep 1500
Set Cursor msx-200,msy-50
Print "Junior, you left your toys all over the place."
Set Cursor msx-200,msy-40
Print "Pick up these balls before I trip and kill myself!"
Sync
Sleep 3000
Set Cursor ssx-75,ssy-100
Print "Ahh pah...."
Sync
Sleep 5000
Delete Object 200



`**************************************************
`********** Start the main routine here ***********
`**************************************************
AIChaser=1
loop object 100,40*heroframe#,59*heroframe#
StartGame:
Position Object 1,500,10,100
Position Object 3,500,30,50
Position Camera 500,30,50

For i = 1 to Enemies
   Position Object 3+i,(rnd(7)+2)*100,10,(rnd(7)+2)*100
   Set Object Collision Off 3+i
   EvadeShift(i)=(((rnd(30)+15)+(rnd(30)+15)+(rnd(30)+15))/3)*((rnd(1)*2)-1)
Next i
`Prime a few variables to track frames per second information.
MinFPS=10000
MaxFPS=0
FPSFlag=0
Cycles=0
FPSTotal=0
`Set some game variables
Counter=0
Score = 0
RTarget =4
AIStuck=0
StartTime=Timer()
Do
   `Handle some of the technical info we like to see.
   FPS=Screen FPS()
   FPSTotal=FPSTotal+FPS
   Cycles=Cycles+1
   If MaxFPS<=FPS
      MaxFPS=FPS
   Else
      FPSFlag=1
   Endif
   If FPSFlag=1 And MinFPS>FPS
      MinFPS=FPS
   Endif
   Set Cursor 0,10: Print "Time: ",Int((Timer()-StartTime)/1000)
   Set Cursor 0,20: Print "CAPTURED: ",Score
   Set Cursor 0,30: Print "FPS: ",FPS
   Set Cursor 0,40: Print "MinFPS: ",MinFPS
   Set Cursor 0,50: Print "MaxFPS: ",MaxFPS
   Set Cursor 0,60: Print "AvgFPS: ",Int(FPSTotal/Cycles)


   If AIChaser=1
      `Call the Chase AI function: takes care of moving the "Player"
      ChaseAI(1,RTarget)
      ReturnObject(1)
      Position Object 100,Object.x,Object.y-22,Object.z
      Set Object to Object Orientation 100,1
      Pitch Object Up 100,90
   Else
      `Or, move the player manually.
      If Leftkey() Then Turn Object Left 1,(Speed+1)/2
      If RightKey() Then Turn Object Right 1,(Speed+1)/2
      Move Object 1,Speed
      NoWalls(1,1.5,8,15)
      Position Object 100,Object.x,Object.y-22,Object.z
      Set Object to Object Orientation 100,1
      Pitch Object Up 100,90
   Endif

   If rnd(5000)=1
      TextSticky=300
      Restore TextData
      For t=1 to rnd(8)
         read TextString$
      Next t
   Endif

   If TextSticky>0
      ssx=Object Screen X(100)
      ssy=Object Screen Y(100)
      Set Cursor ssx-20,ssy-210
      Print TextString$
      TextSticky=TextSticky-1
   Endif

   `Enemy wrangling starts here
   For Enemy= 4 to 3+Enemies:` I only have 5 enemies. Cycle through them to see if they see the Chaser (Player)
      If SeeTarget(Enemy,1,300):` Call the AI that handles "seeing". If the chaser is seen, then...
         `EvadeShift gives the Enemy's some randomness. It could be a set number to give them a "handedness" (i.e. always vear to the left)
         `I found that allowing for values close to 0 did not work so well here. The If rnd(250)=1 is to prevent changing every cycle.
         If rnd(250)=1 Then EvadeShift(Enemy-3)=(((rnd(30)+15)+(rnd(30)+15)+(rnd(30)+15))/3)*((rnd(1)*2)-1):`Pick numbers -45 to -15 or 15 to 45.
         PredictiveEvade(Enemy,1,200,EvadeShift(Enemy-3)):` Calls the Evade AI function
         NoWalls(Enemy,2,8,10):` Calls the handy-dandy Physics AI. Keeps us from going through walls and the floor, and handles falling (not gravity per se).
         For i = 4 to 3+Enemies:` Cycle through the enemies again to run away from any enemies that are running away.
            If i<>Enemy
               If SeeTarget(i,1,50):` Look
                  PredictiveEvade(i,Enemy,30,EvadeShift(i-3)):` Run
                  NoWalls(i,2,6,10):` Physics
               Endif
            Endif
         Next i
      Endif
      `Pointless moving - just for fun.
      if rnd(300)=1
         Turn Object Left Enemy,rnd(360)
         Move Object Enemy,.5
      Endif

      `Check to see if Chaser caught a Runner
      If CheckCapture(1,Enemy)=1
         Position Object Enemy,0,-1000,0:`Remove from the game. Put 'em under the game board. "Hey! Tron? So this is where you went?"
         Score = Score + 1
         If Score = 5 Then Goto GameEnd
         If Enemy=RTarget
            For i=4 to 8
               If Object Position Y(i)>-500
                  RTarget=i
                  Exit
               Endif
            Next i
         Endif
      Endif
   Next Enemy

   `Place the targeting retical
   ShowRet=Pick Object(Object Screen X(RTarget),Object Screen Y(RTarget),RTarget,RTarget)>0
   If ShowRet>0
      Show Sprite 2
      Paste Sprite 2, Object Screen X(RTarget)-24,Object Screen Y(RTarget)-24
   Else
      Hide SPrite 2
   Endif
   CameraFollow(1): `Camera wrangling function

   `Place/Show the targeting retical


   Sync
Loop
`**************************************************
`*********** End the main routine here ************
`**************************************************

`*** Restart the game
GameEnd:
EndTime = Timer()
ssx=Object Screen X(1)
ssy=Object Screen Y(1)
Set Cursor ssx-100,ssy-50
Set Text Size 12
Print "Total Time = ", Int((EndTime-StartTime)/1000)
Set Cursor ssx-100,ssy-36
Print "Now you try it. [A] for AI, [P] for player control."
Set Cursor ssx-100,ssy-22
Print "Or, presss [X] to exit game."
Sync
Do
   If lower$(Inkey$())="a"
      AIChaser=1
      Exit
   Endif
   If lower$(Inkey$())="p"
      AIChaser=0
      Exit
   Endif
   If lower$(Inkey$())="x"
      End
   Endif
Loop
Sync
Set Text Size 10
Goto StartGame
End

`Written by Patrick Lewis
`Collision Sliding Function
Function NoWalls(ObjectID,Dist#,Granularity,ClimbFactor#)
`ObjectID=Object being physicsed. Dist#=Test for walls dist. Granularity= Speed(low#) vs Accuracy(high#). ClimbFactor#: How high at Dist# is climbing the matrix allowed?
Set Object Collision On 2:` Our AI object goes to work
ObjectOffset# =Object Size Z(ObjectID)/2*Dist#: ` Determine how far Dist# puts us from the Object Center
ObjectHeight# =Object Size Y(ObjectID)/2:` This is how high off the ground our object should be when at rest.
Scale#=(Object Size X(ObjectID)*.25)*100:` a scale to adjust our AI for objects of different sizes (re. fitting in tight spaces).
ReturnObject(ObjectID):` You should really just check out these functions at then end of the program. I use them a lot.
Scale Object 2,Scale#,ObjectHeight#*100,100*Speed:` Adjusting the AI object size compensating for our Object size and global speed.

`Start off here by checking our x-z plain surroundings.
angle=360/Granularity:`Get our angle based on how many checks we need to do.
For i = 0 to 360-angle step angle:` and cycle through the checks. Note: it's a full circle. We end up facing the same direction.
   Turn Object Left ObjectID,angle: ` turn the calculated angle
   Flag = 0

   `Our AI goes to work here and earns his pay.
   Position Object 2,Object.x,Object.y+(ObjectHeight#/2),Object.z:` Start the AI at the Object center
   Set Object to Object Orientation 2,ObjectID:` and orient the AI
   Move Object 2,ObjectOffset#:` Moves the Dist# + Object Size
   ReturnObject(ObjectID):ReturnAI():` I'm telling you, go read these.
   Height# = Get Ground Height( 1,AI.x,AI.z)-ClimbFactor#+ObjectHeight#+(Speed-1): `Check our ground height at our test position and offset it.
   If Height#>Object.y Then Flag = 1:`Is it too High? Flag = 1 = Yes.
   If Object Collision (2,0)>0 Then Flag = 1:`Did we hit something at the test position? Flag = 1 = Yes.
   If Flag = 1
      Move Object ObjectID,-1*Speed:`If we hit something or the ground is too high, move awayfrom it!
   Endif
Next i

Scale Object 2,Scale#*.9,Scale#*.9,200+100*Speed
`Check our Y surroundings (mainly - what lies beneath?)
ReturnObject(ObjectID):` If you don't know by now...
Position Object 2,Object.x,Object.Y,Object.z:` Start the AI at the Object center
Set Object to Object Orientation 2,ObjectID:` and orient the AI
Pitch Object Down 2,90:` Look down
Move Object 2,ObjectHeight#: `Moving down to the Object's feet (or whatever)
If Object Collision(2,0)>0:`Is our object's feet in another object?
   GFlag=1:`Yes? Move up
Else
   Move Object 2,1
   If Object Collision(2,0)=0:` Is just below our feet clear?
      GFlag=-1:` Yes? Move down.
   Else
      GFlag=0:` Or... Don't move
   Endif
Endif

`*Gravity*
ReturnObject(ObjectID):` This space intentionally left blank.
Height# = Object.y-Get Ground Height(1,Object.x,Object.z)-ObjectHeight#: `Check our ground hieght at our Object's position and offset it.
Move#=2*GFlag*Speed:` Change our movement based on if wee need to go up or down and adjust for speed.
If Move#<Height#*-1 Then Move#=Height#*-1:`Keep from going down below the ground.
Pitch Object Up ObjectID,90:`Look up
Move Object ObjectID,Move#:` Move in the appropriate direction the appropriate distance.
Pitch Object Down ObjectID,90:`Face back the way we should.
`Clean up
Set Object Collision Off 2
Scale Object 2,100,100,100
EndFunction


Function CameraFollow(ObjectID)
   `Place AI Object at ObjectID's starting coordinates and face the same direction
   ReturnObject(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object to Object Orientation 2,ObjectID

   `Move the AI object back away from ObjectID
   Move Object 2,-60

   `Keep the AI object in the playing field
   ReturnAI()
   If AI.x>925 Then Position Object 2,925,AI.y,AI.z
   If AI.x<75 Then Position Object 2,75,AI.y,AI.z
   If AI.z>925 Then Position Object 2,AI.x,AI.y,925
   If AI.z<75 Then Position Object 2,AI.x,AI.y,75
   ReturnTarget(3)
   Point Object 3,AI.x,Target.y,AI.z
   Move Object 3, 1.2*Speed
   NoWalls(3,.5,1,1000)
   ReturnObject(ObjectID):ReturnTarget(3)
   Set Camera to Follow Target.x,Target.y,Target.z,0,0,35,35,1
   Point Camera Object.x,Object.y,Object.z
EndFunction

Function SeeTarget(ObjectID,TargetID,SightRange#)
ReturnObject(ObjectID)
`Set the SeeIt flag to the default of 0.
SeeIt=0
` Multiply Sight Range by 100 to convert to percent scale of 1 and multiply by 2 to get the a distance of SightRange#.
SightRange#=SightRange#*200
Scale Object 2,SightRange#,SightRange#,SightRange#
`Place the ai object
Position Object 2,Object.x,Object.y,Object.z
`Check collisions. If objects are touching then
Set Object Collision On 2
Set Object Collision On TargetID
SeeIt = Object Collision(2,TargetID)
`Clean up
Scale Object 2,100,100,100
Set Object Collision Off 2
Set Object Collision Off TargetID
EndFunction SeeIt

Function PredictiveEvade(ObjectID,TargetID,Lead#,Shift#)
`The ObjectID is running away from the TargetID with a given Lead# value. Shift# can be used to add some randomness or "personality" (i.e. left handed or right handed)
`Return starting coordinates
ReturnTarget(TargetID)
ReturnObject(ObjectID)

` Check for five conditions:
`1: Object is far enough away from target, just move away from predicted location
`2: Object is between predicted location and target. Might be stuck. Need to try heading toward target a little.
`3: Target is near to Object. Try heading to the side.
`4: Target is very close to Object. Panic. Move away from target with a slight turn.
`5: Object is close to target, but to the side or behind. Move away from target fairly directly.

Position Object 2,Target.x,Target.y,Target.z:` Place the AI object at the target's location.
Set Object to Object Orientation 2,TargetID:` Align AI object with Target facing
ReturnObject(ObjectID)
Dist1#=(Object.x-Target.x)^2+(Object.Z-Target.z)^2
`Condition 1: Check, move, and exit now to conserve processes.
If Dist1#>Lead#^2
   Move Object 2,Lead#:`Move ai to lead coordinates.
   ReturnAI()
   Point Object ObjectID,AI.x,Object.y,AI.z
   Turn Object Left ObjectID,180+Shift#
   Move Object ObjectID,1.5*Speed
   ExitFunction
Endif
`Use the collision system to calculate our distances instead of manually calculating them
`Shooting for 25% of overall lead# dist with some overlap: x 2 to convert diameter to radius. x 100 to convert to percent scale. x 0.25 to get 1/4 the distance. Add 10% for overlap.
Scale Object 2,Lead#*20,Lead#*60,Lead#*60:`The 40 in the x position is to narrow the "viewing" area a little.
Set Object Collision On ObjectID
Set Object Collision On 2


Flag=0
`Check for collision at ground zero
If Object Collision(2,ObjectID)
   Flag=1
Else
   `Check for collision at the half-way point.
   Move Object 2,Lead#/2
   Scale Object 2,Lead#*60,Lead#*60,Lead#*60
   If Object Collision(2,ObjectID)
      Flag=2
   Else
      `Check for collision at the lead coordinates
      Move Object 2,Lead#/2
      Scale Object 2,Lead#*90,Lead#*60,Lead#*60
      If Object Collision(2,ObjectID) Then Flag=3
   Endif
Endif

Select Flag
   Case 0
      `Condition 5: Object is behind or well to the side of target.
      Point Object ObjectID,Target.x,Object.y,Target.z
      Turn Object Left ObjectID,180+Shift#
   EndCase
   Case 1
      `Condition 4: Object is very close to Target
      Point Object ObjectID,Target.x,Object.y,Target.z
      Turn Object Left ObjectID,180+Shift#/2
   EndCase
   Case 2
      `Condition 3: Object is near target.
      Point Object ObjectID,Target.x,Object.y,Target.z
      Turn Object Left ObjectID, 100*((Shift#>0)*2-1)
   Endcase
   Case 3
      `Condition 2: Good distance away, but might be stuck
      Point Object ObjectID,Target.x,Object.y,Target.z
      Turn Object Left ObjectID, Shift#
   Endcase
Endselect
`Remember to clean up
Set Object Collision Off ObjectID
Set Object Collision Off 2
Move Object ObjectID,1.5*Speed
Scale Object 2,100,100,100
EndFunction

Function CheckCapture(ObjectID,TargetID)
`Simply turn both object collisions on and check if they collided. Remember to turn off the collisions after.
Set Object Collision On ObjectID
Set Object Collision On TargetID
HitFlag=Object Collision(ObjectID,TargetID)
Set Object Collision Off ObjectID
Set Object Collision Off TargetID
EndFunction HitFlag


Function ChaseAI(ObjectID,TargetID)
   `This was a fun experiment to see if I could get an AI to navigate by the camera.

   `Get some screen coordinates.
   opx=Object Screen X(ObjectID)
   opy=Object Screen Y(ObjectID)
   tpx=Object Screen X(TargetID)
   tpy=Object Screen Y(TargetID)

   `First, keep track if we've been stuck for too long.
   `I chose to use averages of the x and z 3d coordinates. When compared to the current position,
   `if they are the same, then the object is stuck and needs to react to the situation

   `Get the x/z-positions average
   xavg#=0
   For i= 0 to 5
      xavg#=xavg#+AveragePos(i).x
      zavg#=zavg#+AveragePos(i).z
   Next i
   xavg#=xavg#/6
   xavg#=int(xavg#*(1-.1*Speed))
   zavg#=zavg#/6
   zavg#=int(zavg#*(1-.1*Speed))


   `Compare the averages to the current positions
   ReturnObject(ObjectID)
   if xavg#=Int(Object.x*(1-.1*Speed)) and zavg#=Int(Object.z*(1-.1*Speed)) and AIStuck<1
      AIStuck=rnd(25)+30
      AITurn=(rnd(1)*2)-1
   Endif

   If AIStuck>0:` AIStuck is a counter as well as a flag. This way the AI doesn't take a step and say "Yep, I've moved."
      `Some consistant turn.
      Turn Object Right ObjectID,AITurn*Speed
      `and store our most recent positions.
      p=rnd(6):` Yes. I do store them randomly. What's it to you? (Actually, this was easier and just as effective as another Global counter).
      AveragePos(p).x=Object.x
      AveragePos(p).z=Object.z
      AIStuck=AISTuck-1
   else


      `Is the target forward (above) or behind (below)?
      infront=(Pick Object(tpx,tpy,TargetID,TargetID)>0)*2-1
      tpx=tpx*infront
      TDist=abs(tpy-opy)
      TurnLeft = (opx>(tpx+TDist*1.5)):` The +TDist smooths out the chase
      TurnRight = (opx<(tpx-TDist*1.5))
      Turn Object Left ObjectID,(TurnLeft-TurnRight)*(Speed+1)/2

      `and store our most recent positions.
      p=rnd(6)
      AveragePos(p).x=Object.x
      AveragePos(p).z=Object.z
   Endif
   Move Object 1,Speed
   NoWalls(1,1.5,12,15)

EndFunction

`The following functions are because I'm lazy and don't want to type them a million times
Function ReturnTarget(TargetID)
Target.x=Object Position X(TargetID):Target.y=Object Position Y(TargetID):Target.z=Object Position Z(TargetID)
EndFunction

Function ReturnObject(ObjectID)
Object.x=Object Position X(ObjectID):Object.y=Object Position Y(ObjectID):Object.z=Object Position Z(ObjectID)
EndFunction

Function ReturnAI()
AI.x=Object Position X(2):AI.y=Object Position Y(2):AI.z=Object Position Z(2)
EndFunction

TextData:

Data "Hey! Come back here!"
Data "Why me?!!"
Data "Arrrgghh!"
Data "Whew! Tough work!"
Data "Okay, this ain't so much fun anymore!"
Data "<Pant!><Pant!>"
Data "Where'd it go?"
Data "I'm going to get ya!"

`sets up initial program status
set display mode 1024,768,16
sync on
sync rate 60
hide mouse
autocam off
randomize timer()
set camera range 1,10000

`makes the ground texture
ink 0,0
box 0,0,64,64
ink rgb(25,25,25),0
box 1,1,63,63
ink rgb(50,50,50),0
box 2,2,62,62
ink rgb(75,75,75),0
box 3,3,61,61
ink rgb(100,100,100),0
box 4,4,60,60
ink rgb(125,125,125),0
box 5,5,59,59
ink rgb(150,150,150),0
box 6,6,58,58
ink rgb(175,175,175),0
box 7,7,57,57
get image 1,0,0,64,64
cls

`texture for box attack
ink rgb(100,80,0),0
box 0,0,64,64
ink rgb(130,120,0),0
box 5,5,59,59

ink rgb(80,70,0),0
box 15,15,49,49

get image 2,0,0,64,64

`makes level
make matrix 1,6000,6000,10,10
`load image "ground.bmp",1
prepare matrix texture 1,1,1,1

`makes player
make object cone 3,40
xrotate object 3,90
fix object pivot 3

`makes outside walls
make object cube 1,6000
texture object 1,1
scale object texture 1,10,10
set object 1,1,1,0,1,0
position object 1,3000,0,3000

`makes AI character
make object cone 2,40
xrotate object 2,90
fix object pivot 2
position object 2,3000,20,3000
color object 2,rgb(200,200,200)

`players shadow
make object cylinder 7,40
scale object 7,100,2,100
color object 7,rgb(40,40,40)

`players attack shadow
make object cube 8,50
scale object 8,100,2,100
color object 8,rgb(0,0,0)
hide object 8

`makes AI's shadow
make object cylinder 5,40
scale object 5,100,2,100
color object 5,rgb(40,40,40)

`makes AI attack object
make object cube 4,5
scale object 4,40,200,300
color object 4,rgb(0,0,0)

`makes player's attack object
make object cube 6,50
scale object 6,100,50,100
texture object 6,2

`makes 5 randomly placed mp heals
mp1x#=rnd(5800)+100
mp1z#=rnd(5800)+100
mp2x#=rnd(5800)+100
mp2z#=rnd(5800)+100
mp3x#=rnd(5800)+100
mp3z#=rnd(5800)+100
mp4x#=rnd(5800)+100
mp4z#=rnd(5800)+100
mp5x#=rnd(5800)+100
mp5z#=rnd(5800)+100

for healer=10 to 14
   make object cone healer,150
   xrotate object healer,180
next healer

color object 10,rgb(255,100,100)
color object 11,rgb(255,100,100)
color object 12,rgb(255,100,100)

color object 13,rgb(100,255,100)
color object 14,rgb(100,255,100)

position object 10,mp1x#,get ground height(1,mp1x#,mp1z#),mp1z#
position object 11,mp2x#,get ground height(1,mp2x#,mp2z#),mp2z#
position object 12,mp3x#,get ground height(1,mp3x#,mp3z#),mp3z#
position object 13,mp4x#,get ground height(1,mp4x#,mp4z#),mp4z#
position object 14,mp5x#,get ground height(1,mp5x#,mp5z#),mp5z#






`AI ENEMY STATS
`health
enemy_hp=1200
enemy_maxhp=1200
`magic points
enemy_mp=120
enemy_maxmp=120
`damage dealt on normal attack
enemy_strength=10

`sets AI reaction and movement variables
aware=0
`the distance infront of the enemy used for his sight, same effects as hearing.
sight_distance#=750
`a distance around the enemy used for hearing. if you step within it, the enemy will become aware of your presence.
hearing_distance#=300
`the distance at which the enemy stops following you (gives up)
max_range#=1000
AI_attacktime=10
AI_weight=5
AI_walkingspeed=7

`AI healing ability
enemy_heal_effect=45
enemy_heal_mpuse=20
enemy_heal_speed=100

`PLAYER STATS
`health
hp=1000
maxhp=1000
`magic points
mp=150
maxmp=150
`damage dealt on normal attack
strength=15

`character variables
`how fast the player walks
player_walkingspeed=10
weight=5
`how high player jumps
player_jumpforce=23
`how fast the players attack is
player_attacktime=20

`player healing ability
`how many points to heal
heal_effect=50
`how much mp used
heal_mpuse=20
`how long it takes
heal_speed=60


`action shortcuts
stand=0
jump=1
walk=2
heal=3
attack=4
limit=5


`sets gravity
gravity=-5
lcount=-100

`text color
ink rgb(200,50,50),0

position object 3,0,0,0




do
gosub player_movement
gosub AI_player
gosub healers
gosub debug_info
gosub rules
`gets distance between player and AI player
distance#=sqrt((object position x(3)-object position x(2))^2+(object position y(3)-object position y(2))^2+(object position z(3)-object position z(2))^2)
sync
loop



debug_info:
ink 0,0
box 3,1,142,187
box 893,1,1007,72

ink rgb(100,100,100),0
box 5,3,140,185
box 895,3,1005,70

ink rgb(255,255,255),0
text 10,5,"-Player Stats-"
text 10,20,"Hp:"+str$(hp)+"/"+str$(maxhp)
text 10,35,"Mp:"+str$(mp)+"/"+str$(maxmp)

if action=0 then text 10,50,"Action:Standing"
if action=1 then text 10,50,"Action:Jumping"
if action=2 then text 10,50,"Action:Walking"
if action=3 then text 10,50,"Action:Healing"
if action=4 then text 10,50,"Action:Attacking"

text 900,2,"-Enemy Stats-"
text 900,20,"Hp:"+str$(enemy_hp)+"/"+str$(enemy_maxhp)
text 900,35,"Mp:"+str$(enemy_mp)+"/"+str$(enemy_maxmp)

if goal=0
   if eaction=0 then text 900,50,"Action:Standing"
   if eaction=1 then text 900,50,"Action:Jumping"
   if eaction=2 and emovement_action=1 then text 900,50,"Action:Following"
   if eaction=2 and emovement_action=0 then text 900,50,"Action:Escaping"
   if eaction=3 then text 900,50,"Action:Healing"
   if eaction=4 then text 900,50,"Action:Attacking"
else
   text 900,50,"Action:Patrol"
endif


text 10,80,"-Player Controls-"
text 10,95,"Mouse:Turn"
text 10,110,"Mousebuttons:Move"
text 10,125,"Spacebar:Jump"
text 10,140,"Enter:Attack"
text 10,155,"Control:Heal"
text 10,170,"Shift:Limit"
return



player_movement:

`gets players old values
oldx#=x#
oldy#=y#
oldz#=z#

`movement and rotation
if action=stand or action=walk or action=jump
   if upkey()=1
      move object 3,player_walkingspeed
      if action=0 then action=2
   endif

   if downkey()=1
      move object 3,-1*player_walkingspeed
      if action=0 then action=2
   endif
   if upkey()=0 and downkey()=0 and action=2 then action=0
endif

`turning player
if action<>attack
   if leftkey()=1 then yrotate object 3,wrapvalue(object angle y(3)-5)
   if rightkey()=1 then yrotate object 3,wrapvalue(object angle y(3)+5)
endif

`gets camera variables
x#=object position x(3)
y#=object position y(3)
z#=object position z(3)
yr#=object angle y(3)

camyr#=wrapvalue(curveangle(yr#,camera angle y(),12.0))
camx#=newxvalue(x#,wrapvalue(camyr#+180),300)
camz#=newzvalue(z#,wrapvalue(camyr#+180),300)

camy#=get ground height(1,camx#,camz#)+200

if camx#>5900 then camx#=5900
if camx#<100 then camx#=100
if camz#>5900 then camz#=5900
if camz#<100 then camz#=100
if camy#>2800 then camy#=2800

position camera camx#,camy#,camz#
point camera x#,y#,z#
yrotate camera wrapvalue(camyr#)



`calculates standing and jumping
if action=stand or action=walk then y#=get ground height(1,x#,z#)+20
`jump with out flying
if action=jump then y#=oldy#:gravity_force=gravity_force+(gravity/10):y#=y#+gravity_force+vertforce

`starting an attack
if returnkey()=1
   if action=stand or action=walk then action=attack
endif

`starting a heal
if controlkey()=1 and mp=>heal_mpuse
   if action=stand or action=walk then action=heal
endif

`starting a limit break
if shiftkey()=1 and mp>20
   if action=stand or action=walk then action=limit
endif

`going to various abilities
gosub attack
gosub heal
gosub limit

`sliding collision with walls and roof
if x#>5900 then x#=5900
if x#<100 then x#=100
if z#>5900 then z#=5900
if z#<100 then z#=100
if y#>2800 then y#=2800

`jumping, gravity and staying on the ground
if vertforce>0 then dec vertforce
if y#<get ground height(1,x#,z#)+20 then action=stand

`starting a jump
if spacekey()=1
   if action=stand or action=walk
      vertforce=player_jumpforce
      action=jump
      gravity_force=gravity
   endif
endif

`sliding collision with AI player
dx#=object position x(3)-object position x(2)
dz#=object position z(3)-object position z(2)
`moving player away
if dx#<25 and dx#>0 and dy#>-25 and dy#<20 and z#>az#-25 and z#<az#+25 then x#=ax#+25
if dx#>-25 and dx#<0 and dy#>-25 and dy#<20 and z#>az#-25 and z#<az#+25 then x#=ax#-25
if dz#<25 and dz#>0 and dy#>-25 and dy#<20 and x#>ax#-25 and x#<ax#+25 then z#=az#+25
if dz#>-25 and dz#<0 and dy#>-25 and dy#<20 and x#>ax#-25 and x#<ax#+25 then z#=az#-25

`positioning camera in final position
position object 3,x#,y#,z#

`positions players shadow
position object 7,x#,get ground height(1,x#,z#)+1,z#

return






AI_player:
`gets the AI player's current position into variables.
ax#=object position x(2)
ay#=object position y(2)
az#=object position z(2)
ary#=object angle y(2)

`stores old AI positions
oldax#=ax#
olday#=ay#
oldaz#=az#

`makes enemy patrol if it is unaware that you are around, and if its hp is less than 50% it will heal.
if aware=0
   if enemy_hp>enemy_maxhp/2
      gosub enemy_patrol
   else
      if enemy_mp=>enemy_heal_mpuse
         eaction=heal
      gosub enemy_heal
      else
         gosub enemy_patrol
      endif
   endif
endif


`things to do if the AI player is aware that the main player exists.
if aware=1
   `points and AI object towards player if it is aware, and moves it if it's not in attack range.
   point object 2,x#,y#,z#
   goal=0
   if eaction=walk or eaction=stand
      `enemy will run away if it's hp is less than 25%, if not it will keep chasing you
      if enemy_hp>enemy_maxhp*0.30
         if range=0 then emovement_action=1:eaction=walk
      else
         emovement_action=0:eaction=walk
      endif
      gosub enemy_follow
      gosub enemy_escape
   endif

   if range=1
   `attacks player if it is aware, in range, and facing the right angle
   if eaction=stand or eaction=walk
      if enemy_hp>enemy_maxhp*0.30 then eaction=attack
   endif
   endif
   `makes enemy unaware when it is past it's max range, so it won't chase you forever.
   if distance#>max_range# then aware=0
endif

`enemy heals itself
if enemy_hp<enemy_maxhp*0.3
   if distance#>500
      if eaction<>jump and enemy_mp=>enemy_heal_mpuse then eaction=heal
   endif
endif

`goes to ability code and checks the eaction
gosub enemy_attack
gosub enemy_heal

`if Ai player hears the main player then it is aware
if distance#<hearing_distance# then aware=1:text 200,30,"You are in AI player's hearing range!"

`if AI player sees the main player then it is aware.
if distance#<sight_distance#
   position camera ax#,ay#,az#
   yrotate camera ary#
   if object in screen(3)=1 then aware=1:text 200,45,"You are in AI player's seeing range!"
   position camera camx#,camy#,camz#
   yrotate camera camyr#
endif

`checks to see if player and enemy are in range
if distance#<=50
   range=1
else
   range=0
endif

`sliding collision with walls and roof
if ax#>5900 then ax#=5900
if ax#<100 then ax#=100
if az#>5900 then az#=5900
if az#<100 then az#=100
if ay#>2800 then ay#=2800

`poisitons and rotates enemy and it's shadow
position object 2,ax#,ay#,az#
yrotate object 2,ary#
position object 5,ax#,get ground height(1,ax#,az#)+1,az#

return


`a healing ability that takes mp - used by the enemy
enemy_heal:
if enemy_mp+enemy_heal_mpuse=>enemy_heal_mpuse
   if eaction=heal and ehealcount=0 then dec enemy_mp,enemy_heal_mpuse:ehealcount=enemy_heal_speed
   if ehealcount>0
      color object 2,rgb(rnd(100)+100,rnd(100)+100,rnd(100)+100)
      eaction=heal
      scale object 2,100,ehealcount*3+100,100
      dec ehealcount
      if ehealcount=0
         inc enemy_hp,enemy_heal_effect
         if enemy_hp>enemy_maxhp then enemy_hp=enemy_maxhp
         color object 2,rgb(100,100,100)
         eaction=stand
      endif
   endif
else
   scale object 2,100,100,100
endif
return


`a healing ability that takes mp - used by player
heal:
if mp+heal_mpuse=>heal_mpuse
   if action=heal and healcount=0 then dec mp,heal_mpuse:healcount=heal_speed
   if healcount>0
      color object 3,rgb(rnd(100)+100,rnd(100)+100,rnd(100)+100)
      scale object 3,healcount*2+100,healcount*2+100,healcount*2+100
      action=heal
      dec healcount
      if healcount=0
         scale object 3,100,100,100
         color object 3,rgb(200,200,200)
         inc hp,heal_effect
         if hp>maxhp then hp=maxhp
         action=stand
      endif
   endif
endif
return


`a normal attack by the enemy
enemy_attack:
if eaction=attack and eattackcount=0 then eattackcount=AI_attacktime
if eattackcount>0
   eaction=attack
   `dealing damage
   if eattackcount=1 and distance#<55 then dec hp,enemy_strength
   show object 4
   position object 4,ax#,ay#+eattackcount*4-15,az#
   yrotate object 4,ary#
   move object 4,20
   color object 2,rgb(255,100,100)
   dec eattackcount
   if eattackcount=0 then eaction=stand:color object 2,rgb(100,100,100)
else
   hide object 4
endif
return


`a normal attack by the player
attack:
if action=attack and attackcount=0 then attackcount=player_attacktime
if attackcount>0
   action=attack
   show object 6
   show object 8
   position object 6,x#,y#+(attackcount*5),z#
   position object 8,x#,get ground height(1,x#,z#)+1,z#
   yrotate object 6,yr#
   yrotate object 8,yr#
   move object 6,50
   move object 8,50
   dec attackcount
   `dealing damage and ending attack
   if attackcount=0
      if distance#<70 and object in screen(2)=1 then dec enemy_hp,strength
      action=stand
   endif
else
   hide object 6
   hide object 8
endif
return


enemy_patrol:
if goal=0
goalx#=rnd(5800)+100
goalz#=rnd(5800)+100
goal=1
endif
if goal=1
   point object 2,goalx#,get ground height(1,goalx#,goalz#),goalz#
   move object 2,AI_walkingspeed
   ax#=object position x(2)
   ay#=get ground height(1,ax#,az#)+20
   az#=object position z(2)
   ary#=object angle y(2)

for check=10 to 14
   if object exist(check)=1
      if goalx#=object position x(check)
         if goalz#=object position x(check) then goto noheal
      endif
   endif
next check

for check=10 to 14
   if object exist(check)=1
   if ax#>object position x(check)-1000 and ax#<object position x(check)+1000 and az#>object position z(check)-1000 and az#<object position z(check)+1000
      if check<13 and check>9
         if enemy_hp<enemy_maxhp/2
            goalx#=object position x(check)
            goalz#=object position z(check)
         endif
      else
         if enemy_mp<enemy_maxmp/2
            goalx#=object position x(check)
            goalz#=object position z(check)
         endif
      endif
   endif
   endif
next check
noheal:
   `it gets to its goal
   if ax#>goalx#-10 and ax#<goalx#+10 and az#>goalz#-10 and az#<goalz#+10
      goal=0
   endif
endif
return



`the enemy's movement to follow you
enemy_follow:
if emovement_action=1 and eaction=walk
   move object 2,AI_walkingspeed
   ax#=object position x(2)
   ay#=get ground height(1,ax#,az#)+20
   az#=object position z(2)
   ary#=object angle y(2)
endif
return


`the enemy's movement to run away from you
enemy_escape:
if emovement_action=0 and eaction=walk
   yrotate object 2,wrapvalue(object angle y(2)-180)
   move object 2,AI_walkingspeed
   ax#=object position x(2)
   ay#=get ground height(1,ax#,az#)+20
   az#=object position z(2)
   ary#=object angle y(2)
   if distance#>max_range#-100 then aware=0:
   if needheal=1 and distance#>400 then eaction=heal
endif
return


healers:
for healer=10 to 14
if object exist(healer)=0 then goto nexthealplayer
if object position x(3)>object position x(healer)-40 and object position x(3)<object position x(healer)+40
if object position z(3)>object position z(healer)-40 and object position z(3)<object position z(healer)+40
if healer<13 then inc hp,maxhp/4 else inc mp,maxmp/4
delete object healer
endif
endif
nexthealplayer:
next healer
for healer=10 to 14
if object exist(healer)=0 then goto nexthealenemy
if object position x(2)>object position x(healer)-40 and object position x(2)<object position x(healer)+40
if object position z(2)>object position z(healer)-40 and object position z(2)<object position z(healer)+40
if healer<13 then inc enemy_hp,enemy_maxhp/4 else inc enemy_mp,enemy_maxmp/4
delete object healer
endif
endif
nexthealenemy:
next healer
return


rules:
if enemy_hp>enemy_maxhp then enemyhp=enemy_maxhp
if enemy_mp>enemy_maxmp then enemy_mp=enemy_maxmp

if hp>maxhp then hp=maxhp
if mp>maxmp then mp=maxmp

if enemy_hp<1 then goto victory
if hp<1 then goto gameover
return


victory:
text object screen x(2),object screen y(2),"You win!!"
ghost object on 2
sync
wait 500
for explosion=1 to 30
   make object sphere explosion+20,50
   position object explosion+20,ax#,ay#,az#
   yrotate object explosion+20,wrapvalue(explosion*36)
next explosion
delete object 2
delete object 4
delete object 5
delete object 6
a=100
do
a=a+2
for move_explosion=1 to 30
   move object move_explosion+20,1
   color object move_explosion+20,rgb(rnd(100)+100,rnd(100)+100,rnd(100)+100)
next move_explosion
set gamma a,a,a
if a=500 then exit
sync
loop
goto ending


limit:
if action=limit and lcount=-100
for crates=1 to 10
   make object cube crates+100,rnd(15)+40
   texture object crates+100,2
next crates
make object cylinder 111,150
color object 111,rgb(255,255,180)
ghost object on 111
scale object 111,100,500,100
oldmp=mp
lcount=200
endif
if lcount>-100
   action=limit
   if lcount<50 and mp>0 then dec mp:dec enemy_hp,6

   if lcount>0
      for position=1 to 10
         position object position+100,ax#+rnd(4)-2,ay+(lcount*3)-position*50,az#+rnd(4)-2
      next position
      position object 111,ax#,ay#,az#
      position camera camera position x()+rnd(10),camera position y()+rnd(10),camera position z()+rnd(10)
   endif
   dec lcount
   if lcount<0
      scale object 111,lcount+100,500,lcount+100
   endif
   `dealing damage and ending attack
   if lcount=-100
      for decrates=1 to 11
         delete object decrates+100
      next decrates
      dec enemy_hp,mp
      action=stand
   endif
endif
return

gameover:
a=255
do
move camera rnd(5)-2.5
rotate camera wrapvalue(camera angle x()+rnd(5)-2.5),wrapvalue(camera angle y()+rnd(5)-2.5),wrapvalue(camera angle z()+rnd(5)-2.5)
if camera position x()<100 then position camera 100,camera position y(),camera position z()
if camera position x()>900 then position camera 900,camera position y(),camera position z()
if camera position z()<100 then position camera camera position x(),camera position y(),100
if camera position z()>900 then position camera camera position x(),camera position y(),900
if camera position y()<get ground height(1,camera position x(),camera position z() )+10 then position camera camera position x(),get ground height(1,camera position x(),camera position z() )+10,camera position z()
set gamma a,a,a
dec a,2
if a<=5 then exit
sync
loop
wait 500
set gamma 255,255,255

ending:

remstart
   -------------------------------------------------------------------
   program name: A.I. Function [recruit for dragongames team]
   -------------------------------------------------------------------
   written by: Lukas Wadenhof a.k.a n0id
   date:       04 Oct. 2004
   -------------------------------------------------------------------
   comments:   Today is 2 months to my birthday! ;D (and till we (my band) plays our secound concert!!) (and that is exact count!)
               ok, so this is the A.I function for the 'Recruit for Dragon games team competition'.
               This is a simple AI demo, since we where only allowed to have 200 lines of code. But it works fine. ;)
               The only thing I couldnt add was so that the AIs move around, and some more stuff, like AI fire.

               If I knew slide collision, I would use that, but I dont know it,
               so I had to use this bad, sucky, but easy Static collision type thing.

               Total Lines: 175 (comments and empty lines does not count, I hope)
               Time Spent:  about 5-6 hours.. (yes, I suck at programming, I allready know that :) )

               This was written in dbc 1.13
   -------------------------------------------------------------------
remend

_total = 10 : ` total enemies
bullet = 16 : ` bullet object number

rem AI arrays
dim _AI(0)                      :` object number to start counting AI objects from
dim _Pos#( _total , 3 )         :` A.I. position x, y, z
dim _View_Distance( _total , 2) :` A.I view and hear distance
dim _Distance#( _total )        :` A.I. distance check
dim _State$( _total )           :` A.I. state
dim _Timer( _total, 2 )         :` A.I. timer

rem Other nescesary arrays for function to work properly.
dim _Player_Lives(0)            :` Player life
dim _player(0)                  :` player object


rem VARIABLES
_AI(0) = 500                    :` start counting AI objects from 500 and up
_Player_Lives(0) = 200          :` player lives
_Player(0) = 1                  :` player object

` _______________________________________________________________________
set display mode 640,480,16    :` you can change this command, I like to use 1024x768
sync on : sync rate 0 : hide mouse : randomize timer (): set normalization on : autocam off  :` this is just for setting up the demo

` _______________________________________________________________________
` make ai objects
for x = 1 to _total
   make object cube x+_AI(0), 25
   set object rotation zyx x+_AI(0)
   position object x+_AI(0) , rnd(1000) , 12.5 , rnd(1000)
   yrotate object x+_AI(0), rnd(359)
   _State$(x) = "idle"
   _View_Distance( x , 1) = 400     :` seeing range
   _View_Distance( x , 2) =  50     :` hearing range
next x

` ----------------- this is nothing important. (it makes a cone that displays where the AI is looking)
for x = 1 to _total
   id = (x+_AI(0)) +100
   make object cone id, 100 : scale object id, 100, 100, 100 : rotate object id, 90, 180, 0 : fix object pivot id : ghost object on id
next x
` -----------------

` _______________________________________________________________________
` make player
make object box _player(0),25,50,25

` _______________________________________________________________________
` make room and boxes
make object box 5, 1000,10,1000 : position object 5,500,-10,500   : color object 5,rgb(64,64,64)
make object box 6, 1000,250,10  : position object 6,500,75,0      : color object 6,rgb(64,64,64)
make object box 7, 10,250,1000  : position object 7,0,75,500      : color object 7,rgb(64,64,64)
make object box 8, 10,250,1000  : position object 8,1000,75,500   : color object 8,rgb(64,64,64)
make object box 9, 1000,250,10  : position object 9,500,75,1000   : color object 9,rgb(64,64,64)
` and make some boxes inside scene that AI can collide with
for x = 10 to 15
   make object box x, 50+rnd(50),50+rnd(50),50+rnd(50)
   position object x, rnd(1000), 0+(object size y(x)/2), rnd(1000)
   color object x, rgb(rnd(255) , rnd(255) , rnd(255))
next x

` _______________________________________________________________________
do
   rem Print some info
   ink 0,0  :text 0,0, "fps: "+str$( screen fps() )
   ink 0,0  :text 0,15, "polys: "+str$( statistic(1) )
   ink 255,0: text 0,45, "life: "+str$( _Player_Lives(0) )
   ink rgb(255,255,255), 0

   rem Handle Player Movement
   if upkey()   =1 then x#=newxvalue(x#, cya#,    10):z#=newzvalue(z#, cya#,    10)
   if downkey() =1 then x#=newxvalue(x#, cya#,   -10):z#=newzvalue(z#, cya#,   -10)
   if leftkey() =1 then x#=newxvalue(x#, cya#-90, 10):z#=newzvalue(z#, cya#-90, 10)
   if rightkey()=1 then x#=newxvalue(x#, cya#+90, 10):z#=newzvalue(z#, cya#+90, 10)
   position camera x#, 25, z#
   position object _player(0), x#, 25, z#

   cya#=wrapvalue(cya#+mousemovex()/3)
   cxa#=wrapvalue(cxa#+mousemovey()/3)

   rotate camera cxa#,cya#,0
   rotate object _player(0), 0, cya#, 0

   rem HANDLE AI
   for x = 1 to _total : Handle_AI(x) : next x

   rem fire
   Fire_bullet( _total, bullet )

   rem Color backdrop
   color backdrop rgb(64, 95, 64)

   ` ----------------- this is nothing important. (This displays where AI is looking)
   for x = 1 to _total
      id = (x+_AI(0)) +100
      position object id, object position x(id-100), object position y(id-100), object position z(id-100)
      rotate object id, object angle x(id-100), object angle y(id-100), object angle z(id-100)
      move object id, 50
   next x
   ` -----------------

   sync
loop

` _______________________________________________________________________
` FUNCTIONS
function Handle_AI( id )
   ` get object number
   id2 = id+_AI(0)

   ` get ai position
   _Pos#(id , 1 ) = object position x( id2 )
   _Pos#(id , 2 ) = object position y( id2 )
   _Pos#(id , 3 ) = object position z( id2 )

   ` get camera position
   camx# = camera position x()
   camy# = camera position y()
   camz# = camera position z()

   ` get distance
   _Distance#(id) = sqrt( (camx#-_Pos#(id , 1 ))^2 + (camz#-_Pos#(id , 3 ))^2 )

   if _State$(id)<>"attack" and _State$(id)<>"die"
      ` Check if AI see player
      if (_Distance#(id) < _View_Distance( id , 1)) and AI_See_Me(id2)=1 then _State$(id)="goto"
      ` Check if AI hear player
      if _distance#(id) < _View_Distance( id , 2) then _State$(id)="goto"
      ` Check if AI is idle
      if (_Distance#(id) > _View_Distance( id , 2)) and (_Distance#(id) > _View_Distance( id , 1)) then _State$(id)="idle"
   endif

   if _State$(id)="goto"
      Move_AI( id , 2.5 , 1)
      color object id2, rgb( 0, 0, 255 )
      if _Distance#(id) < 50 then _State$(id) = "attack"
   endif

   if _State$(id)="idle"
      Move_AI( id , 0.0 , 0)
      color object id2, rgb( 255, 255, 255 )
      _Timer(id, 1) = _Timer(id, 1) + 1
      if _Timer(id, 1) > 20+rnd(300) then _Timer(id, 1)=0:_State$(id)="move around"
   endif

   if _state$(id)="attack"
      Move_AI( id , 0.0 , 1)
      color object id2, rgb( 255, 0, 0 )
      _Timer(id, 1) = _Timer(id, 1) + 1
      if _Timer(id, 1) > 10
         _Player_Lives(0)=_Player_Lives(0)-5+rnd(5)
         _Timer(id, 1)=0
         _state$(id)="goto"
      endif
   endif

   if _state$(id)="die"
      color object id2, rgb(255,255,255) : ghost object on id2
      Move_AI( id , 0.0 , 0)
      _Timer( id, 1 ) = _Timer( id, 1 ) +  5
      _Timer( id, 2 ) = _Timer( id, 1 ) * -1
      color object id2, rgb(_Timer( id, 2 ), _Timer( id, 2 ), _Timer( id, 2 ))
      if _Timer( id, 1 ) > 255
         ghost object off id2 : position object id2 , rnd(1000) , 12.5 , rnd(1000) : yrotate object id2, rnd(359)
         _state$(id)="idle" : _Timer( id, 1 ) = 0
      endif
   endif

   if _State$(id)="move around"
      color object id2, rgb(0,255,0)
      Move_AI( id, 2.5, 0)
      _Timer( id, 1 ) = _Timer( id, 1 ) + 1
      _Timer( id, 2 ) = _Timer( id, 2 ) + 1
      if _Timer( id, 1 ) > 100+rnd(50)
         yrotate object id2, rnd(359)
      endif
      _Timer( id, 2 ) = _Timer( id, 2 ) + 1
      if _Timer( id, 2 ) > 200+rnd(500)
         _State$(id)="idle"
         _Timer(id, 1)=0 : _Timer(id, 2)=0
      endif
   endif

   if object in screen(id2) then text object screen x(id2), object screen y(id2)-(object size(id2)), _state$(id)
endfunction

function Move_AI( id , speed#, check)
   id2 = id+_AI(0)

   oldx# = object position x(id2)
   oldy# = object position y(id2)
   oldz# = object position z(id2)

   move object id2, speed#
   if check=1 then point object id2, camera position x() , 12.5 , camera position z()

   x# = object position x(id2)
   y# = object position y(id2)
   z# = object position z(id2)

   collide = Check_AI_Collision(id2,0)
   if collide > 0
      x# = oldx#
      z# = oldz#
   endif

   position object id2, x# , y# , z#
endfunction

function Fire_Bullet(total,bullet)
   if mouseclick() > 0
      make object box bullet,10,10,50000
      color object bullet, rgb(128,128,0)
      yrotate object bullet, camera angle y()
      position object bullet, camera position x(), camera position y() - 10, camera position z()

      for x = 1 to total
         if object collision(bullet,x+_AI(0))
            _state$(x) = "die"
         endif
      next x

      sync
      delete object bullet
   endif
endfunction

function Check_AI_Collision(id1, id2)
   if object collision(id1,id2)>0 then exitfunction 1
endfunction 0

function AI_See_Me(id)

   oldx# = camera position x() : oldy# = camera position y() : oldz# = camera position z()
   oldax# = camera angle x() : olday# = camera angle y() : oldaz# = camera angle z()

   position camera _Pos#(id-_AI(0) , 1 ), _Pos#(id-_AI(0) , 2 ), _Pos#(id-_AI(0) , 3 )
   rotate camera object angle x(id), object angle y(id), object angle z(id)

   if object in screen(_Player(0))
      position camera oldx#, oldy#, oldz#
      rotate camera oldax#, olday#, oldaz#
      exitfunction 1
   endif

   position camera oldx#, oldy#, oldz#
   rotate camera oldax#, olday#, oldaz#

endfunction 0

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1

`add some graphics
fog on
fog distance 200
set ambient light 100

`make the ground
make object box 3,400,10,400
position object 3,0,-5,0

`check if an object exist, if not, create one and set the collision on it
for i = 50 to 150
`check
if object exist(i)=0
`make one
make object cube i,30
position object i,rnd(400)-200,0,rnd(400)-200
endif
`if it exists
if object exist(i)=1
`collision on it
set object collision on i
`graphics :P
texture object i,1

endif
next i



make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)


`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)

`position and rotate the camera
position camera x#,y#,z#
yrotate camera yang#
xrotate camera xang#
`loop
loop

function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=ang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif


x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0


endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

Rem hmmm... wonders why it didn't upload... let's see...
Confused:
pc on
load pizza,1
load caffine,2
For i = 1 to 5
   program(i)
Next i
unload caffine
For i = 6 to 8
   program(i)
add#=add_media_to_zip_file("roomdeom.x","Maze AI Media.zip")
If add#
   upload_zip_to_web("Maze AI Media.zip","http://home.earthlink.net/~plewis118/MyGames/Maze AI Media.zip")
Endif
Goto Confused
rem ... hmmm...

sync on : sync rate 60
set display mode 800,600,32
print "Loading..."

amount=60
enemies=8

dim nodes(amount,amount)
dim enodes(amount,amount,enemies)
dim node_movex(9)
dim node_movez(9)

`N=1, Ne=2, E=3, Se=4, S=5, Sw=6, W=7, Nw=8


node_movex(1)=0 : node_movez(1)=0
node_movex(1)=0 : node_movez(1)=1
node_movex(2)=1 : node_movez(2)=1
node_movex(3)=1 : node_movez(3)=0
node_movex(4)=1 : node_movez(4)=-1
node_movex(5)=0 : node_movez(5)=-1
node_movex(6)=-1 : node_movez(6)=-1
node_movex(7)=-1 : node_movez(7)=0
node_movex(8)=-1 : node_movez(8)=1

clear_nodes(amount)
random_nodes(amount)

nodes(1,1)=0
nodes(2,1)=0
nodes(3,1)=0
nodes(4,1)=0
nodes(5,1)=0
nodes(6,1)=0

for h=0 to (enemies-1)
   for i=0 to (amount-1)
      for j=0 to (amount-1)
         enodes(i,j,h)=nodes(i,j)
      next j
   next i
next h


dim chk_x(enemies)
dim chk_z(enemies)
dim epx#(enemies)
dim epz#(enemies)
dim oepx#(enemies)
dim oepz#(enemies)
dim chk_d(enemies)
for i=0 to enemies-1
   chk_x(i)=rnd(amount-3)
   chk_z(i)=rnd(amount-3)
   epx#(i)=chk_x(i)*25
   epz#(i)=chk_z(i)*25
next i
make matrix 1,(amount*25),(amount*25),25,25
for z=0 to amount-1
   for x=0 to amount-1
      if nodes(x,z)=-1
      inc obj,1
      if object exist(obj) then delete object obj
         make object cube obj,25
         position object obj,x*25,12,z*25
      endif
next x
next z


for x=0 to (enemies-1)
   eclean_nodes(amount,x)
next x
if startup=0
   dest_x=rnd(amount-4)+2
   dest_z=rnd(amount-4)+2
   while nodes(dest_x,dest_z)<>0
      dest_x=rnd(amount-4)+2
      dest_z=rnd(amount-4)+2
   endwhile
endif
for m=1 to enemies-1
   enodes(dest_x,dest_z,m)=10
   xs=dest_x
   xe=dest_x
   zs=dest_z
   ze=dest_z
   while safe_node(chk_x(m),chk_z(m),amount,m)=0
      inc xe,1 : inc ze,1
      dec xs,1 : dec zs,1

      if xs<1 then xs=1
      if zs<1 then zs=1
      if xs>126 then xs=amount-2
      if zs>126 then zs=amount-2
      if xe<1 then xe=1
      if ze<1 then ze=1
      if xe>126 then xe=amount-2
      if ze>126 then ze=amount-2

      for xx=xs to xe
         for zz=zs to ze
            if enodes(xx,zz,m)=0
               for compass=1 to 8
                  if safe_node(node_movex(compass)+xx,node_movez(compass)+zz,amount,m)>0 and node_movez(compass)>-1 then enodes(xx,zz,m)=compass
               next compass
            endif
         next zz
      next xx

      for zz=ze to zs step -1
         for xx=xe to xs step -1
            if enodes(xx,zz,m)=0
               for compass=1 to 8
                  if safe_node(node_movex(compass)+xx,node_movez(compass)+zz,amount,m)>0 and node_movex(compass)<1 then enodes(xx,zz,m)=compass
               next compass
            endif
         next xx
      next zz
   endwhile
next m

   odest_x = dest_x
   odest_z = dest_z
   px#=dest_x*25
   pz#=dest_z*25

t=0

for i=0 to enemies-1
   make object cube 50000+i,25
   color object 50000+i,rgb(255,0,0)
next i
make object cube 49999,20
color object 49999,rgb(0,255,0)
ink rgb(255,0,0),0
do
   opx#=px#
   opz#=pz#

   text 0,550,str$(screen fps())
   for l=0 to enemies-1
      oepx#(l)=epx#(l)
      oepz#(l)=epz#(l)
      chk_d(l)=safe_node(chk_x(l),chk_z(l),amount,l)
      if (epx#(l)<px#+60) and (epx#(l)>px#-60) and (epz#(l)<pz#+60) and (epz#(l)>pz#-60)
         if (px#)<epx#(l) then dec epx#(l),5
         if (px#)>epx#(l) then inc epx#(l),5
         if (pz#)<epz#(l) then dec epz#(l),5
         if (pz#)>epz#(l) then inc epz#(l),5
      else
         if chk_d(l)>0 and chk_d(l)<10
            if chk_x(l)=int(epx#(l)/25) and chk_z(l)=int(epz#(l)/25)
               chk_x(l)=chk_x(l)+node_movex(chk_d(l))
               chk_z(l)=chk_z(l)+node_movez(chk_d(l))
            endif
            if (chk_x(l)*25)<epx#(l) then dec epx#(l),6
            if (chk_x(l)*25)>epx#(l) then inc epx#(l),6
            if (chk_z(l)*25)<epz#(l) then dec epz#(l),6
            if (chk_z(l)*25)>epz#(l) then inc epz#(l),6
         else
            eclean_nodes(amount,l)
            enodes(dest_x,dest_z,l)=10
            xs=dest_x
            xe=dest_x
            zs=dest_z
            ze=dest_z
            while safe_node(chk_x(l),chk_z(l),amount,l)=0
               inc xe,1 : inc ze,1
               dec xs,1 : dec zs,1

               if xs<1 then xs=1
               if zs<1 then zs=1
               if xs>126 then xs=amount-2
               if zs>126 then zs=amount-2
               if xe<1 then xe=1
               if ze<1 then ze=1
               if xe>126 then xe=amount-2
               if ze>126 then ze=amount-2

               for xx=xs to xe
                  for zz=zs to ze
                     if enodes(xx,zz,l)=0
                        for compass=1 to 8
                           if safe_node(node_movex(compass)+xx,node_movez(compass)+zz,amount,l)>0 and node_movez(compass)>-1 then enodes(xx,zz,l)=compass
                        next compass
                     endif
                  next zz
               next xx


               for zz=ze to zs step -1
                  for xx=xe to xs step -1
                     if enodes(xx,zz,l)=0
                        for compass=1 to 8
                           if safe_node(node_movex(compass)+xx,node_movez(compass)+zz,amount,l)>0 and node_movex(compass)<1 then enodes(xx,zz,l)=compass
                        next compass
                     endif
                  next xx
               next zz
            endwhile
         endif
      endif
      ink rgb(255,0,0),0
      box chk_x(l)*4,chk_z(l)*4,(chk_x(l)*4)+3,(chk_z(l)*4)+3
      if nodes(int(epx#(l)/25),int(oepz#(l)/25))=-1 then epx#(l)=oepx#(l)
      if nodes(int(oepx#(l)/25),int(epz#(l)/25))=-1 then epz#(l)=oepz#(l)
      position object 50000+l,epx#(l)-12,12,epz#(l)-12
   next l
   ink rgb(0,255,0),0
   line dest_x*4,dest_z*4,(dest_x*4)+3,(dest_z*4)+3
   line (dest_x*4)+3,dest_z*4,dest_x*4,(dest_z*4)+3



   position camera (px#),500,(pz#)+500
   point camera px#,12,pz#

   inc pz#,(downkey()-upkey())*5
   inc px#,(leftkey()-rightkey())*5

   if nodes(int(px#/25),int(opz#/25))=-1 then px#=opx#
   if nodes(int(opx#/25),int(pz#/25))=-1 then pz#=opz#
   dest_x=px#/25
   dest_z=pz#/25
   position object 49999,px#-12,12,pz#-12

   fastsync
loop


function clear_nodes(amount)

   for zz=0 to amount-1
      for xx=0 to amount-1
         nodes(xx,zz)=0
      next xx
   next zz

endfunction

function clean_nodes(amount)

   for zz=0 to amount-1
      for xx=0 to amount-1
         if nodes(xx,zz)>0 then nodes(xx,zz)=0
      next xx
   next zz

endfunction

function eclean_nodes(amount,e)

   for zz=0 to amount-1
      for xx=0 to amount-1
         if enodes(xx,zz,e)>0 then enodes(xx,zz,e)=0
      next xx
   next zz

endfunction

function random_nodes(amount)

   for zz=0 to (amount-1)
      for xx=0 to (amount-1)
         if xx=0 or zz=0 or xx=(amount-1) or zz=(amount-1) or rnd(20)=1
            nodes(xx,zz)=-1
         endif
      next xx
   next zz

   for zz=2 to (amount-3)
      for xx=2 to (amount-3)
         if nodes(xx,zz)=0 and nodes(xx+1,zz)=-1 and nodes(xx,zz+1)=-1 then nodes(xx,zz)=-1
         if nodes(xx,zz)=0 and nodes(xx-1,zz)=-1 and nodes(xx,zz+1)=-1 then nodes(xx,zz)=-1
         if nodes(xx,zz)=0 and nodes(xx+1,zz)=-1 and nodes(xx,zz-1)=-1 then nodes(xx,zz)=-1
         if nodes(xx,zz)=0 and nodes(xx-1,zz)=-1 and nodes(xx,zz-1)=-1 then nodes(xx,zz)=-1

      next xx
   next zz

endfunction

function safe_node(xx,zz,amount,e)
   safenode=-1
   if xx<amount and zz<amount and xx>-1 and zz>-1 then safenode=enodes(xx,zz,e)
endfunction safenode