GameMode	dash1
	LandLinesCounter		H
	LivesRemaining02Counter		Q
Program0123

TEXTBUFFER      LEVS
         dash1.wbl
ENDBUFFER

Loop INIT
Do
	SetParameter	BACKDROP	BACKDROP13
	SendMessage	SETBACKDROP

	SendMessage	STARTBRIEFING
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT

	SetParameter	INTERVAL	100000
	SendMessage	SetLandSpeed

        SetParameter    LIVES   	0
        SendMessage     SETLIVES

	SetParameter	NUMLINES	0
	SendMessage	SetStartLines
	
        SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                248
        SendMessage     LOADLEVEL

	SendMessage 	QUAKENO

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	1100
	SetParameter	REPEAT		TRUE
	SendMessage	CreateTimer

	Set G to 1
	Set H to 0
	Set Q to 0
	Set A to 0
	Set T to 0

	SendMessage	MUSIC_GROOVE_LOW


	SetParameter	POSITION	-210	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	SendMessage	DEACTIVATESCORE

	SendMessage	FIRINGOFF
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	GotoLoop BRIEF
EndLoop
/briefing/
Loop BRIEF
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    Colour1         1.0     0.86    0.03    1.0
        SetParameter    Colour2         1.0     0.86    0.03    1.0
        SetParameter    Colour3         1.0     0.86    0.03    1.0
        SetParameter    Colour4         0.0     0.0     0.0     1.0
        SetParameter    Colour5         0.0     0.0     0.0     1.0
        SetParameter    Colour6         0.0     0.0     0.0     1.0
	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		COLOUR_DASH_1_of_3
POL	SetParameter	TEXT		KOLOROWANKA_1_z_3
FRE	SetParameter	TEXT		COURSE_A_LA_COULEUR_1_sur_3
SPA	SetParameter	TEXT		CDIGOS_DE_COLOR_1_de_3
ITA	SetParameter	TEXT		UNA_NOTA_DI_COLORE_1_di_3
GER 	SetParameter	TEXT		FARBENSPRINT_1_von_3
	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SetParameter	Scale5		0.8	0.8	0.8	0.0
	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	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	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		Avoid_the_coloured_blocks_that_fall_and
POL	SetParameter	TEXT		UNIKAJ_SPADAJC_KOLOROWYCH_CEGIE_I
FRE	SetParameter	TEXT		vitez_les_blocs_colors_qui_tombent
SPA 	SetParameter	TEXT		Evita_los_bloques_de_colores_que_caen
ITA	SetParameter	Scale1		0.1	0.1	0.1	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
ITA	SetParameter	TEXT		Evita_i_blocchi_colorati_che_cadono_e_prendi
GER 	SetParameter	TEXT		Weiche_den_herabfallenden_farbigen_Blcken
	SendMessage	CreateText

	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		take_notice_of_which_colours_the_blocks
POL	SetParameter	TEXT		ZWR_UWAG_NA_ICH_KOLORY.
FRE	SetParameter	TEXT		et_souvenez-vous_de_la_couleur_de_ces
SPA 	SetParameter	TEXT		y_toma_nota_de_los_colores_de_los_bloques.
ITA	SetParameter	Scale1		0.1	0.1	0.1	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
ITA	SetParameter	TEXT		nota_di_quelli_che_sono_i_loro_colori!_Dovrai
GER 	SetParameter	TEXT		aus_und_merke_dir,_welche_Farben_gefallen
	SendMessage	CreateText

	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		are!_Next_you_must_move_towards_the_word
POL	SetParameter	TEXT		TERAZ_PRZEJD_DO_SOWA,
FRE	SetParameter	TEXT		blocs._Dplacez-vous_ensuite_vers_le_mot
SPA 	SetParameter	TEXT		Lo_que_tienes_que_hacer_ahora_es_moverte
ITA	SetParameter	Scale1		0.1	0.1	0.1	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
ITA	SetParameter	TEXT		cercare_di_muoverti_verso_la_parola_del_colore
GER 	SetParameter	TEXT		sind!_Danach_musst_du_dich_zu_dem_Wort
	SendMessage	CreateText

	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		that_has_the_same_colour_as_the_missing
