GameMode	purple

POL	Zniszcz_fioletowe_cegy
FRE	LE_POURPRE
ITA	CACCIA_AL_VIOLA
GER	purpur
SPA	A_POR_EL_morado



GameType	TOURNAMENT
HIDDENID	4
	PurpleComboCounter		C
	LandLinesCounter		H
	BulletGoneCounter		B
	LivesRemaining02Counter		Q

Program0123

DATABUFFER DRAW
14 349 15 349 14 348 16 348 14 347 15 347
14 329 15 329 14 328 16 328 14 327 15 327 
14 309 15 309 14 308 16 308 14 307 15 307
-1 -1
ENDBUFFER

DATABUFFER DRA2
14 289 15 289 14 288 16 288 14 287 15 287 
14 269 15 269 14 268 16 268 14 267 15 267 
14 249 15 249 14 248 16 248 14 247 15 247
-1 -1
ENDBUFFER

DATABUFFER DRA3
14 229 15 229 14 228 16 228 14 227 15 227 
14 209 15 209 14 208 16 208 14 207 15 207
14 189 15 189 14 188 16 188 14 187 15 187
-1 -1
ENDBUFFER

DATABUFFER DRA4
14 169 15 169 14 168 16 168 14 167 15 167 
14 149 15 149 14 148 16 148 14 147 15 147
14 129 15 129 14 128 16 128 14 127 15 127 
-1 -1
ENDBUFFER

DATABUFFER DRA5
14 109 15 109 14 108 16 108 14 107 15 107
14 89 15 89 14 88 16 88 14 87 15 87
14 69 15 69 14 68 16 68 14 67 15 67 
-1 -1
ENDBUFFER

DATABUFFER DRA6
14 49 15 49 14 48 16 48 14 47 15 47
14 29 15 29 14 28 16 28 14 27 15 27 
14 9 15 9 14 8 16 8 14 7 15 7
-1 -1
ENDBUFFER

DATABUFFER ANKA
15 348
15 328
15 308
ENDBUFFER

DATABUFFER ANK2
15 288
15 268
15 248
ENDBUFFER

DATABUFFER ANK3
15 228
15 208
15 188
ENDBUFFER

DATABUFFER ANK4
15 168
15 148
15 128
ENDBUFFER

DATABUFFER ANK5
15 108
15 88
15 68
ENDBUFFER

DATABUFFER ANK6
15 48
15 28
15 8
ENDBUFFER

TEXTBUFFER      LEVS
         purple.wbl
ENDBUFFER

Loop INIT
Do
	SendMessage	CLEARPROJECTILES

	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then
		Randomise A From 4 To 12
	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP

	SetParameter	TEXT	purple.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter	INTERVAL	999999
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	
        SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                360
        SendMessage     LOADLEVEL

	SendMessage	STARTBRIEFING
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	SendMessage	FIRINGOFF
	SendMessage	MUSIC_GROOVE_LOW
	SendMessage	QUAKENO

	SetParameter	LIVES		3
	SendMessage	SetLives

	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Velocity	0.0	0.01	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0

	SetParameter	Colour1		1.0	1.0	1.0	1.0

	SetParameter	Colour4		1.0	1.0	1.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0

	SetParameter	Lifetime	0.1	0.5	1.0	1.5
	SetParameter	JUSTIFY		CENTRE

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 	0
	SendMessage	SETBOATPOSITION

	Set X to 0
	Set S to 0
	Set G to 0
	Set K to 0
	Set M to 0
	Set J to 0
	Set D to 0
	Set V to 0
	Set C to 0
	Set H to 0
	Set B to 0
	Set Q to 0

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	0200
	SetParameter	REPEAT		TRUE
	SendMessage	CreateTimer

	SetParameter	TEXT	purple
	SendMessage	SET_HIGHSCORE_TABLE

	SendMessage     DEACTIVATESCORE

	GotoLoop CHECKBRIEF
EndLoop

/ mission briefing /

