Sorry your browser is not supported!

`Setup Client Options
SYNC ON:SYNC RATE 0:HIDE MOUSE: AUTOCAM OFF:RANDOMIZE TIMER()

`---------------------------------------------------------------
`------------------Main Variables-------------------------------
`---------------------------------------------------------------

`bullet variables
dim bulletlife(10)
bulletcount = 0

` CWeapon = Current Weapon
global CWeapon=0

`weapon
type weapon
name as string
ammo as integer
maxammo as integer
clips as integer
maxclips as integer
endtype

`setup arrays
dim weapon(4) as weapon

weapon(0).name="Unarmed"
weapon(0).damage=100

weapon(1).name="Sniper Rifle"
weapon(1).ammo=10
weapon(1).maxammo=10
weapon(1).clips=3
weapon(1).maxclips=3

weapon(2).name="Shotgun"
weapon(2).ammo=8
weapon(2).maxammo=8
weapon(2).clips=3
weapon(2).maxclips=3

weapon(3).name="Tommygun"
weapon(3).ammo=500
weapon(3).maxammo=500
weapon(3).clips=3
weapon(3).maxclips=3

weapon(4).name="RocketLauncher"
weapon(4).ammo=10
weapon(4).maxammo=10
weapon(4).clips=3
weapon(4).maxclips=3

`Define the main variables needed
PlayerHP=2000`-----Player's Health
MaxPlayerHP=2000`--Player's Max Health
EnemyHP=2000`------Enemy's Health
MaxEnemyHP=2000`---Enemy's Max Health
ArmorHP=500`-------Armor Health
play_out = 0`------Tells when player has gone off matrix

`---------------------------------------------------------------
`------------------In Game Objects------------------------------
`---------------------------------------------------------------

`Create Main Player
MAKE OBJECT SPHERE 1,50:COLOR OBJECT 1,RGB(000,255,000):POSITION OBJECT 1,RND(1000),Ground#,RND(1000)
`Create Enemy Player
MAKE OBJECT SPHERE 2,50:COLOR OBJECT 2,RGB(255,000,000):POSITION OBJECT 2,RND(1000),Ground#,RND(1000)
`create armor
MAKE OBJECT CUBE 3,10:COLOR OBJECT 3,RGB(167,176,10):POSITION OBJECT 3,100,Ground#,100
`create ammo crate
MAKE OBJECT CUBE 4,10:COLOR OBJECT 4,RGB(20,250,75):POSITION OBJECT 4,100,Ground#,130
`create sniper rifle
MAKE OBJECT CUBE 5,10:COLOR OBJECT 5,RGB(13,234,132):POSITION OBJECT 5,100,Ground#,160
`create rocket launcher
MAKE OBJECT CUBE 6,10:COLOR OBJECT 6,RGB(58,220,76):POSITION OBJECT 6,100,Ground#,190
`create shotgun
MAKE OBJECT CUBE 7,10:COLOR OBJECT 7,RGB(33,0,13):POSITION OBJECT 7,100,Ground#,210
`create tommy gun
MAKE OBJECT CUBE 8,10:COLOR OBJECT 8,RGB(67,16,190):POSITION OBJECT 8,100,Ground#,250
`create health crate
MAKE OBJECT CUBE 9,10:COLOR OBJECT 9,RGB(70,10,200):POSITION OBJECT 9,100,Ground#,230

`create playing field
MAKE MATRIX 1,1000,1000,50,50

`make matrix the ground
Ground#=GET GROUND HEIGHT(1,0,0)

`---------------------------------------------------------------
`------------------Player Limbs---------------------------------
`---------------------------------------------------------------

`Add limb for intersection checks
MAKE OBJECT SPHERE 9999,10
MAKE MESH FROM OBJECT 1,9999
DELETE OBJECT 9999
ADD LIMB 1,1,1
HIDE LIMB 1,1

`Add a second limb for ground checks
ADD LIMB 1,2,1
OFFSET LIMB 1,2,0,-50,0
DELETE MESH 1
HIDE LIMB 1,2

`---------------------------------------------------------------
`------------------Enemy Limbs----------------------------------
`---------------------------------------------------------------

`Add limb for intersection checks
MAKE OBJECT SPHERE 7777,10
MAKE MESH FROM OBJECT 1,7777
DELETE OBJECT 7777
ADD LIMB 2,1,1
OFFSET LIMB 2,1,0,0,500
HIDE LIMB 2,1

`Add a second limb for ground checks
ADD LIMB 2,2,1
OFFSET LIMB 2,2,0,-50,0
DELETE MESH 1
HIDE LIMB 2,2

`---------------------------------------------------------------
`------------------Main Do/Loop---------------------------------
`---------------------------------------------------------------
DO

`---------------------------------------------------------------
`------------------Info Display---------------------------------
`---------------------------------------------------------------
display_items()
`display text enemyhp above enemy
IF OBJECT EXIST(2)=1
   IF OBJECT IN SCREEN(2)=1
      CENTER TEXT OBJECT SCREEN X(2),OBJECT SCREEN Y(2)-70,"Enemy Health: "+str$(EnemyHP)
   ENDIF
ENDIF

`Display our Ammo, Clips, Health, and Armor on-screen
TEXT 0,SCREEN HEIGHT()-60,"Health: "+str$(PlayerHP)

if CWeapon > 0
TEXT 0,SCREEN HEIGHT()-50,"Ammo: "+str$(weapon(CWeapon).ammo)
TEXT 0,SCREEN HEIGHT()-40,"Clips: "+str$(weapon(CWeapon).clips)
endif

`Show that we're reloading
IF Reload=1 THEN CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2,"Reloading..."

`Add a target reticule to the screen
CIRCLE SCREEN WIDTH()/2,SCREEN HEIGHT()/2,5

`Fix player moving through the matrix
if Play_y# < Ground#
   Play_y# = Ground#
   position object 1, Play_x#, Play_y#, Play_z#
endif

`Screen FPS

FPS#=SCREEN FPS()

TEXT 500,0,"FPS: "+STR$(FPS#)

`Camera Positioning
POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1)+10,OBJECT POSITION Z(1)

