GameMode	palmy
	WaterHeightCounter			H
	LandLinesCounter			M	
	OrangeComboCounter			O
Program0123
	
TEXTBUFFER LEVS
	palmy.wbl
ENDBUFFER

DATABUFFER RED1
2 209 1 208 2 208 3 208 4 208 1 207 3 207 1 206 2 206 3 206 4 206 2 205
ENDBUFFER

DATABUFFER GRE1
12 209 11 208 12 208 13 208 14 208 11 207 13 207 11 206 12 206 13 206 14 206 12 205
ENDBUFFER

DATABUFFER PUR1
17 209 16 208 17 208 18 208 19 208 16 207 18 207 16 206 17 206 18 206 19 206 17 205
ENDBUFFER

DATABUFFER YEL1
22 209 21 208 22 208 23 208 24 208 21 207 23 207 21 206 22 206 23 206 24 206 22 205
ENDBUFFER

DATABUFFER RED2
2 169 1 168 2 168 3 168 4 168 1 167 3 167 1 166 2 166 3 166 4 166 2 165
ENDBUFFER

DATABUFFER GRE2
12 168 11 168 12 168 13 168 14 168 11 167 13 167 11 166 12 166 13 166 14 166 12 165
ENDBUFFER

DATABUFFER PUR2
17 168 16 168 17 168 18 168 19 168 16 167 18 167 16 166 17 166 18 166 19 166 17 165
ENDBUFFER

DATABUFFER YEL2
22 169 21 168 22 168 23 168 24 168 21 167 23 167 21 166 22 166 23 166 24 166 22 165
ENDBUFFER

DATABUFFER RED3
2 129 1 128 2 128 3 128 4 128 1 127 3 127 1 126 2 126 3 126 4 126 2 125
ENDBUFFER

DATABUFFER GRE3
12 129 11 128 12 128 13 128 14 128 11 127 13 127 11 126 12 126 13 126 14 126 12 125 
ENDBUFFER

DATABUFFER PUR3
17 129 16 128 17 128 18 128 19 128 16 127 18 127 16 126 17 126 18 126 19 126 17 125
ENDBUFFER

DATABUFFER YEL3
22 129 21 128 22 128 23 128 24 128 21 127 23 127 21 126 22 126 23 126 24 126 22 125
ENDBUFFER

DATABUFFER RED4
2 89 1 88 2 88 3 88 4 88 1 87 3 87 1 86 2 86 3 86 4 86 2 85
ENDBUFFER

DATABUFFER GRE4
12 89 11 88 12 88 13 88 14 88 11 87 13 87 11 86 12 86 13 86 14 86 12 85
ENDBUFFER

DATABUFFER PUR4
17 89 16 88 17 88 18 88 19 88 16 87 18 87 16 86 17 86 18 86 19 86 17 85
ENDBUFFER

DATABUFFER YEL4
22 89 21 88 22 88 23 88 24 88 21 87 23 87 21 86 22 86 23 86 24 86 22 85
ENDBUFFER
/******************************/
DATABUFFER RED5
2 49 1 48 2 48 3 48 4 48 1 47 3 47 1 46 2 46 3 46 4 46 2 45
ENDBUFFER

DATABUFFER GRE5
12 49 11 48 12 48 13 48 14 48 11 47 13 47 11 46 12 46 13 46 14 46 12 45
ENDBUFFER

DATABUFFER PUR5
17 49 16 48 17 48 18 48 19 48 16 47 18 47 16 46 17 46 18 46 19 46 17 45
ENDBUFFER

DATABUFFER YEL5
22 49 21 48 22 48 23 48 24 48 21 47 23 47 21 46 22 46 23 46 24 46 22 45
ENDBUFFER
/******************************/
DATABUFFER RED6
2 9 1 8 2 8 3 8 4 8 1 7 3 7 1 6 2 6 3 6 4 6 2 5
ENDBUFFER

DATABUFFER GRE6
12 9 11 8 12 8 13 8 14 8 11 7 13 7 11 6 12 6 13 6 14 6 12 5
ENDBUFFER

