GameMode	dot
GameType	QUEST
	ANCHORBLOCKSONSCREENCOUNTER	W	
	LIVESREMAINING02COUNTER		M
	

Program0123


TEXTBUFFER	LEVS

	dot.wbl

ENDBUFFER


DATABUFFER	ANC

1 7 5 6 6 4 2 3 3 1 9 1 12 6 16 6 15 3 18 1 21 1 23 4 23 8 20 5 -1 -1

ENDBUFFER



Loop INIT
Do
	
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	TEXT	dot.wbw
	SendMessage	LOADWEAPONLIST

	SET A TO 0
	SET B TO 0
	SET C TO 0
	SET D TO 0
	SET E TO 0
	SET F TO 0
	SET G TO 0
	SET H TO 0
	SET I TO 0
	SET J TO 0
	SET K TO 0
	SET L TO 0
	SET M TO 0
	SET N TO 0
	SET P TO 0
	SET Q TO 0
	SET R TO 0
	SET S TO 0
	SET U TO 0
	SET V TO 42
	SET X TO 2
	SET Y TO 10
	SET Z TO 66
	SetParameter	BACKDROP	BACKDROP10
	SendMessage	SETBACKDROP

	SetParameter	LIVES	0
	SendMessage	SETLIVES	
	
	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20        	
        SendMessage     LOADLEVEL

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT

	SendMessage	DEACTIVATESCORE
	
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0050
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0


	SetParameter	Colour1		0.0	1.0	0.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		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.2	0.2	0.2	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Lifetime	0.2	0.6	4.5	7.6
	SetParameter	Justify		Centre

	SendMessage MUSIC_GROOVE_LOW



	SendMessage FIRINGOFF
	SendMessage StartBriefing

	GotoLoop MAIN
	
	
EndLoop



Loop MAIN
Do



	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	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	Scale1		1.3	1.3	1.3	0.0
	SetParameter	Scale2		1.3	1.3	1.3	0.0
	SetParameter	Scale3		1.3	1.3	1.3	0.0
	SetParameter	Scale4		1.3	1.3	1.3	0.0
	SetParameter	Scale5		1.3	1.3	1.3	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dot_to_Dot
FRE	SetParameter	TEXT		Point_ŕ_point
	GER SetParameter	Text	Punkt_für_Punkt
	SPA SetParameter	Text	Punto_por_Punto
	ITA SetParameter	TEXT	Punto_per_punto
POL 	SetParameter	TEXT		Po_nitce_do_kłębka


	

	SendMessage 	CREATETEXT

	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SetParameter	Scale5		0.8	0.8	0.8	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	115.0	0.0	0.0
	SetParameter	Text		Get_to_the_target_joining_all
FRE	SetParameter	TEXT		Atteignez_la_cible_en_reliant
	GER SetParameter	Text	Erreiche_das_Ziel,_indem_du_die_Punkte
	SPA SetParameter	Text	Alcanza_la_diana_uniendo
	ITA SetParameter	TEXT	Raggiungi_il_bersaglio_congiungendo
POL 	SetParameter	TEXT		Dojdź_do_celu_łącząc_wszystkie


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		the_dots_along_the_way.
FRE	SetParameter	TEXT		tous_les_points.
	GER SetParameter	Text	des_Weges_miteinander_verbindest.
	SPA SetParameter	Text	los_puntos_que_hay_en_el_camino.
	ITA SetParameter	TEXT	tutti_i_punti_su_schermo.
POL 	SetParameter	TEXT		punkty_na_swojej_drodze.




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		Use_your_limited_number_of
FRE	SetParameter	TEXT		Utilisez_intelligemment
	GER SetParameter	Text	Sei_vorsichtig_und_benutze_deine_begrenzte
	SPA SetParameter	Text	ˇDispones_de_un_número_limitado_de
	ITA SetParameter	TEXT	Usa_con_cura_il_numero_limitato
