GameMode	orange
GameType	QUEST

	LandLinesCounter		H
	OrangeComboCounter		R

Program0123

TEXTBUFFER      LEVS
        orange.wbl
ENDBUFFER

Loop INIT 
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	BACKDROP	BACKDROP12
	SendMessage	SETBACKDROP

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	TEXT	orange.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                120
        SendMessage     LOADLEVEL
	
	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Velocity	0.0	0.01	0.0	0.0
	SetParameter	Gravity		0.0	0.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	Colour1		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	Lifetime	0.1	0.5	1.0	1.5
	SetParameter	Justify		Centre

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT
	SendMessage	STARTBRIEFING
	SendMessage	FIRINGOFF

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	0200
	SetParameter	REPEAT		TRUE
	SendMessage	CreateTimer

	SendMessage	MUSIC_GROOVE_LOW

	Set S to 0
	Set G to 0
	Set H to 0
	Set R to 0

	Set A to 0
	Set B to 0
	Set C to 0
	Set D to 0
	Set E to 0
	Set F to 0

	Set X to 1

	SendMessage	QUAKENO
	SendMessage	DEACTIVATESCORE

	GotoLoop CHECK
EndLoop

Loop CHECK
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	13000
		SetParameter	REPEAT		TRUE
		SendMessage	CreateTimer
		SendMessage	MUSIC_GROOVE_MED_LOW
		GotoLoop MAIN1
	EndResponse
EndLoop

Loop BRIEF
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	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

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

ITA	SetParameter	Scale1		1.0	1.2	1.0	0.0
ITA	SetParameter	Scale2		1.2	1.2	1.2	0.0
ITA	SetParameter	Scale3		1.2	1.2	1.2	0.0
ITA	SetParameter	Scale4		1.2	1.2	1.2	0.0
ITA	SetParameter	Scale5		1.2	1.2	1.2	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		GO_FOR_ORANGE_2_OF_3
POL	SetParameter	TEXT		Pomarańczka_2_z_3
FRE	SetParameter	TEXT		ASSAUT_SUR_L'ORANGE_2_sur_3
ITA	SetParameter	TEXT		CACCIA_ALL'ARANCIONE_2_di_3
SPA	SetParameter	TEXT		A_POR_EL_NARANJA_2_de_3
GER	SetParameter	TEXT		TRIFF_ORANGE_2_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

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

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


GER	SetParameter	Scale1		0.1	0.1	0.1	0.0
GER	SetParameter	Scale2		0.6	0.6	0.6	0.0
GER	SetParameter	Scale3		0.6	0.6	0.6	0.0
GER	SetParameter	Scale4		0.6	0.6	0.6	0.0
GER	SetParameter	Scale5		0.6	0.6	0.6	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		Your_goal_is_to_hit_the_orange_group_of
POL	SetParameter	TEXT		Twoje_zadanie_to_trafianie_w_pomarańczowe
FRE	SetParameter	TEXT		votre_objectif_est_de_détruire_le_groupe
SPA	SetParameter	TEXT		Tu_objetivo_es_alcanzar_el_grupo_de_bloques_naranja.
ITA	SetParameter	TEXT		Il_tuo_scopo_č_colpire_il_gruppo_di_blocchi_arancione.
GER	SetParameter	TEXT		Das_Ziel_ist_es_die_orangen_Steine_zu_treffen!
	SendMessage	CreateText

	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		blocks!_You_get_just_over_10_seconds_to
POL	SetParameter	TEXT		cegły._MASZ_10_SEKUND_NA_ZNISZCZENIE
FRE	SetParameter	TEXT		de_blocs_orange._Vous_n'avez_qu'un_peu_plus 
SPA	SetParameter	TEXT		Sólo_tienes_unos_diez_segundos_para_destruir
ITA	SetParameter	TEXT		Hai_soltanto_dieci_secondi_per_distruggere
GER	SetParameter	TEXT		Du_hast_gut_10_Sekunden_Zeit_um_die_orangen
	SendMessage	CreateText

	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		destroy_the_blocks_on_each_shape!_Six
