GameMode	yellow
GameType	QUEST

	LandLinesCounter		H
	YellowComboCounter		R

Program0123

TEXTBUFFER      LEVS
        yellow.wbl
ENDBUFFER

Loop INIT 
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	BACKDROP	BACKDROP5
	SendMessage	SETBACKDROP

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	TEXT	yellow.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                120
        SendMessage     LOADLEVEL
	
	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Velocity	0.0	0.01	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0

	SetParameter	Colour1		1.0	1.0	1.0	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	Lifetime	0.1	0.5	1.0	1.5
	SetParameter	Justify		Centre

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT
	SendMessage	STARTBRIEFING
	SendMessage	FIRINGOFF

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	0200
	SetParameter	REPEAT		TRUE
	SendMessage	CreateTimer

	SendMessage	MUSIC_GROOVE_LOW

	Set S to 0
	Set G to 0
	Set H to 0
	Set R to 0

	Set A to 0
	Set B to 0
	Set C to 0
	Set D to 0
	Set E to 0
	Set F to 0

	Set X to 1

	SendMessage	QUAKENO
	SendMessage	DEACTIVATESCORE

	GotoLoop CHECK
EndLoop

Loop CHECK
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	13000
		SetParameter	REPEAT		TRUE
		SendMessage	CreateTimer
		SendMessage	MUSIC_GROOVE_MED_LOW
		GotoLoop MAIN1
	EndResponse
EndLoop

Loop BRIEF
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.0	1.2	1.0	0.0
	SetParameter	Scale2		1.2	1.2	1.2	0.0
	SetParameter	Scale3		1.2	1.2	1.2	0.0
	SetParameter	Scale4		1.2	1.2	1.2	0.0
	SetParameter	Scale5		1.2	1.2	1.2	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		GO_FOR_YELLOW_1_OF_3
POL	SetParameter	TEXT		Dalej_na_te_1_z_3
FRE	SetParameter	TEXT		ASSAUT_SUR_LE_JAUNE_1_sur_3
ITA 	SetParameter	TEXT		CACCIA_AL_GIALLO_1_di_3
SPA 	SetParameter	TEXT		A_POR_EL_AMARILLO_1_de_3
GER	SetParameter	TEXT		TRIFF_gelben_1_von_3
	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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		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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		Your_goal_is_to_hit_the_yellow_group_of
POL	SetParameter	TEXT		TWOIM_CELEM_JEST_TRAFIENIE_GRUP_ӣTYCH
ITA	SetParameter	TEXT		Il_tuo_obiettivo__colpire_il_gruppo_di_blocchi
FRE	SetParameter	TEXT		Votre_objectif_est_de_dtruire_le_groupe
SPA 	SetParameter	TEXT		Tu_objetivo_es_el_grupo_de_bloques_amarillos.
GER	SetParameter	TEXT		Das_Ziel_ist_es_die_gelben_Steine_zu_treffen!
	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		blocks!_You_get_just_over_10_seconds_to
POL	SetParameter	TEXT		CEGIE._MASZ_10_SEKUND_NA_ZNISZCZENIE
ITA	SetParameter	TEXT		gialli!_Hai_soltanto_dieci_secondi_per_distruggere
FRE	SetParameter	TEXT		de_blocs_jaunes._Vous_n'avez_qu'un_peu_plus
SPA 	SetParameter	TEXT		Slo_tienes_unos_diez_segundos_para_destruir
GER	SetParameter	TEXT		Du_hast_gut_10_Sekunden_Zeit_um_die_gelben
	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		destroy_the_blocks_on_each_shape!_Six
POL	SetParameter	TEXT		CEGIE_W_KA_DYM_OBIEKCIE._NA
ITA	SetParameter	TEXT		i_blocchi_di_ogni_forma!_In_totale_ci_sono_sei
FRE	SetParameter	TEXT		de_10_secondes_pour_dtruire_les_blocs_de
SPA 	SetParameter	TEXT		los_bloques_amarillos_de_cada_forma.
GER	SetParameter	TEXT		Steine_in_jeder_Figur_abzurumen!_Du_musst
	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		shapes_will_appear_in_total_and_you_must
