GameMode	Nutty_Clusters

FRE	Ensembles_fous
GER Verrückte_Blöcke
SPA Loco
ITA Cumuli_pazzi
POL	Śrubki



GameType	TOURNAMENT


HIDDENID	3

Program0123

LANDDROPPEDINWATERCOUNTER	W
LANDSCROLLEDINTOWATERCOUNTER	S
GreenComboCounter		E
LIVESREMAINING02COUNTER		Q



TEXTBUFFER      LEVS                    

        clust.wbl

ENDBUFFER

Loop INIT
Do


	Randomise A From 0 To 12

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP

	SetParameter    TEXT    clust.wbw
        SendMessage     LOADWEAPONLIST

	SetParameter	NUMLINES	4
	SendMessage	SetStartLines
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                140        
        SendMessage     LOADLEVEL

	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT	
	
	SetParameter    LIVES   0
	SendMessage     SETLIVES
	SET W To 0
	SET S TO 0
	SET T To 0	
	SET E To 0
	SET Z To 0
	SET x to 0	
	SET R to 0
	SET I to 0
	SET K to 0
	Set J to 0
	Set Q To 0

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SendMessage	DEACTIVATESCORE
	
	SetParameter	TEXT	nutty_clusters
	SendMessage	SET_HIGHSCORE_TABLE

	SetParameter 	POSITION   	0	-160	0	0
	SendMessage 	CHANGEWATERHEIGHT

	SendMessage	MUSIC_GROOVE_LOW

	SendMessage	FIRINGOFF
	SendMessage	Startbriefing
	
	SendMessage 	CREATETEXT


	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         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	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		Nutty_Clusters
FRE	SetParameter	TEXT		Ensembles_fous
	GER SetParameter	Text	Verrückte_Blöcke
	SPA SetParameter	Text	Loco_por_los_Grupos
	ITA SetParameter	TEXT	Cumuli_pazzi
POL	SetParameter	TEXT		Śrubki



	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		Destroy_as_many_clusters
FRE	SetParameter	TEXT		Détruisez_autant_d'ensembles
	GER SetParameter	Text	Zerstöre_so_viele_Blöcke
	SPA SetParameter	Text	Destruye_todos_los_grupos_de_bloques
	ITA SetParameter	TEXT	Distruggi_il_maggior_numero
POL	SetParameter	TEXT		Zniszcz_jak_najwięcej_śrubek



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0

	SetParameter	Text		as_you_can_without_any
	GER SetParameter	Text	wie_möglich,_ohne_das_ein
FRE	SetParameter		TEXT	que_possible_sans_qu'aucun
	SPA SetParameter	Text	que_puedas_y_evita_que_
	ITA SetParameter	TEXT	di_cumuli,_senza_far_cadere
POL	SetParameter	TEXT		jak_potrafisz,_nie_wrzucając

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		blocks_falling_into_the_water.
FRE	SetParameter	TEXT		bloc_ne_tombe_ŕ_l'eau
	GER SetParameter	Text	Block_ins_Wasser_fällt.
	SPA SetParameter	Text	caigan_en_el_agua.
	ITA SetParameter	TEXti_blocchi_in_acqua.
POL	SetParameter	TEXT		żadnej_cegły_do_wody.





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

	SendMessage	UNPAUSELANDLEFT
	SendMessage	UNPAUSELANDRIGHT

	SetParameter	INTERVAL	0800
	SendMessage	SetLandSpeed
	
	SendMessage	Endbriefing

	GotoLoop FUN

	EndResponse
	

EndLoop

Loop FUN
Do

	OnMessage	TIMER3
	Do
		Add 1 to	R
	EndResponse

	If R BecomesEqualTo 30
	Then

		SetParameter	INTERVAL	0700
		SendMessage	SetLandSpeed
	
		Set X to 1

		SetParameter	Colour1		0.0	0.43	0.74	1.0
		SetParameter	Colour2		0.0	0.43	0.74	1.0
		SetParameter	Colour3		0.0	0.43	0.74	1.0
		SetParameter	Lifetime	0.0	0.0	1.4	1.4
		SetParameter	Justify		Centre

		SetParameter	Text		Faster!
		GER SetParameter	Text	Schneller!
FRE		SetParameter	TEXT		Plus_vite!
		SPA SetParameter	Text	ˇMás_rápido!
		ITA SetParameter	TEXT	PIŮ_VELOCE!
