GameMode	grant3
GameType	QUEST
	RedComboCounter			C
	YellowComboCounter		D
	GreenComboCounter		E
	OrangeComboCounter		F
	PurpleComboCounter		G
	
	TOTALBLOCKSONSCREENCOUNTER	Y
	WEAPONFIREDCOUNTER		F
	COLLECTSTARCOUNTER		V
	DESTROYOWNSTARCOUNTER		S
	DESTROYENEMYSTARCOUNTER		S

TEXTBUFFER	LEVS

	grant3.wbl

ENDBUFFER



Program0123

Loop INIT
Do

	SetParameter	BACKDROP	BACKDROP3
	SendMessage	SETBACKDROP

	SetParameter    TEXT    grant3.wbw
        SendMessage     LOADWEAPONLIST

	SetParameter	NUMLINES	15
	SendMessage	SetStartLines

	SetParameter	BUFFERNAME	LEVS
	SetParameter	NUMLINES	16
	SendMessage	LOADLEVEL	

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
		
	SetParameter	POSITION	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight


	SetParameter 	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CreateTimer	

	SendMessage	DEACTIVATESCORE


	SendMessage	FIRINGOFF
	SendMessage	StartBriefing
	SendMessage 	DISABLE_STAR_JINGLE

	Set A to 0
	Set X to 40
	Set S to 0
	Set V to 0
	Set Y to 0
	Set C to 0 
	Set D to 0 
	Set E to 0
	Set F to 0 
	Set G to 0
	
	SendMessage     MUSIC_GROOVE_LOW

	GotoLoop MAIN1
EndLoop


Loop MAIN1
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		Star_Duo
FRE	SetParameter	TEXT		Duo_d'étoiles
	GER SetParameter	Text	Star_Duo
	SPA SetParameter	Text	Dúo_de_Estrellas
	ITA SetParameter	TEXT	Stella_binaria
	POL SetParameter	TEXT	Gwiezdny_duet


	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_40_seconds_to
FRE	SetParameter	TEXT		Vous_avez_40_secondes
	GER SetParameter	Text	Du_hast_40_Sekunden
	SPA SetParameter	Text	Tienes_40_segundos_
	ITA SetParameter	TEXT	Hai_a_disposizione_40_secondi
	POL SetParameter	TEXT	Masz_40_sekund_na



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	
	SetParameter	Text		collect_both_of_the_stars
FRE	SetParameter	TEXT		pour_récupérer_les_deux_étoiles.
	GER SetParameter	Text	um_beide_Sterne_einzusammeln.
	SPA SetParameter	Text	para_conseguir_las_dos_estrellas.
	ITA SetParameter	TEXT	per_raccogliere_entrambe_le_stelle.
	POL SetParameter	TEXT	zebranie_obu_gwiazdek



	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_HIGH

		GotoLoop MAIN
	EndResponse

EndLoop

Loop MAIN
Do

	SetParameter	POSITION	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight


OnMessage TIMER1
	Do

	Add 1 to A

		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 A BecomesEqualTo 40
	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		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
	GotoLoop COM
	Endif


	If Y BecomesEqualTo 33
	Then
		SetParameter	Position	13.0	8.0	0.0	0.0
		SendMessage	DetonateBlock

	EndIf

	If S BecomesEqualTo 1
	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		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
GotoLoop COM

	EndIF

	If V BecomesEqualTo 2
	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	RÉUSSI_!
GER SetParameter	Text	GESCHAFFT!
SPA SetParameter	Text	¡LO_CONSEGUISTE!
ITA SetParameter	TEXT	HAI_VINTO!
POL SetParameter	TEXT	Sukces



SendMessage	CREATETEXT
		SET C To 0
		SET D To 0
		SET E TO 0
		SET F TO 0
		SET G TO 0
		SET Y TO 0
		SET F TO 0
		SET V TO 0
		SET S TO 0
		SetParameter	TEXT	ufo
		SendMessage	SETNEXTGAMEMODE
		SendMessage	LOSECONDITION
		GotoLoop END2	
	EndIf

EndLoop

Loop COM
Do
SetParameter	POSITION	0.0	-175.0	0.0	0.0
SendMessage	ChangeWaterHeight
SendMessage FIRINGOFF
Endloop


Loop END2
Do
SetParameter	POSITION	0.0	-175.0	0.0	0.0
SendMessage	ChangeWaterHeight
SendMessage	FIRINGOFF
Endloop

EndFile
