Sorry your browser is not supported!

``Gamemodule master initialzation
sync on
set display mode 1920,1080,32,1
autocam off
hide mouse

set normalization on
color backdrop 0
set camera fov 40
set ambient light 55
hide light 0

set text font "Eurostile LT"
set text size 24

``Initial values
preva1=0
acta1=0
prevb1=0
actb1=0
prevc1=0
actc1=0
ammo=10

``Generate PhysX objects
phy start

make object box 1,48,0,0
position object 1,20,22,60
phy make rigid body static box 1

phy make cloth 2
phy set cloth dimensions 2,10,20,0.5
phy set cloth position 2,1,22,60
phy set cloth tearing 2,1
phy set cloth tear factor 2,2.2
phy set cloth external acceleration 2,-4,-10,0
phy build cloth 2

phy make cloth 3
phy set cloth dimensions 3,10,20,0.5
phy set cloth position 3,13,22,60
phy set cloth tearing 3,1
phy set cloth tear factor 3,2.2
phy set cloth external acceleration 3,4,-10,0
phy build cloth 3

phy make cloth 4
phy set cloth dimensions 4,10,20,0.5
phy set cloth position 4,25,22,60
phy set cloth tearing 4,1
phy set cloth tear factor 4,2.2
phy set cloth external acceleration 4,-4,-10,0
phy build cloth 4

phy attach cloth to shape 2,1,1
phy attach cloth to shape 3,1,1
phy attach cloth to shape 4,1,1

``Generate lights
make light 1
make light 2

position light 1,-12,6,88
color light 1,255,0,0
position light 2,54,6,88
color light 2,255,0,0

set light range 1,50
set light range 2,50

``Load external objects
load object "gamedata/model/bmb.x",5
load object "gamedata/model/skybox.x",6

load image "gamedata/image/reticle.png",1
load image "gamedata/texture/canvas_1.png",2
load image "gamedata/texture/canvas_2.png",3

load 3dsound "gamedata/sound/hp_water.wav",1
load 3dsound "gamedata/sound/amb_main.wav",2
load 3dsound "gamedata/sound/swamp_bird.wav",3
load sound "gamedata/sound/pistol_shoot.wav",4
load sound "gamedata/sound/pistol_empty.wav",5
load sound "gamedata/sound/pistol_reload.wav",6

load music "gamedata/music/shot.mp3",1

``Apply properties to objects
scale object 5,1000,1000,1000
set object 5,1,1,1
set object filter 5,2
set object texture 5,1,0
set object specular 5,0
set object smoothing 5,100

scale object 6,16000,16000,16000
position object 6,0,600,100
set object 6,1,0,1
set object filter 6,2
fade object 6,200
set object texture 6,2,0
xrotate object 6,-90
yrotate object 6,-45

texture object 2,2
texture object 3,3
texture object 4,2
set object 2,1,1,0
set object 3,1,1,0
set object 4,1,1,0

position sound 1,-17.8,16,108
loop sound 1
position sound 2,20,6,88
loop sound 2
position sound 3,12,44,128

scale listener 0.5

play music 1

do

phy update

rotate camera camera angle x()+upkey(),camera angle y()+rightkey(),0
rotate camera camera angle x()-downkey(),camera angle y()-leftkey(),0
if keystate(78)=1 then move camera ()+1
if keystate(74)=1 then move camera ()-1

posx=camera position x(0)
posy=camera position y(0)
posz=camera position z(0)

angx=camera angle x(0)
angy=camera angle y(0)
angz=camera angle z(0)

position listener posx,posy,posz

text 0,0,"CamPosX: "+str$(posx)
text 0,15,"CamPosY: "+str$(posy)
text 0,30,"CamPosZ: "+str$(posz)

text 0,60,"CamAngX: "+str$(angx)
text 0,75,"CamAngY: "+str$(angy)
text 0,90,"CamAngZ: "+str$(angz)

if spacekey()=1
position camera 17,10,27
xrotate camera 3
yrotate camera 3
endif

randomize timer()
if sound playing(3)=0 and rnd(800)=1 then play sound 3

sprite 1,mousex()-32,mousey()-32,1
set sprite priority 1,3
set sprite alpha 1,220

if acta1=1 and preva1<>acta1 and ammo>0
dec ammo
play sound 4
else
endif

if actb1=1 and prevb1<>actb1 and ammo=0
play sound 5
endif

if actc1=1 and prevc1<>actc1 and ammo=0
ammo=10
play sound 6
endif

if ammo=0 then text mousex()+18,mousey()-12,"Reload!"
if ammo=10 then text mousex()-44,mousey()-12,str$(ammo) else text mousex()-42,mousey()-12,"0"+str$(ammo)

preva1=acta1
acta1=mouseclick()=1
prevb1=actb1
actb1=mouseclick()=1
prevc1=actc1
actc1=mouseclick()=2

sync
loop