GameMode	ColsTarM
GameType	QUEST
	DestroyOwnTargetCounter		T
	DestroyEnemyTargetCounter	T
	TargetInWaterCounter		Y


Program0123


/ columns and targets Mission Version
author pd/ 

TEXTBUFFER	LEVS

	ColsTarM.wbl

ENDBUFFER


DATABUFFER	COL1

1	13	1	11	1	9	1	7
1	5	1	3	1	1	-1	-1

ENDBUFFER

DATABUFFER	COL2
8	13	8	11	8	9	8	7
8	5	8	3	8	1	-1	-1

ENDBUFFER

DATABUFFER	COL3
15	13	15	11	15	9	15	7
15	5	15	3	15	1	-1	-1

ENDBUFFER

DATABUFFER	COL4

22	13	22	11	22	9	22	7
22	5	22	3	22	1	-1	-1

ENDBUFFER



Loop INIT
Do
	
	
	SET A TO 0
	SET C TO 0
	SET D TO 0
	SET E TO 0
	SET G TO 0
	SET H TO 0
	SET I TO 0
	SET K TO 0
	SET L TO 0
	SET M TO 0
	SET R TO 0
	SET S TO 0
	SET P TO 0
	SET Q TO 0
	SET T TO 0
	SET U TO 0
	SET V TO 0
	SET X TO 0
	SET Y To 0
	SET W TO 0
	
			
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	SetParameter	LIVES	1
	SendMessage	SETLIVES	
	

	SetParameter	TEXT	ColsTarM.wbw
	SendMessage	LOADWEAPONLIST



	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP3
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20        	
        SendMessage     LOADLEVEL

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT	

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER	

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	913
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	752
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	684
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	1100
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SendMessage	DEACTIVATESCORE


	SendMessage	FIRINGOFF
	SendMessage StartBriefing
	
	SendMessage MUSIC_GROOVE_LOW

	ResetBuffer	COL1
	Randomise A FROM 1 TO 8
	Set B To 0

	ResetBuffer	COL2
	Randomise E FROM 1 TO 8
	Set F To 0

	ResetBuffer	COL3
	Randomise I FROM 1 TO 8
	Set J To 0

	ResetBuffer	COL4
	Randomise M FROM 1 TO 8
	Set N To 0

	GotoLoop MAIN
			
	
EndLoop

Loop MAIN
Do



	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0


	SetParameter	Colour1		1.0	0.86	0.03	1.0
	SetParameter	Colour2		1.0	0.86	0.03	1.0
	SetParameter	Colour3		1.0	0.86	0.03	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.3	1.3	1.3	0.0
	SetParameter	Scale2		1.3	1.3	1.3	0.0
	SetParameter	Scale3		1.3	1.3	1.3	0.0
	SetParameter	Scale4		1.3	1.3	1.3	0.0
	SetParameter	Scale5		1.3	1.3	1.3	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Columns_and_targets
FRE	SetParameter	TEXT		Colonnes_et_cibles
	GER SetParameter	Text	Reihen_und_Ziele
	SPA SetParameter	Text	Columnas_y_Objetivos
	ITA SetParameter	TEXT	Colonne_e_bersagli
POL	SetParameter	TEXT		Cele_w_kolumnach



	SendMessage 	CREATETEXT

	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SetParameter	Scale5		0.8	0.8	0.8	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	115.0	0.0	0.0
	SetParameter	Text		Destroy_20_targets
FRE	SetParameter	TEXT		Détruisez_20_cibles
	GER SetParameter	Text	Zerstöre_20_Ziele,
	SPA SetParameter	Text	Destruye_20_objetivos
	ITA SetParameter	TEXT	Distruggi_20_bersagli
POL	SetParameter	TEXT		Aby_ukończyć_misję



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		to_complete_the_mission
FRE	SetParameter	TEXT		pour_réussir_la_mission.
	GER SetParameter	Text	um_die_Mission_zu_vervollständigen
	SPA SetParameter	Text	para_completar_la_misión.	
	ITA SetParameter	TEXT	per_completare_la_missione.
