GameMode	Target_Alley

FRE colonnes_et_cibles
GER Reihen_und_Ziele
SPA Columnas_y_Objetivos
ITA Colonne_e_bersagli
POL Cele_w_kolumnach




GameType	TOURNAMENT

	DestroyOwnTargetCounter		T
	DestroyEnemyTargetCounter	T
	TargetInWaterCounter		Y


Program0123


/ columns and targets 
author pd/ 

TEXTBUFFER	LEVS

	ColTarg.wbl

ENDBUFFER


DATABUFFER	RAND

2 1 3 2 3 1 2 1 3 1 2 3

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
	
	Randomise A From 0 To 12

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	
	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 O 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	TEXT	ColTarg.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter	LIVES	1
	SendMessage	SETLIVES	
	
	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20        	
        SendMessage     LOADLEVEL
	
	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT

	SetParameter	TEXT	target_alley
	SendMessage	SET_HIGHSCORE_TABLE
	
	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

	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

	SendMessage MUSIC_GROOVE_LOW

	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         0.70    0.37    0.92    1.0
        SetParameter    Colour2         0.70    0.37    0.92    1.0
        SetParameter    Colour3         0.70    0.37    0.92    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		Target_Alley
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_as_many_targets_as
FRE	SetParameter	TEXT		Dtruisez_autant_de_cibles_que
	GER SetParameter	Text	Das_Ziel_ist_es,_so_viele_Ziele_wie_mglich
	SPA SetParameter	Text	Destruye_todos_los_objetivos
	ITA SetParameter	TEXT	Distruggi_pi_bersagli_possibil
POL	SetParameter	TEXT		Zniszcz_tyle_celw_ile



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		possible_and
FRE	SetParameter	TEXT		possible_et_essayez
	GER SetParameter	Text	zu_zerstren
	SPA SetParameter	Text	que_puedas.
	ITA SetParameter	TEXT	per_completare_la_missione.
POL	SetParameter	TEXT		potrafisz



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0

	SetParameter	Text		Try_not_to_let_any_slip_by.
	FRE	SetParameter	TEXT		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		Postaraj_si_adnego_nie_przepuci.



	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	Verliere_mehr_als_20_und_es_heit
	SPA SetParameter	Text	Si_se_te_escapan_ms_de_20...
	ITA SetParameter	TEXT	se_ne_perdi_pi_di_20,
POL	SetParameter	TEXT		Przepucisz_20_i




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Text		Game_over!
FRE	SetParameter	TEXT		la_partie_s'arrte.
	GER SetParameter	Text	Game_over!
	SPA SetParameter	Text	se_acab_el_juego!
	ITA SetParameter	TEXT	hai_perso_la_partita.
POL	SetParameter	TEXT		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_drcken
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
POL	SetParameter	TEXT		Nacinij_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	Justify		Centre
	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	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	-30.0	-210.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    FRAME	2
        SendMessage     CREATEICON

	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	-210.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    Score   T
        SetParameter    Digits  3
        SendMessage     CREATESCORE
	

	OnMessage TIMER1
	DO

		Add 1 To O

	EndResponse


	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 17
			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 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	
			

		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	0.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._Trafie_jednego



			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	0.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	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	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	150.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	4.5
			SetParameter	Text		Careful_thats_10_lost_already!
FRE			SetParameter	TEXT		Attention:_dj_10_de_perdues!
			GER SetParameter	Text	Sei_vorsichtig,_schon_10_verloren!
			ITA SetParameter	TEXT	Attento:_ne_hai_gi_persi_10!
POL			SetParameter	TEXT		Ostronie._10_ju_przepucie



			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	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	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	150.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	4.5
			SetParameter	Text		Watch_out_thats_15_targets_lost!
FRE			SetParameter	TEXT		Attention:_cela_fait_15_de_perdues!
			GER SetParameter	Text	Achtung,_schon_15_Ziele_verloren!
			ITA SetParameter	TEXT	Attento:_ne_hai_gi_persi_15!
POL			SetParameter	TEXT		Uwaaj._Stracie_ju_15



			SPA SetParameter	Text	Atencin,_ya_se_te_han_escapado_15!

			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	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	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	150.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	2.5
			SetParameter	Text		Only_2_Target_lives_left!
