GameMode	je15
GameType	QUEST

LandLinesCounter		H
GREENBLOCKSONSCREENCOUNTER	G
LivesRemaining02Counter		Q



Program0123

TEXTBUFFER      LEVS                    
        je15.wbl
ENDBUFFER

LOOP INIT
Do

	SendMessage	DEACTIVATESCORE
	SetParameter	NUMLINES	1
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP9
	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    je15.wbw
	SendMessage     LOADWEAPONLIST



	SendMessage     MUSIC_GROOVE_LOW

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


	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		NO_GREEN_PLEASE
FRE	SetParameter	TEXT		PAS_DE_VERT,_S_._V_._P_.
	SPA SetParameter	Text	VERDE_NO,_GRACIAS
	GER SetParameter	Text	KEIN_GRN_BITTE
	ITA SetParameter	TEXT	NIENTE_VERDE,_GRAZIE
	POL SetParameter	TEXT	PROSZ_TYLKO_NIE_ZIELONE


	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		Changez_le_vert_en_rouge
	SPA SetParameter	Text	Convierte_lo_verde_en_rojo
	GER SetParameter	Text	Frbe_rot_in_grn_um
	ITA SetParameter	TEXT	Cambia_il_verde_in_rosso
	POL SetParameter	TEXT	Zmie_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!
	SPA SetParameter	Text	antes_de_agotar_el_tiempo!
	GER SetParameter	Text	innerhalb_des_Zeitlimits
	ITA SetParameter	TEXT	entro_il_tempo_limite.
	POL SetParameter	TEXT	w_okrelonym_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_drcken
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
	POL SetParameter	TEXT	Nacinij_"Strza"



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

	SPA SetParameter	Text	Pulsa_el_disparo_para_empezar
	SendMessage 	CREATETEXT

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


	OnMessage FIREPRESSED
	Do
SendMessage	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	Prparez-vous!
		SPA SetParameter	Text	Preparado!
		GER SetParameter	Text	Fertig!
		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 14
	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!
		SPA SetParameter	Text	Adelante!
		GER SetParameter	Text	Los!
		ITA SetParameter	TEXT	Via!
		POL SetParameter	TEXT	Start!


		SendMessage	CREATETEXT

		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed

		SendMessage FIRINGON

		Set I To 0
		Set U To 15

		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

	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	Text		Great!
FRE	SetParameter	TEXT		Gnial!
	SPA SetParameter	Text	Genial!
	GER SetParameter	Text	Klasse!
	ITA SetParameter		TEXT	Grande!
	POL SetParameter	TEXT	Brawo!


	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	Text		_
FRE		SetParameter	TEXT		_
		SPA SetParameter	Text	_
		GER SetParameter	Text	_
		ITA SetParameter	TEXT	_
	POL SetParameter	TEXT	_


		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	Prparez-vous!
		SPA SetParameter	Text	Preparado!
		GER SetParameter	Text	Fertig!
		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 14
	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!
		SPA SetParameter	Text	Adelante!
		GER SetParameter	Text	Los!
		ITA SetParameter	TEXT	Via!
		POL SetParameter	TEXT	Start!

		SendMessage	CREATETEXT

		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed

		Set I To 0
		Set U To 30

		SendMessage	FIRINGON

		GotoLoop MAIN9
	endif

EndLoop

Loop MAIN9
	Do

	GoSubLoop TIMER

	If Q BecomesEqualTo -1
	Then

		SendMessage LOSECONDITION
		GotoLoop END3
	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	Text		Great!
FRE	SetParameter	TEXT		Gnial!
	SPA SetParameter	Text	Genial!
	GER SetParameter	Text	Klasse!
	ITA SetParameter	TEXT	Grande!
	POL SetParameter	TEXT	Brawo!

	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	Text		_
FRE		SetParameter	TEXT		_
		SPA SetParameter	Text	_
		GER SetParameter	Text	_
		ITA SetParameter	TEXT	_
	POL SetParameter	TEXT	_


		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	Prparez-vous!
		SPA SetParameter	Text	Preparado!
		GER SetParameter	Text	Fertig!
		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 14
	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!
		SPA SetParameter	Text	Adelante!
		GER SetParameter	Text	Los!
		ITA SetParameter	TEXT	Via!
		POL SetParameter	TEXT	Start!

		SendMessage	CREATETEXT

		SendMessage	FIRINGON
		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed

		Set I To 0
		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 END3
	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		Gnial!
	SPA SetParameter	Text	Genial!
		GER SetParameter	Text	Klasse!
	ITA SetParameter	TEXT	Grande!
		POL SetParameter	TEXT	Brawo!

	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	Position	0.0 	0.0	0.0	0.0
SetParameter	Lifetime	0.2	0.7	3.2	4.2
SetParameter	Scale1		0.4	0.4	0.4	0.0
SetParameter	Scale2		1.4	1.4	1.4	0.0
SetParameter	Scale3		3.4	3.4	3.4	0.0
SetParameter	Scale4		2.0	2.0	2.0	0.0
SetParameter	Scale5		1.8	1.8	1.8	0.0
SetParameter	Colour1		0.18	0.9	0.1	1.0
SetParameter	Colour2		0.18	0.9	0.1	1.0
SetParameter	Colour3		0.18	0.9	0.1	1.0
SetParameter	Colour4		1.0	1.0	1.0	1.0
SetParameter	Colour5		0.0	0.0	0.0	1.0
SetParameter	Colour6		0.0	0.0	0.0	1.0
SetParameter	Text	SUCCESS!
FRE SetParameter	TEXT	RUSSI!
SPA SetParameter	Text	LO_CONSEGUISTE!
GER SetParameter	Text	GESCHAFFT!
ITA SetParameter	TEXT	HAI_VINTO!
POL SetParameter	TEXT	Nastpny


SendMessage	CREATETEXT





			SetParameter	TEXT	jegg39
			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 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!
			SPA SetParameter	TEXT	TIEMPO!
			GER SetParameter	TEXT	ENDE!
			ITA SetParameter	TEXT	TEMPO_ESAURITO!
			POL SetParameter	TEXT	Czas_upyn


			SendMessage	CREATETEXT

			SendMessage 	LOSECONDITION
GOTOLOOP CHECK

EndLoop






Loop CHECK
Do
EndLoop
EndFile