GameMode	aatt
GameType	QUEST

LandLinesCounter		H
GREENBLOCKSONSCREENCOUNTER	G
LivesRemaining02Counter		Q



Program0123

TEXTBUFFER      LEVS                    
        aatt.wbl
ENDBUFFER

LOOP INIT
Do
	SetParameter	NUMLINES	1
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP10
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                60           
        SendMessage     LOADLEVEL

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter	INTERVAL	999200
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	1
	SendMessage	SetStartLines

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT


	SetParameter	MESSAGE_ID	TIMER7
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


	SetParameter    TEXT    aatt.wbw
	SendMessage     LOADWEAPONLIST

	SendMessage	DEACTIVATESCORE



	SendMessage     MUSIC_GROOVE_LOW

	Set X To 0
	Set I To 2
	Set U To 30
	Set Q To 0

	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing
	GotoLoop	BRIEF
EndLoop


Loop BRIEF
Do






	SetParameter	Colour1		1.0	0.86	0.03	1.0
	SetParameter	Colour2		1.0	0.86	0.03	1.0
	SetParameter	Colour3		1.0	0.86	0.03	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.3	1.3	1.3	0.0
	SetParameter	Scale2		1.3	1.3	1.3	0.0
	SetParameter	Scale3		1.3	1.3	1.3	0.0
	SetParameter	Scale4		1.3	1.3	1.3	0.0
	SetParameter	Scale5		1.3	1.3	1.3	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		ALIEN_ATTACK
FRE	SetParameter	TEXT		ATTAQUE_EXTRATERRESTRE
	GER SetParameter	Text	ALIEN_ANGRIFF
	SPA SetParameter	Text	ATAQUE_ALIEN
	ITA SetParameter	TEXT	ATTACCO_ALIENO
	POL SetParameter	TEXT	Atak_obcych
	


	SendMessage 	CREATETEXT

	SetParameter	Colour1	1.0	1.0	1.0	1.0
	SetParameter	Colour2	1.0	1.0	1.0	1.0
	SetParameter	Colour3	1.0	1.0	1.0	1.0
	SetParameter	Colour4	0.0	0.0	0.0	1.0
	SetParameter	Colour5	0.0	0.0	0.0	1.0
	SetParameter	Colour6	0.0	0.0	0.0	1.0
	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SetParameter	Scale5		0.8	0.8	0.8	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	115.0	0.0	0.0
	SetParameter	Text		Change_green_to_red
FRE	SetParameter	TEXT		Passez_du_vert_au_rouge
	GER SetParameter	Text	Färbe_grün_um_in_rot
	SPA SetParameter	Text	¡Cámbialo_todo_de_verde_a_rojo
	ITA SetParameter	TEXT	Cambia_il_verde_in_rosso
	POL SetParameter	TEXT	Zamieñ_zielone_na_czerwone,



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		within_the_time_limit!
FRE	SetParameter	TEXT		dans_le_temps_imparti!
	GER SetParameter	Text	innerhalb_des_Zeitlimits!
	SPA SetParameter	Text	dentro_del_tiempo_establecido!
	ITA SetParameter	TEXT	prima_che_scada_il_tempo!
	POL SetParameter	TEXT	w_okreœlonym_czasie


	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	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	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
	GER SetParameter	Text	Zum_Starten_Feuer_drücken
	POL SetParameter	TEXT	Naciœnij_"Strza³"




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

	SPA SetParameter	Text	Pulsa_el_disparo_para_empezar
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare



	SendMessage 	CREATETEXT

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


	OnMessage FIREPRESSED
	Do
SendMessage	MUSIC_GROOVE_MED_LOW
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT

		SendMessage EndBriefing

		Set Z To 0	
		GotoLoop MAIN
		
	EndResponse



EndLoop


Loop MAIN
Do
	OnMessage TIMER7
	Do

		Add 1 To Z

	EndResponse

	If Z BecomesEqualTo 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	LifeTime	0.2	0.2	1.0	1.5
		SetParameter	Justify		Centre

		SetParameter	POSITION	0.0	25.0	0.0	0.0
		SetParameter	TEXT	Get_Ready!
FRE		SetParameter	TEXT	Préparez-vous!
		GER SetParameter	Text	Fertig!
		SPA SetParameter	Text	¡Preparado!
		ITA SetParameter	TEXT	Pronto!
	POL SetParameter	TEXT	Gotowy



		SendMessage	CREATETEXT

	EndIf


	If Z IsEqualTo 5
	Then
		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed
	
		set H to 0
		GotoLoop MAIN2
	EndIf

	
	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight
EndLoop


Loop MAIN2
Do
	If H IsEqualTo 20
	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	LifeTime	0.2	0.2	1.0	1.5
		SetParameter	Justify		Centre

		SetParameter	POSITION	0.0	25.0	0.0	0.0
		SetParameter	TEXT	Go!
