Sorry your browser is not supported!

SYNC ON:SYNC RATE 0:HIDE MOUSE

load object "media/school/school.x", 1

do

`Camera Positioning
POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
`Movement Controls
IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,.5
IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-.5
IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,.3
IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,.3
`Mouse Camera Movement
CAMY#=CAMY#+MOUSEMOVEX()*.1
CAMX#=CAMX#+MOUSEMOVEY()*.1
IF CAMX#>90 AND CAMX#<135 THEN CAMX#=90
IF CAMX#>270 AND CAMX#<225 THEN CAMX#=90
YROTATE CAMERA CAMY#
XROTATE CAMERA CAMX#
YROTATE OBJECT 1,CAMY#
XROTATE OBJECT 1,CAMX#

SYNC
LOOP

   rotate camera camera angle x()+(mousemovey()/2),camera angle y()+(mousemovex()/2.0),0

   If keystate(17)=1 then move camera 0.5
   If keystate(31)=1 then move camera -0.5

   If keystate(30)=1
      Yrotate camera Camera angle Y()-90
      Move camera 0.5
      Yrotate camera Camera angle Y()+90
   endif

   If keystate(32)=1
      Yrotate camera Camera angle Y()+90
      Move camera 0.5
      Yrotate camera Camera angle Y()-90
   endif

   if wrapvalue(camera angle x())>40 and wrapvalue(camera angle x())<180 then xrotate camera 40
   if wrapvalue(camera angle x())>180 and wrapvalue(camera angle x())<280 then xrotate camera 280

do
Angle#=Object Angle Y(player)
Dist#=40.0
Height#=10.0
Smooth#=20.0
Collision=1

Set Camera To Follow Player, Angle#, Dist#, Height#, Smooth#, Collision

sync

loop