GameMode	tut3



	COllectStarCounter		N
	WaterHeightCounter		W


Program0123



TEXTBUFFER      LEVS                    


        tut3.wbl


ENDBUFFER



Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	BACKDROP	BACKDROP9
	SendMessage	SETBACKDROP

	SetParameter	TEXT	tut3.wbw
	SendMessage	LOADWEAPONLIST


	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

        SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20              
        SendMessage     LOADLEVEL

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION
	
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


	SetParameter POSITION	0.0	-100.0	0.0	0.0
	SendMessage CHANGEWATERHEIGHT

	SendMessage 	MUSIC_GROOVE_MED_LOW

	SendMessage	DISABLE_STAR_JINGLE

	Set A To 0
	Set B To 0
	Set C To 0
	Set D To 15
	Set E To 100
	Set F To 0
	Set G To 0
	Set J To 0
	Set K To 0

	Set N To 0
	Set P To 0

	Set R TO 0
	Set S To 0
	Set T To 0
	Set U To 0
	Set V To 0
	Set W To 0
	Set K To 0
	

	Set X To 0
	Set Y To 0
	Set Z To 0

	SendMessage FIRINGOFF
	SendMessage STARTBRIEFING
	SendMessage	DEACTIVATESCORE
	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.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Tutorial_3:_Stars_and_Crates
FRE	SetParameter	TEXT		Didacticiel3_:_toiles_et_Caisses
ITA	SetParameter	TEXT		Tutorial_3:_stelle_e_casse
SPA	SetParameter	TEXT		Tutorial_3:_Estrellas_y_Cajas
GER	SetParameter	TEXT		Tutorial_3:_Sterne_und_Kisten
POL	SetParameter	TEXT		SAMOUCZEK_3:_GWIAZDKI_I_SKRZYNIE


	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

ITA	SetParameter	Scale1		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	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		This_tutorial_explains_stars_and_crates
FRE	SetParameter	TEXT		Ce_didacticiel_explique_les_toiles
ITA	SetParameter	TEXT		In_questo_tutorial_vengono_introdotte_le_stelle
SPA	SetParameter	TEXT		Este_tutorial_explica_cmo_funcionan_las_estrellas
GER	SetParameter	TEXT		Das_Tutorial_erklrt_Sterne_und_Kisten
POL	SetParameter	TEXT		TEN_SAMOUCZEK_OBJANIA_GWIAZDKI_I_SKRZYNIE_ORAZ


	SendMessage 	CREATETEXT


	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	TEXT		and_demonstrates_their_uses.
FRE	SetParameter	TEXT		et_les_caisses_et_montre_l'usage
ITA	SetParameter	TEXT		e_le_casse_e_viene_mostrato_il_loro_utilizzo.
SPA	SetParameter	TEXT		y_las_cajas_y_para_qu_sirven.
GER	SetParameter	TEXT		und_demonstriert_ihre_Benutzung.
POL	SetParameter	TEXT		PRZEDSTAWIA_ICH_ZASTOSOWANIE.

	SendMessage 	CREATETEXT

FRE	SetParameter	TEXT		qu'on_peut_en_faire.
FRE	SetParameter	Position	0.0	45.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

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	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
ITA	SetParameter	TEXT		Premi_fuoco_per_cominciare
SPA	SetParameter	TEXT		Pulsa_el_disparo_para_empezar.
GER	SetParameter	TEXT		Zum_Starten_Feuer_drcken.
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_ROZPOCZ.


	SendMessage 	CREATETEXT


	OnMessage FIREPRESSED
	Do

		Set T To 0
		SendMessage MUSIC_GROOVE_MED_LOW
		SendMessage ENDBRIEFING
		SetParameter POSITION	0.0	-100.0	0.0	0.0
		SendMessage CHANGEWATERHEIGHT

		Set A To 1
		Set V To 0

		Set V To T
		Add 2 To V

		Set E TO 1

		GotoLoop MAIN

	EndResponse

EndLoop



Loop MAIN
Do


	
	OnMessage	TIMER1
	Do

		Add 1 TO B
		Add 1 TO T
		Add 1 TO G
		Add 1 To J

	EndResponse	



	If A IsEqualTo 1
	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	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	115.0	0.0	0.0
		SetParameter	TEXT		Stars_are_little_blessings_from
FRE		SetParameter	TEXT		Les_toiles_sont_de_petites_bndictions
ITA		SetParameter	TEXT		Le_stelle_sono_benedizioni_dal_cielo.
SPA		SetParameter	TEXT		Las_estrellas_son_pequeas_bendiciones_del
GER		SetParameter	TEXT		Sterne_sind_ein_kleines_Geschenk_vom
POL	SetParameter	TEXT		GWIAZDKI_TO_TAKIE_MAE_DARY


		SendMessage 	CREATETEXT

		SetParameter	Position	0	80.0	0.0	0.0
		SetParameter	TEXT		heaven._When_released_from_their_blocky
FRE		SetParameter	TEXT		venues_du_ciel._Quand_elles_sont_libres
ITA		SetParameter	TEXT		Quando_vengono_rilasciate_dalla_loro
SPA		SetParameter	TEXT		cielo._Cuando_se_liberan_de_los_bloques_que
GER		SetParameter	TEXT		Himmel._Wenn_Sie_von_den_umgebenden
POL	SetParameter	TEXT		Z_NIEBIOS._UWOLNIONE_Z_OTOCZENIA


		SendMessage 	CREATETEXT



		SetParameter	Position	0	45.0	0.0	0.0
		SetParameter	TEXT		surroundings_they_gracefully_fall
FRE		SetParameter	TEXT		des_blocs_qui_les_entourent,_elles_tombent
ITA		SetParameter	TEXT		prigione_di_blocchi,_cascano_felicemente
SPA		SetParameter	TEXT		les_rodean,_caen_lentamente_al_agua.
GER		SetParameter	TEXT		Steinen_gelst_sind,_fallen_sie_dankbar
POL	SetParameter	TEXT		Z_GRACJ_OPADAJ_W_Dӣ,_DO_WODY.


		SendMessage 	CREATETEXT
	

		SetParameter	Position	0	10.0	0.0	0.0
		SetParameter	TEXT		into_water._Once_in_the_water_they_will
FRE		SetParameter	TEXT		avec_grce_dans_l'eau._Une_fois_dans_l'eau,
ITA		SetParameter	TEXT		in_acqua._Una_volta_in_acqua,_pian_piano
SPA		SetParameter	TEXT		Una_vez_en_el_agua,_las_estrellas
GER		SetParameter	TEXT		ins_Wasser._Wenn_sie_im_Wasser_sind,
POL	SetParameter	TEXT		GDY_DO_NIEJ_WPADN


		SendMessage 	CREATETEXT


		SetParameter	Position	0	-25.0	0.0	0.0
		SetParameter	TEXT		sink.
FRE		SetParameter	TEXT		elles_sombrent.
ITA		SetParameter	TEXT		affonderanno.
SPA		SetParameter	TEXT		se_hunden.
GER		SetParameter	TEXT		beginnen_sie_zu_sinken.
POL	SetParameter	TEXT		TON.


		SendMessage 	CREATETEXT

	EndIf



	If A IsEqualTo 2
	Then
		



		If B IsGreaterThanOrEqualTo 1
		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	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	80.0	0.0	0.0
			SetParameter	TEXT		Here,_let_me_illustrate.
FRE			SetParameter	TEXT		Voyons_a_en_images.
ITA			SetParameter	TEXT		Ecco,_ora_ti_faccio_vedere.
SPA			SetParameter	TEXT		Deja_que_te_ilustre.
GER			SetParameter	TEXT		Hier,_ich_zeig's_dir.
POL	SetParameter	TEXT		POZWL,_E_CI_TO_PRZEDSTAWI.


			SendMessage 	CREATETEXT

		EndIf

		If B BecomesEqualTo 1
		Then
			Set V To T
			Add 2 To V

			Set E To 2

		EndIf

	EndIf

	If A IsEqualTo 3
	Then

		If B IsGreaterThanOrEqualTo 1
		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	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


ITA			SetParameter	Scale1		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale5		0.6	0.6	0.6	0.0	
			
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		Now_watch_the_stars_on_the
FRE			SetParameter	TEXT		Observez_les_toiles_sur_la_gauche
ITA			SetParameter	TEXT		Osserva_adesso_le_stelle_sulla_sinistra
SPA			SetParameter	TEXT		Ahora_observa_las_estrellas_que_hay
GER			SetParameter	TEXT		Beobachte_jetzt_die_Sterne_links
POL	SetParameter	TEXT		OBSERWUJ_GWIAZDKI_Z_LEWEJ


			SendMessage 	CREATETEXT	

			SetParameter	Position	0	10.0	0.0	0.0	
			SetParameter	TEXT		left_and_right_of_the_screen.
