GameMode	arma

	DESTROYOWNTARGETCOUNTER		P
	DESTROYENEMYTARGETCOUNTER	P
	LANDDROPPEDINWATERCOUNTER	L
	LIVESREMAINING02COUNTER		M


Program0123


/ meteor crash to the ground periodically
author pd/

TEXTBUFFER      LEVS  
                  
        arma.wbl

ENDBUFFER

DataBuffer STR0

1 2 1 3 2 4 2 5 3 7 4 8 4 9 5 10 5 11 6 12 6 13 7 14 7 15 8 16 8 17 9 18 9 19 -1 -1

EndBuffer

DataBuffer STR1

1 0 1 1 2 2 2 3 3 4 3 5 4 6 4 7 5 8 5 9 6 10 6 11 7 12 7 13 8 14 8 15 9 16 9 17 10 18 10 19 -1 -1

EndBuffer


DataBuffer STR2

2 0 2 1 3 2 3 3 4 4 4 5 5 6 5 7 6 8 6 9 7 10 7 11 8 12 8 13 9 14 9 15 10 16 10 17 11 18 11 19 -1 -1

EndBuffer

DataBuffer STR3

3 0 3 1 4 2 4 3 5 4 5 5 6 6 6 7 7 8 7 9 8 10 8 11 9 12 9 13 10 14 10 15 11 16 11 17 12 18 12 19 -1 -1

EndBuffer

DataBuffer STR4

4 0 4 1 5 2 5 3 6 4 6 5 7 6 7 7 8 8 8 9 9 10 9 11 10 12 10 13 11 14 11 15 12 16 12 17 13 18 13 19 -1 -1

EndBuffer

DataBuffer STR5

5 0 5 1 7 4 7 5 8 6 8 7 9 8 9 9 10 10 10 11 11 12 11 13 12 14 12 15 13 16 13 17 14 18 14 19 -1 -1

EndBuffer

DataBuffer STR6

6 0 6 1 8 4 8 5 9 6 9 7 10 8 11 11 12 12 12 13 13 14 13 15 14 16 14 17 15 18 15 19 -1 -1

EndBuffer

DataBuffer STR7

8 0 7 1 6 4 5 5 5 6 4 7 4 8 3 9 3 10 2 11 2 12 1 13 1 14 0 15 0 16 -1 -1

EndBuffer

DataBuffer STR8

9 0 8 1 7 4 6 5 6 6 5 7 5 8 4 9 4 10 3 11 3 12 2 13 2 14 1 15 1 16 0 17 0 18 -1 -1

EndBuffer

DataBuffer STR9

10 0 9 1 9 2 8 3 8 4 7 5 7 6 6 7 6 8 5 9 5 10 4 11 4 12 3 13 3 14 2 15 2 16 1 17 1 18 0 19 -1 -1

EndBuffer

DataBuffer ST10

11 0 10 1 10 2 9 3 9 4 8 5 8 6 7 7 7 8 6 9 6 10 5 11 5 12 4 13 4 14 3 15 3 16 2 17 2 18 1 19 -1 -1

EndBuffer

DataBuffer ST11

12 0 11 1 11 2 10 3 10 4 9 5 9 6 8 7 8 8 7 9 7 10 6 11 6 12 5 13 5 14 4 15 4 16 3 17 3 18 2 19 -1 -1

EndBuffer

DataBuffer ST12

13 0 12 1 12 2 11 3 11 4 10 5 10 6 9 7 9 8 8 9 8 10 7 11 7 12 6 13 6 14 5 15 5 16 4 17 4 18 3 19 -1 -1

EndBuffer

DataBuffer ST13

14 0 13 1 13 2 12 3 12 4 11 5 11 6 10 7 10 8 9 9 9 10 8 11 8 12 7 13 7 14 6 15 6 16 5 17 5 18 4 19 -1 -1

EndBuffer

DataBuffer ST14

15 0 14 1 14 2 13 3 13 4 12 5 12 6 11 7 11 8 10 10 9 11 9 12 8 13 8 14 7 15 7 16 6 17 6 18 5 19 -1 -1

EndBuffer

DataBuffer ST15

16 0 15 1 14 3 14 4 13 5 13 6 12 7 12 8 10 11 10 12 9 13 9 14 8 15 8 16 7 17 7 18 6 19 -1 -1

EndBuffer

DataBuffer ST16

17 0 16 1 15 4 14 5 14 6 13 7 13 8 11 11 11 12 10 13 10 14 9 15 9 16 8 17 8 18 7 19 -1 -1

EndBuffer

DataBuffer ST17

7 0 7 1 8 3 9 4 9 5 10 6 10 7 11 8 12 11 13 12 13 13 14 14 14 15 15 16 15 17 16 18 16 19 -1 -1

