rem フリーカメラ set dir "files" load static objects "levelbank\testlevel\universe.dbo",1 make object cube 100,10 `position camera 42,565,-80 sync on : sync rate 0 while escapekey()=0 set cursor 10,50 print CAMERA POSITION X()," : ",CAMERA POSITION y()," ; ",CAMERA POSITION z() CONTROL CAMERA USING ARROWKEYS 0,1,1 if shiftkey() then y#=y#+1 if CONTROLKEY() then y#=y#-1 POSITION CAMERA CAMERA POSITION X(), Y#, CAMERA POSITION z() sync endwhile end