POL 	SetParameter	TEXT		Rozsądnie_wykorzystaj_ograniczoną



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		blocks_wisely!
FRE	SetParameter	TEXT		votre_nombre_limité_de_blocs!
	GER SetParameter	Text	Anzahl_von_Steinen_mit_Bedacht!
	SPA SetParameter	Text	bloques_que_deberás_utilizar_bien!
	ITA SetParameter	TEXT	di_colpi!
POL 	SetParameter	TEXT		liczbę_cegieł.



	SendMessage 	CREATETEXT


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
	GER SetParameter	Text	Zum_Starten_Feuer_drücken.
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
POL 	SetParameter	TEXT		Naciśnij_strzał



	SPA	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale5		0.8	0.8	0.8	0.0

	SPA SetParameter	Text	Pulsa_el_disparo_para_empezar
	SendMessage 	CREATETEXT

	SPA	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale5		1.0	1.0	1.0	0.0



	OnMessage FIREPRESSED
	Do




		SetParameter	POSITION	7	15	0	0
		SetParameter	BLOCKCOLOUR	RED
		SendMessage	SETBLOCKCOLOUR

		SetParameter	POSITION	10	15	0	0
		SetParameter	BLOCKCOLOUR	ORANGE
		SendMessage	SETBLOCKCOLOUR

		SetParameter	POSITION	14	15	0	0
		SetParameter	BLOCKCOLOUR	PURPLE
		SendMessage	SETBLOCKCOLOUR

		SetParameter	POSITION	17	15	0	0
		SetParameter	BLOCKCOLOUR	GREEN
		SendMessage	SETBLOCKCOLOUR

		SendMessage FIRINGON
		SendMessage EndBriefing

		GotoLoop MAIN1
		
	EndResponse

EndLoop



Loop MAIN1
Do

	SetParameter	POSITION	5	15	3	0
	SetParameter	BLOCKCOLOUR	DEAD
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	5	16	3	0
	SetParameter	BLOCKCOLOUR	DEAD
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	19	15	3	0
	SetParameter	BLOCKCOLOUR	DEAD
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	20	16	3	0
	SetParameter	BLOCKCOLOUR	DEAD
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	4	17	3	0
	SetParameter	BLOCKCOLOUR	DEAD
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	20	17	3	0
	SetParameter	BLOCKCOLOUR	DEAD
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	4	18	3	0
	SetParameter	BLOCKCOLOUR	DEAD
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	21	18	3	0
	SetParameter	BLOCKCOLOUR	DEAD
	SendMessage	SPAWNINBLOCK


	
	SetParameter    	POSITION        7	15       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO R

	SetParameter    	POSITION        10	15       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO O

	SetParameter    	POSITION        14	15       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO P

	SetParameter    	POSITION        17	15       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO G



	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	

	SetParameter	Colour3		0.91	0.21	0.0	1.0
	SetParameter	Colour6		1.0	1.0	1.0	1.0
	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Position	-110.0	-55.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    ORIENTATION     0.0     0.0     1.0	0.0             / up /
	SetParameter	FRAME		1
	SendMessage 	CREATEICON


	SetParameter	Colour3		1.0	0.56	0.0	1.0
	SetParameter	Colour6		1.0	1.0	1.0	1.0
	SetParameter	Velocity	0.0	-0.0	0.0	0.0
	SetParameter	Position	-35.0	-55.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    ORIENTATION     0.0     0.0     3.0	0.0             / down /
	SetParameter	FRAME		1
	SendMessage 	CREATEICON


	SetParameter	Colour3		0.64	0.28	1.0	1.0
	SetParameter	Colour6		1.0	1.0	1.0	1.0
	SetParameter	Velocity	-0.0	0.0	0.0	0.0
	SetParameter	Position	55.0	-55.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    ORIENTATION     0.0     0.0     0.0	0.0             / left /
	SetParameter	FRAME		1
	SendMessage 	CREATEICON


	SetParameter	Colour3		0.33	0.78	0.15	1.0
	SetParameter	Colour6		1.0	1.0	1.0	1.0
	SetParameter	Velocity	-0.0	0.0	0.0	0.0
	SetParameter	Position	135.0	-55.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    ORIENTATION     0.0     0.0     2.0	0.0             / right /
	SetParameter	FRAME		1
	SendMessage 	CREATEICON


	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		0.9	0.9	0.9	0.9
	SetParameter	Scale2		0.9	0.9	0.9	0.9
	SetParameter	Scale3		0.9	0.9	0.9	0.9
	SetParameter	Scale4		0.9	0.9	0.9	0.9
	SetParameter	Scale5		0.9	0.9	0.9	0.9

	SetParameter	Velocity	-0.0	0.0	0.0	0.0
	SetParameter	Position	100.0	220.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Text		BLOCKS_REMAINING