FRE			SetParameter	TEXT		et_la_droite_de_l'cran.
ITA			SetParameter	TEXT		e_sulla_destra_dello_schermo.
SPA			SetParameter	TEXT		a_ambos_lados_de_la_pantalla.
GER			SetParameter	TEXT		und_rechts_auf_dem_Bildschirm.
POL	SetParameter	TEXT		I_PRAWEJ_STRONY_EKRANU.

		
			SendMessage 	CREATETEXT



		EndIf

		If B BecomesEqualTo 1
		Then

			Set D TO B
			Add 1 To D

			Set V To T
			Add 2 To V

			Set E To 3
		EndIf



		If B IsGreaterThanOrEqualTo 1
		Then

			If B IsLessThan 10
			Then

				If B BecomesEqualTo D
				Then


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

					SetParameter	POSITION	170	140	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     2.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	
			
					SetParameter	POSITION	-150	140	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     0.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON

					Set D To B
					Add 1 To D
				EndIf
	
			EndIf
		EndIf


	EndIf


	If A IsEqualTo 4
	Then

		If B BecomesEqualTo 1
		Then


			SetParameter	POSITION	20	4	0 	0
			SendMessage	DetonateBlock

			SetParameter	POSITION	5	4	0 	0
			SendMessage	DetonateBlock

		EndIf


		If B BecomesEqualTo 2
		Then

			SetParameter	Velocity	0.0	-0.01	0.0	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	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

FRE			SetParameter	Scale1		0.6	0.6	0.6	0.0
FRE			SetParameter	Scale2		0.6	0.6	0.6	0.0
FRE			SetParameter	Scale3		0.6	0.6	0.6	0.0
FRE			SetParameter	Scale4		0.6	0.6	0.6	0.0
FRE			SetParameter	Scale5		0.6	0.6	0.6	0.0

			SetParameter	Lifetime	0.1	0.5	4.0	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		As_you_can_see,_the_stars_are_sinking
FRE			SetParameter	TEXT		Comme_vous_pouvez_le_voir,_les_toiles
ITA			SetParameter	TEXT		Visto?_Le_stelle_si_inabissano_lentamente
SPA			SetParameter	TEXT		Como_puedes_ver,_las_estrellas_se_hunden
GER			SetParameter	TEXT		Wie_du_siehst,_versinken_die_Sterne
POL	SetParameter	TEXT		JAK_WIDZISZ_GWIAZDKI_POWOLUTKU

			SendMessage 	CREATETEXT	

			SetParameter	Position	0	10.0	0.0	0.0	
			SetParameter	TEXT		gently_into_the_murky_depths.
FRE			SetParameter	TEXT		sombrent_lentement_dans_les_profondeurs_obscures.
ITA			SetParameter	TEXT		nelle_oscure_profondit.
SPA			SetParameter	TEXT		lentamente_en_las_turbias_aguas.
GER			SetParameter	TEXT		sanft_in_der_dsteren_Tiefe.
POL	SetParameter	TEXT		ZANURZAJ_SI_W_PRZEPASTNE_GBINY.

		
			SendMessage 	CREATETEXT

		EndIf


		If B BecomesEqualTo 7
		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	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.1	0.5	1.0	1.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	-25.0	0.0	0.0
			SetParameter	TEXT		Nice!
FRE			SetParameter	TEXT		Bien!
ITA			SetParameter	TEXT		Bravo!
SPA			SetParameter	TEXT		Bien!
GER			SetParameter	TEXT		Nett!
POL	SetParameter	TEXT		JAK_ADNIE!


			SendMessage 	CREATETEXT	

		EndIf

		If B BecomesEqualTo 8
		Then

			Set V To T
			Add 2 To V
			Set E To 4

		EndIf
		
	EndIf


	If A IsEqualTo 5
	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	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	80.0	0.0	0.0
		SetParameter	TEXT		Did_you_know_you_can_collect
FRE		SetParameter	TEXT		Saviez-vous_que_vous_pouviez
ITA		SetParameter	TEXT		Lo_sapevi_che_puoi_raccogliere
SPA		SetParameter	TEXT		Sabes_que_puedes_recoger
GER		SetParameter	TEXT		Wusstest_du,_dass_du_die_Sterne
POL	SetParameter	TEXT		JAK_SI_DOMYLASZ_MOESZ_JE


		SendMessage 	CREATETEXT

		SetParameter	Position	0	45.0	0.0	0.0
		SetParameter	TEXT		stars?
FRE		SetParameter	TEXT		rcuprer_des_toiles_?
ITA		SetParameter	TEXT		le_stelle?
SPA		SetParameter	TEXT		estrellas?
GER		SetParameter	TEXT		einsammeln_kannst?
POL	SetParameter	TEXT		ZBIERA.


		SendMessage 	CREATETEXT

		SetParameter	Position	0	10.0	0.0	0.0
		SetParameter	TEXT		It's_True!_and_better_yet
FRE		SetParameter	TEXT		Si,_c'est_vrai_!_Et_encore_mieux_:
ITA		SetParameter	TEXT		_vero!_E,_se_lo_farai,_riuscirai
SPA		SetParameter	TEXT		Es_cierto!_Y_an_mejor,
GER		SetParameter	TEXT		So_ist_es!_Besser_noch,
POL	SetParameter	TEXT		TAK_TO_PRAWDA,_A_CO_WANIEJSZE


		SendMessage 	CREATETEXT

		SetParameter	Position	0	-25.0	0.0	0.0
		SetParameter	TEXT		Collecting_a_star_will
FRE		SetParameter	TEXT		en_rcuprant_une_toile,_vous_ferez
ITA		SetParameter	TEXT		a_ridurre_il_livello_dell'acqua!
SPA		SetParameter	TEXT		si_recoges_una_estrella_conseguirs
GER		SetParameter	TEXT		Wenn_du_einen_Stern_einsammelst,
POL	SetParameter	TEXT		ZEBRANIE_TAKIEJ_GWIAZDKI


		SendMessage 	CREATETEXT

		SetParameter	Position	0	-60.0	0.0	0.0
		SetParameter	TEXT		Lower_the_level_of_the_water.
FRE		SetParameter	TEXT		baisser_le_niveau_de_l'eau.
SPA		SetParameter	TEXT		disminuir_el_nivel_del_agua.
ITA		SetParameter	TEXT		__
GER		SetParameter	TEXT		sinkt_der_Wasserspiegel.
POL	SetParameter	TEXT		OBNIA_POZIOM_WODY.

		SendMessage 	CREATETEXT	

		If B BecomesEqualTo 1
		Then

			Set V To T
			Add 2 To V
			Set E To 5

		EndIf

	EndIf


	If A IsEqualTo 6
	Then


		If B BecomesEqualTo 1
		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	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.1	0.5	1.5	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	80.0	0.0	0.0
			SetParameter	TEXT		Pay_attention!
FRE			SetParameter	TEXT		Faites_attention!
ITA			SetParameter	TEXT		Fai_attenzione!
SPA			SetParameter	TEXT		Presta_atencin!
GER			SetParameter	TEXT		Pass_auf!
POL	SetParameter	TEXT		TERAZ_SI_SKUP!


			SendMessage 	CREATETEXT

		EndIf



		If B BecomesEqualTo 3
		Then

			Set D TO B
			Add 1 To D
		EndIf

		If B IsGreaterThanOrEqualTo 3
		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	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	10.0	0.0	0.0
			SetParameter	TEXT		Now_watch_the_star_in_the
FRE			SetParameter	TEXT		Regardez_bien_l'toile
ITA			SetParameter	TEXT		Ora_guarda_la_stella_al_centro
SPA			SetParameter	TEXT		Observa_la_estrella_que_hay
GER			SetParameter	TEXT		Achte_auf_den_Stern_in
POL	SetParameter	TEXT		OBSERWUJ_GWIAZDK_NA


			SendMessage 	CREATETEXT	

			SetParameter	Position	0	-25.0	0.0	0.0	
			SetParameter	TEXT		centre_of_the_screen.
FRE			SetParameter	TEXT		au_centre_de_l'cran!
ITA			SetParameter	TEXT		dello_schermo.
SPA			SetParameter	TEXT		en_el_centro_de_la_pantalla.
GER			SetParameter	TEXT		der_Bildschirmmitte.
POL	SetParameter	TEXT		RODKU_EKRANU.

		
			SendMessage 	CREATETEXT

 

		EndIf

		If B IsGreaterThanOrEqualTo 3
		Then

				If B BecomesEqualTo D
				Then


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

					SetParameter	POSITION	-30	60	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     2.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	
			
					SetParameter	POSITION	50	60	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     0.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON

					Set D TO B
					Add 1 To D
				EndIf

		EndIf


		If B BecomesEqualTo 5
		Then

			Set V To T
			Add 2 To V
			Set E To 6
		EndIf


	EndIf


	If A IsEqualTo 7 
	Then
		If B BecomesEqualTo 1
		Then


			SetParameter	POSITION	12	8	0 	0
			SendMessage	DetonateBlock

			SetParameter	POSITION	13	8	0 	0
			SendMessage	DetonateBlock

		EndIf

	

		If B BecomesEqualTo 3
		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	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.1	0.5	1.5	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	-25.0	0.0	0.0
			SetParameter	TEXT		Cool_Huh?!
FRE			SetParameter	TEXT		Cool,_non?
ITA			SetParameter	TEXT		Non_male,_vero?
SPA			SetParameter	TEXT		GUAY!_EH?
GER			SetParameter	TEXT		Cool,_wie?
POL	SetParameter	TEXT		NIEZE_CO!


			SendMessage 	CREATETEXT	
	
		EndIf

		If B BecomesEqualTo 4
		Then

			Set V To T
			Add 2 To V
			Set E To 7

		EndIf
	
	EndIf


	If A IsEqualTo 8
	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	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	115.0	0.0	0.0
		SetParameter	TEXT		Hey,_guess_what,_it's_time