POL		SetParameter	TEXT		Szybciej



		SetParameter	Position	0.0	-85.0	0.0	0.0
		SendMessage	CREATETEXT

	EndIf

	If X BECOMESEQUALTO 1
	then	
	SendMessage     MUSIC_GROOVE_MED
	Endif


	
	If R BecomesEqualTo 45	
	Then
		SetParameter	INTERVAL	0600
		SendMessage	SetLandSpeed
	
		Set X To 2

		SetParameter	Colour1		0.0	0.43	0.74	1.0
		SetParameter	Colour2		0.0	0.43	0.74	1.0
		SetParameter	Colour3		0.0	0.43	0.74	1.0
		SetParameter	Lifetime	0.0	0.0	1.4	1.4
		SetParameter	Justify		Centre
		GER SetParameter	Text	Schneller!
		SetParameter	Text		Faster!
FRE		SetParameter	TEXT		Plus_vite!
		SPA SetParameter	Text	ˇMás_rápido!
		ITA SetParameter	TEXT	PIŮ_VELOCE!
POL		SetParameter	TEXT		Szybciej
		SetParameter	Position	0.0	-85.0	0.0	0.0
		SendMessage	CREATETEXT

	EndIf


	If x BECOMESEQUALTO 2
	then	
	SendMessage     MUSIC_GROOVE_HIGH
	
	endif
	
	If R BecomesEqualTo 60	
	Then
		SetParameter	INTERVAL	0500
		SendMessage	SetLandSpeed
	
		Set X To 2

		SetParameter	Colour1		0.0	0.43	0.74	1.0
		SetParameter	Colour2		0.0	0.43	0.74	1.0
		SetParameter	Colour3		0.0	0.43	0.74	1.0
		SetParameter	Lifetime	0.0	0.0	1.4	1.4
		SetParameter	Justify		Centre
		GER SetParameter	Text	Schneller!
		SetParameter	Text		Faster!
FRE		SetParameter	TEXT		Plus_vite!
		SPA SetParameter	Text	ˇMás_rápido!
		ITA SetParameter	TEXT	PIŮ_VELOCE!
POL		SetParameter	TEXT		Szybciej
		
		SetParameter	Position	0.0	-85.0	0.0	0.0
		SendMessage	CREATETEXT

	EndIf




	SetParameter 	POSITION   	0	-160	0	0
	SendMessage 	CHANGEWATERHEIGHT

	SetParameter	Justify		Centre
	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	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	-30.0	-210.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    FRAME	4
        SendMessage     CREATEICON

	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	-210.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    Score   Z
        SetParameter    Digits  3
        SendMessage     CREATESCORE
		

	If E BecomesEqualTo 7
	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	Lifetime	0.0	0.0	1.0	1.0
		SetParameter	Justify		Centre
		GER SetParameter	Text	Treffer!
		ITA SetParameter	TEXT	Fuori_uno!
		ENG SetParameter	Text	Got_one!
		SPA SetParameter	Text	ˇAhí_va_uno!
FRE		SetParameter		TEXT	Touché!
POL		SetParameter	TEXT		Trafiłeś

		
		SetParameter	Position	0.0	0.0	0.0	0.0
		SendMessage	CREATETEXT
		Set E to 0
		Add 1 to Z
		Add 1000 to I
	endif


	If W BECOMESGREATERTHAN 0
	then	
		Add R to I

		SendMessage	PAUSELANDRIGHT
		SendMessage	PAUSELANDLEFT

		SendMessage	CLEARPROJECTILES

		SetParameter	BLOCKCOLOUR	ALLCOLOURS
		SendMessage	CLEARBLOCKS	
	
		SendMessage	FIRINGOFF

		Set K To 0
		Set A To 0
		Set D To 0

		GotoLoop 	END 
	endif


	If S BECOMESGREATERTHAN 0
	then
		SendMessage	PAUSELANDRIGHT
		SendMessage	PAUSELANDLEFT	
		Add R to I
		SendMessage	FIRINGOFF
		SendMessage	CLEARPROJECTILES

		SetParameter	BLOCKCOLOUR	ALLCOLOURS
		SendMessage	CLEARBLOCKS

		Set K To 0
		Set A To 0
		Set D To 0

		GotoLoop	END
	endif


	If Q BecomesEqualTo -1
	Then

		SendMessage	PAUSELANDRIGHT
		SendMessage	PAUSELANDLEFT	
		Add R to I
		SendMessage	FIRINGOFF
		SendMessage	CLEARPROJECTILES

		SetParameter	BLOCKCOLOUR	ALLCOLOURS
		SendMessage	CLEARBLOCKS

		Set K To 0
		Set A To 0
		Set D To 0

		GotoLoop	END

	EndIf