EndBuffer

DataBuffer ST18

8 0 8 1 9 2 9 3 10 4 10 5 11 6 11 7 12 8 13 10 13 11 14 12 14 13 15 14 15 15 16 16 16 17 17 18 17 19 -1 -1

EndBuffer

DataBuffer ST19

9 0 9 1 10 2 10 3 11 4 11 5 12 6 12 7 13 8 13 9 14 10 14 11 15 12 15 13 16 14 16 15 17 16 17 17 18 18 18 19 -1 -1

EndBuffer

DataBuffer ST20

10 0 10 1 11 2 11 3 12 4 12 5 13 6 13 7 14 8 14 9 15 10 15 11 16 12 16 13 17 14 17 15 18 16 18 17 19 18 19 19 -1 -1

EndBuffer

DataBuffer ST21

11 0 11 1 12 2 12 3 13 4 13 5 14 6 14 7 15 8 15 9 16 10 16 11 17 12 17 13 18 14 18 15 19 16 19 17 20 18 20 19 -1 -1

EndBuffer

DataBuffer ST22

12 0 12 1 13 2 13 3 14 4 14 5 15 6 15 7 16 8 16 9 17 10 17 11 18 12 18 13 19 14 19 15 20 16 20 17 21 18 21 19 -1 -1

EndBuffer

DataBuffer ST23

15 0 15 1 17 4 17 5 18 6 18 7 19 8 19 9 20 10 20 11 21 12 21 13 22 14 23 16 23 17 24 18 24 19 -1 -1

EndBuffer


Loop INIT
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT		

	SetParameter	POSITION	270	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION


	SetParameter	TEXT	arma.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter	LIVES	0
	SendMessage	SETLIVES

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

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	0060
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	5000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	8000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SET A TO 0
	SET B TO 0
	SET C TO 1000
	SET D TO 1000
	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 N TO 0
	SET R TO 0
	SET S TO 10
	SET P TO 0
	SET Q TO 1
	SET T TO 0
	SET U TO 0
	SET V TO 0
	SET X TO 0
	SET Y TO 0
	SET W TO 0
	SET Z TO 0

	SendMessage	DEACTIVATESCORE

	SendMessage	FIRINGOFF
	SendMessage	STARTBRIEFING

	SendMessage MUSIC_GROOVE_LOW

	Randomise A FROM 1 To 20
	Randomise I From 1 To 20
	Randomise T From 1 To 20
	Randomise B FROM 0 To 7
	Randomise Y FROM 0 To 8
	Randomise X FROM 0 TO 5


	GotoLoop BRIEF


EndLoop

Loop BRIEF
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		Armageddon
FRE	SetParameter	TEXT		Combat_suprme
	GER SetParameter	Text	Armageddon
	SPA SetParameter	Text	Apocalipsis
	ITA SetParameter	TEXT	Apocalisse
POL	SetParameter	TEXT		Armageddon





	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

	SPA SetParameter	Scale1		0.7	0.7	0.7	0.0
	SPA SetParameter	Scale2		0.7	0.7	0.7	0.0
	SPA SetParameter	Scale3		0.7	0.7	0.7	0.0
	SPA SetParameter	Scale4		0.7	0.7	0.7	0.0
	SPA SetParameter	Scale5		0.7	0.7	0.7	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_the_targets!
FRE	SetParameter	TEXT		Dtruisez_les_cibles!
	GER SetParameter	Text	Zerstre_die_Ziele!
	SPA SetParameter	Text	Destruye_las_dianas!
	ITA SetParameter	TEXT	Distruggi_i_bersagli!
POL	SetParameter	TEXT		Zniszcz_wszystkie_cele!




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Beware_the_meteor_showers_and
FRE	SetParameter	TEXT		Attention_aux_pluies_de_mtores.
	GER SetParameter	Text	Hte_dich_vor_dem_Meteorregen
	SPA SetParameter	Text	Cuidado_con_las_lluvias_de_meteoritos_y_
	ITA SetParameter	TEXT	Attento_alla_tempesta_di_meteore.
POL	SetParameter	TEXT		Pamitaj_o_deszczach_meteorw




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		heed_all_the_warnings_you_receive
FRE	SetParameter	TEXT		Prenez_en_compte_les_avertissements_que
	GER SetParameter	Text	und_achte_auf_die_Warnungen,
	SPA SetParameter	Text	haz_caso_a_las_indicaciones_que_recibes...
	ITA SetParameter	TEXT	Ascolta_tutti_gli_avvertimenti:
POL	SetParameter	TEXT		i_suchaj_otrzymywanych_ostrzee,




	SendMessage 	CREATETEXT
	

	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		as_they_may_save_your_life!
