rem First-person camera: mouse look - OpenDBC tutorial (DarkBASIC Professional)
sync on : sync rate 60
autocam off
hide mouse
color backdrop rgb(140, 180, 225)

make object box 1, 600, 1, 600
color object 1, rgb(70, 115, 70)
for n = 2 to 40
   make object cube n, 10 + rnd(10)
   position object n, rnd(400) - 200, 8, rnd(400) - 200
   color object n, rgb(150 + rnd(60), 120 + rnd(40), 80)
next n
position camera 0, 12, 0

do
   yaw# = wrapvalue(yaw# + mousemovex() * 0.2)
   pitch# = pitch# + mousemovey() * 0.2
   if pitch# > 80 then pitch# = 80
   if pitch# < -80 then pitch# = -80
   rotate camera pitch#, yaw#, 0
   text 10, 10, "Move the mouse to look around, Escape to quit"
   sync
loop