GameMode	gclear
GameType	QUEST
	

Program0123

LANDDROPPEDINWATERCOUNTER	W
TOTALBLOCKSONSCREENCOUNTER	T

TEXTBUFFER	LEVS

	gclear.wbl

ENDBUFFER

Loop INIT
Do

	SetParameter    TEXT    gclear.wbw
        SendMessage     LOADWEAPONLIST
	
	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter    LIVES   1
	SendMessage     SETLIVES


	SetParameter	BACKDROP	BACKDROP5
	SendMessage	SETBACKDROP

	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20        	
        SendMessage     LOADLEVEL

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER	

	SET W To 0
	Set X to 59
	Set Z to 1
	Set T to 1000

	SendMessage	DEACTIVATESCORE


SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT
	SendMessage	FIRINGOFF
	SendMessage	StartBriefing



	SendMessage     MUSIC_GROOVE_LOW
		
	GotoLoop FUN
		

EndLoop

Loop FUN
Do

	
	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	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	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		Screen_Clear
FRE	SetParameter	TEXT		Écran_libre
	GER SetParameter	Text	Bildschirm_abräumen
	SPA SetParameter	Text	Pantalla_Despejada
	ITA SetParameter	TEXT	Pulisci_lo_schermo
	POL SetParameter	TEXT	Teren_czysty



	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		You_have_2_minutes_to
FRE	SetParameter	TEXT		Vous_avez_2_minutes_pour
	GER SetParameter	Text	Du_hast_2_Minuten_um		
	SPA SetParameter	Text	Tienes_2_minutos_para
	ITA SetParameter	TEXT	Hai_2_minuti_per
	POL SetParameter	TEXT	Masz_2_minuty_na_


	
	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0

	SetParameter	Text		destroy_all_of_the_blocks.
FRE	SetParameter	TEXT		détruire_tous_les_blocs.
	GER SetParameter	Text alle_Steine_zu_zerstören.
	SPA SetParameter	Text	destruir_todos_los_bloques.
	ITA SetParameter	TEXT	distruggere_tutti_i_blocchi.
	POL SetParameter	TEXT	zniszczenie_wszystkich_cegieł


	
	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		Dont_drop_any_into_the_water!
FRE	SetParameter	TEXT		N'en_laissez_pas_tomber_dans_l'eau!
	GER SetParameter	Text	Lass_keine_ins_Wasser_fallen!
	SPA SetParameter	Text	ˇNo_dejes_que_caigan_al_agua!
	ITA SetParameter	TEXT	Non_farli_cadere_in_acqua!
	POL SetParameter	TEXT	Nie_upuść_żadnej_do_wody.



	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
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
	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
	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 FIRINGON
		SendMessage	EndBriefing
	
	SendMessage     MUSIC_GROOVE_MED_LOW

		GotoLoop MAIN

	EndResponse



Endloop

Loop MAIN
Do

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT



	OnMessage TIMER1
	Do
		Subtract 1 from X
	EndResponse

SetParameter	FRAME		3
	SetParameter	Lifetime	0.0	0.0	1.0	0.0
	SetParameter	Position	149.0	210.0	0.0	0.0
	SendMessage	CREATEICON
		
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
			SetParameter	Position	230.0	210.0	0.0	0.0
				If X IsLessThan 10
				Then
					SetParameter	Text		0
					SetParameter	Position	225.0	210.0	0.0	0.0
					SetParameter	Lifetime	0.0	0.0	0.0	0.0
					SendMessage	CREATETEXT
					SetParameter	Position	245.0	210.0	0.0	0.0
				EndIf
			ConvertToText   X
			SendMessage	CREATETEXT
			ConvertToText	Z
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
			SetParameter	Position	190.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

If X IsLessThan 0
Then
	
	Subtract 1 From Z
	Set X To 59

EndIF


			If X BecomesEqualTo 30
			Then
	
			SendMessage     MUSIC_GROOVE_MED
			EndIf

	
	
			If X BecomesEqualTo 10
			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	DÉPĘCHEZ-VOUS_!!
GER SetParameter	Text	MACH_SCHNELL!
SPA SetParameter	Text	ˇDEPRISA!
ITA SetParameter	TEXT	SBRIGATI!
POL SetParameter	TEXT	Pośpiesz_się



SendMessage	CREATETEXT
			SendMessage     MUSIC_GROOVE_HIGH
			EndIf
					
If Z IsEqualTo 0
Then
			If X IsEqualTo 0
			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		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_upłynął



SendMessage	CREATETEXT
				SendMessage LOSECONDITION
				GotoLoop INF
			EndIf

EndIf

	


If W BECOMESGREATERTHAN 0  
	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_!
GER SetParameter	Text	VERLOREN!
SPA SetParameter	Text	ˇFALLASTE!
ITA SetParameter	TEXT	HAI_FALLITO!
POL SetParameter	TEXT	klęska



SendMessage	CREATETEXT
	

		SendMessage	LOSECONDITION
		GotoLoop	INF
	endif

If T BECOMESEQUALTO 4
	then

	SendMessage	WINCONDITION
	Set X to -30	
GotoLoop INF

	endif

EndLoop

Loop INF
Do
EndLoop

EndFile