FRE	SetParameter	TEXT		vous_recevez_car_ils_peuvent
	GER SetParameter	Text	sie_knnten_dein_Leben_retten!
	SPA SetParameter	Text	pueden_salvarte_la_vida!
	ITA SetParameter	TEXT	potrebbero_salvarti_la_vita!
POL	SetParameter	TEXT		bo_te_mog_ocali_Ci_ycie.

	SendMessage 	CREATETEXT

FRE	SetParameter	TEXT		vous_sauver_la_vie!
FRE	SetParameter	Position	0.0	-25.0	0.0	0.0
FRE	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 FIRINGON
		SendMessage ENDBRIEFING
		GotoLoop MAIN
		
	EndResponse


EndLoop


Loop MAIN
Do

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT	

	

	SetParameter	POSITION	2	6	0	0
	SetParameter	BlockColour	TARGET
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	7	2	0	0
	SetParameter	BlockColour	TARGET
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	16	2	0	0
	SetParameter	BlockColour	TARGET
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	21	6	0	0
	SetParameter	BlockColour	TARGET
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	11	9	0	0
	SetParameter	BlockColour	TARGET
	SendMessage	SPAWNINBLOCK

	GotoLoop MAIN1


EndLoop





Loop MAIN1
Do

	If M IsEqualTo -1
	Then
		Set Z To 0

		SendMessage FIRINGOFF
		SendMessage CLEARPROJECTILES

		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		Klska





		SendMessage	CREATETEXT

		GotoLoop FAIL
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT


	OnMessage TIMER3
	Do

		Add 1 To R	

		If R IsGreaterThan 23
		Then

			If R BecomesEqualTo 24
			Then
				SendMessage MUSIC_GROOVE_MED_HI

			EndIf

			If R IsLessThan 35
			Then


				GoSubLoop COUNT

			EndIf
		
		EndIf

		If R IsGreaterThan 73
		Then

			If R BecomesEqualTo 74
			Then
				SendMessage MUSIC_GROOVE_MED_HI

			EndIf

			If R IsLessThan 85
			Then

				GoSubLoop COUNT

			EndIf

		EndIf

		If R IsGreaterThan 128
		Then

			If R BecomesEqualTo 129
			Then
				SendMessage MUSIC_GROOVE_MED_HI

			EndIf

			If R IsLessThan 140
			Then

				GoSubLoop COUNT
			EndIf

		EndIf

		If R IsGreaterThan 168
		Then

			If R BecomesEqualTo 169
			Then
				SendMessage MUSIC_GROOVE_MED_HI

			EndIf

			If R IsLessThan 180
			Then

				GoSubLoop COUNT
			EndIf

		EndIf


		If R IsGreaterThan 208
		Then

			If R BecomesEqualTo 209
			Then
				SendMessage MUSIC_GROOVE_MED_HI

			EndIf

			If R IsLessThan 220
			Then

				GoSubLoop COUNT
			EndIf

		EndIf


	EndResponse


	

	If R BecomesEqualTo 22
	Then

		SendMessage MUSIC_GROOVE_MED_HI
		GoSubLoop WARN

		Set S To 10
	EndIf


	
	If R BecomesEqualTo 34
	Then
		Randomise A FROM 1 To 20
		Randomise I From 1 To 20
		Randomise T From 1 To 20
		SendMessage MUSIC_GROOVE_HIGH

		GoSubLoop CRATES

		Set Q To 0
	EndIf

	If R BecomesEqualTo 52
	Then

		SendMessage MUSIC_GROOVE_MED_LOW
		GoSubLoop MESSAGE

	EndIf

	If R BecomesEqualTo 54
	Then


		SendMessage MUSIC_GROOVE_LOW
		GoSubLoop RESET
	EndIf
	
	If R BecomesEqualTo 73
	Then

		SendMessage MUSIC_GROOVE_MED_HI
		GoSubLoop WARN
		Set S To 10

	EndIf
		
	
	If R BecomesEqualTo 84
	Then

		Randomise A FROM 1 To 20
		Randomise I From 1 To 20
		Randomise T From 1 To 20
		SendMessage MUSIC_GROOVE_HIGH

		GoSubLoop CRATES

		Set Q To 0
	EndIf
	

	If R BecomesEqualTo 112
	Then

		SendMessage MUSIC_GROOVE_MED_LOW
		GoSubLoop MESSAGE

	EndIf


	If R BecomesEqualTo 114
	Then
		SendMessage MUSIC_GROOVE_LOW
		GoSubLoop RESET
	EndIf


	If R BecomesEqualTo 127
	Then
		SendMessage MUSIC_GROOVE_MED_HI
		GoSubLoop WARN
		Set S To 10

	EndIf
			
	If R BecomesEqualTo 139
	Then

		Randomise A FROM 1 To 20
		Randomise I From 1 To 20
		Randomise T From 1 To 20
		SendMessage MUSIC_GROOVE_HIGH

		GoSubLoop CRATES

		Set Q To 0
	EndIf

	If R BecomesEqualTo 157
	Then
		SendMessage MUSIC_GROOVE_MED_LOW
		GoSubLoop MESSAGE

	EndIf

	If R BecomesEqualTo 159
	Then
		SendMessage MUSIC_GROOVE_LOW
		GoSubLoop RESET

	EndIf

	If R BecomesEqualTo 167
	Then
		SendMessage MUSIC_GROOVE_MED_HI
		GoSubLoop WARN
		Set S To 10

	EndIf
			
	If R BecomesEqualTo 179
	Then

		Randomise A FROM 1 To 20
		Randomise I From 1 To 20
		Randomise T From 1 To 20
		SendMessage MUSIC_GROOVE_HIGH

		GoSubLoop CRATES

		Set Q To 0
	EndIf

	If R BecomesEqualTo 197
	Then
		SendMessage MUSIC_GROOVE_MED_LOW
		GoSubLoop MESSAGE

	EndIf

	If R BecomesEqualTo 199
	Then
		SendMessage MUSIC_GROOVE_LOW
		GoSubLoop RESET

	EndIf

	If R BecomesEqualTo 207
	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	Scale1		0.2	0.2	0.2	0.0
		SetParameter	Scale2		1.0	1.0	1.0	0.0
		SetParameter	Justify		Centre

		SetParameter	Position	0.0	125.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	3.0	3.5
		SetParameter	Text		Warning_prolonged_meteor_shower!
