GameMode	shooting_gallery
FRE	Stand_de_tir
ITA	Tiro_a_segno
SPA	Galería_de_Tiro
GER	Scheibenschießen
POL	Strzelnica


GameType	TOURNAMENT
	DESTROYOWNTARGETCOUNTER		T
	DESTROYENEMYTARGETCOUNTER	T
	LANDDROPPEDINWATERCOUNTER	L
	LIVESREMAINING02COUNTER		M
	ORANGEBLOCKSONSCREENCOUNTER	S


Program0123


TEXTBUFFER      LEVS  
                  
        ShootTar.wbl

ENDBUFFER


/ shoot targets as they move across the screen 
author pd/


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	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT		

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	TEXT	ShootTar.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

	SetParameter	TEXT	shooting_gallery
	SendMessage	SET_HIGHSCORE_TABLE

	
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	0200
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0170
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	0125
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	11000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER6
	SetParameter	INTERVAL	0180
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER7
	SetParameter	INTERVAL	0175
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER8
	SetParameter	INTERVAL	0120
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SET A TO 0
	SET B TO 0
	SET C TO 0
	SET D TO 0
	SET E TO 0
	SET G TO 0
	SET H TO 0
	SET I TO 0
	SET K TO 0
	SET L TO 0
	SET M TO 0
	SET N TO 0
	SET R TO 0
	SET S TO 0
	SET P TO 0
	SET Q TO 2
	SET T TO 0
	SET U TO 60
	SET V TO 0
	SET X TO 0
	SET Y TO 0
	SET W TO 0
	SET Z TO 0

	SendMessage	DEACTIVATESCORE


	Randomise A FROM 1 To 25
	Set F To 0
	

	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 30 To 45

	Randomise H From -23 To -4

	SendMessage	FIRINGOFF

	SendMessage	StartBriefing

	SendMessage MUSIC_GROOVE_LOW

	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		Shooting_Gallery
FRE	SetParameter	TEXT		Stand_de_tir
ITA	SetParameter	TEXT		Tiro_a_segno
SPA	SetParameter	TEXT		Galería_de_Tiro
GER	SetParameter	TEXT		Scheibenschießen
POL	SetParameter	TEXT		Strzelnica

	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		Hit_as_many_targets_as
FRE	SetParameter	TEXT		Abattez_autant_de_cibles
ITA	SetParameter	TEXT		Colpisci_più_bersagli_possibili
SPA	SetParameter	TEXT		¡Intenta_dar_a_todas_las_dianas
GER	SetParameter	TEXT		Treffe_so_viele_Ziele_wie_möglich_um
POL	SetParameter	TEXT		Traf_w_tyle_celów_ile

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		possible_to_extend_your_time
FRE	SetParameter	TEXT		que_possible_pour_prolonger_votre_temps
ITA	SetParameter	TEXT		per_aumentare_il_tempo_a_tua
SPA	SetParameter	TEXT		para_conseguir_más_tiempo
GER	SetParameter	TEXT		die_verbleibende_Zeit_zu_verlängern
POL	SetParameter	TEXT		tylko_potrafisz,_aby_wyd³u¿yæ_czas_gry_i


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		and_increase_your_points!
FRE	SetParameter	TEXT		et_augmenter_vos_points_!
ITA	SetParameter	TEXt		disposizione_e_il_punteggio!
SPA	SetParameter	TEXT		y_ganar_más_puntos!
GER	SetParameter	TEXT		und_die_Punktzahl_zu_erhöhen!
POL	SetParameter	TEXT		zdobyæ_jak_najwiêcej_punktów.



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		But_watch_out_for_those_Reds!
FRE	SetParameter	TEXT		Mais_attention_aux_blocs_rouges!
ITA	SetParameter	TEXT		Stai_attento_ai_rossi!
SPA	SetParameter	TEXT		¡Pero_cuidado_con_los_bloques_rojos!
GER	SetParameter	TEXT		Aber_pass_auf_die_Roten_auf!
POL	SetParameter	TEXT		Uwa¿aj_jednak_na_czerwone!

	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


	
	
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT


	OnMessage FIREPRESSED
	Do
		SendMessage FIRINGON
		SendMessage MUSIC_GROOVE_MED
		SendMessage EndBriefing		
		GotoLoop MAIN1
		
	EndResponse

EndLoop