POL	SetParameter	TEXT		KTRE_JEST_W_BRAKUJCYM_KOLORZE,
FRE	SetParameter	TEXT		qui_a_une_couleur_identique__celle
SPA 	SetParameter	TEXT		hacia_la_palabra_que_indica_el_color
ITA	SetParameter	Scale1		0.1	0.1	0.1	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
ITA	SetParameter	TEXT		identico_a_quello_mancante,_per_potere_essere
GER 	SetParameter	TEXT		bewegen,_dass_in_der_Farbe_geschrieben
	SendMessage	CreateText

	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		colour_to_keep_safe!_Look_for_the_odd
POL	SetParameter	TEXT		ABY_BY_BEZPIECZNYM/_PAMITAJ
FRE	SetParameter	TEXT		qui_manquait._Reprez_bien_aussi
SPA 	SetParameter	TEXT		que_faltaba_en_la_serie.
ITA	SetParameter	Scale1		0.1	0.1	0.1	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
ITA	SetParameter	TEXT		al_sicuro!_Cerca_di_capire_qual__il_colore
GER 	SetParameter	TEXT		ist,_die_dabei_gefehlt_hat._Suche_nach_der
	SendMessage	CreateText

	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		one_out!
POL	SetParameter	TEXT		RWNIE__O_ODD_ONE_OUT.
FRE	SetParameter	TEXT		celui_qui_est_dpareill.
SPA 	SetParameter	TEXT		Venga,_busca,_compara...!
ITA	SetParameter	Scale1		0.1	0.1	0.1	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
ITA	SetParameter	TEXT		che_manca!
GER 	SetParameter	TEXT		fehlenden_Farbe!
	SendMessage	CreateText

	SetParameter	Colour1		1.0	0.0	0.0	1.0
	SetParameter	Colour2		1.0	0.0	0.0	1.0
	SetParameter	Colour3		1.0	0.0	0.0	1.0

	SetParameter	Scale1		0.1	0.1	0.1	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	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
POL	SetParameter	TEXT		Nacinij_"Strza"
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
SPA 	SetParameter	Text		Pulsa_el_disparo_para_empezar.
ITA	SetParameter	TEXT		Premi_fuoco_per_cominciare
GER 	SetParameter	TEXT		Zum_Starten_Feuer_drcken
POL	SetParameter	TEXT		Nacioenij_"Strza"
	SendMessage	CreateText


	OnMessage FIREPRESSED
	Do
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		SendMessage	MUSIC_GROOVE_MED_LOW
		SendMessage	FIRINGON
		SendMessage	ENDBRIEFING
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		Add 1 to G
		GotoLoop LANDDROP
	EndResponse

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop
/briefing/
Loop EXTIMER
Do
	If G IsEqualTo 1
	Then
		Set T to 0
		GotoLoop EXCLAIM
	EndIf

	If G IsEqualTo 2
	Then
		Set T to 0
		GotoLoop EXCLAIM2
	EndIf

	If G IsEqualTo 3
	Then
		Set T to 0
		GotoLoop EXCLAIM3
	EndIf

	If G IsEqualTo 4
	Then
		Set T to 0
		GotoLoop EXCLAIM4
	EndIf

	If G IsEqualTo 5
	Then
		Set T to 0
		GotoLoop EXCLAIM5
	EndIf

	If G IsEqualTo 6
	Then
		Set T to 0
		GotoLoop EXCLAIM6
	EndIf

	If G IsEqualTo 7
	Then
		Set T to 0
		GotoLoop EXCLAIM7
	EndIf

	If G IsEqualTo 8
	Then
		Set T to 0
		GotoLoop EXCLAIM8
	EndIf

	If A IsEqualTo 10
	Then
		GotoLoop WIN
	EndIf

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	If A BecomesGreaterThan 3
	Then
		SendMessage	MUSIC_GROOVE_MED
	EndIf

	If A BecomesGreaterThan 6
	Then
		SendMessage	MUSIC_GROOVE_MED_HI
	EndIf

	If A BecomesGreaterThan 8
	Then
		SendMessage	MUSIC_GROOVE_HIGH
	EndIf