FRE		SetParameter	TEXT		Attention:_pluie_prolonge_de_mtores!
		GER SetParameter	Text	Achtung,_Meteorregen_erwartet!
		SPA SetParameter	Text	Atencin:_lluvia_de_meteoritos_intensa!
		ITA SetParameter	TEXT	pioggia_di_meteoriti_prolungata!
POL		SetParameter	TEXT		Uwaga._Nadchodzi_deszcz_meteorw




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

		SendMessage 	CREATETEXT

	
		SetParameter	Position	0.0	75.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	3.0	3.5
		SetParameter	Text		in
FRE		SetParameter	TEXT		dans
		SPA SetParameter	Text	en
		ITA SetParameter	TEXT	in
		GER SetParameter	Text	in
POL		SetParameter	TEXT		za


		

		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 S To 10

	EndIf

	If R BecomesEqualTo 219
	Then

		Set Q To 0
		Set Z To 0
		SendMessage MUSIC_GROOVE_HIGH
		GotoLoop SHOWER
		
	EndIf


	OnMessage TIMER1
	Do

		If Q IsEqualTo 0
		Then

			If Y IsEqualTo 0
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION	C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR0 Into C
					ReadFromBuffer STR0 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR0
						Randomise A FROM 1 To 20
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif

				EndIf
			EndIf
	
			If Y IsEqualTo 1
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION	C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR1 Into C
					ReadFromBuffer STR1 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR1
						Randomise A FROM 1 To 20
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif

				EndIf
			EndIf

			If Y IsEqualTo 2
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION	C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR2 Into C
					ReadFromBuffer STR2 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif
	
					If C IsLessThan 0
					Then

						ResetBuffer	STR2
						Randomise A FROM 1 To 20
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
	
				EndIf
			EndIf


			If Y IsEqualTo 3
			Then
				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION	C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR3 Into C
					ReadFromBuffer STR3 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR3
						Randomise A FROM 1 To 20
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif

				EndIf
	
			EndIf
		

			If Y IsEqualTo 4
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR4 Into C
					ReadFromBuffer STR4 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR4
						Randomise A FROM 1 To 20
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf
	

	
			If Y IsEqualTo 5
			Then
	
				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR5 Into C
					ReadFromBuffer STR5 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR5
						Randomise A FROM 1 To 20
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf

			If Y IsEqualTo 6
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR6 Into C
					ReadFromBuffer STR6 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR6
						Randomise A FROM 1 To 20
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf
	

			If Y IsEqualTo 7
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR7 Into C
					ReadFromBuffer STR7 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR7
						Randomise A FROM 1 To 20
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf


			If Y IsEqualTo 8
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK
	
					ReadFromBuffer STR8 Into C
					ReadFromBuffer STR8 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR8
						Randomise A FROM 1 To 20
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf


			If B IsEqualTo 0
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR9 Into G
					ReadFromBuffer STR9 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	STR9
						Randomise I FROM 1 To 20
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 1
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST10 Into G
					ReadFromBuffer ST10 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST10
						Randomise I FROM 1 To 20
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 2
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST11 Into G
					ReadFromBuffer ST11 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST11
						Randomise I FROM 1 To 20
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf


			If B IsEqualTo 3
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST12 Into C
					ReadFromBuffer ST12 Into D

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST12
						Randomise I FROM 1 To 20
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 4
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST13 Into G
					ReadFromBuffer ST13 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST13
						Randomise I FROM 1 To 20
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 5
			Then
	
				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST14 Into G
					ReadFromBuffer ST14 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST14
						Randomise I FROM 1 To 20
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 6
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST15 Into G
					ReadFromBuffer ST15 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif
	
					If G IsLessThan 0
					Then

						ResetBuffer	ST15
						Randomise I FROM 1 To 20
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf


			If B IsEqualTo 7
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST16 Into G
					ReadFromBuffer ST16 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST16
						Randomise I FROM 1 To 20
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If X IsEqualTo 0
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST17 Into J
					ReadFromBuffer ST17 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST17
						Randomise T FROM 1 To 20
						Randomise X FROM 0 To 5
						SET S TO 0
					Endif
				EndIf

			EndIf		


			If X IsEqualTo 1
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST18 Into J
					ReadFromBuffer ST18 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST18
						Randomise T FROM 1 To 20
						Randomise X FROM 0 To 5
						SET S TO 0
					Endif
				EndIf

			EndIf

			If X IsEqualTo 2
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST19 Into J
					ReadFromBuffer ST19 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST19
						Randomise T FROM 1 To 20
						Randomise X FROM 0 To 5
						SET S TO 0
					Endif
				EndIf

			EndIf


			If X IsEqualTo 3
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST20 Into J
					ReadFromBuffer ST20 Into K
	
					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	1	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST20
						Randomise T FROM 1 To 20
						Randomise X FROM 0 To 5
						SET S TO 0
					Endif
				EndIf

			EndIf

			If X IsEqualTo 4
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST21 Into J
					ReadFromBuffer ST21 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST21
						Randomise T FROM 1 To 20
						Randomise X FROM 0 To 5
						SET S TO 0
					Endif
				EndIf

			EndIf

			If X IsEqualTo 5
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST22 Into J
					ReadFromBuffer ST22 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST22
						Randomise T FROM 1 To 20
						Randomise X FROM 0 To 5
						SET S TO 0
					Endif
				EndIf

			EndIf


			Add 1 To S
			Add 1 To E
			Add 1 To F

		EndIf		

	EndResponse

	GoSubLoop CHECK