Loop MAIN1
Do


	SetParameter	Justify		Centre

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

	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0


	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT	

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


	OnMessage	TIMER1
	Do

		/ Detonate left hand block /

		SetParameter	Position	C	3	2	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

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

		/ Change fourth block into bouncy /

		Add 2 To C
		SetParameter	Position	C	3	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

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

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

		Subtract 3 From C

		SetParameter POSITION	0	3	0	0
		SendMessage GETBLOCKCOLOUR
		ReadFromParameter       BLOCKCOLOUR INTO O

		If O IsEqualTo TARGET
		Then
			SetParameter POSITION	0	3	0	0
			SetParameter BLOCKCOLOUR ANCHOR
			SendMessage SPAWNINBLOCK
		EndIf

		SetParameter POSITION	24	3	0	0
		SendMessage GETBLOCKCOLOUR
		ReadFromParameter       BLOCKCOLOUR INTO O

		If O IsEqualTo TARGET
		Then
			SetParameter POSITION	24	3	0	0
			SetParameter BLOCKCOLOUR ANCHOR
			SendMessage SPAWNINBLOCK
		EndIf


		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	7	2	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

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

		/ Change fourth block into bouncy /

		SUBTRACT 2 FROM D
		SetParameter	Position	D	7	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

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

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

		ADD 3 TO D

		SetParameter POSITION	0	7	0	0
		SendMessage GETBLOCKCOLOUR
		ReadFromParameter       BLOCKCOLOUR INTO O

		If O IsEqualTo TARGET
		Then
			SetParameter POSITION	0	7	0	0
			SetParameter BLOCKCOLOUR ANCHOR
			SendMessage SPAWNINBLOCK
		EndIf

		SetParameter POSITION	24	7	0	0
		SendMessage GETBLOCKCOLOUR
		ReadFromParameter       BLOCKCOLOUR INTO O

		If O IsEqualTo TARGET
		Then
			SetParameter POSITION	24	7	0	0
			SetParameter BLOCKCOLOUR ANCHOR
			SendMessage SPAWNINBLOCK
		EndIf

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

	EndResponse

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

	OnMessage	TIMER3
	Do

		/ Detonate left hand block /

		SetParameter	Position	E	5	2	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

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

		/ Change fourth block into bouncy /

		Add 2 To E
		SetParameter	Position	E	5	0	0
		SetParameter	BlockColour	RED
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		Add 1 To E
		SetParameter	Position	E	5	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

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

	OnMessage	TIMER6
	Do

		/ Detonate left hand block /

		SetParameter	Position	F	9	2	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

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

		/ Change fourth block into bouncy /

		SUBTRACT 2 FROM F
		SetParameter	Position	F	9	0	0
		SetParameter	BlockColour	RED
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		SUBTRACT 1 FROM F
		SetParameter	Position	F	9	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

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

	OnMessage	TIMER7
	Do

		/ Detonate left hand block /

		SetParameter	Position	G	11	2	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		SUBTRACT 1 FROM G
		SetParameter	Position	G	11	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		SUBTRACT 2 FROM G
		SetParameter	Position	G	11	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		SUBTRACT 1 FROM G
		SetParameter	Position	G	11	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

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

		ADD 3 TO G

		SetParameter POSITION	0	11	0	0
		SendMessage GETBLOCKCOLOUR
		ReadFromParameter       BLOCKCOLOUR INTO O

		If O IsEqualTo TARGET
		Then
			SetParameter POSITION	0	11	0	0
			SetParameter BLOCKCOLOUR ANCHOR
			SendMessage SPAWNINBLOCK
		EndIf

		SetParameter POSITION	24	11	0	0
		SendMessage GETBLOCKCOLOUR
		ReadFromParameter       BLOCKCOLOUR INTO O

		If O IsEqualTo TARGET
		Then
			SetParameter POSITION	24	11	0	0
			SetParameter BLOCKCOLOUR ANCHOR
			SendMessage SPAWNINBLOCK
		EndIf

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

	EndResponse


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

	OnMessage	TIMER8
	Do

		/ Detonate left hand block /

		SetParameter	Position	H	13	2	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		Add 1 To H
		SetParameter	Position	H	13	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		Add 2 To H
		SetParameter	Position	H	13	0	0
		SetParameter	BlockColour	RED
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		Add 1 To H
		SetParameter	Position	H	13	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

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

		Subtract 3 From H

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




	If T IsGreaterThan R
	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	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,_ahí_va_una!
GER	SetParameter	TEXT		WOW!_Erwischt!
POL			SetParameter	TEXT		O._Trafi³eœ_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	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


		SetParameter	Position	0.0	25.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	Text		Time_bonus
