How to make Space Invaders MoveRight,Drop,MoveLeft Etc

Author

Message

Rikukarasuma

15

Years of Service

User Offline

Joined: 15th May 2011

Location: Ireland

Posted: 14th Jun 2011 14:04 Edited at: 14th Jun 2011 14:31

Link

Hey Me and my mate are trying to make space invaders and while we have everything basicaly done so far except the win/lose triggers and Ai shooting back.We have no Idea how to get the ai to move drop and move left. If Anyone would help it would be greatly appreciated

Main:

+ Code Snippet

Rem Project: 3D Space Invaders
Rem Created: Thursday, June 09, 2011

Rem ***** Main Source File *****
Gosub Data_Setup
Gosub Space

Player.lives = 2
Player.Score = 0



Set Sound Volume 1, 85
Set Sound Volume 2, 75
Set Sound Volume 3, 100
Play Sound 3


Reset()
MakeObjects()
Do
	Bullet1()
	Bullet2()
	PlayerControl()
	AIControl()
	ScreenText()
Sync
Loop

`We need to finish the rows of A.I  Done
`We need to create an A.I
`We need Sounds Done
`*Screentext* We need Scoreboard (Just a variable that increases and is being constantly On Screen Done
`A.I Funky colors 
`We need to set the scene ( Make the game more appealing )

Functions:

Rem ***** Included Source File *****

Function MakeObjects()

Set Spot Light 0,2,3
	Position Light 0,0,-200,-250
	Point Light 0,0,0,0
	Color Light 0,RGB(255,255,255)
	
	Make Object Plain 1,1003,200
	Position Object 1,0,-300,0
	Color Object 1,RGB(0,200,0)
	Set Shadow Shading On 1
	
	LB.ID = 2
	Make Object Box LB.ID,10,1001,16
	Position Object LB.ID,-500,0,0
	Hide Object LB.ID
	
	RB.ID = 3
	Make Object Box RB.ID,10,1001,16
	Position Object RB.ID,500,0,0
	Hide Object RB.ID
	
	PB.ID = 4
	Make Object Box PB.ID,1001,10,16
	Position Object PB.ID,0,-401.5,0
	Hide Object PB.ID
	
	Player.ID = 5 
	Player2.ID = 6
	Player3.ID = 7
	Player4.ID = 8
	Make Object Box Player.ID,100,10,16
	Position Object Player.ID,0,-351.5,0
	Player.x = Object Position x(Player.ID)
	Player.y = Object Position y(Player.ID)
	Player.z = Object Position z(Player.ID)
	Color Object Player.ID,RGB(0,200,50)
	Make Object Box Player2.ID,10,80,16
	Position Object Player2.ID,0,-320,0
	Player2.x = Object Position x(Player2.ID)
	Player2.y = Object Position y(Player2.ID)
	Player2.z = Object Position z(Player2.ID)
	Color Object Player2.ID,RGB(0,200,50)
	Make Object Box Player3.ID,10,30,16
	Position Object Player3.ID,-30,-340,0
	Player3.x = Object Position x(Player3.ID)
	Player3.y = Object Position y(Player3.ID)
	Player3.z = Object Position z(Player3.ID)
	Color Object Player3.ID,RGB(0,200,50)
	Make Object Box Player4.ID,10,30,16
	Position Object Player4.ID,30,-340,0
	Player4.x = Object Position x(Player4.ID)
	Player4.y = Object Position y(Player4.ID)
	Player4.z = Object Position z(Player4.ID)
	Color Object Player4.ID,RGB(0,200,50)
	
	AI.ID = 9
	Make Object Box AI.ID,25,50,16
	Position Object AI.ID,-200,200,0
	AI.x = Object Position x(AI.ID)
	AI.y = Object Position y(AI.ID)
	AI.z = Object Position z(AI.ID)

AI1.ID = 10
	Make Object Box AI1.ID,25,50,16
	Position Object AI1.ID,-150,200,0
	AI1.x = Object Position x(AI1.ID)
	AI1.y = Object Position y(AI1.ID)
	AI1.z = Object Position z(AI1.ID)
	
	AI2.ID = 11
	Make Object Box AI2.ID,25,50,16
	Position Object AI2.ID,-100,200,0
	AI2.x = Object Position x(AI2.ID)
	AI2.y = Object Position y(AI2.ID)
	AI2.z = Object Position z(AI2.ID)
	
	AI3.ID = 12
	Make Object Box AI3.ID,25,50,16
	Position Object AI3.ID,-50,200,0
	AI3.x = Object Position x(AI3.ID)
	AI3.y = Object Position y(AI3.ID)
	AI3.z = Object Position z(AI3.ID)
	
	AI4.ID = 13
	Make Object Box AI4.ID,25,50,16
	Position Object AI4.ID,0,200,0
	AI4.x = Object Position x(AI4.ID)
	AI4.y = Object Position y(AI4.ID)
	AI4.z = Object Position z(AI4.ID)
	
	AI5.ID = 14
	Make Object Box AI5.ID,25,50,16
	Position Object AI5.ID,50,200,0
	AI5.x = Object Position x(AI5.ID)
	AI5.y = Object Position y(AI5.ID)
	AI5.z = Object Position z(AI5.ID)
	
	AI6.ID = 15
	Make Object Box AI6.ID,25,50,16
	Position Object AI6.ID,100,200,0
	AI6.x = Object Position x(AI6.ID)
	AI6.y = Object Position y(AI6.ID)
	AI6.z = Object Position z(AI6.ID)
	
	AI7.ID = 16
	Make Object Box AI7.ID,25,50,16
	Position Object AI7.ID,150,200,0
	AI7.x = Object Position x(AI7.ID)
	AI7.y = Object Position y(AI7.ID)
	AI7.z = Object Position z(AI7.ID)
	
	AI8.ID = 17
	Make Object Box AI8.ID,25,50,16
	Position Object AI8.ID,200,200,0
	AI8.x = Object Position x(AI8.ID)
	AI8.y = Object Position y(AI8.ID)
	AI8.z = Object Position z(AI8.ID)
	
	AI9.ID = 18
	Make Object Box AI9.ID,25,50,16
	Position Object AI9.ID,-200,100,0
	AI9.x = Object Position x(AI9.ID)
	AI9.y = Object Position y(AI9.ID)
	AI9.z = Object Position z(AI9.ID)

AI10.ID = 19
	Make Object Box AI10.ID,25,50,16
	Position Object AI10.ID,-150,100,0
	AI10.x = Object Position x(AI10.ID)
	AI10.y = Object Position y(AI10.ID)
	AI10.z = Object Position z(AI10.ID)
	
	AI11.ID = 20
	Make Object Box AI11.ID,25,50,16
	Position Object AI11.ID,-100,100,0
	AI11.x = Object Position x(AI11.ID)
	AI11.y = Object Position y(AI11.ID)
	AI11.z = Object Position z(AI11.ID)
	
	AI12.ID = 21
	Make Object Box AI12.ID,25,50,16
	Position Object AI12.ID,-50,100,0
	AI12.x = Object Position x(AI12.ID)
	AI12.y = Object Position y(AI12.ID)
	AI12.z = Object Position z(AI12.ID)
	
	AI13.ID = 22
	Make Object Box AI13.ID,25,50,16
	Position Object AI13.ID,0,100,0
	AI13.x = Object Position x(AI13.ID)
	AI13.y = Object Position y(AI13.ID)
	AI13.z = Object Position z(AI13.ID)
	
	AI14.ID = 23
	Make Object Box AI14.ID,25,50,16
	Position Object AI14.ID,50,100,0
	AI14.x = Object Position x(AI14.ID)
	AI14.y = Object Position y(AI14.ID)
	AI14.z = Object Position z(AI14.ID)
	
	AI15.ID = 24
	Make Object Box AI15.ID,25,50,16
	Position Object AI15.ID,100,100,0
	AI15.x = Object Position x(AI15.ID)
	AI15.y = Object Position y(AI15.ID)
	AI15.z = Object Position z(AI15.ID)
	
	AI16.ID = 25
	Make Object Box AI16.ID,25,50,16
	Position Object AI16.ID,150,100,0
	AI16.x = Object Position x(AI16.ID)
	AI16.y = Object Position y(AI16.ID)
	AI16.z = Object Position z(AI16.ID)
	
	AI17.ID = 26
	Make Object Box AI17.ID,25,50,16
	Position Object AI17.ID,200,100,0
	AI17.x = Object Position x(AI17.ID)
	AI17.y = Object Position y(AI17.ID)
	AI17.z = Object Position z(AI17.ID)
	
	AI18.ID = 27
	Make Object Box AI18.ID,25,50,16
	Position Object AI18.ID,250,100,0
	AI18.x = Object Position x(AI18.ID)
	AI18.y = Object Position y(AI18.ID)
	AI18.z = Object Position z(AI18.ID)
	
	AI19.ID = 28
	Make Object Box AI19.ID,25,50,16
	Position Object AI19.ID,250,200,0
	AI19.x = Object Position x(AI19.ID)
	AI19.y = Object Position y(AI19.ID)
	AI19.z = Object Position z(AI19.ID)
	
	AI20.ID = 29
	Make Object Box AI20.ID,25,50,16
	Position Object AI20.ID,-250,100,0
	AI20.x = Object Position x(AI20.ID)
	AI20.y = Object Position y(AI20.ID)
	AI20.z = Object Position z(AI20.ID)
	
	AI21.ID = 30
	Make Object Box AI21.ID,25,50,16
	Position Object AI21.ID,-250,200,0
	AI21.x = Object Position x(AI21.ID)
	AI21.y = Object Position y(AI21.ID)
	AI21.z = Object Position z(AI21.ID)
	
	AI22.ID = 31
	Make Object Box AI22.ID,25,50,16
	Position Object AI22.ID,-250,0,0
	AI22.x = Object Position x(AI22.ID)
	AI22.y = Object Position y(AI22.ID)
	AI22.z = Object Position z(AI22.ID)
	
	AI23.ID = 32
	Make Object Box AI23.ID,25,50,16
	Position Object AI23.ID,-200,0,0
	AI23.x = Object Position x(AI23.ID)
	AI23.y = Object Position y(AI23.ID)
	AI23.z = Object Position z(AI23.ID)
	
	AI24.ID = 33
	Make Object Box AI24.ID,25,50,16
	Position Object AI24.ID,-150,0,0
	AI24.x = Object Position x(AI24.ID)
	AI24.y = Object Position y(AI24.ID)
	AI24.z = Object Position z(AI24.ID)
	
	AI25.ID = 34
	Make Object Box AI25.ID,25,50,16
	Position Object AI25.ID,-100,0,0
	AI25.x = Object Position x(AI25.ID)
	AI25.y = Object Position y(AI25.ID)
	AI25.z = Object Position z(AI25.ID)
	
	AI26.ID = 35
	Make Object Box AI26.ID,25,50,16
	Position Object AI26.ID,-50,0,0
	AI26.x = Object Position x(AI26.ID)
	AI26.y = Object Position y(AI26.ID)
	AI26.z = Object Position z(AI26.ID)
	
	AI27.ID = 36
	Make Object Box AI27.ID,25,50,16
	Position Object AI27.ID,0,0,0
	AI27.x = Object Position x(AI27.ID)
	AI27.y = Object Position y(AI27.ID)
	AI27.z = Object Position z(AI27.ID)
	
	AI28.ID = 37
	Make Object Box AI28.ID,25,50,16
	Position Object AI28.ID,50,0,0
	AI28.x = Object Position x(AI28.ID)
	AI28.y = Object Position y(AI28.ID)
	AI28.z = Object Position z(AI28.ID)
	
	AI29.ID = 38
	Make Object Box AI29.ID,25,50,16
	Position Object AI29.ID,100,0,0
	AI29.x = Object Position x(AI29.ID)
	AI29.y = Object Position y(AI29.ID)
	AI29.z = Object Position z(AI29.ID)
	
	AI30.ID = 39
	Make Object Box AI30.ID,25,50,16
	Position Object AI30.ID,150,0,0
	AI30.x = Object Position x(AI30.ID)
	AI30.y = Object Position y(AI30.ID)
	AI30.z = Object Position z(AI30.ID)
	
	AI31.ID = 40
	Make Object Box AI31.ID,25,50,16
	Position Object AI31.ID,200,0,0
	AI31.x = Object Position x(AI31.ID)
	AI31.y = Object Position y(AI31.ID)
	AI31.z = Object Position z(AI31.ID)
	
	AI32.ID = 41
	Make Object Box AI32.ID,25,50,16
	Position Object AI32.ID,250,0,0
	AI32.x = Object Position x(AI32.ID)
	AI32.y = Object Position y(AI32.ID)
	AI32.z = Object Position z(AI32.ID)
	
	AI33.ID = 42
	Make Object Box AI33.ID,25,50,16
	Position Object AI33.ID,-250,-100,0
	AI33.x = Object Position x(AI33.ID)
	AI33.y = Object Position y(AI33.ID)
	AI33.z = Object Position z(AI33.ID)
	
	AI34.ID = 43
	Make Object Box AI34.ID,25,50,16
	Position Object AI34.ID,-200,-100,0
	AI34.x = Object Position x(AI34.ID)
	AI34.y = Object Position y(AI34.ID)
	AI34.z = Object Position z(AI34.ID)
	
	AI35.ID = 44
	Make Object Box AI35.ID,25,50,16
	Position Object AI35.ID,-150,-100,0
	AI35.x = Object Position x(AI35.ID)
	AI35.y = Object Position y(AI35.ID)
	AI35.z = Object Position z(AI35.ID)
	
	AI36.ID = 45
	Make Object Box AI36.ID,25,50,16
	Position Object AI36.ID,-100,-100,0
	AI36.x = Object Position x(AI36.ID)
	AI36.y = Object Position y(AI36.ID)
	AI36.z = Object Position z(AI36.ID)
	
	AI37.ID = 46
	Make Object Box AI37.ID,25,50,16
	Position Object AI37.ID,-50,-100,0
	AI37.x = Object Position x(AI37.ID)
	AI37.y = Object Position y(AI37.ID)
	AI37.z = Object Position z(AI37.ID)
	
	AI38.ID = 47
	Make Object Box AI38.ID,25,50,16
	Position Object AI38.ID,0,-100,0
	AI38.x = Object Position x(AI38.ID)
	AI38.y = Object Position y(AI38.ID)
	AI38.z = Object Position z(AI38.ID)
	
	AI39.ID = 48
	Make Object Box AI39.ID,25,50,16
	Position Object AI39.ID,50,-100,0
	AI39.x = Object Position x(AI39.ID)
	AI39.y = Object Position y(AI39.ID)
	AI39.z = Object Position z(AI39.ID)
	
	AI40.ID = 49
	Make Object Box AI40.ID,25,50,16
	Position Object AI40.ID,100,-100,0
	AI40.x = Object Position x(AI40.ID)
	AI40.y = Object Position y(AI40.ID)
	AI40.z = Object Position z(AI40.ID)
	
	AI41.ID = 50
	Make Object Box AI41.ID,25,50,16
	Position Object AI41.ID,150,-100,0
	AI41.x = Object Position x(AI41.ID)
	AI41.y = Object Position y(AI41.ID)
	AI41.z = Object Position z(AI41.ID)
	
	AI42.ID = 51
	Make Object Box AI42.ID,25,50,16
	Position Object AI42.ID,200,-100,0
	AI42.x = Object Position x(AI42.ID)
	AI42.y = Object Position y(AI42.ID)
	AI42.z = Object Position z(AI42.ID)
	
	AI43.ID = 52
	Make Object Box AI43.ID,25,50,16
	Position Object AI43.ID,250,-100,0
	AI43.x = Object Position x(AI43.ID)
	AI43.y = Object Position y(AI43.ID)
	AI43.z = Object Position z(AI43.ID)
	
		
	TB.ID = 53
	Make Object Box TB.ID,1001,10,16
	Position Object TB.ID,0,401.5,0
	
	
	Bullet.ID = 54
	
	
	
	
	
	
EndFunction

Function Reset()
	
	Player.x = 0
	Player.y = -351.5
	Player.z = 0
	Player2.x = 0
	Player2.y = -320
	Player2.z = 0
	Player3.x = -30
	Player3.y = -340
	Player3.z = 0
	Player4.x = 30
	Player4.y = -340
	Player4.z = 0
	
	AI.x = -200
	AI.y = 200
	AI.z = 0
	AI1.x = -150
 	AI1.y = 200
	AI1.z = 0
	AI2.x = -100
	AI2.y = 200
	AI2.z = 0
	AI3.x = -50
	AI3.y = 200
	AI3.z = 0
	AI4.x = 0
	AI4.y = 200
	AI4.z = 0
	AI5.x = 50
	AI5.y = 200
	AI5.z = 0
	AI6.x = 100
	AI6.y = 200
	AI6.z = 0
	AI7.x = 150
	AI7.y = 200
	AI7.z = 0
	AI8.x = 200
	AI8.y = 200
	AI8.z = 0
	
	Bullet.yspeed = 20
	Player.Score = 0 
	Player.lives = 2
	
	
EndFunction

Function PlayerControl()
	If Leftkey() = 1
		Dec Player.x,5
		Dec Player2.x,5
		Dec Player3.x,5
		Dec Player4.x,5
	Endif
	
	If Rightkey() = 1
		Inc Player.x,5
		Inc Player2.x,5
		Inc Player3.x,5
		Inc Player4.x,5
	Endif
	
	
	If Object Collision (Player.ID,RB.ID) = 1
		Dec Player.x,10
		Dec Player2.x,10
		Dec Player3.x,10
		Dec Player4.x,10
	Endif
	
	If Object Collision (Player.ID,LB.ID) = 1
		Inc Player.x,10
		Inc Player2.x,10
		Inc Player3.x,10
		Inc Player4.x,10
	Endif
	
	Position Object Player.ID,Player.x,Player.y,Player.z
	Position Object Player2.ID,Player2.x,Player2.y,Player2.z
	Position Object Player3.ID,Player3.x,Player3.y,Player3.z
	Position Object Player4.ID,Player4.x,Player4.y,Player4.z
	
	
	 
EndFunction

Function Bullet1()
	
	
		If Spacekey() = 1 
			If Object Exist(Bullet.ID) = 0
				Make Object Cylinder Bullet.ID,15
				Position Object Bullet.ID,Object Position x(Player2.ID),Object Position y(Player2.ID) + 30,Object Position z(Player2.ID) 
				Bullet2()
				Play Sound 1
			Endif
		Endif

EndFunction

Function Bullet2()

If Object Exist(Bullet.ID) = 1 Then Position Object Bullet.ID, object position x(Bullet.ID), Object position y(Bullet.ID)+Bullet.yspeed, Object position z(Bullet.ID)
	If Object Exist(Bullet.ID) = 1
	
	
		If Object Collision(Bullet.ID,AI.ID) = 1
			Bullet.y = 401
			AI.y = -900
			AI.x = -900
			AI.z = -900
			Position Object AI.ID,AI.x,AI.y,AI.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI1.ID) = 1
			Bullet.y = 401
			AI1.y = -900
			AI1.x = -900
			AI1.z = -900
			Position Object AI1.ID,AI1.x,AI1.y,AI.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI2.ID) = 1
			Bullet.y = 401
			AI2.y = -900
			AI2.x = -900
			AI2.z = -900
			Position Object AI2.ID,AI2.x,AI2.y,AI2.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI3.ID) = 1
			Bullet.y = 401
			AI3.y = -900
			AI3.x = -900
			AI3.z = -900
			Position Object AI3.ID,AI3.x,AI3.y,AI3.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI4.ID) = 1
			Bullet.y = 401
			AI4.y = -900
			AI4.x = -900
			AI4.z = -900
			Position Object AI4.ID,AI4.x,AI4.y,AI4.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI5.ID) = 1
			Bullet.y = 401
			AI5.y = -900
			AI5.x = -900
			AI5.z = -900
			Position Object AI5.ID,AI5.x,AI5.y,AI5.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI6.ID) = 1
			Bullet.y = 401
			AI6.y = -900
			AI6.x = -900
			AI6.z = -900
			Position Object AI6.ID,AI6.x,AI6.y,AI6.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI7.ID) = 1
			Bullet.y = 401
			AI7.y = -900
			AI7.x = -900
			AI7.z = -900
			Position Object AI7.ID,AI7.x,AI7.y,AI7.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI8.ID) = 1
			Bullet.y = 401
			AI8.y = -900
			AI8.x = -900
			AI8.z = -900
			Position Object AI8.ID,AI8.x,AI8.y,AI8.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI9.ID) = 1
			Bullet.y = 401
			AI9.y = -900
			AI9.x = -900
			AI9.z = -900
			Position Object AI9.ID,AI9.x,AI9.y,AI9.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI10.ID) = 1
			Bullet.y = 401
			AI10.y = -900
			AI10.x = -900
			AI10.z = -900
			Position Object AI10.ID,AI10.x,AI10.y,AI10.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI11.ID) = 1
			Bullet.y = 401
			AI11.y = -900
			AI11.x = -900
			AI11.z = -900
			Position Object AI11.ID,AI11.x,AI11.y,AI11.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI12.ID) = 1
			Bullet.y = 401
			AI12.y = -900
			AI12.x = -900
			AI12.z = -900
			Position Object AI12.ID,AI12.x,AI12.y,AI12.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI13.ID) = 1
			Bullet.y = 401
			AI13.y = -900
			AI13.x = -900
			AI13.z = -900
			Position Object AI13.ID,AI13.x,AI13.y,AI13.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI14.ID) = 1
			Bullet.y = 401
			AI14.y = -900
			AI14.x = -900
			AI14.z = -900
			Position Object AI14.ID,AI14.x,AI14.y,AI14.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI15.ID) = 1
			Bullet.y = 401
			AI15.y = -900
			AI15.x = -900
			AI15.z = -900
			Position Object AI15.ID,AI15.x,AI15.y,AI15.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI16.ID) = 1
			Bullet.y = 401
			AI16.y = -900
			AI16.x = -900
			AI16.z = -900
			Position Object AI16.ID,AI16.x,AI16.y,AI16.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI17.ID) = 1
			Bullet.y = 401
			AI17.y = -900
			AI17.x = -900
			AI17.z = -900
			Position Object AI17.ID,AI17.x,AI17.y,AI17.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI18.ID) = 1
			Bullet.y = 401
			AI18.y = -900
			AI18.x = -900
			AI18.z = -900
			Position Object AI18.ID,AI18.x,AI18.y,AI18.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI19.ID) = 1
			Bullet.y = 401
			AI19.y = -900
			AI19.x = -900
			AI19.z = -900
			Position Object AI19.ID,AI19.x,AI19.y,AI19.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI20.ID) = 1
			Bullet.y = 401
			AI20.y = -900
			AI20.x = -900
			AI20.z = -900
			Position Object AI20.ID,AI20.x,AI20.y,AI20.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI21.ID) = 1
			Bullet.y = 401
			AI21.y = -900
			AI21.x = -900
			AI21.z = -900
			Position Object AI21.ID,AI21.x,AI21.y,AI21.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI22.ID) = 1
			Bullet.y = 401
			AI22.y = -900
			AI22.x = -900
			AI22.z = -900
			Position Object AI22.ID,AI22.x,AI22.y,AI22.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI23.ID) = 1
			Bullet.y = 401
			AI23.y = -900
			AI23.x = -900
			AI23.z = -900
			Position Object AI23.ID,AI23.x,AI23.y,AI23.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI24.ID) = 1
			Bullet.y = 401
			AI24.y = -900
			AI24.x = -900
			AI24.z = -900
			Position Object AI24.ID,AI24.x,AI24.y,AI24.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI25.ID) = 1
			Bullet.y = 401
			AI25.y = -900
			AI25.x = -900
			AI25.z = -900
			Position Object AI25.ID,AI25.x,AI25.y,AI25.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI26.ID) = 1
			Bullet.y = 401
			AI26.y = -900
			AI26.x = -900
			AI26.z = -900
			Position Object AI26.ID,AI26.x,AI26.y,AI26.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI27.ID) = 1
			Bullet.y = 401
			AI27.y = -900
			AI27.x = -900
			AI27.z = -900
			Position Object AI27.ID,AI27.x,AI27.y,AI27.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI28.ID) = 1
			Bullet.y = 401
			AI28.y = -900
			AI28.x = -900
			AI28.z = -900
			Position Object AI28.ID,AI28.x,AI28.y,AI28.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI29.ID) = 1
			Bullet.y = 401
			AI29.y = -900
			AI29.x = -900
			AI29.z = -900
			Position Object AI29.ID,AI29.x,AI29.y,AI29.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI30.ID) = 1
			Bullet.y = 401
			AI30.y = -900
			AI30.x = -900
			AI30.z = -900
			Position Object AI30.ID,AI30.x,AI30.y,AI30.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI31.ID) = 1
			Bullet.y = 401
			AI31.y = -900
			AI31.x = -900
			AI31.z = -900
			Position Object AI31.ID,AI31.x,AI31.y,AI31.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI32.ID) = 1
			Bullet.y = 401
			AI32.y = -900
			AI32.x = -900
			AI32.z = -900
			Position Object AI32.ID,AI32.x,AI32.y,AI32.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI33.ID) = 1
			Bullet.y = 401
			AI33.y = -900
			AI33.x = -900
			AI33.z = -900
			Position Object AI33.ID,AI33.x,AI33.y,AI33.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI34.ID) = 1
			Bullet.y = 401
			AI34.y = -900
			AI34.x = -900
			AI34.z = -900
			Position Object AI34.ID,AI34.x,AI34.y,AI34.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI35.ID) = 1
			Bullet.y = 401
			AI35.y = -900
			AI35.x = -900
			AI35.z = -900
			Position Object AI35.ID,AI35.x,AI35.y,AI35.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI36.ID) = 1
			Bullet.y = 401
			AI36.y = -900
			AI36.x = -900
			AI36.z = -900
			Position Object AI36.ID,AI36.x,AI36.y,AI36.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI37.ID) = 1
			Bullet.y = 401
			AI37.y = -900
			AI37.x = -900
			AI37.z = -900
			Position Object AI37.ID,AI37.x,AI37.y,AI37.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI38.ID) = 1
			Bullet.y = 401
			AI38.y = -900
			AI38.x = -900
			AI38.z = -900
			Position Object AI38.ID,AI38.x,AI38.y,AI38.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI39.ID) = 1
			Bullet.y = 401
			AI39.y = -900
			AI39.x = -900
			AI39.z = -900
			Position Object AI39.ID,AI39.x,AI39.y,AI39.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI40.ID) = 1
			Bullet.y = 401
			AI40.y = -900
			AI40.x = -900
			AI40.z = -900
			Position Object AI40.ID,AI40.x,AI40.y,AI40.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI41.ID) = 1
			Bullet.y = 401
			AI41.y = -900
			AI41.x = -900
			AI41.z = -900
			Position Object AI41.ID,AI41.x,AI41.y,AI41.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI42.ID) = 1
			Bullet.y = 401
			AI42.y = -900
			AI42.x = -900
			AI42.z = -900
			Position Object AI42.ID,AI42.x,AI42.y,AI42.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI43.ID) = 1
			Bullet.y = 401
			AI43.y = -900
			AI43.x = -900
			AI43.z = -900
			Position Object AI43.ID,AI43.x,AI43.y,AI43.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,TB.ID) = 1
			Delete Object Bullet.ID
		Endif
	Endif

