GameMode	think
GameType	QUEST

	ORANGEBLOCKSONSCREENCOUNTER	O
	REDBLOCKSONSCREENCOUNTER	R
	GREENBLOCKSONSCREENCOUNTER	G
	LandLinesCounter		H
	LivesRemaining02Counter		Q

Program0123

TEXTBUFFER      LEVS                    
        think.wbl
ENDBUFFER

Loop INIT
Do

	SendMessage	DEACTIVATESCORE
	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP4
	SendMessage	SETBACKDROP

	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                80              
        SendMessage     LOADLEVEL

	SetParameter	INTERVAL	9999970
	SendMessage	SetLandSpeed
	
	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter    TEXT    think.wbw
	SendMessage     LOADWEAPONLIST

	SET T To 0
	SET O To 10000
	SET R To 10000
	SET G To 10000
	SET Z TO 50
	Set I to 0
			
	SendMessage     MUSIC_GROOVE_LOW
	SetParameter	Position	0	-175	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		THINK_FIRST
FRE	SetParameter	TEXT		RÉFLÉCHISSEZ_D'ABORD
ITA	SetParameter	TEXT		PRIMA_RIFLETTI,_POI_SPARA
SPA	SetParameter	TEXT		PIENSA_UN_POCO
GER	SetParameter	TEXT		ERST_NACHDENKEN
POL	SetParameter	TEXT		Wpierw_pomyœl

	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_The_Stated_Blocks
FRE	SetParameter	TEXT		Déblayez_les_blocs_indiqués.
ITA	SetParameter	TEXT		Distruggi_i_blocchi_indicati.
SPA	SetParameter	TEXT		DESTRUYE_EL_BLOQUE_DEL_COLOR 
GER	SetParameter	TEXT		Räume_die_angegebenen_Blöcke
POL	SetParameter	TEXT		Usuñ_

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		And_Do_Each_One
FRE	SetParameter	TEXT		Pour_chacun_d'entre_eux,_vous_avez
ITA	SetParameter	TEXT		Per_ognuno,_hai_a
SPA	SetParameter	TEXT		INDICADO,_TIENES_50_SEGUNDOS 
GER	SetParameter	TEXT		ab_und_zwar_jeden_davon
POL	SetParameter	TEXT	I_ka¿d¹_z_nich

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		Within_50_Seconds
FRE	SetParameter	TEXT		50_secondes.
ITA	SetParameter	TEXT		disposizione_50_secondi.
SPA	SetParameter	TEXT		PARA_CADA_UNO_DE_ELLOS.
GER	SetParameter	TEXT		innerhalb_von_50_Sekunden
POL	SetParameter	TEXT		tylko_w_50_sekund

	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		it_may_be_easier
FRE	SetParameter	TEXT		Ce_sera_peut-être_plus_facile
ITA	SetParameter	TEXT		È_più_facile
SPA	SetParameter	TEXT		Puede_que_resulte_más_fácil
GER	SetParameter	TEXT		Es_könnte_einfacher_sein,
POL	SetParameter	TEXT		£atwiej_Ci_bêdzie,




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Text		than_you_first_think
FRE	SetParameter	TEXT		que_vous_ne_l'imaginez.
ITA	SetParameter	TEXT		di_quanto_sembri.
SPA	SetParameter	TEXT		de_lo_que_parece_en_un_principio.
GER	SetParameter	TEXT		als_du_zuerst_glaubst.
POL	SetParameter	TEXT		je¿eli_wpierw_pomyœlisz

	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!
ITA	SetParameter	TEXT		Premi_fuoco_per_cominciare
GER	SetParameter	TEXT		Zum_Starten_Feuer_drücken
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	TIMER2
		SetParameter	INTERVAL	2000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	4000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER9
		SetParameter	INTERVAL	1000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		GotoLoop START
	EndResponse
EndLoop

Loop START
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage TIMER2
	Do
		SET T TO 0
		SetParameter	Position	-180.0	0.0	0.0	0.0
		SetParameter	Velocity	0.2	0.0	0.0	0.0
		SetParameter	Lifetime	0.1	0.9	4.1	1.9
		SetParameter	Justify		Centre
		SetParameter	Text		RED!
FRE		SetParameter	Text		ROUGE!
ITA		SetParameter	TEXT		ROSSO!
SPA		SetParameter	TEXT		¡rojo!
GER		SetParameter	TEXT			ROT!
POL	SetParameter	TEXT		CZERWONE	
		SetParameter	Colour2		1.0	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.0	0.0	1.0

		SendMessage	CREATETEXT

		SetParameter	MESSAGE_ID	TIMER5
		SetParameter	INTERVAL	45000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	500
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		GotoLoop MAIN
	EndResponse
EndLoop

Loop MAIN
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	GosubLoop CLOCK

	If Q BecomesEqualTo -1
	Then
		SendMessage	LOSECONDITION
		GotoLoop END2
	EndIf

	If R ISLESSTHAN 1
	Then
		SET T TO 0
		SetParameter	Position	0.0	0.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	Text		Stand_Clear
FRE		SetParameter	Text		Éloignez-vous.
ITA		SetParameter	TEXT		Allontanati
SPA		SetParameter	TEXT		Preparado...
GER		SetParameter	TEXT		Zurücktreten!
POL	SetParameter	TEXT		Gotowy!
		SetParameter	Colour2		1.0	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.0	0.0	1.0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SendMessage	CREATETEXT
		SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
		SendMessage	CLEARBLOCKS
		SET Z TO 45

		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	4000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		GotoLoop NEXT
	EndIf	