EndLoop


Loop WARN
Do

	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	Scale1		0.2	0.2	0.2	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	125.0	0.0	0.0
	SetParameter	Lifetime	0.2	0.6	3.0	3.5
	SetParameter	Text		Warning_incoming_meteor_shower!
FRE	SetParameter	TEXT		Attention:_pluie_de_mtores_en_vue!
	GER SetParameter	Text	Achtung,_Meteorregen_erwartet!
	ITA SetParameter	TEXT	pioggia_di_meteoriti_in_arrivo!
POL	SetParameter	TEXT		Uwaga._Nadchodzi_deszcz_meteorw




	SPA SetParameter	Text	Atencin,_se_avecina_una_lluvia_de_meteoritos!

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


	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Lifetime	0.2	0.6	3.0	3.5
	SetParameter	Text		in
FRE	SetParameter	TEXT		dans
	GER SetParameter	Text	in
	SPA SetParameter	Text	en
	ITA SetParameter	TEXT	in
POL	SetParameter	TEXT		za



	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

EndLoop


Loop MESSAGE
Do

	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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.2	0.2	0.2	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	125.0	0.0	0.0
	SetParameter	Lifetime	0.2	0.6	2.0	2.5
	SetParameter	Text		The_Skies_are_clearing!
FRE	SetParameter	TEXT		Le_ciel_se_dgage!
	GER SetParameter	Text	Der_Himmel_klrt_sich_auf!
	SPA SetParameter	Text	El_cielo_se_est_despejando!
	ITA SetParameter	TEXT	Il_cielo_si_sta_sgomberando!
POL	SetParameter	TEXT		Niebo_si_przeciera.






	SendMessage 	CREATETEXT

EndLoop


Loop COUNT
Do

	If S IsGreaterThan 0
	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	Scale1		0.4	0.4	0.4	0.0
		SetParameter	Scale2		2.0	2.0	2.0	0.0
		SetParameter	Justify		Centre

		ConvertToText	S
		SetParameter	Position	0.0	25.0	0.0	0.0
		SetParameter	Lifetime	0.1	0.1	0.4	0.4
		SendMessage 	CREATETEXT

	EndIf

	SubTract 1 From S