POL	SetParameter	TEXT		CEGIEŁ_W_KA_DYM_OBIEKCIE._NA
FRE	SetParameter	TEXT		de_10_secondes_pour_détruire_les_blocs_de
SPA	SetParameter	TEXT		los_bloques_naranja_de_cada_forma.
ITA	SetParameter	TEXT		i_blocchi_di_ogni_forma!_In_totale_ci_sono_sei
GER	SetParameter	TEXT		Steine_in_jeder_Figur_abzuräumen!_Du_musst


	SendMessage	CreateText

	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		shapes_will_appear_in_total_and_you_must
POL	SetParameter	TEXT		EKRANIE_POJAWI_SIĘ_SZEŚĆ_GRUP_CEGIEŁ,
FRE	SetParameter	TEXT		chaque_forme._Six_formes_apparaîtront_et
SPA	SetParameter	TEXT		Aparecerán_seis_formas_en_total,_
ITA	SetParameter	TEXT		forme_e_tu_devi_distruggerne_almeno_cinque,
GER	SetParameter	TEXT		mindestens_fünf_der_orangen_Steine_in_den



	SendMessage	CreateText

	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		complete_at_least_five_of_them_to
POL	SetParameter	TEXT		A_TY_MUSISZ_ZNISZCZYĆ_PIĘĆ_ABY_UKOŃCZYĆ
FRE	SetParameter	TEXT		vous_devez_en_réussir_au_moins_cinq_pour
SPA	SetParameter	TEXT		y_deberás_completar_al_menos_cinco_para_
ITA	SetParameter	TEXT		perché_la_missione_sia_considerata
GER	SetParameter	TEXT		sechs_verschiedenen_formen_treffen_um


	SendMessage	CreateText

	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		complete_the_mission.
POL	SetParameter	TEXT		MISJĘ.
FRE	SetParameter	TEXT		réussir_la_mission.
SPA	SetParameter	TEXT		superar_la_prueba.
ITA	SetParameter	TEXT		superata!
GER	SetParameter	TEXT		die_Mission_zu_beenden!


	SendMessage	CreateText

	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale2		1.0	1.0	1.0	1.0
	SetParameter	Scale3		1.0	1.0	1.0	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		1.0	1.0	1.0	1.0
/	SetParameter	FRAME		7/
	SetParameter	FRAME		4
	SetParameter	Position	-30.0	-210.0	0.0	0.0
	SendMessage	CREATEICON

	SetParameter	Scale1		0.5	0.5	0.5	0.5
	SetParameter	Scale2		0.5	0.5	0.5	0.5
	SetParameter	Scale3		0.5	0.5	0.5	0.5
	SetParameter	Scale4		0.5	0.5	0.5	0.5
	SetParameter	Scale5		0.5	0.5	0.5	0.5

	SetParameter	Position	0.0	-202.0	0.0	0.0
	SetParameter	Text		?
	SendMessage	CREATETEXT

	SetParameter	Position	15.0	-202.0	0.0	0.0
	SetParameter	Text		?
	SendMessage	CREATETEXT

	SetParameter	Position	30.0	-202.0	0.0	0.0
	SetParameter	Text		?
	SendMessage	CREATETEXT

	SetParameter	Position	0.0	-217.0	0.0	0.0
	SendMessage	CREATETEXT

	SetParameter	Position	15.0	-217.0	0.0	0.0
	SetParameter	Text		?
	SendMessage	CREATETEXT

	SetParameter	Position	30.0	-217.0	0.0	0.0
	SetParameter	Text		?
	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		Naciśnij_"Strzał"
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_drücken
	SendMessage 	CREATETEXT
EndLoop

Loop WAIT
Do
	OnMessage TIMER2
	Do
		GotoLoop MAIN1
	EndResponse
EndLoop