POL	SetParameter	TEXT		musisz_zniszczyć_20_celów.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		Try_not_to_let_any_slip_by.
FRE	SetParameter	TEXT		Essayez_de_n'en_laisser_échapper_aucune.
	GER SetParameter	Text	Versuche,_keine_vorbeizulassen.
	SPA SetParameter	Text	Intenta_que_no_se_te_escape_ni_uno.
	ITA SetParameter	TEXT	Cerca_di_non_farteli_sfuggire:
POL	SetParameter	TEXT		Nie_pozwól_ani_jednemu_się_wymknąć



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		Lose_more_than_20_and_it's
FRE	SetParameter	Text		Si_vous_en_perdez_plus_de_20,
	GER SetParameter	Text	Verlierst_du_mehr_als_20,_heißt_es
	SPA SetParameter	Text	ˇSi_se_te_escapan_más_de_20...
	ITA SetParameter	TEXT	se_ne_perdi_piů_di_20,
POL	SetParameter	TEXT		Stracisz_więcej_jak_20



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Text		Game_over!
FRE	SetParameter	TEXT		la_partie_est_finie!
	GER SetParameter	Text	Game_over!
	SPA SetParameter	Text	se_acabó_el_juego!
	ITA SetParameter	TEXT	hai_perso_la_partita.
POL	SetParameter	TEXT		i_KONIEC




	SendMessage 	CREATETEXT
	
	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
	GER SetParameter	Text	Zum_Starten_Feuer_drücken
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
POL	SetParameter	TEXT		Naciśnij_strzał



	SPA	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale5		0.8	0.8	0.8	0.0

	SPA SetParameter	Text	Pulsa_el_disparo_para_empezar
	SendMessage 	CREATETEXT

	SPA	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale5		1.0	1.0	1.0	0.0



	


	OnMessage FIREPRESSED
	Do
		SendMessage EndBriefing
		SendMessage FIRINGON

		GotoLoop SCREEN1
		
	EndResponse


EndLoop



/ ******************** SEND TARGETS UP THE COLUMNS ********************** /

Loop SCREEN1
Do

	
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0

	SetParameter	Justify		Centre

	SetParameter	POSITION	230.0	215.0	0.0	0.0
	SetParameter	FRAME		2
	SendMessage	CREATEICON

	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SetParameter	Scale5		0.8	0.8	0.8	0.0


	SetParameter	POSITION	280.0	215.0	0.0	0.0
	ConvertToText	T
	SendMessage	CREATETEXT

	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	




	OnMessage TIMER5
	Do
		Add 1 To B
		



		If B IsEqualTo A
		Then

			ReadFromBuffer COL1 Into C
			ReadFromBuffer COL1 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK
			
			Randomise W FROM 1 TO 30
			If W IsEqualTo 3
			Then	
				SetParameter	POSITION	5	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_SPEEDUP
				SendMessage	SPAWNINBLOCK	
			EndIf	
		
			If W IsEqualTo 17
			Then	
				SetParameter	POSITION	5	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_LASERBEAM
				SendMessage	SPAWNINBLOCK	
			EndIf	
			
			If W IsEqualTo 23
			Then	
				SetParameter	POSITION	5	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_LASERBEAM
				SendMessage	SPAWNINBLOCK	
			EndIf

			If W IsEqualTo 7
			Then	
				SetParameter	POSITION	12	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_SPEEDUP
				SendMessage	SPAWNINBLOCK	
			EndIf	
		
			If W IsEqualTo 11
			Then	
				SetParameter	POSITION	12	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_LASERBEAM
				SendMessage	SPAWNINBLOCK	
			EndIf	
			
			If W IsEqualTo 22
			Then	
				SetParameter	POSITION	12	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_LASERBEAM
				SendMessage	SPAWNINBLOCK	
			EndIf

			If W IsEqualTo 9
			Then	
				SetParameter	POSITION	19	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_SPEEDUP
				SendMessage	SPAWNINBLOCK	
			EndIf	
		
			If W IsEqualTo 19
			Then	
				SetParameter	POSITION	19	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_LASERBEAM
				SendMessage	SPAWNINBLOCK	
			EndIf	
			
			If W IsEqualTo 27
			Then	
				SetParameter	POSITION	19	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_LASERBEAM
				SendMessage	SPAWNINBLOCK	
			EndIf


		EndIf

	

		If B IsGreaterThan A
		Then

			SetParameter	POSITION	C	D	1	0
			SendMessage	DETONATEBLOCK

			ReadFromBuffer COL1 Into C
			ReadFromBuffer COL1 Into D
			If C IsGreaterThanOrEqualTo 0
			Then
				SetParameter	POSITION	C	D	0	0
				SetParameter	BlockColour	TARGET
				SendMessage	SPAWNINBLOCK
			Endif

			If C IsLessThan 0
			Then
				Randomise A FROM 1 TO 8
				Set B To 0
			
				ResetBuffer	COL1
								

				Randomise C FROM 3 TO 4
				SetParameter	POSITION	C	1	0	0
				SetParameter	BlockColour	TARGET
				SendMessage	SPAWNINBLOCK
				
			Endif
		
		EndIf


	EndResponse

