GameMode	rings

	CollectStarCounter		S
	DestroyOwnStarCounter		T
	DestroyEnemyStarCounter		T
	LandLinesCounter		L
	WaterHeightCounter		H
	RedComboCounter			R
	GreenComboCounter		G
	PurpleComboCounter		P
	RainbowBlocksOnScreenCounter	N
	LandLinesCounter		M
	LivesRemaining02Counter		Q

Program0123

TEXTBUFFER	LEVS
	Rings.wbl
ENDBUFFER

DATABUFFER	RNG1
14 41 15 41 16 42 17 42 17 43 18 43 19 44 19 45 20 46 19 47 20 48 19 49 19 50 18 51 17 51 17 52 16 52 15 53 
14 53 14 54 13 54 12 54 11 54
10 53 9 53 9 52 8 52 7 51 6 51 6 50 5 49 5 48 5 47 5 46 5 45 6 44 6 43 7 43 8 42 9 42 9 41 10 41 11 40 12 40 
13 40 14 40 
ENDBUFFER

DATABUFFER	RNG2
11 40 12 40 13 40 14 40 14 41 15 41 16 42 17 42 17 43 18 43 19 44 19 45 20 46 19 47 20 48 19 49 19 50 18 51 
17 51 17 52 
16 52 15 53 14 53 14 54 13 54 12 54 11 54
10 53 9 53 9 52 8 52 7 51 6 51 6 50 5 49 5 48 5 47 5 46 5 45 6 44 6 43 7 43 8 42 9 42 9 41 10 41  
ENDBUFFER

DATABUFFER	RNG3
13 51 14 51 15 50 16 50 16 49 17 49 18 48 17 47 18 46 17 45 16 45 16 44 15 44 14 43 13 43 13 42 12 42 11 
43 10 43 10 44 9 44 
8 45 7 45 7 46 7 47 7 48 7 49 8 49 9 50 10 50 10 51 11 51 12 52 13 52 
ENDBUFFER

DATABUFFER	RNG4
11 51 12 52 13 52 13 51 14 51 15 50 16 50 16 49 17 49 18 48 17 47 18 46 17 45 16 45 16 44 15 44 14 43 13 
43 13 42 12 42 
11 43 10 43 10 44 9 44 8 45 7 45 7 46 7 47 7 48 7 49 8 49 9 50 10 50 10 51 
ENDBUFFER

DATABUFFER	RNG5
15 46 15 47 15 48 14 48 13 49 12 49 11 49 11 48 10 48 9 47 10 46 11 46 11 45 12 45 13 45 14 46
ENDBUFFER

DATABUFFER	RNG6
12 45 13 45 14 46 15 46 15 47 15 48 14 48 13 49 12 49 11 49 11 48 10 48 9 47 10 46 11 46 11 45 
ENDBUFFER

DATABUFFER	SQU1
7 34 8 34 9 34 10 34 11 34 12 34 13 34 14 34 15 34 16 34 17 34 18 34 19 34 20 34 21 34 17 34 16 34 15 34
14 34 13 34 12 34 11 34 10 34 9 34 8 34 7 34 6 34 5 34 4 34 3 34
ENDBUFFER

DATABUFFER	SQU2
3 34 4 34 5 34 6 34 7 34 8 34 9 34 10 34 11 34 12 34 13 34 14 34 15 34 16 34 17 34 21 34 20 34 19 34 18 34 
17 34 16 34 15 34 14 34 13 34 12 34 11 34 10 34 9 34 8 34 7 34
ENDBUFFER

DATABUFFER	SQU4
21 30 20 30 19 30 18 30 17 30 16 30 15 30 14 30 13 30 12 30 11 30 10 30 9 30 8 30 7 30 
3 30 4 30 5 30 6 30 7 30 8 30 9 30 10 30 11 30 12 30 13 30 14 30 15 30 16 30 17 30
ENDBUFFER

DATABUFFER	SQU3
17 30 16 30 15 30 14 30 13 30 12 30 11 30 10 30 9 30 8 30 7 30 6 30 5 30 4 30 3 30
7 30 8 30 9 30 10 30 11 30 12 30 13 30 14 30 15 30 16 30 17 30 18 30 19 30 20 30 21 30
ENDBUFFER