FRE		SetParameter	TEXT		Devinez_quoi_?_C'est_le_moment
ITA		SetParameter	TEXT		Ehi,_indovina_un_po',__giunta
SPA		SetParameter	TEXT		sabes?,_es_hora
GER		SetParameter	TEXT		So,_jetzt_rate_mal..._Es_ist
POL	SetParameter	TEXT		A_TERAZ_ZGADNIJ_CO_BDZIE?


		SendMessage 	CREATETEXT

		SetParameter	Position	0	80.0	0.0	0.0
		SetParameter	TEXT		for_the_practical.
FRE		SetParameter	TEXT		de_passer__la_pratique.
ITA		SetParameter	TEXT		l'ora_di_fare_un_po'_di_pratica.
SPA		SetParameter	TEXT		de_entrenar.
GER		SetParameter	TEXT		Zeit_frs_Training.
POL	SetParameter	TEXT		CZAS,_ABY_POWICZY.


		SendMessage 	CREATETEXT

	

		SetParameter	Position	0	10.0	0.0	0.0
		SetParameter	TEXT		Great!
FRE		SetParameter	TEXT		Gnial!
ITA		SetParameter	TEXT		Ottimo!
SPA		SetParameter	TEXT		Genial!
GER		SetParameter	TEXT		Klasse!
POL	SetParameter	TEXT		WSPANIALE!


		SendMessage 	CREATETEXT


		If B BecomesEqualTo 1
		Then

			Set V To T
			Add 2 To V
			Set E To 8

		EndIf
	

	EndIf
	

	If A IsEqualTo 9
	Then


		If B BecomesEqualTo 1
		Then

			SetParameter	POSITION	12	6	0 	0
			SendMessage	DetonateBlock

			SetParameter	POSITION	13	6	0 	0
			SendMessage	DetonateBlock			

		EndIf


		If B IsGreaterThanOrEqualTo 2
		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	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	80.0	0.0	0.0
			SetParameter	TEXT		Now_it's_your_turn_to_tinker
FRE			SetParameter	TEXT		C'est_maintenant__votre_tour_de
ITA			SetParameter	TEXT		Adesso_tocca_a_te_divertirti
SPA			SetParameter	TEXT		Ahora_te_toca_a_ti_jugar
GER			SetParameter	TEXT		Jetzt_bist_du_an_der_Reihe
POL	SetParameter	TEXT		TERAZ_TWOJA_KOLEJ_BY_


			SendMessage 	CREATETEXT

			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		with_the_stars!
FRE			SetParameter	TEXT		vous_frotter_aux_toiles!
ITA			SetParameter	TEXT		con_le_stelle!
SPA			SetParameter	TEXT		con_las_estrellas!
GER			SetParameter	TEXT		nach_den_Sternen_zu_greifen!
POL	SetParameter	TEXT		ZABAWI_SI_Z_GWIAZDKAMI!


			SendMessage 	CREATETEXT

			SetParameter	Position	0	10.0	0.0	0.0
			SetParameter	TEXT		Just_a_second!_I'll_just_reset
FRE			SetParameter	TEXT		Juste_une_seconde!_Je_vais
ITA			SetParameter	TEXT		Aspetta_un_attimo,_azzero_il
SPA			SetParameter	TEXT		Un_segundo!_Tengo_que
GER			SetParameter	TEXT		Einen_Moment!_Ich_setze_dafr
POL	SetParameter	TEXT		JU_ZA_CHWILK_USTAWIE


			SendMessage 	CREATETEXT

			SetParameter	Position	0	-25.0	0.0	0.0
			SetParameter	TEXT		the_water_for_this.
FRE			SetParameter	TEXT		rinitialiser_l'eau.
ITA			SetParameter	TEXT		livello_dell'acqua.
SPA			SetParameter	TEXT		preparar_el_agua.
GER			SetParameter	TEXT		noch_den_Wasserspiegel_zurck.
POL	SetParameter	TEXT		WOD_OD_NOWA.


			SendMessage 	CREATETEXT
			

			SetParameter	POSITION	0	-100	0	0
			sendMessage	ChangeWaterHeight

		EndIf


		If B BecomesEqualTo 2
		Then

			Set V To T
			Add 2 To V
			Set E To 9

		EndIf


	EndIf


	If A IsEqualTo 10
	Then
		If B IsGreaterThanOrEqualTo 1
		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	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	80.0	0.0	0.0
			SetParameter	TEXT		Do_You_see_those_three_remaining
FRE			SetParameter	TEXT		Vous_voyez_les_trois_toiles_qui
ITA			SetParameter	TEXT		Vedi_quelle_tre_stelle_ancora_presenti
SPA			SetParameter	TEXT		Ves_las_tres_estrellas_que_hay
GER			SetParameter	TEXT		Siehst_du_die_verbleibenden_drei
POL	SetParameter	TEXT		WIDZISZ_TE_POZOSTAE_NA_EKRANIE


			SendMessage 	CREATETEXT

			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		stars_at_the_top_of_the_screen?
FRE			SetParameter	TEXT		restent_en_haut_de_l'cran?
ITA			SetParameter	TEXT		nella_parte_superiore_dello_schermo?
SPA			SetParameter	TEXT		en_la_parte_superior_de_la_pantalla?
GER			SetParameter	TEXT		Sterne_am_oberen_Bildrand?
POL	SetParameter	TEXT		GWIAZDKI!


			SendMessage 	CREATETEXT

		EndIf


		If B BecomesEqualTo 1
		Then

			Set D To B
			Add 1 To D

		EndIf


		If B IsGreaterThanOrEqualTo 1
		Then

			If B IsLessThan 16
			Then

				If B BecomesEqualTo D
				Then


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

					SetParameter	POSITION	10	115	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     1.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	
			
					SetParameter	POSITION	-85	115	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     1.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON

					SetParameter	POSITION	105	115	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     1.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON

					Set D TO B
					Add 1 To D
				EndIf
	
			EndIf

		EndIf


		If B BecomesEqualTo 2
		Then

			Set V To T
			Add 2 To V
			Set E To 10

		EndIf
		

	EndIf


	If A IsEqualTo 11
	Then

		If B IsGreaterThanOrEqualTo 1
		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	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
			
POL	SetParameter	Scale1		0.7	0.7	0.7	0.0
POL	SetParameter	Scale2		0.7	0.7	0.7	0.0
POL	SetParameter	Scale3		0.7	0.7	0.7	0.0
POL	SetParameter	Scale4		0.7	0.7	0.7	0.0
POL	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	115.0	0.0	0.0
			SetParameter	TEXT		I'm_going_to_Give_you_back_control
FRE			SetParameter	TEXT		Je_vais_vous_redonner_le_contrle
ITA			SetParameter	TEXT		Ora_ti_restituisco_il_controllo_della_tua
SPA			SetParameter	TEXT		Voy_a_devolverte_el_control
GER			SetParameter	TEXT		Ich_gebe_dir_jetzt_die_Kontrolle
POL	SetParameter	TEXT		ZARAZ_ODDAM_CI_KONTROL_


			SendMessage 	CREATETEXT

			SetParameter	Position	0	80.0	0.0	0.0
			SetParameter	TEXT		of_your_boat.
FRE			SetParameter	TEXT		de_votre_bateau.
ITA			SetParameter	TEXT		imbarcazione._Quando_sei_pronto,_liberer
SPA			SetParameter	TEXT		de_tu_barco.
GER			SetParameter	TEXT		ber_das_Boot_zurck.
POL	SetParameter	TEXT		NAD_DK._


			SendMessage 	CREATETEXT

			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		So_when_you're_ready_I'll
FRE			SetParameter	TEXT		Quand_vous_serez_prt,_je_librerai
ITA			SetParameter	TEXT		le_stelle_una_alla_volta,_in_modo_che
SPA			SetParameter	TEXT		As_que_cuando_ests_listo
GER			SetParameter	TEXT		Wenn_du_bereit_bist,_werde_ich_die_Sterne
POL	SetParameter	TEXT		JAK_BDZIESZ_GOTOWY,


			SendMessage 	CREATETEXT

			SetParameter	Position	0	10.0	0.0	0.0
			SetParameter	TEXT		release_the_stars_one_at_a_time_for
FRE			SetParameter	TEXT		les_toiles_une__la_fois_pour_que_vous
ITA			SetParameter	TEXT		tu_possa_raccoglierle_per_abbassare
SPA			SetParameter	TEXT		soltar_las_estrellas_una_por_una
GER			SetParameter	TEXT		einzeln_nacheinander_fallen_lassen,_damit
POL	SetParameter	TEXT		POJEDYNCZO_BD_PUSZCZA_GWIAZDKI.


			SendMessage 	CREATETEXT

			SetParameter	Position	0	-25.0	0.0	0.0
			SetParameter	TEXT		you_to_collect_them_and_Lower_the_water
FRE			SetParameter	TEXT		les_rcupriez_et_que_l'eau_baisse_jusqu'au
ITA			SetParameter	TEXT		il_livello_dell'acqua_fino_a_quello_indicato
SPA			SetParameter	TEXT		para_que_las_recojas_y_consigas_disminuir_el_nivel
GER			SetParameter	TEXT		du_sie_sammeln_und_den_Wasserstand_auf
POL	SetParameter	TEXT		TWOJE_ZADANIE_ZBIERA_JE,_A_WODA


			SendMessage 	CREATETEXT

			SetParameter	Position	0	-60.0	0.0	0.0
			SetParameter	TEXT		to_the_Level_indicated_by_the_blue_arrows.