FRE	SetParameter	TEXT		BLOCS_RESTANTS
	GER SetParameter	Text	VERBLEIBENDE_STEINE
	SPA SetParameter	Text	BLOQUES_RESTANTES
	ITA SetParameter	TEXT	BLOCCHI
POL 	SetParameter	TEXT		Pozostało_cegieł



	SendMessage 	CREATETEXT

	ConvertToText   Z
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	270.0	220.0	0.0	0.0
	SendMessage	CREATETEXT
	
			






	

	If W BecomesLessThan V
	Then

		Randomise S From 1 To 2
	
		If S IsEqualTo 1
		Then		
			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	Scale1		0.9	0.9	0.9	0.9
			SetParameter	Scale2		0.9	0.9	0.9	0.9
			SetParameter	Scale3		0.9	0.9	0.9	0.9
			SetParameter	Scale4		0.9	0.9	0.9	0.9
			SetParameter	Scale5		0.9	0.9	0.9	0.9

			SetParameter	Position	0.0	75.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	2.0	2.5
			SetParameter	Text		Thats_one_of_the_blocks_connected!
FRE			SetParameter	TEXT		C'est_un_des_blocs_reliés_!
			GER SetParameter	Text	Ein_Stein_verbunden!
			SPA SetParameter	Text	ˇHas_conectado_uno_de_los_bloques!
			ITA SetParameter	TEXT	Ecco_uno_dei_blocchi_collegati!
POL 			SetParameter	TEXT		Połączyłeś_cegły




			SendMessage 	CREATETEXT
		EndIf	

		If S IsEqualTo 2
		Then		
			SetParameter	Colour1		1.0	1.0	0.0	1.0
			SetParameter	Colour2		1.0	1.0	0.0	1.0
			SetParameter	Colour3		1.0	1.0	0.0	1.0

			SetParameter	Scale1		0.9	0.9	0.9	0.9
			SetParameter	Scale2		0.9	0.9	0.9	0.9
			SetParameter	Scale3		0.9	0.9	0.9	0.9
			SetParameter	Scale4		0.9	0.9	0.9	0.9
			SetParameter	Scale5		0.9	0.9	0.9	0.9

			SetParameter	Position	0.0	75.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	2.0	2.5
			SetParameter	Text		Connect_those_blocks!
FRE			SetParameter	TEXT		Reliez_ces_blocs_!
			GER SetParameter	Text	Verbinde_diese_Steine!
			SPA SetParameter	Text	ˇConecta_los_bloques!
			ITA SetParameter	TEXT	Collega_quei_blocchi!
