09/08/01 15:22:06 lwzDFPGf
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