Sorry your browser is not supported!

 rem load gun

load object "media\mp5.dbo",3
  scale object 3,500,500,500
  yrotate object 3,180
   fix object pivot 3

  rem position gun
         position object 3, position x(),camera position y(),camera position z()
   rotate object 3,camera angle x(),camera angle y(),camera angle z()
      move object down 3,10
      move object right 3,10
      move object 3,13

_camera:

rem input
tkeystate30=0 : tkeystate32=0 : tkeystate17=0 : tkeystate31=0 : tkeystate57=0
if keystate(17) then tkeystate17=1
if keystate(31) then tkeystate31=1
if keystate(30) then tkeystate30=1
if keystate(32) then tkeystate32=1
if keystate(57) then tkeystate57=1
cammovex#=mousemovex()
cammovey#=mousemovey()


rem Camera old  position 
cox#=camera position x()
coy#=camera position y()
coz#=camera position z()


rem Control camara movement
movement=0 : speed#=3.0
x#=camera angle x() : z#=camera angle z() : sy#=camera angle y() : y#=sy#
if tkeystate30=1 then dec y#,90 : movement=1
if tkeystate32=1 then inc y#,90 : movement=1
rotate camera 0,y#,0
if tkeystate17=1 or tkeystate30=1 or tkeystate32=1 then move camera speed# : movement=1
if tkeystate31=1 then move camera speed#*-1.0 : movement=1
rotate camera x#,sy#,z#  

IF tkeystate57()=1 and Salto=0 THEN Salto=1
IF Salto=1
 FOR Salto=1 to 8
  inc CMY#,1
 NEXT Salto
Salto=0
ENDIF  

rem collision camera 