POL 			SetParameter	TEXT		Połącz_te_cegły




			SendMessage 	CREATETEXT
		EndIf
	
	EndIf
	
	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


	If R IsEqualTo YELLOW
	Then
		SetParameter 	POSITION	7	15	0	0
		SetParameter	BLOCKCOLOUR	RED
		SendMessage	SPAWNINBLOCK

	EndIF

	If O IsEqualTo YELLOW
	Then
		SetParameter 	POSITION	10	15	0	0
		SetParameter	BLOCKCOLOUR	ORANGE
		SendMessage	SPAWNINBLOCK
		
	EndIF

	If P IsEqualTo YELLOW
	Then
		SetParameter 	POSITION	14	15	0	0
		SetParameter	BLOCKCOLOUR	PURPLE
		SendMessage	SPAWNINBLOCK

	EndIF

	If G IsEqualTo YELLOW
	Then
		SetParameter 	POSITION	17	15	0	0
		SetParameter	BLOCKCOLOUR	GREEN
		SendMessage	SPAWNINBLOCK	

	EndIF
	
	
	If R BecomesEqualTo YELLOW
	Then


		SetParameter 	POSITION	X	Y	0	0
		SetParameter	BLOCKCOLOUR	BOUNCY
		SendMessage	SETBLOCKCOLOUR


		Subtract 1 From Y
		GoSubLoop	CHECK2

		SetParameter 	POSITION	X	Y	0	0
		SetParameter	BLOCKCOLOUR	RAINBOW
		SendMessage	SPAWNINBLOCK

		GoSubLoop	CHECK
		
		Subtract 1 From Z
		Set R TO 0
		Set V TO W
		
		SetParameter	Colour3		0.91	0.21	0.0	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0
		SetParameter	Velocity	0.0	0.01	0.0	0.0
		SetParameter	Position	-110.0	-55.0	0.0	0.0
		SetParameter	Lifetime	0.1	0.1	0.5	0.5
        	SetParameter    ORIENTATION     0.0     0.0     1.0	0.0             / up /
		SetParameter	FRAME		1
		SendMessage 	CREATEICON
		
	EndIf



	If O BecomesEqualTo YELLOW
	Then

		
		
		SetParameter 	POSITION	X	Y	0	0
		SetParameter	BLOCKCOLOUR	BOUNCY
		SendMessage	SETBLOCKCOLOUR
	
		Add 1 To Y
		GoSubLoop	CHECK2

		SetParameter 	POSITION	X	Y	0	0
		SetParameter	BLOCKCOLOUR	RAINBOW
		SendMessage	SPAWNINBLOCK

		GoSubLoop	CHECK
		Subtract 1 From Z
		Set O TO 0
		Set V TO W

		SetParameter	Colour3		1.0	0.56	0.0	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0
		SetParameter	Velocity	0.0	0.01	0.0	0.0
		SetParameter	Position	-35.0	-55.0	0.0	0.0
		SetParameter	Lifetime	0.1	0.1	0.5	0.5
       		SetParameter    ORIENTATION     0.0     0.0     3.0	0.0             / down /
		SetParameter	FRAME		1
		SendMessage 	CREATEICON

	EndIf
	

	If P BecomesEqualTo YELLOW
	Then

				

		SetParameter 	POSITION	X	Y	0	0
		SetParameter	BLOCKCOLOUR	BOUNCY
		SendMessage	SETBLOCKCOLOUR

		Subtract 1 From X
		GoSubLoop	CHECK2

		SetParameter 	POSITION	X	Y	0	0
		SetParameter	BLOCKCOLOUR	RAINBOW
		SendMessage	SPAWNINBLOCK

		GoSubLoop	CHECK
		Subtract 1 From Z
		Set P TO 0
		Set V TO W

		SetParameter	Colour3		0.64	0.28	1.0	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0
		SetParameter	Velocity	0.0	0.01	0.0	0.0
		SetParameter	Position	55.0	-55.0	0.0	0.0
		SetParameter	Lifetime	0.1	0.1	0.5	0.5
       		SetParameter    ORIENTATION     0.0     0.0     0.0	0.0             / left /
		SetParameter	FRAME		1
		SendMessage 	CREATEICON

	EndIf


	If G BecomesEqualTo YELLOW
	Then


		SetParameter 	POSITION	X	Y	0	0
		SetParameter	BLOCKCOLOUR	BOUNCY
		SendMessage	SETBLOCKCOLOUR


		Add 1 To X
		GoSubLoop	CHECK2

		SetParameter 	POSITION	X	Y	0	0
		SetParameter	BLOCKCOLOUR	RAINBOW
		SendMessage	SPAWNINBLOCK

		GoSubLoop	CHECK
		Subtract 1 From Z
		Set G TO 0
		Set V TO W

		SetParameter	Colour3		0.33	0.78	0.15	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0
		SetParameter	Velocity	0.0	0.01	0.0	0.0
		SetParameter	Position	135.0	-55.0	0.0	0.0
		SetParameter	Lifetime	0.1	0.1	0.5	0.5
        	SetParameter    ORIENTATION     0.0     0.0     2.0	0.0             / right /
		SetParameter	FRAME		1
		SendMessage 	CREATEICON

	EndIf


	SetParameter    	POSITION        19	5       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO T


	If T IsEqualTo RAINBOW
	Then
		If W IsEqualTo 28
		Then
			SendMessage FIRINGOFF

			GotoLoop WIN
		EndIf

		If W IsGreaterThan 28
		Then
			SendMessage FIRINGOFF

			GotoLoop FAIL1
		EndIf
			
	EndIf


	SetParameter	POSITION	7	15	0	0
	SetParameter	BLOCKCOLOUR	RED
	SendMessage	SETBLOCKCOLOUR

	SetParameter	POSITION	10	15	0	0
	SetParameter	BLOCKCOLOUR	ORANGE
	SendMessage	SETBLOCKCOLOUR

	SetParameter	POSITION	14	15	0	0
	SetParameter	BLOCKCOLOUR	PURPLE
	SendMessage	SETBLOCKCOLOUR

	SetParameter	POSITION	17	15	0	0
	SetParameter	BLOCKCOLOUR	GREEN
	SendMessage	SETBLOCKCOLOUR


	If Z BecomesEqualTo 45
	Then
		SendMessage MUSIC_GROOVE_MED_LOW
	EndIf

	If Z BecomesEqualTo 30
	Then
		SendMessage MUSIC_GROOVE_MED
	EndIf

	If Z BecomesEqualTo 20
	Then
		SendMessage MUSIC_GROOVE_MED_HI
	EndIf

	If Z BecomesEqualTo 10
	Then
		SendMessage MUSIC_GROOVE_HIGH
	EndIf


	If Z IsEqualTo 0
	Then
		SendMessage FIRINGOFF

		GotoLoop FAIL4

	EndIf
	
