GameMode	red
GameType	QUEST

	LandLinesCounter		H
	RedComboCounter			R

Program0123

TEXTBUFFER      LEVS
         red.wbl
ENDBUFFER

Loop INIT 
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	BACKDROP	BACKDROP6
	SendMessage	SETBACKDROP

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	TEXT	red.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_RED_3_OF_3
POL	SetParameter	TEXT		DALEJ_NA_CZERWONE_3_z_3
FRE	SetParameter	TEXT		ASSAUT_SUR_LE_ROUGE_3_sur_3
ITA	SetParameter	TEXT		CACCIA_AL_ROSSO_3_di_3
SPA	SetParameter	TEXT		A_POR_EL_ROJO_3_de_3
GER	SetParameter	TEXT		TRIFF_ROT_3_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_red_group_of
POL	SetParameter	TEXT		Twoje_zadanie_to_trafia_w_grupy_czerwonych
FRE	SetParameter	TEXT		votre_objectif_est_de_dtruire_le_groupe_de_blocs_rouges.
ITA	SetParameter	TEXT		Il_tuo_scopo__colpire_il_gruppo_di_blocchi_rossi.
GER	SetParameter	TEXT		Das_Ziel_ist_es_die_roten_Steine_zu_treffen!
SPA	SetParameter	TEXT		Tu_objetivo_es_alcanzar_el_grupo_de_bloques_rojos.

	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
FRE	SetParameter	TEXT		Vous_n'avez_qu'un_peu
ITA	SetParameter	TEXT		Hai_soltanto_dieci_secondi_per_distruggere
GER	SetParameter	TEXT		Du_hast_gut_10_Sekunden_Zeit_um_die_roten
SPA	SetParameter	TEXT		Slo_tienes_unos_diez_segundos_para_destruir


	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
FRE	SetParameter	TEXT		plus_de_10_secondes_pour_dtruire_les
ITA	SetParameter	TEXT		i_blocchi_di_ogni_forma!_In_totale_ci_sono_sei
GER	SetParameter	TEXT		Steine_in_jeder_Figur_abzurumen!_Du_musst
SPA	SetParameter	TEXT		los_bloques_rojos_de_cada_forma.


	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,
FRE	SetParameter	TEXT		blocs_de_chaque_forme._Six_formes
ITA	SetParameter	TEXT		forme_e_tu_devi_distruggerne_almeno_cinque,
GER	SetParameter	TEXT		mindestens_fnf_der_roten_Steine_in_den
SPA	SetParameter	TEXT		Aparecern_seis_formas_en_total,_


	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
FRE	SetParameter	TEXT		apparatront_et_vous_devez_en_russir_au
ITA	SetParameter	TEXT		perch_la_missione_sia_considerata
GER	SetParameter	TEXT		sechs_verschiedenen_Formen_treffen_um
SPA	SetParameter	TEXT		y_debers_completar_al_menos_cinco_para_


	SendMessage	CreateText

	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		complete_the_mission.
POL	SetParameter	TEXT		MISJ.
FRE	SetParameter	TEXT		moins_cinq_pour_russir_la_mission.
ITA	SetParameter	TEXT		superata!
GER	SetParameter	TEXT		die_Mission_zu_beenden!
SPA	SetParameter	TEXT		superar_la_prueba.

	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	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.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	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.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	__
POL	SetParameter	TEXT	__
FRE	SetParameter	TEXT	__
ITA	SetParameter	TEXT	__
SPA	SetParameter	TEXT	__
GER	SetParameter	TEXT		__
	SendMessage	CREATETEXT

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

	SetParameter HIDDEN_ID 4
	SendMessage UNLOCKGAMEMODE

	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