FRE			SetParameter	TEXT		Il_ne_reste_que_2_cibles_en_vie!
			GER SetParameter	Text	Nur_2_Fehlschsse_brig!
			SPA SetParameter	Text	Dos_ms_y_ests_muerto!
			ITA SetParameter	TEXT	Puoi_perdere_ancora_
POL			SetParameter	TEXT		Pozostay_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	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	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	120.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.0
			SetParameter	Text		Last_life!
FRE			SetParameter	TEXT		Dernire_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	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	Velocity	0.0	0.05	0.0	0.0
			SetParameter	Position	0.0	150.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	4.0
			SetParameter	Text		Oh_dear_its_all_over!
FRE			SetParameter	TEXT		Tout_est_fini,_dommage!
			GER SetParameter	Text	Oh_nein,_es_ist_alles_aus!
			SPA SetParameter	Text	Oh,_qu_pena,_se_acab!
			ITA SetParameter	TEXT	Santo_cielo,__finita!
POL			SetParameter	TEXT		O_Niee,_wszystko_stracone


			SendMessage 	CREATETEXT
			
			SET B TO 0
			Set A To 0
			Set D To 0
			SET K To 0
			Set U To 0
			Set V To 0
			Set Z TO 0
		
			SendMessage	MUSIC_GROOVE_LOW
	
			SetParameter	BLOCKCOLOUR	ALLCOLOURS
			SendMessage	CLEARBLOCKS

			SendMessage	CLEARPROJECTILES

			SendMessage	FIRINGOFF
					
			GotoLoop FAIL

		EndIf	

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

			READFROMBUFFER RAND Into Q

			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	-25.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		Spudowae




						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	-60.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	-105.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	-25.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		Spudowae




						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	-25.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	-25.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	-25.0	0.0	0.0
						SetParameter	Lifetime	0.2	0.6	0.7	1.0
						SetParameter	Text		Missed_one!
FRE						SetParameter	TEXT		Calamit!
						GER SetParameter	Text	Eins_verfehlt!
						SPA SetParameter	Text	Se_te_ha_escapado_uno!
						ITA SetParameter	TEXT	Ne_hai_perso_uno!
POL						SetParameter	TEXT		Spudowae




						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	-25.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	-25.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 O BecomesEqualTo 120
	Then

		
		SetParameter	Justify		Centre
		SetParameter	Colour1		0.0	0.43	0.74	1.0
		SetParameter	Colour2		0.0	0.43	0.74	1.0
		SetParameter	Colour3		0.0	0.43	0.74	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	150.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	Text		Faster!
FRE		SetParameter	TEXT		Plus_vite_!
ITA		SetParameter	TEXT		PI_VELOCE!
SPA		SetParameter	TEXT		Ms_rpido!
GER		SetParameter	TEXT		Schneller!
POL		SetParameter	TEXT		Szybciej!



		SendMessage 	CREATETEXT
		


		SetParameter	MESSAGE_ID	TIMER2
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER3
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER4
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER5
		SendMessage	DELETETIMER


		SetParameter	MESSAGE_ID	TIMER2
		SetParameter	INTERVAL	0610
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	0556
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER4
		SetParameter	INTERVAL	0351
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER5
		SetParameter	INTERVAL	0453
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER


	EndIf
	

	
		

EndLoop


Loop FAIL
Do	

	OnMessage TIMER1
	Do
		Add 1 To B
	EndResponse	


	If B BecomesEqualTo 0
	Then

		While Z IsLessThan T
		Do


			Add 1000 To U
			Add 1 To Z

		EndWhile

		
		Add O TO U
		Subtract 20 From U
		Set A To 0
		Set K To 0
		Set D To 0

	EndIf 



	If B IsGreaterThanOrEqualTo 1
	Then	


	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		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	Justify		Centre
	SetParameter	POSITION	0.0	150.0	0.0	0.0
	SetParameter	TEXT		Scores
FRE	SetParameter	TEXT		Scores
	GER SetParameter	TEXT	Punkte
	SPA SetParameter	TEXT	Puntuacin
	ITA SetParameter	TEXT	Punti