Loop MAIN1
Do
	GosubLoop SCORE

	SetParameter	Position	0.0	-150.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	If R BecomesGreaterThan 1
	Then
		Add 1 to S
		Set X to 0
		SetParameter	Position	0.0	-25.0	0.0	0.0
		SetParameter	Colour2		1.0	0.6	0.0	1.0
		SetParameter	Colour3		1.0	0.6	0.0	1.0
		SetParameter	Scale1		0.1	0.1	0.1	0.0
		SetParameter	Scale2		0.9	0.9	0.9	0.0
		SetParameter	Scale3		0.9	0.9	0.9	0.0
		SetParameter	Scale4		0.9	0.9	0.9	0.0
		SetParameter	Scale5		0.9	0.9	0.9	0.0
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter Text	COMPLETE!
POL		SetParameter	TEXT	SUKCES!
FRE		SetParameter TEXT	TERMINÉ!
ITA		SetParameter TEXT	COMPLETATO!
SPA		SetParameter	TEXT	ˇTERMINADO!
GER		SetParameter	TEXT	KOMPLETT!
		SendMessage	CREATETEXT

		If G IsEqualTo 0
		Then
			Set A to 1
		EndIf

		If G IsEqualTo 1
		Then
			Set B to 1
		EndIf

		If G IsEqualTo 2
		Then
			Set C to 1
		EndIf

		If G IsEqualTo 3
		Then
			Set D to 1
		EndIf

		If G IsEqualTo 4
		Then
			Set E to 1
		EndIf

		If G IsEqualTo 5
		Then
			Set F to 1
		EndIf
	EndIf

	OnMessage TIMER1
	Do
		If X IsEqualTo 1
		Then
			If G IsEqualTo 0
			Then
				Set A to 2
			EndIf

			If G IsEqualTo 1
			Then
				Set B to 2
			EndIf

			If G IsEqualTo 2
			Then
				Set C to 2
			EndIf

			If G IsEqualTo 3
			Then
				Set D to 2
			EndIf

			If G IsEqualTo 4
			Then
				Set E to 2
			EndIf

			If G IsEqualTo 5
			Then
				Set F to 2
			EndIf
		EndIf

		Add 1 to G
		Set R to 0

		GosubLoop DESTROYBLOCKS
		GotoLoop MAIN2
	EndResponse

	If G BecomesGreaterThan 1
	Then
		SendMessage	MUSIC_GROOVE_MED
	EndIf

	If G BecomesGreaterThan 2
	Then
		SendMessage	MUSIC_GROOVE_MED_HI
	EndIf

	If G BecomesGreaterThan 3
	Then
		SendMessage	MUSIC_GROOVE_HIGH
	EndIf
		
	If G BecomesGreaterThan 4
	Then
		GotoLoop ENDGAME
	EndIf
EndLoop

Loop MAIN2
Do
	GosubLoop SCORE

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0500
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer
	GotoLoop MAIN2A
EndLoop

Loop MAIN2A
Do
	GosubLoop SCORE

	OnMessage TIMER2
	Do
			GotoLoop MAIN3
	EndResponse
EndLoop

Loop MAIN3
Do
	GosubLoop SCORE

	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed
	SendMessage UNPAUSELANDLEFT
	SendMessage UNPAUSELANDRIGHT
	set H to 0
	GotoLoop MAIN4
EndLoop

Loop MAIN4
Do
	GosubLoop SCORE

	If H IsEqualTo 20
	then	
		SetParameter	INTERVAL	100000
		SendMessage	SetLandSpeed
		SendMessage PAUSELANDLEFT
		SendMessage PAUSELANDRIGHT
		Set X to 1
		GotoLoop MAIN1
	endif
EndLoop

Loop DESTROYBLOCKS
Do
	GosubLoop SCORE

	SetParameter	Position	0.0 	0.0 	1.0 	0.0
	SetParameter	BlockColour	ALLCOLOURS
	SendMessage	CLEARBLOCKS
EndLoop