EndLoop

Loop LANDDROP
Do
	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	0700
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer

	GotoLoop LANDDROPA
EndLoop

Loop LANDDROPA
Do
	OnMessage TIMER5
	Do
			SetParameter	MESSAGE_ID	TIMER2
			SetParameter	INTERVAL	0500
			SetParameter	REPEAT		FALSE
			SendMessage	CreateTimer
			GotoLoop LANDDROP1
	EndResponse
EndLoop

Loop LANDDROP1
Do
	OnMessage TIMER2
	Do
			GotoLoop LANDDROP2
	EndResponse
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop LANDDROP2
Do
	set H to 0
	SetParameter	INTERVAL	0020
	SendMessage	SetLandSpeed

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	GotoLoop LANDDROP3
EndLoop

Loop LANDDROP3
Do
	If H IsEqualTo 31
	then	
		SetParameter	INTERVAL	100000
		SendMessage	SetLandSpeed
		Add 1 to A
		GotoLoop EXTIMER
	endif

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop EXCLAIM
Do
	OnMessage	TIMER3
	Do

	SetParameter	Position	-190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.91	0.21	0.0	1.0
	SetParameter	Colour3		0.91	0.21	0.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		FOLLOW_ME!
POL	SetParameter	TEXT		ZA_MN!
FRE	SetParameter	TEXT		SUIVEZ-MOI!
	GER SetParameter	Text	MIR_NACH!
	SPA SetParameter	Text	SGUEME!
	ITA SetParameter	TEXT	SEGUIMI!


	SendMessage	CreateText

	SetParameter	Position	0.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.64	0.28	1.0	1.0
	SetParameter	Colour3		0.64	0.28	1.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		THIS_WAY!
POL	SetParameter	TEXT		TDY!
FRE	SetParameter	TEXT		PAR_ICI!
	GER SetParameter	Text	HIER_LANG!
	SPA SetParameter	Text	POR_AQU!
	ITA SetParameter	TEXT	RAPIDO!




	SendMessage	CreateText

	SetParameter	Position	190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.33	0.78	0.15	1.0
	SetParameter	Colour3		0.33	0.78	0.15	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		OVER_HERE!
POL	SetParameter	TEXT		TUTAJ!
FRE	SetParameter	TEXT		VITE!
	GER SetParameter	Text	DIESE_SEITE!
	SPA SetParameter	Text	VEN!
	ITA SetParameter	TEXt	DI_QUA!



	SendMessage	CreateText

	Add 1 to T

	EndResponse

	If T IsEqualTo 3
		Then
			Add 1 to G
			GotoLoop LANDDROP
		EndIf

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop


Loop EXCLAIM2
Do
	OnMessage	TIMER3
	Do
	SetParameter	Position	-190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.64	0.28	1.0	1.0
	SetParameter	Colour3		0.64	0.28	1.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		THIS_WAY!
POL	SetParameter	TEXT		TDY!
FRE	SetParameter	TEXT		PAR_ICI!
	GER SetParameter	Text	HIER_LANG!
	SPA SetParameter	Text	POR_AQU!
	ITA SetParameter	TEXt	RAPIDO!



	SendMessage	CreateText

	SetParameter	Position	0.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.91	0.21	0.0	1.0
	SetParameter	Colour3		0.91	0.21	0.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		OVER_HERE!
POL	SetParameter	TEXT		TUTAJ!
FRE	SetParameter	TEXT		VITE!
	GER SetParameter	Text	DIESE_SEITE!
	SPA SetParameter	Text	VEN!
	ITA SetParameter	TEXT	DI_QUA!


	SendMessage	CreateText

	SetParameter	Position	190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.33	0.78	0.15	1.0
	SetParameter	Colour3		0.33	0.78	0.15	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		FOLLOW_ME!