EndFunction

Function ScreenText()
	Ink RGB(0,0,255),RGB(0,0,255)
	Center Text (Screen Width() / 100) *75, (Screen Height() / 100) * 0 , "Score: " + Str$(Player.Score)
	Center Text (Screen Width() / 100) *95, (Screen Height() / 100) * 0 , "Lives: " + Str$(Player.lives)
EndFunction

Function AiControl()
	
		
	
EndFunction

+ Code Snippet

Rem ***** Included Source File *****

Function MakeObjects()

	Set Spot Light 0,2,3
	Position Light 0,0,-200,-250
	Point Light 0,0,0,0
	Color Light 0,RGB(255,255,255)
	
	Make Object Plain 1,1003,200
	Position Object 1,0,-300,0
	Color Object 1,RGB(0,200,0)
	Set Shadow Shading On 1
	
	LB.ID = 2
	Make Object Box LB.ID,10,1001,16
	Position Object LB.ID,-500,0,0
	Hide Object LB.ID
	
	RB.ID = 3
	Make Object Box RB.ID,10,1001,16
	Position Object RB.ID,500,0,0
	Hide Object RB.ID
	
	PB.ID = 4
	Make Object Box PB.ID,1001,10,16
	Position Object PB.ID,0,-401.5,0
	Hide Object PB.ID
	
	Player.ID = 5 
	Player2.ID = 6
	Player3.ID = 7
	Player4.ID = 8
	Make Object Box Player.ID,100,10,16
	Position Object Player.ID,0,-351.5,0
	Player.x = Object Position x(Player.ID)
	Player.y = Object Position y(Player.ID)
	Player.z = Object Position z(Player.ID)
	Color Object Player.ID,RGB(0,200,50)
	Make Object Box Player2.ID,10,80,16
	Position Object Player2.ID,0,-320,0
	Player2.x = Object Position x(Player2.ID)
	Player2.y = Object Position y(Player2.ID)
	Player2.z = Object Position z(Player2.ID)
	Color Object Player2.ID,RGB(0,200,50)
	Make Object Box Player3.ID,10,30,16
	Position Object Player3.ID,-30,-340,0
	Player3.x = Object Position x(Player3.ID)
	Player3.y = Object Position y(Player3.ID)
	Player3.z = Object Position z(Player3.ID)
	Color Object Player3.ID,RGB(0,200,50)
	Make Object Box Player4.ID,10,30,16
	Position Object Player4.ID,30,-340,0
	Player4.x = Object Position x(Player4.ID)
	Player4.y = Object Position y(Player4.ID)
	Player4.z = Object Position z(Player4.ID)
	Color Object Player4.ID,RGB(0,200,50)
	
	AI.ID = 9
	Make Object Box AI.ID,25,50,16
	Position Object AI.ID,-200,200,0
	AI.x = Object Position x(AI.ID)
	AI.y = Object Position y(AI.ID)
	AI.z = Object Position z(AI.ID)

	AI1.ID = 10
	Make Object Box AI1.ID,25,50,16
	Position Object AI1.ID,-150,200,0
	AI1.x = Object Position x(AI1.ID)
	AI1.y = Object Position y(AI1.ID)
	AI1.z = Object Position z(AI1.ID)
	
	AI2.ID = 11
	Make Object Box AI2.ID,25,50,16
	Position Object AI2.ID,-100,200,0
	AI2.x = Object Position x(AI2.ID)
	AI2.y = Object Position y(AI2.ID)
	AI2.z = Object Position z(AI2.ID)
	
	AI3.ID = 12
	Make Object Box AI3.ID,25,50,16
	Position Object AI3.ID,-50,200,0
	AI3.x = Object Position x(AI3.ID)
	AI3.y = Object Position y(AI3.ID)
	AI3.z = Object Position z(AI3.ID)
	
	AI4.ID = 13
	Make Object Box AI4.ID,25,50,16
	Position Object AI4.ID,0,200,0
	AI4.x = Object Position x(AI4.ID)
	AI4.y = Object Position y(AI4.ID)
	AI4.z = Object Position z(AI4.ID)
	
	AI5.ID = 14
	Make Object Box AI5.ID,25,50,16
	Position Object AI5.ID,50,200,0
	AI5.x = Object Position x(AI5.ID)
	AI5.y = Object Position y(AI5.ID)
	AI5.z = Object Position z(AI5.ID)
	
	AI6.ID = 15
	Make Object Box AI6.ID,25,50,16
	Position Object AI6.ID,100,200,0
	AI6.x = Object Position x(AI6.ID)
	AI6.y = Object Position y(AI6.ID)
	AI6.z = Object Position z(AI6.ID)
	
	AI7.ID = 16
	Make Object Box AI7.ID,25,50,16
	Position Object AI7.ID,150,200,0
	AI7.x = Object Position x(AI7.ID)
	AI7.y = Object Position y(AI7.ID)
	AI7.z = Object Position z(AI7.ID)
	
	AI8.ID = 17
	Make Object Box AI8.ID,25,50,16
	Position Object AI8.ID,200,200,0
	AI8.x = Object Position x(AI8.ID)
	AI8.y = Object Position y(AI8.ID)
	AI8.z = Object Position z(AI8.ID)
	
	AI9.ID = 18
	Make Object Box AI9.ID,25,50,16
	Position Object AI9.ID,-200,100,0
	AI9.x = Object Position x(AI9.ID)
	AI9.y = Object Position y(AI9.ID)
	AI9.z = Object Position z(AI9.ID)

	AI10.ID = 19
	Make Object Box AI10.ID,25,50,16
	Position Object AI10.ID,-150,100,0
	AI10.x = Object Position x(AI10.ID)
	AI10.y = Object Position y(AI10.ID)
	AI10.z = Object Position z(AI10.ID)
	
	AI11.ID = 20
	Make Object Box AI11.ID,25,50,16
	Position Object AI11.ID,-100,100,0
	AI11.x = Object Position x(AI11.ID)
	AI11.y = Object Position y(AI11.ID)
	AI11.z = Object Position z(AI11.ID)
	
	AI12.ID = 21
	Make Object Box AI12.ID,25,50,16
	Position Object AI12.ID,-50,100,0
	AI12.x = Object Position x(AI12.ID)
	AI12.y = Object Position y(AI12.ID)
	AI12.z = Object Position z(AI12.ID)
	
	AI13.ID = 22
	Make Object Box AI13.ID,25,50,16
	Position Object AI13.ID,0,100,0
	AI13.x = Object Position x(AI13.ID)
	AI13.y = Object Position y(AI13.ID)
	AI13.z = Object Position z(AI13.ID)
	
	AI14.ID = 23
	Make Object Box AI14.ID,25,50,16
	Position Object AI14.ID,50,100,0
	AI14.x = Object Position x(AI14.ID)
	AI14.y = Object Position y(AI14.ID)
	AI14.z = Object Position z(AI14.ID)
	
	AI15.ID = 24
	Make Object Box AI15.ID,25,50,16
	Position Object AI15.ID,100,100,0
	AI15.x = Object Position x(AI15.ID)
	AI15.y = Object Position y(AI15.ID)
	AI15.z = Object Position z(AI15.ID)
	
	AI16.ID = 25
	Make Object Box AI16.ID,25,50,16
	Position Object AI16.ID,150,100,0
	AI16.x = Object Position x(AI16.ID)
	AI16.y = Object Position y(AI16.ID)
	AI16.z = Object Position z(AI16.ID)
	
	AI17.ID = 26
	Make Object Box AI17.ID,25,50,16
	Position Object AI17.ID,200,100,0
	AI17.x = Object Position x(AI17.ID)
	AI17.y = Object Position y(AI17.ID)
	AI17.z = Object Position z(AI17.ID)
	
	AI18.ID = 27
	Make Object Box AI18.ID,25,50,16
	Position Object AI18.ID,250,100,0
	AI18.x = Object Position x(AI18.ID)
	AI18.y = Object Position y(AI18.ID)
	AI18.z = Object Position z(AI18.ID)
	
	AI19.ID = 28
	Make Object Box AI19.ID,25,50,16
	Position Object AI19.ID,250,200,0
	AI19.x = Object Position x(AI19.ID)
	AI19.y = Object Position y(AI19.ID)
	AI19.z = Object Position z(AI19.ID)
	
	AI20.ID = 29
	Make Object Box AI20.ID,25,50,16
	Position Object AI20.ID,-250,100,0
	AI20.x = Object Position x(AI20.ID)
	AI20.y = Object Position y(AI20.ID)
	AI20.z = Object Position z(AI20.ID)
	
	AI21.ID = 30
	Make Object Box AI21.ID,25,50,16
	Position Object AI21.ID,-250,200,0
	AI21.x = Object Position x(AI21.ID)
	AI21.y = Object Position y(AI21.ID)
	AI21.z = Object Position z(AI21.ID)
	
	AI22.ID = 31
	Make Object Box AI22.ID,25,50,16
	Position Object AI22.ID,-250,0,0
	AI22.x = Object Position x(AI22.ID)
	AI22.y = Object Position y(AI22.ID)
	AI22.z = Object Position z(AI22.ID)
	
	AI23.ID = 32
	Make Object Box AI23.ID,25,50,16
	Position Object AI23.ID,-200,0,0
	AI23.x = Object Position x(AI23.ID)
	AI23.y = Object Position y(AI23.ID)
	AI23.z = Object Position z(AI23.ID)
	
	AI24.ID = 33
	Make Object Box AI24.ID,25,50,16
	Position Object AI24.ID,-150,0,0
	AI24.x = Object Position x(AI24.ID)
	AI24.y = Object Position y(AI24.ID)
	AI24.z = Object Position z(AI24.ID)
	
	AI25.ID = 34
	Make Object Box AI25.ID,25,50,16
	Position Object AI25.ID,-100,0,0
	AI25.x = Object Position x(AI25.ID)
	AI25.y = Object Position y(AI25.ID)
	AI25.z = Object Position z(AI25.ID)
	
	AI26.ID = 35
	Make Object Box AI26.ID,25,50,16
	Position Object AI26.ID,-50,0,0
	AI26.x = Object Position x(AI26.ID)
	AI26.y = Object Position y(AI26.ID)
	AI26.z = Object Position z(AI26.ID)
	
	AI27.ID = 36
	Make Object Box AI27.ID,25,50,16
	Position Object AI27.ID,0,0,0
	AI27.x = Object Position x(AI27.ID)
	AI27.y = Object Position y(AI27.ID)
	AI27.z = Object Position z(AI27.ID)
	
	AI28.ID = 37
	Make Object Box AI28.ID,25,50,16
	Position Object AI28.ID,50,0,0
	AI28.x = Object Position x(AI28.ID)
	AI28.y = Object Position y(AI28.ID)
	AI28.z = Object Position z(AI28.ID)
	
	AI29.ID = 38
	Make Object Box AI29.ID,25,50,16
	Position Object AI29.ID,100,0,0
	AI29.x = Object Position x(AI29.ID)
	AI29.y = Object Position y(AI29.ID)
	AI29.z = Object Position z(AI29.ID)
	
	AI30.ID = 39
	Make Object Box AI30.ID,25,50,16
	Position Object AI30.ID,150,0,0
	AI30.x = Object Position x(AI30.ID)
	AI30.y = Object Position y(AI30.ID)
	AI30.z = Object Position z(AI30.ID)
	
	AI31.ID = 40
	Make Object Box AI31.ID,25,50,16
	Position Object AI31.ID,200,0,0
	AI31.x = Object Position x(AI31.ID)
	AI31.y = Object Position y(AI31.ID)
	AI31.z = Object Position z(AI31.ID)
	
	AI32.ID = 41
	Make Object Box AI32.ID,25,50,16
	Position Object AI32.ID,250,0,0
	AI32.x = Object Position x(AI32.ID)
	AI32.y = Object Position y(AI32.ID)
	AI32.z = Object Position z(AI32.ID)
	
	AI33.ID = 42
	Make Object Box AI33.ID,25,50,16
	Position Object AI33.ID,-250,-100,0
	AI33.x = Object Position x(AI33.ID)
	AI33.y = Object Position y(AI33.ID)
	AI33.z = Object Position z(AI33.ID)
	
	AI34.ID = 43
	Make Object Box AI34.ID,25,50,16
	Position Object AI34.ID,-200,-100,0
	AI34.x = Object Position x(AI34.ID)
	AI34.y = Object Position y(AI34.ID)
	AI34.z = Object Position z(AI34.ID)
	
	AI35.ID = 44
	Make Object Box AI35.ID,25,50,16
	Position Object AI35.ID,-150,-100,0
	AI35.x = Object Position x(AI35.ID)
	AI35.y = Object Position y(AI35.ID)
	AI35.z = Object Position z(AI35.ID)
	
	AI36.ID = 45
	Make Object Box AI36.ID,25,50,16
	Position Object AI36.ID,-100,-100,0
	AI36.x = Object Position x(AI36.ID)
	AI36.y = Object Position y(AI36.ID)
	AI36.z = Object Position z(AI36.ID)
	
	AI37.ID = 46
	Make Object Box AI37.ID,25,50,16
	Position Object AI37.ID,-50,-100,0
	AI37.x = Object Position x(AI37.ID)
	AI37.y = Object Position y(AI37.ID)
	AI37.z = Object Position z(AI37.ID)
	
	AI38.ID = 47
	Make Object Box AI38.ID,25,50,16
	Position Object AI38.ID,0,-100,0
	AI38.x = Object Position x(AI38.ID)
	AI38.y = Object Position y(AI38.ID)
	AI38.z = Object Position z(AI38.ID)
	
	AI39.ID = 48
	Make Object Box AI39.ID,25,50,16
	Position Object AI39.ID,50,-100,0
	AI39.x = Object Position x(AI39.ID)
	AI39.y = Object Position y(AI39.ID)
	AI39.z = Object Position z(AI39.ID)
	
	AI40.ID = 49
	Make Object Box AI40.ID,25,50,16
	Position Object AI40.ID,100,-100,0
	AI40.x = Object Position x(AI40.ID)
	AI40.y = Object Position y(AI40.ID)
	AI40.z = Object Position z(AI40.ID)
	
	AI41.ID = 50
	Make Object Box AI41.ID,25,50,16
	Position Object AI41.ID,150,-100,0
	AI41.x = Object Position x(AI41.ID)
	AI41.y = Object Position y(AI41.ID)
	AI41.z = Object Position z(AI41.ID)
	
	AI42.ID = 51
	Make Object Box AI42.ID,25,50,16
	Position Object AI42.ID,200,-100,0
	AI42.x = Object Position x(AI42.ID)
	AI42.y = Object Position y(AI42.ID)
	AI42.z = Object Position z(AI42.ID)
	
	AI43.ID = 52
	Make Object Box AI43.ID,25,50,16
	Position Object AI43.ID,250,-100,0
	AI43.x = Object Position x(AI43.ID)
	AI43.y = Object Position y(AI43.ID)
	AI43.z = Object Position z(AI43.ID)
	
		
	TB.ID = 53
	Make Object Box TB.ID,1001,10,16
	Position Object TB.ID,0,401.5,0
	
	
	Bullet.ID = 54
	
	
	
	
	
	