EndLoop

Loop NOYELL
Do
EndLoop

Loop NEXT
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage TIMER3
	Do
		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed
		SET T To 0
		set H to 0
		GotoLoop NEXT2
	EndResponse
EndLoop

Loop NEXT2
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	If H IsEqualTo 18
	then	
		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed
		GotoLoop START2
	endif
EndLoop

Loop START2
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage TIMER2
	Do
	SET T TO 0
		SendMessage     MUSIC_GROOVE_MED
		SetParameter	Position	180.0	0.0	0.0	0.0
		SetParameter	Velocity	-0.2	0.0	0.0	0.0
		SetParameter	Lifetime	0.1	0.9	4.1	1.9
		SetParameter	Justify		Centre
		SetParameter	Text		GREEN!
FRE		SetParameter	Text		VERT!
ITA		SetParameter	TEXT		VERDE!
SPA		SetParameter	TEXT		VERDE
GER		SetParameter	TEXT		GRÜN
POL	SetParameter	TEXT		ZIELONY

		SetParameter	Colour2		0.06	0.65	0.0	1.0
		SetParameter	Colour3		0.06	0.65	0.0	1.0
		SendMessage	CREATETEXT

		SET Z TO 45

		GotoLoop ROUND2
	EndResponse
EndLoop

Loop ROUND2
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	GosubLoop CLOCK

	If Q BecomesEqualTo -1
	Then
		SendMessage LOSECONDITION
		GotoLoop END2
	EndIf

	If G ISLESSTHAN 1
	Then
		SET T TO 0
		SetParameter	Position	0.0	0.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	Text		Stand_Clear
FRE		SetParameter	Text		Éloignez-vous.
ITA		SetParameter	TEXT		Allontanati
SPA		SetParameter	TEXT		Preparado...
GER		SetParameter	TEXT		Zurücktreten!
POL	SetParameter	TEXT		Gotowy!
		SetParameter	Colour2		1.0	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.0	0.0	1.0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SendMessage	CREATETEXT

		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	4000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
		SetParameter 	BLOCKCOLOUR	ALLCOLOURS
		SendMessage	CLEARBLOCKS

		GotoLoop NEXTA
	EndIf
EndLoop

/lastround/

Loop NEXTA
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage TIMER3
	Do
		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed
		SET T To 0
		set H to 0
		GotoLoop NEXT2A
	EndResponse
EndLoop

Loop NEXT2A
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	If H IsEqualTo 18
	then	
		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed
		GotoLoop START2A
	endif
EndLoop

Loop START2A
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage TIMER2
	Do	
		SET T TO 0
		SendMessage     MUSIC_GROOVE_HIGH
		SetParameter	Position	0.0	100.0	0.0	0.0
		SetParameter	Velocity	0.0	-0.2	0.0	0.0
		SetParameter	Lifetime	0.1	0.9	4.1	1.9
		SetParameter	Justify		Centre
		SetParameter	Text		ORANGE
FRE		SetParameter	Text		ORANGE
ITA		SetParameter	TEXT		ARANCIONE
SPA		SetParameter	TEXT		naranja
GER		SetParameter	TEXT		ORANGE
POL	SetParameter	TEXT		Pomarañczka
		SetParameter	Colour2		1.0	0.56	0.0	1.0
		SetParameter	Colour3		1.0	0.56	0.0	1.0
		SendMessage	CREATETEXT

		SET Z TO 45
		GotoLoop ROUND3
	EndResponse	
EndLoop

Loop ROUND3
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	GosubLoop CLOCK

	If Q BecomesEqualTo -1
	Then
		SendMessage LOSECONDITION
		GotoLoop END2
	EndIf

	If O ISLESSTHAN 1
	Then
		SET T TO 0
		GotoLoop END
	EndIf
EndLoop

Loop CLOCK
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		3
	SetParameter	Velocity	0	0	0	0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	180.0	210.0	0.0	0.0
	SendMessage	CREATEICON

	OnMessage TIMER9
	Do
		SetParameter	JUSTIFY CENTRE
		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	Velocity	0	0	0	0

		Subtract 1 from Z
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Position	245.0	210.0	0.0	0.0






			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



			If Z IsLessThan 10
			Then
				SetParameter	Text		0
				SetParameter	Position	245.0	210.0	0.0	0.0
				SendMessage	CREATETEXT
				SetParameter	Position	260.0	210.0	0.0	0.0
			EndIf

		ConvertToText   Z
		SendMessage	CREATETEXT



		ConvertToText	I
		SetParameter	Position	215.0	210.0	0.0	0.0
		SendMessage	CREATETEXT

		If Z IsEqualTo 0
		Then
				SetParameter	Justify		Centre
				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É!
				SPA SetParameter	Text	¡TIEMPO!
				GER SetParameter	Text	ENDE!
				ITA SetParameter	TEXT	TEMPO_ESAURITO!
POL	SetParameter	TEXT	Czas_up³yn¹³
				SendMessage	CREATETEXT
				SendMessage	LOSECONDITION
				GotoLoop END2
		EndIf
	EndResponse
EndLoop

Loop END
Do
	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_!
ITA	SetParameter	TEXT	HAI_VINTO!
SPA	SetParameter	TEXT	¡LO_CONSEGUISTE!
GER	SetParameter	TEXT	GESCHAFFT!
POL	SetParameter	TEXT	Sukces

	SendMessage	CREATETEXT

	SetParameter	TEXT	Volcano
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION
	GotoLoop END2
EndLoop

Loop END2
Do
EndLoop
EndFile