POL	SetParameter	TEXT		Wyniki


	
	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		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		Right
	SetParameter	POSITION	-240.0	75.0	0.0	0.0
	SPA SetParameter	POSITION	-260.0	75.0	0.0	0.0
POL 	SetParameter	POSITION	-275.0	75.0	0.0	0.0
	SetParameter	FRAME		2
	SendMessage	CREATEICON
	SetParameter	Side	2

	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	Justify		Right
	SetParameter	POSITION	-70.0	75.0	0.0	0.0
	SetParameter	TEXT		destroyed
FRE	SetParameter	TEXT		dtruit
	GER SetParameter	TEXT	zerstrt
	SPA SetParameter	TEXT	Destruidos
	ITA SetParameter	TEXT	distrutti
POL	SetParameter	TEXT		zniszczonych

	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

	SetParameter	POSITION	-20.0	75.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   T
        SetParameter    Digits  8
        SendMessage     CREATESCORE


	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	Justify		Left
	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	POSITION	90.0	75.0	0.0	0.0
	SetParameter	TEXT		x_1000_points
FRE	SetParameter	TEXT		x_1000_points
	GER SetParameter	TEXT	x_1000_Punkte
	SPA SetParameter	TEXT	x_1000_puntos
	ITA SetParameter	TEXT	x_1000_punti
POL	SetParameter	TEXT		x_1000_punktw


	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	Justify		Right
	SetParameter	POSITION	-70.0	25.0	0.0	0.0
	SetParameter	TEXT		Time_survived
FRE	SetParameter	TEXT		Temps_de_survie
	GER SetParameter	TEXT	berstandene_Zeit
	SPA SetParameter	TEXT	Duracin
	ITA SetParameter	TEXT	Tempo_rimasto
POL	SetParameter	TEXT		Czas_gry


	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

	SetParameter	POSITION	-20.0	25.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   O
        SetParameter    Digits  8
        SendMessage     CREATESCORE




	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	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	Justify		Left
	SetParameter	POSITION	90.0	25.0	0.0	0.0
	SetParameter	TEXT		Seconds
FRE	SetParameter	TEXT		Secondes
	GER SetParameter	TEXT	Sekunden
	SPA SetParameter	TEXT	Segundos
	ITA SetParameter	TEXT	Secondi
POL	SetParameter	TEXT		sekund


	SendMessage	CREATETEXT


	SetParameter	Justify		Right
	SetParameter	POSITION	-70.0	-25.0	0.0	0.0
	SetParameter	TEXT		Total_points
FRE	SetParameter	TEXT		Total_de_points
	GER SetParameter	TEXT	Gesamtpunkte
	SPA SetParameter	TEXT	Puntuacin_Total
	ITA SetParameter	TEXT	Punteggio_totale
POL	SetParameter	TEXT		Razem_punktw



	SendMessage	CREATETEXT

	EndIf

	If B IsGreaterThanOrEqualTo 2
	Then

		If K IsGreaterThan U
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

			If K IsLessThan U
			Then

				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   K
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE

				Set A To K

				Add 100 To K
			
			EndIf

		EndIf

		If D IsEqualTo 1
		Then

			If A IsLessThan U
			Then

				Add 1 To A
			
				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   A
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE


			EndIf

		EndIf


/
		If A IsEqualTo U
		Then

			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	-20.0	-25.0	0.0	0.0
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
       			SetParameter    Score   U
        		SetParameter    Digits  8
        		SendMessage     CREATESCORE

		EndIf
/

		If A BecomesEqualTo U
		Then

			Set B To 95
			GotoLoop FAIL2

		EndIf

	EndIf


	If B BecomesEqualTo 98
	Then


		SetParameter    SCORE		U
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf


EndLoop



Loop FAIL2
Do	

	OnMessage TIMER1
	Do
		Add 1 To B
	EndResponse	


	If B BecomesEqualTo 0
	Then

		While Z IsLessThan T
		Do


			Add 1000 To U
			Add 1 To Z

		EndWhile

		
		Add O TO U
		Subtract 20 From U
		Set A To 0
		Set K To 0
		Set D To 0

	EndIf 



	If B IsGreaterThanOrEqualTo 1
	Then	


	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		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	Justify		Centre
	SetParameter	POSITION	0.0	150.0	0.0	0.0
	SetParameter	TEXT		Scores