Loop CHECKBRIEF
Do
	OnMessage TIMER1
	Do
		GosubLoop	BRIEF
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SendMessage	MUSIC_GROOVE_MED_LOW
		SetParameter	MESSAGE_ID	TIMER4
		SetParameter	INTERVAL	1000
		SetParameter	REPEAT		TRUE
		SendMessage	CreateTimer
		Set B to 0
		GotoLoop MAIN1
	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         0.70     0.37    0.92    1.0
        SetParameter    Colour2         0.70     0.37    0.92    1.0
        SetParameter    Colour3         0.70     0.37    0.92    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
GER	SetParameter	Scale1		1.0	1.0	1.0	0.0
GER	SetParameter	Scale2		1.0	1.0	1.0	0.0
GER	SetParameter	Scale3		1.0	1.0	1.0	0.0
GER	SetParameter	Scale4		1.0	1.0	1.0	0.0
GER	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Text		GO_FOR_PURPLE
POL	SetParameter	TEXT		Zniszcz_fioletowe_cegy
FRE	SetParameter	TEXT		ALLEZ_POUR_LE_POURPRE
ITA	SetParameter	TEXT		CACCIA_AL_VIOLA
GER	SetParameter	TEXT		Zerstre_die_lilafarbenen_Steine.
SPA	SetParameter	TEXT		A_POR_EL_morado

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

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	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		Your_goal_is_to_hit_the_purple_group_of
POL	SetParameter	TEXT		TWOJE_ZADANIE_TO_TRAFI_FIOLETOWE_CEGY.
FRE	SetParameter	TEXT		Votre_objectif_est_de_dtruire_le_groupe_de
ITA	SetParameter	TEXT		Il_tuo_obiettivo__colpire_il_gruppo_di
GER	SetParameter	TEXT		Ziel_ist_es_die_lilafarbenen_Steine_zu_treffen!
SPA	SetParameter	TEXT		Debes_disparar_a_los_bloques_morados!

	SendMessage	CreateText

	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		blocks!_You_have_three_lives_in_total,
POL	SetParameter	TEXT		MASZ_TYLKO_TRZY_YCIA,_TRACISZ_JEDNO_ZA
FRE	SetParameter	TEXT		blocs_violets._Vous_avez_un_total_de
ITA	SetParameter	TEXT		blocchi_viola!_Hai_in_tutto_tre_vite_e_ne
GER	SetParameter	TEXT		Du_hast_insgesamt_drei_Leben,_von_denen
SPA	SetParameter	TEXT		Dispones_de_tres_vidas_en_total,

	SendMessage	CreateText

	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		you_will_lose_a_life_each_time_you_miss.
POL	SetParameter	TEXT		KADYM_RAZEM,_GDY_SPUDUJESZ._DOSTAJESZ
FRE	SetParameter	TEXT		trois_vies._Quand_vous_manquez_un_tir,_vous
ITA	SetParameter	TEXT		perderai_una_per_ogni_errore_commesso.
GER	SetParameter	TEXT		du_eins_verlierst,_wenn_du_vorbei_schiet.
SPA	SetParameter	TEXT		y_perders_una_cada_vez_que_falles_un_disparo.

	SendMessage	CreateText

	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		You_get_1000_points_for_each_group_of
POL	SetParameter	TEXT		1000_PUNKTW_ZA_KA_D_ZNISZCZON_GRUP
FRE	SetParameter	TEXT		perdez_une_vie._Vous_obtenez_1000_points
ITA	SetParameter	TEXT		Ogni_gruppo_di_blocchi_distrutti_ti_frutter
GER	SetParameter	TEXT		Du_erhltst_1000_Punkte_fr_jede_abgerumte
SPA	SetParameter	TEXT		Conseguirs_1000_puntos_por_cada_grupo

	SendMessage	CreateText

	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		blocks_you_destroy.
