camera navigation

Jeg har fået følgende script til at ligge på min 3d sprite for at kunne navigere rundt med cameraet. Scriptet skulle være bedre end dem i libaryen...

nå, men her er det så håber nogle kan genneskue fejlen:

........................................................
property pWorld
property pMouseIsDown
property pOldMouseLoc
property pCamera
property pHorizGroup
property pVertGroup

on beginsprite me
pWorld=sprite(me.spritenum).member
pCamera=sprite(me.spritenum).camera
pHorizGroup=pWorld.newgroup("HorizCamera")
pVertGroup=pWorld.newgroup("VertGroup")
pVertGroup.addChild(pCamera, #preserveWorld)
pHorizGroup.addChild(pVertGroup, #preserveWorld)

end

on mousedown me

pMouseIsDown=1

end

on mouseup me

pMouseIsDown=0

end


on exitframe me

if pMouseIsDown then

RotateCamera

end if

pOldMouseLoc=the mouseloc

end

on RotateCamera

tnewMouseLoc= the mouseloc
tDelta=tnewMouseLoc-pOldMouseLoc
pHorizGroup.rotate(0,-tDelta[1],0)
pVertGroup.rotate(-tDelta[2],0,0)

end

...................................................