FRE	SetParameter	TEXT		Scores
	GER SetParameter	TEXT	Punkte
	SPA SetParameter	TEXT	Puntuacin
	ITA SetParameter	TEXT	Punti
POL	SetParameter	TEXT		Wyniki

	
	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		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		Right
	SetParameter	POSITION	-240.0	75.0	0.0	0.0
	SPA SetParameter	POSITION	-260.0	75.0	0.0	0.0
POL 	SetParameter	POSITION	-275.0	75.0	0.0	0.0
	SetParameter	FRAME		2
	SendMessage	CREATEICON
	SetParameter	Side	2

	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	Justify		Right
	SetParameter	POSITION	-70.0	75.0	0.0	0.0
	SetParameter	TEXT		destroyed
FRE	SetParameter	TEXT		dtruit
	GER SetParameter	TEXT	zerstrt
	SPA SetParameter	TEXT	Destruidos
	ITA SetParameter	TEXT	distrutti
POL	SetParameter	TEXT		zniszczonych


	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

	SetParameter	POSITION	-20.0	75.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   T
        SetParameter    Digits  8
        SendMessage     CREATESCORE


	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	Justify		Left
	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	POSITION	90.0	75.0	0.0	0.0
	SetParameter	TEXT		x_1000_points
FRE	SetParameter	TEXT		x_1000_points
	GER SetParameter	TEXT	x_1000_Punkte
	SPA SetParameter	TEXT	x_1000_puntos
	ITA SetParameter	TEXT	x_1000_punti
POL	SetParameter	TEXT		x_1000_punktw


	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	Justify		Right
	SetParameter	POSITION	-70.0	25.0	0.0	0.0
	SetParameter	TEXT		Time_survived
FRE	SetParameter	TEXT		Temps_de_survie
	GER SetParameter	TEXT	berstandene_Zeit
	SPA SetParameter	TEXT	Duracin
	ITA SetParameter	TEXT	Tempo_rimasto
POL	SetParameter	TEXT		Czas_gry


	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

	SetParameter	POSITION	-20.0	25.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   O
        SetParameter    Digits  8
        SendMessage     CREATESCORE




	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	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	Justify		Left
	SetParameter	POSITION	90.0	25.0	0.0	0.0
	SetParameter	TEXT		Seconds
FRE	SetParameter	TEXT		Secondes
	GER SetParameter	TEXT	Sekunden
	SPA SetParameter	TEXT	Segundos
	ITA SetParameter	TEXT	Secondi
POL	SetParameter	TEXT		sekund


	SendMessage	CREATETEXT


	SetParameter	Justify		Right
	SetParameter	POSITION	-70.0	-25.0	0.0	0.0
	SetParameter	TEXT		Total_points
FRE	SetParameter	TEXT		Total_de_points
	GER SetParameter	TEXT	Gesamtpunkte
	SPA SetParameter	TEXT	Puntuacin_Total
	ITA SetParameter	TEXT	Punteggio_totale
POL	SetParameter	TEXT		Razem_punktw


	SendMessage	CREATETEXT

	EndIf

	If B IsGreaterThanOrEqualTo 2
	Then

		If K IsGreaterThan U
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

			If K IsLessThan U
			Then

				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   K
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE

				Set A To K

				Add 100 To K
			
			EndIf

		EndIf

		If D IsEqualTo 1
		Then

			If A IsLessThan U
			Then

				Add 1 To A
			
				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   A
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE


			EndIf

		EndIf



		If A IsEqualTo U
		Then

			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	-20.0	-25.0	0.0	0.0
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
       			SetParameter    Score   U
        		SetParameter    Digits  8
        		SendMessage     CREATESCORE

		EndIf

		If A BecomesEqualTo U
		Then

			Set B To 95

		EndIf

	EndIf


	If B BecomesEqualTo 99
	Then


		SetParameter    SCORE		U
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf


EndLoop



EndFile