GameMode	Bombing_Run

FRE Bombardement
GER Bombenangriff
SPA Huida_Explosiva
ITA Campo_minato
POL Nalot




GameType	TOURNAMENT
HIDDENID	2
	RedComboCounter				R
	LANDLINESCOUNTER			L
	WaterHeightCounter			H
	COLLECTSTARCOUNTER			C
	LIVESREMAINING02COUNTER			M

Program0123


TEXTBUFFER      LEVS          


        bombsg.wbl


ENDBUFFER

Loop INIT
Do

	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP


	SetParameter	NUMLINES	2
	SendMessage	SetStartLines

	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20              / height of level /
        SendMessage     LOADLEVEL

	SetParameter	LIVES 0
	SendMessage	SETLIVES	

	SetParameter	TEXT	bombsg.wbw
	SendMessage	LOADWEAPONLIST

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT		

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	TEXT	bombing_run
	SendMessage	SET_HIGHSCORE_TABLE

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	500
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	3500
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


	SendMessage     DEACTIVATESCORE

	SendMessage	MUSIC_GROOVE_LOW


	Set A To 0
	Set U To 60
	Set I To 0
	Set X To 0
	Set F To 0
	SET S To 0
	SET T To 0
	SET Q TO 2
	SET B To 0
	SET R To 0
	SET C TO 0
	SET H TO -175
	Set Q To 2
	Set M To 0	

	Set K To 0
	SET E TO C

	Set D To 0
	Set J To 0

	
		
	SendMessage FIRINGOFF
	SendMessage STARTBRIEFING
	
	GotoLoop BRIEF

EndLoop


Loop BRIEF
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		Bombing_run
FRE	SetParameter	TEXT		Dfi_Bombardement
	GER SetParameter	Text	Bombenangriff
	SPA	SetParameter	Text	Desafo_Explosivo
	ITA	SetParameter	TEXT	Sfida_sul_campo_minato



	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_warheads_as_possible
FRE	SetParameter	TEXT		Dtruisez_autant_d'ogives_que_possible.
	GER SetParameter	Text	Triff_so_viele_Sprengkpfe_wie_mglich
	ITA SetParameter	TEXt	Colpisci_pi_testate_possibili.


	SPA SetParameter	Scale1		0.7	0.7	0.7	0.0
	SPA SetParameter	Scale2		0.7	0.7	0.7	0.0
	SPA SetParameter	Scale3		0.7	0.7	0.7	0.0
	SPA SetParameter	Scale4		0.7	0.7	0.7	0.0
	SPA SetParameter	Scale5		0.7	0.7	0.7	0.0

	SPA	SetParameter	Text	Procura_disparar_al_mayor_nmero_de_cabezas.


	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
	GER SetParameter	Text	Zum_Starten_Feuer_drcken
	ITA SetParameter	TEXt	Premi_fuoco_per_cominciare
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!


	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	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT	

		SetParameter	INTERVAL	260
		SendMessage	SetLandSpeed
		SendMessage	ENDBRIEFING

		SendMessage FIRINGON
		GotoLoop MAIN
		
	EndResponse


EndLoop


Loop MAIN
Do

	If M IsEqualTo -1
	Then

		SendMessage	PAUSELANDLEFT
		SendMessage	PAUSELANDRIGHT

		SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
		SendMessage 	CLEARBLOCKS

		SendMessage	FIRINGOFF		

		SendMessage MUSIC_GROOVE_LOW

		Set X To 0
		Set A To 0
		Set B To 0
		Set C To 0
		Set D To 0
		Set E To 0
		
		Add T To F


		GotoLoop WIN

	EndIf


	SetParameter	POSITION	-30.0	-210.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    FRAME	6
        SendMessage     CREATEICON


	SetParameter	Justify		Centre
	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   S
        SetParameter    Digits  3
        SendMessage     CREATESCORE


	If I IsEqualTo 0
	Then


		If J IsEqualTo 0
		Then

			If U BecomesLessThan 30
			Then

				SendMessage	MUSIC_GROOVE_MED

				Set J To 2

			EndIf

		EndIf

		If J IsEqualTo 2
		Then

			If U BecomesLessThan 10
			Then

				SendMessage	MUSIC_GROOVE_HIGH

				Set J To 3

			EndIf

		EndIf

	EndIf	


	If R IsGreaterThan 2
	Then

		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Velocity	0.0	0.01	0.0	0.0
		SetParameter	Gravity		0.0	0.0	0.0	0.0
		SetParameter	Scale1		0.5	0.5	0.5	0.0
		SetParameter	Scale2		1.5	1.5	1.5	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	Lifetime	0.1	0.5	1.0	1.5
		SetParameter	Justify		Centre

		SetParameter	Position	0.0	75.0	0.0	0.0
		SetParameter	Text		Defused