/ ************** Check status of the bouncy block string **********/


	If M BecomesEqualTo -1
	Then

		SendMessage FIRINGOFF

		GotoLoop FAIL5

	EndIf


	SetParameter	POSITION	5	15	3	0
	SendMessage	DetonateBlock

	SetParameter	POSITION	5	16	3	0
	SendMessage	DetonateBlock

	SetParameter	POSITION	19	15	3	0
	SendMessage	DetonateBlock

	SetParameter	POSITION	20	16	3	0
	SendMessage	DetonateBlock

	SetParameter	POSITION	4	17	3	0
	SendMessage	DetonateBlock

	SetParameter	POSITION	20	17	3	0
	SendMessage	DetonateBlock

	SetParameter	POSITION	4	18	3	0
	SendMessage	DetonateBlock

	SetParameter	POSITION	21	18	3	0
	SendMessage	DetonateBlock



EndLoop



Loop CHECK
Do

	If X BecomesEqualTo -1
	Then
		SendMessage FIRINGOFF

		GotoLoop FAIL3
	EndIf

	If X BecomesEqualTo 25
	Then
		SendMessage FIRINGOFF

		GotoLoop FAIL3
	EndIf

	If Y BecomesEqualTo 11
	Then
		SendMessage FIRINGOFF

		GotoLoop FAIL3
	EndIf

	If Y BecomesEqualTo -1
	Then
		SendMessage FIRINGOFF

		GotoLoop FAIL3
	EndIf


EndLoop


Loop CHECK2
Do

	SetParameter    	POSITION        X	Y       0       0
	SendMessage     	GETBLOCKCOLOUR
	ReadFromParameter       BLOCKCOLOUR INTO N


	If N IsEqualTo BOUNCY
	Then
		SendMessage FIRINGOFF

		GotoLoop FAIL2

	EndIf	



EndLoop


Loop	FAIL1
Do
	
	OnMessage TIMER1
	Do

		Add 1 To U		

		If U BecomesEqualTo 1
		Then
			SetParameter	Position	0.0	100.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!
