Sorry your browser is not supported!

rem start sync, load objects and sprites, set lights

set ambient light 20
color ambient light rgb(255,255,255)
set spot light 0,45,90
color light 0,rgb(255,255,255)
point light 0,-20,0,0

make light 1
set point light 1,30,30,-30


make light 2
point light 2,20,60,-10

make object sphere 10,1
hide object 10

load object "stenmk2.x",5
hide object 5
load object "greasegun.x",6
hide object 6
load object "garand.x",7
hide object 7
load object "mp40.x",8
hide object 8
load object "H-SWAT-Attack1.3ds",9
scale object 9,8000,8000,8000
position object 9,500,-120,500
play object 9
loop object 9
lock object on 5
lock object on 6
lock object on 7
lock object on 8
position object 5,15,-5,30
position object 6,15,-5,30
position object 7,15,-5,30
position object 8,15,-5,30
scale object 8,10,10,10
scale object 5,10,10,10
yrotate object 8,280
yrotate object 5,180
rem load
load object "L-USA-Static.3DS",11
scale object 11,8000,8000,8000
position object 11,0,-120,0
lock object on 11
yrotate object 11,180
load object "hallwayroof2.x",2
load object "grass.x",3
load object "thompson.3DS",1
lock object on 1
position object 1,15,-5,30
position object 2,10,8,10
load bitmap "sten.bmp",2
get image 2,0,0,128,128
texture object 6,2
load bitmap "garand2.bmp",3
get image 3,0,0,128,128
texture object 7,3


load image "crosshair.bmp",1,1
sprite 1,280,230,1
hide mouse
set camera range 1,9000
rem start sync
sync on
sync rate 80
rem start main loop!
do
rem set numbers
if inkey$()="1" then show object 1: hide object 5: hide object 5: hide object 6: hide object 7: hide object 8
if inkey$()="2" then show object 5: hide object 1: hide object 1: hide object 6: hide object 7: hide object 8
if inkey$()="3" then show object 6: hide object 5: hide object 1: hide object 5: hide object 8: hide object 7
if inkey$()="4" then show object 7: hide object 6: hide object 1: hide object 5: hide object 6: hide object 8
if inkey$()="5" then show object 8: hide object 7: hide object 1: hide object 5: hide object 6: hide object 7

rem start to jump
ch=camera position y()+height
rem Jump
if shiftkey()=1 and jump=0
height=height+1
jumpb=1
endif

if jumpb=1
position camera camera position x(),camera position y()+height,camera position z()
endif

if ch>0
height=height-0.1
endif

if shiftkey()=0
jump=0
endif
rem start movement
if upkey()=1 then move camera 10.0
if downkey()=1 then move camera -10.0
if leftkey()=1 then angley#=wrapvalue(angley#-2.0)
if rightkey()=1 then angley#=wrapvalue(angley#+2.0)
xrotate camera 0.0
yrotate camera angley#
zrotate camera 0.0

position mouse 320,240
cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())
rotate camera cx#,cy#,cz#
sync
loop

collide=intersectObjectDBC(group,100,x#-25,y#+25,z#-25,x#+25,y#-25,z#+25,0)
`If Collided
if collide<>0
   `Decrease health
   dec Health,15
   `Point ship up
   inc YRotate#,5
   `Send Explostion data
   Hit = 1
endif