Sorry your browser is not supported!

Type Coordinates
   x as Float
   y as Float
   z as Float
EndType

Global Object as Coordinates
Global Camera as Coordinates
Global AI as Coordinates

Sync On

Sync Rate 100

Autocam Off

Make Matrix 1,1000,1000,50,50

`player
Make Object Sphere 1,20
Position Object 1,500,0,500

`AI Object
`Note: Just as my own standard, I always use Object #2 as the AI Object (for no reason, just because).
Make Object Sphere 2,1,8,8
Hide Object 2


Do
   Turn Object Left 1,LeftKey()-RightKey()
   Move Object 1,Upkey()-DownKey()
   Camera_Follow(1)
   Sync
Loop


Function Camera_Follow(ObjectID)
   Return_Object(ObjectID)
   Position Object 2,Object.x,Object.y,Object.z
   Set Object To Object Orientation 2,1
   Move Object 2,-80
   Pitch Object Up 2,90
   Move Object 2,60
   Return_AI()
   Position Camera AI.x,AI.y,AI.z
   Point Camera Object.x,Object.y,Object.z
EndFunction


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

Function Return_Camera()
Camera.x=Camera Position X():Camera.y=Camera Position Y():Camera.z=Camera Position Z()
EndFunction

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

move_it:

speed#=0
 if upkey()=1 and downkey()=0 and leftkey()=0 and rightkey()=0 then speed#=1: Ang=0:` 1 Key
 if upkey()=0 and downkey()=1 and leftkey()=0 and rightkey()=0 then speed#=1: Ang=180:` 1 Key
 if upkey()=0 and downkey()=0 and leftkey()=1 and rightkey()=0 then speed#=1: Ang=270:` 1 Key
 if upkey()=1 and downkey()=0 and leftkey()=1 and rightkey()=0 then speed#=0.5: Ang=315:` NonOP Keys
 if upkey()=0 and downkey()=1 and leftkey()=1 and rightkey()=0 then speed#=0.5: Ang=225:` NonOP Keys
 if upkey()=0 and downkey()=0 and leftkey()=0 and rightkey()=1 then speed#=1:Ang=90:` 1 Key
 if upkey()=1 and downkey()=0 and leftkey()=0 and rightkey()=1 then speed#=0.5:Ang=45:` NonOP Keys
 if upkey()=0 and downkey()=1 and leftkey()=0 and rightkey()=1 then speed#=0.5:Ang=135:` NonOp Keys
 if upkey()=1 and downkey()=1 and leftkey()=0 and rightkey()=1 then speed#=0:` 3 Keys
 if upkey()=0 and downkey()=1 and leftkey()=1 and rightkey()=1 then speed#=0:` 3 Keys

 if speed#>0
  a#=wrapvalue(curveangle(camera angle y()+Ang,a#,5.0))
  x#=newxvalue(x#,a#,speed#)
  z#=newzvalue(z#,a#,speed#)
 endif
return

cameras:
 cx#=newxvalue(x#,wrapvalue(ca#+180),75)
 cz#=newzvalue(z#,wrapvalue(ca#+180),75)
 ca#=wrapvalue(curveangle(a#,ca#,100.0))
return