DATABUFFER PUR6
17 9 16 8 17 8 18 8 19 8 16 7 18 7 16 6 17 6 18 6 19 6 17 5
ENDBUFFER

DATABUFFER YEL6
22 9 21 8 22 8 23 8 24 8 21 7 23 7 21 6 22 6 23 6 24 6 22 5
ENDBUFFER

Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	INTERVAL	999999
	SendMessage	SetLandSpeed
	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP8
	SendMessage	SETBACKDROP
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	240
	SendMessage	LOADLEVEL

	SetParameter	TEXT	palmy.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT
	
	SetParameter	Justify		CENTRE

	SetParameter	Scale1		0.4	0.4	0.4	0.0
	SetParameter	Scale2		1.0	1.0	1.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		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    LIVES   0
	SendMessage     SETLIVES

	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	0200
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SendMessage	MUSIC_GROOVE_LOW
	SendMessage	FIRINGOFF

	Set D to 0
	Set O to 0
	Set Q to 0

	SetParameter	POSITION	-100	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	SendMessage	STARTBRIEFING

	GotoLoop		CHECK
EndLoop

/ briefing /
Loop CHECK
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	OnMessage TIMER4
	Do
		GosubLoop	BRIEF
	EndResponse

	OnMessage FIREPRESSED
	Do
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT

		SetParameter	Scale1		0.4	0.4	0.4	0.0
		SetParameter	Scale2		1.0	1.0	1.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		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
		SendMessage	ENDBRIEFING
		SendMessage	MUSIC_GROOVE_MED_LOW
		GosubLoop	SETTIMER
		GotoLoop MAIN
	EndResponse
EndLoop

Loop BRIEF
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	150.0	0.0	0.0
	SetParameter	Text		ASK_A_QUESTION_._._._.
POL	SetParameter	TEXT		KTO_PYTA_NIE_._._._.
FRE	SetParameter	TEXT		RÉPONDEZ_à_LA_QUESTION
ITA	SetParameter	TEXT		UNA_DOMANDA_._._.
SPA	SetParameter	TEXT		PREGUNTA,_PREGUNTA_._._.
GER	SetParameter	TEXT		STELL_EINE_FRAGE_._._._.
	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

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.7	0.7	0.7	0.0
SPA	SetParameter	Scale3		0.7	0.7	0.7	0.0
SPA	SetParameter	Scale4		0.7	0.7	0.7	0.0
SPA	SetParameter	Scale5		0.7	0.7	0.7	0.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

	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

	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		Answer_the_questions_on_the_six_different
POL	SetParameter	TEXT		ODPOWIEDZ_NA_PYTANIA_NA_SZEŒCIU_RÓ_NYCH,
FRE	SetParameter	TEXT		Répondez_aux_questions_en_rapport_aux
SPA	SetParameter	TEXT		Responde_a_las_preguntas_relacionadas_con
ITA	SetParameter	TEXT		Rispondi_alle_domande_sulle_sei_diverse_immagini
GER	SetParameter	TEXT		Beantworte_die_Fragen_zu_den_sechs


	SendMessage	CreateText

	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		pictures_that_you_are_shown._You_need_to
POL	SetParameter	TEXT		PRZEDSTAWIONYCH_CI_OBRAZKACH._MUSISZ
FRE	SetParameter	TEXT		six_images_différentes._Vous_devez
SPA	SetParameter	TEXT		las_seis_imágenes_que_se_muestran.
ITA	SetParameter	TEXT		che_ti_vengono_mostrate._Devi_dare_tutte_le
GER	SetParameter	TEXT		verschiedenen_Bildern,_die_dir_gezeigt


	SendMessage	CreateText

	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		answer_the_questions_correctly_in
POL	SetParameter	TEXT		NA_WSZYSTKIE_ODPOWIEDZIEÆ_POPRAWNIE,_ABY
FRE	SetParameter	TEXT		répondre_correctement_à_toutes_les
SPA	SetParameter	TEXT		Responde_a_las_preguntas_correctamente
ITA	SetParameter	TEXT		risposte_nell'ordine_esatto,_per_poter
GER	SetParameter	TEXT		werden._Um_zu_gewinnen_musst_du 


	SendMessage	CreateText

	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		order_to_finish_successfully!
