Sorry your browser is not supported!

make object cube 1, 20
position object 1, screen width()/2, screen height()/2, 50
point camera object position x(1), object position y(1), 50
make object cube, 2, 5
do
CameraFollow(1)
Move,W,A,S,D(1)
loop
function Move,W,A,S,D(objectnumber)
 if keystate(17)=1 then move object objectnumber, -1
 if keystate(31)=1 then move object objectnumber, 1
 if keystate(30)=1 then move object left objectnumber, 1
 if keystate(32)=1 then move object right objectnumber,  1
 endfunction
 function CameraFollow(objectnumber)
  rotate camera object angle x(objectnumber), object angle y(objectnumber),0
  set camera to follow Object position x(objectnumber), Object position y(objectnumber), object position z(objectnumber), Object angle y(objectnumber)+900, 40, 20, 10, 1
  point camera object position x(objectnumber),object position y(objectnumber),object position z(objectnumber)
  endfunction
function objsetup(objectnumber,groupnum,collistype)
 sc_setupobject objectnumber, groupnum, collistype
 endfunction
function makegun(x,y,z,xa,ya,za,filename,objectnumber,bulletobject)
 load object filename, objectnumber
 position object objectnumber, x, y, z
rotate object objectnumber, xa, ya, za
if mouseclick()=1 and bullet=- 50
bullet = 100
position object bulletobject, camera position x(0), camera position y(0), camera position z(0)
rotate object bulletobject,camera angle x(0), camera angle y(0),0
set bsp object collision 2,bulletobject,0.1,1
move object bulletobject,0.5
endif
rem control the bullet object
if bullet >0
rem if bullet hits something
if bsp collision hit(2)=1
rem destroy bullet
bullet=0
else
rem move the bullet object
dec bullet
move object bulletobject,0.5
endif
rem bullet destroy
if bullet=0
set bsp collision off 2
endif
else
rem gun refire
if bullet>-50 then dec bullet
endif
return
endfunction