/ ****************************** column 2 at work *************************************	/

	OnMessage TIMER2
	Do

		Add 1 To F
	
		If F IsEqualTo E
		Then

			ReadFromBuffer COL2 Into G
			ReadFromBuffer COL2 Into H
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK
			
		EndIf

	

		If F IsGreaterThan E
		Then

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK

			ReadFromBuffer COL2 Into G
			ReadFromBuffer COL2 Into H
			If G IsGreaterThanOrEqualTo 0
			Then
				SetParameter	POSITION	G	H	0	0
				SetParameter	BlockColour	TARGET
				SendMessage	SPAWNINBLOCK
			Endif

			If G IsLessThan 0
			Then
				Randomise E FROM 1 TO 8
				Set F To 0
				
				ResetBuffer	COL2
				
				
				Randomise G FROM 5 TO 7
				If G IsLessThan 7
				Then
					SetParameter	POSITION	G	1	0	0
					SetParameter	BlockColour	TARGET
					SendMessage	SPAWNINBLOCK
					
				EndIf
				
				If G IsEqualTo 7
				Then
					Randomise G FROM 10 TO 11		
					SetParameter	POSITION	G	1	0	0
					SetParameter	BlockColour	TARGET
					SendMessage	SPAWNINBLOCK
				EndIf
			Endif
		
		EndIf

	EndResponse

/ ****************************** column 3 at work *************************************	/

	OnMessage TIMER3
	Do

		Add 1 To J
	
		If J IsEqualTo I
		Then

			ReadFromBuffer COL3 Into K
			ReadFromBuffer COL3 Into L
			SetParameter	POSITION	K	L	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK
			
		EndIf

	

		If J IsGreaterThan I
		Then

			SetParameter	POSITION	K	L	1	0
			SendMessage	DETONATEBLOCK

			ReadFromBuffer COL3 Into K
			ReadFromBuffer COL3 Into L
			If K IsGreaterThanOrEqualTo 0
			Then
				SetParameter	POSITION	K	L	0	0
				SetParameter	BlockColour	TARGET
				SendMessage	SPAWNINBLOCK
			Endif

			If K IsLessThan 0
			Then
				Randomise I FROM 1 TO 8
				Set J To 0
				
				ResetBuffer	COL3
			

				Randomise K FROM 12 TO 14
				If K IsLessThan 14
				Then
					SetParameter	POSITION	K	1	0	0
					SetParameter	BlockColour	TARGET
					SendMessage	SPAWNINBLOCK
					
				EndIf
				
				If K IsEqualTo 14
				Then
					Randomise K FROM 17 TO 18		
					SetParameter	POSITION	K	1	0	0
					SetParameter	BlockColour	TARGET
					SendMessage	SPAWNINBLOCK
				EndIf

			Endif
		
		EndIf


	EndResponse