DATABUFFER	SQU5
6 26 7 26 8 26 9 26 10 26 11 26 12 26 13 26 14 26 15 26 16 26 17 26 18 26 19 26 20 26 21 26 
18 26 17 26 16 26 15 26 14 26 13 26 12 26 11 26 10 26 9 26 8 26 7 26 6 26 5 26 4 26 3 26 
ENDBUFFER

DATABUFFER	SQU6
3 26 4 26 5 26 6 26 7 26 8 26 9 26 10 26 11 26 12 26 13 26 14 26 15 26 16 26 17 26 18 26
21 26 20 26 19 26 18 26 17 26 16 26 15 26 14 26 13 26 12 26 11 26 10 26 9 26 8 26 7 26 6 26
ENDBUFFER

DATABUFFER	SQU8
21 22 20 22 19 22 18 22 17 22 16 22 15 22 14 22 13 22 12 22 11 22 10 22 9 22 8 22 7 22 6 22
3 22 4 22 5 22 6 22 7 22 8 22 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 17 22 18 22
ENDBUFFER

DATABUFFER	SQU7
18 22 17 22 16 22 15 22 14 22 13 22 12 22 11 22 10 22 9 22 8 22 7 22 6 22 5 22 4 22 3 22
6 22 7 22 8 22 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 17 22 18 22 19 22 20 22 21 22
ENDBUFFER

DATABUFFER	SQUX
21 22 20 22 19 22 18 22 17 22 16 22 15 22 14 22 13 22 12 22 11 22 10 22 9 22 8 22 7 22 6 22 5 22
3 22 4 22 5 22 6 22 7 22 8 22 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 17 22 18 22 19 22 -1 -1
ENDBUFFER

DATABUFFER	BTH1
2 7 3 8 3 9 4 10 4 11 5 12 5 13 6 14 7 14 8 14 9 14 10 14 11 14 12 14 13 14 14 14 15 14 16 14 17 14 18 14
18 13 19 12 19 11 20 10 20 9 21 8 21 7 22 6 22 5 23 4 
21 7 21 8 20 9 20 10 19 11 19 12 18 13 18 14 17 14 16 14 15 14 14 14 13 14 12 14 11 14 10 14 9 14 8 14 7 14 
6 14 5 13 5 12 4 11 4 10 3 9 3 8 2 7 2 6 1 5 1 4 
ENDBUFFER

DATABUFFER	BTH2
1 4 1 5 2 6 2 7 3 8 3 9 4 10 4 11 5 12 5 13 6 14 7 14 8 14 9 14 10 14 11 14 12 14 13 14 14 14 15 14 16 14
17 14 18 14 18 13 19 12 19 11 20 10 20 9 21 8 21 7
23 4 22 5 22 6 21 7 21 8 20 9 20 10 19 11 19 12 18 13 18 14 17 14 16 14 15 14 14 14 13 14 12 14 11 14 10 14
9 14 8 14 7 14 6 14 5 13 5 12 4 11 4 10 3 9 3 8 2 7
ENDBUFFER

DATABUFFER	BTH3
19 6 18 7 18 8 17 9 17 10 16 11 15 11 14 11 13 11 12 11 11 11 10 11 9 11 8 11 7 11 7 10 6 9 6 8 5 7 5 6 4 5 4 4
5 6 5 7 6 8 6 9 7 10 7 11 8 11 9 11 10 11 11 11 12 11 13 11 14 11 15 11 16 11 17 10 17 9 18 8 18 7 19 6 19 5 20 4
ENDBUFFER

DATABUFFER	BTH4
20 4 19 5 19 6 18 7 18 8 17 9 17 10 16 11 15 11 14 11 13 11 12 11 11 11 10 11 9 11 8 11 7 11 7 10 6 9 6 8 5 7 5 6 
4 4 4 5 5 6 5 7 6 8 6 9 7 10 7 11 8 11 9 11 10 11 11 11 12 11 13 11 14 11 15 11 16 11 17 10 17 9 18 8 18 7 19 6
ENDBUFFER

DATABUFFER	BTH5
8 6 8 7 9 8 10 8 11 8 12 8 13 8 14 8 15 8 15 7 16 6 16 5 17 4 
16 6 15 7 15 8 14 8 13 8 12 8 11 8 10 8 9 8 8 7 8 6 7 5 7 4
ENDBUFFER