EndLoop

Loop END
Do
			
	OnMessage TIMER3
	Do
	
		Add 1 To J
		

	EndResponse


	If J IsGreaterThanOrEqualTo 1
	Then	


	SetParameter	Colour1		0.18	0.9	0.1	1.0
	SetParameter	Colour2		0.18	0.9	0.1	1.0
	SetParameter	Colour3		0.18	0.9	0.1	1.0
	SetParameter	Colour4		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.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	Justify		Centre
	SetParameter	POSITION	0.0	150.0	0.0	0.0
	SetParameter	TEXT		Scores
FRE	SetParameter	TEXT		Scores
	GER SetParameter	TEXT	Punkte
	SPA SetParameter	TEXT	Puntuación
	ITA SetParameter	TEXT	Punti
POL	SetParameter	TEXT		Wyniki





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

	SetParameter	Justify		Right
	SetParameter	POSITION	-240.0	75.0	0.0	0.0
	SPA SetParameter	POSITION	-260.0	75.0	0.0	0.0
POL 	SetParameter	POSITION	-275.0	75.0	0.0	0.0
	SetParameter	FRAME		4
	SendMessage	CREATEICON
	SetParameter	Side	2

	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	Justify		Right
	SetParameter	POSITION	-70.0	75.0	0.0	0.0
	SetParameter	TEXT		destroyed
FRE	SetParameter	TEXT		détruit
	GER SetParameter	TEXT	Zerstörte
	SPA SetParameter	TEXT	destruidos
	ITA SetParameter	TEXT	distrutte
POL	SetParameter	TEXT		zniszczonych



	SendMessage	CREATETEXT

	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	-20.0	75.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   Z
        SetParameter    Digits  8
        SendMessage     CREATESCORE


	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	Justify		Left
	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	90.0	75.0	0.0	0.0
	SetParameter	TEXT		x_1000_points
FRE	SetParameter	TEXT		x_1000_points
	GER SetParameter	TEXT	x_1000_Punkte
	SPA SetParameter	TEXT	x_1000_puntos
	ITA SetParameter	TEXT	x_1000_punti
POL	SetParameter	TEXT		x_1000_punktów


	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	Justify		Right
	SetParameter	POSITION	-70.0	25.0	0.0	0.0
	SetParameter	TEXT		Time_survived
FRE	SetParameter	TEXT		Temps_de_survie
	GER SetParameter	TEXT	Überstandene_Zeit
	SPA SetParameter	TEXT	Duración
	ITA SetParameter	TEXT	Tempo_rimasto
POL	SetParameter	TEXT		Czas_gry
	


	SendMessage	CREATETEXT

	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	-20.0	25.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   R
        SetParameter    Digits  8
        SendMessage     CREATESCORE

	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	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	Justify		Left
	SetParameter	POSITION	90.0	25.0	0.0	0.0
	SetParameter	TEXT		Seconds
FRE	SetParameter	TEXT		Secondes
	GER SetParameter	TEXT	Sekunden
	SPA SetParameter	TEXT	Segundos
	ITA SetParameter	TEXT	Secondi
POL	SetParameter	TEXT		sekund



	SendMessage	CREATETEXT


	SetParameter	Justify		Right
	SetParameter	POSITION	-70.0	-25.0	0.0	0.0
	SetParameter	TEXT		Total_points
FRE	SetParameter	TEXT		Total_de_points
	GER SetParameter	TEXT	Gesamtpunkte
	SPA SetParameter	TEXT	Puntuación_Total
	ITA SetParameter	TEXT	Punteggio_totale
POL	SetParameter	TEXT		Razem_punktów



	SendMessage	CREATETEXT

	EndIf

	If J IsGreaterThanOrEqualTo 2
	Then

		If K IsGreaterThan I
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

			If K IsLessThan I
			Then

				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   K
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE

				Set A To K

				Add 100 To K
			
			EndIf

		EndIf

		If D IsEqualTo 1
		Then

			If A IsLessThan I
			Then

				Add 1 To A
			
				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   A
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE


			EndIf

		EndIf


/
		If A IsEqualTo I
		Then

			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	-20.0	-25.0	0.0	0.0
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
       			SetParameter    Score   I
        		SetParameter    Digits  8
        		SendMessage     CREATESCORE

		EndIf
/

		If A BecomesEqualTo F
		Then

			Set J To 95
			GotoLoop END2

		EndIf

	EndIf


	If J BecomesEqualTo 98
	Then


		SetParameter    SCORE		I
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf






			