FRE			SetParameter	TEXT		niveau_indiqu_par_les_flches_bleues.
ITA			SetParameter	TEXT		dalle_frecce_blu.
SPA			SetParameter	TEXT		del_agua_hasta_donde_marcan_las_flechas_azules.
GER			SetParameter	TEXT		die_Hhe_der_blauen_Pfeile_absenken_kannst.
POL			SetParameter	TEXT		OPADNIE_DO_POZIOMU_OZNACZONEGO_NIEBIESK_STRZAK.


			SendMessage 	CREATETEXT

		EndIf


		If B BecomesEqualTo 2
		Then

			Set F TO B
			Add 1 To F

		EndIf		

		

		If B IsGreaterThanOrEqualTo 2
		Then

				If B BecomesEqualTo F
				Then

					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	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	POSITION	-290	-170	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     2.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	
			
					SetParameter	POSITION	290	-170	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     0.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON

					Set F TO B
					Add 1 To F
				EndIf
		EndIf


	
		If B BecomesEqualTo 4
		Then

			SendMessage	MOVINGON

		EndIf


		If B BecomesEqualTo 4
		Then

			Set V To T
			Add 2 To V
			Set E To 11

			Set F TO B
			Add 1 To F
			
		EndIf
	

	EndIf



	If A IsEqualTo 12
	Then



		If B BecomesEqualTo 1
		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	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.1	0.5	1.0	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	80.0	0.0	0.0
			SetParameter	TEXT		Well_here_goes!
FRE			SetParameter	TEXT		Bon_c'est_parti!
ITA			SetParameter	TEXT		Ecco_che_si_comincia!
SPA			SetParameter	TEXT		As_se_hace!
GER			SetParameter	TEXT		Gut,_los_gehts!
POL			SetParameter	TEXT		NO_DOBRA,_JAZDA!


			SendMessage 	CREATETEXT

		EndIf
			

		If B BecomesEqualTo 3
		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	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.1	0.5	1.0	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	80.0	0.0	0.0
			SetParameter	TEXT		This_one_first!
FRE			SetParameter	TEXT		Celle-l_en_premier!
ITA			SetParameter	TEXT		Prima_questa!
SPA			SetParameter	TEXT		Primero_sta!
GER			SetParameter	TEXT		Diesen_zuerst!
POL			SetParameter	TEXT		LECI_PIERWSZA!


			SendMessage 	CREATETEXT

			Set D To B
			Add 1 To D

		EndIf


		If B IsGreaterThanOrEqualTo 0
		Then


				If B BecomesEqualTo F
				Then

					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	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	POSITION	-290	-170	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     2.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	
			
					SetParameter	POSITION	290	-170	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     0.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON
	
					Set F TO B
					Add 1 To F

				EndIf
	

		EndIf
		

		If B IsGreaterThanOrEqualTo 3
		Then


			If B IsLessThan 6
			Then
				If B BecomesEqualTo D
				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	Scale1		0.8	0.8	0.8	0.0
					SetParameter	Scale2		0.8	0.8	0.8	0.0
					SetParameter	Scale3		0.8	0.8	0.8	0.0
					SetParameter	Scale4		0.8	0.8	0.8	0.0
					SetParameter	Scale5		0.8	0.8	0.8	0.0

					SetParameter	POSITION	-130	140	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     2.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	
			
					Set D TO B
					Add 1 To D
				EndIf
	
			EndIf

		EndIf


		If B BecomesEqualTo 6
		Then

			SetParameter	POSITION	8	4	0 	0
			SendMessage	DetonateBlock

			SetParameter	POSITION	9	4	0 	0
			SendMessage	DetonateBlock	

			SendMessage	MOVINGON		

		EndIf


		If B BecomesEqualTo 7
		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	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.1	0.5	1.0	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	-25.0	0.0	0.0
			SetParameter	TEXT		Go_on_then,_get_it!
FRE			SetParameter	TEXT		Continuez_et_prenez-la!
ITA			SetParameter	TEXT		Forza,_prendila!
SPA			SetParameter	TEXT		Corre,_cgela!
GER			SetParameter	TEXT		Mach_weiter,_hol_ihn_dir!
POL			SetParameter	TEXT		NO_DALEJ,_AP_J!


			SendMessage 	CREATETEXT

		EndIf


		If N 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	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.1	0.5	1.0	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	-55.0	0.0	0.0
			SetParameter	TEXT		Nice_one!
FRE			SetParameter	TEXT		Bien_jou!
ITA			SetParameter	TEXT		Perfetto!
SPA			SetParameter	TEXT		Muy_bien!
GER			SetParameter	TEXT		Nett!
POL			SetParameter	TEXT		NIELE!


			SendMessage 	CREATETEXT

			Set T To 0
			Set N To 10

		EndIf

		If N IsEqualTo 10
		Then

			If T BecomesEqualTo 3
			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	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.1	0.5	1.0	2.5
				SetParameter	Justify		Centre
	
				SetParameter	Position	0	80.0	0.0	0.0
				SetParameter	TEXT		Next_one!
FRE				SetParameter	TEXT		Suivante!
ITA				SetParameter	TEXT		La_prossima!
SPA				SetParameter	TEXT		Siguiente!
GER				SetParameter	TEXT		Der_Nchste!
POL			SetParameter	TEXT		NASTPNA!


				SendMessage 	CREATETEXT

				Set H TO T
				Add 1 To H
				
			EndIf
			
		EndIf


		If T IsGreaterThanOrEqualTo 3
		Then

			If T IsLessThan 7
			Then
				If T BecomesEqualTo D
				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	Scale1		0.8	0.8	0.8	0.0
					SetParameter	Scale2		0.8	0.8	0.8	0.0
					SetParameter	Scale3		0.8	0.8	0.8	0.0
					SetParameter	Scale4		0.8	0.8	0.8	0.0
					SetParameter	Scale5		0.8	0.8	0.8	0.0

					SetParameter	POSITION	150	140	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     0.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	
			
					Set H TO T
					Add 1 To H
				EndIf
	
			EndIf

		EndIf




		If T BecomesEqualTo 7
		Then

			SetParameter	POSITION	16	4	0 	0
			SendMessage	DetonateBlock

			SetParameter	POSITION	17	4	0 	0
			SendMessage	DetonateBlock	

			SendMessage	MOVINGON		

		EndIf
		

		If T BecomesEqualTo 9
		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	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.1	0.5	1.0	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	-25.0	0.0	0.0
			SetParameter	TEXT		Go_get_it!
FRE			SetParameter	TEXT		Allez_la_prendre!
ITA			SetParameter	TEXT		Prendila!
SPA			SetParameter	TEXT		Corre!
GER				SetParameter	TEXT	Hol_ihn_dir!
POL			SetParameter	TEXT		AP_J!
	

			SendMessage 	CREATETEXT

		EndIf




		If N BecomesEqualTo 11
		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	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.1	0.5	1.0	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	-55.0	0.0	0.0
			SetParameter	TEXT		Great_stuff!
FRE			SetParameter	TEXT		Super!
ITA			SetParameter	TEXT		Bravissimo!
SPA			SetParameter	TEXT		Buen_trabajo!
GER			SetParameter	TEXT		Prima!
POL			SetParameter	TEXT		DOBRA_ROBOTA!


			SendMessage 	CREATETEXT


			Set J TO 0
			Set K To 0
			Set N To 20

		EndIf


		If N IsEqualTo 20
		Then
			If J BecomesEqualTo 3
			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	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.1	0.5	1.0	2.5
				SetParameter	Justify		Centre
	
				SetParameter	Position	0	80.0	0.0	0.0
				SetParameter	TEXT		Last_one!
FRE				SetParameter	TEXT		Dernire!
ITA				SetParameter	TEXT		L'ultima!
SPA				SetParameter	TEXT		La_ltima!
GER				SetParameter	TEXT		Der_Letzte!
POL			SetParameter	TEXT		OSTATNIA!


				SendMessage 	CREATETEXT

				Set K TO J
				Add 1 To K
				
			EndIf

		EndIf


		If J IsGreaterThanOrEqualTo 3
		Then


			If J IsLessThan 6
			Then
				If J BecomesEqualTo K
				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	Scale1		0.8	0.8	0.8	0.0
					SetParameter	Scale2		0.8	0.8	0.8	0.0
					SetParameter	Scale3		0.8	0.8	0.8	0.0
					SetParameter	Scale4		0.8	0.8	0.8	0.0
					SetParameter	Scale5		0.8	0.8	0.8	0.0

					SetParameter	POSITION	10	170	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
        				SetParameter    ORIENTATION     0.0     0.0     3.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	
			
					Set K TO J
					Add 1 To K
				EndIf
	
			EndIf

		EndIf


		If J BecomesEqualTo 6
		Then

			SetParameter	POSITION	12	4	0 	0
			SendMessage	DetonateBlock

			SetParameter	POSITION	13	4	0 	0
			SendMessage	DetonateBlock	

			SendMessage	MOVINGON		

		EndIf


		If J BecomesEqualTo 7
		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	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.1	0.5	1.0	2.5
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	-25.0	0.0	0.0
			SetParameter	TEXT		Go_on_then,_get_it!