POL	SetParameter	TEXT		FIOLETOWYCH_CEGIE._ZDOBD_NAJLEPSZY_WYNIK?
FRE	SetParameter	TEXT		pour_chaque_groupe_de_blocs_dtruits.
ITA	SetParameter	TEXT		1000_punti._Coraggio,_punta_al_record!
GER	SetParameter	TEXT		Gruppe_von_Lilafarbenen_Steinen._Viel_Glck!
SPA	SetParameter	TEXT		destruido._Intenta_batir_el_rcord!

	SendMessage	CreateText

	SetParameter	Position	0.0	-65.0	0.0	0.0
ENG	SetParameter	Text		Go_for_a_new_high_score!
FRE	SetParameter	TEXT		Augmentez_votre_score!
ITA	SetParameter	TEXT		___
GER	SetParameter	TEXT		___
SPA	SetParameter	TEXT		___
POL	SetParameter	TEXT		___
	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
EndLoop


/ **********************FIRST LOOP******************** /

Loop MAIN1
Do
	SetParameter	Position	0.0	-150.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	If B IsGreaterThan 0
	Then
		GosubLoop VEE
		Set C to 0
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set B to 0
		GotoLoop WAITCHECK
	EndIf

	If B IsGreaterThan 1
	Then
		GosubLoop VEE
		Set C to 0
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set B to 0
		GotoLoop WAITCHECK
	EndIf

	If B IsGreaterThan 2
	Then
		GosubLoop VEE
		Set C to 0
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set B to 0
		GotoLoop WAITCHECK
	EndIf

	If B IsGreaterThan 3
	Then
		GosubLoop VEE
		Set C to 0
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set B to 0
		GotoLoop WAITCHECK
	EndIf

	If B IsGreaterThan 4
	Then
		GosubLoop VEE
		Set C to 0
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set B to 0
		GotoLoop WAITCHECK
	EndIf

	If B IsGreaterThan 5
	Then
		GosubLoop VEE
		Set C to 0
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set B to 0
		GotoLoop WAITCHECK
	EndIf

	If B IsGreaterThan 6
	Then
		GosubLoop VEE
		Set C to 0
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set B to 0
		GotoLoop WAITCHECK
	EndIf

	If B IsGreaterThan 7
	Then
		GosubLoop VEE
		Set C to 0
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set B to 0
		GotoLoop WAITCHECK
	EndIf

	GosubLoop SCORE
EndLoop

/ **** this loop sets the variable V with whatever the current screen is, to be used later to
  pick out the databuffers used to draw the purple blocks in the end stats screen ****/

Loop VEE
Do
	If V IsEqualTo 18
	Then
		Set V to 0
	EndIf

	If V IsNotEqualTo 18
	Then
		Add 1 to V
	EndIf
EndLoop

/ ***** what's it gonna be ? ***** /

Loop WAITCHECK
Do
	Add 1 to G

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	200
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer

	GosubLoop SCORE

	GotoLoop WAITCHECKA
EndLoop

Loop WAITCHECKA
Do
	GosubLoop SCORE

	OnMessage TIMER3
	Do
		GotoLoop CHECK
	EndResponse
EndLoop

Loop CHECK
Do
	If C IsLessThanOrEqualTo 0
	Then
		Add 1 to X
		Set C to 0

		If X IsNotEqualTo 4
		Then
			SetParameter	Lifetime	0.0	0.0	1.0	0.0
			SetParameter	Scale1		0.5	0.5	0.5	0.0
			SetParameter	Scale2		1.5	1.5	1.5	0.0
			SetParameter	Position	0.0	-25.0	0.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	MISSED!
POL			SetParameter	TEXT	STRACONYCH!
FRE			SetParameter	TEXT	LOUP!
ITA			SetParameter	TEXT	MANCATO!
SPA			SetParameter	TEXT	FALLASTE!
GER			SetParameter	TEXT	DANEBEN!



			SendMessage	CREATETEXT
			GosubLoop LIVES
			GosubLoop DESTROYBLOCKS
			GotoLoop MAIN2
		EndIf