EndFunction

Function Reset()
	
	Player.x = 0
	Player.y = -351.5
	Player.z = 0
	Player2.x = 0
	Player2.y = -320
	Player2.z = 0
	Player3.x = -30
	Player3.y = -340
	Player3.z = 0
	Player4.x = 30
	Player4.y = -340
	Player4.z = 0
	
	AI.x = -200
	AI.y = 200
	AI.z = 0
	AI1.x = -150
 	AI1.y = 200
	AI1.z = 0
	AI2.x = -100
	AI2.y = 200
	AI2.z = 0
	AI3.x = -50
	AI3.y = 200
	AI3.z = 0
	AI4.x = 0
	AI4.y = 200
	AI4.z = 0
	AI5.x = 50
	AI5.y = 200
	AI5.z = 0
	AI6.x = 100
	AI6.y = 200
	AI6.z = 0
	AI7.x = 150
	AI7.y = 200
	AI7.z = 0
	AI8.x = 200
	AI8.y = 200
	AI8.z = 0
	
	Bullet.yspeed = 20
	Player.Score = 0 
	Player.lives = 2
	
	
EndFunction

Function PlayerControl()
	If Leftkey() = 1
		Dec Player.x,5
		Dec Player2.x,5
		Dec Player3.x,5
		Dec Player4.x,5
	Endif
	
	If Rightkey() = 1
		Inc Player.x,5
		Inc Player2.x,5
		Inc Player3.x,5
		Inc Player4.x,5
	Endif
	
	
	If Object Collision (Player.ID,RB.ID) = 1
		Dec Player.x,10
		Dec Player2.x,10
		Dec Player3.x,10
		Dec Player4.x,10
	Endif
	
	If Object Collision (Player.ID,LB.ID) = 1
		Inc Player.x,10
		Inc Player2.x,10
		Inc Player3.x,10
		Inc Player4.x,10
	Endif
	
	Position Object Player.ID,Player.x,Player.y,Player.z
	Position Object Player2.ID,Player2.x,Player2.y,Player2.z
	Position Object Player3.ID,Player3.x,Player3.y,Player3.z
	Position Object Player4.ID,Player4.x,Player4.y,Player4.z
	
	
	 
