GameMode	rings2

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

Program0123

TEXTBUFFER	LEVS
	Rings2.wbl
ENDBUFFER

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

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

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

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

DATABUFFER	RNG5
14 45 14 46 14 47 14 48 14 49 14 50 13 50 12 50 11 50 10 49 11 48 10 47 11 46 10 45 11 44 12 44 13 44
14 44 
ENDBUFFER

DATABUFFER	RNG6
13 44 14 44 14 45 14 46 14 47 14 48 14 49 14 50 13 50 12 50 11 50 10 49 11 48 10 47 11 46 10 45
11 44 12 44
ENDBUFFER

DATABUFFER	SQU1
17 21 18 22 18 23 19 24 19 25 20 26 20 27 20 28 19 29 19 30 18 31 18 32 17 33 17 34 16 34 15 34 14 34
13 34 12 34 11 34 10 34 9 34 8 34 7 33 7 32 6 31 6 30 5 29 5 28 4 27 5 26 5 25 6 24 6 23 7 22 7 21 
8 20 9 20 10 20 11 20 12 20 13 20 14 20 15 20 16 20 17 20
ENDBUFFER

DATABUFFER	SQU2
16 20 17 20 17 21 18 22 18 23 19 24 19 25 20 26 20 27 20 28 19 29 19 30 18 31 18 32 17 33 17 34 16 
34 15 34 14 34 13 34 12 34 11 34 10 34 9 34 8 34 7 33 7 32 6 31 6 30 5 29 5 28 4 27 5 26 5 25 6 24 
6 23 7 22 7 21 8 20 9 20 10 20 11 20 12 20 13 20 14 20 15 20
ENDBUFFER

DATABUFFER	SQU3
7 25 8 24 8 23 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 16 23 17 24 17 25 18 26 18 27 18 28 
17 29 17 30 16 31 16 32 15 32 14 32 13 32 12 32 11 32 10 32 9 32 8 31 8 30 7 29 7 28 6 27 7 26
ENDBUFFER

DATABUFFER	SQU4
6 27 7 26 7 25 8 24 8 23 9 22 10 22 11 22 12 22 13 22 14 22 15 22 16 22 16 23 17 24 17 25 18 26 18 
27 18 28 17 29 17 30 16 31 16 32 15 32 14 32 13 32 12 32 11 32 10 32 9 32 8 31 8 30 7 29 7 28 
ENDBUFFER

DATABUFFER	SQU5
13 30 12 30 11 30 10 30 9 29 9 28 8 27 9 26 9 25 10 24 11 24 12 24 13 24 14 24 15 24 15 25 16 26 
16 27 16 28 15 29 15 30 14 30
ENDBUFFER

DATABUFFER	SQU6
15 30 14 30 13 30 12 30 11 30 10 30 9 29 9 28 8 27 9 26 9 25 10 24 11 24 12 24 13 24 14 24 15 24 15 
25 16 26 16 27 16 28 15 29 
ENDBUFFER

DATABUFFER	SQU7
14 26 14 27 14 28 13 28 12 28 11 28 10 27 11 26 12 26
ENDBUFFER

DATABUFFER	SQU8
11 26 12 26 14 26 14 27 14 28 13 28 12 28 11 28 10 27
ENDBUFFER

DATABUFFER	SQUX
11 26 12 26 14 26 14 27 14 28 13 28 12 28 11 28 10 27 -1 -1
ENDBUFFER

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

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

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

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

DATABUFFER	BTH5
10 9 9 9 10 8 10 7 10 6 9 5 10 5 11 5 12 5 13 5 14 5 14 6 13 7 14 8 14 9 13 9 12 9 11 9 
ENDBUFFER

DATABUFFER	BTH6
12 9 11 9 10 9 9 9 10 8 10 7 10 6 9 5 10 5 11 5 12 5 13 5 14 5 14 6 13 7 14 8 14 9 13 9
ENDBUFFER

/ the init loop! /

Loop INIT
Do

	SendMessage	DEACTIVATESCORE
	SendMessage	STARTBRIEFING

	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	BACKDROP	BACKDROP8
	SendMessage	SETBACKDROP
	SetParameter	TEXT	rings2.wbw
	SendMessage	LOADWEAPONLIST
	
	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	0170/
	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

	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

	SendMessage MUSIC_GROOVE_LOW

/ minutes and seconds/
	Set U to 60
	Set I to 0
	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	FIRINGON
		SendMessage	ENDBRIEFING
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		GotoLoop RING1
	EndResponse

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	Position	0.0	180.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Justify		Centre
	SetParameter	Text		MOVING_SHAPES_2_of_2
POL	SetParameter	TEXT		RUCHOMY_CEL_2_z_2
FRE	SetParameter	TEXT		DPLACER_LES_FORMES_2_sur_2
ITA	SetParameter	TEXT		FIGURE_IN_MOVIMENTO_2_di_2
SPA	SetParameter	TEXT		FORMAS_MVILES_2_de_2
GER	SetParameter	TEXT		BEWEGLICHE_TEILE_2_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_
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		prendere,_in_tre_schermate_separate._Hai_
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		un_minuto_per_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

	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

	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	SETBLOCKCOLOUR

			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	49	0	0
	SendMessage	GETBLOCKCOLOUR
	ReadFromParameter	BLOCKCOLOUR INTO N

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

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

	GosubLoop TIMER

	OnMessage	PURPLECOMBODONE
	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	PURPLE
		SendMessage	CLEARBLOCKS
		GotoLoop RING4
	EndResponse

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
	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
		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	27	0	0
	SendMessage	GETBLOCKCOLOUR
	ReadFromParameter	BLOCKCOLOUR INTO N

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

	If N IsEqualTo GREEN
	Then
		SetParameter	Position	12	27	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
	EndResponse

	GosubLoop TIMER

	OnMessage	GREENCOMBODONE
	Do
		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	GREEN
		SendMessage	CLEARBLOCKS
		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
	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

	EndResponse

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

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

	If N IsEqualTo GREEN
	Then
		SetParameter	Position	12	8	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

		Set R to 0
		Set G to 0
		Set P to 0
		SetParameter	BlockColour	RED
		SendMessage	CLEARBLOCKS
		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
					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		MACH_SCHNELL!


		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
	SendMessage	WINCONDITION
	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