GameMode	Team17_Fun

FRE	Team17
ITA	Team17
SPA	DIVERSIÓN_AL_ESTILO_T17
GER	Team_17_FUN
POL	Zabawa_Taem17



GameType	TOURNAMENT

	DestroyEnemyStarCounter		S
	DestroyOwnStarCounter		S
	LIVESREMAINING02COUNTER		M
	COllectStarCounter		N
	WaterHeightCounter		H


Program0123

/ destroy the stars to reduce water 
author pd/


TEXTBUFFER      LEVS                    


        Team17.wbl


ENDBUFFER


DataBuffer	STAR

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

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	Team17.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

        SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20              
        SendMessage     LOADLEVEL

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION
	
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER	


	SetParameter POSITION	0.0	-175.0	0.0	0.0
	SendMessage CHANGEWATERHEIGHT

	SendMessage 	MUSIC_GROOVE_LOW

	SendMessage	DISABLE_STAR_JINGLE

	SetParameter	TEXT	team17_fun
	SendMessage	SET_HIGHSCORE_TABLE

	Set A To 0
	Set B To 0
	Set C To 0

	Set H To -175

	Set J To 0
	Set I To 0
	Set N To 0
	Set P To 0

	Set R To 0
	Set S To 0
	Set T To 0
	Set U To 0
	Set V To 0
	Set W To 0
	

	Set X To 0
	Set Y To 0
	Set Z To 0

	SendMessage	DEACTIVATESCORE

	SendMessage FIRINGOFF
	SendMessage STARTBRIEFING

	Randomise A From 1 To 5
	RandomIse B From 1 To 10
	Randomise C From 5 To 15

	ResetBuffer STAR

	GotoLoop	MAIN

EndLoop


Loop MAIN
Do

	SendMessage DONTCOLLECTSTARS

	SetParameter	SIDE	2
	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		Team17_FUN
FRE	SetParameter	Text		Team17
ITA	SetParameter	TEXT		Team17
SPA	SetParameter	TEXT		DIVERSIÓN_AL_ESTILO_T17
GER	SetParameter	TEXT		Team_17_FUN
POL	SetParameter	TEXT		Zabawa_Taem17


	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_stars_as_possible
FRE	SetParameter	Text		Détruisez_autant_d'étoiles_que_possible.
ITA	SetParameter	TEXT		Distruggi_più_stelle_possibile!
SPA	SetParameter	TEXT		Destruye_todas_las_estrellas_que_puedas.
GER	SetParameter	TEXT		Zerstöre_so_viele_Sterne_wie_möglich!
POL	SetParameter	TEXT		Zniszcz_jak_najwiêcej_gwiazdek.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Try_not_to_let_many_slip_by
FRE	SetParameter	Text		Essayez_de_ne_pas_en_laisser_échapper_trop
ITA	SetParameter	TEXT		Cerca_di_non_farne_scappare
SPA	SetParameter	TEXT		Intenta_que_no_se_te_escapen_muchas
GER	SetParameter	TEXT		Lass_dir_nicht_zu_viele_entgehen
POL	SetParameter	TEXT		Nie_pozwól_¿adnej_siê_przem-



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		and_resist_the_temptation_to
FRE	SetParameter	Text		et_résistez_à_la_tentation
ITA	SetParameter	TEXT		troppe_e_resisti_alla_tentazione
SPA	SetParameter	TEXT		y_no_caigas_en_la_tentación
GER	SetParameter	TEXT		und_widerstehe_der_Versuchung_
POL	SetParameter	TEXT		i_oprzyj_siê_pokusie



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		collect_them
FRE	SetParameter	Text		de_les_récupérer.
ITA	SetParameter	TEXT		di_raccoglierle.
SPA	SetParameter	TEXT		de_guardarlas.
GER	SetParameter	TEXT		sie_einzusammeln.
POL	SetParameter	TEXT		zbierani_ich.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Text		To_do_so_will_prove_fatal!
FRE	SetParameter	Text		Cela_risquerait_de_vous_être_fatal!
ITA	SetParameter	TEXT		Ti_sarebbe_fatale!
SPA	SetParameter	TEXT		¡Si_lo_haces_puede_ser_fatal!
GER	SetParameter	TEXT		Das_wäre_fatal!
POL	SetParameter	TEXT		Mo¿e_okazaæ_siê_to_fatalne_w_skutkach


	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.
ITA	SetParameter	TEXT		Premi_fuoco_per_cominciare
GER	SetParameter	TEXT		Zum_Starten_Feuer_drücken
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 EndBriefing
		SendMessage ENDBRIEFING
		SendMessage FIRINGON
		GotoLoop MAIN1

	EndResponse

EndLoop