/		If X IsEqualTo 4/
		If Q IsLessThan 0
		Then
			SetParameter	MESSAGE_ID	TIMER7
			SetParameter	INTERVAL	5400
			SetParameter	REPEAT		FALSE
			SendMessage	CreateTimer

			SetParameter	MESSAGE_ID	TIMER8
			SetParameter	INTERVAL	1000
			SetParameter	REPEAT		FALSE
			SendMessage	CreateTimer

			GosubLoop DESTROYBLOCKS
			GotoLoop TOMWAITSA
		EndIf
	EndIf

	If C IsGreaterThan 0
	Then
		Add 1 to S
		Add 1000 to K
		Set C to 0
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Scale1		0.5	0.5	0.5	0.0
		SetParameter	Scale2		1.5	1.5	1.5	0.0
		SetParameter	Position	0.0	-25.0	0.0	0.0
		SetParameter	Colour2		0.64	0.28	1.0	1.0
		SetParameter	Colour3		0.64	0.28	1.0	1.0
		SetParameter 	Text	COMPLETE!
POL		SetParameter	TEXT	SUKCES!
FRE		SetParameter	TEXT	TERMIN!
ITA		SetParameter	TEXT	COMPLETATO!
SPA		SetParameter	TEXT	TERMINADO!
GER		SetParameter	TEXT	KOMPLETT!


		SendMessage	CREATETEXT
		
		If X IsNotEqualTo 4
		Then
			GosubLoop DESTROYBLOCKS
			GotoLoop MAIN2
		EndIf

		If X IsEqualTo 4
		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
			GosubLoop DESTROYBLOCKS
			GotoLoop LOSE
		EndIf
	EndIf

	GosubLoop SCORE

EndLoop

/ ***** this loop shows the remaining lives ***** /

Loop LIVES
Do
	Subtract 1 from Q
	SetParameter	LIVES	Q
	SendMessage	SETLIVES

	If Q BecomesEqualTo 2
	Then
		SendMessage	MUSIC_GROOVE_MED
	EndIf

	If Q BecomesEqualTo 1
	Then
		SendMessage	MUSIC_GROOVE_MED_HI
	EndIf

	If Q BecomesEqualTo 0
	Then
		SendMessage	MUSIC_GROOVE_HIGH
	EndIf

	GosubLoop SCORE
EndLoop

/ ************* the following loops advance the screen ************* /

Loop MAIN2
Do
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0500
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer

	GosubLoop SCORE

	GotoLoop MAIN2A
EndLoop

Loop MAIN2A
Do
	GosubLoop SCORE

	OnMessage TIMER2
	Do
		GotoLoop MAIN3
	EndResponse
EndLoop

Loop MAIN3
Do
	GosubLoop SCORE

	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed
	set H to 0
	GotoLoop MAIN4
EndLoop

Loop MAIN4
Do
	GosubLoop SCORE

	If H IsEqualTo 20
	then	
		SetParameter	INTERVAL	100000
		SendMessage	SetLandSpeed
		Set C to 0
		Set B to 0
		SendMessage	PAUSELANDLEFT
		SendMessage	PAUSELANDRIGHT
		GotoLoop MAIN1
	endif
EndLoop

/ ************** this loop destroys the blocks ************* /

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

	GosubLoop SCORE
EndLoop

/ ****** score counter ****** /

Loop SCORE
Do
	OnMessage TIMER1
	Do
		SetParameter	Lifetime	0.0	0.0	0.2	0.0
		ConvertToText S
		SetParameter	Position	2.0	-210.0	0.0	0.0

		/If S IsGreaterThanOrEqualTo 10
		Then

		EndIf/

		SetParameter    Score   S
       		SetParameter    Digits  2
       		SendMessage     CREATESCORE

		SetParameter	Text	#
		SetParameter	Position	-30.0	-210.0	0.0	0.0
		SendMessage	CREATETEXT
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

/ ****** stats screen ****** /

Loop TOMWAITSA
Do
	OnMessage	TIMER8
	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		GAME_OVER!