FRE		SetParameter	TEXT		Bonus_de_temps
ITA		SetParameter	TEXT		Tempo_bonus
SPA		SetParameter	TEXT		Tiempo_Extra
GER	SetParameter	TEXT		Zeitbonus
POL		SetParameter	TEXT		PREMIA_CZASOWA



		SendMessage 	CREATETEXT

		SET R TO T		
		ADD 5 To U
		Set Q To 0
		
			

	EndIf

	OnMessage TIMER9
	Do

		Set Z To 0

	EndResponse


	If S BecomesGreaterThan 0
	Then
		


		If Z IsLessThan 1
		Then

		Randomise X FROM 1 TO 2

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

		If X IsEqualTo 2
		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		Watch_it!
FRE			SetParameter	TEXT		Attention_!
ITA			SetParameter	TEXT		Attento!
SPA			SetParameter	TEXT		¡Cuidado!
GER			SetParameter	TEXT		Achtung!
POL			SetParameter	TEXT		Uwa¿aj!



			SendMessage 	CREATETEXT
		EndIf
		

		SetParameter	Position	0.0	-25.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	Text		Time_penalty
FRE		SetParameter	TEXT		Pénalité_de_temps
ITA		SetParameter	TEXT		Penalità
SPA		SetParameter	TEXT		Penalización
GER		SetParameter	TEXT		Zeitstrafe
POL		SetParameter	TEXT		Kara



		SendMessage 	CREATETEXT
		

		SetParameter	MESSAGE_ID	TIMER9
		SendMessage	DELETETIMER	

		SetParameter	MESSAGE_ID	TIMER9
		SetParameter	INTERVAL	0371
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SET Q To 1
		Set Z To 1

		SUBTRACT 10 FROM U

		EndIf

	EndIf


	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	Justify		Right
	SetParameter	FRAME		ICON_CLOCK
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	-20.0	210.0	0.0	0.0
	SendMessage	CREATEICON


	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

	OnMessage TIMER5
	Do


		If I IsEqualTo 0
		Then

			If U IsLessThan 11
			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
			
			EndIf

		EndIf

		Set S TO 0
	
		If Q IsEqualTo 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	Velocity	0.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.0	0.0	1.0	0.0


			Set Q To 2
			
		EndIf


		If Q IsEqualTo 0
		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	Velocity	0.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.0	0.0	1.0	0.0


			Set Q To 2
		EndIf
	

		SetParameter	Velocity	0.0	0.0	0.0	0.0




		If U IsGreaterThan 60
		Then
			Subtract 60 From U
			Add 1 to I
			
		EndIf

		Subtract 1 from U

		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Position	25.0	210.0	0.0	0.0






		If U IsLessThan 0
		Then
			Subtract 1 from I

			Set U To 59
			
		EndIf



		If U IsLessThan 10
		Then
			SetParameter	Text		0
			SetParameter	Position	25.0	210.0	0.0	0.0
			SendMessage	CREATETEXT
			SetParameter	Position	40.0	210.0	0.0	0.0
		EndIf

		If U IsEqualTo 60 
		Then

			Set U TO 00
			ConvertToText   U
			SendMessage	CREATETEXT
			
			Set U To 60

		EndIf
		


		If I IsEqualTo -1
		Then

			

			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	TEXT	0
			SetParameter	Position	25.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			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	TEXT	0
			SetParameter	Position	40.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			Set I To 0
			Set U To 0

		EndIf


		If U IsEqualTo 0
		Then

			If I IsEqualTo 0
			Then

				GotoLoop MESSAGE

			EndIf		

		EndIf


		If U IsLessThan 60
		Then

			ConvertToText   U
			SendMessage	CREATETEXT

		EndIf

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

		ConvertToText	I
		SetParameter	Position	0.0	210.0	0.0	0.0
		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


	EndResponse






	OnMessage TIMER5
	Do


		Add 1 To V

		Randomise X From 1 To 200
	

		SetParameter	Justify	Centre

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

			SetParameter	POSITION	5	1	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 11
		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	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	1.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	

			SetParameter	POSITION	19	1	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf	
	

		If X BecomesEqualTo 120
		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	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	1.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 120
		Then
			SetParameter	POSITION	12	1	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	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	1.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 45
		Then
			SetParameter	POSITION	5	1	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SHOTGUNORANGE
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 91
		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	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	1.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	

			SetParameter	POSITION	19	1	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SHOTGUNORANGE
			SendMessage	SPAWNINBLOCK	
		EndIf


		If X BecomesEqualTo 191
		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	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	1.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	

			SetParameter	POSITION	12	1	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SHOTGUNORANGE
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 145
		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	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	1.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	
	
			SetParameter	POSITION	5	1	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 31
		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	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	1.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	

			SetParameter	POSITION	19	1	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf


		If X BecomesEqualTo 143
		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	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	1.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	

			SetParameter	POSITION	12	1	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf


	EndResponse



	If I IsEqualTo 0
	Then

		If L IsEqualTo 0
		Then

			If U BecomesEqualTo 30
			Then

				SendMessage MUSIC_GROOVE_HIGH
	
				Set L To 1

			EndIf
		EndIf

	EndIf



	If V BecomesEqualTo 90
	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	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	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	TIMER2
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER3
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER6
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER7
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER8
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER2
		SetParameter	INTERVAL	0110
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	0100
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER6
		SetParameter	INTERVAL	0130
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER7
		SetParameter	INTERVAL	0095
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER8
		SetParameter	INTERVAL	0085
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

	EndIf


	
	If V BecomesEqualTo 180
	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	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	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

		SendMessage MUSIC_GROOVE_HIGH

		SetParameter	MESSAGE_ID	TIMER2
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER3
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER6
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER7
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER8
		SendMessage	DELETETIMER

		SetParameter	MESSAGE_ID	TIMER2
		SetParameter	INTERVAL	0090
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	0080
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER6
		SetParameter	INTERVAL	0070
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER7
		SetParameter	INTERVAL	0065
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER8
		SetParameter	INTERVAL	0060
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

	EndIf



	If M IsEqualTo -1
	Then

		SetParameter	BLOCKCOLOUR	ALLCOLOURS
		SendMessage CLEARBLOCKS

		SendMessage CLEARPROJECTILES

		SendMessage MUSIC_GROOVE_LOW

		SendMessage FIRINGOFF

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

		Add V TO W


		GotoLoop FAIL
	
	EndIf