POL	SetParameter	TEXT		EKRANIE_POJAWI_SI_SZE_GRUP_CEGIE,
ITA	SetParameter	TEXT		forme_e_tu_devi_distruggerne_almeno_cinque,
FRE	SetParameter	TEXT		chaque_forme._Six_formes_apparatront_et
SPA 	SetParameter	TEXT		Aparecern_seis_formas_en_total,_
GER	SetParameter	TEXT		mindestens_fnf_der_gelben_Steine_in_den
	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		complete_at_least_five_of_them_to
POL	SetParameter	TEXT		A_TY_MUSISZ_ZNISZCZY_PI_ABY_UKOCZY
ITA	SetParameter	TEXT		perch_la_missione_sia_considerata
FRE	SetParameter	TEXT		vous_devez_en_russir_au_moins_cinq_pour
SPA 	SetParameter	TEXT		y_debers_completar_al_menos_cinco_para_
GER	SetParameter	TEXT		sechs_verschiedenen_Formen_treffen_um
	SendMessage	CreateText
	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		complete_the_mission.
POL	SetParameter	TEXT		MISJ.
ITA	SetParameter	TEXT		superata!
FRE	SetParameter	TEXT		russir_la_mission.
SPA 	SetParameter	TEXT		superar_la_prueba.
GER	SetParameter	TEXT		die_Mission_zu_beenden!
	SendMessage	CreateText

	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		7/
	SetParameter	FRAME		4
	SetParameter	Position	-30.0	-210.0	0.0	0.0
	SendMessage	CREATEICON

	SetParameter	Scale1		0.5	0.5	0.5	0.5
	SetParameter	Scale2		0.5	0.5	0.5	0.5
	SetParameter	Scale3		0.5	0.5	0.5	0.5
	SetParameter	Scale4		0.5	0.5	0.5	0.5
	SetParameter	Scale5		0.5	0.5	0.5	0.5

	SetParameter	Position	0.0	-202.0	0.0	0.0
	SetParameter	Text		?
	SendMessage	CREATETEXT

	SetParameter	Position	15.0	-202.0	0.0	0.0
	SetParameter	Text		?
	SendMessage	CREATETEXT

	SetParameter	Position	30.0	-202.0	0.0	0.0
	SetParameter	Text		?
	SendMessage	CREATETEXT

	SetParameter	Position	0.0	-217.0	0.0	0.0
	SendMessage	CREATETEXT

	SetParameter	Position	15.0	-217.0	0.0	0.0
	SetParameter	Text		?
	SendMessage	CREATETEXT

	SetParameter	Position	30.0	-217.0	0.0	0.0
	SetParameter	Text		?
	SendMessage	CREATETEXT

	SetParameter	Colour1		1.0	0.0	0.0	1.0
	SetParameter	Colour2		1.0	0.0	0.0	1.0
	SetParameter	Colour3		1.0	0.0	0.0	1.0

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
POL	SetParameter	TEXT		Nacinij_"Strza
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
ITA	SetParameter	TEXT		Premi_fuoco_per_cominciare
SPA	SetParameter	TEXT		Pulsa_el_disparo_para_empezar
GER	SetParameter	TEXT		Zum_Starten_Feuer_drcken
	SendMessage 	CREATETEXT
EndLoop

Loop WAIT
Do
	OnMessage TIMER2
	Do
		GotoLoop MAIN1
	EndResponse
EndLoop