if static volume(cox#,coy#-10,coz#,cmx#,cmy#-10,cmz#,1.0)=1
 materialtype=get static collision value()
 cmx#=cox#+get static collision x()
 cmy#=coy#+get static collision y()
 cmz#=coz#+get static collision z()
 grav#=0.6
else
 inc grav#,0.6
endif 

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  //gun
bala=21  //bullet
make object box 1,3000,1,3000
texture object 1,1
scale object texture 1,3,3

make object box arma,1,1,10
make mesh from object 1,arma
make object cylinder 100,18
make mesh from object 2,100
delete object 100

add limb arma,1,1:offset limb arma,1,0,0,-8:scale limb arma,1,150,150,60
add limb arma,2,2:scale limb arma,2,12,50,7:rotate limb arma,2,90,0,0:offset limb arma,2,0,0,-10
color object arma,rgb(10,10,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:
`player controls (camera)
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)
if leftkey()=1 THEN x#=NEWXVALUE(x#,a#-90,1)
if leftkey()=1 then z#=NEWZVALUE(z#,a#-90,1)
if rightkey()=1 THEN x#=NEWXVALUE(x#,a#-90,-1)
if rightkey()=1 then z#=NEWZVALUE(z#,a#-90,-1)

`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
`controlamos la vista de camara
`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
   yrotate camera camera angle y()+(mousemovex()/10.0)
   xrotate camera camera angle x()+(mousemovey()/10.0)
a#=camera angle y()

`limitacion de la camara
if camera angle x() >60 then xrotate camera 60
if camera angle x() <-45 then xrotate camera -45
`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx


`updating camera, gun and bullets positions
position camera x#,145,z#
position object arma,x#,145,z#
position object bala,x#,145,z#


set object to camera orientation arma

`moving slightly the gun to its correct position (aprox.)
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 " +"
`-------------------------------------------------------------
`making bullet shoot where the gun ends
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
`--------------------------------------------------------

rem collision camera 

if static volume(cox#,coy#-10,coz#,cmx#,cmy#-10,cmz#,1.0)=1
 materialtype=get static collision value()
 cmx#=cox#+get static collision x()
 cmy#=coy#+get static collision y()
 cmz#=coz#+get static collision z()
 grav#=0.6
else
 inc grav#,0.6
endif  

rem carga el level
gdividetexturesize=0
universefile$="levelbank\testlevel\universe.dbo"
set dir "Files" 
load static objects universefile$,gdividetexturesize 

autocam off
rem carga el level
gdividetexturesize=0 : universefile$="levelbank\testlevel\universe.dbo"
set dir "Files" : load static objects universefile$,gdividetexturesize

rem posiciona camara
position camera 0, 50,55,-40
point camera 100,70,-100
set ambient light 0

rem Main loop
backdrop on : hide mouse
sync on : sync rate 55
disable escapekey


rem carga arma1
load object "media\mp5.dbo",3
 rem scale object 3,500,500,500
  yrotate object 3,180
   fix object pivot 3

while escapekey()=0

rem  datos en pantalla
  text 0,0," FPS: "+str$(screen fps())
   text 0,20," POLIGONOS: "+str$(statistic(1))
   text 0,40," Camara X: "+str$(camera position x())
   text 0,60," Camara Y: "+str$(camera position y())
   text 0,80," Camara Z: "+str$(camera position z())

 rem Control camera
 gosub _camera
 `
 rem SYNC
 sync
 `
endwhile

rem borra nivel
delete static objects

rem fin programa
end

_camera:

rem entrada del teclado tanto cursores como teclas a,s,d,w
tkeystate30=0 : tkeystate32=0 : tkeystate17=0 : tkeystate31=0 : tkeystate57=0
if keystate(17) or keystate(200) then tkeystate17=1
if keystate(31) or keystate(208) then tkeystate31=1
if keystate(30) or keystate(203) then tkeystate30=1
if keystate(32) or keystate(205) then tkeystate32=1
if keystate(57) then tkeystate57=1
cammovex#=mousemovex()
cammovey#=mousemovey()
if mouseclick()=1 then set static portals on : set static objects wireframe on
if mouseclick()=0 then set static portals off : set static objects wireframe off

rem Camara posicion vieja
cox#=camera position x()
coy#=camera position y()
coz#=camera position z()


rem Control camara movimiento
movement=0 : speed#=3.0
x#=camera angle x() : z#=camera angle z() : sy#=camera angle y() : y#=sy#
if tkeystate30=1 then dec y#,90 : movement=1
if tkeystate32=1 then inc y#,90 : movement=1
rotate camera 0,y#,0
if tkeystate17=1 or tkeystate30=1 or tkeystate32=1 then move camera speed# : movement=1
if tkeystate31=1 then move camera speed#*-1.0 : movement=1
rotate camera x#,sy#,z#

rem Camera nuevas posiciones
cmx#=camera position x()
cmy#=camera position y()-grav#
cmz#=camera position z()

rem colision de camara con el fondo
if static volume(cox#,coy#-10,coz#,cmx#,cmy#-10,cmz#,1.0)=1
 materialtype=get static collision value()
 cmx#=cox#+get static collision x()
 cmy#=coy#+get static collision y()
 cmz#=coz#+get static collision z()
 grav#=0.6
else
 inc grav#,0.6
endif

rem salto
if tkeystate57=1
cmy#=cmy#+5

endif

rem ajuste de tope de camara
if cmy#<-200.0 then cmy#=-200

rem Update camara
set point light 0,cmx#,cmy#,cmz#
position camera cmx#,cmy#,cmz#
 rem posiciona arma en la camara


rem Control vista de camara
camangx#=camera angle x()+cammovey#/1.5
camangy#=camera angle y()+cammovex#/1.5
if wrapvalue(camangx#)>85 and wrapvalue(camangx#)<180 then camangx#=85.0
if wrapvalue(camangx#)>180 and wrapvalue(camangx#)<275 then camangx#=275.0
rotate camera camangx#,camangy#,camera angle z()
position object 3,camera position x(),camera position y(),camera position z()
set object to camera orientation 3
  move object down 3,1.5
  move object right 3,1
  move object 3,2
return