/ ****************************** column 4 at work *************************************	/


	OnMessage TIMER4
	Do

		Add 1 To N
	
		If N IsEqualTo M
		Then

			ReadFromBuffer COL4 Into R
			ReadFromBuffer COL4 Into S
			SetParameter	POSITION	R	S	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK
			
		EndIf

	

		If N IsGreaterThan M
		Then

			SetParameter	POSITION	R	S	1	0
			SendMessage	DETONATEBLOCK

			ReadFromBuffer COL4 Into R
			ReadFromBuffer COL4 Into S
			If R IsGreaterThanOrEqualTo 0
			Then
				SetParameter	POSITION	R	S	0	0
				SetParameter	BlockColour	TARGET
				SendMessage	SPAWNINBLOCK
			Endif

			If R IsLessThan 0
			Then
				Randomise M FROM 1 TO 8
				Set N To 0
				
				ResetBuffer	COL4
				

				Randomise R FROM 19 TO 20
				SetParameter	POSITION	R	1	0	0
				SetParameter	BlockColour	TARGET
				SendMessage	SPAWNINBLOCK

			Endif
		
		EndIf
	
	EndResponse
	

/ ******* Send Acknowledgement messages when the players hits or loses a target ******* /

	If T IsGreaterThan V
	Then
		
		Randomise X FROM 1 TO 2

		If X IsEqualTo 1
		Then

			SetParameter	Colour1		1.0	0.86	0.03	1.0
			SetParameter	Colour2		1.0	0.86	0.03	1.0
			SetParameter	Colour3		1.0	0.86	0.03	1.0
			SetParameter	Colour4		0.0	0.0	0.0	1.0
			SetParameter	Colour5		0.0	0.0	0.0	1.0
			SetParameter	Colour6		0.0	0.0	0.0	1.0

			SetParameter	Position	0.0	75.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.5
			SetParameter	Text		WOW!_You_got_one
FRE			SetParameter	TEXT		Wouah!_Bien_visé!
			GER SetParameter	Text	WOW!_Du_hast_eins_erwischt!
			SPA SetParameter	Text	ˇToma,_ahí_va_uno!
			ITA SetParameter	TEXT	WOW!_Ne_hai_preso_uno!
POL			SetParameter	TEXT		O!_Trafiłeś





			SendMessage 	CREATETEXT
		EndIf

		If X IsEqualTo 2
		Then
			SetParameter	Colour1		1.0	0.86	0.03	1.0
			SetParameter	Colour2		1.0	0.86	0.03	1.0
			SetParameter	Colour3		1.0	0.86	0.03	1.0
			SetParameter	Colour4		0.0	0.0	0.0	1.0
			SetParameter	Colour5		0.0	0.0	0.0	1.0
			SetParameter	Colour6		0.0	0.0	0.0	1.0
			SetParameter	Position	0.0	75.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.5
			SetParameter	Text		Good_shot!
FRE			SetParameter	TEXT		Beau_tir!
			GER SetParameter	Text	Guter_Schuss!
			SPA SetParameter	Text	ˇBuen_disparo!
			ITA SetParameter	TEXT	Bel_colpo!
POL			SetParameter	TEXT		Celny_strzał




			SendMessage 	CREATETEXT
		EndIf

		SET V TO T		
	
	EndIf


	If Y IsGreaterThan U
	Then

		Set Z To 0	/ No message printed /

		If Y BecomesGreaterThanOrEqualTo 10
		Then
			
			SetParameter	Colour1		1.0	1.0	1.0	1.0
			SetParameter	Colour2		1.0	1.0	1.0	1.0
			SetParameter	Colour3		1.0	1.0	1.0	1.0
			SetParameter	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	125.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	2.0
			SetParameter	Text		Careful_thats_10_lost_already!
FRE			SetParameter	TEXT		Attention:_déjŕ_10_de_perdues!
			GER SetParameter	Text	Sei_vorsichtig,_schon_10_verloren!
			ITA SetParameter	TEXT	Attento:_ne_hai_giŕ_persi_10!