POL	SetParameter	TEXT		PRZEJŒÆ_DALEJ.
FRE	SetParameter	TEXT		questions_pour_remplir_l'objectif!
SPA	SetParameter	TEXT		para_superar_la_prueba.
ITA	SetParameter	TEXT		concludere_con_successo_la_prova!
GER	SetParameter	TEXT		alle_Fragen_richtig_beantworten!


	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		Naciœnij_"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_drücken

	

	SendMessage 	CREATETEXT
EndLoop
/ let the fun begin /

Loop MAIN
Do
	OnMessage	TIMER1
	Do
		Set O to 0
		GotoLoop ADVANCE1
	EndResponse
EndLoop

Loop QUESTION1
Do
	ReadFromBuffer RED1 into X
	ReadFromBuffer RED1 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO R

	ReadFromBuffer GRE1 into X
	ReadFromBuffer GRE1 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO G

	ReadFromBuffer PUR1 into X
	ReadFromBuffer PUR1 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO P

	ReadFromBuffer YEL1 into X
	ReadFromBuffer YEL1 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO Y

	If R IsNotEqualTo RED
	Then
		Subtract 1 from Q
		GosubLoop	SHORTTIMER
		GosubLoop	WRONGTEXT
		GotoLoop WRONG
	EndIf

	If O BecomesGreaterThan 0
	Then
		If A IsEqualTo 2
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!


			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 2
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If G IsNotEqualTo GREEN
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT

			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If P IsNotEqualTo PURPLE
	Then
		If A IsEqualTo 1
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 1
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If Y IsNotEqualTo YELLOW
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT
EndLoop

Loop QUESTION2
Do
	ReadFromBuffer RED2 into X
	ReadFromBuffer RED2 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO R

	ReadFromBuffer GRE2 into X
	ReadFromBuffer GRE2 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO G

	ReadFromBuffer PUR2 into X
	ReadFromBuffer PUR2 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO P

	ReadFromBuffer YEL2 into X
	ReadFromBuffer YEL2 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO Y

	If R IsNotEqualTo RED
	Then
		If A IsEqualTo 2
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 2
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If O BecomesGreaterThan 0
	Then
		If A IsEqualTo 1
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 1
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If G IsNotEqualTo GREEN
	Then
		Subtract 1 from Q
		GosubLoop	SHORTTIMER
		GosubLoop	WRONGTEXT
		GotoLoop WRONG
	EndIf

	If P IsNotEqualTo PURPLE
	Then
		Subtract 1 from Q
		GosubLoop	SHORTTIMER
		GosubLoop	WRONGTEXT
		GotoLoop WRONG
	EndIf

	If Y IsNotEqualTo YELLOW
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT
EndLoop

Loop QUESTION3
Do
	ReadFromBuffer RED3 into X
	ReadFromBuffer RED3 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO R

	ReadFromBuffer GRE3 into X
	ReadFromBuffer GRE3 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO G

	ReadFromBuffer PUR3 into X
	ReadFromBuffer PUR3 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO P

	ReadFromBuffer YEL3 into X
	ReadFromBuffer YEL3 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO Y

	If R IsNotEqualTo RED
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If O BecomesGreaterThan 0
	Then
		Subtract 1 from Q
		GosubLoop	SHORTTIMER
		GosubLoop	WRONGTEXT
		GotoLoop WRONG
	EndIf

	If G IsNotEqualTo GREEN
	Then
		Subtract 1 from Q
		GosubLoop	SHORTTIMER
		GosubLoop	WRONGTEXT
		GotoLoop WRONG
	EndIf

	If P IsNotEqualTo PURPLE
	Then
		If A IsEqualTo 2
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 2
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If Y IsNotEqualTo YELLOW
	Then
		If A IsEqualTo 1
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 1
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT
EndLoop