EndLoop





Loop FAIL
Do

	

	OnMessage TIMER5
	Do

		Add 1 To Z

	EndResponse

	If Z BecomesEqualTo 1
	Then

		
		While K IsLessThan T
		Do


			Add 1000 To W
			Add 1 To K

		EndWhile

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


	EndIf

	

	If Z IsGreaterThanOrEqualTo 3
	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		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		détruites
ITA	SetParameter	TEXT		distrutti
SPA	SetParameter	TEXT		Destruidas
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   T
        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   V
        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 W
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

			If K IsLessThan W
			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 W
			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 W
		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   W
        		SetParameter    Digits  8
        		SendMessage     CREATESCORE

		EndIf
/

		If A BecomesEqualTo W
		Then

			Set Z To 95
			GotoLoop FAIL2

		EndIf


	EndIf


	If Z BecomesEqualTo 98
	Then


		SetParameter    SCORE		W
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf

EndLoop

Loop FAIL2
Do

	

	OnMessage TIMER5
	Do

		Add 1 To Z

	EndResponse
	

	If Z IsGreaterThanOrEqualTo 3
	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		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		détruites
ITA	SetParameter	TEXT		distrutto
SPA	SetParameter	TEXT		Destruidas
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   T
        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   V
        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 W
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

			If K IsLessThan W
			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 W
			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 W
		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   W
        		SetParameter    Digits  8
        		SendMessage     CREATESCORE

		EndIf

		If A BecomesEqualTo W
		Then

			Set Z To 95

		EndIf


	EndIf


	If Z BecomesEqualTo 98
	Then


		SetParameter    SCORE		W
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf

EndLoop


Loop MESSAGE
Do


	SetParameter	BLOCKCOLOUR	ALLCOLOURS
	SendMessage CLEARBLOCKS

	SendMessage CLEARPROJECTILES

	SendMessage MUSIC_GROOVE_LOW

	SendMessage FIRINGOFF

	Set K To 0
	Set B To 0
	Set Z To 0
	Set A To 0
	Set D To 0


	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	1.0
	SetParameter	Text		TIME'S_UP!
FRE	SetParameter	TEXT		TEMPS_ÉCOULÉ_!
ITA	SetParameter	TEXT		TEMPO_ESAURITO!
SPA	SetParameter	TEXT		¡TIEMPO!
GER		SetParameter	TEXT	ENDE!
POL	SetParameter	TEXT		Czas_up³yn¹³



	SendMessage	CREATETEXT

	Add V To W

	GotoLoop FAIL


EndLoop


EndFile