Loop MAIN1
Do


	GoSubLoop LIVES

	OnMessage TIMER1
	Do

		Add 1 To T
		Add 1 To U
		Add 1 To V
		Add 1 To W

	EndResponse	

	OnMessage TIMER2
	Do

		Add 1 To P

	EndResponse

	If T BecomesEqualTo A
	Then
			
		Set Z To 0
		
		While Z IsLessThan 3
		Do
			ReadFromBuffer STAR Into X
			ReadFromBuffer STAR Into Y

			Add 1 To Z

		EndWhile
		
		SetParameter	POSITION	X	Y	0.0	0.0
		SetParameter	BLOCKCOLOUR	STAR
		SendMessage	SPAWNINBLOCK

		Set T To 0
		
		Randomise A From 1 To 5

		Add 1 To J

	EndIf

	If U BecomesEqualTo B
	Then
		Set Z To 0
		
		While Z IsLessThan 5
		Do
			ReadFromBuffer STAR Into X
			ReadFromBuffer STAR Into Y

			Add 1 To Z

		EndWhile

		SetParameter	POSITION	X	Y	0.0	0.0
		SetParameter	BLOCKCOLOUR	STAR
		SendMessage	SPAWNINBLOCK

		Set U To 0
		
		Randomise B From 1 To 10

		Add 1 To J

	EndIf

	If V BecomesEqualTo C
	Then
		Set Z To 0
		
		While Z IsLessThan 2
		Do
			ReadFromBuffer STAR Into X
			ReadFromBuffer STAR Into Y

			Add 1 To Z

		EndWhile

		SetParameter	POSITION	X	Y	0.0	0.0
		SetParameter	BLOCKCOLOUR	STAR
		SendMessage	SPAWNINBLOCK

		Set V To 0
		
		Randomise C From 5 To 15

		Add 1 To J

	EndIf

	If W BecomesEqualTo 45
	Then

		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	Colour4		1.0	1.0	1.0	1.0
		SetParameter	Colour5		1.0	1.0	1.0	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0
		SetParameter	Position	0.0	150.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	Text		Faster!
FRE		SetParameter	Text		Plus_vite_!
ITA		SetParameter	TEXT		PIÙ_VELOCE!
SPA		SetParameter	TEXT		¡Más_rápido!
GER		SetParameter	TEXT		Schneller!
POL		SetParameter	TEXT		Szybciej


		SendMessage 	CREATETEXT

		SetParameter	MESSAGE_ID	TIMER1
		SendMessage	DELETETIMER

		SendMessage 	MUSIC_GROOVE_MED

		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	500
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
	
	EndIf


	If W BecomesEqualTo 90
	Then

		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	Colour4		1.0	1.0	1.0	1.0
		SetParameter	Colour5		1.0	1.0	1.0	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0
		SetParameter	Position	0.0	150.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	Text		Faster!
FRE		SetParameter	Text		Plus_vite_!
ITA		SetParameter	TEXT		PIÙ_VELOCE!
SPA		SetParameter	TEXT		¡Más_rápido!
GER		SetParameter	TEXT		Schneller!
POL		SetParameter	TEXT		Szybciej

		SendMessage 	CREATETEXT

		SetParameter	MESSAGE_ID	TIMER1
		SendMessage	DELETETIMER

		SendMessage 	MUSIC_GROOVE_HIGH

		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	250
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
	
	EndIf
	
	

	If S IsGreaterThan R
	Then

		Randomise Q From 1 To 2

		
		If Q 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	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	75.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.5
			SetParameter	Text		WOW!_You_got_one
FRE			SetParameter	Text		Wouah_!_Bien_visé_!
ITA			SetParameter	TEXT		WOW!_Ne_hai_presa_una
SPA			SetParameter	TEXT		¡Bien!_Has_destruido_una.
GER		SetParameter	TEXT		WOW!_Du_hast_einen_erwischt!
POL			SetParameter	TEXT		O!_Trafi³eœ


			SendMessage 	CREATETEXT
	
		EndIf


		If Q IsEqualTo 2
		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	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	75.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.5
			SetParameter	Text		Good_shot!
FRE			SetParameter	Text		Beau_tir_!
ITA			SetParameter	TEXT		Bel_colpo!
SPA			SetParameter	TEXT		¡Buen_disparo!
GER		SetParameter	TEXT		Guter_Schuss!
POL			SetParameter	TEXT		Celny_strza³



			SendMessage 	CREATETEXT

		EndIf

		Subtract 5 From H

		SetParameter	POSITION	0.0	H	0.0	0.0
		SendMessage CHANGEWATERHEIGHT
		
		Add 1000 To I
		Set R To S

	EndIf


	If N BecomesEqualTo 1
	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
		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	25.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	Text		Disaster!