POL			SetParameter	TEXT		Ostrożnie._10_już_przepuściłeś



			SPA	SetParameter	Scale1		0.8	0.8	0.8	0.0
			SPA	SetParameter	Scale2		0.8	0.8	0.8	0.0
			SPA	SetParameter	Scale3		0.8	0.8	0.8	0.0
			SPA	SetParameter	Scale4		0.8	0.8	0.8	0.0
			SPA	SetParameter	Scale5		0.8	0.8	0.8	0.0

			SPA SetParameter	Text	ˇTe_cuidado,_que_ya_se_te_han_escapado_10!
				

			SendMessage 	CREATETEXT
		
			SPA	SetParameter	Scale1		1.0	1.0	1.0	0.0
			SPA	SetParameter	Scale2		1.0	1.0	1.0	0.0
			SPA	SetParameter	Scale3		1.0	1.0	1.0	0.0
			SPA	SetParameter	Scale4		1.0	1.0	1.0	0.0
			SPA	SetParameter	Scale5		1.0	1.0	1.0	0.0

			Set Z To 1

			SendMessage MUSIC_GROOVE_MED_LOW

		EndIf

		If Y BecomesGreaterThanOrEqualTo 15
		Then
			
			SetParameter	Colour1		1.0	1.0	1.0	1.0
			SetParameter	Colour2		1.0	1.0	1.0	1.0
			SetParameter	Colour3		1.0	1.0	1.0	1.0
			SetParameter	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	125.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	2.0
			SetParameter	Text		Watch_out_thats_15_targets_lost!
FRE			SetParameter	TEXT		Attention:_cela_fait
			GER SetParameter	Text	Achtung,_schon_15_Ziele_verfehlt!
			ITA SetParameter	TEXT	Attento:_ne_hai_giŕ_persi_15!
			SPA SetParameter	Text	ˇAtención,_ya_se_te_han_escapado_15!
POL			SetParameter	TEXT		Uważaj._Straciłeś_już_15


			SendMessage 	CREATETEXT
FRE			SetParameter	Position	0	50	0	0
FRE			SetParameter	TEXT	15_cibles_de_perdues!
FRE			SendMessage	CREATETEXT

			Set Z To 1


			SendMessage MUSIC_GROOVE_MED
		EndIf
		
		If Y BecomesEqualTo 18
		Then
			
			SetParameter	Colour1		1.0	1.0	1.0	1.0
			SetParameter	Colour2		1.0	1.0	1.0	1.0
			SetParameter	Colour3		1.0	1.0	1.0	1.0
			SetParameter	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	125.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	2.0
			SetParameter	Text		Only_2_Target_lives_left!
FRE			SetParameter	TEXT		Il_ne_reste_que_2_cibles_en_vie!
			GER SetParameter	Text	Nur_2_Fehlschüsse_übrig!
			SPA SetParameter	Text	ˇDos_más_y_estás_muerto!
			ITA SetParameter	TEXT	Puoi_perdere_ancora_
POL			SetParameter	TEXT		Pozostały_tylko_2_cele


			
			SendMessage 	CREATETEXT

			ITA SetParameter	Position	0.0	115.0	0.0	0.0
			ITA SetParameter	TEXT	solo_2_bersagli!
			ITA SendMessage	CREATETEXT

			Set Z to 1

			SendMessage MUSIC_GROOVE_MED_HI
		EndIf

		If Y BecomesEqualTo 19
		Then
			
			SetParameter	Colour1		1.0	1.0	1.0	1.0
			SetParameter	Colour2		1.0	1.0	1.0	1.0
			SetParameter	Colour3		1.0	1.0	1.0	1.0
			SetParameter	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	125.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.5
			SetParameter	Text		Last_life!
FRE			SetParameter	TEXT		Derničre_vie!
			GER SetParameter	Text	Letztes_Leben!
			SPA SetParameter	Text	ˇLa_última_oportunidad!
			ITA SetParameter	TEXT	L'ultimo!