`---------------------------------------------------------------
`------------------Movement Settings----------------------------
`---------------------------------------------------------------
`stop player from flying
xrotate object 1, 0

`Movement Controls
IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,.9
IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-.9
IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,.8
IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,.8

`Use variables to make code easier to read (shorter lines)
Play_x# = object position x(1)
Play_y# = object position y(1)
Play_z# = object position z(1)

Leg_x# = LIMB POSITION X(1,2)
Leg_y# = LIMB POSITION Y(1,2)
Leg_z# = LIMB POSITION Z(1,2)

enemy_x# = object position x(2)
enemy_y# = object position y(2)
enemy_z# = object position z(2)

`prevent player from moving off matrix
if Play_x# < 0 then Play_x# = 0 : play_out = 1
if Play_x# > 1000 then Play_x# = 1000 : play_out = 1
if Play_z# < 0 then Play_z# = 0 : play_out = 1
if Play_z# > 1000 then Play_z# = 1000 : play_out = 1
if play_out = 1
   position object 1, Play_x#, Play_y# , Play_z#
   play_out = 0
endif

`Space key Controls
IF SPACEKEY()=1 AND JUMPING=0
 JUMP_SPEED#=1
 JUMPING=1
ENDIF

`Jumping
IF JUMPING=1
   DEC JUMP_SPEED#,.005
   POSITION OBJECT 1,Play_x#,Play_y#+JUMP_SPEED#, Play_z#
   IF Play_y#<=Ground# THEN JUMPING=0
ENDIF

`Put player direction back to mouselook angle
xrotate object 1, CAMX#

`Mouse Camera Movement
CAMY#=CAMY#+MOUSEMOVEX()*.1
CAMX#=CAMX#+MOUSEMOVEY()*.1
IF CAMX#>90 AND CAMX#<135 THEN CAMX#=90
IF CAMX#>270 AND CAMX#<225 THEN CAMX#=90
YROTATE CAMERA CAMY#
XROTATE CAMERA CAMX#
YROTATE OBJECT 1,CAMY#
XROTATE OBJECT 1,CAMX#

`Mouseclick Shooting
IF KEYSTATE(19)=0 AND MOUSECLICK()=1
   IF weapon(CWeapon).ammo>0 THEN DEC weapon(CWeapon).ammo,1
   TEXT 0,SCREEN HEIGHT()-50,"Ammo: "+str$(weapon(CWeapon).ammo)
   TEXT 0,SCREEN HEIGHT()-40,"Clips: "+str$(weapon(CWeapon).clips)
control_bullets()
ENDIF

`enemy death, deletions, and regeneration
if EnemyHP=0 AND OBJECT EXIST(2)=1
   DELETE OBJECT 2
   MAKE OBJECT SPHERE 2,50: COLOR OBJECT 2,RGB(255,000,000): POSITION OBJECT 2,RND(600),Ground#,RND(600)
   EnemyHP=2000
endif

`Reloading (press R)
IF MOUSECLICK()=0 AND KEYSTATE(19)=1 AND weapon(CWeapon).ammo<weapon(CWeapon).maxammo AND weapon(CWeapon).clips>0
   Reload=1
ENDIF