FRE		SetParameter	TEXT	Allez-y!
		GER SetParameter	Text	Los!
		SPA SetParameter	Text	¡Adelante!
		ITA SetParameter	TEXT	Via!
	POL SetParameter	TEXT	Ruszaj



		SendMessage	CREATETEXT

		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed

		SendMessage FIRINGON

		Set I To 2
		Set U To 30

		GotoLoop MAIN3
	endif

	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight
EndLoop

Loop MAIN3
Do

	GoSubLoop TIMER

	If Q BecomesEqualTo -1
	Then

		SendMessage LOSECONDITION
	GOTOLOOP CHECK
	EndIf


	If G IsLessThan 1
	Then
		GotoLoop MAIN4
	EndIf

	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

EndLoop


Loop MAIN4
Do

	SetParameter	BLOCKCOLOUR	ALLCOLOURS
	SendMessage	CLEARBLOCKS
	
	SetParameter	Position	25.0	0.0	0.0	0.0
	SetParameter	LifeTime	0.2	0.2	1.0	1.5
	SetParameter	Text		Great!
FRE	SetParameter	TEXT		Génial!
	GER SetParameter	Text	Toll!
	SPA SetParameter	Text	¡Genial!
	ITA SetParameter	TEXT	Grande!
	POL SetParameter	TEXT	Wspaniale



	SendMessage	CREATETEXT

	Set Z To 0
	SendMessage	FIRINGOFF

	GotoLoop MAIN5


EndLoop


Loop MAIN5
Do

	OnMessage	TIMER7
	Do

		Add 1 To Z

	EndResponse

	If Z IsEqualTo 2
	Then
		SetParameter	Position	0.0	-25.0	0.0	0.0
		SetParameter	LifeTime	0.2	0.2	1.0	1.5
		SetParameter	Text		Next
FRE		SetParameter	TEXT		Suivant
		GER SetParameter	Text	Der_nächste
		SPA SetParameter	Text	Siguiente
		ITA SetParameter	TEXT	Prossimo
	POL SetParameter	TEXT	Nastêpny


		SendMessage	CREATETEXT
		SetParameter 	BLOCKCOLOUR ALLCOLOURS
		SendMessage	CLEARBLOCKS

		SendMessage	MUSIC_GROOVE_LOW

		GotoLoop MAIN6
	EndIf


	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

EndLoop


LOOP MAIN6
Do

	SetParameter	INTERVAL	999200
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	1
	SendMessage	SetStartLines

	Set Z To 0


	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	GotoLoop	MAIN7
EndLoop

Loop MAIN7
Do
	OnMessage TIMER7
	Do

		Add 1 To Z

	EndResponse


	If Z BecomesEqualTo 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	LifeTime	0.2	0.2	1.0	1.5
		SetParameter	Justify		Centre

		SetParameter	POSITION	0.0	25.0	0.0	0.0
		SetParameter	TEXT	Get_Ready!
FRE		SetParameter	TEXT	Préparez-vous!
		GER SetParameter	Text	Fertig!
		SPA SetParameter	Text	¡Preparado!
		ITA SetParameter	TEXT	Pronto!
	POL SetParameter	TEXT	Gotowy


		SendMessage	CREATETEXT


	EndIf

	If Z IsEqualTo 5
	Then
		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed
	
		set H to 0
		GotoLoop MAIN8
	EndIf


	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight
	
EndLoop

Loop MAIN8
Do


	If H IsEqualTo 18
	then	

		SetParameter	Colour1		1.0	1.0	1.0	1.0
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter 	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Colour4		0.0	0.0	0.0	1.0
		SetParameter	Colour5		0.0	0.0	0.0	1.0
		SetParameter 	Colour6		0.0	0.0	0.0	1.0
		SetParameter	LifeTime	0.2	0.2	1.0	1.5
		SetParameter	Justify		Centre

		SetParameter	POSITION	0.0	25.0	0.0	0.0
		SetParameter		TEXT	Go!
FRE		SetParameter		TEXT	Allez-y!
		GER SetParameter	Text	Los!
		SPA SetParameter	Text	¡Adelante!
		ITA SetParameter	TEXT	Via!
	POL SetParameter	TEXT	Ruszaj



		SendMessage	CREATETEXT

		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed

		Set I To 1
		Set U To 45

		SendMessage	FIRINGON

		GotoLoop MAIN9
	endif

EndLoop

Loop MAIN9
	Do

	GoSubLoop TIMER

	If Q BecomesEqualTo -1
	Then

		SendMessage LOSECONDITION

	EndIf


	If G IsLessThan 1
	Then

		GotoLoop MAIN10

	EndIf

	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

EndLoop