Loop QUESTION4
Do
	ReadFromBuffer RED4 into X
	ReadFromBuffer RED4 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO R

	ReadFromBuffer GRE4 into X
	ReadFromBuffer GRE4 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO G

	ReadFromBuffer PUR4 into X
	ReadFromBuffer PUR4 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO P

	ReadFromBuffer YEL4 into X
	ReadFromBuffer YEL4 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO Y

	If R IsNotEqualTo RED
	Then
		If A IsEqualTo 2
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 2
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If O BecomesGreaterThan 0
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If G IsNotEqualTo GREEN
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If P IsNotEqualTo PURPLE
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If Y IsNotEqualTo YELLOW
	Then
		If A IsEqualTo 1
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 1
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT
EndLoop

Loop QUESTION5
Do
	ReadFromBuffer RED5 into X
	ReadFromBuffer RED5 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO R

	ReadFromBuffer GRE5 into X
	ReadFromBuffer GRE5 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO G

	ReadFromBuffer PUR5 into X
	ReadFromBuffer PUR5 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO P

	ReadFromBuffer YEL5 into X
	ReadFromBuffer YEL5 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO Y

	If R IsNotEqualTo RED
	Then
		Subtract 1 from Q
		GosubLoop	SHORTTIMER
		GosubLoop	WRONGTEXT
		GotoLoop WRONG
	EndIf

	If O BecomesGreaterThan 0
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If G IsNotEqualTo GREEN
	Then
		If A IsEqualTo 1
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 1
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If P IsNotEqualTo PURPLE
	Then
		If A IsEqualTo 2
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop RIGHT
		EndIf

		If A IsNotEqualTo 2
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If Y IsNotEqualTo YELLOW
	Then
		Subtract 1 from Q
		GosubLoop	SHORTTIMER
		GotoLoop WRONG
	EndIf

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT
EndLoop

Loop QUESTION6
Do
	ReadFromBuffer RED6 into X
	ReadFromBuffer RED6 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO R

	ReadFromBuffer GRE6 into X
	ReadFromBuffer GRE6 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO G

	ReadFromBuffer PUR6 into X
	ReadFromBuffer PUR6 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO P

	ReadFromBuffer YEL6 into X
	ReadFromBuffer YEL6 into Y
	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO Y

	If R IsNotEqualTo RED
	Then
		If A IsEqualTo 2
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop WINNAR
		EndIf

		If A IsNotEqualTo 2
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If O BecomesGreaterThan 0
	Then
		Subtract 1 from Q
		GosubLoop	SHORTTIMER
		GosubLoop	WRONGTEXT
		GotoLoop WRONG
	EndIf

	If G IsNotEqualTo GREEN
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop WINNAR
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If P IsNotEqualTo PURPLE
	Then
		If A IsEqualTo 1
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop WINNAR
		EndIf

		If A IsNotEqualTo 1
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	If Y IsNotEqualTo YELLOW
	Then
		If A IsEqualTo 3
		Then
			SetParameter	LifeTime	0.1	0.2	3	0.1
			SetParameter	Position	0	150	0	0
			SetParameter	Text	YOU_ARE_RIGHT!
POL			SetParameter	TEXT	MASZ_RACJÊ!
FRE			SetParameter	TEXT	BONNE_RÉPONSE!
ITA	SetParameter			TEXT	RISPOSTA_ESATTA!
SPA			SetParameter	TEXT	¡MUY_BIEN!
GER	SetParameter	TEXT			RICHTIG!
			SendMessage	CREATETEXT
			GosubLoop	SHORTTIMER
			GotoLoop WINNAR
		EndIf

		If A IsNotEqualTo 3
		Then
			Subtract 1 from Q
			GosubLoop	SHORTTIMER
			GosubLoop	WRONGTEXT
			GotoLoop WRONG
		EndIf
	EndIf

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	Set S to 1
EndLoop

/ clear the screen and advance the screen for two reasons /

Loop ADVANCE1
Do
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	0500
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer
	GotoLoop ADVANCE1A
EndLoop

Loop ADVANCE1A
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	OnMessage TIMER3
	Do
			GosubLoop DESTROYBLOCKS
			Randomise A From 1 To 3
			Add 1 to D
			GotoLoop ADVANCE2
	EndResponse
EndLoop

Loop ADVANCE2
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed
	set M to 0
	GotoLoop ADVANCE3
EndLoop