POL		SetParameter	TEXT		KONIEC!
FRE		SetParameter	TEXT		vous_tes_limin!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		Se_acab_el_juego!
GER		SetParameter	TEXT		VERLOREN!


		SendMessage	CREATETEXT




		SendMessage	FIRINGOFF
		GotoLoop TOMWAITS
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop TOMWAITS
Do
	OnMessage	TIMER7
	Do
		GotoLoop DRAWSUMBLOX
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop DRAWSUMBLOX
Do
	If V IsGreaterThanOrEqualTo 1
	Then
		If V IsLessThanOrEqualTo 3
		Then
			ReadFromBuffer DRAW into U
			ReadFromBuffer DRAW into I
			ReadFromBuffer ANKA into O
			ReadFromBuffer ANKA into P
		EndIf
	EndIf

	If V IsGreaterThanOrEqualTo 4
	Then
		If V IsLessThanOrEqualTo 6
		Then
			ReadFromBuffer DRA2 into U
			ReadFromBuffer DRA2 into I
			ReadFromBuffer ANK2 into O
			ReadFromBuffer ANK2 into P
		EndIf
	EndIf

	If V IsGreaterThanOrEqualTo 7
	Then
		If V IsLessThanOrEqualTo 9
		Then
			ReadFromBuffer DRA3 into U
			ReadFromBuffer DRA3 into I
			ReadFromBuffer ANK3 into O
			ReadFromBuffer ANK3 into P
		EndIf
	EndIf

	If V IsGreaterThanOrEqualTo 10
	Then
		If V IsLessThanOrEqualTo 12
		Then
			ReadFromBuffer DRA4 into U
			ReadFromBuffer DRA4 into I
			ReadFromBuffer ANK4 into O
			ReadFromBuffer ANK4 into P
		EndIf
	EndIf

	If V IsGreaterThanOrEqualTo 13
	Then
		If V IsLessThanOrEqualTo 15
		Then
			ReadFromBuffer DRA5 into U
			ReadFromBuffer DRA5 into I
			ReadFromBuffer ANK5 into O
			ReadFromBuffer ANK5 into P
		EndIf
	EndIf

	If V IsGreaterThanOrEqualTo 16
	Then
		If V IsLessThanOrEqualTo 18
		Then
			ReadFromBuffer DRA6 into U
			ReadFromBuffer DRA6 into I
			ReadFromBuffer ANK6 into O
			ReadFromBuffer ANK6 into P
		EndIf
	EndIf

	If I IsGreaterThan 0
	Then
		SetParameter	Position	U	I	0.0	0.0
		SetParameter	BlockColour	PURPLE
		SendMessage	SPAWNINBLOCK
		SetParameter	Position	O	P	0.0	0.0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK
	EndIf

	If I IsLessThan 0
	Then
		SendMessage	PAUSELANDLEFT
		SendMessage	PAUSELANDRIGHT
		Set D to 0
		GotoLoop STATISTIC
	EndIf

	GosubLoop STATISTICA
EndLoop

Loop STATISTICA
Do

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

		SetParameter	Velocity	0.0	0.0	0.0	0.0
		SetParameter	Gravity		0.0	0.0	0.0	0.0
		SetParameter	Colour1		0.0	0.0	0.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	Scale1		0.2	0.2	0.2	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	Lifetime	0.0	0.0	0.0	0.0

		SetParameter	Justify		CENTRE

		SetParameter	Text		HOW_YOU_DID!
FRE		SetParameter	TEXT		RSULTAT
ITA	SetParameter		TEXT		IL_TUO_RISULTATO
SPA		SetParameter	TEXT		RESULTADOS
GER		SetParameter	TEXT		Punkte
POL		SetParameter	TEXT		Jak_idzie

		SetParameter	Position	0.0	190.0	0.0	0.0
		SendMessage 	CREATETEXT

		SetParameter	Text		YOU_MANAGED_TO_GET