Loop MAIN1
Do
	GosubLoop SCORE

	SetParameter	Position	0.0	-150.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	If R BecomesGreaterThan 1
	Then
		Add 1 to S
		Set X to 0
		SetParameter	Position	0.0	-25.0	0.0	0.0
		SetParameter	Colour2		1.0	1.0	0.0	1.0
		SetParameter	Colour3		1.0	1.0	0.0	1.0
		SetParameter	Scale1		0.1	0.1	0.1	0.0
		SetParameter	Scale2		0.9	0.9	0.9	0.0
		SetParameter	Scale3		0.9	0.9	0.9	0.0
		SetParameter	Scale4		0.9	0.9	0.9	0.0
		SetParameter	Scale5		0.9	0.9	0.9	0.0
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter Text	COMPLETE!
POL		SetParameter	TEXT	SUKCES!
FRE		SetParameter TEXT	TERMIN!
ITA		SetParameter TEXT	COMPLETATO!
SPA		SetParameter	TEXT	TERMINADO!
GER		SetParameter	TEXT	KOMPLETT!
		SendMessage	CREATETEXT

		If G IsEqualTo 0
		Then
			Set A to 1
		EndIf

		If G IsEqualTo 1
		Then
			Set B to 1
		EndIf

		If G IsEqualTo 2
		Then
			Set C to 1
		EndIf

		If G IsEqualTo 3
		Then
			Set D to 1
		EndIf

		If G IsEqualTo 4
		Then
			Set E to 1
		EndIf

		If G IsEqualTo 5
		Then
			Set F to 1
		EndIf
	EndIf

	OnMessage TIMER1
	Do
		If X IsEqualTo 1
		Then
			If G IsEqualTo 0
			Then
				Set A to 2
			EndIf

			If G IsEqualTo 1
			Then
				Set B to 2
			EndIf

			If G IsEqualTo 2
			Then
				Set C to 2
			EndIf

			If G IsEqualTo 3
			Then
				Set D to 2
			EndIf

			If G IsEqualTo 4
			Then
				Set E to 2
			EndIf

			If G IsEqualTo 5
			Then
				Set F to 2
			EndIf
		EndIf

		Add 1 to G
		Set R to 0

		GosubLoop DESTROYBLOCKS
		GotoLoop MAIN2
	EndResponse

	If G BecomesGreaterThan 1
	Then
		SendMessage	MUSIC_GROOVE_MED
	EndIf

	If G BecomesGreaterThan 2
	Then
		SendMessage	MUSIC_GROOVE_MED_HI
	EndIf

	If G BecomesGreaterThan 3
	Then
		SendMessage	MUSIC_GROOVE_HIGH
	EndIf
		
	If G BecomesGreaterThan 4
	Then
		GotoLoop ENDGAME
	EndIf
EndLoop

Loop MAIN2
Do
	GosubLoop SCORE

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0500
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer
	GotoLoop MAIN2A
EndLoop

Loop MAIN2A
Do
	GosubLoop SCORE

	OnMessage TIMER2
	Do
			GotoLoop MAIN3
	EndResponse
EndLoop

Loop MAIN3
Do
	GosubLoop SCORE

	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed
	SendMessage UNPAUSELANDLEFT
	SendMessage UNPAUSELANDRIGHT
	set H to 0
	GotoLoop MAIN4
EndLoop

Loop MAIN4
Do
	GosubLoop SCORE

	If H IsEqualTo 20
	then	
		SetParameter	INTERVAL	100000
		SendMessage	SetLandSpeed
		SendMessage PAUSELANDLEFT
		SendMessage PAUSELANDRIGHT
		Set X to 1
		GotoLoop MAIN1
	endif
EndLoop

Loop DESTROYBLOCKS
Do
	GosubLoop SCORE

	SetParameter	Position	0.0 	0.0 	1.0 	0.0
	SetParameter	BlockColour	ALLCOLOURS
	SendMessage	CLEARBLOCKS
EndLoop