POL	SetParameter	TEXT		ZA_MN!
FRE	SetParameter	TEXT		SUIVEZ-MOI!
	GER SetParameter	Text	MIR_NACH!
	SPA SetParameter	Text	SGUEME!
	ITA SetParameter	TEXT	SEGUIMI!


	SendMessage	CreateText

	Add 1 to T

	EndResponse

	If T IsEqualTo 3
		Then
			Add 1 to G
			GotoLoop LANDDROP
		EndIf

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop EXCLAIM3
Do
	OnMessage	TIMER3
	Do

	SetParameter	Position	-190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.33	0.78	0.15	1.0
	SetParameter	Colour3		0.33	0.78	0.15	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		OVER_HERE!
POL	SetParameter	TEXT		TUTAJ!
FRE	SetParameter	TEXT		VITE!
	GER SetParameter	Text	DIESE_SEITE!
	SPA SetParameter	Text	VEN!
	ITA SetParameter	TEXT	DI_QUA!


	SendMessage	CreateText

	SetParameter	Position	0.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.91	0.21	0.0	1.0
	SetParameter	Colour3		0.91	0.21	0.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		THIS_WAY!
POL	SetParameter	TEXT		TDY!
FRE	SetParameter	TEXT		PAR_ICI!
	GER SetParameter	Text	HIER_LANG!
	SPA SetParameter	Text	POR_AQU!	
	ITA SetParameter	TEXT	RAPIDO!



	SendMessage	CreateText

	SetParameter	Position	190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.64	0.28	1.0	1.0
	SetParameter	Colour3		0.64	0.28	1.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		FOLLOW_ME!
POL	SetParameter	TEXT		ZA_MN!
FRE	SetParameter	TEXT		SUIVEZ-MOI!
	GER SetParameter	Text	MIR_NACH!
	SPA SetParameter	Text	SGUEME!
	ITA SetParameter	TEXT	SEGUIMI!


	SendMessage	CreateText

	Add 1 to T

	EndResponse

	If T IsEqualTo 3
		Then
			Add 1 to G
			GotoLoop LANDDROP
		EndIf

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop EXCLAIM4
Do
	OnMessage	TIMER3
	Do

	SetParameter	Position	-190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.64	0.28	1.0	1.0
	SetParameter	Colour3		0.64	0.28	1.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		THIS_WAY!
POL	SetParameter	TEXT		TDY!
FRE	SetParameter	TEXT		PAR_ICI!
	GER SetParameter	Text	HIER_LANG!
	SPA SetParameter	Text	POR_AQU!
	ITA SetParameter	TEXT	RAPIDO!



	SendMessage	CreateText

	SetParameter	Position	0.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.91	0.21	0.0	1.0
	SetParameter	Colour3		0.91	0.21	0.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		OVER_HERE!
POL	SetParameter	TEXT		TUTAJ!
FRE	SetParameter	TEXT		VITE!
	GER SetParameter	Text	DIESE_SEITE!
	SPA SetParameter	Text	VEN!
	ITA SetParameter	TEXT	DI_QUA!


	SendMessage	CreateText

	SetParameter	Position	190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.33	0.78	0.15	1.0
	SetParameter	Colour3		0.33	0.78	0.15	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		FOLLOW_ME!
POL	SetParameter	TEXT		ZA_MN!
FRE	SetParameter	TEXT		SUIVEZ-MOI!
	GER SetParameter	Text	MIR_NACH!
	SPA SetParameter	Text	SGUEME!
	ITA SetParameter	TEXT	SEGUIMI!


	SendMessage	CreateText

	Add 1 to T

	EndResponse

	If T IsEqualTo 3
		Then
			Add 1 to G
			GotoLoop LANDDROP
		EndIf

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop EXCLAIM5
Do
	OnMessage	TIMER3
	Do

	SetParameter	Position	-190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.91	0.21	0.0	1.0
	SetParameter	Colour3		0.91	0.21	0.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		FOLLOW_ME!