EndLoop


Loop RESET
Do

	SetParameter POSITION	0	0	1	0
	SetParameter BLOCKCOLOUR RED
	SendMessage CLEARBLOCKS	

	ResetBuffer STR0	
	ResetBuffer STR1
	ResetBuffer STR2
	ResetBuffer STR3
	ResetBuffer STR4
	ResetBuffer STR5
	ResetBuffer STR6
	ResetBuffer STR7
	ResetBuffer STR8
	ResetBuffer STR9
	ResetBuffer ST10
	ResetBuffer ST11
	ResetBuffer ST12
	ResetBuffer ST13
	ResetBuffer ST14
	ResetBuffer ST15
	ResetBuffer ST16
	ResetBuffer ST17
	ResetBuffer ST18
	ResetBuffer ST19
	ResetBuffer ST20
	ResetBuffer ST21
	ResetBuffer ST22

	Set Q To 1


EndLoop


Loop SHOWER
Do

	If M IsEqualTo -1
	Then
		Set Z To 0
		SendMessage FIRINGOFF
		SendMessage CLEARPROJECTILES

		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		Klska





		SendMessage	CREATETEXT	


		GotoLoop FAIL
	EndIf

	
	If Z BecomesEqualTo 7
	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	Scale1		0.2	0.2	0.2	0.0
		SetParameter	Scale2		1.0	1.0	1.0	0.0
		SetParameter	Justify		Centre

		SetParameter	Position	0.0	125.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	3.0	3.5
		SetParameter	Text		The_skies_will_never_clear_again
FRE		SetParameter	TEXT		Le_ciel_ne_se_dgagera_pas
		GER SetParameter	Text	Der_Himmel_klrt_nie_wieder_auf!
		SPA SetParameter	Text	El_cielo_no_se_va_a_despejar_jams.
		ITA SetParameter	TEXT	Il_cielo_non_si_sgomberer_pi

POL		SetParameter	Scale1		0.8	0.8	0.8	0.8
POL		SetParameter	Scale2		0.8	0.8	0.8	0.8
POL		SetParameter	Scale3		0.8	0.8	0.8	0.8
POL		SetParameter	Scale4		0.8	0.8	0.8	0.8
POL		SetParameter	Scale5		0.8	0.8	0.8	0.8


POL		SetParameter	TEXT		Niebo_ju_nigdy_nie_bdzie_takie_czyste.

		SendMessage 	CREATETEXT