DATABUFFER	BTH6
7 4 7 5 8 6 8 7 9 8 10 8 11 8 12 8 13 8 14 8 15 8 15 7 16 6
17 4 16 5 16 6 15 7 15 8 14 8 13 8 12 8 11 8 10 8 9 8 8 7 8 6
ENDBUFFER

DATABUFFER	BTH7
11 4 10 4 9 3 10 2 10 1 11 1 12 1 13 1 14 2 14 3 14 4 13 4 12 4
ENDBUFFER

DATABUFFER	BTH8
13 4 12 4 11 4 10 4 9 3 10 2 10 1 11 1 12 1 13 1 14 2 14 3 14 4
ENDBUFFER

DATABUFFER	BTHX
11 4 10 4 9 3 10 2 10 1 11 1 12 1 13 1 14 2 14 3 14 4 13 4 12 4 -1 -1
ENDBUFFER

/ the init loop! /

Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	INTERVAL	999999
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	TEXT	rings.wbw
	SendMessage	LOADWEAPONLIST
	SetParameter	BACKDROP	BACKDROP6
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	60        	
        SendMessage     LOADLEVEL

	SendMessage	QUAKENO
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT

	SetParameter	LIVES		0
	SendMessage	SETLIVES
		
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	0220
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER	

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	0200
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER	

	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0
	SetParameter	Scale1		0.2	0.2	0.2	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0

	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		0.0	1.0	0.0	1.0
	SetParameter	Colour3		0.0	1.0	0.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.0	0.0	1.0	0.0
	SetParameter	Justify		Centre

	ResetBuffer	RNG1
	ResetBuffer	RNG2
	ResetBuffer	RNG3
	ResetBuffer	RNG4
	ResetBuffer	RNG5
	ResetBuffer	RNG6
	ResetBuffer	SQU1
	ResetBuffer	SQU2
	ResetBuffer	SQU3
	ResetBuffer	SQU4
	ResetBuffer	SQU5
	ResetBuffer	SQU6
	ResetBuffer	SQU7
	ResetBuffer	SQU8
	ResetBuffer 	SQUX
	ResetBuffer	BTH1
	ResetBuffer	BTH2
	ResetBuffer	BTH3
	ResetBuffer	BTH4
	ResetBuffer	BTH5
	ResetBuffer	BTH6
	ResetBuffer	BTH7
	ResetBuffer	BTH8
	ResetBuffer	BTHX

	SET A TO 0
	Set S to 0
	Set R to 0
	Set T to 0
	Set L to 0
	Set H to 0
	Set G to 0
	Set P to 0
	Set M to 0
	Set Q to 0

	Set N to 0
	Set J to 0

/ minutes and seconds/
	Set U to 60
	Set I to 0

	SendMessage MUSIC_GROOVE_LOW

	SendMessage	STARTBRIEFING
	SendMessage	FIRINGOFF
	GotoLoop CHECK
EndLoop

/ mission briefing /

Loop CHECK
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF
	EndResponse

	OnMessage FIREPRESSED
	Do
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		SendMessage	MUSIC_GROOVE_MED_LOW
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		GotoLoop RING1
	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	180.0	0.0	0.0
	SetParameter	Text		MOVING_SHAPES_1_of_2
POL	SetParameter	TEXT		RUCHOME_KSZTATY_1_z_2
FRE	SetParameter	TEXT		DPLACER_LES_FORMES_1_sur_2
ITA	SetParameter	TEXT		FIGURE_IN_MOVIMENTO_1_di_2
SPA	SetParameter	TEXT		FORMAS_MVILES_1_de_2
GER	SetParameter	TEXT		BEWEGLICHE_TEILE_1_von_2


	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

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

	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	110.0	0.0	0.0
	SetParameter	Text		Time_your_shots_correctly_to_destroy_the
