GameMode	super_frogging
FRE	Super_Frogging
ITA	Super_Frogging
SPA	Superrana
GER	Super_Frogger
POL	super_aba



GameType	TOURNAMENT

	DestroyOwnTargetCounter		T
	DestroyEnemyTargetCounter	T
	WaterHeightCounter		H
	LIVESREMAINING02COUNTER		M
	


Program0123


TEXTBUFFER	LEVS

	sfrog.wbl

ENDBUFFER


/ super frogger level get the targets through the midst of obstacles gamemode version 
author pd /


DATABUFFER	TAR1

15 5 16 12 22 5 8 12 1 5 1 12 8 5 23 12

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
	

	SET A 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 T TO 0
	SET U TO 0
	SET V TO 0
	SET X TO 0
	SET W TO 0
	SET Y TO 0
	SET Z TO 0
	Set O To 0
	
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT		

	SetParameter	TEXT	sfrog.wbw
	SendMessage	LOADWEAPONLIST

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

	SendMessage StartBriefing

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	70
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	100
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	110
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	200
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	5000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER6
	SetParameter	INTERVAL	0050
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER7
	SetParameter	INTERVAL	8001
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER8
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	TEXT	super_frogging
	SendMessage	SET_HIGHSCORE_TABLE

	SendMessage	DEACTIVATESCORE

	SendMessage FIRINGOFF
	
	SendMessage	MUSIC_GROOVE_LOW


	ResetBuffer	TAR1

	Randomise C From -20 To -4

	Randomise D From 30 To 45

	Randomise E From -23 To -4

	Randomise F From 30 To 45

	Randomise G From 1 To 3

	Set J To G

	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		Super_Frogging
FRE	SetParameter	TEXT		Super_Frogging
ITA	SetParameter	TEXT		Super_Frogging
SPA	SetParameter	TEXT		Superrana
GER	SetParameter	TEXT		Super_Frogger
POL	SetParameter	TEXT		super_aba



	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_each_given_quota_of
FRE	SetParameter	TEXT		Dtruisez_les_quotas_indiqus
ITA	SetParameter	TEXT		Distruggi_il_numero_di_bersagli_indicato
SPA	SetParameter	TEXT		Destruye_todas_las_dianas
GER	SetParameter	TEXT		Zerstre_die_jeweils_angegebene
POL	SetParameter	TEXT		Niszcz_zadeklarowane_cele,




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Targets_to_receive_valuable
FRE	SetParameter	TEXT		de_cibles_pour_recevoir
ITA	SetParameter	TEXT		per_ricevere_un_utilissimo
SPA	SetParameter	TEXT		para_conseguir
GER	SetParameter	TEXT		Quote_von_Zielen_um_eine
POL	SetParameter	TEXT		aby_otrzyma_wartociowe



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		lifelines!
FRE	SetParameter	TEXT		de_prcieuses_lignes_de_vie.
ITA	SetParameter	TEXT		salvagente!
SPA	SetParameter	TEXT		valiosas_recompensas!
GER	SetParameter	TEXT		lange_Lebenslinie_zu_haben!
POL	SetParameter	TEXT		ycie.



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		Keep_going_as_long_as_Possible!
FRE	SetParameter	TEXT		Tenez_le_plus_longtemps_possible_!
ITA	SetParameter	TEXT		Vai_avanti_il_pi_possibile_senza_fermarti!
SPA	SetParameter	TEXT		Procura_seguir_en_pie!
GER	SetParameter	TEXT		berlebe_so_lange_wie_mglich!
POL	SetParameter	TEXT		Staraj_si_wytrzyma_jak_najduej.



	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_drcken
POL	SetParameter	TEXT		Nacinij_"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 FIRINGON

	
		GotoLoop MAIN1
		
	EndResponse



EndLoop

Loop MAIN1
Do

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT


	While O IsLessThan G
	Do
	
		ReadFromBuffer TAR1 Into X
		ReadFromBuffer TAR1 Into Y
			
		SetParameter	POSITION	X	Y	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		Add 1 To O

	EndWhile


	GotoLoop SCREEN1		


EndLoop