FRE			SetParameter	TEXT		ÉCHEC_!
			GER SetParameter	Text	VERLOREN!
			SPA SetParameter	Text	ˇFALLASTE!
			ITA SetParameter	TEXT	HAI_FALLITO!
POL 			SetParameter	TEXT		Klęska



			SendMessage	CREATETEXT


			SetParameter	Scale1		1.0	1.0	1.0	1.0
			SetParameter	Scale2		1.0	1.0	1.0	1.0
			SetParameter	Scale3		1.0	1.0	1.0	1.0
			SetParameter	Scale4		1.0	1.0	1.0	1.0
			SetParameter	Scale5		1.0	1.0	1.0	1.0

			SetParameter	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	Position	0.0	50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5

			GER SetParameter	Scale1		0.8	0.8	0.8	0.0
			GER SetParameter	Scale2		0.8	0.8	0.8	0.0
			GER SetParameter	Scale3		0.8	0.8	0.8	0.0
			GER SetParameter	Scale4		0.8	0.8	0.8	0.0
			GER SetParameter	Scale5		0.8	0.8	0.8	0.0

			SPA SetParameter	Scale1		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale2		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale3		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale4		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale5		0.8	0.8	0.8	0.0

			SetParameter	Text		You_reached_the_target_without
FRE			SetParameter	TEXT		Vous_avez_atteint_la_cible
			GER SetParameter	Text	Du_hast_das_Ziel_erreicht_ohne
			SPA SetParameter	Text	ˇHas_alcanzado_la_diana
			ITA SetParameter	TEXT	Hai_raggiunto_il_bersaglio_senza
POL 			SetParameter	TEXT		Osiągnąłeś_cel




			SendMessage 	CREATETEXT

			SetParameter	Position	0.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5
			SetParameter	Text		connecting_all_the_blocks!
FRE			SetParameter	TEXT		sans_relier_tous_les_blocs_!
			GER SetParameter	Text	alle_Steine_miteinander_zu_verbinden!
			SPA SetParameter	Text	sin_llegar_a_conectar_todos_los_bloques!
			ITA SetParameter	TEXT	collegare_tutti_i_blocchi!
POL 			SetParameter	TEXT		nie_łącząc_wszystkich_cegieł.




			SendMessage 	CREATETEXT
		EndIf


		If U BecomesEqualTo 8
		Then

			SendMessage LOSECONDITION
		EndIf


	EndResponse
	


EndLoop

Loop	FAIL2
Do
	
	OnMessage TIMER1
	Do

		Add 1 To U		

		If U BecomesEqualTo 1
		Then

/
			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	Colour6		0.0	0.0	0.0	1.0
			SetParameter	Position	0.0	100.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5
			SetParameter	Text		MISSION_FAILED
			SendMessage 	CREATETEXT
/
			SetParameter	Position	0.0	100.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!
FRE			SetParameter	TEXT		ÉCHEC_!
			GER SetParameter	Text	VERLOREN!
			SPA SetParameter	Text	ˇFALLASTE!
			ITA SetParameter	TEXT	HAI_FALLITO!
POL 			SetParameter	TEXT		Klęska

			SendMessage	CREATETEXT

			SetParameter	Scale1		1.0	1.0	1.0	1.0
			SetParameter	Scale2		1.0	1.0	1.0	1.0
			SetParameter	Scale3		1.0	1.0	1.0	1.0
			SetParameter	Scale4		1.0	1.0	1.0	1.0
			SetParameter	Scale5		1.0	1.0	1.0	1.0

			SetParameter	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	Position	0.0	50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5

			GER SetParameter	Scale1		0.8	0.8	0.8	0.0
			GER SetParameter	Scale2		0.8	0.8	0.8	0.0
			GER SetParameter	Scale3		0.8	0.8	0.8	0.0
			GER SetParameter	Scale4		0.8	0.8	0.8	0.0
			GER SetParameter	Scale5		0.8	0.8	0.8	0.0

			SPA SetParameter	Scale1		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale2		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale3		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale4		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale5		0.8	0.8	0.8	0.0

			SetParameter	Text		You_moved_back_over