Loop ENDGAME
Do
	GosubLoop SCORE

	SetParameter	Position	0.0	-150.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	OnMessage TIMER1
	Do
		SetParameter	Position	0.0 	0.0 	1.0 	0.0
		SetParameter	BlockColour	ALLCOLOURS
		SendMessage	CLEARBLOCKS

		If X IsEqualTo 1
		Then
			If G IsEqualTo 5
			Then
				Set F to 2
			EndIf
		EndIf

		Set R to 0

		GotoLoop DECIDER
	EndResponse

	If R BecomesGreaterThan 1
	Then
		Add 1 to S
		SetParameter	Position	0.0	-25.0	0.0	0.0
		SetParameter	Colour2		1.0	0.6	0.0	1.0
		SetParameter	Colour3		1.0	0.6	0.0	1.0
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Scale1		0.1	0.1	0.1	0.0
		SetParameter	Scale2		0.9	0.9	0.9	0.0
		SetParameter	Scale3		0.9	0.9	0.9	0.0
		SetParameter	Scale4		0.9	0.9	0.9	0.0
		SetParameter	Scale5		0.9	0.9	0.9	0.0
		SetParameter Text	COMPLETE!
POL		SetParameter	TEXT	SUKCES!
FRE		SetParameter TEXT	TERMINÉ!
ITA		SetParameter TEXT	COMPLETATO!
SPA		SetParameter	TEXT	ˇTERMINADO!
GER		SetParameter	TEXT	KOMPLETT!
		SendMessage	CREATETEXT

		Set X to 0

		If G IsEqualTo 5
		Then
			Set F to 1
		EndIf
	EndIf
EndLoop

Loop DECIDER
Do
	GosubLoop SCORE

	If S IsGreaterThanOrEqualTo 5
	Then
		GotoLoop WIN
	EndIf

	If S IsLessThan 5
	Then
		GotoLoop LOSE
	EndIf
EndLoop

Loop SCORE
Do
	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale2		1.0	1.0	1.0	1.0
	SetParameter	Scale3		1.0	1.0	1.0	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		1.0	1.0	1.0	1.0
/	SetParameter	FRAME		7/
	SetParameter	FRAME		4
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	-30.0	-210.0	0.0	0.0
	SendMessage	CREATEICON

	SetParameter	Scale1		0.5	0.5	0.5	0.5
	SetParameter	Scale2		0.5	0.5	0.5	0.5
	SetParameter	Scale3		0.5	0.5	0.5	0.5
	SetParameter	Scale4		0.5	0.5	0.5	0.5
	SetParameter	Scale5		0.5	0.5	0.5	0.5

	SetParameter	Position	0.0	-202.0	0.0	0.0
	SetParameter	Text		?
	If A IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If A IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	15.0	-202.0	0.0	0.0
	SetParameter	Text		?
	If B IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If B IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	30.0	-202.0	0.0	0.0
	SetParameter	Text		?
	If C IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If C IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	0.0	-217.0	0.0	0.0
	SetParameter	Text		?
	If D IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If D IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	15.0	-217.0	0.0	0.0
	SetParameter	Text		?
	If E IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If E IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	30.0	-217.0	0.0	0.0
	SetParameter	Text		?
	If F IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If F IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT
EndLoop

Loop WIN
Do
	GosubLoop SCORE

	/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	Réussi!
ITA	SetParameter	TEXT	HAI_VINTO!
SPA	SetParameter	TEXT	ˇLO_CONSEGUISTE!
GER	SetParameter	TEXT		Geschafft!
	SendMessage	CREATETEXT/

	Set S to 0
	Set G to 0
	Set H to 0
	Set R to 0

	SendMessage	WINCONDITION
	GotoLoop INFINITE
EndLoop

Loop LOSE
Do
	GosubLoop SCORE

	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		PORAŻKA!
FRE	SetParameter	TEXT		ÉCHEC!
ITA	SetParameter	TEXT		HAI_FALLITO!
SPA	SetParameter	TEXT		ˇFALLASTE!
GER	SetParameter	TEXT		VERLOREN!

	Set S to 0
	Set G to 0
	Set H to 0
	Set R to 0

	SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop INFINITE
EndLoop
	
Loop INFINITE
Do
	GosubLoop SCORE
EndLoop
EndFile