POL			SetParameter	TEXT		Ostatnie_życie




			SendMessage 	CREATETEXT
			Set Z To 1

			SendMessage MUSIC_GROOVE_HIGH
		EndIf	

		If Y BecomesGreaterThanOrEqualTo 20
		Then
			
			SetParameter	Colour1		1.0	1.0	1.0	1.0
			SetParameter	Colour2		1.0	1.0	1.0	1.0
			SetParameter	Colour3		1.0	1.0	1.0	1.0
			SetParameter	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	125.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	2.0
			SetParameter	Text		Oh_dear_its_all_over!
			GER SetParameter	Text	Oh_nein,_alles_ist_aus!
FRE			SetParameter	TEXT		Tout_est_fini,_dommage!
			SPA SetParameter	Text	ˇOh,_qué_pena,_se_acabó!
			ITA SetParameter	TEXT	Santo_cielo,_č_finita!
POL			SetParameter	TEXT		Ostatnie_życie



			SendMessage 	CREATETEXT			
			SET B TO 0

			SetParameter	Velocity	0.0	0.0	0.0	0.0
			SetParameter	Position	0.0	0.0	0.0	0.0
			SetParameter	Scale1		8.0	8.0	8.0	1.0
			SetParameter	Scale2		5.0	5.0	5.0	1.0
			SetParameter	Scale4		3.0	3.0	3.0	1.0
			SetParameter	Colour1		1.0	0.22	0.07	1.0
			SetParameter	Colour2		1.0	0.22	0.07	1.0
			SetParameter	Colour3		1.0	0.22	0.07	1.0
			SetParameter	Colour4		0.0	0.0	0.0	1.0
			SetParameter	Colour5		0.0	0.0	0.0	1.0
			SetParameter	Colour6		0.0	0.0	0.0	1.0
			SetParameter	Lifetime	0.2	0.7	3.2	4.2
			SetParameter	Text		FAILED!
FRE			SetParameter	TEXT		ÉCHEC!
			GER SetParameter	Text	VERLOREN!
			SPA SetParameter	Text	ˇFALLASTE!
			ITA SetParameter	TEXT	HAI_FALLITO!
POL			SetParameter	TEXT		Klęska




			SendMessage	CREATETEXT


			SendMessage FIRINGOFF

			GotoLoop FAIL
		EndIf	

		If Z IsEqualTo 0
		Then
			Set Z To 0	/ No message printed /

			Randomise Q FROM 1 TO 3

			If Y IsGreaterThan 0
			Then
			
				If Y IsLessThan 10
				Then
					If Q IsEqualTo 1
					Then
						SetParameter	Colour1		1.0	0.22	0.07	1.0
						SetParameter	Colour2		1.0	0.22	0.07	1.0
						SetParameter	Colour3		1.0	0.22	0.07	1.0
						SetParameter	Velocity	0.0	0.1	0.0	0.0
						SetParameter	Position	0.0	100.0	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Missed_one!
FRE						SetParameter	TEXT		Loupé!
						GER SetParameter	Text	Eins_verfehlt!
						SPA SetParameter	Text	ˇSe_te_ha_escapado_uno!
						ITA SetParameter	TEXT	Ne_hai_perso_uno!
POL						SetParameter	TEXT		Spudłowałeś




						SendMessage 	CREATETEXT
						Set Z To 1
					EndIf
					
					If Q IsEqualTo 2
					Then
						SetParameter	Colour1		1.0	0.22	0.07	1.0
						SetParameter	Colour2		1.0	0.22	0.07	1.0
						SetParameter	Colour3		1.0	0.22	0.07	1.0
						SetParameter	Position	0.0	100.0	0.0	0.0
						SetParameter	Velocity	0.0	0.1	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Target_lost!
FRE						SetParameter	TEXT		Cible_perdue!
						GER SetParameter	Text	Ziel_verloren!
						SPA SetParameter	Text	ˇObjetivo_perdido!
						ITA SetParameter	TEXT	Bersaglio_perso!
