This should do what you want:
sync on
sync rate 60
hide mouse
make object box 100,1000,10,1000
make object sphere 10,30
make object box 11,30,120,30
position object 10,0.0,19.0,0.0
position object 11,60.0,60.0,0.0
color object 10,rgb(0,255,54)
color object 11,rgb(0,54,255)
color object 100,rgb(200,0,0)
position camera 0.0,7.25,-200
point camera 0.0,7.25,0.0
repeat
control camera using arrowkeys 0,1,2
if keystate(44) = 1 : ` Z
` strafe left
y# = camera angle y()
yrotate camera wrapvalue(y# - 90.0)
move camera 5
yrotate camera y#
endif
if keystate(45) = 1 : ` X
` strafe right
y# = camera angle y()
yrotate camera wrapvalue(y# + 90.0)
move camera 5
yrotate camera y#
endif
sync
until spacekey() = 1
show mouse
end
Use the Z key to strafe left. Use the X key to strafe right.
LB
