Sorry, here.
sync on
sync rate 0
ink rgb(255,255,255),1
AUTOCAM OFF
Make_World("C:\M1.BMP",150,400,50,25,1,1)
Create_Block(1,10,0,0,0)
Create_Block(2,10,0,0,350)
Set_Camera(0,200,-30,0,0,200)
REM START MAIN LOOP
do
IF MOUSEMOVEY() < 0.0
Move_Camera(0,1,0)
ENDIF
IF MOUSEMOVEY() > 0.0
Move_Camera(0,-1,0)
ENDIF
IF MOUSEMOVEX() > 0.0
Move_Camera(1,0,0)
ENDIF
IF MOUSEMOVEX() < 0.0
Move_Camera(-1.0,0,0)
ENDIF
REM DISPLAY CURRENT MOUSE RESULTS
set cursor 10,10
PRINT "Current Mouse X:" + STR$(MOUSEX())
set cursor 10,20
PRINT "Current Mouse Y:" + STR$(MOUSEY())
set cursor 10,30
PRINT "Current Mouse Z:" + STR$(MOUSEZ())
set cursor 10,40
PRINT "Difference Y:" + STR$(MOUSEMOVEY())
set cursor 10,50
PRINT "Difference X:" + STR$(MOUSEMOVEX())
set cursor 10,60
PRINT "Difference Z:" + STR$(MOUSEMOVEZ())
sync
loop
FUNCTION Make_World(TileSet$,SizeX,SizeY,xSet,ySet,num,iNum)
MAKE MATRIX num,SizeX,SizeY,xSet,ySet
POSITION MATRIX num,-(SizeX/2),0,0
LOAD IMAGE TileSet$,iNum
PREPARE MATRIX TEXTURE num,iNum,2,2
ENDFUNCTION
FUNCTION Set_Camera(X,Y,Z,pX,pY,pZ)
position camera x,y,z
point camera pX,pY,pZ
ENDFUNCTION
FUNCTION Create_Block(num,size,x,y,z)
make object sphere num,size
position object num,x,y,z
set object collision on num
point object num,0,0,1
automatic object collision num,5,1
ENDFUNCTION
FUNCTION Move_Camera(pX,pY,pZ)
IF pY > 0.0
pitch camera up pY
set cursor 10,70
PRINT "pY Value:" + STR$(pY) + " So Move UP"
ENDIF
IF pY < 0.0
pitch camera up pY
set cursor 10,70
PRINT "pY Value:" + STR$(pY) + " So Move DOWN"
ENDIF
IF pX > 0.0
turn camera right pX
set cursor 10,70
PRINT "pX Value:" + STR$(pX) + " So Move RIGHT"
ENDIF
IF pX < 0.0
turn camera left ABS(pX)
set cursor 10,70
PRINT "pX Value:" + STR$(pX) + " So Move LEFT"
ENDIF
ENDFUNCTION