GameMode	ShTarM
GameType	QUEST
	DESTROYOWNTARGETCOUNTER		T
	DESTROYENEMYTARGETCOUNTER	T
	LANDDROPPEDINWATERCOUNTER	L
	LIVESREMAINING02COUNTER		M
	ORANGEBLOCKSONSCREENCOUNTER	S


Program0123


TEXTBUFFER      LEVS  
                  
        ShTarM.wbl

ENDBUFFER


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


Loop INIT
Do

	SendMessage	DEACTIVATESCORE
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT		

	SetParameter	TEXT	ShTarM.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP7
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                20   
        SendMessage     LOADLEVEL


	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT


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



	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		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	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		The_shooting_range
FRE	SetParameter	TEXT		Champ_de_tir
ITA	SetParameter	TEXT		Prova_di_tiro
SPA	SetParameter	TEXT		El_Campo_de_Tiro
GER	SetParameter	TEXT		Der_Schieplatz
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.8
	SetParameter	Scale2		0.8	0.8	0.8	0.8
	SetParameter	Scale3		0.8	0.8	0.8	0.8
	SetParameter	Scale4		0.8	0.8	0.8	0.8
	SetParameter	Scale5		0.8	0.8	0.8	0.8

	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_15_targets_to_complete
FRE	SetParameter	TEXT		Dtruisez_15_cibles_pour
ITA	SetParameter	TEXT		Colpisci_15_bersagli_per
SPA	SetParameter	TEXT		Debes_eliminar_15_dianas
GER	SetParameter	TEXT		Treffe_15_Ziele,_um_die
POL	SetParameter	TEXT		Zestrzel_15_celw



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		the_mission.
ITA	SetParameter	Text		completare_la_missione.
FRE	SetParameter	TEXT		terminer_la_mission.
SPA	SetParameter	TEXT		para_completar_la_misin.
GER	SetParameter	TEXT		Mission_zu_komplettieren.
POL	SetParameter	TEXT		aby_ukoczy_misj.


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		A_successful_strike_will_extend
FRE	SetParameter	TEXT		Si_vous_russissez_une_attaque,
ITA	SetParameter	TEXT		Ogni_volta_che_vai_a_segno,_il
SPA	SetParameter	TEXT		Si_lo_haces_bien,_conseguirs
GER	SetParameter	TEXT		Ein_erfolgreicher_Treffer_gibt_dir
POL	SetParameter	TEXT		Celny_strza_do_CI



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		your_time.
FRE	SetParameter	TEXT		vous_prolongerez_votre_temps.
ITA	SetParameter	TEXT		tempo_a_tua_disposizione_aumenta.
SPA	SetParameter	TEXT		ms_tiempo.
GER	SetParameter	TEXT		mehr_Zeit.
POL	SetParameter	TEXT		wicej_czasu.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Text		But_watch_out_for_those_reds!
FRE	SetParameter	TEXT		Mais_faites_attention__ces_rouges!
ITA	SetParameter	TEXT		Stai_attento_ai_rossi!
SPA	SetParameter	TEXT		Pero_cuidado_con_los_bloques_rojos!
GER	SetParameter	TEXT		Pass_aber_auf_die_Roten_auf!
POL	SetParameter	TEXT		Uwaaj_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_comincia
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


	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	

	OnMessage FIREPRESSED
	Do
		SendMessage EndBriefing
		SendMessage FIRINGON	
		GotoLoop MAIN1
		
	EndResponse

EndLoop