POL	SetParameter	TEXT		DOKADNIE_WYMIERZ_SWOJE_STRZAY_I
FRE	SetParameter	TEXT		Minutez_bien_vos_tirs_pour_dtruire_les
ITA	SetParameter	TEXT		Spara_nel_momento_giusto_per_distruggere_i
SPA	SetParameter	TEXT		Ajusta_el_tiempo_del_disparo_para_destruir
GER	SetParameter	TEXT		Du_musst_gut_zielen_um_die_Steine_neben


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		blocks_beneath_the_star_and_catch_it_when
POL	SetParameter	TEXT		ZNISZCZ_CEGY_PONI_EJ_GWIAZDEK._ZAP_JE
FRE	SetParameter	TEXT		blocs_situs_sous_l'toile_et_attraper_celle-ci
ITA	SetParameter	TEXT		blocchi_sotto_la_stella_e_afferrala_quando
SPA	SetParameter	TEXT		los_bloques_que_tapan_la_estrella_y_hacer
GER	SetParameter	TEXT		dem_Stern_zu_zerstren_und_ihn_auffangen,

	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		it_falls!_You_have_three_stars_in_total
POL	SetParameter	TEXT		GDY_BD_SPADA._MASZ_DO_ZAPANIA_TRZY
FRE	SetParameter	TEXT		quand_elle_tombe._Vous_devez_attraper_trois
ITA	SetParameter	TEXT		cade!_In_tutto_ci_sono_tre_stelle_da_prendere,
SPA	SetParameter	TEXT		que_caiga._En_total_hay_tres_estrellas
GER	SetParameter	TEXT		wenn_er_fllt!_Du_musst_drei_Sterne_auf


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		to_catch_on_three_separate_screens._You
POL	SetParameter	TEXT		NA_TRZECH_R_NYCH_EKRANACH._NA_ZAPANIE
FRE	SetParameter	TEXT		toiles_sur_trois_crans_distincts._Vous
ITA	SetParameter	TEXT		in_tre_schermate_separate._Hai_un_minuto_per
SPA	SetParameter	TEXT		que_debers_coger_en_tres_pantallas_distintas.
GER	SetParameter	TEXT		drei_Bildschirmen_einsammeln_und_hast


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		have_one_minute_to_collect_each_star!
POL	SetParameter	TEXT		GWIAZDKI_MASZ_DOKADNIE_JEDN_MINUT.
FRE	SetParameter	TEXT		avez_une_minute_pour_rcuprer_chaque_toile.
ITA	SetParameter	TEXT		prendere_ogni_stella!
SPA	SetParameter	TEXT		Tienes_un_minuto_para_cada_estrella!
GER	SetParameter	TEXT		fr_jeden_Stern_eine_Minute_Zeit!


	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

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

/ animate the first screen /

Loop RING1
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

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


	SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If R IsEqualTo 0
		Then
			ReadFromBuffer RNG2 Into C
			ReadFromBuffer RNG2 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer RNG1 Into C
			ReadFromBuffer RNG1 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR
		EndIf

			ReadFromBuffer RNG4 Into C
			ReadFromBuffer RNG4 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer RNG3 Into C
			ReadFromBuffer RNG3 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	GREEN
			SendMessage	SETBLOCKCOLOUR


			ReadFromBuffer RNG6 Into C
			ReadFromBuffer RNG6 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer RNG5 Into C
			ReadFromBuffer RNG5 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	PURPLE
			SendMessage	SETBLOCKCOLOUR

	EndResponse

	If N IsEqualTo 0
	Then
		SetParameter	Position	12	48	0	0
		SetParameter	BlockColour	Rainbow
		SendMessage	SPAWNINBLOCK

		SetParameter	Position	13	48	0	0
		SetParameter	BlockColour	Rainbow
		SendMessage	SPAWNINBLOCK
	EndIf

	GosubLoop TIMER

	OnMessage	REDCOMBODONE
	Do
		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	RED
		SendMessage	CLEARBLOCKS
		GotoLoop RING2
	EndResponse
EndLoop

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

	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If G IsEqualTo 0
		Then
			ReadFromBuffer RNG4 Into C
			ReadFromBuffer RNG4 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer RNG3 Into C
			ReadFromBuffer RNG3 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	GREEN
			SendMessage	SETBLOCKCOLOUR

		EndIf

			ReadFromBuffer RNG6 Into C
			ReadFromBuffer RNG6 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer RNG5 Into C
			ReadFromBuffer RNG5 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	PURPLE
			SendMessage	SETBLOCKCOLOUR

	EndResponse

	If N IsEqualTo 0
	Then
		SetParameter	Position	12	48	0	0
		SetParameter	BlockColour	Rainbow
		SendMessage	SPAWNINBLOCK

		SetParameter	Position	13	48	0	0
		SetParameter	BlockColour	Rainbow
		SendMessage	SPAWNINBLOCK
	EndIf

	GosubLoop TIMER

	OnMessage	GREENCOMBODONE
	Do
		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	GREEN
		SendMessage	CLEARBLOCKS
		GotoLoop RING3
	EndResponse