Loop SCREEN1
Do

	OnMessage TIMER8
	Do
		
		Add 1 To B

	EndResponse


	If H BecomesGreaterThan -150
	Then

		SendMessage	MUSIC_GROOVE_HIGH

	EndIf


	If H BecomesLessThan -180
	Then

		SendMessage	MUSIC_GROOVE_MED

	EndIf


	If H BecomesGreaterThanOrEqualTo -110
	Then

		SetParameter	POSITION	0	-175	0	0
		SendMessage	CHANGEWATERHEIGHT

		SetParameter BLOCKCOLOUR ALLCOLOURS
		SendMessage CLEARBLOCKS



		SendMessage FIRINGOFF

		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
SPA		SetParameter	Position	0.0	25.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	1.0	0.6
		SetParameter	Text		Water_too_high!
FRE		SetParameter	TEXT		Niveau_d'eau_trop_lev.
ITA		SetParameter	TEXT		L'acqua__troppo_alta!
SPA		SetParameter	TEXT		El_nivel_del
GER		SetParameter	TEXT		Wasser_zu_hoch!
POL		SetParameter	TEXT		Woda_zbyt_wysoko!



		SendMessage 	CREATETEXT

SPA		SetParameter	Position	0.0	-25.0	0.0	0.0
SPA		SetParameter	TEXT		agua_es_excesivo!
SPA		SendMessage 	CREATETEXT

		SendMessage	CLEARPROJECTILES

		Add B To I
		Set A To 0
		Set D To 0
		Set K To 0
		Set X To 0


		GotoLoop FAIL

	EndIf


	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	2
        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   R
        SetParameter    Digits  3
        SendMessage     CREATESCORE



	OnMessage TIMER5
	Do


		If B IsGreaterThan 0
		Then

			If B IsLessThan 60
			Then
					Add 1 To H
					SetParameter Position	0	H	0	0
					SendMessage ChangeWaterHeight
			EndIf
			
		EndIf


		If B IsGreaterThanOrEqualTo 60
		Then

			If B IsLessThan 120
			Then
				Add 2 To H
				SetParameter Position	0	H	0	0
				SendMessage ChangeWaterHeight
			EndIf
			
		EndIf

		If B IsGreaterThanOrEqualTo 120
		Then

			If B IsLessThan 180
			Then
				Add 3 To H
				SetParameter Position	0	H	0	0
				SendMessage ChangeWaterHeight
			EndIf
			
		EndIf


		If B IsGreaterThanOrEqualTo 180
		Then

			If B IsLessThan 240
			Then
				Add 4 To H
				SetParameter Position	0	H	0	0
				SendMessage ChangeWaterHeight
			EndIf
			
		EndIf



		Randomise P From 1 To 10

		If P BecomesEqualTo 1
		Then

			SetParameter	Justify		Centre
			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	25.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.0	0.6
			SetParameter	Text		Here's_more_water!
FRE			SetParameter	TEXT		L'eau_monte_!
ITA	SetParameter			TEXT		Arriva_altra_acqua!
SPA			SetParameter	TEXT		Agua_va!
GER		SetParameter	TEXT		Mehr_Wasser!
POL			SetParameter	TEXT		Wicej_wody!



			SendMessage 	CREATETEXT
		EndIf


		If P BecomesEqualTo 5
		Then
			SetParameter	Justify		Centre
			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	25.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.0	0.6
			SetParameter	Text		More_flooding!
FRE			SetParameter	TEXT		L'inondation_gagne_!
ITA	SetParameter			TEXT		Un'altra_onda!
SPA			SetParameter	TEXT		Sube_la_marea!
GER		SetParameter	TEXT		Noch_mehr_Wasser!
POL			SetParameter	TEXT		Wicej_wody!



			SendMessage 	CREATETEXT
		EndIf	

	EndResponse


	If B BecomesEqualTo 60
	Then

		SetParameter MESSAGE_ID	TIMER5
		SendMessage DELETETIMER

		SetParameter	MESSAGE_ID	TIMER5
		SetParameter	INTERVAL	4000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
		
	EndIf


	If B BecomesEqualTo 120
	Then

		SetParameter MESSAGE_ID	TIMER5
		SendMessage DELETETIMER

		SetParameter	MESSAGE_ID	TIMER5
		SetParameter	INTERVAL	3000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
		
	EndIf


	If B BecomesEqualTo 240
	Then

		SetParameter MESSAGE_ID	TIMER5
		SendMessage DELETETIMER

		SetParameter	MESSAGE_ID	TIMER5
		SetParameter	INTERVAL	2500
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
		
	EndIf

		
	