FRE		SetParameter	TEXT		VOUS_AVEZ
ITA	SetParameter		TEXT		HAI
SPA		SetParameter	TEXT		HAS_CONSEGUIDO
GER		SetParameter	TEXT		DU_HAST
POL		SetParameter	TEXT		Masz

		SetParameter	Position	0.0	130.0	0.0	0.0
		SendMessage 	CREATETEXT

		SetParameter	Text		X
		SetParameter	Position	0.0	39.0	0.0	0.0
		SendMessage	CREATETEXT

		SetParameter	Colour2		0.0	1.0	0.0	1.0
		SetParameter	Colour3		0.0	1.0	0.0	1.0
		SetParameter	Colour4		0.0	1.0	0.0	1.0
		ConvertToText	S
		SetParameter	Position	-45.0	39.0	0.0	0.0
		SendMessage	CREATETEXT

		SetParameter	Scale1		2.0	2.0	2.0	0.0
		SetParameter	Scale2		2.0	2.0	2.0	0.0
		SetParameter	Scale3		2.0	2.0	2.0	0.0
		SetParameter	Scale4		2.0	2.0	2.0	0.0
		SetParameter	Scale5		2.0	2.0	2.0	0.0
		SetParameter	Position	-60.0	-50.0	0.0	0.0
		SetParameter	Lifetime	0.0	0.0	0.0	0.0
		SetParameter    Score   M
       		SetParameter    Digits  5
       		SendMessage     CREATESCORE
EndLoop


Loop STATISTIC
Do
		SetParameter	Velocity	0.0	0.0	0.0	0.0
		SetParameter	Gravity		0.0	0.0	0.0	0.0
		SetParameter	Colour1		0.0	0.0	0.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	Scale1		0.2	0.2	0.2	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	Lifetime	0.0	0.0	0.0	0.0

		SetParameter	Justify		CENTRE

		SetParameter	Text		HOW_YOU_DID!
FRE		SetParameter	TEXT		RSULTAT
ITA		SetParameter	TEXT		IL_TUO_RISULTATO
SPA		SetParameter	TEXT		RESULTADOS
GER		SetParameter	TEXT		Punkte
POL		SetParameter	TEXT		Jak_idzie
		SetParameter	Position	0.0	190.0	0.0	0.0
		SendMessage 	CREATETEXT

		SetParameter	Text		YOU_MANAGED_TO_GET
FRE		SetParameter	TEXT		VOUS_AVEZ
ITA	SetParameter		TEXT		HAI
SPA		SetParameter	TEXT		HAS_CONSEGUIDO
GER		SetParameter	TEXT		DU_HAST
POL		SetParameter	TEXT		Masz
		SetParameter	Position	0.0	130.0	0.0	0.0
		SendMessage 	CREATETEXT

		SetParameter	Text		X
		SetParameter	Position	0.0	39.0	0.0	0.0
		SendMessage	CREATETEXT

		SetParameter	Colour2		0.0	1.0	0.0	1.0
		SetParameter	Colour3		0.0	1.0	0.0	1.0
		SetParameter	Colour4		0.0	1.0	0.0	1.0
		ConvertToText	S
		SetParameter	Position	-45.0	39.0	0.0	0.0
		SendMessage	CREATETEXT

		SetParameter	Scale1		2.0	2.0	2.0	0.0
		SetParameter	Scale2		2.0	2.0	2.0	0.0
		SetParameter	Scale3		2.0	2.0	2.0	0.0
		SetParameter	Scale4		2.0	2.0	2.0	0.0
		SetParameter	Scale5		2.0	2.0	2.0	0.0
		SetParameter	Position	-60.0	-50.0	0.0	0.0
		SetParameter	Lifetime	0.0	0.0	0.0	0.0
		SetParameter    Score   M
       		SetParameter    Digits  5
       		SendMessage     CREATESCORE

	If M IsNotEqualTo K
	Then
		Add 100 to M
	EndIf

	If M IsEqualTo K
	Then
		If J IsEqualTo 0
		Then
			SetParameter	MESSAGE_ID	TIMER5
			SetParameter	INTERVAL	1200
			SetParameter	REPEAT		TRUE
			SendMessage	CreateTimer

			SetParameter	MESSAGE_ID	TIMER6
			SetParameter	INTERVAL	5000
			SetParameter	REPEAT		FALSE
			SendMessage	CreateTimer
			Set J to 5
		EndIf
	EndIf

	OnMessage TIMER5
	Do
		If D IsLessThan 3
		Then
			SetParameter	Lifetime	0.0	0.0	0.6	0.0
			SetParameter	Colour1		0.0	0.0	0.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	Scale1		0.2	0.2	0.2	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	Text		POINTS_IN_TOTAL!