POL		SetParameter	Scale1		1.0	1.0	1.0	1.0
POL		SetParameter	Scale2		1.0	1.0	1.0	1.0
POL		SetParameter	Scale3		1.0	1.0	1.0	1.0
POL		SetParameter	Scale4		1.0	1.0	1.0	1.0
POL		SetParameter	Scale5		1.0	1.0	1.0	1.0

	
	EndIf



	OnMessage TIMER1
	Do

		Add 1 To Z

		If Q IsEqualTo 0
		Then

			If Y IsEqualTo 0
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION	C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR0 Into C
					ReadFromBuffer STR0 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR0
						Randomise A FROM 1 To 100
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif

				EndIf
			EndIf
	
			If Y IsEqualTo 1
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION	C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR1 Into C
					ReadFromBuffer STR1 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR1
						Randomise A FROM 1 To 100
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif

				EndIf
			EndIf

			If Y IsEqualTo 2
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION	C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR2 Into C
					ReadFromBuffer STR2 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif
	
					If C IsLessThan 0
					Then

						ResetBuffer	STR2
						Randomise A FROM 1 To 100
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
	
				EndIf
			EndIf


			If Y IsEqualTo 3
			Then
				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION	C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR3 Into C
					ReadFromBuffer STR3 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR3
						Randomise A FROM 1 To 100
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif

				EndIf
	
			EndIf
		

			If Y IsEqualTo 4
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR4 Into C
					ReadFromBuffer STR4 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR4
						Randomise A FROM 1 To 100
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf
	

	
			If Y IsEqualTo 5
			Then
	
				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR5 Into C
					ReadFromBuffer STR5 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR5
						Randomise A FROM 1 To 100
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf

			If Y IsEqualTo 6
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR6 Into C
					ReadFromBuffer STR6 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR6
						Randomise A FROM 1 To 100
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf
	

			If Y IsEqualTo 7
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR7 Into C
					ReadFromBuffer STR7 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR7
						Randomise A FROM 1 To 100
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf


			If Y IsEqualTo 8
			Then

				If E IsGreaterThanOrEqualTo A
				Then
					SetParameter	POSITION		C	D	1	0
					SendMessage	DETONATEBLOCK
	
					ReadFromBuffer STR8 Into C
					ReadFromBuffer STR8 Into D

					If C IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	C	D	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If C IsLessThan 0
					Then

						ResetBuffer	STR8
						Randomise A FROM 1 To 100
						Randomise Y FROM 0 To 8
						SET E TO 0
					Endif
				EndIf

			EndIf


			If B IsEqualTo 0
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer STR9 Into G
					ReadFromBuffer STR9 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	STR9
						Randomise I FROM 1 To 100
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 1
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST10 Into G
					ReadFromBuffer ST10 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST10
						Randomise I FROM 1 To 100
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 2
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST11 Into G
					ReadFromBuffer ST11 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST11
						Randomise I FROM 1 To 100
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf


			If B IsEqualTo 3
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST12 Into C
					ReadFromBuffer ST12 Into D

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST12
						Randomise I FROM 1 To 100
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 4
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST13 Into G
					ReadFromBuffer ST13 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST13
						Randomise I FROM 1 To 100
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 5
			Then
	
				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST14 Into G
					ReadFromBuffer ST14 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST14
						Randomise I FROM 1 To 100
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If B IsEqualTo 6
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST15 Into G
					ReadFromBuffer ST15 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif
	
					If G IsLessThan 0
					Then

						ResetBuffer	ST15
						Randomise I FROM 1 To 100
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf


			If B IsEqualTo 7
			Then

				If F IsGreaterThanOrEqualTo I
				Then
					SetParameter	POSITION		G	H	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST16 Into G
					ReadFromBuffer ST16 Into H

					If G IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	G	H	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If G IsLessThan 0
					Then

						ResetBuffer	ST16
						Randomise I FROM 1 To 100
						Randomise B FROM 0 To 7
						SET F TO 0
					Endif
				EndIf

			EndIf

			If X IsEqualTo 0
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST17 Into J
					ReadFromBuffer ST17 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST17
						Randomise T FROM 1 To 100
						Randomise X FROM 0 To 6
						SET S TO 0
					Endif
				EndIf

			EndIf		


			If X IsEqualTo 1
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST18 Into J
					ReadFromBuffer ST18 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST18
						Randomise T FROM 1 To 100
						Randomise X FROM 0 To 6
						SET S TO 0
					Endif
				EndIf

			EndIf

			If X IsEqualTo 2
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST19 Into J
					ReadFromBuffer ST19 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST19
						Randomise T FROM 1 To 100
						Randomise X FROM 0 To 6
						SET S TO 0
					Endif
				EndIf

			EndIf


			If X IsEqualTo 3
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST20 Into J
					ReadFromBuffer ST20 Into K
	
					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST20
						Randomise T FROM 1 To 100
						Randomise X FROM 0 To 6
						SET S TO 0
					Endif
				EndIf

			EndIf

			If X IsEqualTo 4
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST21 Into J
					ReadFromBuffer ST21 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST21
						Randomise T FROM 1 To 100
						Randomise X FROM 0 To 6
						SET S TO 0
					Endif
				EndIf

			EndIf

			If X IsEqualTo 5
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST22 Into J
					ReadFromBuffer ST22 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST22
						Randomise T FROM 1 To 100
						Randomise X FROM 0 To 6
						SET S TO 0
					Endif
				EndIf

			EndIf

			If X IsEqualTo 6
			Then

				If S IsGreaterThanOrEqualTo T
				Then
					SetParameter	POSITION		J	K	1	0
					SendMessage	DETONATEBLOCK

					ReadFromBuffer ST23 Into J
					ReadFromBuffer ST23 Into K

					If J IsGreaterThanOrEqualTo 0
					Then
						SetParameter	POSITION	J	K	0	0
						SetParameter	BlockColour	RED
						SendMessage	SPAWNINBLOCK
					Endif

					If J IsLessThan 0
					Then

						ResetBuffer	ST23
						Randomise T FROM 1 To 100
						Randomise X FROM 0 To 6
						SET S TO 0
					Endif
				EndIf

			EndIf


			Add 1 To S
			Add 1 To E
			Add 1 To F

		EndIf

	EndResponse

	GoSubLoop CHECK

	OnMessage TIMER2
	Do
		
		GoSubLoop CRATES
		
	EndResponse


EndLoop

Loop CHECK
Do


	If P BecomesEqualTo 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	Position	0.0	175.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_einen
		SPA SetParameter	Text	Bien!_Ya_has_conseguido_una.
		ITA SetParameter	TEXT	WOW!_Ne_hai_preso_uno!