FRE			SetParameter	TEXT		Allez_la_prendre!
ITA			SetParameter	TEXT		Forza,_prendila!
SPA			SetParameter	TEXT		Corre,_cgela!
GER			SetParameter	TEXT		Mach_weiter,_hol_ihn_dir!
POL			SetParameter	TEXT		AP_J!


			SendMessage 	CREATETEXT

		EndIf

		If N BecomesEqualTo 21
		Then

			Set V To T
			Add 2 To V
			Set A To 13
			Set B To 0

		EndIf


	
		If B BecomesEqualTo 20
		Then

			If N IsLessThan 2
			Then

				Set B To 0
				GotoLoop FAIL

			EndIf
	
		EndIf

	
		If T BecomesEqualTo 20
		Then

			If N IsLessThan 11
			Then

				Set B To 0
				GotoLoop FAIL

			EndIf
	
		EndIf

	


		If J BecomesEqualTo 20
		Then

			If N IsLessThan 21
			Then

				Set B To 0
				GotoLoop FAIL

			EndIf
	
		EndIf


		


	EndIf

	
	If A IsEqualTo 13
	Then
		If N IsEqualTo 21
		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		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	150.0	0.0	0.0
			SetParameter	TEXT		Superb!
FRE			SetParameter	TEXT		Superbe!
ITA			SetParameter	TEXT		Superbo!
SPA			SetParameter	TEXT		Perfecto!
GER			SetParameter	TEXT		Superb!
POL			SetParameter	TEXT		SUPER!


			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	Position	0	115.0	0.0	0.0
			SetParameter	TEXT		You've_got_the_hang_of_stars
FRE			SetParameter	TEXT		Vous_savez_comment_y_faire_avec_les_toiles.
ITA			SetParameter	TEXT		Ormai_sei_il_signore_delle_stelle.
SPA			SetParameter	TEXT		Ya_le_has_pillado_el_truco_a_las_estrellas.
GER			SetParameter	TEXT		Du_hast_es_raus_mit_den_Sternen.
POL			SetParameter	TEXT		WIESZ_JU_O_CO_CHODZI_Z_GWIAZDKAMI.


			SendMessage 	CREATETEXT

			SetParameter	Position	0	80.0	0.0	0.0
			SetParameter	TEXT		Now,_Let's_try_crates!
FRE			SetParameter	TEXT		Passons_maintenant_aux_caisses!
ITA			SetParameter	TEXT		Adesso__il_momento_delle_casse!
SPA			SetParameter	TEXT		Ahora_vamos_a_probar_con_las_cajas!
GER			SetParameter	TEXT		Jetzt_versuchen_wir_die_Kisten!
POL			SetParameter	TEXT		WEMY_SI_TERAZ_ZA_SKRZYNIE.


			SendMessage 	CREATETEXT

			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		But_Before_we_start_I_need_to_reset
FRE			SetParameter	TEXT		Mais_avant_de_commencer_je_dois__nouveau
ITA			SetParameter	TEXT		Prima_di_iniziare,_per,_devo
SPA			SetParameter	TEXT		Espera,_tengo_que
GER			SetParameter	TEXT		Aber_bevor_wir_starten,_muss_ich
POL			SetParameter	TEXT		PRZEDTEM_JEDNAK_MUSZ_Z_POWROTEM


			SendMessage 	CREATETEXT

			SetParameter	Position	0	10.0	0.0	0.0
			SetParameter	TEXT		the_water_again.
FRE			SetParameter	TEXT		rinitialiser_l'eau.
ITA			SetParameter	TEXT		riportare_l'acqua_al_livello_iniziale.
SPA			SetParameter	TEXT		preparar_el_agua_otra_vez.
GER			SetParameter	TEXT		das_Wasser_wieder_zurcksetzen.
POL			SetParameter	TEXT		USTAWI_WOD.


			SendMessage 	CREATETEXT

		EndIf

		
		If B BecomesEqualTo 5
		Then

			SetParameter	Position	0	-100.0	0.0	0.0
			SendMessage	ChangeWaterHeight

		EndIf

				
		If B BecomesEqualTo 7
		Then

			SetParameter	BLOCKCOLOUR	ANCHOR
			SendMessage 	CLEARBLOCKS

			Set V To T
			Add 2 To V
			Set E To 13

		EndIf

		
	EndIf


	If A IsEqualTo 14
	Then


		SetParameter	POSITION	12	2	0	0
		SetParameter	BLOCKCOLOUR	ANCHOR
		SendMessage	SpawnInBlock

		SetParameter	POSITION	13	2	0	0
		SetParameter	BLOCKCOLOUR	ANCHOR
		SendMessage	SpawnInBlock

		SetParameter	POSITION	13	3	0	0
		SetParameter	BLOCKCOLOUR	ANCHOR
		SendMessage	SpawnInBlock

		SetParameter	POSITION	11	3	0	0
		SetParameter	BLOCKCOLOUR	ANCHOR
		SendMessage	SpawnInBlock

		SetParameter	POSITION	12	4	0	0
		SetParameter	BLOCKCOLOUR	DEAD
		SendMessage	SpawnInBlock

		SetParameter	POSITION	13	4	0	0
		SetParameter	BLOCKCOLOUR	DEAD
		SendMessage	SpawnInBlock

		SetParameter	POSITION	12	3	0	0
		SetParameter	BLOCKCOLOUR	CRATE
		SetParameter	CRATECONTENTS	CRATE_SHOTGUNYELLOW
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	0	0	0	0
		SetParameter	PLAYERNUM 0
		SendMessage	SETBOATPOSITION

		SetParameter	TEXT	tut3.wbw
		SendMessage	LOADWEAPONLIST

		SendMessage	FIRINGOFF

		Set A TO 15
		Set B To 0

	EndIf


	If A IsEqualTo 15
	Then

		If B IsGreaterThanOrEqualTo 1
		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	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	80.0	0.0	0.0
			SetParameter	TEXT		I'm_going_to_tell_you_a_secret.
FRE			SetParameter	TEXT		Je_vais_vous_confier_un_secret.
ITA			SetParameter	TEXT		Voglio_rivelarti_un_segreto.
SPA			SetParameter	TEXT		Te_dir_un_secreto...
GER			SetParameter	TEXT		Ich_verrate_dir_jetzt_ein_Geheimnis:
POL			SetParameter	TEXT		ZDRADZ_CI_TERAZ_TAJEMNIC


			SendMessage 	CREATETEXT
	
			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		It's_about_that_crate_you_can
FRE			SetParameter	TEXT		C'est__propos_de_la_caisse_que
ITA			SetParameter	TEXT		Si_tratta_di_quella_cassa_che
SPA			SetParameter	TEXT		Es_sobre_la_caja_que_se_ve
GER			SetParameter	TEXT		Es_geht_um_die_Kiste,_die_du
POL			SetParameter	TEXT		NA_TEMAT_SKRZYNKI,_


			SendMessage 	CREATETEXT

			SetParameter	Position	0	10.0	0.0	0.0
			SetParameter	TEXT		see_up_there.
FRE			SetParameter	TEXT		vous_pouvez_voir_l-haut.
ITA			SetParameter	TEXT		puoi_vedere_lass.
SPA			SetParameter	TEXT		ah_arriba.
GER			SetParameter	TEXT		dort_oben_sehen_kannst.
POL			SetParameter	TEXT		KTR_TUTAJ_WIDZISZ.


			SendMessage 	CREATETEXT
		EndIf

		If B BecomesEqualTo 2
		Then

			Set F TO B
			Add 1 To F
			
		EndIf


		If B IsGreaterThanOrEqualTo 3
		Then

			If B BecomesEqualTo F
			Then


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

				SetParameter	POSITION	-30	140	0 	0
				SetParameter	LifeTime	0.1	0.1	0.7	0.2
        			SetParameter    ORIENTATION     0.0     0.0     2.0	0.0
				SetParameter	FRAME	1
				SendMessage 	CREATEICON	
			
				SetParameter	POSITION	50	140	0 	0
				SetParameter	LifeTime	0.1	0.1	0.7	0.2
        			SetParameter    ORIENTATION     0.0     0.0     0.0	0.0
				SetParameter	FRAME	1
				SendMessage 	CREATEICON

				Set F TO B
				Add 1 To F

			EndIf

		EndIf
			

		If B BecomesEqualTo 3
		Then
			
			Set V To T
			Add 2 To V
			Set E To 15

		EndIf

	EndIf



	If A IsEqualTo 16
	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	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	80.0	0.0	0.0
		SetParameter	TEXT		I_bet_you_didn't_know_that_a_crate
FRE		SetParameter	TEXT		Je_parie_que_vous_ne_saviez_pas
ITA		SetParameter	TEXT		Scommetto_non_sapevi_che_una
SPA		SetParameter	TEXT		Seguro_que_no_sabes_que_una_caja
GER		SetParameter	TEXT		Ich_wette,_du_wusstest_nicht,_dass
POL			SetParameter	TEXT	ZAO_SI,_E_NIE_WIESZ,_E
	

		SendMessage 	CREATETEXT

		SetParameter	Position	0	45.0	0.0	0.0
		SetParameter	TEXT		can_contain_one_of_any_number_of