/ ******************** Moving Bar 1 ********************** /

	OnMessage	TIMER1
	Do

		/ Detonate left hand block /

		SetParameter	Position	C	8	1	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		Add 1 To C
		SetParameter	Position	C	8	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		Add 2 To C
		SetParameter	Position	C	8	0	0
		SetParameter	BlockColour	BOUNCY
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		Add 1 To C
		SetParameter	Position	C	8	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Move C back to point at the new left hand end /

		Subtract 3 From C

		If C IsGreaterThan 30
		Then
			Randomise C From -20 to -4
		Endif
	EndResponse



/ **********************  Next mOving bar ***************************** /



	OnMessage	TIMER2
	Do

		/ Detonate left hand block /

		SetParameter	Position	D	10	1	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		SUBTRACT 1 FROM D
		SetParameter	Position	D	10	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		SUBTRACT 2 FROM D
		SetParameter	Position	D	10	0	0
		SetParameter	BlockColour	BOUNCY
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		SUBTRACT 1 FROM D
		SetParameter	Position	D	10	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Move D back to point at the new left hand end /

		ADD 3 TO D

		If D IsLessThan -5
		Then
			Randomise D From 30 to 45
		Endif

	EndResponse



/ ******************************** BAR 3 ***************************** /



	OnMessage	TIMER3
	Do

		/ Detonate left hand block /

		SetParameter	Position	E	15	1	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		Add 1 To E
		SetParameter	Position	E	15	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		Add 2 To E
		SetParameter	Position	E	15	0	0
		SetParameter	BlockColour	BOUNCY
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		Add 1 To E
		SetParameter	Position	E	15	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Move E back to point at the new left hand end /

		Subtract 3 From E

		If E IsGreaterThan 30
		Then
			Randomise E From -23 to -4
		Endif
	EndResponse

	
/ *****************************  BAR 4 ******************************* /


	OnMessage	TIMER4
	Do

		/ Detonate left hand block /

		SetParameter	Position	F	3	1	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		SUBTRACT 1 FROM F
		SetParameter	Position	F	3	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		SUBTRACT 2 FROM F
		SetParameter	Position	F	3	0	0
		SetParameter	BlockColour	BOUNCY
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		SUBTRACT 1 FROM F
		SetParameter	Position	F	3	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Move F back to point at the new left hand end /

		ADD 3 TO F

		If F IsLessThan -5
		Then
			Randomise F From 30 to 45
		Endif

	EndResponse

	
	If T IsGreaterThan V
	Then
		
		Randomise X FROM 1 TO 2

		If X 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_preso_uno!
SPA			SetParameter	TEXT		Toma,_ya_tienes_una!
GER			SetParameter	TEXT		WOW!_Treffer
POL			SetParameter	TEXT		O!_Masz_jednego!



			SendMessage 	CREATETEXT
		EndIf

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

		SET V TO T		
		ADD 1 TO R
		Add 1000 To I	

	EndIf




	If T BecomesEqualTo G
	Then

		SetParameter	Position	5	4	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK

		SetParameter	Position	12	4	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK
	
		SetParameter	Position	19	4	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK

		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	Position	0.0	0.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	1.5	3.5
		SetParameter	Text		WELL_DONE_KEEP_GOING!
