Sorry your browser is not supported!

sync on
sync rate 60
hide mouse

make object box 1,10,10,10
color object 1,RGB(0,128,0)

make matrix 1,1000,1000,10,10
position matrix 1,0,-10,0

do

if keystate(200) = 1
   move object 1,2
endif

if keystate(208) = 1
   move object 1,-2
endif

if keystate(203) = 1
   yrotate object 1,object angle y(1)-2
endif

if keystate(205) = 1
   yrotate object 1,object angle y(1)+2
endif

`The camera code
rotate camera 0,0,0
position camera object position x(1),object position y(1)+10,object position z(1)
rotate camera object angle x(1),object angle y(1),object angle z(1)
move camera -20
`\\

sync
loop

sync on
sync rate 60


make object box 1,10,10,10
color object 1,RGB(0,128,0)

make matrix 1,1000,1000,10,10
position matrix 1,0,-10,0

do

if keystate(200) = 1
   move object 1,2
endif

if keystate(208) = 1
   move object 1,-2
endif

if mousemovex()<0
if object angle y(1)<6 then yrotate object 1,355
   yrotate object 1,object angle y(1)-5
endif

if mousemovex()>0
   yrotate object 1,object angle y(1)+5
endif

position mouse screen width()/2,screen height()/2


`The camera code
rotate camera 0,0,0
position camera object position x(1),object position y(1)+10,object position z(1)
rotate camera object angle x(1),object angle y(1),object angle z(1)
move camera -20
`\

sync
loop

Rem Project: movewithmouse
Rem Created: 26/11/2005 20:28:28

Rem ***** Main Source File *****

objectnumber=1000


gosub makehiddenobject
make object cube 1, 10
make object sphere 2,10
make object plain 3,100,100
rotate object 3,-90,0,0
make object cube 4,10

position object 2,0,10,0
position object 3,0,-6,0
position object 4,50,0,50
do

gosub moveview

loop



moveview:
if spacekey()=1 then camy#=0:camx#=0
CAMY#=CAMY#+MOUSEMOVEX()*.1
CAMX#=CAMX#+MOUSEMOVEY()*.1
`Position the camera at the dummy object's limb
   POSITION CAMERA LIMB POSITION X(objectnumber,1),LIMB POSITION Y(objectnumber,1),LIMB POSITION Z(objectnumber,1)
`Point the camera at the object to be looked at
   POINT CAMERA OBJECT POSITION X(objectnumber),OBJECT POSITION Y(objectnumber),OBJECT POSITION Z(objectnumber)
YROTATE OBJECT objectnumber,CAMY#
XROTATE OBJECT objectnumber,CAMX#
return

makehiddenobject:
MAKE OBJECT TRIANGLE objectnumber,0,0,0,0,0,0,0,0,0
`Make a mesh from the object
MAKE MESH FROM OBJECT 217,objectnumber
`Add a limb onto the object using the mesh we just made
ADD LIMB objectnumber,1,217:objectnumber,1,217
`Offset the limb 180 units away
OFFSET LIMB objectnumber,1,0,0,-180
`Hide the limb for lag reduction
HIDE LIMB objectnumber,1
`Hide the dummy object for lag reduction
HIDE OBJECT objectnumber

position object objectnumber,0,0,0

return

Rem Project: movewithmouse
Rem Created: 26/11/2005 20:28:28

Rem ***** Main Source File *****
global objectnumber camy# camx#
objectnumber=1000


gosub makehiddenobject
make object cube 1, 10
make object sphere 2,10
make object plain 3,100,100
rotate object 3,-90,0,0
make object cube 4,10

position object 2,0,10,0
position object 3,0,-6,0
position object 4,50,0,50


do

 moveview()

loop



function moveview()
if spacekey()=1 then camy#=0:camx#=0
CAMY#=CAMY#+MOUSEMOVEX()*.1
CAMX#=CAMX#+MOUSEMOVEY()*.1
`Position the camera at the dummy object's limb
   POSITION CAMERA LIMB POSITION X(objectnumber,1),LIMB POSITION Y(objectnumber,1),LIMB POSITION Z(objectnumber,1)
`Point the camera at the object to be looked at
   POINT CAMERA OBJECT POSITION X(objectnumber),OBJECT POSITION Y(objectnumber),OBJECT POSITION Z(objectnumber)
YROTATE OBJECT objectnumber,CAMY#
XROTATE OBJECT objectnumber,CAMX#
endfunction


makehiddenobject:
MAKE OBJECT TRIANGLE objectnumber,0,0,0,0,0,0,0,0,0:`261
`Make a mesh from the object
MAKE MESH FROM OBJECT 217,objectnumber:
`Add a limb onto the object using the mesh we just made
ADD LIMB objectnumber,1,217
`Offset the limb 700 units away
OFFSET LIMB objectnumber,1,0,0,-180:
`Hide the limb for lag reduction
HIDE LIMB objectnumber,1:
`Hide the dummy object for lag reduction
HIDE OBJECT objectnumber:

position object objectnumber,0,0,0
return