EndLoop

Loop RING3
Do

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
	SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If P IsEqualTo 0
		Then
			ReadFromBuffer RNG6 Into C
			ReadFromBuffer RNG6 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer RNG5 Into C
			ReadFromBuffer RNG5 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	PURPLE
			SendMessage	SETBLOCKCOLOUR
		EndIf
	EndResponse

/ make sure them blocks is rainbowy /
	SetParameter	Position	12	48	0	0
	SendMessage	GETBLOCKCOLOUR
	ReadFromParameter	BLOCKCOLOUR INTO N

	SetParameter	Position	13	48	0	0
	SendMessage	GETBLOCKCOLOUR
	ReadFromParameter	BLOCKCOLOUR INTO J

	If N IsEqualTo RED
	Then
		SetParameter	Position	12	48	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf

	If N IsEqualTo GREEN
	Then
		SetParameter	Position	12	48	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf

	If J IsEqualTo RED
	Then
		SetParameter	Position	13	48	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf

	If J IsEqualTo GREEN
	Then
		SetParameter	Position	13	48	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf
/ make sure them blocks is rainbowy /

	GosubLoop TIMER

	If P IsGreaterThan 0
	Then
		If U IsGreaterThan 11
		Then
			Set U to 11
		EndIf

		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	PURPLE
		SendMessage	CLEARBLOCKS
		GotoLoop RING4
	EndIf
EndLoop

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

	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER		SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
		SendMessage	LOSECONDITION
		Set R to 0
		Set G to 0
		Set P to 0
		GotoLoop	INFINITE
	EndIf

	GosubLoop TIMER

	If S BecomesGreaterThan 0
	Then
		Set S to 0
		Set A to 1
		Set U to 60
		Set I to 0
		Set R to 0
		Set G to 0
		Set P to 0
		SendMessage	MUSIC_GROOVE_MED
		SetParameter	Lifetime	0.1	0.3	1.0	0.1
		GotoLoop ADVANCE1
	EndIf
EndLoop

/ animate the second screen /

Loop SQUARE1
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If R IsEqualTo 0
		Then
			ReadFromBuffer SQU2 Into C
			ReadFromBuffer SQU2 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU1 Into C
			ReadFromBuffer SQU1 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR
		EndIf
			ReadFromBuffer SQU4 Into C
			ReadFromBuffer SQU4 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU3 Into C
			ReadFromBuffer SQU3 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	GREEN
			SendMessage	SETBLOCKCOLOUR

			ReadFromBuffer SQU6 Into C
			ReadFromBuffer SQU6 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU5 Into C
			ReadFromBuffer SQU5 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	PURPLE
			SendMessage	SETBLOCKCOLOUR

			ReadFromBuffer SQU8 Into C
			ReadFromBuffer SQU8 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU7 Into C
			ReadFromBuffer SQU7 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR
	EndResponse

	GosubLoop TIMER

	OnMessage	REDCOMBODONE
	Do
		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	RED
		SendMessage	CLEARBLOCKS
		GosubLoop	REDRAW
		GotoLoop SQUARE2
	EndResponse

EndLoop

Loop SQUARE2
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER		SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If G IsEqualTo 0
		Then
			ReadFromBuffer SQU4 Into C
			ReadFromBuffer SQU4 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU3 Into C
			ReadFromBuffer SQU3 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	GREEN
			SendMessage	SETBLOCKCOLOUR
		EndIf
			ReadFromBuffer SQU6 Into C
			ReadFromBuffer SQU6 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU5 Into C
			ReadFromBuffer SQU5 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	PURPLE
			SendMessage	SETBLOCKCOLOUR

			ReadFromBuffer SQU8 Into C
			ReadFromBuffer SQU8 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU7 Into C
			ReadFromBuffer SQU7 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR
	EndResponse

	GosubLoop TIMER

	OnMessage	GREENCOMBODONE
	Do
		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	GREEN
		SendMessage	CLEARBLOCKS
		GotoLoop SQUARE3
	EndResponse