FRE		SetParameter	TEXT		qu'une_caisse_peut_contenir_plusieurs
ITA		SetParameter	TEXT		cassa_pu_contenere_diversi_oggetti
SPA		SetParameter	TEXT		puede_contener_un_premio
GER		SetParameter	TEXT		eine_Kiste_eine_Reihe_von_Goodies
POL			SetParameter	TEXT	SKRZYNIA_MOE_ZAWIERA_JEDN_Z_WIELU


		SendMessage 	CREATETEXT

		SetParameter	Position	0	10.0	0.0	0.0
		SetParameter	TEXT		little_prezzie's_to_help_you
FRE		SetParameter	TEXT		conseils_surprise_qui_vous_aideront
ITA		SetParameter	TEXT		che_ti_possono_tornare_utili_nelle
SPA		SetParameter	TEXT		que_te_ayudar_a
GER		SetParameter	TEXT		enthalten_kann,_die_dir_in_deinen
POL		SetParameter	TEXT	MAYCH_NAGRD,_KTRE_S


		SendMessage 	CREATETEXT

		SetParameter	Position	0	-25.0	0.0	0.0
		SetParameter	TEXT		win_your_battles.
FRE		SetParameter	TEXT		_remporter_des_batailles.
ITA		SetParameter	TEXT		tue_battaglie.
SPA		SetParameter	TEXT		ganar_las_batallas.
GER		SetParameter	TEXT		Schlachten_helfen_werden.
POL		SetParameter	TEXT	POMOCNE_W_WYGRANIU_BITWY.


		SendMessage 	CREATETEXT


		If B BecomesEqualTo 2
		Then


			SetParameter	POSITION	0	0	0	0
			SetParameter	PLAYERNUM 0
			SendMessage	SETBOATPOSITION
			
			Set V To T
			Add 2 To V
			Set E TO 16

		EndIf

	EndIf


	If A IsEqualTo 17
	Then
		

		SetParameter	POSITION	0	-100	0	0
		SendMessage	ChangeWaterHeight

		If B IsGreaterThanOrEqualTo 1
		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	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	80.0	0.0	0.0
			SetParameter	TEXT		What,_don't_you_believe_me?
FRE			SetParameter	TEXT		Quoi,_vous_ne_me_croyez_pas?
ITA			SetParameter	TEXT		Che_c',_non_mi_credi?
SPA			SetParameter	TEXT		Qu,_no_me_crees?
GER			SetParameter	TEXT		Wie,_du_glaubst_mir_nicht?
POL		SetParameter	TEXT	CO,_NIE_WIERZYSZ_MI?


			SendMessage 	CREATETEXT
	
			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		Ok_well_I'll_prove_it.
FRE			SetParameter	TEXT		Dans_ce_cas,_je_vais_vous_le_prouver.
ITA			SetParameter	TEXT		OK,_allora_te_lo_dimostrer.
SPA			SetParameter	TEXT		Bueno,_te_lo_demostrar.
GER			SetParameter	TEXT		Na_gut,_ich_beweise_es_dir.
POL		SetParameter	TEXT	NO_DOBRA,_UDOWODNI_CI_TO.


			SendMessage 	CREATETEXT

		EndIf

		If B BecomesEqualTo 2
		Then

			Set V To T
			Add 2 To V
			Set E TO 17
		
		EndIf

		

	EndIf



	If A IsEqualTo 18
	Then

		If B BecomesEqualTo 1
		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	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.1	0.3	5.5	4.0
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	80.0	0.0	0.0
			SetParameter	TEXT		Here,_I'll_release_the_crate.
FRE			SetParameter	TEXT		Je_vais_librer_la_caisse.
ITA			SetParameter	TEXT		Ecco,_ora_arriva_la_cassa.
SPA			SetParameter	TEXT		Voy_a_soltar_la_caja.
GER			SetParameter	TEXT		Hier,_ich_lass_die_Kiste_fallen.
POL		SetParameter	TEXT	UWAGA,_RZUCAM_SKRZYNK.


			SendMessage 	CREATETEXT
	

		EndIf


		If B BecomesEqualTo 8
		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	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

ITA			SetParameter	Scale1		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale5		0.6	0.6	0.6	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.1	0.3	5.5	4.0
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		Now_watch_your_weapons_panel
FRE			SetParameter	TEXT		Observez_bien_votre_tableau_d'armes_pendant
ITA			SetParameter	TEXT		Ora_osserva_il_pannello_delle_armi_non
SPA			SetParameter	TEXT		Ahora_observa_tu_panel_de_armas
GER			SetParameter	TEXT		Achte_auf_die_Waffenanzeige,_wenn
POL		SetParameter	TEXT	JAK_TYLKO_POSTA_J_WEMIE,

			SendMessage 	CREATETEXT

			SetParameter	Position	0	10.0	0.0	0.0
			SetParameter	TEXT		As_your_character_collects_the_crate.
FRE			SetParameter	TEXT		que_votre_personnage_rcupre_la_caisse.
ITA			SetParameter	TEXT		appena_il_tuo_personaggio_raccoglie_la_cassa.
SPA			SetParameter	TEXT		mientras_el_personaje_recoge_la_caja.
GER			SetParameter	TEXT		dein_Charakter_die_Kiste_einsammelt.
POL		SetParameter	TEXT	SPJRZ_NA_PANEL_UZBROJENIA.


			SendMessage 	CREATETEXT

			Set F To B
			Add 1 To F

		EndIf


		If B BecomesEqualTo 9
		Then

			SetParameter	POSITION	12	4	0	0
			SendMessage	DetonateBlock

			SetParameter	POSITION	13	4	0	0
			SendMessage	DetonateBlock
		EndIf


		If B IsGreaterThanOrEqualTo 8
		Then

			If B IsLessThan 15
			Then

				If B BecomesEqualTo F
				Then

					SetParameter	POSITION	-100	-160	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
					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    ORIENTATION     0.0     0.0     3.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	


					Set F TO B
					Add 1 To F

				EndIf

			EndIf				
				

		EndIf



		If B IsGreaterThanOrEqualTo 9
		Then

			If B IsLessThan 15
			Then

				If B BecomesEqualTo F
				Then

					SetParameter	POSITION	-100	-160	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.2
					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    ORIENTATION     0.0     0.0     3.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	


					Set F TO B
					Add 1 To F

				EndIf

			EndIf				
				

		EndIf
	
		

		If B BecomesEqualTo 16
		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	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.1	0.3	5.5	5.0
			SetParameter	Justify		Centre
	
			SetParameter	Position	0	80.0	0.0	0.0
			SetParameter	TEXT		Do_you_see_that_brand_spanking_new
FRE			SetParameter	TEXT		Voyez-vous_cette_toute_nouvelle_arme
ITA			SetParameter	TEXT		Vedi_quella_nuova_arma_scintillante_che_si
SPA			SetParameter	TEXT		Qu,_ves_la_nueva_adquisicin
GER			SetParameter	TEXT		Hast_du_die_blitzblanke,_nagelneue_Waffe
POL		SetParameter	TEXT	ZAUWAYE_NOWIUTK_BYSZCZCA


			SendMessage 	CREATETEXT

			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		weapon_in_your_secondary_weapons_panel?
FRE			SetParameter	TEXT		dans_le_panneau_des_armes_secondaires?
ITA			SetParameter	TEXT		trova_nel_pannello_dell'arma_secondaria?
SPA			SetParameter	TEXT		en_el_panel_de_armas_secundarias?
GER			SetParameter	TEXT		in_der_Sekundrwaffen-Anzeige_gesehen?
POL		SetParameter	TEXT	BRO,_NA_PANELU_BRONI_DODATKOWYCH?


			SendMessage 	CREATETEXT

			Set F To B
			Add 1 To F

		EndIf


		If B IsGreaterThanOrEqualTo 16
		Then

			If B IsLessThan	22
			Then

				If B BecomesEqualTo F
				Then

					SetParameter	POSITION	-135	-160	0 	0
					SetParameter	LifeTime	0.1	0.1	0.7	0.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    ORIENTATION     0.0     0.0     3.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	

					Set F TO B
					Add 1 To F

				EndIf

			EndIf				
				
		EndIf

		
		If B IsGreaterThanOrEqualTo 22
		Then


			SetParameter POSITION	0.0	-100.0	0.0	0.0
			SendMessage CHANGEWATERHEIGHT


			SetParameter	Colour1		1.0	1.0	1.0	1.0
			SetParameter	Colour2		1.0	1.0	1.0	1.0
			SetParameter	Colour3		1.0	1.0	1.0	1.0
			SetParameter	Colour4		0.0	0.0	0.0	1.0
			SetParameter	Colour5		0.0	0.0	0.0	1.0
			SetParameter	Colour6		0.0	0.0	0.0	1.0
			SetParameter	Scale1		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	80.0	0.0	0.0
			SetParameter	TEXT		Use_your_Swap_Weapon_button
FRE			SetParameter	TEXT		Utilisez_le_bouton_Changer_Arme
ITA			SetParameter	TEXT		Usa_il_pulsante_di_cambio_dell'arma
SPA			SetParameter	TEXT		Utiliza_el_control_'Cambiar_Arma'
GER			SetParameter	TEXT		Benutze_die_Taste_zum_Waffenwechsel
POL		SetParameter	TEXT	SKORZYSTAJ_Z_KLAWISZA_ZMIANY_BRONI.


			SendMessage 	CREATETEXT

			SetParameter	Position	0	45.0	0.0	0.0
			SetParameter	TEXT		to_move_the_new_weapon_from_._._.