FRE		SetParameter	Text		Calamité_!
ITA		SetParameter	TEXT		Che_disastro!
SPA		SetParameter	TEXT		¡Qué_desastre!
GER		SetParameter	TEXT		Desaster!
POL		SetParameter	TEXT		Katastrofa


		SendMessage 	CREATETEXT	


		SUBTRACT S FROM J

		/SetParameter 	BLOCKCOLOUR 	ALLCOLOURS/
		/SendMessage 	CLEARBLOCKS/

		SendMessage	CLEARPROJECTILES

		Add W To I
		Set A To 0
		Set D To 0
		Set K To 0
		Set X To 0
		Set Z To 0

		SendMessage FIRINGOFF

		SendMessage 	MUSIC_GROOVE_LOW

		GotoLoop FAIL

	EndIf

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




/
	If S BecomesEqualTo 30
	Then

		SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
		SendMessage 	CLEARBLOCKS

		SendMessage FIRINGOFF
		GotoLoop WIN

	EndIf
/

	OnMessage TIMER1
	Do

		Add 3 To H

		SetParameter	POSITION	0.0	H	0.0	0.0
		SendMessage 	CHANGEWATERHEIGHT

	EndResponse


EndLoop


Loop LIVES
Do

	If M BecomesEqualTo -1
	Then

		/SetParameter 	BLOCKCOLOUR 	ALLCOLOURS/
		/SendMessage 	CLEARBLOCKS/


		SendMessage	CLEARPROJECTILES

		Add W To I

		Set A To 0
		Set D To 0
		Set K To 0
		Set X To 0
		Set Z To 0

		SendMessage FIRINGOFF

		SendMessage 	MUSIC_GROOVE_LOW

		GotoLoop FAIL

	EndIf
	
EndLoop

	
Loop FAIL
Do


	

	OnMessage TIMER2
	Do

		Add 1 To Z

	EndResponse
	

	If Z IsGreaterThanOrEqualTo 2
	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
ITA	SetParameter	TEXT		Punti
SPA	SetParameter	TEXT		Puntuación
GER	SetParameter	TEXT	Punkte
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		0
	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étruites
ITA	SetParameter	TEXT		distrutte
SPA	SetParameter	TEXT		Destruidos
GER	SetParameter	TEXT		zerstört
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   S
        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
ITA	SetParameter	TEXT		x_1000_punti
SPA	SetParameter	TEXT		x_1000_puntos
GER	SetParameter	TEXT		x_1000_Punkte
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
ITA	SetParameter	TEXT		Tempo_rimasto
SPA	SetParameter	TEXT		Duración
GER	SetParameter	TEXT		Überstandene_Zeit
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   W
        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
ITA	SetParameter	TEXT		secondi
SPA	SetParameter	TEXT		Segundos
GER	SetParameter	TEXT		Sekunden
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
ITA	SetParameter	TEXT		Punteggio_totale
SPA	SetParameter	TEXT		Puntuación_Total
GER	SetParameter	TEXT		Gesamtpunkte
POL	SetParameter	TEXT		Razem_punktów

	SendMessage	CREATETEXT

	EndIf

	If Z IsGreaterThanOrEqualTo 4
	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 I
		Then

			Set Z To 95
			GotoLoop FAIL2

		EndIf


	EndIf


	If Z BecomesEqualTo 98
	Then


		SetParameter    SCORE		I
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf



EndLoop


Loop FAIL2
Do

	SendMessage 	MUSIC_GROOVE_LOW
	

	OnMessage TIMER2
	Do

		Add 1 To Z

	EndResponse
	

	If Z IsGreaterThanOrEqualTo 2
	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
ITA	SetParameter	TEXT		Punti
SPA	SetParameter	TEXT		Puntuación
GER	SetParameter	TEXT	Punkte
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		0
	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étruites
ITA	SetParameter	TEXT		distrutte
SPA	SetParameter	TEXT		Destruidos
GER	SetParameter	TEXT		zerstört
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   S
        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
ITA	SetParameter	TEXT		x_1000_punti
SPA	SetParameter	TEXT		x_1000_puntos
GER	SetParameter	TEXT		x_1000_Punkte
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
ITA	SetParameter	TEXT		Tempo_rimasto
SPA	SetParameter	TEXT		Duración
GER	SetParameter	TEXT		Überstandene_Zeit
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   W
        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
ITA	SetParameter	TEXT		secondi
SPA	SetParameter	TEXT		Segundos
GER	SetParameter	TEXT		Sekunden
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
ITA	SetParameter	TEXT		Punteggio_totale
SPA	SetParameter	TEXT		Puntuación_Total
GER	SetParameter	TEXT		Gesamtpunkte
POL	SetParameter	TEXT		Razem_punktów


	SendMessage	CREATETEXT

	EndIf

	If Z IsGreaterThanOrEqualTo 4
	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 I
		Then

			Set Z To 95

		EndIf


	EndIf


	If Z BecomesEqualTo 98
	Then


		SetParameter    SCORE		I
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf



EndLoop



Loop NULL
Do


EndLoop




EndFile