Loop MAIN1
Do

	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	1.0
	SetParameter	Scale2		1.0	1.0	1.0	1.0
	SetParameter	Scale3		1.0	1.0	1.0	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		1.0	1.0	1.0	1.0

	SetParameter	Lifetime	0.0	0.0	1.0	0.0
	SetParameter	Justify		CENTRE
	
	SetParameter	FRAME		2
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	-245.0	210.0	0.0	0.0
	SendMessage	CREATEICON

	SetParameter	Scale1		0.8	0.8	0.8	0.8
	SetParameter	Scale2		0.8	0.8	0.8	0.8
	SetParameter	Scale3		0.8	0.8	0.8	0.8
	SetParameter	Scale4		0.8	0.8	0.8	0.8
	SetParameter	Scale5		0.8	0.8	0.8	0.8

	ConvertToText	T
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	-200.0	210.0	0.0	0.0
	SendMessage	CREATETEXT


	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale2		1.0	1.0	1.0	1.0
	SetParameter	Scale3		1.0	1.0	1.0	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		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	1	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	1	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	1	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	1	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	1	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	1	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 O IsEqualTo 0
	Then
		If U BecomesEqualTo 45
		Then

			SendMessage MUSIC_GROOVE_MED
	
		EndIf

		Set O To 1
	EndIf


	If O IsEqualTo 1
	Then
	
		If U BecomesEqualTo 30
		Then

			SendMessage MUSIC_GROOVE_MED_HI

		EndIf

		Set O To 2		

	EndIf
	

	If O IsEqualTo 2
	Then

		If U BecomesEqualTo 10
		Then

			SendMessage MUSIC_GROOVE_HIGH

		EndIf

	EndIf

	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,_ya_tienes_una!
GER			SetParameter	TEXT		WOW!_Du_hast_eins_erwischt!
POL			SetParameter	TEXT		O_trafie_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
		
		ADD 50 To K
			

	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		Vorsicht!
POL			SetParameter	TEXT		Uwaaj



			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		Pnalit_de_temps
ITA		SetParameter	TEXT		Penalit
SPA		SetParameter	TEXT		Penalizacin
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

		ADD 1 To L
		Add 10 To N		

		EndIf

	EndIf

	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale2		1.0	1.0	1.0	1.0
	SetParameter	Scale3		1.0	1.0	1.0	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		1.0	1.0	1.0	1.0
	SetParameter	FRAME		3
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	180.0	210.0	0.0	0.0
	SendMessage	CREATEICON

	SetParameter	Scale1		0.8	0.8	0.8	0.8
	SetParameter	Scale2		0.8	0.8	0.8	0.8
	SetParameter	Scale3		0.8	0.8	0.8	0.8
	SetParameter	Scale4		0.8	0.8	0.8	0.8
	SetParameter	Scale5		0.8	0.8	0.8	0.8



	OnMessage TIMER5
	Do

		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	245.0	210.0	0.0	0.0






		If U IsLessThan 0
		Then
			Subtract 1 from I

			Set U To 59
			
		EndIf

		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

		If U IsLessThan 10
		Then
			SetParameter	Text		0
			SetParameter	Position	245.0	210.0	0.0	0.0
			SendMessage	CREATETEXT
			SetParameter	Position	260.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

			Set U To 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	TEXT	0
			SetParameter	Position	245.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	260.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			Set I To 0
			Set Z To 0


			SetParameter	BLOCKCOLOUR	ALLCOLOURS
			SendMessage CLEARBLOCKS

			SendMessage CLEARPROJECTILES

			SendMessage MUSIC_GROOVE_LOW

			SendMessage FIRINGOFF


			GotoLoop FAIL
		EndIf


		If U IsEqualTo 0
		Then

			If I IsEqualTo 0
			Then

				SendMessage FIRINGOFF
				SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
				SendMessage 	CLEARBLOCKS
				SendMessage	MUSIC_GROOVE_LOW
				SendMessage	CLEARPROJECTILES
				GotoLoop FAIL

			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	215.0	210.0	0.0	0.0
		SendMessage	CREATETEXT

	EndResponse


	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




	OnMessage TIMER5
	Do

		Randomise X From 1 To 200
	
		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


		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	Position	0.0	-65.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	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	Position	0.0	-65.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 11
		Then
			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	Position	0.0	-65.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 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	Position	0.0	-65.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 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	Position	0.0	-65.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		Geschenke!
POL			SetParameter	TEXT		Potrzebujesz_pomocy


			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 91
		Then
			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	Position	0.0	-65.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		Geschenke!
