Sorry your browser is not supported!

sync on
hide mouse
fog on

rem the music
load music "media\menu.wav",1
loop music 1

load sound "media\p228-2.wav",1
load sound "media\clipin.wav",2

rem the opening
cls
Input "What is your name ", name$
print "Hello " ; name$
print "I'll see you on the battlefield!"
wait 1100
set cursor 250,185
print "Loading textures"
wait 750
set cursor 250,200
print "Loading matrix"
wait 100
set cursor 250,215
print "Loading weapons"
wait 850
set cursor 250,230
print "Loading sounds"
wait 900
set cursor 250,245
print "Loading music"
wait 775
set cursor 250,260
print "Done Loading!!"
wait 650


sync

rem the backdrop

backdrop on
color backdrop 12


rem the gun
load object "media\assult.x",1
rem Get it facing the right way
yrotate object 1,90
fix object pivot 1
rem Make it a better size
scale object 1,410,410,410
rem THIS IS WHERE THE GUN IS PLACED.  CHANGE THESE TO MOVE THE GUN.
position object 1,25,-32.5,50
rem THIS COMMAND LOCKS AN OBJECT TO THE SCREEN.  LOOK IT UP IN THE HELP
lock object on 1

sync

Rem Make bullet
Make Object Sphere 3,1
position object 3,25,31,50
Hide Object 3

rem the matrix
load image "media\grass01.bmp",1

rem Make a simple scene for the camera to look at
make matrix 1,10000.0,10000.0,30,30
load bitmap "media\grass01.bmp",1
get image 1,0,0,256,256
delete bitmap 1
prepare matrix texture 1,1,2,2
randomize matrix 1,295.0

rem Draw aim
cls
Ink RGB(255,0,0),0
Circle Screen Width()/2, Screen Height()/2, 10
Dot Screen Width()/2, Screen Height()/2
sync

rem Position camera
position camera 5000,200,5000

rem Activate manual sync
sync on

rem Begin loop
do

rem the collison for 3d objects
SET GLOBAL COLLISION ON

rem the bullet shooting
if Mouseclick()=1 and BulletLife=0
Position object 3,X#+15,Y#+43.5,Z#
Set object to camera orientation 3
BulletLife=20
Show object 3
Endif

If BulletLife > 0
Dec BulletLife
Move object 3,20
If BulletLife = 0 then Hide object 3
Endif

ammo=10

If mouseclick()=1 and sound playing(1)=0 and ammo>0
ammo=ammo-1
play sound 1
endif

if mouseclick()=2 and sound playing(2)=0
ammo=10
play sound 2
endif
sync

rem Control camera with arrow keys
 OldCamAngleY# = CameraAngleY# 
 OldCamAngleX# = CameraAngleX# 

 CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2) 
 CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2) 

 Rem  Control input for camera 
 If Upkey()=1 
  XTest# = Newxvalue(X#,CameraAngleY#,10) 
  ZTest# = Newzvalue(Z#,CameraAngleY#,10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 

 If Downkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 
  
 If Leftkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 

 If Rightkey()=1 
  XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10) 
  ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10) 
  If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
   X#=XTest# 
   Z#=ZTest# 
  Endif 
 Endif 
  

 Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24) 
 Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24) 
  

 Y# = Get ground height(1,X#,Z#) 
 Position Camera X#,Y#+50,Z# 
return


if mouseclick()=1 then play sound 1
set sound speed 1,30000

rem Draw aim
Ink RGB(255,0,0),0
Circle Screen Width()/2, Screen Height()/2, 10
Dot Screen Width()/2, Screen Height()/2
sync

rem Syncronise
sync

rem End loop
loop

sync on
hide mouse
autocam off

dim bulletalive(10)
dim bulletx(10)
dim bullety(10)
dim bulletz(10)
gunrate=5
bullet=1

for b=1 to 10
make object sphere b,10
position object b,0,-20,bulletz(b)-(b*5)
next b

do

if guntimstart=1 then guntimer#=guntimer#+1
if guntimer#>gunrate then guntimer#=0
if spacekey()=1 and guntimstart=0 then guntimer#=0 : guntimstart=1
if spacekey()=1 and guntimer#=1
bullet=bullet+1
if bullet=10 then bullet=1
if bulletalive(bullet)=0 then bulletalive(bullet)=1
for b=1 to 10
show object b
next b
endif

if spacekey()=0 and guntimstart=1 then guntimer#=0 : guntimstart=0

for b=1 to 10
if bulletalive(b)=1
bulletz(b)=bulletz(b)+10
position object b,0,-20,bulletz(b)
if bulletz(b)>=300 then bulletz(b)=0 : bulletalive(b)=0
endif
if bulletalive(b)=0 then hide object b
next b

sync
loop

sync on

dim shot(12)

Make object cylinder 1,2
XRotate Object 1,90
Scale object 1,100,100,500
Fix object pivot 1

position object 1,0,-7,15
Lock object on 1

for a=2 to 11
Make Object Sphere a,1
Hide Object a
Fix object pivot a
Lock object on a

next a

shotnum=1
do
if leftkey()=1 then px#=px#-1.0
if rightkey()=1 then px#=px#+1.0

if mouseclick()=1  
shotnum=shotnum+1
if shotnum>11 then shotnum=2
shot(shotnum)=1
show Object shotnum
position object  shotnum,px#,-7,15

endif

position object 1,px#,-7,15


gosub shot
sync
loop

SHOT:

FOR shot=2 to 11
if shot(shot)=1
dec BulletLife
move object shot,1
shotdis#=object position z(shot)
if shotdis#>50 then hide object shot
endif

NEXT shot
RETURN

sync on
hide mouse
autocam off

dim bulletalive(10)
dim bulletx(10)
dim bullety(10)
dim bulletz(10)
gunrate=5
bullet=1

for b=1 to 10
make object sphere b,10
position object b,0,-20,bulletz(b)-(b*5)
next b

do
`.....................use arrow keys...........
if leftkey()=1 then bulletx#=bulletx#-1.0
if rightkey()=1 then bulletx#=bulletx#+1.0


if guntimstart=1 then guntimer#=guntimer#+1
if guntimer#>gunrate then guntimer#=0
if spacekey()=1 and guntimstart=0 then guntimer#=0 : guntimstart=1
if spacekey()=1 and guntimer#=1
bullet=bullet+1
if bullet=10 then bullet=1
if bulletalive(bullet)=0 then bulletalive(bullet)=1
for b=1 to 10
show object b
next b
endif

if spacekey()=0 and guntimstart=1 then guntimer#=0 : guntimstart=0

for b=1 to 10
if bulletalive(b)=1
bulletz(b)=bulletz(b)+10
position object b,bulletx#,-20,bulletz(b)
if bulletz(b)>=300 then bulletz(b)=0 : bulletalive(b)=0
endif
if bulletalive(b)=0 then hide object b
next b

sync
loop