Loop ADVANCE3
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	If M IsEqualTo 20
	then	
		SetParameter	INTERVAL	999999
		SendMessage	SetLandSpeed
		
		If D IsEqualTo 1
		Then
			GosubLoop ASKQUESTION
			GotoLoop QUESTION1
		EndIf

		If D IsEqualTo 2
		Then
			GosubLoop ASKQUESTION
			GotoLoop QUESTION2
		EndIf

		If D IsEqualTo 3
		Then
			SendMessage	MUSIC_GROOVE_MED
			GosubLoop ASKQUESTION
			GotoLoop QUESTION3
		EndIf

		If D IsEqualTo 4
		Then
			SendMessage	MUSIC_GROOVE_MED_HI
			GosubLoop ASKQUESTION
			GotoLoop QUESTION4
		EndIf

		If D IsEqualTo 5
		Then
			GosubLoop ASKQUESTION
			GotoLoop QUESTION5
		EndIf

		If D IsEqualTo 6
		Then
			SendMessage	MUSIC_GROOVE_HIGH
			GosubLoop ASKQUESTION
			GotoLoop QUESTION6
		EndIf
	endif
EndLoop

Loop ADVANCEX1
Do
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	0500
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer
	GotoLoop ADVANCEX1A
EndLoop

Loop ADVANCEX1A
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	OnMessage TIMER3
	Do
			GosubLoop DESTROYBLOCKS
			GotoLoop ADVANCEX2
	EndResponse
EndLoop

Loop ADVANCEX2
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed
	set M to 0
	GotoLoop ADVANCEX3
EndLoop

Loop ADVANCEX3
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	If M IsEqualTo 20
	then	
		SetParameter	INTERVAL	999999
		SendMessage	SetLandSpeed
		GosubLoop SETTIMER
		Set O to 0
		GotoLoop MAIN
	endif
EndLoop

Loop DESTROYBLOCKS
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

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

Loop SETTIMER
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	4000
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer	
EndLoop

Loop SHORTTIMER
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	2500
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer	
EndLoop

Loop ASKQUESTION
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	If A IsEqualTo 1
	Then
		SendMessage	FIRINGON
		SetParameter	LifeTime	0.1	0.2	3	0.1
		SetParameter	Position	0	190	0	0
		SetParameter	Text	Which_was_the_most_common_colour?
POL		SetParameter	TEXT	Jaki_by³_najbardziej
POL		SendMessage	CREATETEXT
POL		SetParameter	Position	0	160	0	0
POL		SetParameter	TEXT	popularny_kolor?
FRE		SetParameter	TEXT	Quelle_était_la_couleur
FRE		SendMessage	CREATETEXT
FRE		SetParameter	Position	0	160	0	0
FRE		SetParameter	TEXT	la_plus_répandue_?
SPA		SetParameter	TEXT	¿Qué_color_prevalecía?
ITA 		SetParameter	TEXT	Qual_era_il_colore_più_comune?
GER		SetParameter	TEXT	Was_war_die_häufigste_Farbe?


		SendMessage	CREATETEXT
	EndIf

	If A IsEqualTo 2
	Then
		SendMessage	FIRINGON
		SetParameter	LifeTime	0.1	0.2	3	0.1
		SetParameter	Position	0	190	0	0
		SetParameter	Text	Which_was_the_least_common_colour?
POL		SetParameter	TEXT	Jaki_by³_najmniej_popularny_kolor?
FRE		SetParameter	TEXT	Quelle_était_la_couleur
FRE		SendMessage	CREATETEXT
FRE		SetParameter	Position	0	160	0	0
FRE		SetParameter	Text	la_moins_répandue_?
SPA		SetParameter	TEXT	¿Qué_color_era_el_más_escaso?
ITA 		SetParameter	TEXT	Qual_era_il_colore_meno_comune?
GER	SetParameter	TEXT		Was_war_die_seltenste_Farbe?



		SendMessage	CREATETEXT
	EndIf

	If A IsEqualTo 3
	Then
		SendMessage	FIRINGON
		SetParameter	LifeTime	0.1	0.2	3	0.1
		SetParameter	Position	0	190	0	0
ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.8	0.8	0.8	0.0
ITA	SetParameter	Scale3		0.8	0.8	0.8	0.0
ITA	SetParameter	Scale4		0.8	0.8	0.8	0.0
ITA	SetParameter	Scale5		0.8	0.8	0.8	0.0