FRE		SetParameter	TEXT		BIEN_JOU,_CONTINUEZ_!
ITA	SetParameter		TEXt		BEN_FATTO!!
SPA		SetParameter	TEXT		MUY_BIEN,_SIGUE_AS!
GER			SetParameter	TEXT	GUT_GEMACHT,_WEITER_SO!
POL		SetParameter	TEXT		DOBRA_ROBOTA!_TAK_TRZYMA!

	
		SendMessage 	CREATETEXT


		SetParameter	BlockColour	TARGET
		SendMessage	CLEARBLOCKS

		SET T To 0
		SET V To 0
		SET X To 0
		SET Y To 0
		Set O To 0

		If B IsGreaterThan 0
		Then

			If B IsLessThan 30
			Then
				Randomise G From 1 To 3
			EndIf
			
		EndIf


		If B IsGreaterThanOrEqualTo 30
		Then

			If B IsLessThan 60
			Then
				Randomise G From 3 To 5
			EndIf
			
		EndIf

		If B IsGreaterThanOrEqualTo 60
		Then

			If B IsLessThan 120
			Then
				Randomise G From 4 To 6
			EndIf
			
		EndIf


		If B IsGreaterThanOrEqualTo 120
		Then

			If B IsLessThan 180
			Then
				Randomise G From 5 To 8
			EndIf
			
		EndIf

		While O IsLessThan G
		Do
	
			ReadFromBuffer TAR1 Into X
			ReadFromBuffer TAR1 Into Y
			
			SetParameter	POSITION	X	Y	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK

			Add 1 To O

		EndWhile

		Add G To J

		
	
	EndIf
	
	
	OnMessage TIMER7
	Do
		Randomise X From 1 To 100
	

		If X BecomesEqualTo 3
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	Position	0.0	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Prezzies!
FRE			SetParameter	TEXT		SURPRISE_!
ITA	SetParameter			TEXt		Regali!
SPA			SetParameter	TEXT		Premios!
GER			SetParameter	TEXT	Goodies!
POL			SetParameter	TEXT		Nagrody!



			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 3
		Then
			SetParameter	POSITION	1	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf


		If X BecomesEqualTo 98
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Gifts!
FRE			SetParameter	TEXT		Cadeaux_!
ITA	SetParameter			TEXt		Regali!
SPA			SetParameter	TEXT		Regalos!
GER			SetParameter	TEXT	Geschenke!
POL			SetParameter	TEXT		Prezenty!


			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 98
		Then
			SetParameter	POSITION	8	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf


		If X BecomesEqualTo 47
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Some_help!
FRE			SetParameter	TEXT		De_l'aide_!
ITA	SetParameter			TEXt		Un_aiuto!
SPA			SetParameter	TEXT		Ayuda!
GER			SetParameter	TEXT	Etwas_Hilfe!
POL			SetParameter	TEXT		Potrzebujesz_pomocy




			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 47
		Then
			SetParameter	POSITION	16	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf	


		If X BecomesEqualTo 19
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Prezzies!
FRE			SetParameter	TEXT		Surprise_!
ITA	SetParameter			TEXt		Regali!
SPA			SetParameter	TEXT		Premios!
GER			SetParameter	TEXT	Goodies!
POL			SetParameter	TEXT		Nagrody!


			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 19
		Then
			SetParameter	POSITION	23	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf


		If X BecomesEqualTo 37
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Some_help!
FRE			SetParameter	TEXT		De_l'aide_!
ITA	SetParameter			TEXt		Un_aiuto!
SPA			SetParameter	TEXT		Ayuda!
GER			SetParameter	TEXT		Etwas_Hilfe!
POL			SetParameter	TEXT		Potrzebujesz_pomocy

			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 37
		Then
			SetParameter	POSITION	1	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 71
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Gifts!
FRE			SetParameter	TEXT		Cadeaux_!
ITA	SetParameter			TEXt		Regali!
SPA			SetParameter	TEXT		Regalos!
GER			SetParameter	TEXT	Geschenke!
POL			SetParameter	TEXT		Prezenty!

			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 71
		Then
			SetParameter	POSITION	8	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf	
	
		If X BecomesEqualTo 49
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Some_help!
FRE			SetParameter	TEXT		De_l'aide_!
ITA	SetParameter			TEXt		Un_aiuto!
SPA			SetParameter	TEXT		Ayuda!
GER			SetParameter	TEXT	Etwas_Hilfe!
POL			SetParameter	TEXT		Potrzebujesz_pomocy

			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 49
		Then
			SetParameter	POSITION	16	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf	
	
		If X BecomesEqualTo 5
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Prezzie!
FRE			SetParameter	TEXT		Surprise_!
ITA	SetParameter			TEXt		Regali!
SPA			SetParameter	TEXT		Premios!
GER			SetParameter	TEXT	Goodies!
POL			SetParameter	TEXT		Nagrody!

			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 5
		Then
			SetParameter	POSITION	23	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf	

		If X BecomesEqualTo 45
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Gifts!
FRE			SetParameter	TEXT		Surprise_!
ITA	SetParameter			TEXt		Regali!
SPA			SetParameter	TEXT		Regalos!
GER			SetParameter	TEXT	Geschenke!
POL			SetParameter	TEXT		Prezenty!

			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 45
		Then
			SetParameter	POSITION	1	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 61
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Some_help!
FRE			SetParameter	TEXT		De_l'aide_!
ITA	SetParameter			TEXt		Un_aiuto!
SPA			SetParameter	TEXT		Ayuda!
GER			SetParameter	TEXT	Etwas_Hilfe!
POL			SetParameter	TEXT		Potrzebujesz_pomocy

			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 61
		Then
			SetParameter	POSITION	8	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 22
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Prezzies!
FRE			SetParameter	TEXT		Surprise_!
ITA	SetParameter			TEXt		Regali!
SPA			SetParameter	TEXT		Premios!
GER			SetParameter	TEXT	Goodies!
POL			SetParameter	TEXT		Nagrody!

			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 22
		Then
			SetParameter	POSITION	16	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 81
		Then
			SetParameter	Colour1		0.1	1.0	0.65	1.0
			SetParameter	Colour2		0.1	1.0	0.65	1.0
			SetParameter	Colour3		0.1	1.0	0.65	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	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Some_help!