POL						SetParameter	TEXT		Cel_stracony


						
						SendMessage 	CREATETEXT
						Set Z To 1
					EndIf				
				
					If Q IsEqualTo 3
					Then
						SetParameter	Colour1		1.0	0.22	0.07	1.0
						SetParameter	Colour2		1.0	0.22	0.07	1.0
						SetParameter	Colour3		1.0	0.22	0.07	1.0
						SetParameter	Velocity	0.0	0.1	0.0	0.0						
						SetParameter	Position	0.0	100.0	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Disaster!
FRE						SetParameter	TEXT		Calamité!
						GER SetParameter	Text	Desaster!
						SPA SetParameter	Text	ˇQué_desastre!
						ITA SetParameter	TEXT	Che_disastro!
POL						SetParameter	TEXT		Katastrofa


						SendMessage 	CREATETEXT
						Set Z To 1
					EndIf

				EndIf
			
			EndIf
		EndIf
	

		If Z IsEqualTo 0
		Then

			If Y IsGreaterThan 10
			Then
			
				If Y IsLessThan 15
				Then
					If Q IsEqualTo 1
					Then
						SetParameter	Colour1		1.0	0.22	0.07	1.0
						SetParameter	Colour2		1.0	0.22	0.07	1.0
						SetParameter	Colour3		1.0	0.22	0.07	1.0
						SetParameter	Velocity	0.0	0.1	0.0	0.0
						SetParameter	Position	0.0	100.0	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Missed_one!
FRE						SetParameter	TEXT		Loupé!
						GER SetParameter	Text	Eins_verfehlt!
						SPA SetParameter	Text	ˇSe_te_ha_escapado_uno!
						ITA SetParameter	TEXT	Ne_hai_perso_uno!
POL						SetParameter	TEXT		Spudłowałeś


						SendMessage 	CREATETEXT
						Set Z To 1
					EndIf
					
					If Q IsEqualTo 2
					Then
						SetParameter	Colour1		1.0	0.22	0.07	1.0
						SetParameter	Colour2		1.0	0.22	0.07	1.0
						SetParameter	Colour3		1.0	0.22	0.07	1.0
						SetParameter	Velocity	0.0	0.1	0.0	0.0
						SetParameter	Position	0.0	100.0	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Target_lost!
FRE						SetParameter	TEXT		Cible_perdue!
						GER SetParameter	Text	Ziel_verloren!
						SPA SetParameter	Text	ˇObjetivo_perdido!
						ITA SetParameter	TEXT	Bersaglio_perso!
POL						SetParameter	TEXT		Cel_stracony


						SendMessage 	CREATETEXT
						Set Z To 1
					EndIf				
				
					If Q IsEqualTo 3
					Then
						SetParameter	Colour1		1.0	0.22	0.07	1.0
						SetParameter	Colour2		1.0	0.22	0.07	1.0
						SetParameter	Colour3		1.0	0.22	0.07	1.0
						SetParameter	Velocity	0.0	0.1	0.0	0.0
						SetParameter	Position	0.0	100.0	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Disaster!
FRE						SetParameter	TEXT		Calamité!
						GER SetParameter	Text	Desaster!
						SPA SetParameter	Text	ˇQué_desastre!
						ITA SetParameter	TEXt	Che_disastro!
POL						SetParameter	TEXT		Katastrofa


						SendMessage 	CREATETEXT
						Set Z To 1
					EndIf

				EndIf
			
			EndIf
		EndIf
			


		If Z IsEqualTo 0
		Then

			If Y IsGreaterThan 15
			Then
				
				If Y IsLessThan 18
				Then
					If Q IsEqualTo 1
					Then
						SetParameter	Colour1		1.0	0.22	0.07	1.0
						SetParameter	Colour2		1.0	0.22	0.07	1.0
						SetParameter	Colour3		1.0	0.22	0.07	1.0
						SetParameter	Velocity	0.0	0.1	0.0	0.0
						SetParameter	Position	0.0	100.0	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Missed_one!
FRE						SetParameter	TEXT		Loupé!
						GER SetParameter	Text	Eins_verfehlt!
						SPA SetParameter	Text	ˇSe_te_ha_escapado_uno!
						ITA SetParameter	TEXT	Ne_hai_perso_uno!