GER	SetParameter	Scale1		0.1	0.1	0.1	0.0
GER	SetParameter	Scale2		0.7	0.7	0.7	0.0
GER	SetParameter	Scale3		0.7	0.7	0.7	0.0
GER	SetParameter	Scale4		0.7	0.7	0.7	0.0
GER	SetParameter	Scale5		0.7	0.7	0.7	0.0
		SetParameter	Text	Pick_a_colour_that_was_not_used!
POL		SetParameter	TEXT	Wybierz_kolor,_którego_nie_by³o!
ITA		SetParameter	TEXT	Scegli_un_colore_che_non_era_presente!
GER		SetParameter	TEXT	Wähle_eine_Farbe,_die_noch_nicht_benutzt_wurde.

FRE		SetParameter	TEXT	Choisissez_une_couleur
FRE		SendMessage	CREATETEXT
FRE		SetParameter	Position	0	160	0	0
FRE		SetParameter	TEXT	qui_n'a_pas_été_utilisée!

SPA		SetParameter	TEXT	¡Elige_un_color_que
SPA		SendMessage	CREATETEXT
SPA		SetParameter	Position	0	160	0	0
SPA		SetParameter	TEXT	no_aparezca_en_la_imagen!!

		SendMessage	CREATETEXT
	EndIf
EndLoop

/ lets ask the answer prancer! /

Loop RIGHT
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	Set O to 0

	OnMessage TIMER1
	Do
			SendMessage	FIRINGOFF
			GotoLoop ADVANCEX1
	EndResponse
EndLoop

Loop WRONGTEXT
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	SetParameter	LifeTime	0.1	0.2	3	0.1
	SetParameter	Position	0	150	0	0
	SetParameter	Text	YOU_WERE_WRONG!
POL	SetParameter	TEXT	POMYLI£EOE_SIÊ!
FRE	SetParameter	TEXT	MAUVAISE_RÉPONSE!
ITA	SetParameter	TEXT	RISPOSTA_SBAGLIATA!
SPA	SetParameter	TEXT	¡NO,_TE_EQUIVOCAS!
GER	SetParameter	TEXT	FALSCH_GELEGEN!
	


	SendMessage	CREATETEXT

	SetParameter	LIVES	0
	SendMessage	SETLIVES
EndLoop

Loop WRONG
Do
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	Set O to 0

	OnMessage TIMER1
	Do
		If Q IsLessThan 0
		Then
			SendMessage	FIRINGOFF
			GotoLoop ENDGAME
		EndIf
	
		If Q IsGreaterThanOrEqualTo 0
		Then
			If S IsEqualTo 1
			Then
				GotoLoop WINNAR
			EndIf

			If S IsNotEqualTo 1
			Then
				SendMessage	FIRINGOFF
				GotoLoop ADVANCEX1
			EndIf
		EndIf
	EndResponse
EndLoop

/ endgame funk /

Loop ENDGAME
Do
	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		Klêska!
FRE	SetParameter	TEXT		ÉCHEC!
ITA	SetParameter	TEXT		HAI_FALLITO!
SPA 	SetParameter	Text		¡FALLASTE!
GER	SetParameter	TEXT	VERLOREN!


	SendMessage	CREATETEXT
	SendMessage LOSECONDITION
	GotoLoop INFINITE
EndLoop

Loop WINNAR
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!
POL	SetParameter	TEXT	Sukces!
FRE	SetParameter	TEXT	RÉUSSI!
ITA	SetParameter	TEXT	HAI_VINTO!
SPA 	SetParameter	Text	¡LO_CONSEGUISTE!
GER	SetParameter	TEXT	GESCHAFFT!


	SendMessage	CREATETEXT
	SetParameter	TEXT	pdmark
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION
	GotoLoop INFINITE
EndLoop

Loop INFINITE
Do
EndLoop

EndFile