Sorry your browser is not supported!

Sync On:Sync Rate 60:Autocam Off

Global Reload
Null=Make Vector3(1)

Make_Terrain(64,64)

Do
   Control Camera Using Arrowkeys 0,.5,2
   ny#=Get Terrain Ground Height(1,CamX,CamZ)+2
   Position Camera CamX,ny#,CamZ
   Move_Bullets()
   Shoot_Bullet()
   Sync
Loop































Function Splotch(h,s)
   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,s*2+1,s*2+1
   Lock Pixels
   Ink 0,0
   Box 0,0,1+s*2,1+s*2
   c=rnd(7)+h-3
   Ink Rgb(c,c,c),0
   r=rnd(s/2)+s/4
   For i# = 0.0 to 360.0 step 2
      x=sin(i#)*r+s/2
      y=cos(i#)*r+s/2
      line s/2,s/2,x,y
      r=r+(rnd(2)-1)
      if r>s+15 then r=s+15
      m=s-15:If m<2 then m=2
      if r<m then r=m
   Next i#
   Unlock Pixels
   Get Image 1,0,0,1+s*2,1+s*2
   Set Current Bitmap 0
   Delete Bitmap 1
Endfunction

Function Grass()
   Ink Rgb(0,130,0),0
   Box 0,0,511,511
   g=0
   Do
      Splotch(180,30)
      Sprite 1,0,0,1
      Size Sprite 1,rnd(3)+1,Rnd(3)+1
      Set Sprite Alpha 1,180
      Set Sprite Diffuse 1,0,Rnd(50)+Rnd(50)+100,0
      Paste Sprite 1,rnd(65),rnd(65)
      Dot rnd(70),Rnd(70),Rgb(0,Rnd(50)+100,0)
      g=g+1
      If rnd(2000)+1000<g Then Exit
   Loop
   Get Image 3,5,5,69,69,0
   Ink Rgb(0,90,0),0
   Box 0,0,511,511
   g=0
   Do
      Splotch(rnd(80)+130,30)
      Sprite 1,200,200,1
      Size Sprite 1,rnd(10)+10,Rnd(10)+10
      Set Sprite Alpha 1,64
      Set Sprite Diffuse 1,0,Rnd(50)+Rnd(50)+rnd(50)+rnd(50)+Rnd(50),0
      Paste Sprite 1,rnd(64),rnd(64)
      g=g+1
      If rnd(1000)+200<g Then Exit
   Loop
   Get Image 4,5,5,69,69,0
   Sprite 2,0,0,4
   Paste Sprite 2,0,0
   Mirror Sprite 2
   Paste Sprite 2,64,0
   Flip Sprite 2
   Paste Sprite 2,64,64
   Mirror Sprite 2
   Paste Sprite 2,0,64
   Get Image 4,0,0,128,128,0
   Delete Sprite 1
   Delete Sprite 2
Endfunction

Function Create_Heightmap(x,y)
   Ink rgb(100,100,100),0
   Box 0,0,x,y
   s=(x/4)*(y/4)
   For i = 1 to s
      Randomize Timer()
      sx=rnd(x)
      sy=rnd(y)
      TileHeight=rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6)-(rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6))
      ss=rnd(8)+rnd(8)+rnd(8)+rnd(8)+8
      Splotch(TileHeight,ss)
      Sprite 1,0,0,1
      Set Sprite 1,0,1
      Set Sprite Alpha 1,rnd(55)+rnd(55)+rnd(55)
      Paste Sprite 1,sx,sy
   Next i
   c as dword
   for noise=1 to rnd(50)+rnd(50)+rnd(50)+50
      noisex=rnd(x)
      noisey=rnd(y)
      c=point(noisex,noisey)
      h=rgbr(c)+rnd(4)-rnd(4)
      ink rgb(h,h,h),0
      dot noisex,noisey
   Next noise
   if file exist("Heightmap.bmp") Then Delete File "Heightmap.bmp"
   Get Image 2,0,0,x,y,0
   Save Image "Heightmap.bmp",2
   If Sprite Exist(1) Then Delete Sprite 1
   Ink Rgb(255,255,255),0
   Print "Heightmap Done"
   Sync
Endfunction


Function Make_Terrain(x,y)
   Create_Heightmap(x,y)
   Grass()
   If Object Exist(1) then Delete Object 1
   Make Object Terrain 1
   Set Terrain Heightmap 1,"Heightmap.bmp"
   Set Terrain Texture 1,4,3
   Set Terrain Tiling 1,3
   Set Terrain Scale 1,20,.5,20
   Set Terrain Light 1,20,50,10,200,200,150,.2
   Build Terrain 1
   Set Object Collision Off 1
Endfunction




Function Shoot_Bullet()
   If Reload>0
      Dec Reload
      ExitFunction
   Endif
   If Mouseclick()<>1 Then Exitfunction
   Reload=30
   B=Make_Bullet()
   If B<1 then Exitfunction
   bx#=Sin(Camera Angle Y()+90.0)*2.0+CamX
   bz#=Cos(Camera Angle Y()+90.0)*2.0+CamZ
   Position Object B,bx#,CamY,bz#
   Pick Screen MouseX(),MouseY(),1000
   Point Object B, CamX +Get Pick Vector X(), CamY +Get Pick Vector Y(), CamZ +Get Pick Vector Z()
   Move Object B,5
   Set Vector3 B,Object Position X(B)-bx#,Object Position Y(B)-CamY,Object Position Z(B)-bz#
Endfunction


Function Get_Free_Bullet()
   flag=0
   For i = 2001 to 3000
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag
      null=Make Vector3(i)
   Else
      i=-1
   Endif
Endfunction i

Function Make_Bullet()
   blt=Get_Free_Bullet()
   If blt=-1 Then ExitFunction -1
   Make Object Sphere blt,.5,6,6
   Scale Object blt,100,100,500
Endfunction blt

Function Move_Bullets()
   For i = 2001 to 3000
      If Object Exist(i)
         Set Vector3 1,Object Position X(i)-CamX,Object Position Y(i)-CamY,Object Position Z(i)-CamZ
         If Length Vector3(1)>500 or Object Position Y(i)<10
            Delete Object i
         Else
            Position Object i,Object Position X(i)+X Vector3(i),Object Position Y(i)+Y Vector3(i),Object Position Z(i)+Z Vector3(i)
            Set Vector3 i,X Vector3(i),Y Vector3(i)-.001,Z Vector3(i)
         Endif
      Endif
   Next i
Endfunction


#Constant CamX Camera Position X()
#Constant CamY Camera Position Y()
#Constant CamZ Camera Position Z()

#Constant CamX Camera Position X()
#Constant CamY Camera Position Y()
#Constant CamZ Camera Position Z()

`input commands
#Constant mshow show mouse
#Constant mhide hide mouse
#Constant mpos position mouse
#Constant mchng change mouse
#Constant mx mousex()
#Constant my mousey()
#Constant mz mousez()
#Constant mmx mousemovex()
#Constant mmy mousemovey()
#Constant mmz mousemovez()
#Constant mc mouseclick()
#Constant cbput write to clipboard
#Constant cbget get clipboard$()
#Constant scan scancode()
#Constant esc escapekey()
#Constant upk upkey()
#Constant dnk downkey()
#Constant ltk leftkey()
#Constant rtk rightkey()
#Constant shft shiftkey()
#Constant ctrl controlkey()

`keystate abreviations
#Constant k1 keystate(2)
#Constant k2 keystate(3)
#Constant k3 keystate(4)
#Constant k4 keystate(5)
#Constant k5 keystate(6)
#Constant k6 keystate(7)
#Constant k7 keystate(8)
#Constant k8 keystate(9)
#Constant k9 keystate(10)
#Constant k0 keystate(11)
#Constant ka keystate(30)
#Constant kb keystate(48)
#Constant kc keystate(46)
#Constant kd keystate(32)
#Constant ke keystate(18)
#Constant kf keystate(33)
#Constant kg keystate(34)
#Constant kh keystate(35)
#Constant ki keystate(23)
#Constant kj keystate(36)
#Constant kk keystate(37)
#Constant kl keystate(38)
#Constant km keystate(50)
#Constant kn keystate(49)
#Constant ko keystate(24)
#Constant kp keystate(25)
#Constant kq keystate(16)
#Constant kr keystate(19)
#Constant ks keystate(31)
#Constant kt keystate(20)
#Constant ku keystate(22)
#Constant kv keystate(47)
#Constant kw keystate(17)
#Constant kx keystate(45)
#Constant ky keystate(21)
#Constant kz keystate(44)
`common direction keys functionality
#Constant kudrl (downkey()+(upkey()*2)+(rightkey()*4)+(leftkey()*8)) `returns binary result; bit 0=down, 1=up, 2=right, 3=left
#Constant kupdn (upkey()-downkey()) ` returns a 1 if up or -1 if down or 0 if both or nothing
#Constant krtlt (rightkey()-leftkey()) ` returns a 1 if right or -1 if left
#Constant kwasd (keystate(31)+(keystate(17)*2)+(keystate(30)*4)+(keystate(32)*8)) `returns binary result; bit 0="s", 1="w", 2="a", 3="d"
#Constant kws (keystate(17)-keystate(31)) `returns a 1 if "w" or -1 if "s" or 0 if both or nothing
#Constant kad (keystate(32)-keystate(30)) `returns a 1 if "d" or -1 if "a" or 0 if both or nothing
`Shift and control key functionality
#Constant lshft keystate(42)
#Constant rshft keystate(54)
#Constant lctrl keystate(29)
#Constant rctrl keystate(157)
#Constant rlshft (keystate(54)-keystate(42))
#Constant rlctrl (keystate(157)-keystate(29))
`keypad keys
#Constant kp1 keystate(79)
#Constant kp2 keystate(80)
#Constant kp3 keystate(81)
#Constant kp4 keystate(75)
#Constant kp5 keystate(76)
#Constant kp6 keystate(77)
#Constant kp7 keystate(71)
#Constant kp8 keystate(72)
#Constant kp9 keystate(73)
#Constant kp0 keystate(82)
`keypad direction functionality
#Constant kpudrl (keystate(80)+(keystate(73)*2)+(keystate(77)*4)+(keystate(75)*8))  `returns binary result; bit 0=down, 1=up, 2=right, 3=left
#Constant kpupdn (keystate(73)-keystate(80)) ` returns a 1 if up or -1 if down or 0 if both or nothing
#Constant kprtlt (keystate(75)-keystate(77)) ` returns a 1 if right or -1 if left

#Constant Free_Object Free_Object()

Function Free_Object()
   i as dword =1
   Do
      If Object Exist(i)=0 Then Exit
   Loop
Endfunction i

Sync On:Sync Rate 60:Autocam Off

Global Reload
Null=Make Vector3(1)
Null=Make Vector3(2)

Make_Terrain(64,64)


Position Camera 640,0,640

For i = 1 to 100
   Enemy=Make_Enemy()
   x#=rnd(1280):z#=Rnd(1280)
   y#=Get Terrain Ground Height(1,x#,z#)
   Position Object Enemy,x#,y#+1.6,z#
Next i

Do
   Control Camera Using Arrowkeys 0,.5,2
   ny#=Get Terrain Ground Height(1,CamX,CamZ)+2
   Position Camera CamX,ny#,CamZ
   Move_Bullets()
   Shoot_Bullet()
   Move_Enemy()
   Set Cursor 0,0
   Print Screen FPS()
   Sync
Loop











Function Make_Enemy()
   E=Get_Free_Enemy()
   If E<1 Then ExitFunction -1
   Make Object Sphere E,1,6,6
   Make Mesh From Object 1,E
   Delete Object E
   Make Object Cube E,3
   Color Object E,Rgb(0,0,60)
   Add Limb E,1,1
   Offset Limb E,1,-1.5,1.5,1.5
   Color Limb E,1,Rgb(255,0,0)
   Add Limb E,2,1
   Offset Limb E,2,1.5,1.5,1.5
   Color Limb E,2,Rgb(255,0,0)
   Set Object Ambience E,0
   Set Object Specular E,Rgb(150,150,150)
   Set Object Specular Power E,200
Endfunction E

