GameMode	flower
GameType	QUEST

YELLOWBLOCKSONSCREENCOUNTER	Y
REDBLOCKSONSCREENCOUNTER	R
LivesRemaining02Counter		Q



Program0123


TEXTBUFFER      LEVS                    


        flower.wbl


ENDBUFFER


Loop INIT
Do






	
	SetParameter	NUMLINES	19
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP1
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                30            
        SendMessage     LOADLEVEL

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	SetParameter	NUMLINES	19
	SendMessage	SetStartLines
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	500
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
		SetParameter	LIVES	0
	SendMessage	SETLIVES


	SendMessage     MUSIC_GROOVE_LOW

	SendMessage	DEACTIVATESCORE

	SET T To 0
	SET R To 10000
	SET Y To 10000
	SET Z TO 59
	SET X TO 1

	SetParameter    TEXT    flower.wbw
	SendMessage     LOADWEAPONLIST
	SetParameter	Position	0	-195	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		FLOWER_POWER
FRE	SetParameter	TEXT		FLOWER_POWER
	GER SetParameter	Text	FLOWER_POWER
	SPA SetParameter	Text	EL_PODER_DE_LAS_FLORES
	ITA SetParameter	TEXT	FIGLIO_DEI_FIORI
	POL SetParameter	TEXT	MOC_KWIATÓW




	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		Clear_All_Yellow_Blocks
FRE	SetParameter	TEXT		Déblayez_tous_les_blocs_jaunes
	GER SetParameter	Text	Räume_alle_gelben_Steine_ab,
	SPA SetParameter	Text	Destruye_todos_los_bloques_amarillos
	ITA SetParameter	TEXT	Elimina_tutti_i_blocchi_gialli
	POL SetParameter	TEXT	Zniszcz_wszystkie_żółte_cegły,



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Without_Destroying_Any_Red.
FRE	SetParameter	TEXT		sans_détruire_aucun_Rouge.
	GER SetParameter	Text	ohne_die_Roten_zu_treffen.
	SPA SetParameter	Text	sin_tocar_los_rojos.
	ITA SetParameter	TEXT	senza_distruggere_i_rossi.
	POL SetParameter	TEXT	oszczędzając_czerwone.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		120_Seconds
FRE	SetParameter	TEXT		120_Secondes
	GER SetParameter	Text	120_Sekunden
	SPA SetParameter	Text	Tienes_120_segundos.
	ITA SetParameter	TEXT	120_secondi
	POL SetParameter	TEXT	120_sekund



	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	MUSIC_GROOVE_MED_LOW



		SendMessage EndBriefing
		SendMessage FIRINGON
	SetParameter	MESSAGE_ID	TIMER9
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


	
		GotoLoop MAIN
		
	EndResponse

EndLoop

/IF LESS THAN 7 REDS END WITH FAIL/
Loop MAIN
Do
	SetParameter	Position	0	-195	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
		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





		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


				GotoLoop TIME
		EndIf


		If Z IsEqualTo 0
		Then

			If X IsEqualTo 0
			Then


				GotoLoop TIME
			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 Q BecomesEqualTo -1
	Then

		SendMessage LOSECONDITION
		GotoLoop END
	EndIf

	GosubLoop CHECK
	

	If R ISLESSTHAN 6
	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 END
		EndIf
		




		If Y BECOMESLESSTHAN 10
		Then
		SendMessage     MUSIC_GROOVE_HIGH
		EndIf




		If Y ISLESSTHAN 1
		Then
			If R ISEQUALTO 6
			Then

			SendMessage	WINCONDITION

	
			GotoLoop END
		
			EndIf	
		EndIf	
EndLoop


Loop NOYELL
Do


EndLoop


Loop CHECK
Do
If X IsEqualTo 0
	Then
	If Z IsEqualTo 0
	then	
		
		SendMessage LOSECONDITION

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 END
	endif		
	
	endif		
EndLoop

Loop END
Do

EndLoop







Loop TIME
Do
		SendMessage LOSECONDITION

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 END
EndLoop

















EndFile