EndLoop


Loop END2
Do
			
	OnMessage TIMER3
	Do
	
		Add 1 To J
		

	EndResponse


	If J IsGreaterThanOrEqualTo 1
	Then	


	SetParameter	Colour1		0.18	0.9	0.1	1.0
	SetParameter	Colour2		0.18	0.9	0.1	1.0
	SetParameter	Colour3		0.18	0.9	0.1	1.0
	SetParameter	Colour4		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.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	Justify		Centre
	SetParameter	POSITION	0.0	150.0	0.0	0.0
	SetParameter	TEXT		Scores
FRE	SetParameter	TEXT		Scores
	GER SetParameter	TEXT	Punkte
	SPA SetParameter	TEXT	Puntuación
	ITA SetParameter	TEXT	Punti
POL	SetParameter	TEXT		Wyniki



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

	SetParameter	Justify		Right
	SetParameter	POSITION	-240.0	75.0	0.0	0.0
	SPA SetParameter	POSITION	-260.0	75.0	0.0	0.0
POL 	SetParameter	POSITION	-275.0	75.0	0.0	0.0
	SetParameter	FRAME		4
	SendMessage	CREATEICON
	SetParameter	Side	2

	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	Justify		Right
	SetParameter	POSITION	-70.0	75.0	0.0	0.0
	SetParameter	TEXT		destroyed
FRE	SetParameter	TEXT		détruit
	GER SetParameter	TEXT	Zerstörte
	SPA SetParameter	TEXT	destruidos
	ITA SetParameter	TEXT	distrutte
POL	SetParameter	TEXT		zniszczonych


	SendMessage	CREATETEXT

	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	-20.0	75.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   Z
        SetParameter    Digits  8
        SendMessage     CREATESCORE


	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	Justify		Left
	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	90.0	75.0	0.0	0.0
	SetParameter	TEXT		x_1000_points
FRE	SetParameter	TEXT		x_1000_points
	GER SetParameter	TEXT	x_1000_Punkte
	SPA SetParameter	TEXT	x_1000_puntos
	ITA SetParameter	TEXT	x_1000_punti
POL	SetParameter	TEXT		x_1000_punktów

	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	Justify		Right
	SetParameter	POSITION	-70.0	25.0	0.0	0.0
	SetParameter	TEXT		Time_survived
FRE	SetParameter	TEXT		Temps_de_survie
	GER SetParameter	TEXT	Überstandene_Zeit
	SPA SetParameter	TEXT	Duración
	ITA SetParameter	TEXT	Tempo_rimasto
POL	SetParameter	TEXT		Czas_gry
	


	SendMessage	CREATETEXT

	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	-20.0	25.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   R
        SetParameter    Digits  8
        SendMessage     CREATESCORE

	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	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	Justify		Left
	SetParameter	POSITION	90.0	25.0	0.0	0.0
	SetParameter	TEXT		Seconds
FRE	SetParameter	TEXT		Secondes
	GER SetParameter	TEXT	Sekunden
	SPA SetParameter	TEXT	Segundos
	ITA SetParameter	TEXT	Secondi
POL	SetParameter	TEXT		sekund



	SendMessage	CREATETEXT


	SetParameter	Justify		Right
	SetParameter	POSITION	-70.0	-25.0	0.0	0.0
	SetParameter	TEXT		Total_points
FRE	SetParameter	TEXT		Total_de_points
	GER SetParameter	TEXT	Gesamtpunkte
	SPA SetParameter	TEXT	Puntuación_Total
	ITA SetParameter	TEXT	Punteggio_totale
POL	SetParameter	TEXT		Razem_punktów



	SendMessage	CREATETEXT

	EndIf

	If J IsGreaterThanOrEqualTo 2
	Then

		If K IsGreaterThan I
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

			If K IsLessThan I
			Then

				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   K
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE

				Set A To K

				Add 100 To K
			
			EndIf

		EndIf

		If D IsEqualTo 1
		Then

			If A IsLessThan I
			Then

				Add 1 To A
			
				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   A
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE


			EndIf

		EndIf



		If A IsEqualTo I
		Then

			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	-20.0	-25.0	0.0	0.0
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
       			SetParameter    Score   I
        		SetParameter    Digits  8
        		SendMessage     CREATESCORE

		EndIf

		If A BecomesEqualTo F
		Then

			Set J To 95

		EndIf

	EndIf


	If J BecomesEqualTo 98
	Then


		SetParameter    SCORE		I
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf


EndLoop



Endfile