`Reloading Part 2 (delay)
IF Reload=1 THEN INC Time#,.005
IF Time#>=1 THEN weapon(CWeapon).ammo=weapon(CWeapon).maxammo:DEC weapon(CWeapon).clips,1:Time#=0:Reload=0

`Ammo Crate code (obtain ammo from ground)
IF OBJECT EXIST(4)=1
IF weapon(CWeapon).ammo<weapon(CWeapon).maxammo AND INTERSECT OBJECT (4, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
INC weapon(CWeapon).clips,(weapon(CWeapon).maxclips-weapon(CWeapon).clips)
INC weapon(CWeapon).ammo,(weapon(CWeapon).maxammo-weapon(CWeapon).ammo)
DELETE OBJECT 4
ENDIF
ENDIF

`Armor crate code A (obtain armor from ground)
IF OBJECT EXIST(3)=1
IF INTERSECT OBJECT (3, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
DELETE OBJECT 3
ENDIF
ENDIF

`Armor crate code B (display armor and reduce armor health when shot
IF OBJECT EXIST(3)=0
TEXT 0,SCREEN HEIGHT()-70,"Armor: "+str$(ArmorHP)
ENDIF

`health crate code
If PlayerHP<MaxPlayerHP and intersect object (9, Leg_x#, Leg_y#, Leg_z#, Play_x#, Play_y#, Play_z#)>0
   inc PlayerHP,(MaxPlayerHP-PlayerHP)
   delete object 9
endif

`---------------------------------------------------------------
`------------------Weapons Code---------------------------------
`---------------------------------------------------------------

`Get Sniper Rifle
IF OBJECT EXIST(5)=1
 IF INTERSECT OBJECT (5, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
  DELETE OBJECT 5
  CWeapon=1
  SetWeapon()
 ENDIF
ENDIF

`Get Rocket Launcher
IF OBJECT EXIST(6)=1
 IF INTERSECT OBJECT (6, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
  DELETE OBJECT 6
  CWeapon=4
  SetWeapon()
 ENDIF
ENDIF

`Get Shotgun
IF OBJECT EXIST(7)=1
 IF INTERSECT OBJECT (7, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
  DELETE OBJECT 7
  CWeapon=2
  SetWeapon()
 ENDIF
ENDIF

`Get Tommygun
IF OBJECT EXIST(8)=1
 IF INTERSECT OBJECT (8, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
  DELETE OBJECT 8
  CWeapon=3
  SetWeapon()
 ENDIF
ENDIF

SYNC
LOOP

`controlling the bullets
function control_bullets()

`makes bullets
for t=10 to weapon(CWeapon).ammo
   make object sphere t,5
   position object t,screen width()/2,screen width()/2,0
   hide object t
next t

`bullet control
for t=10 to weapon(CWeapon).ammo

if weapon(CWeapon).ammo<=0 then exitfunction
      show object t
      move object t, weapon(CWeapon).speed
      wait weapon(CWeapon).delay
 if intersect object (2, enemy_x#, enemy_y#, enemy_z#, object position x(t),object position y(t), object position z(t))>0
      dec enemyhp,weapon(CWeapon).damage
      delete object t
 endif
next t

endfunction

function SetWeapon()

 select CWeapon

  case 0
   offset limb 1,1,0,0,10
  endcase

  case 1
   offset limb 1,1,0,0,10000
  endcase

  case 2
   offset limb 1,1,0,0,450
  endcase

  case 3
   offset limb 1,1,0,0,400
  endcase

  case 4
   offset limb 1,1,0,0,10000
  endcase

 endselect

endfunction

function display_items()

IF OBJECT EXIST(3)=1
   IF OBJECT IN SCREEN(3)=1
      CENTER TEXT OBJECT SCREEN X(3),OBJECT SCREEN Y(3)-20,"Armor"
   ENDIF
ENDIF
IF OBJECT EXIST(4)=1
   IF OBJECT IN SCREEN(4)=1
      CENTER TEXT OBJECT SCREEN X(4),OBJECT SCREEN Y(4)-20,"Ammo Crate"
   ENDIF
ENDIF
IF OBJECT EXIST(5)=1
   IF OBJECT IN SCREEN(5)=1
      CENTER TEXT OBJECT SCREEN X(5),OBJECT SCREEN Y(5)-20,"Snper Rifle"
   ENDIF
ENDIF
IF OBJECT EXIST(6)=1
   IF OBJECT IN SCREEN(6)=1
      CENTER TEXT OBJECT SCREEN X(6),OBJECT SCREEN Y(6)-20,"Rocket Launcher"
   ENDIF
ENDIF
IF OBJECT EXIST(7)=1
   IF OBJECT IN SCREEN(7)=1
      CENTER TEXT OBJECT SCREEN X(7),OBJECT SCREEN Y(7)-20,"Shot Gun"
   ENDIF
ENDIF
IF OBJECT EXIST(8)=1
   IF OBJECT IN SCREEN(8)=1
      CENTER TEXT OBJECT SCREEN X(8),OBJECT SCREEN Y(8)-20,"Tommy Gun"
   ENDIF
ENDIF
IF OBJECT EXIST(9)=1
   IF OBJECT IN SCREEN(9)=1
      CENTER TEXT OBJECT SCREEN X(9),OBJECT SCREEN Y(9)-20,"Helath"
   ENDIF
ENDIF

endfunction

if mouseclick = 1 and delay <= 0
   shooting code
   delay = 100
endif

`*** somewhere else ***
if delay > 0 then dec delay

`-------- Title: My First FPS-----------------------------------
`-------- Author: Krimzon DestinE-------------------------------
`-------- Date: October 15, 2005--------------------------------

`Setup Client Options
SYNC ON:SYNC RATE 0:HIDE MOUSE: AUTOCAM OFF:RANDOMIZE TIMER()

`---------------------------------------------------------------
`------------------Main Variables-------------------------------
`---------------------------------------------------------------

` CWeapon = Current Weapon
global CWeapon=0

`weapon
type weapon
   name as string
   ammo as integer
   maxammo as integer
   clips as integer
   maxclips as integer
   bulletspeed as integer
   bulletdelay as integer
   bulletdamage as integer
endtype

`setup arrays
dim weapon(4) as weapon

weapon(0).name="Unarmed"

weapon(1).name="Rifle"
weapon(1).ammo=10
weapon(1).maxammo=10
weapon(1).clips=3
weapon(1).maxclips=3
weapon(3).bulletspeed=1
weapon(3).bulletdelay=1
weapon(3).bulletdamage=1

weapon(2).name="Shotgun"
weapon(2).ammo=8000
weapon(2).maxammo=8000
weapon(2).clips=3
weapon(2).maxclips=3
weapon(3).bulletspeed=1
weapon(3).bulletdelay=1
weapon(3).bulletdamage=1

weapon(3).name="Rocket Launcher"
weapon(3).ammo=5000
weapon(3).maxammo=5000
weapon(3).clips=3
weapon(3).maxclips=3
weapon(3).bulletspeed=10
weapon(3).bulletdelay=100
weapon(3).bulletdamage=2

`Define the main variables needed
PlayerHP=2000`-----Player's Health
MaxPlayerHP=2000`--Player's Max Health
EnemyHP=2000`------Enemy's Health
MaxEnemyHP=2000`---Enemy's Max Health
ArmorHP=500`-------Armor Health
play_out = 0`------Tells when player has gone off matrix

`---------------------------------------------------------------
`------------------In Game Objects------------------------------
`---------------------------------------------------------------

`Create Main Player
MAKE OBJECT SPHERE 1,50:COLOR OBJECT 1,RGB(000,255,000):POSITION OBJECT 1,RND(1000),Ground#,RND(1000)
`Create Enemy Player
MAKE OBJECT SPHERE 2,50:COLOR OBJECT 2,RGB(255,000,000):POSITION OBJECT 2,RND(1000),Ground#,RND(1000)
`create rifle
MAKE OBJECT CUBE 3,10:COLOR OBJECT 3,RGB(13,234,132):POSITION OBJECT 3,100,Ground#,160
`create rocket launcher
MAKE OBJECT CUBE 4,10:COLOR OBJECT 4,RGB(58,220,76):POSITION OBJECT 4,100,Ground#,190
`create shotgun
MAKE OBJECT CUBE 5,10:COLOR OBJECT 5,RGB(33,0,13):POSITION OBJECT 5,100,Ground#,210
`create armor
MAKE OBJECT CUBE 7,10:COLOR OBJECT 7,RGB(167,176,10):POSITION OBJECT 7,100,Ground#,100
`create ammo crate
MAKE OBJECT CUBE 8,10:COLOR OBJECT 8,RGB(20,250,75):POSITION OBJECT 8,100,Ground#,130
`create health crate
MAKE OBJECT CUBE 9,10:COLOR OBJECT 9,RGB(70,10,200):POSITION OBJECT 9,100,Ground#,230


`making the bullets
for bullet = 10 to 20
  make object sphere bullet,2
next bullet

`create playing field
MAKE MATRIX 1,1000,1000,50,50

`make matrix the ground
ground#=GET GROUND HEIGHT(1,0,0)

`---------------------------------------------------------------
`------------------Player Limbs---------------------------------
`---------------------------------------------------------------

`Add limb for intersection checks
MAKE OBJECT SPHERE 9999,10
MAKE MESH FROM OBJECT 1,9999
DELETE OBJECT 9999
ADD LIMB 1,1,1
HIDE LIMB 1,1

`Add a second limb for ground checks
ADD LIMB 1,2,1
OFFSET LIMB 1,2,0,-50,0
DELETE MESH 1
HIDE LIMB 1,2

`---------------------------------------------------------------
`------------------Main Do/Loop---------------------------------
`---------------------------------------------------------------
DO
`make bullets
for b = 10 to 1009
   make object sphere b,10: color object b,rgb(000,000,255): position object b, camera position x(), camera position y(), camera position z()
   hide object b
if mouseclick()=2
   show object b
endif
next b

`---------------------------------------------------------------
`------------------Info Display---------------------------------
`---------------------------------------------------------------

display_items()
`showing bullet

`display text enemyhp above enemy
IF OBJECT EXIST(2)=1
   IF OBJECT IN SCREEN(2)=1
      CENTER TEXT OBJECT SCREEN X(2),OBJECT SCREEN Y(2)-70,"Enemy Health: "+str$(EnemyHP)
   ENDIF
ENDIF

`Display our Ammo, Clips, Health, and Armor on-screen
TEXT 0,SCREEN HEIGHT()-80,"Health: "+str$(PlayerHP)

if CWeapon > 0
`TEXT 0,SCREEN HEIGHT()-60,"Current Weapon: "+weapon(CWeapon).name
TEXT 0,SCREEN HEIGHT()-50,"Ammo: "+str$(weapon(CWeapon).ammo)
TEXT 0,SCREEN HEIGHT()-40,"Clips: "+str$(weapon(CWeapon).clips)
endif

`Show that we're reloading
IF Reload=1 THEN CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2,"Reloading..."

`Reloading (press R)
IF MOUSECLICK()=0 AND KEYSTATE(19)=1 AND weapon(CWeapon).ammo<weapon(CWeapon).maxammo AND weapon(CWeapon).clips>0
   Reload=1
ENDIF

`Add a target reticule to the screen
CIRCLE SCREEN WIDTH()/2,SCREEN HEIGHT()/2,5

`Fix player moving through the matrix
if Play_y# < Ground#
   Play_y# = Ground#
   position object 1, Play_x#, Play_y#, Play_z#
endif

`Screen FPS

FPS#=SCREEN FPS()

TEXT 500,0,"FPS: "+STR$(FPS#)

`Camera Positioning
POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1)+10,OBJECT POSITION Z(1)

`---------------------------------------------------------------
`------------------Movement Settings----------------------------
`---------------------------------------------------------------
`stop player from flying
xrotate object 1, 0

`Movement Controls
IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,.9
IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-.9
IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,.8
IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,.8

`Use variables to make code easier to read (shorter lines)
Play_x# = object position x(1)
Play_y# = object position y(1)
Play_z# = object position z(1)

Leg_x# = LIMB POSITION X(1,2)
Leg_y# = LIMB POSITION Y(1,2)
Leg_z# = LIMB POSITION Z(1,2)

enemy_x# = object position x(2)
enemy_y# = object position y(2)
enemy_z# = object position z(2)

`prevent player from moving off matrix
if Play_x# < 0 then Play_x# = 0 : play_out = 1
if Play_x# > 1000 then Play_x# = 1000 : play_out = 1
if Play_z# < 0 then Play_z# = 0 : play_out = 1
if Play_z# > 1000 then Play_z# = 1000 : play_out = 1
if play_out = 1
   position object 1, Play_x#, Play_y# , Play_z#
   play_out = 0
endif

`Space key Controls
IF SPACEKEY()=1 AND JUMPING=0
 JUMP_SPEED#=1
 JUMPING=1
ENDIF

`Jumping
IF JUMPING=1
   DEC JUMP_SPEED#,.005
   POSITION OBJECT 1,Play_x#,Play_y#+JUMP_SPEED#, Play_z#
   IF Play_y#<=Ground# THEN JUMPING=0
ENDIF

`Put player direction back to mouselook angle
xrotate object 1, CAMX#

`Mouse Camera Movement
CAMY#=CAMY#+MOUSEMOVEX()*.1
CAMX#=CAMX#+MOUSEMOVEY()*.1
IF CAMX#>90 AND CAMX#<135 THEN CAMX#=90
IF CAMX#>270 AND CAMX#<225 THEN CAMX#=90
YROTATE CAMERA CAMY#
XROTATE CAMERA CAMX#
YROTATE OBJECT 1,CAMY#
XROTATE OBJECT 1,CAMX#

`enemy death, deletions, and regeneration
if EnemyHP=0 AND OBJECT EXIST(2)=1
   DELETE OBJECT 2
   MAKE OBJECT SPHERE 2,50: COLOR OBJECT 2,RGB(255,000,000): POSITION OBJECT 2,RND(600),Ground#,RND(600)
   EnemyHP=2000
endif


`Reloading Part 2 (delay)
IF Reload=1 THEN INC Time#,.005
IF Time#>=1 THEN weapon(CWeapon).ammo=weapon(CWeapon).maxammo:DEC weapon(CWeapon).clips,1:Time#=0:Reload=0

`Ammo Crate code (obtain ammo from ground)
IF OBJECT EXIST(4)=1
IF weapon(CWeapon).ammo<weapon(CWeapon).maxammo AND INTERSECT OBJECT (4, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
INC weapon(CWeapon).clips,(weapon(CWeapon).maxclips-weapon(CWeapon).clips)
INC weapon(CWeapon).ammo,(weapon(CWeapon).maxammo-weapon(CWeapon).ammo)
DELETE OBJECT 4
ENDIF
ENDIF

`Armor crate code A (obtain armor from ground)
IF OBJECT EXIST(3)=1
IF INTERSECT OBJECT (3, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
DELETE OBJECT 3
ENDIF
ENDIF

`Armor crate code B (display armor and reduce armor health when shot
IF OBJECT EXIST(7)=0
TEXT 0,SCREEN HEIGHT()-70,"Armor: "+str$(ArmorHP)
ENDIF

`health crate code
If PlayerHP<MaxPlayerHP and intersect object (9, Leg_x#, Leg_y#, Leg_z#, Play_x#, Play_y#, Play_z#)>0
   inc PlayerHP,(MaxPlayerHP-PlayerHP)
   delete object 9
endif

`---------------------------------------------------------------
`------------------Enemy A.I.-----------------------------------
`---------------------------------------------------------------

if object exist(2)=1
   point object 2,play_x#,play_y#,play_z#
   move object 2, .8
endif

`---------------------------------------------------------------
`------------------Weapons Code---------------------------------
`---------------------------------------------------------------

 `Get Rifle
 IF OBJECT EXIST(3)=1
  IF INTERSECT OBJECT (3, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
   DELETE OBJECT 3
   CWeapon=1
   SetWeapon()
  ENDIF
 ENDIF

`Get Rocket Launcher
IF OBJECT EXIST(4)=1
 IF INTERSECT OBJECT (4, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
 DELETE OBJECT 4
 CWeapon=2
 SetWeapon()
 ENDIF
ENDIF

`Get Shotgun
IF OBJECT EXIST(5)=1
 IF INTERSECT OBJECT (5, Leg_x#, Leg_y#, Leg_z#, Play_x#,Play_y#, Play_z#)>0
 DELETE OBJECT 5
 CWeapon=3
 SetWeapon()
 ENDIF
ENDIF
`---------------------------------------------------------------
`------------------Shooting Code--------------------------------
`---------------------------------------------------------------

`Mouseclick Shooting
if keystate(19)=0 AND mouseclick()=1
   IF weapon(CWeapon).ammo>0 THEN DEC weapon(CWeapon).ammo,1
   If intersect object (2, limb position x(1,1), limb position y(1,1), limb position z(1,1), play_x#, Play_y#, PLay_z#)>0 then dec enemyhp,1
   TEXT 0,SCREEN HEIGHT()-50,"Ammo: "+str$(weapon(CWeapon).ammo)
   TEXT 0,SCREEN HEIGHT()-40,"Clips: "+str$(weapon(CWeapon).clips)
ENDIf

`---------------------------------------------------------------
`------------------Bullets Code---------------------------------
`---------------------------------------------------------------

SYNC
LOOP

function SetWeapon()

 select CWeapon

  case 0
   offset limb 1,1,0,0,10
  endcase

  case 1
   offset limb 1,1,0,0,500
   shotgun=0
   rocket=0
  endcase

  case 2
   offset limb 1,1,0,0,10000
   shotgun=0
   rocket=28000
   rocketspeed=-2
  endcase

  case 3
   offset limb 1,1,0,0,600
   shotgun=-1
   shotang=rnd(30)
   rocket=0
  endcase
 endselect

endfunction

function display_items()

IF OBJECT EXIST(3)=1
   IF OBJECT IN SCREEN(3)=1
      CENTER TEXT OBJECT SCREEN X(3),OBJECT SCREEN Y(3)-20,"Rifle"
   ENDIF
ENDIF
IF OBJECT EXIST(4)=1
   IF OBJECT IN SCREEN(4)=1
      CENTER TEXT OBJECT SCREEN X(4),OBJECT SCREEN Y(4)-20,"Rocket Launcher"
   ENDIF
ENDIF
IF OBJECT EXIST(5)=1
   IF OBJECT IN SCREEN(5)=1
      CENTER TEXT OBJECT SCREEN X(5),OBJECT SCREEN Y(5)-20,"Shot Gun"
   ENDIF
ENDIF
ENDIF
IF OBJECT EXIST(7)=1
   IF OBJECT IN SCREEN(7)=1
      CENTER TEXT OBJECT SCREEN X(7),OBJECT SCREEN Y(7)-20,"Armor"
   ENDIF
ENDIF
IF OBJECT EXIST(8)=1
   IF OBJECT IN SCREEN(8)=1
      CENTER TEXT OBJECT SCREEN X(8),OBJECT SCREEN Y(8)-20,"Ammo Crate"
   ENDIF
ENDIF

IF OBJECT EXIST(9)=1
   IF OBJECT IN SCREEN(9)=1
      CENTER TEXT OBJECT SCREEN X(9),OBJECT SCREEN Y(9)-20,"Health"
   ENDIF
ENDIF
endfunction

position object
hide object 
show object

`create bullets
for b=10 to 999
   make object sphere b,1
   color object b,rgb(200,100,50)
   position object b, camera position x(),camera position y(),camera position z()
   hide object b
next b

sync on : sync rate 100
hide mouse

`make matrix
make matrix 1,1000,1000,50,50

`make some objects
for i = 1 to 10
   size# = rnd(10)
   make object cube i,size#
   position object i,rnd(1000),size#/2,rnd(1000)
next i

`make bullets
for bullet = 1 to 100
   make object sphere 100 + bullet, 1
   hide object 100 + bullet
next bullet

`setup variables
dim bulletlife(100)
ammo = 100
clips = 3

`set camera to center of the matrix
position camera 500,7.5,500

`start loop
do

   `get camera data
   camx# = camera position x()
   camy# = camera position y()
   camz# = camera position z()
   angx# = camera angle x()
   angy# = camera angle y()

   `rotate camera
   angx# = wrapvalue(angx# + mousemovey())
   angy# = wrapvalue(angy# + mousemovex())
   angx# = curveangle(angx#, camera angle x(), 5)
   angy# = curveangle(angy#, camera angle y(), 5)

   `move camera
   if upkey() = 1
      camx# = newxvalue(camx#, angy#, 1)
      camz# = newzvalue(camz#, angy#, 1)
   endif
   if downkey() = 1
      camx# = newxvalue(camx#, angy#, -1)
      camz# = newzvalue(camz#, angy#, -1)
   endif
   if leftkey() = 1
      camx# = newxvalue(camx#, wrapvalue(angy# - 90), 1)
      camz# = newzvalue(camz#, wrapvalue(angy# - 90), 1)
   endif
   if rightkey() = 1
      camx# = newxvalue(camx#, wrapvalue(angy# + 90), 1)
      camz# = newzvalue(camz#, wrapvalue(angy# + 90), 1)
   endif
   camy# = get ground height(1,camx#,camz#) + 7.5

   `shooting
   gosub shooting

   `update camera
   position camera camx#,camy#,camz#
   rotate camera angx#,angy#,0

   sync
loop

`This does the shooting
shooting:

if mouseclick() = 1 and shot = 0
   shot = 1
   if ammo > 0
      position object 201 - ammo,camx#,camy#,camz#
      set object to camera orientation 201 - ammo
      bulletlife(101 - ammo) = 1000
      show object 201 - ammo
      dec ammo
   endif
endif
`prevent user from shooting at high speed.
if mouseclick() = 0 then shot = 0

`handle all bullets
for b = 1 to 100
   if bulletlife(b) > 0
      bulletlife(b) = bulletlife(b) - 1
      move object 100 + b,3
      height# = get ground height(1,object position x(100 + b),object position z(100 + b))
      if object collision(100 + b,0) > 0 or object position y(100 + b) <= height# then bulletlife(b) = 0
      if bulletlife(b) = 0 then hide object 100 + b
   endif
next b

`reloading
if lower$(inkey$()) = "r" and clips > 0 and decrease = 0 then ammo = 100 : dec clips : decrease = 1
if scancode() = 0 then decrease = 0

`take care of the HUD
ink rgb(255,255,255),0
text 5,5,"Ammo: " + str$(ammo)
text 5,25,"Clips: " + str$(clips)

ink rgb(100,0,0),0
circle screen width()/2, screen height()/2,5

return

bulletlife*****(101 - ammo)***** = 1000
      show object *****201 - ammo*****

move object *****100 + b,3*****

`handle all bullets
for b = 1 to 100
   if bulletlife(b) > 0
      bulletlife(b) = bulletlife(b) - 1
      move object 100 + b,3
      height# = get ground height(1,object position x(100 + b),object position z(100 + b))
      if object collision(100 + b,0) > 0 or object position y(100 + b) <= height# then bulletlife(b) = 0
      if bulletlife(b) = 0 then hide object 100 + b
   endif
next b

if bulletlife(b)>0 then dec bulletlife(b), 1

if bulletlife(b)>0: bulletlife(b)=bulletlife(b) - 1:endif

if bulletlife(b)>0 then dec bulletlife(b), 1

if bulletlife(b)>0: bulletlife(b)=bulletlife(b) - 1:endif

`-------- Title: My First FPS-----------------------------------
`-------- Author: Krimzon DestinE-------------------------------
`-------- Date: October 15, 2005--------------------------------


`Setup Client Options
SYNC ON:SYNC RATE 0:HIDE MOUSE: AUTOCAM OFF:RANDOMIZE TIMER()

`---------------------------------------------------------------
`------------------Main Variables-------------------------------
`---------------------------------------------------------------

`make initial weapon Unarmed
global CWeapon=0
`delaying the bullets


`weapon
type weapon
   name as string
   ammo as integer
   maxammo as integer
   clips as integer
   maxclips as integer
   bspeed as integer
   blife as integer
   bdamage as integer
endtype

`weapon array
dim weapon(3) as weapon

weapon(0).name="Unarmed"

weapon(1).name="Machinegun"
weapon(1).ammo=100
weapon(1).maxammo=100
weapon(1).clips=5
weapon(1).maxclips=5
weapon(1).bspeed=5
weapon(1).blife=10000
weapon(1).bdamage=100

weapon(2).name="Shotgun"
weapon(2).ammo=100
weapon(2).maxammo=100
weapon(2).clips=6
weapon(2).maxclips=6
weapon(2).bspeed=4
weapon(2).blife=10000
weapon(2).bdamage=1000

weapon(3).name="Rocket Launcher"
weapon(3).ammo=100
weapon(3).maxammo=100
weapon(3).clips=3
weapon(3).maxclips=3
weapon(3).bspeed=10
weapon(3).blife=5000
weapon(3).bdamage=2000

`Define the main variables needed
playerhp=2000`----------Player's Health
maxplayerhp=2000`-------Player's Max Health
ArmorHP=500`------------Armor Health
play_out = 0`-----------Tells when player has gone off matrix
enemies = 1`------------Number of enemies
`makes health for each enemy
dim enemy_health(enemies)
`makes states for each enemy
Dim enemy_state(enemies)

`---------------------------------------------------------------
`------------------In Game Objects------------------------------
`---------------------------------------------------------------

`Create Main Player
MAKE OBJECT SPHERE 1,50:COLOR OBJECT 1,RGB(255,000,000):POSITION OBJECT 1,RND(1000),Ground#+25,RND(1000)
`create machinegun
MAKE OBJECT CUBE 2,10:COLOR OBJECT 2,RGB(000,000,255):POSITION OBJECT 2,100,Ground#+5,160
`create shotgun
MAKE OBJECT CUBE 3,10:COLOR OBJECT 3,RGB(000,000,255):POSITION OBJECT 3,100,Ground#+5,190
`create rocketlauncher
MAKE OBJECT CUBE 4,10:COLOR OBJECT 4,RGB(000,000,255):POSITION OBJECT 4,100,Ground#+5,220
`create armor
MAKE OBJECT CUBE 5,10:COLOR OBJECT 5,RGB(000,255,000):POSITION OBJECT 5,100,Ground#+5,250
`create ammo crate
MAKE OBJECT CUBE 6,10:COLOR OBJECT 6,RGB(000,255,000):POSITION OBJECT 6,100,Ground#+5,280
`create health crate
MAKE OBJECT CUBE 7,10:COLOR OBJECT 7,RGB(000,255,000):POSITION OBJECT 7,100,Ground#+5,310

`create bullets
for bullet=1 to 100
 make object sphere 100+bullet,1
 hide object 100+bullet
next bullet

`bulletlife array
dim bulletlife(100)

`create enemies
for e=1 to enemies
 make object sphere 10+e,50
 color object 10+e,rgb(255,000,000)
next e

`Initial enemy properties
for e=1 to enemies
 enemy_health(e)=2000
 enemy_state(e)=1
next e

`distance between player and enemy
Dim enemy_dist#(enemies)

`Types: I'll explain after I've done it
Type enemy
   x as float
   y as float
   z as float
endtype

Dim enemy_position(enemies) as enemy

`Randomise positions
for e=1 to enemies
 enemy_position(e).x=rnd(1000)
 enemy_position(e).z=rnd(1000)
next e

Dim enemy_angle(enemies) :`Array for the enemies' angles


`create playing field
MAKE MATRIX 1,1000,1000,50,50

`make matrix the ground
ground#=GET GROUND HEIGHT(1,0,0)

`---------------------------------------------------------------
`------------------Player Limbs---------------------------------
`---------------------------------------------------------------

`Add limb for intersection checks
MAKE OBJECT SPHERE 9999,10
MAKE MESH FROM OBJECT 1,9999
DELETE OBJECT 9999
ADD LIMB 1,1,1
HIDE LIMB 1,1

`Add a second limb for ground checks
ADD LIMB 1,2,1
OFFSET LIMB 1,2,0,-50,0
DELETE MESH 1
HIDE LIMB 1,2

`---------------------------------------------------------------
`------------------Main Do/Loop---------------------------------
`---------------------------------------------------------------
DO
`---------------------------------------------------------------
`------------------Info Display---------------------------------
`---------------------------------------------------------------

display_items()

`display text enemyhp above enemy
for e = 1 to enemies
 IF OBJECT EXIST(10+e)=1
  IF OBJECT IN SCREEN(10+e)=1
   CENTER TEXT OBJECT SCREEN X(10+e),OBJECT SCREEN Y(10+e)-70,"Enemy Health: "+str$(enemy_health(e))
  ENDIF
 ENDIF
next e

`Display health on-screen
TEXT 0,SCREEN HEIGHT()-80,"Health: "+str$(PlayerHP)

if CWeapon > 0
   TEXT 0,SCREEN HEIGHT()-55,weapon(CWeapon).name
   TEXT 0,SCREEN HEIGHT()-40,"Ammo: "+str$(weapon(CWeapon).ammo)
   TEXT 0,SCREEN HEIGHT()-30,"Clips: "+str$(weapon(CWeapon).clips)
endif

if CWeapon=0
   text 0,screen height()-55,weapon(CWeapon).name
endif

`Add a target reticule to the screen
CIRCLE SCREEN WIDTH()/2,SCREEN HEIGHT()/2,5

`Fix player moving through the matrix
if posy# < ground#+25
   posy# = ground#+25
   position object 1,posx#, posy#, posz#
endif

`Screen FPS
FPS#=SCREEN FPS()
TEXT 500,0,"FPS: "+STR$(FPS#)

`Camera Positioning
POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1)+10,OBJECT POSITION Z(1)

`---------------------------------------------------------------
`------------------Movement Settings----------------------------
`---------------------------------------------------------------
`stop player from flying
xrotate object 1, 0

`Movement Controls
IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,1
IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-1
IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,1.5
IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,1.5

`Use variables to make code easier to read (shorter lines)
posx# = object position x(1)
posy# = object position y(1)
posz# = object position z(1)

legx# = LIMB POSITION X(1,2)
legy# = LIMB POSITION Y(1,2)
legz# = LIMB POSITION Z(1,2)

`Space key Controls
IF SPACEKEY()=1 AND JUMPING=0
 JUMP_SPEED#=1
 JUMPING=1
ENDIF

`Jumping
IF JUMPING=1
   DEC JUMP_SPEED#,.009
   POSITION OBJECT 1,posx#,posy#+JUMP_SPEED#, posz#
   IF posy#<=ground#+25 THEN JUMPING=0
ENDIF

`Put player direction back to mouselook angle
xrotate object 1, CAMX#

`prevent player from moving off matrix
if posx# < 0 then posx# = 0 : play_out = 1
if posx# > 1000 then posx# = 1000 : play_out = 1
if posz# < 0 then posz# = 0 : play_out = 1
if posz# > 1000 then posz# = 1000 : play_out = 1
if play_out = 1
   position object 1, posx#, posy# , posz#
   play_out = 0
endif

`Mouse Camera Movement
CAMY#=CAMY#+MOUSEMOVEX()*.1
CAMX#=CAMX#+MOUSEMOVEY()*.1
IF CAMX#>90 AND CAMX#<135 THEN CAMX#=90
IF CAMX#>270 AND CAMX#<225 THEN CAMX#=90
YROTATE CAMERA CAMY#
XROTATE CAMERA CAMX#
YROTATE OBJECT 1,CAMY#
XROTATE OBJECT 1,CAMX#

`Reloading Part 2 (delay)
IF Reload=1 THEN INC Time#,.005
IF Time#>=1 THEN weapon(CWeapon).ammo=weapon(CWeapon).maxammo:DEC weapon(CWeapon).clips,1:Time#=0:Reload=0

`---------------------------------------------------------------
`------------------Enemy Code-----------------------------------
`---------------------------------------------------------------

`**********AI**********

`Select all enemies
for e=1 to enemies
enemy_dist#(e)=sqrt((posx#-enemy_position(e).x)^2+(posy#-enemy_position(e).y)^2+(posz#-enemy_position(e).z)^2)
 if enemy_state(e)=1
  enemy_angle(e)=wrapvalue(enemy_angle(e)+rnd(3))
endif
   if enemy_state(e)=2
    enemy_angle(e)=atanfull(posx#-enemy_position(e).x,posz#-enemy_position(e).z)
endif
enemy_position(e).x=newxvalue(enemy_position(e).x,enemy_angle(e),2.0)
enemy_position(e).z=newzvalue(enemy_position(e).z,enemy_angle(e),2.0)
     if enemy_dist#(e)<250 then enemy_state(e)=2 else enemy_state(e)=1
enemy_position(e).y=get ground height(1,enemy_position(e).x,enemy_position(e).z)+25
position object 10+e,enemy_position(e).x,enemy_position(e).y,enemy_position(e).z
yrotate object 10+e,enemy_angle(e)
next e

`************killing************************
for e = 1 to enemies
 if object exist (10+e)=1
  if enemy_health(enemies)<=0
   delete object 10 + e
   make object sphere 10+e,50
   color object 10+e,rgb(255,000,000)
   enemy_position(e).x=rnd(1000)
enemy_position(e).z=rnd(1000)
   enemy_health(enemies)=2000
  endif
 endif
next e

`---------------------------------------------------------------
`------------------Weapons/Items--------------------------------
`---------------------------------------------------------------

`create machinegun
   if object exist(2)=1
    if intersect object (2, legx#,legy#,legz#,posx#,posy#,posz#)>0
     delete object 2
     CWeapon=1
    endif
   endif
`create shogun
  if object exist(3)=1
    if intersect object (3, legx#,legy#,legz#,posx#,posy#,posz#)>0
     delete object 3
     CWeapon=2
    endif
   endif
`create rocketlauncher
  if object exist(4)=1
    if intersect object (4, legx#,legy#,legz#,posx#,posy#,posz#)>0
     delete object 4
     CWeapon=3
    endif
   endif

`Get Armor
IF OBJECT EXIST(5)=1
 IF INTERSECT OBJECT (5, legx#, legy#, legz#, posx#,posy#, posz#)>0
 DELETE OBJECT 5
  ENDIF
ENDIF

if object exist(5)=0
   TEXT 0,SCREEN HEIGHT()-100,"Armor: "+str$(ArmorHP)
endif

`Ammo Crate code A (ammo increase)
IF OBJECT EXIST(6)=1
 IF weapon(CWeapon).ammo<weapon(CWeapon).maxammo AND INTERSECT OBJECT (6, legx#, legy#, legz#, posx#,posy#,posz#)>0
  INC weapon(CWeapon).ammo,(weapon(CWeapon).maxammo-weapon(CWeapon).ammo)
 DELETE OBJECT 6
 ENDIF
ENDIF

`ammo crate code B (clips increase)
if object exist(6)=1
 If weapon(CWeapon).clips<weapon(CWeapon).maxclips and weapon(Cweapon).ammo>= weapon(Cweapon).maxammo
  if INTERSECT OBJECT (6, legx#, legy#, legz#, posx#,posy#, posz#)>0
  INC weapon(Cweapon).clips,1
  delete object 6
  endif
 endif
endif

`health crate code
If PlayerHP<MaxPlayerHP and intersect object (7, legx#, legy#, legz#, posx#, posy#, posz#)>0
   inc PlayerHP,(MaxPlayerHP-PlayerHP)
   delete object 7
endif

`---------------------------------------------------------------
`------------------Shooting-------------------------------------
`---------------------------------------------------------------

`Reloading (press R)
IF MOUSECLICK()=0 AND KEYSTATE(19)=1 AND weapon(CWeapon).ammo<weapon(CWeapon).maxammo AND weapon(CWeapon).clips>0
   Reload=1
ENDIF
`Show that we're reloading
IF Reload=1 THEN CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2,"Reloading..."

gosub shooting


SYNC
LOOP

`This does the shooting
shooting:

if mouseclick() = 1 and shot = 0
   shot = 1
   if weapon(CWeapon).ammo > 0 and keystate(19)=0
      position object 201 - weapon(CWeapon).ammo,posx#,posy#,posz#
      set object to camera orientation 201 - weapon(CWeapon).ammo
      bulletlife(101 - weapon(CWeapon).ammo) = weapon(CWeapon).blife
      show object 201 - weapon(CWeapon).ammo
      dec weapon(CWeapon).ammo
   endif
endif

`prevent user from shooting at high speed.
if mouseclick() = 0 then shot = 0

`handle all bullets
for b = 1 to 100
   if bulletlife(b) > 0
      bulletlife(b) = bulletlife(b) - 1
      move object 100 + b,3
      if object collision(100 + b,10+e) > 0
       dec enemyhp,weapon(CWeapon).bdamage
       bulletlife(b) = 0
        if bulletlife(b) = 0
         hide object 100 + b
        endif
      endif
   endif
next b


function display_items()

IF OBJECT EXIST(2)=1
   IF OBJECT IN SCREEN(2)=1
      CENTER TEXT OBJECT SCREEN X(2),OBJECT SCREEN Y(2)-20,"Machinegun"
   ENDIF
ENDIF
IF OBJECT EXIST(3)=1
   IF OBJECT IN SCREEN(3)=1
      CENTER TEXT OBJECT SCREEN X(3),OBJECT SCREEN Y(3)-20,"Shotgun"
   ENDIF
ENDIF
IF OBJECT EXIST(4)=1
   IF OBJECT IN SCREEN(4)=1
      CENTER TEXT OBJECT SCREEN X(4),OBJECT SCREEN Y(4)-20,"Rocket Launcher"
   ENDIF
ENDIF

IF OBJECT EXIST(5)=1
   IF OBJECT IN SCREEN(5)=1
      CENTER TEXT OBJECT SCREEN X(5),OBJECT SCREEN Y(5)-20,"Armor"
   ENDIF
ENDIF

if object exist(6)=1
 if object in screen(6)=1
   center text object screen x(6),object screen y (6)-20,"Ammo"
 endif
endif

IF OBJECT EXIST(7)=1
   IF OBJECT IN SCREEN(7)=1
      CENTER TEXT OBJECT SCREEN X(7),OBJECT SCREEN Y(7)-20,"Health"
   ENDIF
ENDIF
endfunction