EndFunction

Function Bullet1()
	
	
		If Spacekey() = 1 
			If Object Exist(Bullet.ID) = 0
				Make Object Cylinder Bullet.ID,15
				Position Object Bullet.ID,Object Position x(Player2.ID),Object Position y(Player2.ID) + 30,Object Position z(Player2.ID) 
				Bullet2()
				Play Sound 1
			Endif
		Endif

	
EndFunction

Function Bullet2()

	If Object Exist(Bullet.ID) = 1 Then Position Object Bullet.ID, object position x(Bullet.ID), Object position y(Bullet.ID)+Bullet.yspeed, Object position z(Bullet.ID)
	If Object Exist(Bullet.ID) = 1
	
	
		If Object Collision(Bullet.ID,AI.ID) = 1
			Bullet.y = 401
			AI.y = -900
			AI.x = -900
			AI.z = -900
			Position Object AI.ID,AI.x,AI.y,AI.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI1.ID) = 1
			Bullet.y = 401
			AI1.y = -900
			AI1.x = -900
			AI1.z = -900
			Position Object AI1.ID,AI1.x,AI1.y,AI.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI2.ID) = 1
			Bullet.y = 401
			AI2.y = -900
			AI2.x = -900
			AI2.z = -900
			Position Object AI2.ID,AI2.x,AI2.y,AI2.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI3.ID) = 1
			Bullet.y = 401
			AI3.y = -900
			AI3.x = -900
			AI3.z = -900
			Position Object AI3.ID,AI3.x,AI3.y,AI3.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI4.ID) = 1
			Bullet.y = 401
			AI4.y = -900
			AI4.x = -900
			AI4.z = -900
			Position Object AI4.ID,AI4.x,AI4.y,AI4.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI5.ID) = 1
			Bullet.y = 401
			AI5.y = -900
			AI5.x = -900
			AI5.z = -900
			Position Object AI5.ID,AI5.x,AI5.y,AI5.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI6.ID) = 1
			Bullet.y = 401
			AI6.y = -900
			AI6.x = -900
			AI6.z = -900
			Position Object AI6.ID,AI6.x,AI6.y,AI6.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI7.ID) = 1
			Bullet.y = 401
			AI7.y = -900
			AI7.x = -900
			AI7.z = -900
			Position Object AI7.ID,AI7.x,AI7.y,AI7.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI8.ID) = 1
			Bullet.y = 401
			AI8.y = -900
			AI8.x = -900
			AI8.z = -900
			Position Object AI8.ID,AI8.x,AI8.y,AI8.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI9.ID) = 1
			Bullet.y = 401
			AI9.y = -900
			AI9.x = -900
			AI9.z = -900
			Position Object AI9.ID,AI9.x,AI9.y,AI9.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI10.ID) = 1
			Bullet.y = 401
			AI10.y = -900
			AI10.x = -900
			AI10.z = -900
			Position Object AI10.ID,AI10.x,AI10.y,AI10.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI11.ID) = 1
			Bullet.y = 401
			AI11.y = -900
			AI11.x = -900
			AI11.z = -900
			Position Object AI11.ID,AI11.x,AI11.y,AI11.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI12.ID) = 1
			Bullet.y = 401
			AI12.y = -900
			AI12.x = -900
			AI12.z = -900
			Position Object AI12.ID,AI12.x,AI12.y,AI12.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI13.ID) = 1
			Bullet.y = 401
			AI13.y = -900
			AI13.x = -900
			AI13.z = -900
			Position Object AI13.ID,AI13.x,AI13.y,AI13.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI14.ID) = 1
			Bullet.y = 401
			AI14.y = -900
			AI14.x = -900
			AI14.z = -900
			Position Object AI14.ID,AI14.x,AI14.y,AI14.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI15.ID) = 1
			Bullet.y = 401
			AI15.y = -900
			AI15.x = -900
			AI15.z = -900
			Position Object AI15.ID,AI15.x,AI15.y,AI15.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI16.ID) = 1
			Bullet.y = 401
			AI16.y = -900
			AI16.x = -900
			AI16.z = -900
			Position Object AI16.ID,AI16.x,AI16.y,AI16.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI17.ID) = 1
			Bullet.y = 401
			AI17.y = -900
			AI17.x = -900
			AI17.z = -900
			Position Object AI17.ID,AI17.x,AI17.y,AI17.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI18.ID) = 1
			Bullet.y = 401
			AI18.y = -900
			AI18.x = -900
			AI18.z = -900
			Position Object AI18.ID,AI18.x,AI18.y,AI18.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI19.ID) = 1
			Bullet.y = 401
			AI19.y = -900
			AI19.x = -900
			AI19.z = -900
			Position Object AI19.ID,AI19.x,AI19.y,AI19.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI20.ID) = 1
			Bullet.y = 401
			AI20.y = -900
			AI20.x = -900
			AI20.z = -900
			Position Object AI20.ID,AI20.x,AI20.y,AI20.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI21.ID) = 1
			Bullet.y = 401
			AI21.y = -900
			AI21.x = -900
			AI21.z = -900
			Position Object AI21.ID,AI21.x,AI21.y,AI21.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI22.ID) = 1
			Bullet.y = 401
			AI22.y = -900
			AI22.x = -900
			AI22.z = -900
			Position Object AI22.ID,AI22.x,AI22.y,AI22.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI23.ID) = 1
			Bullet.y = 401
			AI23.y = -900
			AI23.x = -900
			AI23.z = -900
			Position Object AI23.ID,AI23.x,AI23.y,AI23.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI24.ID) = 1
			Bullet.y = 401
			AI24.y = -900
			AI24.x = -900
			AI24.z = -900
			Position Object AI24.ID,AI24.x,AI24.y,AI24.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI25.ID) = 1
			Bullet.y = 401
			AI25.y = -900
			AI25.x = -900
			AI25.z = -900
			Position Object AI25.ID,AI25.x,AI25.y,AI25.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI26.ID) = 1
			Bullet.y = 401
			AI26.y = -900
			AI26.x = -900
			AI26.z = -900
			Position Object AI26.ID,AI26.x,AI26.y,AI26.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI27.ID) = 1
			Bullet.y = 401
			AI27.y = -900
			AI27.x = -900
			AI27.z = -900
			Position Object AI27.ID,AI27.x,AI27.y,AI27.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI28.ID) = 1
			Bullet.y = 401
			AI28.y = -900
			AI28.x = -900
			AI28.z = -900
			Position Object AI28.ID,AI28.x,AI28.y,AI28.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI29.ID) = 1
			Bullet.y = 401
			AI29.y = -900
			AI29.x = -900
			AI29.z = -900
			Position Object AI29.ID,AI29.x,AI29.y,AI29.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI30.ID) = 1
			Bullet.y = 401
			AI30.y = -900
			AI30.x = -900
			AI30.z = -900
			Position Object AI30.ID,AI30.x,AI30.y,AI30.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI31.ID) = 1
			Bullet.y = 401
			AI31.y = -900
			AI31.x = -900
			AI31.z = -900
			Position Object AI31.ID,AI31.x,AI31.y,AI31.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI32.ID) = 1
			Bullet.y = 401
			AI32.y = -900
			AI32.x = -900
			AI32.z = -900
			Position Object AI32.ID,AI32.x,AI32.y,AI32.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI33.ID) = 1
			Bullet.y = 401
			AI33.y = -900
			AI33.x = -900
			AI33.z = -900
			Position Object AI33.ID,AI33.x,AI33.y,AI33.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI34.ID) = 1
			Bullet.y = 401
			AI34.y = -900
			AI34.x = -900
			AI34.z = -900
			Position Object AI34.ID,AI34.x,AI34.y,AI34.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI35.ID) = 1
			Bullet.y = 401
			AI35.y = -900
			AI35.x = -900
			AI35.z = -900
			Position Object AI35.ID,AI35.x,AI35.y,AI35.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI36.ID) = 1
			Bullet.y = 401
			AI36.y = -900
			AI36.x = -900
			AI36.z = -900
			Position Object AI36.ID,AI36.x,AI36.y,AI36.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI37.ID) = 1
			Bullet.y = 401
			AI37.y = -900
			AI37.x = -900
			AI37.z = -900
			Position Object AI37.ID,AI37.x,AI37.y,AI37.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI38.ID) = 1
			Bullet.y = 401
			AI38.y = -900
			AI38.x = -900
			AI38.z = -900
			Position Object AI38.ID,AI38.x,AI38.y,AI38.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI39.ID) = 1
			Bullet.y = 401
			AI39.y = -900
			AI39.x = -900
			AI39.z = -900
			Position Object AI39.ID,AI39.x,AI39.y,AI39.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI40.ID) = 1
			Bullet.y = 401
			AI40.y = -900
			AI40.x = -900
			AI40.z = -900
			Position Object AI40.ID,AI40.x,AI40.y,AI40.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI41.ID) = 1
			Bullet.y = 401
			AI41.y = -900
			AI41.x = -900
			AI41.z = -900
			Position Object AI41.ID,AI41.x,AI41.y,AI41.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI42.ID) = 1
			Bullet.y = 401
			AI42.y = -900
			AI42.x = -900
			AI42.z = -900
			Position Object AI42.ID,AI42.x,AI42.y,AI42.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,AI43.ID) = 1
			Bullet.y = 401
			AI43.y = -900
			AI43.x = -900
			AI43.z = -900
			Position Object AI43.ID,AI43.x,AI43.y,AI43.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)
		Endif
		
		If Object Collision(Bullet.ID,TB.ID) = 1
			Delete Object Bullet.ID
		Endif
	Endif

