Hallo piki....I made a code for you...i hope you like it...
Cheerz.
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())
rotate camera cam#,0,0
`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
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
yrotate camera a#
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
`-------------------------------------------------------------
oh my god