POL			SetParameter	TEXT		Razem_punktw!
FRE			SetParameter	TEXT		Total_de_points
ITA			SetParameter	TEXT		Punteggio_totale
SPA			SetParameter	TEXT		Puntuacin_Total
GER			SetParameter	TEXT		Gesamtpunkte

			SetParameter	Position	0.0	-130.0	0.0	0.0
			SendMessage 	CREATETEXT

			Add 1 to D
		EndIf
	EndResponse

	If D IsEqualTo 3
	Then
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
			SetParameter	Colour1		0.0	0.0	0.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	Scale1		0.2	0.2	0.2	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	Text		POINTS_IN_TOTAL!
POL			SetParameter	TEXT		Razem_punktw!
FRE			SetParameter	TEXT		Total_de_points
ITA			SetParameter	TEXT		Punteggio_totale
SPA			SetParameter	TEXT		Puntuacin_Total
GER			SetParameter	TEXT		Gesamtpunkte
			SetParameter	Position	0.0	-130.0	0.0	0.0
			SendMessage 	CREATETEXT
	EndIf

	OnMessage TIMER6
	Do
		SetParameter    SCORE		K
		SendMessage	SET_SCORE
		SetParameter	Position	0.0	0.0	2.0	2.0
		SetParameter	BlockColour	ALLCOLOURS
		SendMessage	CLEARBLOCKS
		SendMessage LOSECONDITION
		ResetBuffer	DRAW
		ResetBuffer	ANKA
		ResetBuffer	DRA2
		ResetBuffer	ANK2
		ResetBuffer	DRA3
		ResetBuffer	ANK3
		ResetBuffer	DRA4
		ResetBuffer	ANK4
		ResetBuffer	DRA5
		ResetBuffer	ANK5
		ResetBuffer	DRA6
		ResetBuffer	ANK6
		Set I to 1
		GotoLoop STATISTIC2
	EndResponse
EndLoop

Loop STATISTIC2
Do
		SetParameter	Velocity	0.0	0.0	0.0	0.0
		SetParameter	Gravity		0.0	0.0	0.0	0.0
		SetParameter	Colour1		0.0	0.0	0.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	Scale1		0.2	0.2	0.2	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	Lifetime	0.0	0.0	0.0	0.0

		SetParameter	Justify		CENTRE

		SetParameter	Text		HOW_YOU_DID!
POL		SetParameter	TEXT		Jak_idzie
FRE		SetParameter	TEXT		RSULTAT
ITA		SetParameter	TEXT		IL_TUO_RISULTATO
SPA		SetParameter	TEXT		RESULTADOS
GER		SetParameter	TEXT		Punkte
		SetParameter	Position	0.0	190.0	0.0	0.0
		SendMessage 	CREATETEXT

		SetParameter	Text		YOU_MANAGED_TO_GET