FRE		SetParameter	TEXT		Dsamorce
		GER SetParameter	Text	Entschrft
		SPA SetParameter	Text	Desactivada
		ITA SetParameter	TEXT	Disinnescata


		SendMessage	CREATETEXT

		SET B To 0
		ADD 1 To S
		Add 2 To U
		Set Q To 0
		Add 1000 To F	

		

		
		If S BECOMESGREATERTHANOREQUALTO 8
		Then
				

			SetParameter	INTERVAL	200
			SendMessage	SetLandSpeed
	
			SetParameter	Lifetime	0.1	0.5	2.2	1.0
			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	125.0	0.0	0.0
			SetParameter	Text		FASTER!
FRE			SetParameter	TEXT		Plus_vite!
			GER SetParameter	Text	SCHNELLER!
			SPA SetParameter	Text	MS_RPIDO!
			ITA SetParameter	TEXt	PI_VELOCE!


			SendMessage	CREATETEXT



		EndIf


		If S BECOMESGREATERTHANOREQUALTO 16
		Then
				

			SetParameter	INTERVAL	150
			SendMessage	SetLandSpeed
	
			SetParameter	Lifetime	0.1	0.5	2.2	1.0
			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	125.0	0.0	0.0
			SetParameter	Text		FASTER!
FRE			SetParameter	TEXT		Plus_vite!
			GER SetParameter	Text	SCHNELLER!
			SPA SetParameter	Text	MS_RPIDO!
			ITA SetParameter	TEXt	PI_VELOCE!
			SendMessage	CREATETEXT
	


		EndIf


		If S BECOMESGREATERTHANOREQUALTO 22
		Then
				

			SetParameter	INTERVAL	100
			SendMessage	SetLandSpeed
	
			SetParameter	Lifetime	0.1	0.5	2.2	1.0
			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	125.0	0.0	0.0
			SetParameter	Text		FASTER!
FRE			SetParameter	TEXT		Plus_vite!
			GER SetParameter	Text	SCHNELLER!
			SPA SetParameter	Text	MS_RPIDO!
			ITA SetParameter	TEXt	PI_VELOCE!
			SendMessage	CREATETEXT



		EndIf


		If S BECOMESGREATERTHANOREQUALTO 26
		Then
				

			SetParameter	INTERVAL	75
			SendMessage	SetLandSpeed
	
			SetParameter	Lifetime	0.1	0.5	2.2	1.0
			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	125.0	0.0	0.0
			SetParameter	Text		FASTER!
FRE			SetParameter	TEXT		Plus_vite!
			GER SetParameter	Text	SCHNELLER!
			SPA SetParameter	Text	MS_RPIDO!
			ITA SetParameter	TEXt	PI_VELOCE!
			SendMessage	CREATETEXT


		EndIf


		Set R To 0
	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	SIDE	CENTRE


	OnMessage TIMER3
	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		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


		ADD 1 To T

		Add 2 To H

		SetParameter 	POSITION	0.0	H	0.0	0.0
		SendMessage	ChangeWaterHeight


		If Q IsEqualTo 0
		Then


			SetParameter	Velocity	0.0	0.01	0.0	0.0
			SetParameter	Lifetime	0.0	0.1	0.5	0.4
			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	0.0	0.0	0.0
			SetParameter	Justify		Centre
		ENG	SetParameter	Text		Time_bonus!
FRE			SetParameter	TEXT		Bonus_de_temps!
			GER SetParameter	Text	zeitbonus!
			SPA SetParameter	Text	Tiempo_Extra!
			ITA SetParameter	TEXT	Tempo_bonus!

	
			SendMessage	CREATETEXT

			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
	


		Add 1 To V


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

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


		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

			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	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 U To 0
			Set I To 0
			Set Z To 0

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT

			SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
			SendMessage 	CLEARBLOCKS

		EndIf




		If U IsLessThan 60
		Then

			ConvertToText   U
			SendMessage	CREATETEXT

		EndIf



		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
		SetParameter	Lifetime	0.0	0.0	1.0	0.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

		If U IsEqualTo 0
		Then

			If I IsEqualTo 0
			Then
			
	
				SendMessage	PAUSELANDLEFT
				SendMessage	PAUSELANDRIGHT		

		
				SetParameter	Justify		Centre
				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		TIMES_UP!
