Sorry your browser is not supported!

`This sets the distance from the center of the screen to the mouse. 
`To decide how fast the ship will rotate
pHm# = (sWc - mousex())
pVm# = ((sHc - mousey()) * (0-1))

`Rotates the ship to match the mouse, this stuff works.
`The ship moves properly
turn object left 1,(pHm# / 9000)
pitch object up 1,(pVm# / 9000)

position camera object position x(1),object position y(1),object position z(1)
set object to camera orientation 1

rotate camera object angle x(1),object angle y(1),object angle z(1)

`This sets the distance from the center of the screen to the mouse. 
`To decide how fast the ship will rotate
pHm# = (sWc - mousex())
pVm# = ((sHc - mousey()) * (0-1))

`Rotates the ship to match the mouse, this stuff works.
`The ship moves properly
turn object left 1,(pHm# / 9000)
pitch object up 1,(pVm# / 9000)

Position Camera Object Position X(1),Object Position Y(1)+35,Object Position Z(1)
Rotate Camera Object Angle X(1),Object Angle Y(1), Object Angle Z(1)
Move Camera -(100)

autocam off:hide mouse
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(30,255,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1

sync on
arma=20
bala=21
make object box 1,3000,1,3000
texture object 1,1
scale object texture 1,3,3

make object box arma,2,2,10
make object box bala,1,1,20:color object bala,rgb(200,0,0):hide object bala
make object sphere 3,30
position object 3,600,20,600

do
gosub _controla_camara
gosub bala
if object collision(bala,3)=1 then position object 3,300+rnd(1000),10,300+rnd(1000)
sync
loop

_controla_camara:
rem Controla la cámara con las teclas de flechas(alante y atras )
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)

`nos desplazamos lateralmente a la izquierda (cursor derecho)
if leftkey()=1 THEN x#=NEWXVALUE(x#,a#-90,1)
if leftkey()=1 then z#=NEWZVALUE(z#,a#-90,1)
`nos desplazamos lateralmente a la derecha (cursor izquierdo)
if rightkey()=1 THEN x#=NEWXVALUE(x#,a#-90,-1)
if rightkey()=1 then z#=NEWZVALUE(z#,a#-90,-1)
a#=wrapvalue(a#+mousemovex())
cam#=wrapvalue(cam#+mousemovey())


`limitamos el subir y bajar la cabeza con el raton(vista de camara)
if cam#<=290 and cam#>180 then cam#=290
if cam#>=70 and cam#<180 then cam#=70

rem posicion de la camara mas el arma y el objeto bala
position camera x#,145,z#
position object arma,x#,145,z#
position object bala,x#,145,z#

rotate object arma,cam#,a#,0
rotate object bala,cam#,a#,0
rotate camera cam#,a#,0

move object arma,15
move object right arma,3
move object down arma,3

move object bala,15
move object right bala,3
move object down bala,3

return

bala:
set cursor 310,235:ink rgb(255,0,0),0
print " o"
`-------------------------------------------------------------
`HACEMOS QUE EL OBJETO BALA, SALGA DESDE EL ARMA
if dispara=0
set object to object orientation bala,arma
endif
if mouseclick() and dispara=0
dispara=1
show object bala
endif

if dispara=1
la=la+10
run=run+1
move object bala,la
endif

if run>200
run=0
la=0
dispara=0
hide object bala
endif
return
`-------------------------------------------------------------

sync on : sync rate 60 : autocam off
make object cube 1,10
make object cube 2,10
position object 2,20,0,0
position camera 10,0,-50
do
   turn object left 1,1
   pitch object up 1,0.2
   roll object left 1,0.3
   rotate object 2,object angle x(1),object angle y(1),object angle z(1)
   text 0,0,"AX="+str$(object angle x(1))
   text 0,20,"AY="+str$(object angle y(1))
   text 0,40,"AZ="+str$(object angle z(1))
   sync
loop