EndFunction

Function ScreenText()
	Ink RGB(0,0,255),RGB(0,0,255)
	Center Text (Screen Width() / 100) *75, (Screen Height() / 100) * 0 , "Score: " + Str$(Player.Score)
	Center Text (Screen Width() / 100) *95, (Screen Height() / 100) * 0 , "Lives: " + Str$(Player.lives)
EndFunction

Function AiControl()
	
		
	
EndFunction

Space:

Rem ***** Included Source File *****
Data_Setup:

Type ObjData
		ID as Integer
		x as Float
		y as Float
		z as Float
		yspeed as Float
		lives as Integer
		String$ as Integer
		Score as Integer
		
	EndType
	
	Global Bullet as ObjData
	Global AI as ObjData
	Global AI1 as ObjData
	Global AI2 as ObjData
	Global AI3 as ObjData
	Global AI4 as ObjData
	Global AI5 as ObjData
	Global AI6 as ObjData
	Global AI7 as ObjData
	Global AI8 as ObjData
	Global AI9 as ObjData
	Global AI10 as ObjData
	Global AI11 as ObjData
	Global AI12 as ObjData
	Global AI13 as ObjData
	Global AI14 as ObjData
	Global AI15 as ObjData
	Global AI16 as ObjData
	Global AI17 as ObjData
	Global AI18 as ObjData
	Global AI19 as ObjData
	Global AI20 as ObjData
	Global AI21 as ObjData
	Global AI22 as ObjData
	Global AI23 as ObjData
	Global AI24 as ObjData
	Global AI25 as ObjData
	Global AI26 as ObjData
	Global AI27 as ObjData
	Global AI28 as ObjData
	Global AI29 as ObjData
	Global AI30 as ObjData
	Global AI31 as ObjData
	Global AI32 as ObjData
	Global AI33 as ObjData
	Global AI34 as ObjData
	Global AI35 as ObjData
	Global AI36 as ObjData
	Global AI37 as ObjData
	Global AI38 as ObjData
	Global AI39 as ObjData
	Global AI40 as ObjData
	Global AI41 as ObjData
	Global AI42 as ObjData
	Global AI43 as ObjData
	Global Player as ObjData
	Global Player2 as ObjData
	Global Player3 as ObjData
	Global Player4 as ObjData
	Global LB as ObjData
	Global RB as ObjData
	Global PB as ObjData
	Global TB as ObjData