POL	SetParameter	TEXT		ZA_MN!
FRE	SetParameter	TEXT		SUIVEZ-MOI!
	GER SetParameter	Text	MIR_NACH!
	SPA SetParameter	Text	SGUEME!
	ITA SetParameter	TEXT	DI_QUA!

	SendMessage	CreateText

	SetParameter	Position	0.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.33	0.78	0.15	1.0
	SetParameter	Colour3		0.33	0.78	0.15	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		OVER_HERE!
POL	SetParameter	TEXT		TUTAJ!
FRE	SetParameter	TEXT		VITE!
	GER SetParameter	Text	DIESE_SEITE!
	SPA SetParameter	Text	VEN!
	ITA SetParameter	TEXT	SEGUIMI!


	SendMessage	CreateText

	SetParameter	Position	190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.64	0.28	1.0	1.0
	SetParameter	Colour3		0.64	0.28	1.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		THIS_WAY!
POL	SetParameter	TEXT		TDY!
FRE	SetParameter	TEXT		PAR_ICI!
	GER SetParameter	Text	HIER_LANG!
	SPA SetParameter	Text	POR_AQU!
	ITA SetParameter	TEXt	RAPIDO!


	SendMessage	CreateText

	Add 1 to T

	EndResponse

	If T IsEqualTo 3
		Then
			Add 1 to G
			GotoLoop LANDDROP
		EndIf

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop EXCLAIM6
Do
	OnMessage	TIMER3
	Do

	SetParameter	Position	-190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.64	0.28	1.0	1.0
	SetParameter	Colour3		0.64	0.28	1.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		FOLLOW_ME!
POL	SetParameter	TEXT		ZA_MN!
FRE	SetParameter	TEXT		SUIVEZ-MOI!
	GER SetParameter	Text	MIR_NACH!
	SPA SetParameter	Text	SGUEME!
	ITA SetParameter	TEXt	SEGUIMI!


	SendMessage	CreateText

	SetParameter	Position	0.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.91	0.21	0.0	1.0
	SetParameter	Colour3		0.91	0.21	0.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		OVER_HERE!
POL	SetParameter	TEXT		TUTAJ!
FRE	SetParameter	TEXT		VITE!
	GER SetParameter	Text	DIESE_SEITE!
	SPA SetParameter	Text	VEN!
	ITA SetParameter	TEXt	SEGUIMI!

	SendMessage	CreateText

	SetParameter	Position	190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.33	0.78	0.15	1.0
	SetParameter	Colour3		0.33	0.78	0.15	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		THIS_WAY!
POL	SetParameter	TEXT		TDY!
FRE	SetParameter	TEXT		PAR_ICI!
	GER SetParameter	Text	HIER_LANG!
	SPA SetParameter	Text	POR_AQU!
	ITA SetParameter	TEXT	RAPIDO!


	SendMessage	CreateText

	Add 1 to T

	EndResponse

	If T IsEqualTo 3
		Then
			Add 1 to G
			GotoLoop LANDDROP
		EndIf

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop EXCLAIM7
Do
	OnMessage	TIMER3
	Do

	SetParameter	Position	-190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.64	0.28	1.0	1.0
	SetParameter	Colour3		0.64	0.28	1.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		OVER_HERE!
POL	SetParameter	TEXT		TUTAJ!
FRE	SetParameter	TEXT		VITE!
	GER SetParameter	Text	DIESE_SEITE!
	SPA SetParameter	Text	VEN!
	ITA SetParameter	TEXt	RAPIDO!

	SendMessage	CreateText

	SetParameter	Position	0.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.91	0.21	0.0	1.0
	SetParameter	Colour3		0.91	0.21	0.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		FOLLOW_ME!