FRE			SetParameter	TEXT		Vous_ętes_revenu_derričre
			GER SetParameter	Text	Du_hast_dich_über_
			SPA SetParameter	Text	ˇHas_vuelto
			ITA SetParameter	TEXT	Sei_passato_di_nuovo_sulla
POL 			SetParameter	TEXT		Cofnąłeś_się_po_




			SendMessage 	CREATETEXT

			SetParameter	Position	0.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5
			SetParameter	Text		your_own_line!
FRE			SetParameter	TEXT		votre_propre_ligne_!
			GER SetParameter	Text	deine_eigene_Linie_zurückbewegt.
			SPA SetParameter	Text	sobre_tus_propios_pasos!
			ITA SetParameter	TEXT	tua_stessa_linea!
POL 			SetParameter	TEXT		własnych_śladach.




			SendMessage 	CREATETEXT
		EndIf


		If U BecomesEqualTo 7
		Then

			SendMessage LOSECONDITION
		EndIf


	EndResponse
	


EndLoop

Loop	FAIL3
Do
	
	OnMessage TIMER1
	Do

		Add 1 To U		

		If U BecomesEqualTo 1
		Then
/
			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	Colour6		0.0	0.0	0.0	1.0
			SetParameter	Position	0.0	100.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5
			SetParameter	Text		MISSION_FAILED
			SendMessage 	CREATETEXT
/

			SetParameter	Position	0.0	100.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!
FRE			SetParameter	TEXT		ÉCHEC_!
			GER SetParameter	Text	VERLOREN!
			SPA SetParameter	Text	ˇFALLASTE!
			ITA SetParameter	TEXT	HAI_FALLITO!
POL 			SetParameter	TEXT		Klęska

			SendMessage	CREATETEXT

			SetParameter	Scale1		1.0	1.0	1.0	1.0
			SetParameter	Scale2		1.0	1.0	1.0	1.0
			SetParameter	Scale3		1.0	1.0	1.0	1.0
			SetParameter	Scale4		1.0	1.0	1.0	1.0
			SetParameter	Scale5		1.0	1.0	1.0	1.0

			SetParameter	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	Position	0.0	50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5
			SetParameter	Text		Out_of_bounds!
FRE			SetParameter	TEXT		Hors_des_limites_!
			GER SetParameter	Text	Außerhalb!
			SPA SetParameter	Text	ˇTe_has_salido!
			ITA SetParameter	TEXT	Sei_uscito_dai_confini!
POL 			SetParameter	TEXT		Koniec_drogi




			SendMessage 	CREATETEXT

		EndIf


		If U BecomesEqualTo 6
		Then

			SendMessage LOSECONDITION
		EndIf


	EndResponse
	


EndLoop


Loop	FAIL4
Do
	
	If T IsEqualTo RAINBOW
	Then
		If W IsEqualTo 28
		Then
			GotoLoop WIN
		EndIf

		If W IsGreaterThan 28
		Then
			GotoLoop FAIL1
		EndIf
			
	EndIf


	OnMessage TIMER1
	Do

		Add 1 To U		

		If U BecomesEqualTo 1
		Then

/
			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	Colour6		0.0	0.0	0.0	1.0
			SetParameter	Position	0.0	100.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5
			SetParameter	Text		MISSION_FAILED
			SendMessage 	CREATETEXT
/

			SetParameter	Position	0.0	100.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!
FRE			SetParameter	TEXT		ÉCHEC_!
			GER SetParameter	Text	VERLOREN!
			SPA SetParameter	Text	ˇFALLASTE!
			ITA SetParameter	TEXT	HAI_FALLITO!
POL 			SetParameter	TEXT		Klęska

			SendMessage	CREATETEXT

			SetParameter	Scale1		1.0	1.0	1.0	1.0
			SetParameter	Scale2		1.0	1.0	1.0	1.0
			SetParameter	Scale3		1.0	1.0	1.0	1.0
			SetParameter	Scale4		1.0	1.0	1.0	1.0
			SetParameter	Scale5		1.0	1.0	1.0	1.0

			SetParameter	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	Position	0.0	50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5
			SetParameter	Text		You_ran_out_of_blocks!