FRE			SetParameter	TEXT		pour_dplacer_la_nouvelle_arme_de_._._.
ITA			SetParameter	TEXT		per_selezionare_la_nuova_arma_._._.
SPA			SetParameter	TEXT		para_sacar_el_arma_nueva_._._.
GER			SetParameter	TEXT		um_die_neue_Waffe_zu_tauschen,_von_._._.
POL			SetParameter	TEXT	ABY_PRZENIE_NOW_BRO_


			SendMessage 	CREATETEXT


		EndIf

		If B BecomesEqualTo 22
		Then
			Set P To 1

			SendMessage	FIRINGON

			Set F To B
			Add 2 To F

		EndIf


		If B BecomesEqualTo 23
		Then

			Set V To T
			Add 2 To V

		EndIf

		If B IsGreaterThanOrEqualTo 22
		Then


				If B BecomesEqualTo F
				Then

					SetParameter	POSITION	-135	-130	0 	0
					SetParameter	LifeTime	0.1	0.3	1.0	0.5
					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    Text	Here_To
FRE					SetParameter	TEXT	d_ici.
SPA					SetParameter	TEXT	aqu
GER					SetParameter	TEXT	hier_nach
ITA					SetParameter	TEXT	Da_qui_a
POL					SetParameter	TEXT	Z_STD

	
					SendMessage 	CREATETEXT

					SetParameter	POSITION	-135	-160	0 	0
					SetParameter	LifeTime	0.1	0.3	1.0	0.5
					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    ORIENTATION     0.0     0.0     3.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	

					Set F TO B
					Add 2 To F

				EndIf				
				
		EndIf


		If B IsGreaterThanOrEqualTo 23
		Then

				If T BecomesEqualTo V
				Then

					SetParameter	POSITION	-100	-130	0 	0
					SetParameter	LifeTime	0.1	0.3	1.0	0.5
					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    Text	Here!
FRE					SetParameter	TEXT	a_Ici!
SPA					SetParameter	TEXT	Aqu!
ITA					SetParameter	TEXT	qui!
GER					SetParameter	TEXT	hier!
POL					SetParameter	TEXT	DO_TAM!
	

					SendMessage 	CREATETEXT

					SetParameter	POSITION	-100	-160	0 	0
					SetParameter	LifeTime	0.1	0.3	1.0	0.5
					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    ORIENTATION     0.0     0.0     3.0	0.0
					SetParameter	FRAME	1
					SendMessage 	CREATEICON	

					Set V TO T
					Add 2 To V

				EndIf

		EndIf


		
	EndIf


	If A IsEqualTo 19
	Then

		SetParameter POSITION	0.0	-100.0	0.0	0.0
		SendMessage CHANGEWATERHEIGHT

		SetParameter	Colour4		0.0	0.0	0.0	1.0
		SetParameter	Colour5		0.0	0.0	0.0	1.0
		SetParameter	Colour6		0.0	0.0	0.0	1.0
		SetParameter	Scale1		1.0	1.0	1.0	0.0
		SetParameter	Scale2		1.0	1.0	1.0	0.0
		SetParameter	Scale3		1.0	1.0	1.0	0.0
		SetParameter	Scale4		1.0	1.0	1.0	0.0
		SetParameter	Scale5		1.0	1.0	1.0	0.0

			
		SetParameter	Lifetime	0.0	0.0	0.0	0.0
		SetParameter	Justify		Centre
		

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

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

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

		SetParameter	Position	0	115.0	0.0	0.0
		SetParameter	TEXT		As_you_can_see_your_secondary_weapon
FRE		SetParameter	TEXT		Comme_vous_pouvez_le_constater,_votre_arme
ITA		SetParameter	TEXT		Come_puoi_vedere_la_tua_arma_secondaria
SPA		SetParameter	TEXT		Como_puedes_ver,_tu_segunda_arma
GER		SetParameter	TEXT		Wie_du_siehst,_ist_deine_Zweitwaffe_jetzt
POL		SetParameter	TEXT		JAK_WIDZISZ_DODATKOWA_BRO


		SendMessage 	CREATETEXT

		SetParameter	Position	0	80.0	0.0	0.0
		SetParameter	TEXT		is_now_in_the_primary_Weapon_slot,
FRE		SetParameter	TEXT		secondaire_est_maintenant_dans_l'emplacement
ITA		SetParameter	TEXT		adesso__nello_spazio_dell'arma_primaria,
SPA		SetParameter	TEXT		aparece_ahora_COMO_ARMA_PRINCIPAL,
GER		SetParameter	TEXT		zu_deiner_primren_Waffe_geworden.
POL		SetParameter	TEXT		JEST_TERAZ_BRONI_PODSTAWOW.


		SendMessage 	CREATETEXT

		SetParameter	Position	0	45.0	0.0	0.0
		SetParameter	TEXT		Primed_and_ready_for_use.
FRE		SetParameter	TEXT		Arme_principale,_prte__l'usage.
ITA		SetParameter	TEXT		attiva_e_pronta_all'uso.
SPA		SetParameter	TEXT		cargada_y_lista_para_usar.
GER		SetParameter	TEXT		Geladen_und_entsichert.
POL		SetParameter	TEXT		ZAADOWANA_I_GOTOWA_DO_STRZAU.


		SendMessage 	CREATETEXT

			
		If B BecomesEqualTo 1
		Then

			SetParameter	BLOCKCOLOUR	ALLCOLOURS
			SendMessage	CLEARBLOCKS

		EndIf


		If B BecomesEqualTo 5
		Then

			Set V To T
			Add 2 To V
			Set E TO 19

		EndIf

	EndIf

	If A IsEqualTo 20
	Then

		If B BecomesEqualTo 2
		Then

		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.1	0.5	5.0	7.0
		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		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	Position	0	115.0	0.0	0.0
		SetParameter	TEXT		Well,_that's_your_lot_for_the
FRE		SetParameter	TEXT		Nous_en_avons_fini_avec_le
ITA		SetParameter	TEXT		Bene,_questa_era_la_fine_del_tutorial
SPA		SetParameter	TEXT		Aqu_termina_el_tutorial
GER		SetParameter	TEXT		Nun,_das_war's_fr_das
POL		SetParameter	TEXT		NO_DOBRA,_TO_WSZYSTKO_JEELI


		SendMessage 	CREATETEXT

		SetParameter	Position	0	80.0	0.0	0.0
		SetParameter	TEXT		Stars_and_crates_tutorial,
FRE		SetParameter	TEXT		didacticiel_des_toiles_et_des_caisses.
ITA		SetParameter	TEXT		di_stelle_e_casse._Adesso__il
SPA		SetParameter	TEXT		de_Estrellas_y_Cajas.
GER		SetParameter	TEXT		Sterne_und_Kisten-Tutorial,
POL		SetParameter	TEXT		CHODZI_O_GWIAZDKI_I_SKRZYNIE.


		SendMessage 	CREATETEXT

		SetParameter	Position	0	45.0	0.0	0.0
		SetParameter	TEXT		Now,_It's_onto_the_next_._._.
FRE		SetParameter	TEXT		Il_est_temps_de_passer__la_suite..
ITA		SetParameter	TEXT		momento_del_prossimo_._._.
SPA		SetParameter	TEXT		Pasemos_a_lo_siguiente_._._.
GER		SetParameter	TEXT		weiter_gehts_zum_nchsten_._._.
POL		SetParameter	TEXT		TERAZ_ZAJMIJMY_SI


		SendMessage 	CREATETEXT

		SetParameter	POSITION	0	-175	0	0
		SendMessage	ChangeWaterHeight
	
		EndIf

		
		If B BecomesEqualTo 5
		Then

		SetParameter	TEXT	tut4
		SendMessage	SETNEXTGAMEMODE
		SendMessage	LOSECONDITION


		EndIf		

	EndIf



	If E IsLessThan 100
	Then

		If T BecomesEqualTo V
		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	Scale1		0.7	0.7	0.7	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.0
			SetParameter	Scale3		0.7	0.7	0.7	0.0
			SetParameter	Scale4		0.7	0.7	0.7	0.0
			SetParameter	Scale5		0.7	0.7	0.7	0.0

			SetParameter	LifeTime	0.1	0.3	1.0	0.5

			SetParameter	Position	0.0	-165.0	0.0	0.0
			SetParameter	Text		Press_fire_to_Continue
FRE			SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
ITA			SetParameter	TEXT		Premi_fuoco_per_continuare.
SPA			SetParameter	TEXT		Pulsa_el_disparo_para_Continuar
GER			SetParameter	TEXT		Zum_Fortsetzen_Feuer_drcken
POL			SetParameter	TEXT	NACINIJ_STRZA,_ABY_KONTYNUOWA


			SendMessage 	CREATETEXT

			Set V To T
			Add 2 To V

		EndIf	

	EndIf



	OnMessage SWAPPRESSED
	Do

			If P IsEqualTo 1
			Then

			
				SendMessage FIRINGOFF

				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		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.1	0.5	1.0	2.5
				SetParameter	Justify		Centre
	
				SetParameter	Position	0	0.0	0.0	0.0
				SetParameter	TEXT		Cool!
