Sorry your browser is not supported!

Sync On
Sync Rate 100
Autocam Off
Set Display Mode 1024,768,16
Hide Mouse
CLS

#Include "LoadMatrix.dba"

`MatEdit Variables
Dim BigMatrix(600,600,1)
Dim StartLoc_X(1): Dim StartLoc_Z(1):Dim Info(2)
Dim TArrayX(1): Dim TArrayZ(1): Dim FKey(10,1)
Dim ColData(100): Dim ZoneData(100): Dim Tiles(500,500)
Dim OverTexture$(100): Dim OverName$(20): Dim ReplaceTex(100)
Dim MOffsetX(25): Dim MOffsetY(25)
Dim MWire(20): Dim MGhost(20): Dim Lock(20)
Dim MatX#(20): Dim MatY#(20): Dim MatZ#(20)
Dim MatWidth#(20): Dim MatHeight#(20)
Dim TilesX(20): Dim TilesZ(20)
Dim MatHi#(20): Dim MatLo#(20)

`Load MateEdit Matrice
LoadMatrix("Terrain",1)

`Setting Up the collision
Set Global Collision On

`Creating Dummy Box for player
Make Object Box 1,10,10,10
Set Object Collision To Polygons 1

`Make a dummy enemy box
Make Object Box 2,10,10,10
Set Object Collision to Polygons 2

Position Object 2,Camera Position X(),Camera Position Y(),Camera Position Z()+100

`Create the hand and gun

Load Object "colt\H-Colt-Static+Hand.3ds",3
Position Object 3,Camera Position X()+5,Camera Position Y()-10,Camera Position Z()+20
Scale Object 3,50,50,50
Lock Object On 3
Set Object Collision Off 3

Bullet = 50



Sync

Do


Text 0,20,Str$(screen fps())

`Isn't this obvious?

Position Camera Object Position X(1),Object Position Y(1),Object Position Z(1)

`Simple Bullet Counter

Text 0,0,"BULLETS LEFT: "+Str$(Bullet)

If MouseClick()=1
Text 250,250,"BANG"
Bullet = Bullet - 1
EndIf

If MouseClick()=1
If Bullet =< 1
Text 250,250,"CLICK (OUT OF AMMO PRESS SPACE TO RELOAD)"
Bullet = 0
EndIf
EndIf

If SpaceKey()=1
Bullet = Bullet + 50
Text 250,250,"RELOADED"
EndIf

if SpaceKey()=1
If Bullet => 49
Text 250,250,"GUN CAN ONLY HOLD 50 BULLETS"
Bullet = 50
EndIf
EndIf

`Control With Keyboard and mouse

If UpKey()=1 Then Move Object 1,2
If DownKey()=1 Then Move Object 1,-2

yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3

Rotate Camera Wrapvalue(xang#),Wrapvalue(yang#),0


`Collision Detection (Working on sliding collision)

If Object Collision(1,0)>0
Position Object 1,Object Position X(1),Object Position Y(1),Object Position Z(1)-1

If Object Collision(1,0)=0

Else
Position object 1,Object Position X(1),Object Position Y(1),Object Position Z(1)-1

EndIf
EndIf


Sync
Loop