POL		SetParameter	TEXT		O!_Trafie






		SendMessage 	CREATETEXT

	EndIf

	If P BecomesEqualTo 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	Position	0.0	175.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		Dobry_strza





		SendMessage 	CREATETEXT

	EndIf

	If P BecomesEqualTo 3
	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	Position	0.0	175.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	Text		Just_2_more_to_go!
FRE		SetParameter	TEXT		Encore_2_et_c'est_bon!
		GER SetParameter	Text	Nur_noch_2_mehr!
		SPA SetParameter	Text	Slo_te_faltan_dos!
		ITA SetParameter	TEXT	Ancora_altri_2!
POL		SetParameter	TEXT		Jeszcze_tylko_2





		SendMessage 	CREATETEXT

	EndIf

	If P BecomesEqualTo 4
	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	Position	0.0	175.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	Text		Nearly_there!
FRE		SetParameter	TEXT		C'est_presque_a!
		GER SetParameter	Text	Fast_geschafft!
		SPA SetParameter	Text	Ya_casi_lo_tienes!
		ITA SetParameter	TEXt	Ci_sei_quasi!
POL		SetParameter	TEXT		Prawie





		SendMessage 	CREATETEXT

	EndIf

	If P BecomesEqualTo 5
	Then
		
		Set Z To 0
		SendMessage MUSIC_GROOVE_LOW
		SendMessage CLEARPROJECTILES

		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	Russi!
		GER SetParameter	Text	Geschafft!
		SPA SetParameter	Text	Lo_conseguiste!
		ITA SetParameter	TEXT	HAI_VINTO!
POL		SetParameter	TEXT		Sukces





		SendMessage	CREATETEXT		

		GotoLoop WIN

	EndIf

EndLoop

Loop CRATES
Do

		Randomise U From 1 To 100
	



		If U BecomesEqualTo 37
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	1.0
			SetParameter	Position	0.0	-100.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Some_help!
FRE			SetParameter	TEXT		De_l'aide!
			GER SetParameter	Text	Etwas_Hilfe!
			SPA SetParameter	Text	Ayuda!
			ITA SetParameter	TEXT	Un_aiuto!
POL			SetParameter	TEXT		Pomoc!




			SendMessage 	CREATETEXT	
		EndIf

		If U IsEqualTo 37
		Then
			SetParameter	POSITION	1	4	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf

		If U BecomesEqualTo 11
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	1.0
			SetParameter	Position	0.0	-100.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Gifts!
FRE			SetParameter	TEXT		Cadeaux!
			GER SetParameter	Text	Geschenke!
			SPA SetParameter	Text	Regalos!
			ITA SetParameter	TEXT	Regali!
POL			SetParameter	TEXT		Prezenty




			SendMessage 	CREATETEXT	
		EndIf

		If U IsEqualTo 11
		Then
			SetParameter	POSITION	19	4	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf	
	

		If U BecomesEqualTo 45
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	1.0
			SetParameter	Position	0.0	-100.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Gifts!
FRE			SetParameter	TEXT		Cadeaux!
			GER SetParameter	Text	Geschenke!
			SPA SetParameter	Text	Regalos!
			ITA SetParameter	TEXT	Regali!
POL			SetParameter	TEXT		Prezenty


			SendMessage 	CREATETEXT	
		EndIf

		If U IsEqualTo 45
		Then
			SetParameter	POSITION	1	4	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf

		If U BecomesEqualTo 91
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	1.0
			SetParameter	Position	0.0	-100.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Some_help!
FRE			SetParameter	TEXT		De_l'aide!
			GER SetParameter	Text	Etwas_Hilfe!
			SPA SetParameter	Text	Ayuda!
			ITA SetParameter 	TEXT	Un_aiuto!
POL			SetParameter	TEXT		Pomoc!


			

			SendMessage 	CREATETEXT	
		EndIf

		If U IsEqualTo 91
		Then
			SetParameter	POSITION	19	4	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf


EndLoop

Loop WIN
Do
	SetParameter POSITION	0	0	1	0
	SetParameter	BLOCKCOLOUR ALLCOLOURS
	SendMessage 	ClearBlocks

	OnMessage TIMER3
	Do
		Add 1 To Z

	EndResponse

	If Z BecomesEqualTo 4
	Then


	SetParameter	TEXT	Team17g
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION
	
	EndIf


EndLoop


Loop FAIL
Do

	SetParameter POSITION	0	0	1	0
	SetParameter	BLOCKCOLOUR ALLCOLOURS
	SendMessage 	ClearBlocks

	OnMessage TIMER3
	Do
		Add 1 To Z

	EndResponse

	If Z BecomesEqualTo 4
	Then

		SendMessage LOSECONDITION
	
	EndIf


EndLoop


EndFile