POL	SetParameter	TEXT		ZA_MN!
FRE	SetParameter	TEXT		SUIVEZ-MOI!
	GER SetParameter	Text	MIR_NACH!
	SPA SetParameter	Text	SGUEME!
	ITA SetParameter	TEXt	SEGUIMI!
	SendMessage	CreateText

	SetParameter	Position	190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.33	0.78	0.15	1.0
	SetParameter	Colour3		0.33	0.78	0.15	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		THIS_WAY!
POL	SetParameter	TEXT		TDY!
FRE	SetParameter	TEXT		PAR_ICI!
	GER SetParameter	Text	HIER_LANG!
	SPA SetParameter	Text	POR_AQU!
	ITA SetParameter	TEXT	RACCOGLIMI!


	SendMessage	CreateText

	Add 1 to T

	EndResponse

	If T IsEqualTo 3
		Then
			Add 1 to G
			GotoLoop LANDDROP
		EndIf

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop EXCLAIM8
Do
	OnMessage	TIMER3
	Do

	SetParameter	Position	-190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.64	0.28	1.0	1.0
	SetParameter	Colour3		0.64	0.28	1.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		OVER_HERE!
POL	SetParameter	TEXT		TUTAJ!
FRE	SetParameter	TEXT		VITE!
	GER SetParameter	Text	DIESE_SEITE!
	SPA SetParameter	Text	VEN!
	ITA SetParameter	TEXt	DI_QUA!

	SendMessage	CreateText

	SetParameter	Position	0.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.91	0.21	0.0	1.0
	SetParameter	Colour3		0.91	0.21	0.0	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		FOLLOW_ME!
POL	SetParameter	TEXT		ZA_MN!
FRE	SetParameter	TEXT		SUIVEZ-MOI!
	GER SetParameter	Text	MIR_NACH!
	SPA SetParameter	Text	SGUEME!
	ITA SetParameter	TEXt	SEGUIMI!
	SendMessage	CreateText

	SetParameter	Position	190.0	-140.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	SetParameter	Colour2		0.33	0.78	0.15	1.0
	SetParameter	Colour3		0.33	0.78	0.15	1.0
	SetParameter	Lifetime	0.0	0.0	0.5	0.3
	SetParameter	Justify		Centre
	SetParameter	Text		THIS_WAY!
POL	SetParameter	TEXT		TDY!
FRE	SetParameter	TEXT		PAR_ICI!
	GER SetParameter	Text	HIER_LANG!
	SPA SetParameter	Text	POR_AQU!
	ITA SetParameter	TEXt	RAPIDO!


	SendMessage	CreateText

	Add 1 to T

	EndResponse

	If T IsEqualTo 3
		Then
			Set G to 1
			GotoLoop LANDDROP
		EndIf

	If Q BecomesLessThan 0
	Then
		Gotoloop LOSE
	EndIf

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop WIN
Do
	If Q IsGreaterThanOrEqualTo 0
	Then

		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!
POL		SetParameter	TEXT	Sukces!
FRE		SetParameter	TEXT	RUSSI!
		GER SetParameter	Text	GESCHAFFT!
		SPA SetParameter	Text	LO_CONSEGUISTE!
		ITA SetParameter	TEXT	HAI_VINTO!


		SendMessage	CREATETEXT
		SetParameter	TEXT	laser2
		SendMessage	SETNEXTGAMEMODE
		SendMessage	LOSECONDITION
	
		GotoLoop INFINITE
	EndIf

	If Q IsLessThan 0
	Then
		GotoLoop LOSE
	EndIf
	
EndLoop

Loop LOSE
Do
	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!
POL	SetParameter	TEXT		Klska!
FRE	SetParameter	TEXT		CHEC!
	GER SetParameter	Text	VERLOREN!
	SPA SetParameter	Text	FALLASTE!
	ITA SetParameter	TEXT	HAI_FALLITO!


	SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop INFINITE
EndLoop

Loop INFINITE
Do
EndLoop

EndFile