FRE				SetParameter	TEXT		TEMPS_COUL!
				GER SetParameter	Text		ENDE!
				SPA SetParameter	Text	TIEMPO!
				ITA SetParameter	TEXT	TEMPO_ESAURITO!




				SendMessage	CREATETEXT

				Add T To F
				Set A To 0
				Set B To 0
				Set C To 0
				Set D To 0
				Set E To 0

				Set X To 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	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 	BLOCKCOLOUR 	ALLCOLOURS
				SendMessage 	CLEARBLOCKS

				SendMessage FIRINGOFF

				SendMessage MUSIC_GROOVE_LOW

				GotoLoop WIN

			EndIf		

		EndIf


		Randomise A From 1 To 5
		
		If L IsGreaterThanOrEqualTo 20
		Then

		If A IsEqualTo 1
		Then
			Randomise B From 1 To 4
			
			If B IsEqualTo 1
			Then

				SetParameter	POSITION	7	4	0	0
				SetParameter	BLOCKCOLOUR	STAR
				SendMessage	SPAWNINBLOCK

			EndIf

			If B IsEqualTo 2
			Then

				SetParameter	POSITION	10	3	0	0
				SetParameter	BLOCKCOLOUR	STAR
				SendMessage	SPAWNINBLOCK

			EndIf

			If B IsEqualTo 3
			Then
				SetParameter	POSITION	12	10	0	0
				SetParameter	BLOCKCOLOUR	STAR
				SendMessage	SPAWNINBLOCK

			EndIf

			If B IsEqualTo 4
			Then
				SetParameter	POSITION	19	4	0	0
				SetParameter	BLOCKCOLOUR	STAR
				SendMessage	SPAWNINBLOCK

			EndIf
			

		EndIf

		If A IsEqualTo 5
		Then

			Randomise B From 1 To 4

			If B IsEqualTo 1
			Then
				SetParameter	POSITION	7	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_SHOTGUNRED
				SendMessage	SPAWNINBLOCK

			EndIf

			If B IsEqualTo 2
			Then
				SetParameter	POSITION	10	3	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_SHOTGUNRED
				SendMessage	SPAWNINBLOCK

			EndIf

			If B IsEqualTo 3
			Then
				SetParameter	POSITION	12	10	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_SHOTGUNRED
				SendMessage	SPAWNINBLOCK

			EndIf

			If B IsEqualTo 4
			Then

				SetParameter	POSITION	19	4	0	0
				SetParameter	BLOCKCOLOUR	CRATE
				SetParameter	CRATECONTENTS	CRATE_SHOTGUNRED
				SendMessage	SPAWNINBLOCK

			EndIf


		EndIf
		
		EndIf

	EndResponse






	

	If C IsGreaterThan E
	Then

		Subtract 30 From H

		SetParameter 	POSITION	0.0	H	0.0	0.0
		SendMessage	ChangeWaterHeight
		
		SET E TO C	
	
	EndIf


	If H BecomesGreaterThanOrEqualTo 50
	Then

		SendMessage	PAUSELANDLEFT
		SendMessage	PAUSELANDRIGHT		

		
		SetParameter	Justify		Centre
		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		Water_Too_High!
		GER SetParameter	Text		Wasser_zu_hoch!
FRE		SetParameter		TEXT		Niveau_d'eau_trop_lev!
		ITA SetParameter	TEXT		L'acqua__troppo_alta!


		SPA SetParameter	Position	0.0	25.0	0.0	0.0
		SPA SetParameter	Text	El_nivel_del

		SendMessage	CREATETEXT

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

		SendMessage FIRINGOFF

		Set A To 0
		Set B To 0
		Set C To 0
		Set D To 0
		Set E To 0
		Set X To 0
		Add T To F

		SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
		SendMessage 	CLEARBLOCKS

		SendMessage MUSIC_GROOVE_LOW
	
		GotoLoop WIN

	EndIf
		
	
EndLoop


Loop WIN
Do

	OnMessage TIMER3
	Do

		Add 1 To X

	EndResponse
	

	If X IsGreaterThanOrEqualTo 5
	Then	


	SetParameter	Colour1		0.18	0.9	0.1	1.0
	SetParameter	Colour2		0.18	0.9	0.1	1.0
	SetParameter	Colour3		0.18	0.9	0.1	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter 	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0
	SetParameter	Justify		Centre
	SetParameter	POSITION	0.0	150.0	0.0	0.0
	SetParameter	TEXT		Scores