Return

Space:

Sync On
	Sync Rate 60
	
	BackDrop On
	Color BackDrop 0
	
	AutoCam Off
	Move Camera 0, -650
	Point Camera 0,0,0,0
	
	Set Global Collision On
	
	Load Sound "SFX\Shoot.wav",1
	Load Sound "SFX\Aikill.wav",2
	Load Sound "SFX\1st Level Music.wav", 3
	
	
Return

+ Code Snippet

Rem ***** Included Source File *****
Data_Setup:



	Type ObjData
		ID as Integer
		x as Float
		y as Float
		z as Float
		yspeed as Float
		lives as Integer
		String$ as Integer
		Score as Integer
		
	EndType
	
	Global Bullet as ObjData
	Global AI as ObjData
	Global AI1 as ObjData
	Global AI2 as ObjData
	Global AI3 as ObjData
	Global AI4 as ObjData
	Global AI5 as ObjData
	Global AI6 as ObjData
	Global AI7 as ObjData
	Global AI8 as ObjData
	Global AI9 as ObjData
	Global AI10 as ObjData
	Global AI11 as ObjData
	Global AI12 as ObjData
	Global AI13 as ObjData
	Global AI14 as ObjData
	Global AI15 as ObjData
	Global AI16 as ObjData
	Global AI17 as ObjData
	Global AI18 as ObjData
	Global AI19 as ObjData
	Global AI20 as ObjData
	Global AI21 as ObjData
	Global AI22 as ObjData
	Global AI23 as ObjData
	Global AI24 as ObjData
	Global AI25 as ObjData
	Global AI26 as ObjData
	Global AI27 as ObjData
	Global AI28 as ObjData
	Global AI29 as ObjData
	Global AI30 as ObjData
	Global AI31 as ObjData
	Global AI32 as ObjData
	Global AI33 as ObjData
	Global AI34 as ObjData
	Global AI35 as ObjData
	Global AI36 as ObjData
	Global AI37 as ObjData
	Global AI38 as ObjData
	Global AI39 as ObjData
	Global AI40 as ObjData
	Global AI41 as ObjData
	Global AI42 as ObjData
	Global AI43 as ObjData
	Global Player as ObjData
	Global Player2 as ObjData
	Global Player3 as ObjData
	Global Player4 as ObjData
	Global LB as ObjData
	Global RB as ObjData
	Global PB as ObjData
	Global TB as ObjData