POL						SetParameter	TEXT		Spudłowałeś
	

						SendMessage 	CREATETEXT
						Set Z To 1
					EndIf
						
					If Q IsEqualTo 2
					Then
						SetParameter	Colour1		1.0	0.22	0.07	1.0
						SetParameter	Colour2		1.0	0.22	0.07	1.0
						SetParameter	Colour3		1.0	0.22	0.07	1.0
						SetParameter	Velocity	0.0	0.1	0.0	0.0
						SetParameter	Position	0.0	100.0	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Target_lost!
FRE						SetParameter	TEXT		Cible_perdue!
						GER SetParameter	Text	Ziel_verloren!
						SPA SetParameter	Text	ˇObjetivo_perdido!
						ITA SetParameter	TEXT	Bersaglio_perso!
POL						SetParameter	TEXT		Cel_stracony


						SendMessage 	CREATETEXT
						Set Z To 1
					EndIf				
					
					If Q IsEqualTo 3
					Then
						SetParameter	Colour1		1.0	0.22	0.07	1.0
						SetParameter	Colour2		1.0	0.22	0.07	1.0
						SetParameter	Colour3		1.0	0.22	0.07	1.0
						SetParameter	Velocity	0.0	0.1	0.0	0.0
						SetParameter	Position	0.0	100.0	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Disaster!
FRE						SetParameter	TEXT		Calamité!
						GER SetParameter	Text	Desaster!
						SPA SetParameter	Text	ˇQué_desastre!
						ITA SetParameter	TEXT	Che_disastro!
POL						SetParameter	TEXT		Katastrofa


						SendMessage 	CREATETEXT
						Set Z To 1
					EndIf	

				EndIf
		
	
			EndIf
		Endif

		Set U To Y

	EndIf	
	

	If T BecomesEqualTo 20
	Then

		Set B To 0
		SendMessage FIRINGOFF

/
		SetParameter	Position	0.0 	0.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.7	3.2	4.2
		SetParameter	Scale1		0.4	0.4	0.4	0.0
		SetParameter	Scale2		1.4	1.4	1.4	0.0
		SetParameter	Scale3		3.4	3.4	3.4	0.0
		SetParameter	Scale4		2.0	2.0	2.0	0.0
		SetParameter	Scale5		1.8	1.8	1.8	0.0
		SetParameter	Colour1		0.18	0.9	0.1	1.0
		SetParameter	Colour2		0.18	0.9	0.1	1.0
		SetParameter	Colour3		0.18	0.9	0.1	1.0
		SetParameter	Colour4		1.0	1.0	1.0	1.0
		SetParameter	Colour5		0.0	0.0	0.0	1.0
		SetParameter	Colour6		0.0	0.0	0.0	1.0
		SetParameter	Text	SUCCESS!
FRE		SetParameter	TEXT	RÉUSSI!
		GER SetParameter	Text	GESCHAFFT!
		ITA SetParameter	TEXT	HAI_VINTO!
POL		SetParameter	TEXT	Sukces
	

		SendMessage	CREATETEXT
/

		SetParameter	BLOCKCOLOUR	ALLCOLOURS
		SendMessage	CLEARBLOCKS

		GotoLoop WIN

	EndIf
	
	
		

EndLoop


Loop FAIL
Do	

	OnMessage TIMER1
	Do
		Add 1 To B
	EndResponse	

	If B BecomesEqualTo 1
	Then
		SetParameter	BLOCKCOLOUR	ALLCOLOURS
		SendMessage	CLEARBLOCKS
	EndIf



	If B BecomesEqualTo 4
	Then
		SendMessage	LOSECONDITION
	EndIf



EndLoop


Loop WIN
Do

	OnMessage TIMER1
	Do
		Add 1 To B
	EndResponse	

	If B BecomesEqualTo 1
	Then
		SetParameter	BLOCKCOLOUR	ALLCOLOURS
		SendMessage	CLEARBLOCKS
	EndIf


	If B BecomesEqualTo 2
	Then
		SendMessage	FIRINGOFF
		SendMessage	WINCONDITION
	EndIf



EndLoop


EndFile