FRE	SetParameter	TEXT		Scores
	GER SetParameter	TEXT		Punkte
	SPA SetParameter	TEXT	Puntuacin
	ITA SetParameter	TEXT	Punti

	
	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
	SetParameter	FRAME		6
	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		dtruites
	GER SetParameter	TEXT	zerstrt
	SPA SetParameter	TEXT	destruidos
	ITA SetParameter	TEXT	distrutte


	SendMessage	CREATETEXT

	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	POSITION	-20.0	75.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   S
        SetParameter    Digits  8
        SendMessage     CREATESCORE


	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SetParameter	Scale5		0.8	0.8	0.8	0.0
	SetParameter	Justify		Left
	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter 	Colour3		1.0	1.0	1.0	1.0

	SetParameter	POSITION	90.0	75.0	0.0	0.0
	SetParameter	TEXT		x_1000_points
FRE	SetParameter	TEXT		x_1000_points
	GER SetParameter	TEXT	x_1000_Punkte
	SPA SetParameter	TEXT	x_1000_puntos
	ITA SetParameter	TEXt	x_1000_punti


	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		Dure_de_survie
	GER SetParameter	TEXT	berstandene_Zeit
	SPA SetParameter	TEXT	Duracin
	ITA SetParameter	TEXT	Tempo_rimasto



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



	SendMessage	CREATETEXT


	SetParameter	Justify		Right
	SetParameter	POSITION	-70.0	-25.0	0.0	0.0
	SetParameter	TEXT		Total_points
FRE	SetParameter	TEXT		Total_de_points
	GER SetParameter	TEXT	Gesamtpunkte
	SPA SetParameter	TEXT	Puntuacin_Total
	ITA SetParameter	TEXT	Punteggio_totale



	SendMessage	CREATETEXT

	EndIf

	If X IsGreaterThanOrEqualTo 7
	Then

		If K IsGreaterThan F
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

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

		EndIf
/
		If A BecomesEqualTo F
		Then

			Set X To 95
			GotoLoop WIN2

		EndIf


	EndIf


	If X BecomesEqualTo 98
	Then


		SetParameter    SCORE		F
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf


	
	
EndLoop

Loop WIN2
Do

	OnMessage TIMER3
	Do

		Add 1 To X

	EndResponse
	

	If X IsGreaterThanOrEqualTo 1
	Then	


	SetParameter	Colour1		0.18	0.9	0.1	1.0
	SetParameter	Colour2		0.18	0.9	0.1	1.0
	SetParameter	Colour3		0.18	0.9	0.1	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter 	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0
	SetParameter	Justify		Centre
	SetParameter	POSITION	0.0	150.0	0.0	0.0
	SetParameter	TEXT		Scores
FRE	SetParameter	TEXT		Scores
	GER SetParameter	TEXT	Punkte
	SPA SetParameter	TEXT	Puntuacin
	ITA SetParameter	TEXt	Punti



	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
	SetParameter	FRAME		6
	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		dtruites
	GER SetParameter	TEXT	zerstrt
	SPA SetParameter	TEXT	destruidos
	ITA SetParameter	TEXt	distrutte

	SendMessage	CREATETEXT

	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	POSITION	-20.0	75.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   S
        SetParameter    Digits  8
        SendMessage     CREATESCORE


	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SetParameter	Scale5		0.8	0.8	0.8	0.0
	SetParameter	Justify		Left
	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter 	Colour3		1.0	1.0	1.0	1.0

	SetParameter	POSITION	90.0	75.0	0.0	0.0
	SetParameter	TEXT		x_1000_points
FRE	SetParameter	TEXT		x_1000_points
	GER SetParameter	TEXT	x_1000_Punkte
	SPA SetParameter	TEXT	x_1000_puntos
	ITA SetParameter	TEXT	x_1000_punti
	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		Dure_de_survie
	GER SetParameter	TEXT	berstandene_Zeit
	SPA SetParameter	TEXT	Duracin
	ITA SetParameter	TEXT	Tempo_rimasto


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




	SendMessage	CREATETEXT


	SetParameter	Justify		Right
	SetParameter	POSITION	-70.0	-25.0	0.0	0.0
	SetParameter	TEXT		Total_points
FRE	SetParameter	TEXT		Dure_de_survie
	GER SetParameter	TEXT	Gesamtpunkte
	SPA SetParameter	TEXT	Puntuacin_Total
	ITA SetParameter	TEXT	Punteggio_totale


	SendMessage	CREATETEXT

	EndIf

	If X IsGreaterThanOrEqualTo 2
	Then

		If K IsGreaterThan F
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

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

		EndIf

		If A BecomesEqualTo F
		Then

			Set X To 95

		EndIf

	EndIf


	If X BecomesEqualTo 98
	Then


		SetParameter    SCORE		F
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf

	
EndLoop


Loop NULL
Do

EndLoop



EndFile