EndLoop

Loop SQUARE3
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If P IsEqualTo 0
		Then
			ReadFromBuffer SQU6 Into C
			ReadFromBuffer SQU6 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU5 Into C
			ReadFromBuffer SQU5 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	PURPLE
			SendMessage	SETBLOCKCOLOUR
		EndIf
			ReadFromBuffer SQU8 Into C
			ReadFromBuffer SQU8 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU7 Into C
			ReadFromBuffer SQU7 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR
	EndResponse

	GosubLoop TIMER

	OnMessage	PURPLECOMBODONE
	Do
		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	PURPLE
		SendMessage	CLEARBLOCKS
		GotoLoop SQUARE4
	EndResponse

EndLoop

Loop SQUARE4
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If R IsEqualTo 0
		Then
			ReadFromBuffer SQU8 Into C
			ReadFromBuffer SQU8 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer SQU7 Into C
			ReadFromBuffer SQU7 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR
		EndIf
	EndResponse

/ make sure them blocks is rainbowy /
	SetParameter	Position	12	21	0	0
	SendMessage	GETBLOCKCOLOUR
	ReadFromParameter	BLOCKCOLOUR INTO N

	SetParameter	Position	13	21	0	0
	SendMessage	GETBLOCKCOLOUR
	ReadFromParameter	BLOCKCOLOUR INTO J

	If N IsEqualTo PURPLE
	Then
		SetParameter	Position	12	21	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf

	If N IsEqualTo GREEN
	Then
		SetParameter	Position	12	21	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf

	If J IsEqualTo PURPLE
	Then
		SetParameter	Position	13	21	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf

	If J IsEqualTo GREEN
	Then
		SetParameter	Position	13	21	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf
/ make sure them blocks is rainbowy /


	GosubLoop TIMER

	OnMessage	REDCOMBODONE
	Do
		If U IsGreaterThan 11
		Then
			Set U to 11
		EndIf

		SetParameter	BlockColour	RED
		SendMessage	CLEARBLOCKS
		Set R to 0
		Set G to 0
		Set P to 0
		Set T to 0
		GotoLoop SQUARE5
	EndResponse
EndLoop

Loop SQUARE5
Do

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	If S BecomesGreaterThan 0
	Then
		Set S to 0
		Set A to 2
		Set R to 0
		Set G to 0
		Set P to 0

		Set U to 60
		Set I to 0
		SendMessage	MUSIC_GROOVE_MED
		SetParameter	Lifetime	0.1	0.3	1.0	0.1
		GotoLoop ADVANCE1
	EndIf

	GosubLoop TIMER
EndLoop

Loop BOTH1
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If G IsEqualTo 0
		Then
			ReadFromBuffer BTH2 Into C
			ReadFromBuffer BTH2 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH1 Into C
			ReadFromBuffer BTH1 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	GREEN
			SendMessage	SETBLOCKCOLOUR
		EndIf
			ReadFromBuffer BTH4 Into C
			ReadFromBuffer BTH4 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH3 Into C
			ReadFromBuffer BTH3 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	PURPLE
			SendMessage	SETBLOCKCOLOUR

			ReadFromBuffer BTH6 Into C
			ReadFromBuffer BTH6 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH5 Into C
			ReadFromBuffer BTH5 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR

			ReadFromBuffer BTH8 Into C
			ReadFromBuffer BTH8 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH7 Into C
			ReadFromBuffer BTH7 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	GREEN
			SendMessage	SETBLOCKCOLOUR
	EndResponse

	GosubLoop TIMER

	OnMessage	GREENCOMBODONE
	Do
		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	GREEN
		SendMessage	CLEARBLOCKS
		GosubLoop	REDRAW2
		GotoLoop BOTH2
	EndResponse
EndLoop

Loop BOTH2
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If P IsEqualTo 0
		Then
			ReadFromBuffer BTH4 Into C
			ReadFromBuffer BTH4 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH3 Into C
			ReadFromBuffer BTH3 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	PURPLE
			SendMessage	SETBLOCKCOLOUR
		EndIf
			ReadFromBuffer BTH6 Into C
			ReadFromBuffer BTH6 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH5 Into C
			ReadFromBuffer BTH5 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR

			ReadFromBuffer BTH8 Into C
			ReadFromBuffer BTH8 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH7 Into C
			ReadFromBuffer BTH7 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	GREEN
			SendMessage	SETBLOCKCOLOUR
	EndResponse

	GosubLoop TIMER

	OnMessage	PURPLECOMBODONE
	Do
		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	PURPLE
		SendMessage	CLEARBLOCKS
		GotoLoop BOTH3
	EndResponse