POL		SetParameter	TEXT		Masz
FRE		SetParameter	TEXT		VOUS_AVEZ
ITA		SetParameter	TEXT		HAI
SPA		SetParameter	TEXT		HAS_CONSEGUIDO
GER		SetParameter	TEXT		DU_HAST
		SetParameter	Position	0.0	130.0	0.0	0.0
		SendMessage 	CREATETEXT

		SetParameter	Text		X
		SetParameter	Position	0.0	39.0	0.0	0.0
		SendMessage	CREATETEXT

		SetParameter	Colour2		0.0	1.0	0.0	1.0
		SetParameter	Colour3		0.0	1.0	0.0	1.0
		SetParameter	Colour4		0.0	1.0	0.0	1.0
		ConvertToText	S
		SetParameter	Position	-45.0	39.0	0.0	0.0
		SendMessage	CREATETEXT

		SetParameter	Scale1		2.0	2.0	2.0	0.0
		SetParameter	Scale2		2.0	2.0	2.0	0.0
		SetParameter	Scale3		2.0	2.0	2.0	0.0
		SetParameter	Scale4		2.0	2.0	2.0	0.0
		SetParameter	Scale5		2.0	2.0	2.0	0.0
		SetParameter	Position	-60.0	-50.0	0.0	0.0
		SetParameter	Lifetime	0.0	0.0	0.0	0.0
		SetParameter    Score   M
       		SetParameter    Digits  5
       		SendMessage     CREATESCORE

		SetParameter	Lifetime	0.0	0.0	0.0	0.0
		SetParameter	Colour1		0.0	0.0	0.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	Scale1		0.2	0.2	0.2	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	Text		POINTS_IN_TOTAL!
POL		SetParameter	TEXT		Razem_punktw!
FRE		SetParameter	TEXT		Total_de_points
ITA		SetParameter	TEXT		Punteggio_totale
SPA		SetParameter	TEXT		Puntuacin_Total
GER		SetParameter	TEXT		Gesamtpunkte

		SetParameter	Position	0.0	-130.0	0.0	0.0
		SendMessage 	CREATETEXT

	If I IsGreaterThan 0
	Then
		If V IsGreaterThanOrEqualTo 1
		Then
			If V IsLessThanOrEqualTo 3
			Then
				ReadFromBuffer DRAW into U
				ReadFromBuffer DRAW into I
				ReadFromBuffer ANKA into O
				ReadFromBuffer ANKA into P
			EndIf
		EndIf		

		If V IsGreaterThanOrEqualTo 4
		Then
			If V IsLessThanOrEqualTo 6
			Then
				ReadFromBuffer DRA2 into U
				ReadFromBuffer DRA2 into I
				ReadFromBuffer ANK2 into O
				ReadFromBuffer ANK2 into P
			EndIf
		EndIf

		If V IsGreaterThanOrEqualTo 7
		Then
			If V IsLessThanOrEqualTo 9
			Then
				ReadFromBuffer DRA3 into U
				ReadFromBuffer DRA3 into I
				ReadFromBuffer ANK3 into O
				ReadFromBuffer ANK3 into P
			EndIf
		EndIf

		If V IsGreaterThanOrEqualTo 10
		Then
			If V IsLessThanOrEqualTo 12
			Then
				ReadFromBuffer DRA4 into U
				ReadFromBuffer DRA4 into I
				ReadFromBuffer ANK4 into O
				ReadFromBuffer ANK4 into P
			EndIf
		EndIf

		If V IsGreaterThanOrEqualTo 13
		Then
			If V IsLessThanOrEqualTo 15
			Then
				ReadFromBuffer DRA5 into U
				ReadFromBuffer DRA5 into I
				ReadFromBuffer ANK5 into O
				ReadFromBuffer ANK5 into P
			EndIf
		EndIf

		If V IsGreaterThanOrEqualTo 16
		Then
			If V IsLessThanOrEqualTo 18
			Then
				ReadFromBuffer DRA6 into U
				ReadFromBuffer DRA6 into I
				ReadFromBuffer ANK6 into O
				ReadFromBuffer ANK6 into P
			EndIf
		EndIf

		SetParameter	Position	U	I	0.0	0.0
		SetParameter	BlockColour	PURPLE
		SendMessage	SPAWNINBLOCK
		SetParameter	Position	O	P	0.0	0.0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK
	EndIf

EndLoop
EndFile

