I'm having problems with my side view mouse movement because it isn't accurate. The Camera can move and I would really like some help in getting the calculation correct.
Here's a picture of the program running
[img]
[/img]
Moving Camera
Rem Camera movement (Side view)
If mousex()<screen width()/1.75 and mousey()<screen height()/2
Rem Temp
If ShipBuildingObjSeleced>0 then set cursor 0,0 : print object position x(ShipBuildingObjSeleced),",",object position y(ShipBuildingObjSeleced),",",object position z(ShipBuildingObjSeleced)
Rem temp
If keystate(13) and camera position z(2)>92 then position camera 2,camera position x(2),camera position y(2),camera position z(2)-5 : point camera 2,camera position x(2),camera position y(2),0
If keystate(12) and camera position z(2)<992 then position camera 2,camera position x(2),camera position y(2),camera position z(2)+5 : point camera 2,camera position x(2),camera position y(2),0
If mousemovez()>0 then position camera 2,camera position x(2),camera position x(2),camera position z(2)-5 : point camera 2,camera position x(2),camera position y(2),0
If mousemovez()<0 then position camera 2,camera position x(2),camera position x(2),camera position z(2)+5 : point camera 2,camera position x(2),camera position y(2),0
If keystate(203) and camera position x(2)<576 then position camera 2,camera position x(2)+1,camera position y(2),camera position z(2) : point camera 2,camera position x(2),camera position y(2),0
If keystate(205) and camera position x(2)>-204 then position camera 2,camera position x(2)-1,camera position y(2),camera position z(2) : point camera 2,camera position x(2),camera position y(2),0
If keystate(200) and camera position y(2)<480 then position camera 2,camera position x(2),camera position y(2)+1,camera position z(2) : point camera 2,camera position x(2),camera position y(2),0
If keystate(208) and camera position y(2)>30 then position camera 2,camera position x(2),camera position y(2)-1,camera position z(2) : point camera 2,camera position x(2),camera position y(2),0
If keystate(19) then position camera 2,150,100,1057 : point camera 2,150,100,0
endif
Position on Mouse
Rem Side view move object
If mousex()<screen width()/2 then pick screen Mousex(),Mousey(),camera position z(2)
If Held=1 and mousex()<screen width()/2
x# = get pick vector x() + camera position x(2)
y# = get pick vector y() + camera position y(2)
position object ShipBuildingObjHeld,x#,y#,object position z(ShipBuildingObjHeld)
endif
[/center]