EndLoop

Loop BOTH3
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If R IsEqualTo 0
		Then
			ReadFromBuffer BTH6 Into C
			ReadFromBuffer BTH6 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH5 Into C
			ReadFromBuffer BTH5 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR
		EndIf
			ReadFromBuffer BTH8 Into C
			ReadFromBuffer BTH8 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH7 Into C
			ReadFromBuffer BTH7 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	GREEN
			SendMessage	SETBLOCKCOLOUR
	EndResponse

	GosubLoop TIMER

	OnMessage	REDCOMBODONE
	Do
		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	RED
		SendMessage	CLEARBLOCKS
		GotoLoop BOTH4
	EndResponse
EndLoop

Loop BOTH4
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	OnMessage TIMER1
	Do
		If G IsEqualTo 0
		Then
			ReadFromBuffer BTH8 Into C
			ReadFromBuffer BTH8 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer BTH7 Into C
			ReadFromBuffer BTH7 Into D
			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	GREEN
			SendMessage	SETBLOCKCOLOUR
		EndIf
	EndResponse

/ make sure them blocks is rainbowy /
	SetParameter	Position	11	3	0	0
	SendMessage	GETBLOCKCOLOUR
	ReadFromParameter	BLOCKCOLOUR INTO N

	SetParameter	Position	12	3	0	0
	SendMessage	GETBLOCKCOLOUR
	ReadFromParameter	BLOCKCOLOUR INTO J

	If N IsEqualTo PURPLE
	Then
		SetParameter	Position	11	3	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf

	If N IsEqualTo GREEN
	Then
		SetParameter	Position	11	3	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf

	If J IsEqualTo PURPLE
	Then
		SetParameter	Position	12	3	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf

	If J IsEqualTo GREEN
	Then
		SetParameter	Position	12	3	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
	EndIf
/ make sure them blocks is rainbowy /

	GosubLoop TIMER

	OnMessage	GREENCOMBODONE
	Do
		If U IsGreaterThan 11
		Then
			Set U to 11
		EndIf

		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	GREEN
		SendMessage	CLEARBLOCKS
		Set T to 0
		GotoLoop BOTH5
	EndResponse
EndLoop

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

	If Q BecomesLessThan 0
	Then
		Gotoloop LASTLOOP
	EndIf

	If T BecomesGreaterThan 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		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER	SetParameter	TEXT		VERLOREN!
		SendMessage	CREATETEXT
	SendMessage	LOSECONDITION
	GotoLoop	INFINITE
	EndIf

	GosubLoop TIMER

	If S BecomesGreaterThan 0
	Then
		Set S to 0
		Set A to 2
		GotoLoop ENDGAME
	EndIf
EndLoop

/ this destroys all the blocks on screen and advances to the next screen /

Loop ADVANCE1
Do
	Set R to 0
	Set G to 0
	Set P to 0

	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	0500
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer	

	GotoLoop ADVANCEA
EndLoop

Loop ADVANCEA
Do
	SetParameter	Position	0.0 	0.0 	1.0 	0.0
	SetParameter	BlockColour	ALLCOLOURS
	SendMessage	CLEARBLOCKS

	GosubLoop TIMER

	OnMessage TIMER4
	Do
			GotoLoop ADVANCE2
	EndResponse
	
EndLoop

Loop ADVANCE2
Do
	GosubLoop TIMER

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

Loop ADVANCE3
Do
	GosubLoop TIMER

	If M IsEqualTo 20
	then	
		SetParameter	INTERVAL	999999
		SendMessage	SetLandSpeed

		If A IsEqualTo 1
			Then

				GotoLoop SQUARE1
			EndIf

		If A IsEqualTo 2
			Then

				GotoLoop BOTH1
			EndIf
	endif
EndLoop

/ this redraws the top square line /