FRE				SetParameter	TEXT		Cool!
ITA				SetParameter	TEXT		Grande!
SPA				SetParameter	TEXT		Guay!
GER				SetParameter	TEXT		Cool!
POL				SetParameter	TEXT	NIELE!


				SendMessage 	CREATETEXT

				Set B To 0
				Set A To 19
				Set P To 0

			EndIF
							
	EndResponse


	
	OnMessage FIREPRESSED
	Do

		If E IsEqualTo 1
		Then

			If A IsEqualTo 1
			Then
				Set A To 2
				Set B TO 0
				Set E To 100
			EndIf	
		EndIf


		If E IsEqualTo 2
		Then

			If A IsEqualTo 2
			Then
				Set A To 3
				Set B TO 0
				Set E To 100
			EndIf	

		EndIf


		If E IsEqualTo 3
		Then
			If A IsEqualTo 3
			Then
				Set A To 4
				Set B To 0
				Set E To 100
			EndIf

		EndIf


		If E IsEqualTo 4
		Then
			If A IsEqualTo 4
			Then
				Set A To 5
				Set B To 0
				Set E To 100
			EndIf
		EndIf


		If E IsEqualTo 5
		Then
			If A IsEqualTo 5
			Then
				Set A To 6
				Set B To 0
				Set E To 100
			EndIf
		EndIf

		If E IsEqualTo 6
		Then
			If A IsEqualTo 6
			Then
				Set A To 7
				Set B To 0
				Set E To 100
			EndIf
		EndIf



		If E IsEqualTo 7
		Then
			If A IsEqualTo 7
			Then
				Set A To 8
				Set B To 0
				Set E To 100
			EndIf
		EndIf



		If E IsEqualTo 8
		Then
			If A IsEqualTo 8
			Then
				Set A To 9
				Set B To 0
				Set E To 100
			EndIf
		EndIf


		If E IsEqualTo 9
		Then
			If A IsEqualTo 9
			Then
				Set A To 10
				Set B To 0
				Set E To 100
			EndIf
		EndIf

		If E IsEqualTo 10
		Then
			If A IsequalTo 10
			Then
				Set A To 11
				Set E To 100
				Set B TO 0
			EndIf
		EndIf


		If E IsEqualTo 11
		Then
			If A IsequalTo 11
			Then
				Set A To 12
				Set E To 100
				Set B TO 0
			EndIf
		EndIf


		If E IsEqualTo 13
		Then
			If A IsEqualTo 13
			Then
				Set A To 14
				Set B To 0

				Set E To 100

			EndIf

		EndIf

		If E IsEqualTo 14
		Then
			If A IsEqualTo 14
			Then

				Set B To 0
				Set A To 15
				Set E To 100
				
			EndIf

		EndIf

		If E IsEqualTo 15
		Then
			If A IsEqualTo 15
			Then

				Set B To 0
				Set A To 16
				Set E To 100
				
			EndIf

		EndIf

		If E IsEqualTo 16
		Then
			If A IsEqualTo 16
			Then

				Set B To 0
				Set A To 17
				Set E To 100
				
			EndIf

		EndIf

		If E IsEqualTo 17
		Then
			If A IsEqualTo 17
			Then

				Set B To 0
				Set A To 18
				Set E To 100
				
			EndIf

		EndIf


		If E IsEqualTo 19
		Then
			If A IsEqualTo 19
			Then

				Set B To 0
				Set A To 20
				Set E To 100
				
			EndIf

		EndIf

	
	EndResponse

	
EndLoop


Loop FAIL
Do

	OnMessage	TIMER1
	Do

		Add 1 To B
		Add 1 To T

	EndResponse



	If B BecomesEqualTo 1
	Then
		SetParameter	POSITION	8	4	0	0
		SendMessage	DetonateBlock	

		SetParameter	POSITION	9	4	0	0
		SendMessage	DetonateBlock

		SetParameter	POSITION	12	4	0	0
		SendMessage	DetonateBlock

		SetParameter	POSITION	13	4	0	0
		SendMessage	DetonateBlock

		SetParameter	POSITION	16	4	0	0
		SendMessage	DetonateBlock

		SetParameter	POSITION	17	4	0	0
		SendMessage	DetonateBlock

		Set E To 100

	EndIf




	If B IsGreaterThanOrEqualTo 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	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

			
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre
		

	SetParameter	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		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	Position	0	115.0	0.0	0.0
	SetParameter	TEXT		Oh_dear,_You've_not_collected_all
FRE	SetParameter	TEXT		Mon_dieu,_vous_n'avez_pas_rcupr
ITA	SetParameter	TEXT		Oh_no,_non_sei_riuscito_a_raccogliere
SPA	SetParameter	TEXT		Vaya,_no_has_recogido_todas_las_estrellas
GER	SetParameter	TEXT		Oh_je,_du_hast_nicht_alle_Sterne
POL	SetParameter	TEXT	O_NIEE,_NIE_ZEBRAE_WSZYSTKICH_


	SendMessage 	CREATETEXT

	SetParameter	Position	0	80.0	0.0	0.0
	SetParameter	TEXT		the_stars,_thus_the_water_level
FRE	SetParameter	TEXT		toutes_les_toiles._Le_niveau_de_l'eau
ITA	SetParameter	TEXT		tutte_le_stelle_e_cos_non_hai_abbassato
SPA	SetParameter	TEXT		y_por_eso_el_nivel_del_agua
GER	SetParameter	TEXT		gesammelt,_daher_konntest_du_den


	SendMessage 	CREATETEXT

	SetParameter	Position	0	45.0	0.0	0.0
	SetParameter	TEXT		could_not_be_sufficiently_lowered.
FRE	SetParameter	TEXT		n'a_pas_pu_tre_suffisamment_abaiss.
ITA	SetParameter	TEXT		a_sufficienza_il_livello_dell'acqua._Beh,
SPA	SetParameter	TEXT		no_baja_del_todo.
GER	SetParameter	TEXT		Wasserstand_nicht_ausreichend_senken.
POL	SetParameter	TEXT	NIE_MOE_BY_WYSTARCZAJCO_OBNIONY.


	SendMessage 	CREATETEXT

	SetParameter	Position	0	10.0	0.0	0.0
	SetParameter	TEXT		Not_to_worry,_just_give_it_another_go.
FRE	SetParameter	TEXT		Ne_vous_en_faites_pas_et_ressayez.
ITA	SetParameter	TEXT		fa_niente,_prova_di_nuovo!
SPA	SetParameter	TEXT		Pero_no_te_preocupes,_vuelve_a_intentarlo.
GER	SetParameter	TEXT		Aber_keine_Sorge,_probier's_noch_mal.
POL	SetParameter	TEXT	NIE_PRZEJMUJ_SI,_DAMY_CI_JESZCZE_JEDN_SZANS.


	SendMessage 	CREATETEXT


	SetParameter POSITION	0.0	-100.0	0.0	0.0
	SendMessage CHANGEWATERHEIGHT


	SendMessage FIRINGOFF

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION


	EndIf
	


	If B BecomesEqualTo 3
	Then
		SetParameter	POSITION	8	4	0	0
		SetParameter	BLOCKCOLOUR	RED
		SendMessage	SPAWNINBLOCK	

		SetParameter	POSITION	9	4	0	0
		SetParameter	BLOCKCOLOUR	RED
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	12	4	0	0
		SetParameter	BLOCKCOLOUR	RED
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	13	4	0	0
		SetParameter	BLOCKCOLOUR	RED
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	16	4	0	0
		SetParameter	BLOCKCOLOUR	RED
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	17	4	0	0
		SetParameter	BLOCKCOLOUR	RED
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	8	3	0	0
		SetParameter	BLOCKCOLOUR	STAR
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	12	3	0	0
		SetParameter	BLOCKCOLOUR	STAR
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	16	3	0	0
		SetParameter	BLOCKCOLOUR	STAR
		SendMessage	SPAWNINBLOCK


		SetParameter POSITION	0.0	-100.0	0.0	0.0
		SendMessage CHANGEWATERHEIGHT

	EndIf
	
	If B BecomesEqualTo 5
	Then

		Set V To T
		Add 2 To V

		Set E To 22

	EndIf




	If E IsLessThan 100
	Then

		If T BecomesEqualTo V
		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	Scale1		0.7	0.7	0.7	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.0
			SetParameter	Scale3		0.7	0.7	0.7	0.0
			SetParameter	Scale4		0.7	0.7	0.7	0.0
			SetParameter	Scale5		0.7	0.7	0.7	0.0

			SetParameter	LifeTime	0.1	0.3	1.0	0.5

			SetParameter	Position	0.0	-165.0	0.0	0.0
			SetParameter	Text		Press_fire_to_Continue
FRE			SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
ITA			SetParameter	TEXT		Premi_fuoco_per_continuare.
SPA			SetParameter	TEXT		Pulsa_el_disparo_para_Continuar.
GER			SetParameter	TEXT		Zum_Fortsetzen_Feuer_drcken
POL			SetParameter	TEXT		NACINIJ_STRZA,_ABY_KONTYNUOWA


			SendMessage 	CREATETEXT

			Set V To T
			Add 2 To V

		EndIf	

	EndIf


	OnMessage FIREPRESSED
	Do
		If E IsEqualTo 22
		Then


			SetParameter POSITION	0.0	-100.0	0.0	0.0
			SendMessage CHANGEWATERHEIGHT


			Set V To T
			Add 2 To V
			Set B To 0
			Set N To 1
			Set A To 11
			Set E To 100

			GotoLoop	MAIN
		EndIf

	EndResponse

EndLoop

Loop	END
Do
EndLoop

EndFile