Loop ENDGAME
Do
	GosubLoop SCORE

	SetParameter	Position	0.0	-150.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	OnMessage TIMER1
	Do
		SetParameter	Position	0.0 	0.0 	1.0 	0.0
		SetParameter	BlockColour	ALLCOLOURS
		SendMessage	CLEARBLOCKS

		Set R to 0

		If X IsEqualTo 1
		Then
			If G IsEqualTo 5
			Then
				Set F to 2
			EndIf
		EndIf

		GotoLoop DECIDER
	EndResponse

	If R BecomesGreaterThan 5
	Then
		Add 1 to S
		SetParameter	Position	0.0	-25.0	0.0	0.0
		SetParameter	Colour2		1.0	1.0	0.0	1.0
		SetParameter	Colour3		1.0	1.0	0.0	1.0
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Scale1		0.1	0.1	0.1	0.0
		SetParameter	Scale2		0.9	0.9	0.9	0.0
		SetParameter	Scale3		0.9	0.9	0.9	0.0
		SetParameter	Scale4		0.9	0.9	0.9	0.0
		SetParameter	Scale5		0.9	0.9	0.9	0.0
		SetParameter Text	COMPLETE!
POL		SetParameter	TEXT	SUKCES!
FRE		SetParameter TEXT	TERMIN!
ITA		SetParameter TEXT	COMPLETATO!
SPA		SetParameter	TEXT	TERMINADO!
GER		SetParameter	TEXT	KOMPLETT!
		SendMessage	CREATETEXT

		Set X to 0

		If G IsEqualTo 5
		Then
			Set F to 1
		EndIf
	EndIf
EndLoop

Loop DECIDER
Do
	GosubLoop SCORE

	If S IsGreaterThanOrEqualTo 5
	Then
		GotoLoop WIN
	EndIf

	If S IsLessThan 5
	Then
		GotoLoop LOSE
	EndIf
EndLoop

Loop SCORE
Do
	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		7/
	SetParameter	FRAME		4
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	-30.0	-210.0	0.0	0.0
	SendMessage	CREATEICON

	SetParameter	Scale1		0.5	0.5	0.5	0.5
	SetParameter	Scale2		0.5	0.5	0.5	0.5
	SetParameter	Scale3		0.5	0.5	0.5	0.5
	SetParameter	Scale4		0.5	0.5	0.5	0.5
	SetParameter	Scale5		0.5	0.5	0.5	0.5

	SetParameter	Position	0.0	-202.0	0.0	0.0
	SetParameter	Text		?
	If A IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If A IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	15.0	-202.0	0.0	0.0
	SetParameter	Text		?
	If B IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If B IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	30.0	-202.0	0.0	0.0
	SetParameter	Text		?
	If C IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If C IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	0.0	-217.0	0.0	0.0
	SetParameter	Text		?
	If D IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If D IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	15.0	-217.0	0.0	0.0
	SetParameter	Text		?
	If E IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If E IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT

	SetParameter	Position	30.0	-217.0	0.0	0.0
	SetParameter	Text		?
	If F IsEqualTo 1
	Then
		SetParameter	Text	X
	EndIf
	If F IsEqualTo 2
	Then
		SetParameter	Text	O
	EndIf
	SendMessage	CREATETEXT
EndLoop

Loop WIN
Do
	GosubLoop SCORE

	/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!
POL	SetParameter	TEXT	SUKCES!
FRE	SetParameter	TEXT	Russi!
ITA	SetParameter	TEXT	HAI_VINTO!
SPA	SetParameter	TEXT	LO_CONSEGUISTE!
GER	SetParameter	TEXT		Geschafft!
	SendMessage	CREATETEXT/

	Set S to 0
	Set G to 0
	Set H to 0
	Set R to 0

	SendMessage	WINCONDITION
	GotoLoop INFINITE
EndLoop

Loop LOSE
Do
	GosubLoop SCORE

	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!
POL	SetParameter	TEXT		Klska!
FRE	SetParameter	TEXT		CHEC!
ITA	SetParameter	TEXT		HAI_FALLITO!
SPA	SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!

	Set S to 0
	Set G to 0
	Set H to 0
	Set R to 0

	SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop INFINITE
EndLoop
	
Loop INFINITE
Do
	GosubLoop SCORE
EndLoop
EndFile