FRE			SetParameter	TEXT		De_l'aide_!
ITA	SetParameter			TEXt		Un_aiuto!
SPA			SetParameter	TEXT		Ayuda!
GER			SetParameter	TEXT	Etwas_Hilfe!
POL			SetParameter	TEXT		Potrzebujesz_pomocy

			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 81
		Then
			SetParameter	POSITION	23	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf


	EndResponse

	If M BecomesEqualTo -1
	Then

		SetParameter BLOCKCOLOUR ALLCOLOURS
		SendMessage CLEARBLOCKS
		SendMessage FIRINGOFF

		SendMessage	CLEARPROJECTILES

		Add B To I
		Set A To 0
		Set D To 0
		Set K To 0
		Set X To 0


		GotoLoop FAIL
		
	EndIf


EndLoop

Loop FAIL
Do

	OnMessage TIMER8
	Do
	
		Add 1 To X

	EndResponse


	If X 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		Puntuacin
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		2
	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		dtruit
ITA	SetParameter	TEXT		distrutti
SPA	SetParameter	TEXT		destruidas
GER	SetParameter	TEXT		Zerstrt
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   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	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_punktw

	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		Duracin
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   B
        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		Puntuacin_Total
GER	SetParameter	TEXT		Gesamtpunkte
POL	SetParameter	TEXT		Razem_punktw


	SendMessage	CREATETEXT

	EndIf

	If X IsGreaterThanOrEqualTo 3
	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 X To 95
			GotoLoop FAIL2

		EndIf

	EndIf


	If X BecomesEqualTo 98
	Then


		SetParameter    SCORE		I
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf



EndLoop


Loop FAIL2
Do

	OnMessage TIMER8
	Do
	
		Add 1 To X

	EndResponse


	If X 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		Puntuacin
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		2
	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		dtruit
ITA	SetParameter	TEXT		distrutto
SPA	SetParameter	TEXT		destruidas
GER	SetParameter	TEXT		Zerstrt
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   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	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_punktw

	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		Duracin
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   B
        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		Puntuacin_Total
GER	SetParameter	TEXT		Gesamtpunkte
POL	SetParameter	TEXT		Razem_punktw


	SendMessage	CREATETEXT

	EndIf

	If X IsGreaterThanOrEqualTo 3
	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 X To 95

		EndIf

	EndIf


	If X BecomesEqualTo 98
	Then


		SetParameter    SCORE		I
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf



EndLoop
	






EndFile