FRE			SetParameter	TEXT		Vous_n'avez_plus_de_blocs!
POL 			SetParameter	TEXT		Skończyły_ci_się_cegły!


			GER SetParameter	Scale1		0.8	0.8	0.8	0.0
			GER SetParameter	Scale2		0.8	0.8	0.8	0.0
			GER SetParameter	Scale3		0.8	0.8	0.8	0.0
			GER SetParameter	Scale4		0.8	0.8	0.8	0.0
			GER SetParameter	Scale5		0.8	0.8	0.8	0.0

			SPA SetParameter	Scale1		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale2		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale3		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale4		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale5		0.8	0.8	0.8	0.0

			GER SetParameter	Text	Du_hast_keine_Steine_mehr_zur_Verfügung!
			SPA SetParameter	Text	ˇTe_has_quedado_sin_bloques!
			ITA SetParameter	TEXT	Hai_terminato_i_blocchi!



			SendMessage 	CREATETEXT

		EndIf


		If U BecomesEqualTo 6
		Then

			SendMessage LOSECONDITION
		EndIf


	EndResponse
	


EndLoop

Loop	FAIL5
Do
	

	OnMessage TIMER1
	Do

		Add 1 To U		

		If U BecomesEqualTo 1
		Then

/
			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	Colour6		0.0	0.0	0.0	1.0
			SetParameter	Position	0.0	100.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5
			SetParameter	Text		MISSION_FAILED
			SendMessage 	CREATETEXT
/

			SetParameter	Position	0.0	100.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!
FRE			SetParameter	TEXT		ÉCHEC_!
			GER SetParameter	Text	VERLOREN!
			SPA SetParameter	Text	ˇFALLASTE!
			ITA SetParameter	TEXT	MISSIONE_FALLITA
POL 			SetParameter	TEXT		Klęska


			SendMessage	CREATETEXT

			SetParameter	Scale1		1.0	1.0	1.0	1.0
			SetParameter	Scale2		1.0	1.0	1.0	1.0
			SetParameter	Scale3		1.0	1.0	1.0	1.0
			SetParameter	Scale4		1.0	1.0	1.0	1.0
			SetParameter	Scale5		1.0	1.0	1.0	1.0

			SetParameter	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	Position	0.0	50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	4.0	7.5
			SetParameter	Text		Suicide_is_not_an_option!


			GER SetParameter	Scale1		0.8	0.8	0.8	0.0
			GER SetParameter	Scale2		0.8	0.8	0.8	0.0
			GER SetParameter	Scale3		0.8	0.8	0.8	0.0
			GER SetParameter	Scale4		0.8	0.8	0.8	0.0
			GER SetParameter	Scale5		0.8	0.8	0.8	0.0

			SPA SetParameter	Scale1		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale2		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale3		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale4		0.8	0.8	0.8	0.0
			SPA SetParameter	Scale5		0.8	0.8	0.8	0.0

			GER SetParameter	Text	Selbstmord_ist_keine_Möglichkeit!
			SPA SetParameter	Text	ˇEl_suicidio_no_es_buena_opción!
			ITA SetParameter	TEXT	Suicidarsi_non_č_la_soluzione!
FRE			SetParameter	TEXT		Le_suicide_n'est_pas_une_solution!
POL 			SetParameter	TEXT		Samobójstwo_nie_jest_rozwiązaniem!


			SendMessage 	CREATETEXT

		EndIf


		If U BecomesEqualTo 6
		Then

			SendMessage LOSECONDITION
		EndIf


	EndResponse
	


EndLoop



Loop	WIN
Do
	
	OnMessage TIMER1
	Do

		Add 1 To U		


	EndResponse


	If U BecomesEqualTo 1
	Then

		SendMessage WINCONDITION
	EndIf
	
EndLoop


EndFile
