GameMode	clear2
GameType	QUEST
	WaterHeightCounter			H
LivesRemaining02Counter		Q
TotalBlocksOnScreenCounter		T


Program0123

TEXTBUFFER      LEVS                  


        clear2.wbl


ENDBUFFER

Loop INIT
Do


	SetParameter	NUMLINES	17
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP3
	SendMessage	SETBACKDROP
        SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                40             
        SendMessage     LOADLEVEL

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
		SetParameter	LIVES	0
	SendMessage	SETLIVES
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	120500
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	60500
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter    TEXT    clear2.wbw
	SendMessage     LOADWEAPONLIST

	SendMessage	DEACTIVATESCORE

SendMessage	MUSIC_GROOVE_LOW
SET Z TO 60
Set X To 1
Set Q To 0
	SendMessage	FIRINGOFF
	SendMessage StartBriefing
SendMessage     MUSIC_GROOVE_LOW





	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		CLEAR_THE_SCREEN
FRE	SetParameter	TEXT		DBLAYEZ_L'CRAN
	GER 	SetParameter	Text	RUME_DEN_BILDSCHIRM_AB
	SPA SetParameter	Text	DESPEJA_LA_PANTALLA
	ITA SetParameter	TEXT	Ripulisci_lo_schermo
	POL SetParameter	TEXT	Oczy_ekran


	
	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		120_Seconds_To
FRE	SetParameter	TEXT		120_secondes_pour
	GER 	SetParameter	Text	120_Sekunden_um_den
	SPA SetParameter	Text	Dispones_de_120_segundos
	ITA SetParameter	TEXT	120_secondi_per
	POL SetParameter	TEXT	Masz_120_sekund_na



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Clear_The_Screen
FRE	SetParameter	TEXT		dblayer_l'cran
	GER 	SetParameter	Text	Bildschirm_abzurumen
	SPA SetParameter	Text	para_despejar_toda_la_pantalla.
	ITA SetParameter	TEXT	ripulire_lo_schermo.
	POL SetParameter	TEXT	wyczyszczenie_ekranu.


	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 EndBriefing
		SendMessage FIRINGON
	SetParameter	MESSAGE_ID	TIMER9
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER





	
		GotoLoop MAIN
		
	EndResponse
EndLoop

Loop MAIN
Do

	
	If Q BecomesEqualTo -1
	Then
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!
FRE SetParameter	TEXT	CHEC_!
SPA SetParameter	Text	FALLASTE!
GER SetParameter	Text	VERLOREN!
ITA SetParameter	TEXT	HAI_FALLITO!
POL SetParameter	TEXT	Klska


	
SendMessage	CREATETEXT
		SendMessage LOSECONDITION
GOTOLOOP END
	EndIf


	

	GotoLoop		MAIN2
EndLoop







Loop MAIN2
Do
	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight
	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 TIMER9
	Do
	

		SetParameter	Velocity	0.0	0.0	0.0	0.0


		If Z IsGreaterThan 60
		Then
			Subtract 60 From Z
			Add 1 to X
			
		EndIf

		Subtract 1 from Z

		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Position	240.0	210.0	0.0	0.0






		If Z IsLessThan 0
		Then
			Subtract 1 from X

			Set Z To 59
			
		EndIf

		If X IsEqualTo 0
		Then

			If Z 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 Z 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 Z IsEqualTo 60 
		Then

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

		EndIf
		


		If X IsEqualTo -1
		Then

			Set Z 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 X To 0


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



			SendMessage	CREATETEXT

			SendMessage 	LOSECONDITION
			GotoLoop END
		EndIf


		If Z IsEqualTo 0
		Then

			If X IsEqualTo 0
			Then
				GOTOLOOP TEND
			
			EndIf		

		EndIf


		If Z IsLessThan 60
		Then

			ConvertToText   Z
			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	X
		SetParameter	Position	215.0	210.0	0.0	0.0
		SendMessage	CREATETEXT

	EndResponse




	







	If X IsEqualTo 0
	Then


		If Z BecomesEqualTo 0
		Then
		
			GOTOLOOP TEND


		EndIf



		If Z BecomesEqualTo 60
		Then
		
			

			SetParameter	Scale1		0.5	1.5	0.6	0.0
			SetParameter	Scale2		1.5	2.5	1.6	0.0
			SetParameter	Lifetime	1.1	1.5	2.5	2.9
			SetParameter	Position	0.0	25.0	0.0	0.0
			SetParameter	Text		60_seconds_gone!
FRE			SetParameter	TEXT		60_secondes_coules!
			GER SetParameter	Text		60_Sekunden!
			SPA SetParameter	Text	Quedan_60_segundos!
			ITA SetParameter	TEXT	Sono_passati_60_secondi!
			POL SetParameter	TEXT	Mino_ju_60_sekund



			SendMessage	CREATETEXT
			SendMessage	MUSIC_GROOVE_MED
				
		EndIf

	

		If Z BecomesEqualTo 20
		Then
		
			
			SetParameter	Position	340.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.5	2.5	0.5
			SetParameter	Velocity	-0.4	0.0	0.0	0.0
			SetParameter	Scale1		2.0	2.0	2.0	0.0
			SetParameter	Scale2		3.0	3.0	3.0	0.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	Text		HURRY_UP!!
FRE			SetParameter	TEXT		DPCHEZ-VOUS!
			GER SetParameter	Text	BEEIL_DICH!
			SPA SetParameter	Text	DEPRISA!
			ITA SetParameter	TEXT	SBRIGATI!
			POL SetParameter	TEXT	Popiesz_si!



			SendMessage	CREATETEXT
			SendMessage	MUSIC_GROOVE_HIGH
				
		EndIf



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


			SetParameter	TEXT	ColsTarM
			SendMessage	SETNEXTGAMEMODE
			SendMessage	LOSECONDITION
			GotoLoop		END


		EndIf


	EndIf






	If Q BecomesEqualTo -1
	Then
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!
FRE SetParameter	TEXT	CHEC_!
SPA SetParameter	Text	FALLASTE!
GER SetParameter	Text	VERLOREN!
ITA SetParameter	TEXT	HAI_FALLITO!
POL SetParameter	TEXT	Klska


	
SendMessage	CREATETEXT
		SendMessage LOSECONDITION
GOTOLOOP END
	EndIf








EndLoop





Loop TEND
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		ENDE!
			SPA SetParameter	Text	TIEMPO!
			ITA SetParameter	TEXT	TEMPO_ESAURITO!
			POL SetParameter	TEXT	Czas_upyn

			SendMessage	CREATETEXT
			

			SendMessage	LOSECONDITION
			GotoLoop		END
EndLoop







Loop END
Do

EndLoop


EndFile	
