`My first FPS
`Created by Blah569
`Date Started <03/02/07>


sync on
sync rate 0
hide mouse

rem lets draw the player ;D
make object sphere 1, 50
color object 1,rgb(000,255,000)

rem ut oh!  The enemy is a comming >:0!
make object sphere 2, 50
color object 2, rgb(255,000,000)
position object 2,130,0,0

rem basic wall :D
make object box 3, 100, 100, 5
position object 3,0,0,150

rem Ammo Picup Yay
make object box 4,15,20,50:color object 4,rgb(000,255,255):position object 4,-40,0,0

rem bullet
make object plain 9999,1,1
make mesh from object 1,9999
delete object 9999
add limb 1,1,1
offset limb 1,1,0,0,500
delete mesh 1
hide limb 1,1

rem Camera
position camera 0,500,-500
point camera 0,0,0
rem declare some variables
EnemyHP#=5000
Ammo#=1000
MaxAmmo#=1000
Clips#=3
MaxClips#=3

Rem Controls

do

if upkey()=1 then move object 1,.5
if downkey()=1 then move object 1,-.5
if leftkey()=1 then turn object left 1,.7
if rightkey()=1 then turn object right 1,.7
rem reload
if mouseclick()=0 and keystate(19)=1 and Amoo#<MaxAmmo# AND Clips#>0 then Reload#=1
if Reload#=1 then inc Time#,.001
if Time#>=1 then Ammo#=MaxAmmo#:dec Clips#,1:Time#=0:Reload#=0
IF INTERSECT OBJECT (4, OBJECT POSITION X(1),OBJECT POSITION Y(1)-25,OBJECT POSITION Z(1),OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1))>0
INC Clips#,(MaxClips#-Clips#)
INC Ammo#,(MaxAmmo#-Ammo#)
DELETE OBJECT 4
ENDIF


rem KILL
if keystate(19) and mouseclick()=1
if Ammo#>0
dec Ammo#,1
endif
if object exist(2)=1
if Ammo#>0
if intersect object (2, limb position x(1,1), limb position y(1,1), limb position z(1,1), object position x(1), object position y(1), object position z(1))>0
dec EnemyHP#,1
if EnemyHp#=0
if object exist(2)=1
delete object 2
endif
endif
endif
endif
endif
endif
rem lets draw sum text k?
if object exist(2)=1
center text object screen x(2), object screen y(2)-70,"Enemy Helath: "+str$(EnemyHP#)
endif
text 0,screen height()-50,"Ammo: "+str$(Ammo#)
text 0,screen height()-40,"Clips: "+str$(Clips#)
if object exist(4)=1 then center text object screen x(4),object screen y(4)-70,"Amoo Crate"

if object exist(4)=1
IF Ammo#<MaxAmmo# AND INTERSECT OBJECT (4, OBJECT POSITION X(1),OBJECT POSITION Y(1)-25,OBJECT POSITION Z(1),OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1))>0
endif
if Reload#=1 then center text screen width()/2,screen height()/2,"Reloading..."
sync
loop