Loop MAIN10
Do

	SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
	SendMessage	CLEARBLOCKS
	
	SendMessage	FIRINGOFF

	SetParameter	Position	0.0	25.0	0.0	0.0
	SetParameter	LifeTime	0.2	0.2	1.0	1.5
	SetParameter	Text		Great!
FRE	SetParameter	TEXT		Génial!
	GER SetParameter	Text	Toll!
	SPA SetParameter	Text	¡Genial!
	ITA SetParameter	TEXT	Grande!
	POL SetParameter	TEXT	Wspaniale

	SendMessage	CREATETEXT

	Set Z To 0

	GotoLoop MAIN11
EndLoop


Loop MAIN11
Do
	OnMessage	TIMER7
	Do
		
		Add 1 To Z
		
	EndResponse


	If Z IsEqualTo 2
	Then
		SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
		SendMessage	CLEARBLOCKS

		SetParameter	Position	0.0	-25.0	0.0	0.0
		SetParameter	LifeTime	0.2	0.2	1.0	1.5
		SetParameter		Text		Next
FRE		SetParameter		TEXT	Suivant
		GER SetParameter	Text	Der_nächste
		SPA SetParameter	Text	Siguiente
		ITA SetParameter	TEXT	Prossimo
	POL SetParameter	TEXT	Nastêpny



		SendMessage	CREATETEXT



		SendMessage	MUSIC_GROOVE_LOW

		GotoLoop MAIN14

	EndIf

	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight



EndLoop



LOOP MAIN14
Do

	SetParameter	INTERVAL	999200
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	1
	SendMessage	SetStartLines


	Set Z To 0

	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight
	GotoLoop	MAIN15
EndLoop

Loop MAIN15
Do
	OnMessage TIMER7
	Do

		Add 1 To Z

	EndResponse


	If Z BecomesEqualTo 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	LifeTime	0.2	0.2	1.0	1.5
		SetParameter	Justify		Centre

		SetParameter	POSITION	0.0	25.0	0.0	0.0
		SetParameter	TEXT	Get_Ready!
FRE		SetParameter	TEXT	Préparez-vous!
		GER SetParameter	Text	Fertig!
		SPA SetParameter	Text	¡Preparado!
		ITA SetParameter	TEXT	Pronto!
	POL SetParameter	TEXT	Gotowy


		SendMessage	CREATETEXT

	EndIf


	If Z IsEqualTo 7
	Then
		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed



		set H to 0

		GotoLoop MAIN16
	EndIf

	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

EndLoop

Loop MAIN16
Do
	If H IsEqualTo 18
	then	

		SetParameter	Colour1		1.0	1.0	1.0	1.0
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter 	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Colour4		0.0	0.0	0.0	1.0
		SetParameter	Colour5		0.0	0.0	0.0	1.0
		SetParameter 	Colour6		0.0	0.0	0.0	1.0
		SetParameter	LifeTime	0.2	0.2	1.0	1.5
		SetParameter	Justify		Centre

		SetParameter	POSITION	0.0	25.0	0.0	0.0
		SetParameter	TEXT	Go!
FRE		SetParameter	TEXT	Allez-y!
		GER SetParameter	Text	Los!
		SPA SetParameter	Text	¡Adelante!
		ITA SetParameter	TEXT	Via!
	POL SetParameter	TEXT	Ruszaj




		SendMessage	CREATETEXT

		SendMessage	FIRINGON
		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed

		Set I To 1
		Set U To 45

		GotoLoop MAIN17
	endif	


	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight
EndLoop

Loop MAIN17
Do


	GoSubLoop TIMER

	If Q BecomesEqualTo -1
	Then

		SendMessage LOSECONDITION
	GOTOLOOP CHECK
	EndIf



	If G IsLessThan 1
	Then
	
		GotoLoop MAIN18
	EndIf

	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

EndLoop

Loop MAIN18
Do

	SendMessage	FIRINGOFF

	SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
	SendMessage	CLEARBLOCKS	

	SetParameter	Position	0.0	25.0	0.0	0.0
	SetParameter	Text		Great!
FRE	SetParameter	TEXT		Génial!

	GER SetParameter	Text	Toll!
	SPA SetParameter	Text	¡Genial!
	ITA SetParameter	TEXT	Grande!
	POL SetParameter	TEXT	Wspaniale




	SendMessage	CREATETEXT

	Set Z To 0

	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	GotoLoop MAIN25
EndLoop

Loop MAIN25
Do
	OnMessage	TIMER7
	Do
	
		Add 1 To Z

	EndResponse	

	If Z IsEqualTo 2
	Then

		SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
		SendMessage	CLEARBLOCKS

		SendMessage	FIRINGON
		SetParameter	TEXT	bombs
		SendMessage	SETNEXTGAMEMODE
		SendMessage	LOSECONDITION

		GotoLoop CHECK
	EndIf


	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