POL			SetParameter	TEXT		Potrzebujesz_pomocy
			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 191
		Then
			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	Position	0.0	-65.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 145
		Then
			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	Position	0.0	-65.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 31
		Then
			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	Position	0.0	-65.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		Regalos!
GER			SetParameter	TEXT		Etwas_Hilfe!
POL			SetParameter	TEXT		Potrzebujesz_pomocy

			SendMessage 	CREATETEXT	
		EndIf

		If X IsEqualTo 143
		Then
			SetParameter	POSITION	12	1	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf


	EndResponse


	If T BecomesEqualTo 8
	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	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		Ms_rpido!
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 T BecomesEqualTo 12
	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	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		Ms_rpido!
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	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 T BecomesGreaterThan 14
	Then

		SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
		SendMessage 	CLEARBLOCKS

		Set Z to 0

		SendMessage	MUSIC_GROOVE_LOW
		SendMessage	CLEARPROJECTILES
		SendMessage FIRINGOFF
		GotoLoop WIN
	
	EndIf

	If M IsEqualTo -1
	Then
		SendMessage FIRINGOFF
		SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
		SendMessage 	CLEARBLOCKS
		SendMessage	MUSIC_GROOVE_LOW
		SendMessage	CLEARPROJECTILES
		Set Z to 0
		GotoLoop FAIL
	
	EndIf



EndLoop




Loop FAIL
Do

	
	SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
	SendMessage 	CLEARBLOCKS


	OnMessage TIMER5
	Do

		Add 1 To Z
	EndResponse

	
	If Z BecomesEqualTo 1
	Then
		

		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Scale1		8.0	8.0	8.0	1.0
		SetParameter	Scale2		5.0	5.0	5.0	1.0
		SetParameter	Scale4		3.0	3.0	3.0	1.0
		SetParameter	Colour1		1.0	0.22	0.07	1.0
		SetParameter	Colour2		1.0	0.22	0.07	1.0
		SetParameter	Colour3		1.0	0.22	0.07	1.0
		SetParameter	Colour4		0.0	0.0	0.0	1.0
		SetParameter	Colour5		0.0	0.0	0.0	1.0
		SetParameter	Colour6		0.0	0.0	0.0	1.0
		SetParameter	Lifetime	0.2	0.7	3.2	4.2
		SetParameter	Text		FAILED!
FRE		SetParameter	TEXT		CHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		FALLASTE!
GER			SetParameter	TEXT		VERLOREN!
POL		SetParameter	TEXT		klska



		SendMessage	CREATETEXT

	EndIf

	


	If Z BecomesEqualTo 5
	Then

		SendMessage LOSECONDITION

	EndIf

EndLoop

Loop WIN
Do

	OnMessage TIMER5
	Do

		Add 1 To Z
	EndResponse

	If Z BecomesEqualTo 1
	Then
		
		SetParameter	Position	0.0 	0.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.7	3.2	4.2
		SetParameter	Scale1		0.4	0.4	0.4	0.0
		SetParameter	Scale2		1.4	1.4	1.4	0.0
		SetParameter	Scale3		3.4	3.4	3.4	0.0
		SetParameter	Scale4		2.0	2.0	2.0	0.0
		SetParameter	Scale5		1.8	1.8	1.8	0.0
		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		1.0	1.0	1.0	1.0
		SetParameter	Colour5		0.0	0.0	0.0	1.0
		SetParameter	Colour6		0.0	0.0	0.0	1.0
		SetParameter	Text	SUCCESS!
FRE		SetParameter	TEXT	RUSSI!
ITA		SetParameter	TEXT	HAI_VINTO!
SPA		SetParameter	TEXT	LO_CONSEGUISTE!
GER		SetParameter	TEXT	GESCHAFFT!
POL		SetParameter	TEXT	SUKCES



		SendMessage	CREATETEXT


	EndIf

	


	If Z BecomesEqualTo 5
	Then

		SetParameter	TEXT	g2
			SendMessage	SETNEXTGAMEMODE
			SendMessage	LOSECONDITION

	EndIf

EndLoop



EndFile


