GameMode	G1
GameType	QUEST
	RedComboCounter			C
	YellowComboCounter		D
	GreenComboCounter		E
	OrangeComboCounter		F
	PurpleComboCounter		G
	WaterHeightCounter		H
	COLLECTSTARCOUNTER		V
	LIVESREMAINING02COUNTER		M

	
Program0123

TEXTBUFFER      LEVS                    

        g1.wbl

EndBuffer

Loop INIT
Do
	SetParameter    TEXT    g1.wbw

	SetParameter	BACKDROP	BACKDROP8
	SendMessage	SETBACKDROP

	SetParameter	NUMLINES	8
	SendMessage	SetStartLines
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                60            
        SendMessage     LOADLEVEL
	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT	

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter 	POSITION   	0	-125	0	0
	SendMessage 	CHANGEWATERHEIGHT

	SendMessage	DISABLE_STAR_JINGLE

	Set H To -175

	SendMessage	DEACTIVATESCORE
	
	SendMessage     MUSIC_GROOVE_LOW
	SendMessage	StartBriefing

	Set V To 0
	Set X to 60
	Set Z to 0
	Set B to 0

	SendMessage	FIRINGOFF

	GotoLoop MAIN

EndLoop

Loop MAIN
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_Collect
	FRE SetParameter	TEXT	Chasse_aux_étoiles
	GER SetParameter	Text	Sterne_sammeln
	SPA SetParameter	TEXT	Recogida_de_Estrellas
	ITA SetParameter	TEXT	Raccogli_le_stelle
	POL SetParameter	TEXT	Zebranych_gwiazdek



	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_1_minute_to
FRE	SetParameter	TEXT		Vous_avez_1_minute
	GER SetParameter	Text	Du_hat_1_Minute,
	SPA SetParameter	TEXT	Dispones_de_un_minuto
	ITA SetParameter	TEXT	Hai_a_disposizione_1_minuto
	POL SetParameter	TEXT	Masz_1_minutê_na_




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	
	SetParameter	Text		collect_15_stars.
FRE	SetParameter	TEXT		pour_récupérer_15_étoiles.
	GER SetParameter	Text	um_15_Sterne_zu_sammeln.
	SPA SetParameter	TEXT	para_conseguir_15_estrellas.
	ITA SetParameter	TEXT	per_raccogliere_15_stelle.
	POL SetParameter	TEXT	zebranie_15_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	UNPAUSELANDLEFT
	SendMessage	UNPAUSELANDRIGHT
	SetParameter	INTERVAL	1000
	SendMessage	SetLandSpeed
	SendMessage FIRINGON
	SendMessage	EndBriefing

	SendMessage	DISABLE_STAR_JINGLE
	
	SendMessage     MUSIC_GROOVE_MED_LOW

	GotoLoop MAIN1

	EndResponse
EndLoop


Loop MAIN1		
Do
	SetParameter 	POSITION   	0	-125	0	0
	SendMessage 	CHANGEWATERHEIGHT

	
	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
	SetParameter    FRAME           3
        SetParameter    Lifetime        0.0     0.0     0.0     0.0
        SetParameter    Position        149.0   195.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 TIMER1
	Do

	Add 1 to B		


	
			Subtract 1 from X
			SetParameter	Lifetime	0.0	0.0	1.0	0.0
			SetParameter	Position	230.0	195.0	0.0	0.0
			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
				If X IsLessThan 10
				Then
					SetParameter	Text		0
					SetParameter	Position	225.0	195.0	0.0	0.0
					SendMessage	CREATETEXT
					SetParameter	Position	245.0	195.0	0.0	0.0
				EndIf
			ConvertToText   X
			SendMessage	CREATETEXT
			ConvertToText	Z
			SetParameter	Lifetime	0.0	0.0	1.0	0.0
			SetParameter	Position	190.0	195.0	0.0	0.0
			SendMessage	CREATETEXT


	EndResponse

			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



				GotoLoop FAX
			EndIf



	If B BecomesEqualTo 30
	Then
	SendMessage MUSIC_GROOVE_MED
	EndIF


	If B BecomesEqualTo 50
	Then
	SendMessage MUSIC_GROOVE_HIGH
	EndIF	



	If M 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!
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

	SetParameter 	POSITION   	0	-125	0	0
	SendMessage 	CHANGEWATERHEIGHT
	
	If V BecomesEqualTo 10
	Then
		
		SetParameter	Lifetime	2.0	2.0	4.0	4.0
		SetParameter	Justify		Centre

		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	Position	0.0	50.0	0.0	0.0

		SetParameter	Text		5_more_to_go!
FRE		SetParameter	TEXT		Encore_5!
		GER SetParameter	Text	Nur_noch_5
		SPA SetParameter	Text	¡Faltan_5!
		ITA SetParameter	TEXT	Ancora_altre_5!
		POL SetParameter	TEXT	Tylko_5_do_koñca




		SendMessage	CREATETEXT
	EndIf
	

	If V BecomesEqualTo 15
	Then

	SendMessage	WINCONDITION
	

	EndIf


EndLoop

Loop FAX
Do
SendMessage LOSECONDITION
GotoLoop END
EndLoop

Loop END
Do




EndLoop

EndFile