Function Move_Enemy()
   For i = 1001 to 2000
      If Object Exist(i)
         Set Vector3 1,CamX - Limb Position X(i,1),CamY - Limb Position Y(i,1),CamZ - Limb Position Z(i,1)
         Set Vector3 2,CamX - Limb Position X(i,2),CamY - Limb Position Y(i,2),CamZ - Limb Position Z(i,2)
         Turn#=(Length Vector3(1)-Length Vector3(2))*(Factor+.2)
         If Turn#>1.5 Then Turn#=1.5
         If Turn#<-1.5 Then Turn#=-1.5
         Turn Object Right i,Turn#
         oldy#=Object Position Y(i)
         Move Object i,.35
         x#=Object Position X(i):z#=Object Position Z(i)
         y#=Get Terrain Ground Height(1,x#,z#)
         Move Object i,(oldy#-y#)*.2
         Position Object i,x#,y#+1.6,z#
      Endif
   Next i
Endfunction







Function Get_Free_Enemy()
   flag=0
   For i = 1001 to 2000
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag=0
      i=-1
   Endif
Endfunction i





Function Splotch(h,s)
   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,s*2+1,s*2+1
   Lock Pixels
   Ink 0,0
   Box 0,0,1+s*2,1+s*2
   c=rnd(7)+h-3
   Ink Rgb(c,c,c),0
   r=rnd(s/2)+s/4
   For i# = 0.0 to 360.0 step 2
      x=sin(i#)*r+s/2
      y=cos(i#)*r+s/2
      line s/2,s/2,x,y
      r=r+(rnd(2)-1)
      if r>s+15 then r=s+15
      m=s-15:If m<2 then m=2
      if r<m then r=m
   Next i#
   Unlock Pixels
   Get Image 1,0,0,1+s*2,1+s*2
   Set Current Bitmap 0
   Delete Bitmap 1
Endfunction

Function Grass()
   Ink Rgb(0,130,0),0
   Box 0,0,511,511
   g=0
   Do
      Splotch(180,30)
      Sprite 1,0,0,1
      Size Sprite 1,rnd(3)+1,Rnd(3)+1
      Set Sprite Alpha 1,180
      Set Sprite Diffuse 1,0,Rnd(50)+Rnd(50)+100,0
      Paste Sprite 1,rnd(65),rnd(65)
      Dot rnd(70),Rnd(70),Rgb(0,Rnd(50)+100,0)
      g=g+1
      If rnd(2000)+1000<g Then Exit
   Loop
   Get Image 3,5,5,69,69,1
   Ink Rgb(0,90,0),0
   Box 0,0,511,511
   g=0
   Do
      Splotch(rnd(80)+130,30)
      Sprite 1,200,200,1
      Size Sprite 1,rnd(10)+10,Rnd(10)+10
      Set Sprite Alpha 1,64
      Set Sprite Diffuse 1,0,Rnd(50)+Rnd(50)+rnd(50)+rnd(50)+Rnd(50),0
      Paste Sprite 1,rnd(64),rnd(64)
      g=g+1
      If rnd(1000)+200<g Then Exit
   Loop
   Get Image 4,5,5,69,69,0
   Sprite 2,0,0,4
   Paste Sprite 2,0,0
   Mirror Sprite 2
   Paste Sprite 2,64,0
   Flip Sprite 2
   Paste Sprite 2,64,64
   Mirror Sprite 2
   Paste Sprite 2,0,64
   Get Image 4,0,0,128,128,0
   Delete Sprite 1
   Delete Sprite 2
Endfunction

Function Create_Heightmap(x,y)
   Ink rgb(100,100,100),0
   Box 0,0,x,y
   s=(x/4)*(y/4)
   For i = 1 to s
      Randomize Timer()
      sx=rnd(x)
      sy=rnd(y)
      TileHeight=rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6)-(rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6))
      ss=rnd(8)+rnd(8)+rnd(8)+rnd(8)+8
      Splotch(TileHeight,ss)
      Sprite 1,0,0,1
      Set Sprite 1,0,1
      Set Sprite Alpha 1,rnd(55)+rnd(55)+rnd(55)
      Paste Sprite 1,sx,sy
   Next i
   c as dword
   for noise=1 to rnd(50)+rnd(50)+rnd(50)+50
      noisex=rnd(x)
      noisey=rnd(y)
      c=point(noisex,noisey)
      h=rgbr(c)+rnd(4)-rnd(4)
      ink rgb(h,h,h),0
      dot noisex,noisey
   Next noise
   if file exist("Heightmap.bmp") Then Delete File "Heightmap.bmp"
   Get Image 2,0,0,x,y,0
   Save Image "Heightmap.bmp",2
   If Sprite Exist(1) Then Delete Sprite 1
   Ink Rgb(255,255,255),0
   Print "Heightmap Done"
   Sync
Endfunction


Function Make_Terrain(x,y)
   Create_Heightmap(x,y)
   Grass()
   If Object Exist(1) then Delete Object 1
   Make Object Terrain 1
   Set Terrain Heightmap 1,"Heightmap.bmp"
   Set Terrain Texture 1,4,3
   Set Terrain Tiling 1,3
   Set Terrain Scale 1,20,.5,20
   Set Terrain Light 1,20,50,10,200,200,150,.2
   Build Terrain 1
   Set Object Collision Off 1
Endfunction




Function Shoot_Bullet()
   If Reload>0
      Dec Reload
      ExitFunction
   Endif
   If Mouseclick()<>1 Then Exitfunction
   Reload=30
   B=Make_Bullet()
   If B<1 then Exitfunction
   bx#=Sin(Camera Angle Y()+90.0)*2.0+CamX
   bz#=Cos(Camera Angle Y()+90.0)*2.0+CamZ
   Position Object B,bx#,CamY,bz#
   Pick Screen MouseX(),MouseY(),1000
   Point Object B, CamX +Get Pick Vector X(), CamY +Get Pick Vector Y(), CamZ +Get Pick Vector Z()
   Move Object B,5
   Set Vector3 B,Object Position X(B)-bx#,Object Position Y(B)-CamY,Object Position Z(B)-bz#
Endfunction


Function Get_Free_Bullet()
   flag=0
   For i = 2001 to 3000
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag
      null=Make Vector3(i)
   Else
      i=-1
   Endif
Endfunction i

Function Make_Bullet()
   blt=Get_Free_Bullet()
   If blt=-1 Then ExitFunction -1
   Make Object Sphere blt,.5,6,6
   Scale Object blt,100,100,500
Endfunction blt

Function Move_Bullets()
   For i = 2001 to 3000
      If Object Exist(i)
         Set Vector3 1,Object Position X(i)-CamX,Object Position Y(i)-CamY,Object Position Z(i)-CamZ
         If Length Vector3(1)>500 or Object Position Y(i)<10
            Delete Object i
         Else
            Position Object i,Object Position X(i)+X Vector3(i),Object Position Y(i)+Y Vector3(i),Object Position Z(i)+Z Vector3(i)
            Set Vector3 i,X Vector3(i),Y Vector3(i)-.01,Z Vector3(i)
         Endif
      Endif
   Next i
Endfunction


#Constant CamX Camera Position X()
#Constant CamY Camera Position Y()
#Constant CamZ Camera Position Z()
#Constant Factor Rnd(1000.0)/1000.0

With_Obj 5
   Move_Obj .5
   Turn_Obj_Rt 2
   Color_Obj Rgb(20,50,90)
   Print ObjX,ObjY,ObjZ
End_With_Obj

Setup_Screen()
Gosub _InitialiseGlobals
Create_Maze()

Do
	Check_Wall_Collisions(2.0,0.5)
	Move_Camera(.5)
	`Control Camera Using Arrowkeys 0,.5, 1
	Sync
loop

Function Setup_Screen()
	sync on: sync rate 60
	autocam off	:Position Camera 15,5,15
	Set ambient light 75
endfunction


_InitialiseGlobals:
	Type Object
		X As Integer: Y As Integer: Z As Integer
		num As Integer
		Tile As Integer
	endtype
	
	Global MapWidth As Integer: MapWidth = 10
	Global MapHeight As Integer: MapHeight = 10
	Global Cubesize As Integer: CubeSize = 10
	
	Dim Cube(MapWidth,MapHeight) As Object
	
	Dim WallExist(4)
	
	Global PlayerX As Float: Global PlayerY As Float: Global PlayerZ As Float
	Global PlayerAng As Float: PlayerAng = Camera angle Y()
	PlayerX = Camera Position X(): PlayerY = Camera Position Y(): PlayerZ = Camera Position Z()

	
Return

Function Get_Free_Object_Number()
	Remstart
	This function just finds a free object, and then returns its number.
	This is so that objects can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend	
	
	Do
		inc ObjectNumber
	 	If Object Exist(ObjectNumber) = 0 Then Exit
	Loop
EndFunction ObjectNumber


Function Get_Free_Image_Number()
	Remstart
	This function just finds a free image, and then returns its number.
	This is so that images can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend

	Do
		inc ImageNumber
		If Image Exist(ImageNumber) = 0 Then Exit
	loop
endfunction ImageNumber



Function BrickTexture(ImageNumber)

Ink Rgb(128,64,0),0
Box 0,0,64,64

Ink Rgb(0,0,0),0
For a = 0 To 7
	Line 0,(a*8),64,(a*8)
next a

For x = 0 To 7
	For y = 0 To 7
		If (x+y) mod 2 = 0 Then Line (x*8),(y*8),(x*8),((y+1)*8)		
	next y
next x

Get Image Imagenumber, 0, 0, 64, 64

EndFunction


Function FloorTexture(ImageNumber)
	Ink RGB(50,50,50),0
	box 0,0,64,64
	
	Get Image Imagenumber, 0, 0, 64, 64
endfunction
 
 
Function Create_Maze()
	BrickImage = Get_Free_Image_Number()
	BrickTexture(BrickImage)
	
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			Read Cube(x,z).Tile
			Cube(x,z).X = (x-1)*10+5
			Cube(x,z).Y = 5
			Cube(x,z).Z = (z-1)*10+5
			Cube(x,z).num = Get_Free_Object_Number()
			Make Object Cube Cube(x,z).num,Cubesize
			Texture Object Cube(x,z).num,BrickImage
			Position Object Cube(x,z).num, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z
			If Cube(x,z).Tile = 0 Then Hide Object Cube(x,z).num
		next x
	next z
	
	FloorObject = Get_Free_Object_Number()
	FloorImage = Get_Free_Image_Number()
	FloorTexture(FloorImage)
	
	Make Object Plain FloorObject, MapWidth*Cubesize, MapHeight*CubeSize
	xrotate object FloorObject,90
	Position Object FloorObject, (MapWidth*Cubesize)/2,0,(MapHeight*CubeSize)/2
	Texture Object FloorObject, FloorImage
	
	CeilingObject = Get_Free_Object_Number()
	CeilingImage = Get_Free_Image_Number()
	FloorTexture(CeilingImage)
	
	Make Object Plain CeilingObject, MapWidth*Cubesize, MapHeight*CubeSize
	xrotate object CeilingObject,90
	Position Object CeilingObject, (MapWidth*Cubesize)/2,10,(MapHeight*CubeSize)/2
	Texture Object CeilingObject,CeilingImage
EndFunction

Function Check_Wall_Collisions(Buffer#,Speed#)
	For direction = 1 To 4
		WallExist(direction) = 0
	next direction
	
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			If Cube(x,z).Tile <> 0
				If Abs((Cube(x,z).X-Buffer#-(Cubesize/2)-PlayerX)) < Speed#  And Abs((Cube(x,z).Z)-PlayerZ)-Buffer# < (Cubesize/2) Then WallExist(1) = 1
				If Abs((Cube(x,z).X+Buffer#+(Cubesize/2)-PlayerX)) < Speed#  And Abs((Cube(x,z).Z)-PlayerZ)-Buffer# < (Cubesize/2) Then WallExist(3) = 1

				If Abs((Cube(x,z).Z-Buffer#-(Cubesize/2)-PlayerZ)) < Speed#  And Abs((Cube(x,z).X)-PlayerX)-Buffer# < (Cubesize/2) Then WallExist(2) = 1
				If Abs((Cube(x,z).Z+Buffer#+(Cubesize/2)-PlayerZ)) < Speed#  And Abs((Cube(x,z).X)-PlayerX)-Buffer# < (Cubesize/2) Then WallExist(4) = 1			
			endif
		next x
	next z
	
endfunction


Function Move_Camera(Speed#)
	
	If Leftkey() = 1 Then PlayerAng = WrapValue(PlayerAng - Speed#*2)
	If RightKey() = 1 Then PlayerAng = WrapValue(PlayerAng + Speed#*2)
	
	
	If PlayerAng >= 0 AND PlayerAng <= 180
		If  WallExist(1) = 0 And Upkey() = 1 Then PlayerX = Newxvalue(PlayerX, PlayerAng, Speed#)
		If  WallExist(3) = 0 And Downkey() = 1 Then PlayerX = Newxvalue(PlayerX,PlayerAng,-Speed#)
	Endif
	
	If PlayerAng >= 180 And PlayerAng <= 360
		If  WallExist(3) = 0 And Upkey() = 1 Then PlayerX = Newxvalue(PlayerX, PlayerAng, Speed#)
		If  WallExist(1) = 0 And Downkey() = 1 Then PlayerX = Newxvalue(PlayerX,PlayerAng,-Speed#)
	Endif
	
	If PlayerAng >= 270 Or PlayerAng <= 90
		If  WallExist(2) = 0 And Upkey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng, Speed#)
		If  WallExist(4) = 0 And Downkey() = 1 Then PlayerZ = Newzvalue(PlayerZ,PlayerAng,-Speed#)			
	Endif		

	If PlayerAng >= 90 And PlayerAng <= 270
		If  WallExist(4) = 0 And Upkey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng, Speed#)
		If  WallExist(2) = 0 And Downkey() = 1 Then PlayerZ = Newzvalue(PlayerZ,PlayerAng,-Speed#)			
	Endif		
	
	
	
	Position Camera PlayerX, PlayerY, PlayerZ
	Yrotate Camera PlayerAng
endfunction

`Main Level (Current)

Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 0, 0, 0, 1, 0, 0, 0, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 1, 0, 1, 0, 0, 0, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 1, 0, 0, 0, 1, 1, 0, 1
Data 1, 0, 1, 1, 1, 1, 1, 1, 0, 1
Data 1, 0, 0, 0, 0, 0, 0, 0, 0, 1
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

`Initialisation section
set display mode 1280, 1024, 32
sync on
sync rate 0
randomize timer()
autocam off
set camera range 0.1, 50.0
backdrop on
color backdrop 0
hide mouse

#constant CamX camera position x()
#constant CamY camera position y()
#constant CamZ camera position z()



`Declare some types
type mazeCell
   N
   S
   E
   W
endtype
type Coord
   x
   y
endtype
`How many cells do we want?
#constant M_WIDTH 8
#constant M_HEIGHT 8
`Create a maze
dim Maze(M_WIDTH, M_HEIGHT) as mazeCell
`dim MazeWallID(M_WIDTH, M_HEIGHT) as mazeCell

`Generate the maze
GenerateMaze()

`Dummy object cube - for collision only, hence being hidden
make object cube 2, 0.1
hide object 2

set object collision to polygons 1
set object collision to polygons 2








target_angle# = 0.0
angle# = 0.0


position camera 1.0, 0.0, 1.0
frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 200, 0, "FPS: " + str$(screen fps())



   inc target_angle#, mousemovex() * 0.5
   angle# = curveangle(target_angle#, angle#, 100.0 / frameTime#)
   yrotate camera angle#



   if upkey()
      move camera frameTime# * 0.002
   else
      if downkey() then move camera frameTime# * -0.002
   endif


   position object 2, CamX, CamY, CamZ
   text 200, 10, "COLLISSION: " + str$(object collision(2, 1))
   text 200, 20, "Cam Pos: " + str$(CamX) + ", " + str$(CamY) + ", " + str$(CamZ)



   paste image 1, 0, 0, 1
   if spacekey() then GenerateMaze()
   sync
loop
end





`*******************************
`**                           **
`**      MAZE GENERATION      **
`**                           **
`*******************************
function GenerateMaze()
   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         Maze(i,j).N = 1
         Maze(i,j).S = 1
         Maze(i,j).E = 1
         Maze(i,j).W = 1
      next j
   next i

   dim CellStack() as Coord : empty array CellStack() : array index to stack CellStack()
   TotalCells = M_WIDTH * M_HEIGHT
   VisitedCells = 1
   currentCell as Coord
   currentCell.x = rnd(M_WIDTH-2)+1
   currentCell.y = rnd(M_HEIGHT-2)+1
   Dim Available(4)

   while VisitedCells < TotalCells
      Available(0) = 0
      Available(1) = 0
      Available(2) = 0
      Available(3) = 0
      found = 0
      if currentCell.y > 1
         tX = currentCell.x
         tY = currentCell.y-1
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(0) = 1
         endif
      endif
      if currentCell.y < M_HEIGHT
         tX = currentCell.x
         tY = currentCell.y+1
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(1) = 1
         endif
      endif
      if currentCell.x > 1
         tX = currentCell.x-1
         tY = currentCell.y
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(2) = 1
         endif
      endif
      if currentCell.x < M_WIDTH
         tX = currentCell.x+1
         tY = currentCell.y
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(3) = 1
         endif
      endif
      if found > 0
         choice = rnd(3)
         while Available(choice) = 0
            choice = rnd(3)
         endwhile

         select choice
            `North
            case 0
               Maze(currentCell.x, currentCell.y).N = 0
               Maze(currentCell.x, currentCell.y-1).S = 0
               add to stack CellStack()
               CellStack() = currentCell
               dec currentCell.y
            endcase

            `South
            case 1
               Maze(currentCell.x, currentCell.y).S = 0
               Maze(currentCell.x, currentCell.y+1).N = 0
               add to stack CellStack()
               CellStack() = currentCell
               inc currentCell.y
            endcase

            `West
            case 2
               Maze(currentCell.x, currentCell.y).W = 0
               Maze(currentCell.x-1, currentCell.y).E = 0
               add to stack CellStack()
               CellStack() = currentCell
               dec currentCell.x
            endcase

            `East
            case 3
               Maze(currentCell.x, currentCell.y).E = 0
               Maze(currentCell.x+1, currentCell.y).W = 0
               add to stack CellStack()
               CellStack() = currentCell
               inc currentCell.x
            endcase
         endselect
         inc VisitedCells
      else
         currentCell = CellStack()
         remove from stack CellStack()
      endif
   endwhile

   `Create a 2D Map image
   cls
   MAP_SCALE# = 8.5

   IMGX# = M_WIDTH  * MAP_SCALE#
   IMGY# = M_HEIGHT * MAP_SCALE#

   SCALEX# = (IMGX#-1) / M_WIDTH
   SCALEY# = (IMGY#-1) / M_HEIGHT

   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         x1 = (i-1) * SCALEX#
         x2 =  i    * SCALEX#
         y1 = (j-1) * SCALEY#
         y2 =  j    * SCALEY#

         if Maze(i,j).N = 1 then line x1, y1, x2, y1
         if Maze(i,j).S = 1 then line x1, y2, x2, y2
         if Maze(i,j).E = 1 then line x2, y1, x2, y2
         if Maze(i,j).W = 1 then line x1, y1, x1, y2
      next j
   next i

   get image 1, 0, 0, IMGX#, IMGY#, 1


  `Create a 3D Maze
  `Create a template wall
  make object plain 100, 1, 1
  position object 100, 0, 0, 0
  point object 100, 0, 0, -1
  make mesh from object 1, 100
  delete object 100

  if object exist(1) then delete object 1

  `Create a placeholder, hidden triangle for limb 0
  make object triangle 1, 0,0,0,  0,0,0,  0,0,0

  limbCount = 1
  for i = 1 to M_WIDTH
     for j = 1 to M_HEIGHT
        `Make the north wall (z-0.5)
        if Maze(i, j).N
           add limb    1, limbCount, 1
           rotate limb 1, limbCount, 0,   0.0,   0
           offset limb 1, limbCount, i,   0.0,   j-0.5
           inc limbCount
        endif
        `Make the south wall (z+0.5)
        if Maze(i, j).S
           add limb    1, limbCount, 1
           rotate limb 1, limbCount, 0, 180.0,   0
           offset limb 1, limbCount, i,   0.0,   j+0.5
           inc limbCount
        endif



        `Make the west wall (x-0.5)
        if Maze(i, j).W
           add limb    1, limbCount, 1
           rotate limb 1, limbCount, 0    , 270.0,   0
           offset limb 1, limbCount, i-0.5,   0.0,   j
           inc limbCount
        endif
        `Make the east wall (x+0.5)
        if Maze(i, j).E
           add limb    1, limbCount, 1
           rotate limb 1, limbCount, 0    ,  90.0,   0
           offset limb 1, limbCount, i+0.5,   0.0,   j
           inc limbCount
        endif



        `Deal with the E/W outer walls
        if i = 1
           `Going down the left side - we need to add an "east" wall to the outside left
           add limb    1, limbCount, 1
           rotate limb 1, limbCount, 0    ,  90.0,   0
           offset limb 1, limbCount, i-0.5,   0.0,   j
           inc limbCount
        else
           if i = M_WIDTH
              `Going down the right side - we need to add an "west" wall to the outside right
              add limb    1, limbCount, 1
              rotate limb 1, limbCount, 0    , 270.0,   0
              offset limb 1, limbCount, i+0.5,   0.0,   j
              inc limbCount
           endif
        endif

        `Deal with the N/S outer walls
        if j = 1
           `Going down the top side - we need to add an "south" wall to the outside top
           add limb    1, limbCount, 1
           rotate limb 1, limbCount, 0    , 180.0,   0
           offset limb 1, limbCount, i    ,   0.0,   j-0.5
           inc limbCount
        else
           if j = M_WIDTH
              `Going down the bottom side - we need to add an "north" wall to the outside bottom
              add limb    1, limbCount, 1
              rotate limb 1, limbCount, 0    ,   0.0,   0
              offset limb 1, limbCount, i    ,   0.0,   j+0.5
              inc limbCount
           endif
        endif
     next j
  next i
  color object 1, rgb(128, 128, 128) && (72 << 24)
  set object transparency 1, 3
  disable object zread 1
  delete mesh 1
endfunction

Sync On:Sync Rate 60:Autocam Off
Fog On: Fog Color Rgb(20,40,20):Fog Distance 20,250

Global Reload
Global Lymphs as Float
Global LymphTime as Integer
Global Health as Float
Health = 100.0
Null=Make Vector3(1)
Null=Make Vector3(2)

Make_Terrain(64,64)


Position Camera 640,0,640

For i = 1 to 100
   Enemy=Make_Enemy()
   x#=rnd(1280):z#=Rnd(1280)
   y#=Get Terrain Ground Height(1,x#,z#)
   Position Object Enemy,x#,y#+1.6,z#
Next i

Do
   Move_Camera()
   ny#=Get Terrain Ground Height(1,CamX,CamZ)+2
   Position Camera CamX,ny#,CamZ
   Move_Bullets()
   Shoot_Bullet()
   Move_Enemy()
   If LymphTime>0
      Dec LymphTime
   Endif
   If LymphTime=0
      LymphTime=1000
      If Lymphs>0
         Dec Lymphs
      Endif
   Endif
   If Lymphs=0 Then LymphTime=1000
   Health=Health-Lymphs/1000.0
   Set Cursor 0,0
   Print "Lymphs: ";Lymphs
   Print "Health: ";Health
   Print
   Print "FPS: ";Screen FPS()
   Sync
Loop



Function Move_Camera()
   SlowMe#=Lymphs/60.0
   Move#=Upkey()*.5-Downkey()*.2
   If Move#>0
      Move#=Move#-SlowMe#
      If Move#<0 then Move#=0
   Endif
   If Move#<0
      Move#=Move#+SlowMe#
      If Move#>0 Then Move#=0
   Endif
   Turn#=LeftKey()*3-RightKey()*3
   Turn Camera Left Turn#
   Move Camera Move#
   Limit_Camera()
EndFunction

Function Limit_Camera()
   If CamX<2 Then Position Camera 2,CamY,CamZ
   If CamX>Object Size X(1)-2 Then Position Camera Object Size X(1)-2,CamY,CamZ
   If CamZ<2 Then Position Camera CamX,CamY,2
   If CamZ>Object Size Z(1)-2 Then Position Camera CamX,CamY,Object Size Z(1)-2
Endfunction



Function Make_Enemy()
   E=Get_Free_Enemy()
   If E<1 Then ExitFunction -1
   Make Object Sphere E,1,6,6
   Make Mesh From Object 1,E
   Delete Object E
   Make Object Box E,3,.5,.1
   Make Mesh From Object 2,E
   Delete Object E
   Make Object Cube E,3
   Color Object E,Rgb(0,0,60)
   Add Limb E,1,1
   Offset Limb E,1,-1.5,1.5,1.5
   Color Limb E,1,Rgb(255,0,0)
   Add Limb E,2,1
   Offset Limb E,2,1.5,1.5,1.5
   Color Limb E,2,Rgb(255,0,0)
   Add Limb E,3,2
   Offset Limb E,3,0,2,0
   Color Limb E,3,Rgb(255,255,0)
   Set Object Ambience E,0
   Set Object Specular E,Rgb(150,150,150)
   Set Object Specular Power E,200
   Set Object Collision To Boxes E
Endfunction E

Function Move_Enemy()
   For i = 1001 to 2000
      If Object Exist(i)
         Set Object Collision On i
         Set Vector3 1,CamX - Limb Position X(i,1),CamY - Limb Position Y(i,1),CamZ - Limb Position Z(i,1)
         Set Vector3 2,CamX - Limb Position X(i,2),CamY - Limb Position Y(i,2),CamZ - Limb Position Z(i,2)
         Turn#=(Length Vector3(1)-Length Vector3(2))*(Factor+.2)
         If Turn#>1.5 Then Turn#=1.5
         If Turn#<-1.5 Then Turn#=-1.5
         If Rnd(Length Vector3(1)) > 60 Then Turn#=.5*((Int(i/2)*2=i)-(Int(i/2)*2<>i))
         Turn Object Right i,Turn#
         oldy#=Object Position Y(i)
         o1=Object Collision(i,0)
         Move Object i,.35
         o2=Object Collision(i,0)
         Killme=0
         If (o1>2000 and o1<3001)
            If Object Exist(o1)
               Delete Object o1
            Endif
            Scale Limb i,3,Limb Scale X(i,3)-10,100,100
            If Limb Scale X(i,3)<10 Then Killme=1
         Endif
         If (o2>2000 and o2<3001)
            If Object Exist(o2)
               Delete Object o2
            Endif
            Scale Limb i,3,Limb Scale X(i,3)-10,100,100
            If Limb Scale X(i,3)<10 Then Killme=1
         Endif
         dist#=Camera_Dist(i)
         if dist#<2.5
            Lymphs=Lymphs+1
            Killme=1
         Endif
         x#=Object Position X(i):z#=Object Position Z(i)
         y#=Get Terrain Ground Height(1,x#,z#)
         Move Object i,(oldy#-y#)*.2
         Position Object i,x#,y#+1.6,z#
         If Object Position X(i)<2 Then Position Object i,2,Object Position Y(i),Object Position Z(i)
         If Object Position X(i)>Object Size X(1)-2 Then Position Object i,Object Size X(1)-2,Object Position Y(i),Object Position Z(i)
         If Object Position Z(i)<2 Then Position Object i,Object Position X(i),Object Position Y(i),2
         If Object Position Z(i)>Object Size Z(1)-2 Then Position Object i,Object Position X(i),Object Position Y(i),Object Size Z(1)-2
         Set Object Collision Off i
         If Killme=1 Then Delete Object i
      Endif
   Next i
Endfunction

Function Camera_Dist(ObjID)
   If Object Exist(ObjID)=0 Then ExitFunction 0.0
   Set Vector3 1,Object Position X(ObjID)-CamX,Object Position Y(ObjID)-CamY,Object Position Z(ObjID)-CamZ
   d#=Length Vector3(1)
Endfunction d#


Function Get_Free_Enemy()
   flag=0
   For i = 1001 to 2000
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag=0
      i=-1
   Endif
Endfunction i





Function Splotch(h,s)
   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,s*2+1,s*2+1
   Lock Pixels
   Ink 0,0
   Box 0,0,1+s*2,1+s*2
   c=rnd(7)+h-3
   Ink Rgb(c,c,c),0
   r=rnd(s/2)+s/4
   For i# = 0.0 to 360.0 step 2
      x=sin(i#)*r+s/2
      y=cos(i#)*r+s/2
      line s/2,s/2,x,y
      r=r+(rnd(2)-1)
      if r>s+15 then r=s+15
      m=s-15:If m<2 then m=2
      if r<m then r=m
   Next i#
   Unlock Pixels
   Get Image 1,0,0,1+s*2,1+s*2
   Set Current Bitmap 0
   Delete Bitmap 1
Endfunction

Function Grass()
   Ink Rgb(0,130,0),0
   Box 0,0,511,511
   g=0
   Do
      Splotch(180,30)
      Sprite 1,0,0,1
      Size Sprite 1,rnd(3)+1,Rnd(3)+1
      Set Sprite Alpha 1,180
      Set Sprite Diffuse 1,0,Rnd(50)+Rnd(50)+100,0
      Paste Sprite 1,rnd(65),rnd(65)
      Dot rnd(70),Rnd(70),Rgb(0,Rnd(50)+100,0)
      g=g+1
      If rnd(2000)+1000<g Then Exit
   Loop
   Get Image 3,5,5,69,69,1
   Ink Rgb(0,90,0),0
   Box 0,0,511,511
   g=0
   Do
      Splotch(rnd(80)+130,30)
      Sprite 1,200,200,1
      Size Sprite 1,rnd(10)+10,Rnd(10)+10
      Set Sprite Alpha 1,64
      Set Sprite Diffuse 1,0,Rnd(50)+Rnd(50)+rnd(50)+rnd(50)+Rnd(50),0
      Paste Sprite 1,rnd(64),rnd(64)
      g=g+1
      If rnd(1000)+200<g Then Exit
   Loop
   Get Image 4,5,5,69,69,0
   Sprite 2,0,0,4
   Paste Sprite 2,0,0
   Mirror Sprite 2
   Paste Sprite 2,64,0
   Flip Sprite 2
   Paste Sprite 2,64,64
   Mirror Sprite 2
   Paste Sprite 2,0,64
   Get Image 4,0,0,128,128,0
   Delete Sprite 1
   Delete Sprite 2
Endfunction

Function Create_Heightmap(x,y)
   Ink rgb(100,100,100),0
   Box 0,0,x,y
   s=(x/4)*(y/4)
   For i = 1 to s
      Randomize Timer()
      sx=rnd(x)
      sy=rnd(y)
      TileHeight=rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6)-(rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6))
      ss=rnd(8)+rnd(8)+rnd(8)+rnd(8)+8
      Splotch(TileHeight,ss)
      Sprite 1,0,0,1
      Set Sprite 1,0,1
      Set Sprite Alpha 1,rnd(55)+rnd(55)+rnd(55)
      Paste Sprite 1,sx,sy
   Next i
   c as dword
   for noise=1 to rnd(50)+rnd(50)+rnd(50)+50
      noisex=rnd(x)
      noisey=rnd(y)
      c=point(noisex,noisey)
      h=rgbr(c)+rnd(4)-rnd(4)
      ink rgb(h,h,h),0
      dot noisex,noisey
   Next noise
   if file exist("Heightmap.bmp") Then Delete File "Heightmap.bmp"
   Get Image 2,0,0,x,y,0
   Save Image "Heightmap.bmp",2
   If Sprite Exist(1) Then Delete Sprite 1
   Ink Rgb(255,255,255),0
   Print "Heightmap Done"
   Sync
Endfunction


Function Make_Terrain(x,y)
   Create_Heightmap(x,y)
   Grass()
   If Object Exist(1) then Delete Object 1
   Make Object Terrain 1
   Set Terrain Heightmap 1,"Heightmap.bmp"
   Set Terrain Texture 1,4,3
   Set Terrain Tiling 1,3
   Set Terrain Scale 1,20,.5,20
   Set Terrain Light 1,20,50,10,200,200,150,.2
   Build Terrain 1
   Set Object Collision Off 1
Endfunction




Function Shoot_Bullet()
   If Reload>0
      Dec Reload
      ExitFunction
   Endif
   If Mouseclick()<>1 Then Exitfunction
   Reload=15
   B=Make_Bullet()
   If B<1 then Exitfunction
   Position Object B,CamX,CamY,CamZ
   Set Object To Camera Orientation B
   Move Object Right B,1
   bx#=Object Position X(B):by#=Object Position Y(B):bz#=Object Position Z(B)
   Pick Screen MouseX(),MouseY(),1000
   Point Object B, CamX +Get Pick Vector X(), CamY +Get Pick Vector Y(), CamZ +Get Pick Vector Z()
   Move Object B,5
   Set Vector3 B,Object Position X(B)-bx#,Object Position Y(B)-CamY,Object Position Z(B)-bz#
Endfunction


Function Get_Free_Bullet()
   flag=0
   For i = 2001 to 3000
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag
      null=Make Vector3(i)
   Else
      i=-1
   Endif
Endfunction i

Function Make_Bullet()
   blt=Get_Free_Bullet()
   If blt=-1 Then ExitFunction -1
   Make Object Sphere blt,.5,6,6
   Scale Object blt,100,100,500
   Set Object Collision To Boxes blt
Endfunction blt

Function Move_Bullets()
   For i = 2001 to 3000
      If Object Exist(i)
         Set Vector3 1,Object Position X(i)-CamX,Object Position Y(i)-CamY,Object Position Z(i)-CamZ
         If Length Vector3(1)>500 or Object Position Y(i)<0
            Delete Object i
         Else
            Position Object i,Object Position X(i)+X Vector3(i),Object Position Y(i)+Y Vector3(i),Object Position Z(i)+Z Vector3(i)
            Set Vector3 i,X Vector3(i),Y Vector3(i)-.01,Z Vector3(i)
         Endif
      Endif
   Next i
Endfunction


#Constant CamX Camera Position X()
#Constant CamY Camera Position Y()
#Constant CamZ Camera Position Z()
#Constant Factor Rnd(1000.0)/1000.0

For i = 0 to 4
  Make Object From Limb 1000+i,1,i
  Hide Object 1000+i
  Set Object Collision To Boxes 1000+i
Next i

For i = 0 to 4
  Position Object 1000+i,Limb Position X(1,i),Limb Position Y(1,i),Limb Position Z(1,i)
  Rotate Object 1000+i,Limb Direction X(1,i),Limb Direction Y(i,1),Limb Direction Z(1,i)
Next i

Setup_Screen()
Gosub _InitialiseGlobals
Create_Maze()

Do
	Check_Wall_Collisions(2.0,0.5)
	Move_Camera(.5)
	`Control Camera Using Arrowkeys 0,.5, 1
	Sync
loop

Function Setup_Screen()
	sync on: sync rate 60
	autocam off	:Position Camera 15,5,15
	Set ambient light 75
endfunction


_InitialiseGlobals:
	Type Object
		X As Integer: Y As Integer: Z As Integer
		num As Integer
		Tile As Integer
	endtype
	
	Global MapWidth As Integer: MapWidth = 20
	Global MapHeight As Integer: MapHeight = 20
	Global Cubesize As Integer: CubeSize = 10
	
	Dim Cube(MapWidth,MapHeight) As Object
	
	Dim WallExist(4)
	
	Global PlayerX As Float: Global PlayerY As Float: Global PlayerZ As Float
	Global PlayerAng As Float: PlayerAng = Camera angle Y()
	PlayerX = Camera Position X(): PlayerY = Camera Position Y(): PlayerZ = Camera Position Z()

	
Return

Function Get_Free_Object_Number()
	Remstart
	This function just finds a free object, and then returns its number.
	This is so that objects can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend	
	
	Do
		inc ObjectNumber
	 	If Object Exist(ObjectNumber) = 0 Then Exit
	Loop
EndFunction ObjectNumber


Function Get_Free_Image_Number()
	Remstart
	This function just finds a free image, and then returns its number.
	This is so that images can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend

	Do
		inc ImageNumber
		If Image Exist(ImageNumber) = 0 Then Exit
	loop
endfunction ImageNumber



Function BrickTexture(ImageNumber)

Ink Rgb(128,64,0),0
Box 0,0,64,64

Ink Rgb(0,0,0),0
For a = 0 To 7
	Line 0,(a*8),64,(a*8)
next a

For x = 0 To 7
	For y = 0 To 7
		If (x+y) mod 2 = 0 Then Line (x*8),(y*8),(x*8),((y+1)*8)		
	next y
next x

Get Image Imagenumber, 0, 0, 64, 64

EndFunction


Function FloorTexture(ImageNumber)
	Ink RGB(50,50,50),0
	box 0,0,64,64
	
	Get Image Imagenumber, 0, 0, 64, 64
endfunction
 
 
Function Create_Maze()
	BrickImage = Get_Free_Image_Number()
	BrickTexture(BrickImage)
	
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			Read Cube(x,z).Tile
			Cube(x,z).X = (x-1)*Cubesize+(Cubesize/2)
			Cube(x,z).Y = (Cubesize/2)
			Cube(x,z).Z = (z-1)*Cubesize+(Cubesize/2)
			Cube(x,z).num = Get_Free_Object_Number()
			Make Object Cube Cube(x,z).num,Cubesize
			Texture Object Cube(x,z).num,BrickImage
			Position Object Cube(x,z).num, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z
			If Cube(x,z).Tile <> 1 Then Hide Object Cube(x,z).num
		next x
	next z
	
	FloorObject = Get_Free_Object_Number()
	FloorImage = Get_Free_Image_Number()
	FloorTexture(FloorImage)
	
	Make Object Plain FloorObject, MapWidth*Cubesize, MapHeight*CubeSize
	xrotate object FloorObject,90
	Position Object FloorObject, (MapWidth*Cubesize)/2,0,(MapHeight*CubeSize)/2
	Texture Object FloorObject, FloorImage
	
	CeilingObject = Get_Free_Object_Number()
	CeilingImage = Get_Free_Image_Number()
	FloorTexture(CeilingImage)
	
	Make Object Plain CeilingObject, MapWidth*Cubesize, MapHeight*CubeSize
	xrotate object CeilingObject,90
	Position Object CeilingObject, (MapWidth*Cubesize)/2,Cubesize,(MapHeight*CubeSize)/2
	Texture Object CeilingObject,CeilingImage
EndFunction

Function Check_Wall_Collisions(Buffer#,Speed#)
	For direction = 1 To 4
		WallExist(direction) = 0
	next direction
	
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			If Cube(x,z).Tile <> 0
				If Abs((Cube(x,z).X-Buffer#-(Cubesize/2)-PlayerX)) < Speed#  And Abs((Cube(x,z).Z)-PlayerZ) < (Cubesize/2) Then WallExist(1) = 1
				If Abs((Cube(x,z).X+Buffer#+(Cubesize/2)-PlayerX)) < Speed#  And Abs((Cube(x,z).Z)-PlayerZ) < (Cubesize/2) Then WallExist(3) = 1

				If Abs((Cube(x,z).Z-Buffer#-(Cubesize/2)-PlayerZ)) < Speed#  And Abs((Cube(x,z).X)-PlayerX) < (Cubesize/2) Then WallExist(2) = 1
				If Abs((Cube(x,z).Z+Buffer#+(Cubesize/2)-PlayerZ)) < Speed#  And Abs((Cube(x,z).X)-PlayerX) < (Cubesize/2) Then WallExist(4) = 1			
			endif
		next x
	next z
	
endfunction


Function Move_Camera(Speed#)
	
	If Leftkey() = 1 Then PlayerAng = WrapValue(PlayerAng - Speed#*2)
	If RightKey() = 1 Then PlayerAng = WrapValue(PlayerAng + Speed#*2)
	
	
	If PlayerAng >= 0 AND PlayerAng <= 180
		If  WallExist(1) = 0 And Upkey() = 1 Then PlayerX = Newxvalue(PlayerX, PlayerAng, Speed#)
		If  WallExist(3) = 0 And Downkey() = 1 Then PlayerX = Newxvalue(PlayerX,PlayerAng,-Speed#)
	Endif
	
	If PlayerAng >= 180 And PlayerAng <= 360
		If  WallExist(3) = 0 And Upkey() = 1 Then PlayerX = Newxvalue(PlayerX, PlayerAng, Speed#)
		If  WallExist(1) = 0 And Downkey() = 1 Then PlayerX = Newxvalue(PlayerX,PlayerAng,-Speed#)
	Endif
	
	If PlayerAng >= 270 Or PlayerAng <= 90
		If  WallExist(2) = 0 And Upkey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng, Speed#)
		If  WallExist(4) = 0 And Downkey() = 1 Then PlayerZ = Newzvalue(PlayerZ,PlayerAng,-Speed#)			
	Endif		

	If PlayerAng >= 90 And PlayerAng <= 270
		If  WallExist(4) = 0 And Upkey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng, Speed#)
		If  WallExist(2) = 0 And Downkey() = 1 Then PlayerZ = Newzvalue(PlayerZ,PlayerAng,-Speed#)			
	Endif		
	
	
	
	Position Camera PlayerX, PlayerY, PlayerZ
	Yrotate Camera PlayerAng
endfunction

`Main Level (Current)

Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
Data 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1
Data 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1
Data 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1
Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1
Data 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1
Data 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1
Data 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1
Data 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1
Data 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

sync on
sync rate 25
hide mouse
autocam off
position camera 0,5,0
color backdrop rgb(0,0,35)

set camera to image 0,100,256,256
sprite 100,0,0,100
size sprite 100,screen width(),screen height()
set sprite 100,0,1
set sprite alpha 100,50
hide light 0
make light 1
position light 1,10,10,5
fog on
fog color rgb(0,0,35)
fog distance 2000

`grass
for x=1 to 10
for y=1 to 10
ink rgb(rnd(40),rnd(55)+100,0),0
dot x,y
next y
next x
get image 1000,1,1,10,10
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,10,10
set object texture 1000,2,0

`particle properties
numberofparticles=10000
dim x#(numberofparticles)
dim y#(numberofparticles)
dim xspeed#(numberofparticles)
dim yspeed#(numberofparticles)
dim brightness(numberofparticles)
dim a#(numberofparticles)
dim e#(numberofparticles) `phase angle
for particle=1 to numberofparticles
x#(particle)=rnd(screen width())
y#(particle)=rnd(screen height())
xspeed#(particle)=(rnd(3000)/1000.0)
e#(particle)=rnd(360)
brightness(particle)=rnd(50)+30
a#(particle)=gaussian(2.5*screen width())-screen width() `amplitude
gravitya#=.01
gravityb#=1.0
omega#=0.0006 `primary angular velocity
phi#=2.0 `secondary angular velocity
next particle

do
inc counter
if counter>1000 then counter=0
if counter=100 or counter=110 or counter=400
color backdrop rgb(255,255,255)
else
color backdrop rgb(0,0,35)
endif

gosub particles
control camera using arrowkeys 0,1,1
if counter/2.0=int(counter/2.0) then sync
loop

particles:

text 0,0,str$(screen fps())
lock pixels

`tornado particles
for particle=1 to numberofparticles step 2
inc y#(particle),gravityb#
if y#(particle)>0 and y#(particle)<screen height() and x#(particle)>0 and x#(particle)<screen width() then set_locked_pixel(x#(particle),y#(particle),rgb(brightness(particle),brightness(particle),brightness(particle)))
x#(particle)=(500/y#(particle)^1.5)*a#(particle)*sin(theta#+e#(particle))+screen width()/2+(20*sin(y#(particle)+psi#))
theta#=wrapvalue(theta#)+omega#
if y#(particle)>=screen height()/1.5 then dec y#(particle),screen height()
next particle
psi#=wrapvalue(psi#)+phi#

`background particles
`for particle=2 to numberofparticles step 2
`inc y#(particle),gravityb#
`if y#(particle)>screen height()-1 then y#(particle)=1
`if y#(particle)>0 and y#(particle)<screen height() and x#(particle)>0 and x#(particle)<screen width() then set_locked_pixel(x#(particle),y#(particle),rgb(brightness(particle),brightness(particle),brightness(particle)))
`inc x#(particle),xspeed#(particle)
`if x#(particle)>screen width()-1 then x#(particle)=1
`next particle
unlock pixels
return

`Function borrowed from Coding Fodder's Rain code
function set_locked_pixel(x,y,color_value)
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth(num)/8
   pointer=start+y*repeat_number+x*bits_per_pixel
   *pointer=color_value
endfunction



function gaussian(range#)

   r=0
   for a = 1 to range#/10
      inc r, rnd(range#)
   next a

   r=int(10*r/range#)

endFunction r

`Initialisation section
set display mode 1280, 1024, 32
sync on
sync rate 0
backdrop on
color backdrop 0
randomize timer()
autocam off
set camera range 0.1, 50.0

make memblock 1, 12 + (16*16*4)
write memblock dword 1, 0, 16
write memblock dword 1, 4, 16
write memblock dword 1, 8, 32
c as DWORD
for i = 0 to 15
   for j = 0 to 15
      a = 224 - (sqrt(  ((i - 7.5)*(i - 7.5)) + ((j - 7.5) * (j - 7.5))  ) * 24.0)
      if a < 0 then a = 0

      ang = abs(atanfull(i-8, j-8))
      print ang

      write memblock dword 1, 12 + ((j + (i*16))*4), rgb(255 - ang, ang,0) && ((a << 24) || 0x00FFFFFF)
   next j
  ` wait key
next i
make image from memblock 2, 1
delete memblock 1
sprite 1, 0, 0, 2
set sprite 1, 0, 1
offset sprite 1, 8, 8
hide sprite 1




#Constant krtlt (rightkey()-leftkey()) ` returns a 1 if right or -1 if left
#Constant kupdn (upkey()-downkey()) ` returns a 1 if up or -1 if down or 0 if both or nothing

#Constant klrud (downkey()+(upkey()*2)+(rightkey()*4)+(leftkey()*8)) `returns binary result; bit 0=down, 1=up, 2=right, 3=left
#Constant kadws (keystate(31)+(keystate(17)*2)+(keystate(32)*4)+(keystate(30)*8)) `returns binary result; bit 0="s", 1="w", 2="d", 3="a"

#constant CamX camera position x()
#constant CamY camera position y()
#constant CamZ camera position z()


`Declare some types
type mazeCell
   N
   S
   E
   W
endtype
type Coord
   x
   y
endtype
`How many cells do we want?
#constant M_WIDTH 12
#constant M_HEIGHT 12
global MAP_SCALE#
MAP_SCALE# = 16

`Create a maze
dim Maze(M_WIDTH, M_HEIGHT) as mazeCell
`dim MazeWallID(M_WIDTH, M_HEIGHT) as mazeCell

`Generate the maze
GenerateMaze()














`Player Angle
angle# = 0.0
target_angle = 0

`Player Target Position
target_x# = 1.0 : target_z# = 1.0


`Key states
UpKeyDown = 0
LastDirection = 0
LastMoveDirection = 0


MapPos as Coord
position camera target_x#, 0.0, target_z#
frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 200, 0, "FPS: " + str$(screen fps())

   `Get the arrows and wasd keys for control of the player
   adws = kadws
   lrud = klrud
   `Masks:
   ` %1000 = Left
   ` %0100 = Right
   ` %0010 = Up
   ` %0001 = Down
   `Combinations allowed, eg: %1100 = Left and Right

   `Left/Right (AD/LR) only...
   adlr = ((adws && %1100) || (lrud && %1100))
   `Up/Down (UD/WS) only...
   udws = ((adws && %0011) || (lrud && %0011))


   if LastDirection <> adlr
      LorR = 0
      if adlr = %1000 then LorR = -1 : `Left
      if adlr = %0100 then LorR =  1 : `Right
      if adlr = %1100 then LorR =  0 : `Both, so dont turn
      inc target_angle, 90 * LorR
   endif
   LastDirection = adlr

   angle# = curvevalue(target_angle, angle#, 200.0 / frameTime#)
   yrotate camera angle#
   `Calculate a polar angle (0, 90, 180, 360) for use later
   polarAngle = target_angle mod 360
   if polarAngle < 0 then inc polarAngle, 360



   `Get the current position on the map
   MapPos.x = int(CamX+0.5)
   MapPos.y = int(CamZ+0.5)

   `Can we move? By default, no (1)... Best check for a wall in the polar target direction, if we can canMove=0
   canMove = 1
   select polarAngle
      case   0 : canMove = Maze(MapPos.x, MapPos.y).S : endcase
      case  90 : canMove = Maze(MapPos.x, MapPos.y).E : endcase
      case 180 : canMove = Maze(MapPos.x, MapPos.y).N : endcase
      case 270 : canMove = Maze(MapPos.x, MapPos.y).W : endcase
   endselect

   `If we have a 1, we have a wall!
   if canMove = 1
      text 400, 30, "WALL!!!!"
   else
      `Ok, now we need to move the target pointer based on the polar coord...
      select polarAngle
         case   0 : tX = MapPos.x   : tZ = MapPos.y+1 : endcase
         case  90 : tX = MapPos.x+1 : tZ = MapPos.y   : endcase
         case 180 : tX = MapPos.x   : tZ = MapPos.y-1 : endcase
         case 270 : tX = MapPos.x-1 : tZ = MapPos.y   : endcase
      endselect

     `Move in the correct direction (1 unit in the polar direction determined above)...
      if LastMoveDirection <> udws
         if udws = %0010
            target_x# = tX
            target_z# = tZ
         endif
      endif
      LastMoveDirection = udws
   endif


   `move the camers smoothly
   position camera curvevalue(target_x#, CamX, 200.0 / frameTime#), 0.0, curvevalue(target_z#, CamZ, 200.0 / frameTime#)

   `paste the map
   paste image 1, 0, 0, 1

   `Offset it to the right place for a spot on the overhead map
   circX# = (CamX-0.5) * MAP_SCALE#
   circY# = (M_HEIGHT * MAP_SCALE#) - (CamZ-0.5) * MAP_SCALE#

   rotate sprite 1, angle#+90
   paste sprite 1, circX#, circY#

   `Generate a new maze!! (CHEAT!!)
   if spacekey() then GenerateMaze()
   sync
loop
end





`*******************************
`**                           **
`**      MAZE GENERATION      **
`**                           **
`*******************************
function GenerateMaze()
   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         Maze(i,j).N = 1
         Maze(i,j).S = 1
         Maze(i,j).E = 1
         Maze(i,j).W = 1
      next j
   next i

   dim CellStack() as Coord : empty array CellStack() : array index to stack CellStack()
   TotalCells = M_WIDTH * M_HEIGHT
   VisitedCells = 1
   currentCell as Coord
   currentCell.x = rnd(M_WIDTH-2)+1
   currentCell.y = rnd(M_HEIGHT-2)+1
   Dim Available(4)

   while VisitedCells < TotalCells
      Available(0) = 0
      Available(1) = 0
      Available(2) = 0
      Available(3) = 0
      found = 0
      if currentCell.y > 1
         tX = currentCell.x
         tY = currentCell.y-1
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(0) = 1
         endif
      endif
      if currentCell.y < M_HEIGHT
         tX = currentCell.x
         tY = currentCell.y+1
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(1) = 1
         endif
      endif
      if currentCell.x > 1
         tX = currentCell.x-1
         tY = currentCell.y
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(2) = 1
         endif
      endif
      if currentCell.x < M_WIDTH
         tX = currentCell.x+1
         tY = currentCell.y
         if Maze(tx,ty).N = 1 AND Maze(tx,ty).S = 1 AND Maze(tx,ty).E = 1 AND Maze(tx,ty).W = 1
            inc found
            Available(3) = 1
         endif
      endif
      if found > 0
         choice = rnd(3)
         while Available(choice) = 0
            choice = rnd(3)
         endwhile

         select choice
            `North
            case 0
               Maze(currentCell.x, currentCell.y).N = 0
               Maze(currentCell.x, currentCell.y-1).S = 0
               add to stack CellStack()
               CellStack() = currentCell
               dec currentCell.y
            endcase

            `South
            case 1
               Maze(currentCell.x, currentCell.y).S = 0
               Maze(currentCell.x, currentCell.y+1).N = 0
               add to stack CellStack()
               CellStack() = currentCell
               inc currentCell.y
            endcase

            `West
            case 2
               Maze(currentCell.x, currentCell.y).W = 0
               Maze(currentCell.x-1, currentCell.y).E = 0
               add to stack CellStack()
               CellStack() = currentCell
               dec currentCell.x
            endcase

            `East
            case 3
               Maze(currentCell.x, currentCell.y).E = 0
               Maze(currentCell.x+1, currentCell.y).W = 0
               add to stack CellStack()
               CellStack() = currentCell
               inc currentCell.x
            endcase
         endselect
         inc VisitedCells
      else
         currentCell = CellStack()
         remove from stack CellStack()
      endif
   endwhile

   `Create a 2D Map image
   cls

   IMGX# = M_WIDTH  * MAP_SCALE#
   IMGY# = M_HEIGHT * MAP_SCALE#

   SCALEX# = (IMGX#-1) / M_WIDTH
   SCALEY# = (IMGY#-1) / M_HEIGHT

   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         x1 = (i-1) *  SCALEX#
         x2 =  i    *  SCALEX#
         y1 = (j-1) * -SCALEY# + (M_HEIGHT * MAP_SCALE#)
         y2 =  j    * -SCALEY# + (M_HEIGHT * MAP_SCALE#)

         if Maze(i,j).N = 1 then line x1, y1, x2, y1
         if Maze(i,j).S = 1 then line x1, y2, x2, y2
         if Maze(i,j).E = 1 then line x2, y1, x2, y2
         if Maze(i,j).W = 1 then line x1, y1, x1, y2
      next j
   next i

   get image 1, 0, 1, IMGX#, IMGY#+1, 1


  `Create a 3D Maze
  `Create a template wall


   `   NEW WAY - USING MEMBLOCK
   if memblock exist(1) then delete memblock 1
   if object exist(1) then delete object 1
   if mesh exist(1) then delete mesh 1

   `Wall count formula - not sure why this works though :-)
   `  (((W*H) + 1) * 2) + (2 * W) + (2 * H)
   WALL_COUNT = (2 * M_WIDTH) + (2 * M_HEIGHT) + (2 * (1 + (M_WIDTH * M_HEIGHT)))

   `32 bytes per vertex, 3 vertexs per poly, 2 polies per square... 1 square = 1 wall
   make memblock 1, 12 + (32 * 3 * 2 * WALL_COUNT)
   write memblock dword 1, 0, 274 : ` format
   write memblock dword 1, 4, 32 : `number of bytes per vertex
   write memblock dword 1, 8, WALL_COUNT * 2 * 3 : ` number of vertices

   n = 12
   for i = 1 to M_WIDTH
      for j = 1 to M_HEIGHT
         if Maze(i,j).N then n = makeNorthWall(i, j, n)
         if Maze(i,j).S then n = makeSouthWall(i, j, n)
         if Maze(i,j).E then n = makeEastWall(i, j, n)
         if Maze(i,j).W then n = makeWestWall(i, j, n)

         if i = 1        then n = makeEastWall (i-1, j  , n)
         if i = M_WIDTH  then n = makeWestWall (i+1, j  , n)
         if j = 1        then n = makeSouthWall(i  , j-1, n)
         if j = M_HEIGHT then n = makeNorthWall(i  , j+1, n)
      next j
   next i

   make mesh from memblock 1, 1
   make object 1, 1, -1


   color object 1, rgb(128, 128, 128) && (96 << 24)
   set object transparency 1, 3
   disable object zread 1
   delete mesh 1
   delete memblock 1
endfunction



function makeNorthWall(i, j, n)
   x1# = i - 0.5 : x2# = i + 0.5 : z# = j - 0.5
   `Triangle 1
   n = writeVertex(1, n, x1#, -0.5, z#,   0, 0, -1,   0, 0)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, -1,   0, 1)
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, -1,   1, 0)
   `Triangle 2
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, -1,   1, 0)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, -1,   0, 1)
   n = writeVertex(1, n, x2#,  0.5, z#,   0, 0, -1,   1, 1)
endfunction n

function makeSouthWall(i, j, n)
   x1# = i - 0.5 : x2# = i + 0.5 : z# = j + 0.5
   `Triangle 1
   n = writeVertex(1, n, x1#, -0.5, z#,   0, 0, 1,   0, 0)
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, 1,   1, 0)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, 1,   0, 1)
   `Triangle 2
   n = writeVertex(1, n, x2#, -0.5, z#,   0, 0, 1,   1, 0)
   n = writeVertex(1, n, x2#,  0.5, z#,   0, 0, 1,   1, 1)
   n = writeVertex(1, n, x1#,  0.5, z#,   0, 0, 1,   0, 1)
endfunction n

function makeEastWall(i, j, n)
   x# = i + 0.5 : z1# = j - 0.5 : z2# = j + 0.5
   `Triangle 1
   n = writeVertex(1, n, x#, -0.5, z1#,  -1, 0, 0,   0, 0)
   n = writeVertex(1, n, x#,  0.5, z1#,  -1, 0, 0,   0, 1)
   n = writeVertex(1, n, x#, -0.5, z2#,  -1, 0, 0,   1, 0)
   `Triangle 2
   n = writeVertex(1, n, x#, -0.5, z2#,  -1, 0, 0,   1, 0)
   n = writeVertex(1, n, x#,  0.5, z1#,  -1, 0, 0,   1, 1)
   n = writeVertex(1, n, x#,  0.5, z2#,  -1, 0, 0,   0, 1)
endfunction n

function makeWestWall(i, j, n)
   x# = i - 0.5 : z1# = j - 0.5 : z2# = j + 0.5
   `Triangle 1
   n = writeVertex(1, n, x#, -0.5, z1#,   1, 0, 0,   0, 0)
   n = writeVertex(1, n, x#, -0.5, z2#,   1, 0, 0,   1, 0)
   n = writeVertex(1, n, x#,  0.5, z1#,   1, 0, 0,   0, 1)
   `Triangle 2
   n = writeVertex(1, n, x#, -0.5, z2#,   1, 0, 0,   1, 0)
   n = writeVertex(1, n, x#,  0.5, z2#,   1, 0, 0,   0, 1)
   n = writeVertex(1, n, x#,  0.5, z1#,   1, 0, 0,   1, 1)
endfunction n








function writeVertex(mb, n,   x#, y#, z#,   nx#, ny#, nz#,   u#, v#)
   write memblock float 1, n +  0, x#
   write memblock float 1, n +  4, y#
   write memblock float 1, n +  8, z#
   write memblock float 1, n + 12, nx#
   write memblock float 1, n + 16, ny#
   write memblock float 1, n + 20, nz#
   write memblock float 1, n + 24, u#
   write memblock float 1, n + 28, v#
   inc n, 32
endfunction n








function RoundFloat(inp#)
   `Calc the MOD using decimal
   LeftOver# = inp# - int(inp#)
   if LeftOver# > -0.5 AND LeftOver# < 0.5
      `Round towards 0, ie return int()
      out = int(inp#)
   else
      if LeftOver# >= 0.5
         `Round Up, ie int() + 1
         out = int(inp#) + 1
      else
         `Round down, ie int() - 1
         out = int(inp#) - 1
      endif
   endif
endfunction out

Sync On:Sync Rate 60:Autocam Off
Fog On: Fog Color Rgb(20,40,20):Fog Distance 20,250

Global Reload
Global ReloadTime = 20
Global Power = 10
Global Lymphs as Float
Global LymphTime as Integer
Global SpawnTime = 2000
Global Parts
Global Repair as Float
Global Health as Float
Health = 100.0
Null=Make Vector3(1)
Null=Make Vector3(2)

Make_Terrain(64,64)

For i = 1 to 10
   MedKit = Make_Medkit()
   x=rnd(1260)+5:z=rnd(1260)+5
   y=Get Terrain Ground Height(1,x,z)
   Position Object Medkit,x,y+1,z
Next i

For i = 1 to 10
   Boost = Make_Reload_Boost()
   x=rnd(1260)+5:z=rnd(1260)+5
   y=Get Terrain Ground Height(1,x,z)
   Position Object Boost,x,y+2,z
Next i

For i = 1 to 10
   Part = Make_ShipPart()
   x=rnd(1260)+5:z=rnd(1260)+5
   y=Get Terrain Ground Height(1,x,z)+1.3
   Position Object Part,x,y,z
Next i


Make_Ship()
y#=Get Terrain Ground Height(1,700,580)
Position Object 100,710,y#+4,590
Turn Object Right 100,135
Pitch Object Up 100,6
Roll Object Left 100,8

Position Camera 640,0,640

For i = 1 to 100
   Enemy=Make_Enemy()
   x#=rnd(1280):z#=Rnd(1280)
   y#=Get Terrain Ground Height(1,x#,z#)
   Position Object Enemy,x#,y#+1.6,z#
Next i

Do
   Move_Camera()
   ny#=Get Terrain Ground Height(1,CamX,CamZ)+4
   Position Camera CamX,ny#,CamZ
   Move_Bullets()
   Shoot_Bullet()
   Move_Enemy()
   If LymphTime>0
      Dec LymphTime
   Endif
   If LymphTime=0
      LymphTime=1000
      If Lymphs>0
         Dec Lymphs
      Endif
   Endif
   If Lymphs=0 Then LymphTime=1000
   Health=Health-Lymphs/1000.0
   Check_Medkits()
   Check_Reload_Boosts()
   Check_ShipPart()
   Check_Ship()
   Set Cursor 0,0
   Print "Lymphs: ";Lymphs
   Print "Health: ";Health
   Print "Ship Parts: ";Parts;"/10"
   Print "Ship Repair: ";Repair;"%"
   Print
   Print "FPS: ";Screen FPS()
   Sync
Loop



Function Move_Camera()
   SlowMe#=Lymphs/60.0
   Move#=Upkey()*.5-Downkey()*.2
   If Move#>0
      Move#=Move#-SlowMe#
      If Move#<0 then Move#=0
   Endif
   If Move#<0
      Move#=Move#+SlowMe#
      If Move#>0 Then Move#=0
   Endif
   Turn#=LeftKey()*3-RightKey()*3
   Turn Camera Left Turn#
   Move Camera Move#
   Limit_Camera()
EndFunction

Function Limit_Camera()
   If CamX<2 Then Position Camera 2,CamY,CamZ
   If CamX>Object Size X(1)-2 Then Position Camera Object Size X(1)-2,CamY,CamZ
   If CamZ<2 Then Position Camera CamX,CamY,2
   If CamZ>Object Size Z(1)-2 Then Position Camera CamX,CamY,Object Size Z(1)-2
Endfunction

Function Make_Ship()
   Ink Rgb(50,50,50),0
   Box 0,0,128,128
   Get Image 1,0,0,128,128,0
   Sprite 1,0,0,2
   For i = 1 to 20
      Size Sprite 1,rnd(10)+10,rnd(10)+10
      Set Sprite Diffuse 1,0,0,0
      Set Sprite Alpha 1,180
      x=rnd(122):y=rnd(122)
      off=rnd(2)+1
      Paste Sprite 1,x+off,y+off
      d=rnd(128)+100
      Set Sprite Diffuse 1,d,d,d
      Paste Sprite 1,x,y
   Next i
   For i = 1 to 3
      Splotch(128,64)
      Sprite 1,0,0,1
      Set Sprite Alpha 1,60
      Paste Sprite 1,0,0
   Next i
   Get Image 100,0,0,128,128,0
   Make Object Sphere 100,18
   Make Mesh From Object 1,100
   Delete Object 100
   Make Object Box 100,20,20,40
   Add Limb 100,1,1
   Offset Limb 100,1,0,0,20
   Texture Object 100,2
Endfunction

Function Make_Enemy()
   E=Get_Free_Enemy()
   If E<1 Then ExitFunction -1
   Make Object Sphere E,1,6,6
   Make Mesh From Object 1,E
   Delete Object E
   Make Object Box E,3,.5,.1
   Make Mesh From Object 2,E
   Delete Object E
   Make Object Cube E,3
   Color Object E,Rgb(0,0,60)
   Add Limb E,1,1
   Offset Limb E,1,-1.5,1.5,1.5
   Color Limb E,1,Rgb(255,0,0)
   Add Limb E,2,1
   Offset Limb E,2,1.5,1.5,1.5
   Color Limb E,2,Rgb(255,0,0)
   Add Limb E,3,2
   Offset Limb E,3,0,2,0
   Color Limb E,3,Rgb(255,255,0)
   Set Object Ambience E,0
   Set Object Specular E,Rgb(150,150,150)
   Set Object Specular Power E,200
   Set Object Collision To Boxes E
Endfunction E

Function Move_Enemy()
   For i = 1001 to 2000
      If Object Exist(i)
         Set Object Collision On i
         Set Vector3 1,CamX - Limb Position X(i,1),CamY - Limb Position Y(i,1),CamZ - Limb Position Z(i,1)
         Set Vector3 2,CamX - Limb Position X(i,2),CamY - Limb Position Y(i,2),CamZ - Limb Position Z(i,2)
         Turn#=(Length Vector3(1)-Length Vector3(2))*(Factor+.2)
         If Turn#>1.5 Then Turn#=1.5
         If Turn#<-1.5 Then Turn#=-1.5
         If Rnd(Length Vector3(1)) > 60 Then Turn#=.5*((Int(i/2)*2=i)-(Int(i/2)*2<>i))
         Turn Object Right i,Turn#
         oldy#=Object Position Y(i)
         o1=Object Collision(i,0)
         Move Object i,.35
         o2=Object Collision(i,0)
         Killme=0
         If (o1>2000 and o1<3001)
            If Object Exist(o1)
               Delete Object o1
            Endif
            Scale Limb i,3,Limb Scale X(i,3)-Power,100,100
            If Limb Scale X(i,3)<10 Then Killme=1
         Endif
         If (o2>2000 and o2<3001)
            If Object Exist(o2)
               Delete Object o2
            Endif
            Scale Limb i,3,Limb Scale X(i,3)-Power,100,100
            If Limb Scale X(i,3)<10 Then Killme=1
         Endif
         dist#=Camera_Dist(i)
         if dist#<4.5
            Lymphs=Lymphs+1
            Killme=1
         Endif
         x#=Object Position X(i):z#=Object Position Z(i)
         y#=Get Terrain Ground Height(1,x#,z#)
         Move Object i,(oldy#-y#)*.2
         Position Object i,x#,y#+1.6,z#
         If Object Position X(i)<2 Then Position Object i,2,Object Position Y(i),Object Position Z(i)
         If Object Position X(i)>Object Size X(1)-2 Then Position Object i,Object Size X(1)-2,Object Position Y(i),Object Position Z(i)
         If Object Position Z(i)<2 Then Position Object i,Object Position X(i),Object Position Y(i),2
         If Object Position Z(i)>Object Size Z(1)-2 Then Position Object i,Object Position X(i),Object Position Y(i),Object Size Z(1)-2
         Set Object Collision Off i
         If Killme=1 Then Delete Object i
      Endif
   Next i
   Dec SpawnTime
   If SpawnTime<1
      Enemy=Make_Enemy()
      If Enemy>0
         x#=rnd(1280):z#=Rnd(1280)
         y#=Get Terrain Ground Height(1,x#,z#)
         Position Object Enemy,x#,y#+1.6,z#
      Endif
      SpawnTime=2000
   Endif
Endfunction

Function Camera_Dist(ObjID)
   If Object Exist(ObjID)=0 Then ExitFunction 0.0
   Set Vector3 1,Object Position X(ObjID)-CamX,Object Position Y(ObjID)-CamY,Object Position Z(ObjID)-CamZ
   d#=Length Vector3(1)
Endfunction d#


Function Get_Free_Enemy()
   flag=0
   For i = 1001 to 1100
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag=0
      i=-1
   Endif
Endfunction i





Function Splotch(h,s)
   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,s*2+1,s*2+1
   Lock Pixels
   Ink 0,0
   Box 0,0,1+s*2,1+s*2
   c=rnd(7)+h-3
   Ink Rgb(c,c,c),0
   r=rnd(s/2)+s/4
   For i# = 0.0 to 360.0 step 2
      x=sin(i#)*r+s/2
      y=cos(i#)*r+s/2
      line s/2,s/2,x,y
      r=r+(rnd(2)-1)
      if r>s+15 then r=s+15
      m=s-15:If m<2 then m=2
      if r<m then r=m
   Next i#
   Unlock Pixels
   Get Image 1,0,0,1+s*2,1+s*2
   Set Current Bitmap 0
   Delete Bitmap 1
Endfunction

Function Grass()
   Ink Rgb(0,130,0),0
   Box 0,0,511,511
   g=0
   Do
      Splotch(180,30)
      Sprite 1,0,0,1
      Size Sprite 1,rnd(3)+1,Rnd(3)+1
      Set Sprite Alpha 1,180
      Set Sprite Diffuse 1,0,Rnd(50)+Rnd(50)+100,0
      Paste Sprite 1,rnd(65),rnd(65)
      Dot rnd(70),Rnd(70),Rgb(0,Rnd(50)+100,0)
      g=g+1
      If rnd(2000)+1000<g Then Exit
   Loop
   Get Image 3,5,5,69,69,1
   Ink Rgb(0,90,0),0
   Box 0,0,511,511
   g=0
   Do
      Splotch(rnd(80)+130,30)
      Sprite 1,200,200,1
      Size Sprite 1,rnd(10)+10,Rnd(10)+10
      Set Sprite Alpha 1,64
      Set Sprite Diffuse 1,0,Rnd(50)+Rnd(50)+rnd(50)+rnd(50)+Rnd(50),0
      Paste Sprite 1,rnd(64),rnd(64)
      g=g+1
      If rnd(1000)+200<g Then Exit
   Loop
   Get Image 4,5,5,69,69,0
   Sprite 2,0,0,4
   Paste Sprite 2,0,0
   Mirror Sprite 2
   Paste Sprite 2,64,0
   Flip Sprite 2
   Paste Sprite 2,64,64
   Mirror Sprite 2
   Paste Sprite 2,0,64
   For j = 1 to 3
      Splotch(rnd(80)+130,30)
      Set Sprite Diffuse 1,Rnd(10),Rnd(10),0
      Set Sprite Alpha 1,80
      For i = 1 to 12
         Paste Sprite 1,65+i*2,66-i*2
      Next i
   Next j
   Get Image 4,0,0,128,128,0
   Delete Sprite 1
   Delete Sprite 2
Endfunction

Function Create_Heightmap(x,y)
   Ink rgb(150,150,150),0
   Box 0,0,x,y
   s=(x/4)*(y/4)
   For i = 1 to s
      Randomize Timer()
      sx=rnd(x)
      sy=rnd(y)
      TileHeight=rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6)-(rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6))
      ss=rnd(8)+rnd(8)+rnd(8)+rnd(8)+8
      Splotch(TileHeight,ss)
      Sprite 1,0,0,1
      Set Sprite 1,0,1
      Set Sprite Alpha 1,rnd(55)+rnd(55)+rnd(55)
      Paste Sprite 1,sx,sy
   Next i
   c as dword
   for noise=1 to rnd(50)+rnd(50)+rnd(50)+50
      noisex=rnd(x)
      noisey=rnd(y)
      c=point(noisex,noisey)
      h=rgbr(c)+rnd(4)-rnd(4)
      ink rgb(h,h,h),0
      dot noisex,noisey
   Next noise
   shipx=x/2-3:shipy=y/2+3
   depth=0
   For i = 1 to 24
      Dot Shipx,ShipY,rgb(depth,depth,depth)
      Dot Shipx+1,ShipY,rgb(depth,depth,depth)
      depth=depth+4
      Shipx=Shipx+1
      Shipy=Shipy+1
   Next i
   if file exist("Heightmap.bmp") Then Delete File "Heightmap.bmp"
   Get Image 2,0,0,x,y,0
   Save Image "Heightmap.bmp",2
   If Sprite Exist(1) Then Delete Sprite 1
   Ink Rgb(255,255,255),0
   Print "Heightmap Done"
   Sync
Endfunction


Function Make_Terrain(x,y)
   Create_Heightmap(x,y)
   Grass()
   If Object Exist(1) then Delete Object 1
   Make Object Terrain 1
   Set Terrain Heightmap 1,"Heightmap.bmp"
   Set Terrain Texture 1,4,3
   Set Terrain Tiling 1,3
   Set Terrain Scale 1,20,.5,20
   Set Terrain Light 1,20,50,10,200,200,150,.2
   Build Terrain 1
   Set Object Collision Off 1
Endfunction




Function Shoot_Bullet()
   If Reload>0
      Dec Reload
      ExitFunction
   Endif
   If Mouseclick()<>1 Then Exitfunction
   Reload=ReloadTime
   B=Make_Bullet()
   If B<1 then Exitfunction
   Position Object B,CamX,CamY,CamZ
   Set Object To Camera Orientation B
   Move Object Right B,1
   bx#=Object Position X(B):by#=Object Position Y(B):bz#=Object Position Z(B)
   Pick Screen MouseX(),MouseY(),1000
   Point Object B, CamX +Get Pick Vector X(), CamY +Get Pick Vector Y(), CamZ +Get Pick Vector Z()
   Move Object B,5
   Set Vector3 B,Object Position X(B)-bx#,Object Position Y(B)-CamY,Object Position Z(B)-bz#
Endfunction


Function Get_Free_Bullet()
   flag=0
   For i = 2001 to 3000
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag
      null=Make Vector3(i)
   Else
      i=-1
   Endif
Endfunction i

Function Make_Bullet()
   blt=Get_Free_Bullet()
   If blt=-1 Then ExitFunction -1
   Make Object Sphere blt,.5,6,6
   Scale Object blt,100,100,500
   Set Object Collision To Boxes blt
Endfunction blt

Function Move_Bullets()
   For i = 2001 to 3000
      If Object Exist(i)
         Set Vector3 1,Object Position X(i)-CamX,Object Position Y(i)-CamY,Object Position Z(i)-CamZ
         If Length Vector3(1)>500 or Object Position Y(i)<0
            Delete Object i
         Else
            Position Object i,Object Position X(i)+X Vector3(i),Object Position Y(i)+Y Vector3(i),Object Position Z(i)+Z Vector3(i)
            Set Vector3 i,X Vector3(i),Y Vector3(i)-.01,Z Vector3(i)
         Endif
      Endif
   Next i
Endfunction


Function Make_Medkit()
   MedKit=Get_Free_Medkit()
   If MedKit< 1 Then ExitFunction -1
   Make Object Cube MedKit,2
   If Image Exist(10)=0
      Ink Rgb(0,0,255),0
      Box 0,0,32,32
      Ink Rgb(255,0,0),0
      Center Text 16,5,"+"
      Get Image 10,0,0,32,32,0
      Ink Rgb(255,255,255),0
   Endif
   Texture Object MedKit,10
   Set Object COllision Off MedKit
Endfunction MedKit


Function Get_Free_Medkit()
   Flag=0
   For i = 10 to 19
      If Object Exist(i)=0
         Flag=1
         Exit
      Endif
   Next i
   If Flag=0 then i=-1
Endfunction i

Function Check_Medkits()
   For i = 10 to 19
      If Object Exist(i)
         D#=Camera_Dist(i)
         if D#<6.5
            Delete Object i
            Health=Health+20
            If Health>100 Then Health=100
         Endif
      Endif
   Next i
Endfunction

Function Make_Reload_Boost()
   RB=Get_Reload_Boost()
   If RB< 1 Then ExitFunction -1
   Make Object Sphere RB,2
   If Image Exist(20)=0
      Ink Rgb(0,0,0),0
      Box 0,0,32,32
      Ink Rgb(180,180,200),0
      Center Text 16,5,"B"
      Get Image 20,0,0,32,32,0
      Ink Rgb(255,255,255),0
   Endif
   Set Sphere Mapping On RB,20
   Set Object Collision Off RB
Endfunction RB


Function Get_Reload_Boost()
   Flag=0
   For i = 20 to 29
      If Object Exist(i)=0
         Flag=1
         Exit
      Endif
   Next i
   If Flag=0 then i=-1
Endfunction i

Function Check_Reload_Boosts()
   For i = 20 to 29
      If Object Exist(i)
         D#=Camera_Dist(i)
         if D#<6.5
            Delete Object i
            ReloadTime=ReloadTime-1
            If ReloadTime<1 Then ReloadTime=1
         Endif
      Endif
   Next i
Endfunction


Function Make_ShipPart()
   S=Get_ShipPart()
   If S< 1 Then ExitFunction -1
   Make Object Box S,2,2,4
   If Image Exist(30)=0
      Ink Rgb(200,200,200),0
      Box 0,0,32,32
      Ink Rgb(0,0,50),0
      Center Text 16,5,"S"
      Get Image 30,0,0,32,32,0
      Ink Rgb(255,255,255),0
   Endif
   Texture Object S,30
   Set Object Collision Off S
Endfunction S


Function Get_ShipPart()
   Flag=0
   For i = 30 to 39
      If Object Exist(i)=0
         Flag=1
         Exit
      Endif
   Next i
   If Flag=0 then i=-1
Endfunction i

Function Check_ShipPart()
   For i = 30 to 39
      If Object Exist(i)
         D#=Camera_Dist(i)
         if D#<6.5
            Delete Object i
            Parts=Parts+1
         Endif
      Endif
   Next i
Endfunction

Function Check_Ship()
   i=100
   If Object Exist(i)
      D#=Camera_Dist(i)
      if D#<50 and Parts=10
         Repair=Repair+.01
      Endif
   Endif
Endfunction

#Constant CamX Camera Position X()
#Constant CamY Camera Position Y()
#Constant CamZ Camera Position Z()
#Constant Factor Rnd(1000.0)/1000.0

Sync On:Sync Rate 60:Autocam Off
Fog On: Fog Color Rgb(20,40,20):Fog Distance 20,250

Global Reload
Global ReloadTime = 20
Global Power = 10
Global Lymphs as Float
Global LymphTime as Integer
Global SpawnTime = 2000
Global Parts
Global Repair as Float
Global Health as Float
Health = 100.0
Null=Make Vector3(1)
Null=Make Vector3(2)

Make_Terrain(64,64)

For i = 1 to 10
   MedKit = Make_Medkit()
   x=rnd(1260)+5:z=rnd(1260)+5
   y=Get Terrain Ground Height(1,x,z)
   Position Object Medkit,x,y+1,z
Next i

For i = 1 to 10
   Boost = Make_Reload_Boost()
   x=rnd(1260)+5:z=rnd(1260)+5
   y=Get Terrain Ground Height(1,x,z)
   Position Object Boost,x,y+2,z
Next i

For i = 1 to 10
   Part = Make_ShipPart()
   x=rnd(1260)+5:z=rnd(1260)+5
   y=Get Terrain Ground Height(1,x,z)+1.3
   Position Object Part,x,y,z
Next i


Make_Ship()
y#=Get Terrain Ground Height(1,700,580)
Position Object 100,710,y#+4,590
Turn Object Right 100,135
Pitch Object Up 100,6
Roll Object Left 100,8

Position Camera 640,0,640

For i = 1 to 100
   Enemy=Make_Enemy()
   x#=rnd(1280):z#=Rnd(1280)
   y#=Get Terrain Ground Height(1,x#,z#)
   Position Object Enemy,x#,y#+1.6,z#
Next i

Do
   Move_Camera()
   ny#=Get Terrain Ground Height(1,CamX,CamZ)+4
   Position Camera CamX,ny#,CamZ
   Move_Bullets()
   Shoot_Bullet()
   Move_Enemy()
   If LymphTime>0
      Dec LymphTime
   Endif
   If LymphTime=0
      LymphTime=1000
      If Lymphs>0
         Dec Lymphs
      Endif
   Endif
   If Lymphs=0 Then LymphTime=1000
   Health=Health-Lymphs/1000.0
   Check_Medkits()
   Check_Reload_Boosts()
   Check_ShipPart()
   Check_Ship()
   Set Cursor 0,0
   Print "Lymphs: ";Lymphs
   Print "Health: ";Health
   Print "Ship Parts: ";Parts;"/10"
   Print "Ship Repair: ";Repair;"%"
   Print
   Print "FPS: ";Screen FPS()
   Sync
Loop



Function Move_Camera()
   SlowMe#=Lymphs/60.0
   Move#=Upkey()*.5-Downkey()*.2
   If Move#>0
      Move#=Move#-SlowMe#
      If Move#<0 then Move#=0
   Endif
   If Move#<0
      Move#=Move#+SlowMe#
      If Move#>0 Then Move#=0
   Endif
   Turn#=LeftKey()*3-RightKey()*3
   Turn Camera Left Turn#
   Move Camera Move#
   Limit_Camera()
EndFunction

Function Limit_Camera()
   If CamX<2 Then Position Camera 2,CamY,CamZ
   If CamX>Object Size X(1)-2 Then Position Camera Object Size X(1)-2,CamY,CamZ
   If CamZ<2 Then Position Camera CamX,CamY,2
   If CamZ>Object Size Z(1)-2 Then Position Camera CamX,CamY,Object Size Z(1)-2
Endfunction

Function Make_Ship()
   Ink Rgb(50,50,50),0
   Box 0,0,128,128
   Get Image 1,0,0,128,128,0
   Sprite 1,0,0,2
   For i = 1 to 20
      Size Sprite 1,rnd(10)+10,rnd(10)+10
      Set Sprite Diffuse 1,0,0,0
      Set Sprite Alpha 1,180
      x=rnd(122):y=rnd(122)
      off=rnd(2)+1
      Paste Sprite 1,x+off,y+off
      d=rnd(128)+100
      Set Sprite Diffuse 1,d,d,d
      Paste Sprite 1,x,y
   Next i
   For i = 1 to 3
      Splotch(128,64,1)
      Sprite 1,0,0,1
      Set Sprite Alpha 1,60
      Paste Sprite 1,0,0
   Next i
   Get Image 100,0,0,128,128,0
   Make Object Sphere 100,18
   Make Mesh From Object 1,100
   Delete Object 100
   Make Object Box 100,20,20,40
   Add Limb 100,1,1
   Offset Limb 100,1,0,0,20
   Texture Object 100,2
Endfunction

Function Make_Enemy()
   E=Get_Free_Enemy()
   If E<1 Then ExitFunction -1
   Make Object Sphere E,1,6,6
   Make Mesh From Object 1,E
   Delete Object E
   Make Object Box E,3,.5,.1
   Make Mesh From Object 2,E
   Delete Object E
   Make Object Cube E,3
   Color Object E,Rgb(0,0,60)
   Add Limb E,1,1
   Offset Limb E,1,-1.5,1.5,1.5
   Color Limb E,1,Rgb(255,0,0)
   Add Limb E,2,1
   Offset Limb E,2,1.5,1.5,1.5
   Color Limb E,2,Rgb(255,0,0)
   Add Limb E,3,2
   Offset Limb E,3,0,2,0
   Color Limb E,3,Rgb(255,255,0)
   Set Object Ambience E,0
   Set Object Specular E,Rgb(150,150,150)
   Set Object Specular Power E,200
   Set Object Collision To Boxes E
Endfunction E

Function Move_Enemy()
   For i = 1001 to 2000
      If Object Exist(i)
         Set Object Collision On i
         Set Vector3 1,CamX - Limb Position X(i,1),CamY - Limb Position Y(i,1),CamZ - Limb Position Z(i,1)
         Set Vector3 2,CamX - Limb Position X(i,2),CamY - Limb Position Y(i,2),CamZ - Limb Position Z(i,2)
         Turn#=(Length Vector3(1)-Length Vector3(2))*(Factor+.2)
         If Turn#>1.5 Then Turn#=1.5
         If Turn#<-1.5 Then Turn#=-1.5
         If Rnd(Length Vector3(1)) > 60 Then Turn#=.5*((Int(i/2)*2=i)-(Int(i/2)*2<>i))
         Turn Object Right i,Turn#
         oldy#=Object Position Y(i)
         o1=Object Collision(i,0)
         Move Object i,.35
         o2=Object Collision(i,0)
         Killme=0
         If (o1>2000 and o1<3001)
            If Object Exist(o1)
               Delete Object o1
            Endif
            Scale Limb i,3,Limb Scale X(i,3)-Power,100,100
            If Limb Scale X(i,3)<10 Then Killme=1
         Endif
         If (o2>2000 and o2<3001)
            If Object Exist(o2)
               Delete Object o2
            Endif
            Scale Limb i,3,Limb Scale X(i,3)-Power,100,100
            If Limb Scale X(i,3)<10 Then Killme=1
         Endif
         dist#=Camera_Dist(i)
         if dist#<4.5
            Lymphs=Lymphs+1
            Killme=1
         Endif
         x#=Object Position X(i):z#=Object Position Z(i)
         y#=Get Terrain Ground Height(1,x#,z#)
         Move Object i,(oldy#-y#)*.2
         Position Object i,x#,y#+1.6,z#
         If Object Position X(i)<2 Then Position Object i,2,Object Position Y(i),Object Position Z(i)
         If Object Position X(i)>Object Size X(1)-2 Then Position Object i,Object Size X(1)-2,Object Position Y(i),Object Position Z(i)
         If Object Position Z(i)<2 Then Position Object i,Object Position X(i),Object Position Y(i),2
         If Object Position Z(i)>Object Size Z(1)-2 Then Position Object i,Object Position X(i),Object Position Y(i),Object Size Z(1)-2
         Set Object Collision Off i
         If Killme=1 Then Delete Object i
      Endif
   Next i
   Dec SpawnTime
   If SpawnTime<1
      Enemy=Make_Enemy()
      If Enemy>0
         x#=rnd(1280):z#=Rnd(1280)
         y#=Get Terrain Ground Height(1,x#,z#)
         Position Object Enemy,x#,y#+1.6,z#
      Endif
      SpawnTime=2000
   Endif
Endfunction

Function Camera_Dist(ObjID)
   If Object Exist(ObjID)=0 Then ExitFunction 0.0
   Set Vector3 1,Object Position X(ObjID)-CamX,Object Position Y(ObjID)-CamY,Object Position Z(ObjID)-CamZ
   d#=Length Vector3(1)
Endfunction d#


Function Get_Free_Enemy()
   flag=0
   For i = 1001 to 1100
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag=0
      i=-1
   Endif
Endfunction i





Function Splotch(h,s,img)
   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,s*2+1,s*2+1
   Lock Pixels
   Ink 0,0
   Box 0,0,1+s*2,1+s*2
   c=rnd(7)+h-3
   Ink Rgb(c,c,c),0
   r=rnd(s/2)+s/4
   For i# = 0.0 to 360.0 step 2
      x=sin(i#)*r+s/2
      y=cos(i#)*r+s/2
      line s/2,s/2,x,y
      r=r+(rnd(2)-1)
      if r>s+15 then r=s+15
      m=s-15:If m<2 then m=2
      if r<m then r=m
   Next i#
   Unlock Pixels
   Get Image img,0,0,1+s*2,1+s*2
   Set Current Bitmap 0
   Delete Bitmap 1
Endfunction

Function Grass()
   Ink Rgb(0,130,0),0
   Box 0,0,511,511
   g=0
   For i = 101 to 110
      Splotch(180,30,i)
      Sprite i,0,0,i
   Next i
   Lock Pixels
   Do
      sprt=rnd(9)+101
      Size Sprite sprt,rnd(3)+1,Rnd(3)+1
      Set Sprite Alpha sprt,180
      Set Sprite Diffuse sprt,0,Rnd(50)+Rnd(50)+100,0
      Paste Sprite sprt,rnd(65),rnd(65)
      Dot rnd(70),Rnd(70),Rgb(0,Rnd(50)+100,0)
      g=g+1
      If rnd(2000)+1000<g Then Exit
   Loop
   Unlock Pixels
   Get Image 3,5,5,69,69,1
   For i = 101 to 110
      Splotch(rnd(80)+130,30,i)
      Sprite i,0,0,i
   Next i
   Lock Pixels
   Ink Rgb(0,90,0),0
   Box 0,0,511,511
   g=0
   Do
      sprt=rnd(9)+101
      Size Sprite sprt,rnd(10)+10,Rnd(10)+10
      Set Sprite Alpha sprt,64
      Set Sprite Diffuse sprt,0,50+Rnd(50)+Rnd(50)+rnd(50)+rnd(50),0
      Paste Sprite sprt,rnd(127),rnd(127)
      g=g+1
      If rnd(1000)+200<g Then Exit
   Loop
   Unlock Pixels
   For j = 1 to 3
      Splotch(rnd(80)+130,30,1)
      Sprite 1,0,0,1
      Set Sprite Diffuse 1,Rnd(10),Rnd(10),0
      Set Sprite Alpha 1,80
      Size Sprite 1,20,20
      Lock Pixels
      For i = 1 to 12
         Paste Sprite 1,63+i*2,66-i*2
      Next i
      Unlock Pixels
   Next j
   Get Image 4,0,0,128,128,0
   Delete Sprite 1
   For i = 101 to 110
      If Sprite Exist(i) Then Delete Sprite i
   Next i
Endfunction

Function Create_Heightmap(x,y)
   Ink rgb(150,150,150),0
   Box 0,0,x,y
   s=(x/4)*(y/4)
   For i = 1 to s
      Randomize Timer()
      sx=rnd(x)
      sy=rnd(y)
      TileHeight=rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6)-(rnd(6)+rnd(6)+rnd(6)+rnd(6)+rnd(6))
      ss=rnd(8)+rnd(8)+rnd(8)+rnd(8)+8
      Splotch(TileHeight,ss,1)
      Sprite 1,0,0,1
      Set Sprite 1,0,1
      Set Sprite Alpha 1,rnd(55)+rnd(55)+rnd(55)
      Paste Sprite 1,sx,sy
   Next i
   c as dword
   for noise=1 to rnd(50)+rnd(50)+rnd(50)+50
      noisex=rnd(x)
      noisey=rnd(y)
      c=point(noisex,noisey)
      h=rgbr(c)+rnd(4)-rnd(4)
      ink rgb(h,h,h),0
      dot noisex,noisey
   Next noise
   shipx=x/2-3:shipy=y/2+3
   depth=0
   For i = 1 to 24
      Dot Shipx,ShipY,rgb(depth,depth,depth)
      Dot Shipx+1,ShipY,rgb(depth,depth,depth)
      depth=depth+4
      Shipx=Shipx+1
      Shipy=Shipy+1
   Next i
   if file exist("Heightmap.bmp") Then Delete File "Heightmap.bmp"
   Get Image 2,0,0,x,y,0
   Save Image "Heightmap.bmp",2
   If Sprite Exist(1) Then Delete Sprite 1
   Ink Rgb(255,255,255),0
   Print "Heightmap Done"
   Sync
Endfunction


Function Make_Terrain(x,y)
   Create_Heightmap(x,y)
   Grass()
   If Object Exist(1) then Delete Object 1
   Make Object Terrain 1
   Set Terrain Heightmap 1,"Heightmap.bmp"
   Set Terrain Texture 1,4,3
   Set Terrain Tiling 1,3
   Set Terrain Scale 1,20,.5,20
   Set Terrain Light 1,20,50,10,200,200,150,.2
   Build Terrain 1
   Set Object Collision Off 1
Endfunction




Function Shoot_Bullet()
   If Reload>0
      Dec Reload
      ExitFunction
   Endif
   If Mouseclick()<>1 Then Exitfunction
   Reload=ReloadTime
   B=Make_Bullet()
   If B<1 then Exitfunction
   Position Object B,CamX,CamY,CamZ
   Set Object To Camera Orientation B
   Move Object Right B,1
   bx#=Object Position X(B):by#=Object Position Y(B):bz#=Object Position Z(B)
   Pick Screen MouseX(),MouseY(),1000
   Point Object B, CamX +Get Pick Vector X(), CamY +Get Pick Vector Y(), CamZ +Get Pick Vector Z()
   Move Object B,5
   Set Vector3 B,Object Position X(B)-bx#,Object Position Y(B)-CamY,Object Position Z(B)-bz#
Endfunction


Function Get_Free_Bullet()
   flag=0
   For i = 2001 to 3000
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   If flag
      null=Make Vector3(i)
   Else
      i=-1
   Endif
Endfunction i

Function Make_Bullet()
   blt=Get_Free_Bullet()
   If blt=-1 Then ExitFunction -1
   Make Object Sphere blt,.5,6,6
   Scale Object blt,100,100,500
   Set Object Collision To Boxes blt
Endfunction blt

Function Move_Bullets()
   For i = 2001 to 3000
      If Object Exist(i)
         Set Vector3 1,Object Position X(i)-CamX,Object Position Y(i)-CamY,Object Position Z(i)-CamZ
         If Length Vector3(1)>500 or Object Position Y(i)<0
            Delete Object i
         Else
            Position Object i,Object Position X(i)+X Vector3(i),Object Position Y(i)+Y Vector3(i),Object Position Z(i)+Z Vector3(i)
            Set Vector3 i,X Vector3(i),Y Vector3(i)-.01,Z Vector3(i)
         Endif
      Endif
   Next i
Endfunction


Function Make_Medkit()
   MedKit=Get_Free_Medkit()
   If MedKit< 1 Then ExitFunction -1
   Make Object Cube MedKit,2
   If Image Exist(10)=0
      Ink Rgb(0,0,255),0
      Box 0,0,32,32
      Ink Rgb(255,0,0),0
      Center Text 16,5,"+"
      Get Image 10,0,0,32,32,0
      Ink Rgb(255,255,255),0
   Endif
   Texture Object MedKit,10
   Set Object COllision Off MedKit
Endfunction MedKit


Function Get_Free_Medkit()
   Flag=0
   For i = 10 to 19
      If Object Exist(i)=0
         Flag=1
         Exit
      Endif
   Next i
   If Flag=0 then i=-1
Endfunction i

Function Check_Medkits()
   For i = 10 to 19
      If Object Exist(i)
         D#=Camera_Dist(i)
         if D#<6.5
            Delete Object i
            Health=Health+20
            If Health>100 Then Health=100
         Endif
      Endif
   Next i
Endfunction

Function Make_Reload_Boost()
   RB=Get_Reload_Boost()
   If RB< 1 Then ExitFunction -1
   Make Object Sphere RB,2
   If Image Exist(20)=0
      Ink Rgb(0,0,0),0
      Box 0,0,32,32
      Ink Rgb(180,180,200),0
      Center Text 16,5,"B"
      Get Image 20,0,0,32,32,0
      Ink Rgb(255,255,255),0
   Endif
   Set Sphere Mapping On RB,20
   Set Object Collision Off RB
Endfunction RB


Function Get_Reload_Boost()
   Flag=0
   For i = 20 to 29
      If Object Exist(i)=0
         Flag=1
         Exit
      Endif
   Next i
   If Flag=0 then i=-1
Endfunction i

Function Check_Reload_Boosts()
   For i = 20 to 29
      If Object Exist(i)
         D#=Camera_Dist(i)
         if D#<6.5
            Delete Object i
            ReloadTime=ReloadTime-1
            If ReloadTime<1 Then ReloadTime=1
         Endif
      Endif
   Next i
Endfunction


Function Make_ShipPart()
   S=Get_ShipPart()
   If S< 1 Then ExitFunction -1
   Make Object Box S,2,2,4
   If Image Exist(30)=0
      Ink Rgb(200,200,200),0
      Box 0,0,32,32
      Ink Rgb(0,0,50),0
      Center Text 16,5,"S"
      Get Image 30,0,0,32,32,0
      Ink Rgb(255,255,255),0
   Endif
   Texture Object S,30
   Set Object Collision Off S
Endfunction S


Function Get_ShipPart()
   Flag=0
   For i = 30 to 39
      If Object Exist(i)=0
         Flag=1
         Exit
      Endif
   Next i
   If Flag=0 then i=-1
Endfunction i

Function Check_ShipPart()
   For i = 30 to 39
      If Object Exist(i)
         D#=Camera_Dist(i)
         if D#<6.5
            Delete Object i
            Parts=Parts+1
         Endif
      Endif
   Next i
Endfunction

Function Check_Ship()
   i=100
   If Object Exist(i)
      D#=Camera_Dist(i)
      if D#<50 and Parts=10
         Repair=Repair+.01
      Endif
   Endif
Endfunction

#Constant CamX Camera Position X()
#Constant CamY Camera Position Y()
#Constant CamZ Camera Position Z()
#Constant Factor Rnd(1000.0)/1000.0

SIZE = 12 :` 4 bytes (DWORD) for each of width, height and depth
inc SIZE, WIDTH * HEIGHT * 4 : `total number of pixels, * 4 as its 4 byts a pixel (argb)
make memblock 1, SIZE
write memblock dword 1, 0, WIDTH
write memblock dword 1, 0, HEIGHT
write memblock dword 1, 0, DEPTH :`usually 32... That way you get to use transparency :-)

for x = 0 to WIDTH-1
   for y = 0 to HEIGHT-1
      `The formula is, offset by 12, then take your row number (y) times the width,
      ` plus the column you are in.
      `This is the pixel if the whole lot were stretched out in 1 line.
      `Multiply that last bit by 4 as each pixel is 4 bytes wide (argb).
      `As for the colour, standard rgb command... The last bit takes white as a base colour,
      `  OR's it with the alpha value (which has been bitshift to thr correct position)
      `  and then AND's it with the main colour. This can be used to create a semi transparent image.
      
      write memblock dword 1, 12 + ((x + (y*WIDTH))*4), rgb(r,g,b) && (0x00FFFFFF || (a << 24))
   next y
next x

Setup_Screen()
Gosub _InitialiseGlobals
Create_Maze()

Do
	If Object Collision(FinishObject, PlayerObject) = 1 Then Player_Win()
	
	Handle_Bullets(1.5)
	Handle_Bombs(.1)
	Check_Wall_Collisions(2.0,0.25)
	Move_Camera(.25)
	Sync
loop


Function Create_Bomb(Moving, X#, Y#, Z#)
	Add to queue Bombs(0)
	BNum = Array Count(Bombs(0))
	Bombs(BNum).X = X#
	Bombs(BNum).Y = Y#
	Bombs(BNum).Z = Z#
	Bombs(BNum).Num = Get_Free_Object_Number()
	Bombs(BNum).Active = RND(1)+1
	Bombs(BNum).Moving = Moving
	Bombs(BNum).DestinationX = X#
	Bombs(BNum).DestinationZ = Z#
	
	Make Object Sphere Bombs(BNum).Num,5
	
	If Bombs(BNum).Active = 1 Then Texture Object Bombs(BNum).Num, BombRed
	If Bombs(BNum).Active = 2 Then Texture Object Bombs(BNum).Num, BombGreen
	
	Position Object Bombs(BNum).Num, Bombs(BNum).X, Bombs(BNum).Y, Bombs(BNum).Z
endfunction


Function Change_Bomb_States()
	For b = 1 To Array Count(Bombs(0))
		If RND(2) = 2 Then Bombs(b).Active = 2: Texture Object Bombs(b).Num, BombGreen
		If RND(2) = 1 Then Bombs(b).Active = 1: Texture Object Bombs(b).Num, BombRed
	next b
endfunction
 
 
Function Create_Maze()
	BrickImage = Get_Free_Image_Number()
	BrickTexture(BrickImage)
	
	BombRed = Get_Free_Image_Number()
	BombTexture1(BombRed)
	
	BombGreen = Get_Free_Image_Number()
	BombTexture2(BombGreen)
	
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			Read Cube(x,z).Tile
			Cube(x,z).X = (x-1)*Cubesize+(Cubesize/2)
			Cube(x,z).Y = (Cubesize/2)
			Cube(x,z).Z = (z-1)*Cubesize+(Cubesize/2)
			Cube(x,z).num = Get_Free_Object_Number()
			Make Object Cube Cube(x,z).num,Cubesize
			Texture Object Cube(x,z).num,BrickImage
			Position Object Cube(x,z).num, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z
			If Cube(x,z).Tile <> 1 Then Hide Object Cube(x,z).num
			If Cube(x,z).Tile = 2 Then RePositionCamera(Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z)
			If Cube(x,z).Tile = 3 Then Create_Bomb(0, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z)
			If Cube(x,z).Tile = 4 Then Create_Bomb(1, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z)
			If Cube(x,z).Tile = 10 Then Create_Finish(Cube(x,z).X, 2, Cube(x,z).Z)
		next x
	next z
	
	FloorObject = Get_Free_Object_Number()
	FloorImage = Get_Free_Image_Number()
	FloorTexture(FloorImage)
	
	Make Object Plain FloorObject, MapWidth*Cubesize, MapHeight*CubeSize
	xrotate object FloorObject,90
	Position Object FloorObject, (MapWidth*Cubesize)/2,0,(MapHeight*CubeSize)/2
	Texture Object FloorObject, FloorImage
	
	CeilingObject = Get_Free_Object_Number()
	CeilingImage = Get_Free_Image_Number()
	FloorTexture(CeilingImage)
	
	Make Object Plain CeilingObject, MapWidth*Cubesize, MapHeight*CubeSize
	xrotate object CeilingObject,90
	Position Object CeilingObject, (MapWidth*Cubesize)/2,Cubesize,(MapHeight*CubeSize)/2
	Texture Object CeilingObject,CeilingImage
EndFunction

Function Player_Death()
	Ink RGB(255,0,0),0
	Set Text Size 50
	Text 50,50,"KABOOOM!!!"
	Sync
	Wait Key
	End	
endfunction

Function Player_Win()
	Ink RGB(255,0,0),0
	Set Text Size 50
	Text 50,50,"YOU WIN!!!"
	Sync
	Wait Key
	End	
endfunction
				
				
Function Destroy_Bomb(BNum)
	Delete Object Bombs(BNum).Num
	Array Delete Element Bombs(0), BNum
endfunction

Function Handle_Bombs(Speed#)
	If BombCount < 0
		BombCount = 180
		Change_Bomb_States()
	Else
		dec BombCount,1
	Endif
	
	For BNum = 1 TO Array Count(Bombs(0))
		If Object Collision(PlayerObject, Bombs(BNum).Num) = 1 Then Player_Death()
	
		If Bombs(BNum).Moving = 1 
			If abs(Bombs(BNum).X-Bombs(BNum).DestinationX) < Speed# And abs(Bombs(BNum).Z-Bombs(BNum).DestinationZ) < Speed# Then ChooseBombDestination(BNum, Speed#)
			
			If Bombs(BNum).X > Bombs(BNum).DestinationX  Then Dec Bombs(BNum).X, Speed#
			If Bombs(BNum).X < Bombs(BNum).DestinationX Then Inc Bombs(BNum).X, Speed#
			If Bombs(BNum).Z > Bombs(BNum).DestinationZ  Then Dec Bombs(BNum).Z, Speed#
			If Bombs(BNum).Z < Bombs(BNum).DestinationZ Then Inc Bombs(BNum).Z, Speed#
		
			Position Object Bombs(BNum).num, Bombs(BNum).X, Bombs(BNum).Y, Bombs(BNum).Z
		endif
	
	next bnum
	
endfunction
 
 
Function ChooseBombDestination(Bomb, Speed#)
	BombSquareX = int(Bombs(Bomb).X/Cubesize) + 1
	BombSquareZ = int(Bombs(Bomb).Z/Cubesize) + 1
	
	Repeat 
		Direction = RND(4)
		If Direction = 1 And Cube(BombSquareX-1, BombSquareZ).Tile <> 1 Then Dec Bombs(Bomb).DestinationX, 10
		If Direction = 2 And Cube(BombSquareX, BombSquareZ+1).Tile <> 1 Then Inc Bombs(Bomb).DestinationZ, 10
		If Direction = 3 And Cube(BombSquareX+1, BombSquareZ).Tile <> 1 Then Inc Bombs(Bomb).DestinationX, 10
		If Direction = 4 And Cube(BombSquareX, BombSquareZ-1).Tile <> 1 Then Dec Bombs(Bomb).DestinationZ, 10
	until abs(Bombs(Bomb).X-Bombs(Bomb).DestinationX) > Speed# Or abs(Bombs(Bomb).Z-Bombs(Bomb).DestinationZ) > Speed# 
endfunction
 
Function Create_Finish(X#,Y#,Z#)
	FinishObject = Get_Free_Object_Number()
	FinishImage = Get_Free_Image_Number()
	
	FinishTexture(FinishImage)
	Make Object Cube FinishObject, 4
	Position Object FinishObject, X#, Y#, Z#
	Texture Object FinishObject, FinishImage
endfunction

Function Setup_Screen()
	sync on: sync rate 60
	autocam off	`:Position Camera 15,5,15
	Set ambient light 75
endfunction


_InitialiseGlobals:
	`Textures And miscellaneous objects:
	Global BrickImage As Integer
	
	Global BombRed As Integer
	Global BombGreen As Integer
	
	Global FloorObject As Integer
	Global FloorImage As Integer
	
	Global CeilingObject As Integer
	Global CeilingImage As Integer

	Global FinishImage As Integer
	Global FInishObject As Integer
	`All of the map variables
	Global MapWidth As Integer: MapWidth = 10
	Global MapHeight As Integer: MapHeight = 10
	Global Cubesize As Integer: CubeSize = 10

	Type Object
		X As Float: Y As Float: Z As Float
		num As Integer
		Tile As Integer
	endtype
	
	Dim Cube(MapWidth,MapHeight) As Object
	

	`Bullets	
	Type Bullet
		X As Float: Y As Float: Z As Float
		SX As Float: SY As Float: SZ As Float
		num As Integer
	endtype
	
	Dim Bullets(0) As Bullet
	
	Global BulletTimeout As Integer
	
	`Stuff for moving the camera
	Dim WallExist(4)
	
	Global PlayerX As Float: Global PlayerY As Float: Global PlayerZ As Float
	Global PlayerAng As Float: PlayerAng = Camera angle Y()

	Global PlayerObject As Integer
	PlayerObject = Get_Free_Object_Number()
	Make Object Cube PlayerObject, 5
	Hide Object PlayerObject
	
	`Bombs
	Type Bomb
		X As Float: Y As Float: Z As FLoat
		Num As Integer
	
		Active As Integer
		Moving As Integer
		DestinationX As Float
		DestinationZ As Float
	Endtype 

	Dim Bombs(0) As Bomb
	Global BombCount As Integer: BombCount = 180

Return

Function Get_Free_Object_Number()
	Remstart
	This function just finds a free object, and then returns its number.
	This is so that objects can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend	
	
	Do
		inc ObjectNumber
	 	If Object Exist(ObjectNumber) = 0 Then Exit
	Loop
EndFunction ObjectNumber


Function Get_Free_Image_Number()
	Remstart
	This function just finds a free image, and then returns its number.
	This is so that images can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend

	Do
		inc ImageNumber
		If Image Exist(ImageNumber) = 0 Then Exit
	loop
endfunction ImageNumber



Function BrickTexture(ImageNumber)

Ink Rgb(128,64,0),0
Box 0,0,64,64

Ink Rgb(0,0,0),0
For a = 0 To 7
	Line 0,(a*8),64,(a*8)
next a

For x = 0 To 7
	For y = 0 To 7
		If (x+y) mod 2 = 0 Then Line (x*8),(y*8),(x*8),((y+1)*8)		
	next y
next x

Get Image Imagenumber, 0, 0, 64, 64

EndFunction


Function FloorTexture(ImageNumber)
	Ink RGB(50,50,50),0
	box 0,0,64,64

	Get Image Imagenumber, 0, 0, 64, 64
endfunction
 
Function BombTexture1(ImageNumber)
	Ink Rgb(200,50,50),0
	Box 1,1,64,64

	Get Image ImageNumber, 1, 1, 64, 64
endfunction

Function BombTexture2(ImageNumber)
	Ink Rgb(50,200,50),0
	Box 1,1,64,64

	Get Image ImageNumber, 1, 1, 64, 64	
endfunction

Function FinishTexture(ImageNumber)
	Ink RGB(255,255,0),0
	box 0,0,64,64

	Get Image Imagenumber, 0, 0, 64, 64
endfunction

Function Check_Wall_Collisions(Buffer#,Speed#)
	For direction = 1 To 4
		WallExist(direction) = 0
	next direction
	
	For z = 1 To MapHeight
		For x = 1 To MapWidth
			If Cube(x,z).Tile = 1
				If Abs((Cube(x,z).X-Buffer#-(Cubesize/2)-PlayerX)) < Speed#  And Abs((Cube(x,z).Z)-PlayerZ)-Buffer# < (Cubesize/2) Then WallExist(1) = 1
				If Abs((Cube(x,z).X+Buffer#+(Cubesize/2)-PlayerX)) < Speed#  And Abs((Cube(x,z).Z)-PlayerZ)-Buffer# < (Cubesize/2) Then WallExist(3) = 1

				If Abs((Cube(x,z).Z-Buffer#-(Cubesize/2)-PlayerZ)) < Speed#  And Abs((Cube(x,z).X)-PlayerX)-Buffer# < (Cubesize/2) Then WallExist(2) = 1
				If Abs((Cube(x,z).Z+Buffer#+(Cubesize/2)-PlayerZ)) < Speed#  And Abs((Cube(x,z).X)-PlayerX)-Buffer# < (Cubesize/2) Then WallExist(4) = 1	
			endif
		next x
	next z
	
endfunction

Function RepositionCamera(X#,Y#,Z#)
	Position Camera X#, Y#, Z#
	PlayerX = Camera Position X(): PlayerY = Camera Position Y(): PlayerZ = Camera Position Z()
endfunction

Function Move_Camera(Speed#)
	
	If Leftkey() = 1 Then PlayerAng = WrapValue(PlayerAng - Speed#*4.0)
	If RightKey() = 1 Then PlayerAng = WrapValue(PlayerAng + Speed#*4.0)
	
	
	If PlayerAng >= 0 AND PlayerAng <= 180
		If  WallExist(1) = 0 And Upkey() = 1 Then PlayerX = Newxvalue(PlayerX, PlayerAng, Speed#)
		If  WallExist(2) = 0 And ControlKey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng-90,speed#/2.0)
		If  WallExist(3) = 0 And Downkey() = 1 Then PlayerX = Newxvalue(PlayerX,PlayerAng,-Speed#)
		If  WallExist(4) = 0 And Keystate(82) = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng+90,speed#/2.0)
	Endif
	
	If PlayerAng >= 180 And PlayerAng <= 360
		If  WallExist(1) = 0 And Downkey() = 1 Then PlayerX = Newxvalue(PlayerX,PlayerAng,-Speed#)
		If  WallExist(2) = 0 And Keystate(82) = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng+90,speed#/2.0)
		If  WallExist(3) = 0 And Upkey() = 1 Then PlayerX = Newxvalue(PlayerX, PlayerAng, Speed#)	
		If  WallExist(4) = 0 And ControlKey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng-90,speed#/2.0)
	Endif
	
	If PlayerAng >= 270 Or PlayerAng <= 90
		If  WallExist(3) = 0 And ControlKey() = 1 Then PlayerX = Newxvalue(Playerx, PlayerAng-90,speed#/2.0)
		If  WallExist(2) = 0 And Upkey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng, Speed#)
		If  WallExist(1) = 0 And Keystate(82) = 1 Then PlayerX = Newxvalue(Playerx, PlayerAng+90,speed#/2.0)
		If  WallExist(4) = 0 And Downkey() = 1 Then PlayerZ = Newzvalue(PlayerZ,PlayerAng,-Speed#)			
	Endif		

	If PlayerAng >= 90 And PlayerAng <= 270
		If  WallExist(4) = 0 And Upkey() = 1 Then PlayerZ = Newzvalue(PlayerZ, PlayerAng, Speed#)
		If  WallExist(1) = 0 And ControlKey() = 1 Then PlayerX = Newxvalue(Playerx, PlayerAng-90,speed#/2.0)
		If  WallExist(2) = 0 And Downkey() = 1 Then PlayerZ = Newzvalue(PlayerZ,PlayerAng,-Speed#)			
		If  WallExist(3) = 0 And Keystate(82) = 1 Then PlayerX = Newxvalue(Playerx, PlayerAng+90,speed#/2.0)
	Endif		
	
	
	
	Position Camera PlayerX, PlayerY, PlayerZ
	Yrotate Camera PlayerAng
	
	Position Object PlayerObject, PlayerX, PlayerY, PlayerZ
endfunction


Function Make_bullet(Speed#)
	If Array Count(Bullets(0)) = 100 Then Destroy_Bullet(1)
		Add To Queue Bullets(0)
		BNum = Array Count(Bullets(0))
		
		Pick Screen MouseX(),MouseY(), Speed#
		Bullets(BNum).SX = Get Pick Vector X()
		Bullets(BNum).SY = Get Pick Vector Y()
		Bullets(BNum).SZ = Get Pick Vector Z()
		
		Bullets(BNum).X = Camera Position X()+Bullets(BNum).SX*2
		Bullets(BNum).Y = Camera Position Y()+Bullets(BNum).SY*2
		Bullets(BNum).Z = Camera Position Z()+Bullets(BNum).SZ*2
		
		Bullets(BNum).Num = Get_Free_Object_Number()
		Make Object Sphere Bullets(BNum).Num,1
		Position Object Bullets(BNum).Num,Bullets(BNum).X, Bullets(BNum).Y, Bullets(BNum).Z
	`Endif
endfunction

Function Move_Bullets()
	For tb = 1 To Array Count(Bullets(0))
		Bullets(tb).X = Bullets(tb).X + Bullets(tb).SX
		Bullets(tb).Y = Bullets(tb).Y + Bullets(tb).SY
		Bullets(tb).Z = Bullets(tb).Z + Bullets(tb).SZ
			
		Position Object Bullets(tb).Num,Bullets(tb).X, Bullets(tb).Y, Bullets(tb).Z
	next tb
			
endfunction
 
 
Function Destroy_Bullet(BNum)
	Delete Object Bullets(BNum).Num
	Array Delete Element Bullets(0),BNum
endfunction


Function Handle_Bullets(Speed#)
	If MouseClick() = 1 And BulletTimeout < 1
		Make_Bullet(Speed#)
		BulletTimeout = 30
	Endif
	If BulletTimeOut > 0 Then Dec BulletTimeout,1
	
	Move_Bullets() 
	
	`Check if a bullet collides with a wall or a bomb
	For tb = 1 To Array Count(Bullets(0))
		If Object Position Y(Bullets(tb).Num) > CubeSize Or Object Position Y(Bullets(tb).Num) < 0 
			Destroy_Bullet(tb)
			tb = tb - 1: If tb = 0 Then tb = 1: If tb > Array Count(Bullets(0)) Then Goto _HBExitLoop
		endif
		
		For z = 1 To MapHeight
			For x = 1 To MapWidth
				If Cube(x,z).Tile = 1
					If Object Collision(Bullets(tb).Num, Cube(x,z).num) = 1
						 Destroy_Bullet(tb)
						 tb = tb - 1: If tb = 0 Then tb = 1: If tb > Array Count(Bullets(0)) Then Goto _HBExitLoop
					Endif
				Endif
			next x
		next z

		For BNum = 1 To Array Count(Bombs())
			If Object Collision(Bullets(tb).Num,Bombs(BNum).Num) = 1
				If Bombs(Bnum).Active = 1 Then Player_Death()
				If Bombs(Bnum).Active = 2 Then Destroy_Bomb(BNum)
				Destroy_Bullet(tb)
				tb = tb - 1: If tb = 0 Then tb = 1: If tb > Array Count(Bullets(0)) Then Goto _HBExitLoop
			endif
		next bnum		

		_HBExitLoop:
	
	
	next tb


Endfunction

`Main Level (Current)

Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 2, 0, 4, 3, 0, 4, 0, 0, 1
Data 1, 0, 0, 0, 1, 1, 1, 1, 3, 1
Data 1, 0, 0, 0, 1, 0, 0, 0, 0, 1
Data 1, 4, 0, 4, 1, 0, 0, 0, 0, 1
Data 1, 3, 1, 1, 1, 0, 0, 0, 0, 1
Data 1, 0, 1, 0, 0, 0, 4, 4, 4, 1
Data 1, 4, 1, 0, 0, 0, 4, 3, 3, 1
Data 1, 0, 3, 0, 0, 0, 4, 3,10, 1
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1


`Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
`Data 1, 2, 0, 4, 0, 0, 0,10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
`Data 1, 0, 0, 3, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1
`Data 1, 3, 3, 3, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1
`Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1
`Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1
`Data 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1
`Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1
`Data 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1
`Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1
`Data 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1
`Data 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1
`Data 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1
`Data 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1
`Data 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1
`Data 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1
`Data 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1
`Data 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
`Data 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
`Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1