Return



Space:

	Sync On
	Sync Rate 60
	
	BackDrop On
	Color BackDrop 0
	
	AutoCam Off
	Move Camera 0, -650
	Point Camera 0,0,0,0
	
	Set Global Collision On
	
	Load Sound "SFX\Shoot.wav",1
	Load Sound "SFX\Aikill.wav",2
	Load Sound "SFX\1st Level Music.wav", 3
	
	
Return

Yello http://www.youtube.com/user/Rikukarasuma?feature=mhee

Back to top

Profile PM Email Website

SJPro

23

Years of Service

User Offline

Joined: 3rd Jul 2003

Location:

Posted: 14th Jun 2011 18:35

Link

There are many ways of the approaching the movement.

For one simple method you could have a counter variable for your game which is incremented each loop. Each loop you move your AI left by an amount. Once the counter hits a certain number you then change the height position of your AI reset the counter and each loop move you AI right etc. In this example you would need a variable to hold which direction they are moving which you "flip" when the counter reaches your desired amount. This is only example of how it could be done. the best method depends on how you want to design your game.

A quick comment on your code so far. It is best if you don't repeat similar line such as:

+ Code Snippet

AI8.ID = 17
	Make Object Box AI8.ID,25,50,16
	Position Object AI8.ID,200,200,0
	AI8.x = Object Position x(AI8.ID)
	AI8.y = Object Position y(AI8.ID)
	AI8.z = Object Position z(AI8.ID)
	
	AI9.ID = 18
	Make Object Box AI9.ID,25,50,16
	Position Object AI9.ID,-200,100,0
	AI9.x = Object Position x(AI9.ID)
	AI9.y = Object Position y(AI9.ID)
	AI9.z = Object Position z(AI9.ID)

and

+ Code Snippet

	If Object Collision(Bullet.ID,AI1.ID) = 1
			Bullet.y = 401
			AI1.y = -900
			AI1.x = -900
			AI1.z = -900
			Position Object AI1.ID,AI1.x,AI1.y,AI.z
			Position Object Bullet.ID,Bullet.x,Bullet.y,Bullet.z
			Play Sound 2
			Player.Score = (Player.Score + 10)

If you stored your AI data in an array and used a for loop to count through the index you would only have to write your code once. The advantage to this is you don't have to recreate your code 43 times, but more importantly if you make a change to the code at a later date the change only has to be made once instead of 43 time.

www.freewarehub.net

Back to top

Profile PM

Rikukarasuma

15

Years of Service

User Offline

Joined: 15th May 2011

Location: Ireland

Posted: 15th Jun 2011 18:22

Link

Thanks yeah I only learned about arrays after i was late into this project lol

Yello http://www.youtube.com/user/Rikukarasuma?feature=mhee

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / How to make Space Invaders MoveRight,Drop,MoveLeft Etc