EndLoop


Loop TIMER
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		3
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	180.0	210.0	0.0	0.0
	SendMessage	CREATEICON

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








OnMessage TIMER7
	Do
	

		SetParameter	Velocity	0.0	0.0	0.0	0.0


		If Z IsGreaterThan 60
		Then
			Subtract 60 From U
			Add 1 to I
			
		EndIf

		Subtract 1 from U

		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Position	240.0	210.0	0.0	0.0
		SetParameter	Scale1		0.8	0.8	0.8	0.8
		SetParameter	Scale2		0.8	0.8	0.8	0.8
		SetParameter	Scale3		0.8	0.8	0.8	0.8
		SetParameter	Scale4		0.8	0.8	0.8	0.8
		SetParameter	Scale5		0.8	0.8	0.8	0.8





		If U IsLessThan 0
		Then
			Subtract 1 from I

			Set U To 59
			
		EndIf

		If I IsEqualTo 0
		Then

			If U IsLessThan 11
			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
			
			EndIf

		EndIf

		If U IsLessThan 10
		Then
			SetParameter	Text		0
			SetParameter	Position	240.0	210.0	0.0	0.0
			SendMessage	CREATETEXT
			SetParameter	Position	255.0	210.0	0.0	0.0
		EndIf

		If U IsEqualTo 60 
		Then

			Set U TO 00
			ConvertToText   U
			SendMessage	CREATETEXT
			
			Set U To 60

		EndIf
		


		If I IsEqualTo -1
		Then

			Set U To 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	TEXT	0
			SetParameter	Position	240.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			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	0
			SetParameter	Position	255.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			Set I To 0



			GotoLoop END
		EndIf

	SetParameter	Scale1		0.8	0.8	0.8	0.8
	SetParameter	Scale2		0.8	0.8	0.8	0.8
	SetParameter	Scale3		0.8	0.8	0.8	0.8
	SetParameter	Scale4		0.8	0.8	0.8	0.8
	SetParameter	Scale5		0.8	0.8	0.8	0.8
		If U IsEqualTo 0
		Then

			If I IsEqualTo 0
			Then


				GotoLoop END
			EndIf		

		EndIf


		If U IsLessThan 60
		Then

			ConvertToText   U
			SendMessage	CREATETEXT

		EndIf

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

		ConvertToText	I
		SetParameter	Position	215.0	210.0	0.0	0.0
		SendMessage	CREATETEXT

	EndResponse

	If I IsLessThan 1
	Then

		If U BecomesEqualTo 50
		Then

			SendMessage	MUSIC_GROOVE_MED

		EndIf


		If U BecomesEqualTo 30
		Then

			SendMessage	MUSIC_GROOVE_HIGH

		EndIf
	EndIf


EndLoop

Loop FAIL
Do

	OnMessage TIMER7
	Do

		Add 1 To Z

	EndResponse



	If Z BecomesEqualTo 1
	Then
		SetParameter	Justify		Centre
		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	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.2	2.0	1.5

		SetParameter	POSITION	0.0	25.0	0.0	0.0
		SetParameter	TEXT	Mission_failed
	FRE	SetParameter	TEXT	ÉCHEC_de_la_mission
	GER SetParameter	Text	Mission_fehlgeschlagen
	SPA SetParameter	Text	Misión_Fallida
	ITA SetParameter	TEXT	MISSIONE_FALLITA
	POL SetParameter	TEXT	Misja_nieudana

	

		SendMessage	CREATETEXT

		SetParameter	POSITION	0.0	-25.0	0.0	0.0
		SetParameter	TEXT	Out_of_time!
FRE		SetParameter	TEXT	Temps_limite_dépassé!
	GER SetParameter	Text	Zeit_abgelaufen!
	SPA SetParameter	Text	¡Se_acabó_el_tiempo!
	ITA SetParameter	TEXT	Tempo_esaurito!
	POL SetParameter	TEXT	Czas_up³yn¹³




		SendMessage	CREATETEXT
	EndIf

	If Z BecomesEqualTo 3
	Then
		
		SendMessage LOSECONDITION

	EndIf


EndLoop




Loop END
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		TIME'S_UP!
FRE			SetParameter	TEXT		TEMPS_ÉCOULÉ!
			GER SetParameter	Text	Zeit_abgelaufen!
			SPA SetParameter	Text	¡TIEMPO!
			ITA SetParameter	TEXT	Tempo_scaduto!
	POL SetParameter	TEXT	Czas_up³yn¹³


			SendMessage	CREATETEXT

			SendMessage 	LOSECONDITION
GOTOLOOP CHECK

EndLoop






Loop CHECK
Do
EndLoop
EndFile