Loop REDRAW
Do
	Set X to 0
	Set Y to 0

	GosubLoop TIMER

	While X IsGreaterThanOrEqualTo 0
	Do
		ReadFromBuffer SQUX into X
		ReadFromBuffer SQUX into Y
		If X IsGreaterThanOrEqualTo 0
		Then
			SetParameter	BlockColour	ANCHOR
			SetParameter	Position	X	Y	0	0
			SendMessage	SPAWNINBLOCK
		EndIf
	EndWhile
EndLoop

Loop REDRAW2
Do
	Set X to 0
	Set Y to 0

	GosubLoop TIMER

	While X IsGreaterThanOrEqualTo 0
	Do
		ReadFromBuffer BTHX into X
		ReadFromBuffer BTHX into Y
		If X IsGreaterThanOrEqualTo 0
		Then
			SetParameter	BlockColour	ANCHOR
			SetParameter	Position	X	Y	0	0
			SendMessage	SPAWNINBLOCK
		EndIf
	EndWhile
EndLoop

/ teh timer /
Loop TIMER
Do
	SetParameter	Lifetime	0	0	0	0
	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	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	180.0	210.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 TIMER2
	Do
		SetParameter	Lifetime	0	0	1	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
		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

			If U IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to I
			EndIf

			Subtract 1 from U
			SetParameter	Position	245.0	210.0	0.0	0.0

	If I IsEqualTo 0
		Then

			If U 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

		EndIf



				If U 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   U
			SendMessage	CREATETEXT
			ConvertToText	I
			SetParameter	Position	215.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			If U IsEqualTo 0
			Then
				Subtract 1 from I
				Set U to 60
			EndIf

			If I IsLessThan 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!
POL					SetParameter	TEXT		Czas_upyn
FRE					SetParameter	TEXT		TEMPS_COUL!
ITA		SetParameter				TEXT		TEMPO_ESAURITO!
SPA					SetParameter	TEXT		TIEMPO!
GER	SetParameter	TEXT		ENDE!

		
					SendMessage	CREATETEXT
					SetParameter	Lifetime	0.0	0.0	1.0	0.0
					SetParameter	Velocity	0.0	0.0	0.0	0.0
					SetParameter	Colour2		0.0	1.0	0.0	1.0
					SetParameter	Colour3		0.0	1.0	0.0	1.0
						SendMessage	LOSECONDITION
	GotoLoop	INFINITE
			EndIf

			SetParameter	Colour1		1.0	1.0	1.0	1.0
			SetParameter	Colour2		0.0	1.0	0.0	1.0
			SetParameter	Colour3		0.0	1.0	0.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.0	0.0	1.0	0.0
	EndResponse

	If U BecomesLessThan 40
	Then
		SendMessage	MUSIC_GROOVE_MED
	EndIf

	If U BecomesLessThan 20
	Then
		SendMessage	MUSIC_GROOVE_MED_HI
	EndIf

	If U BecomesLessThan 10
	Then
		SetParameter	Position	340.0	0.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.5	2.5	0.5
		SetParameter	Velocity	-0.4	0.0	0.0	0.0
		SetParameter	Scale1		2.0	2.0	2.0	0.0
		SetParameter	Scale2		3.0	3.0	3.0	0.0
		SetParameter	Colour2		0.86	0.16	0.09	1.0
		SetParameter	Colour3		0.86	0.16	0.09	1.0
		SetParameter	Text		HURRY_UP!!
POL		SetParameter	TEXT		Popiesz_si!
FRE		SetParameter	TEXT		DPCHEZ-VOUS!!
ITA		SetParameter	TEXT		SBRIGATI!
SPA		SetParameter	TEXT		DEPRISA!
GER	SetParameter	TEXT	SCHNELLER!
		SendMessage	CREATETEXT
		SendMessage	MUSIC_GROOVE_HIGH
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Velocity	0.0	0.0	0.0	0.0
		SetParameter	Colour2		0.0	1.0	0.0	1.0
		SetParameter	Colour3		0.0	1.0	0.0	1.0
	EndIf
EndLoop

/ this here is the end /

Loop ENDGAME
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	RUSSI!
ITA	SetParameter	TEXT	HAI_VINTO!
SPA	SetParameter	TEXT	LO_CONSEGUISTE!
GER	SetParameter	TEXT	GESCHAFFT!


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

Loop LASTLOOP
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		Klska!
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 INFINITE
Do
EndLoop

EndFile