GameMode	bombs

	RedComboCounter				R
	LANDLINESCOUNTER			L
	WaterHeightCounter			H
	COLLECTSTARCOUNTER			C

Program0123


TEXTBUFFER      LEVS          


        bombs.wbl


ENDBUFFER

Loop INIT
Do

	SetParameter	NUMLINES	2
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP10
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20              / height of level /
        SendMessage     LOADLEVEL

	SetParameter	LIVES 0
	SendMessage	SETLIVES	

	SetParameter	TEXT	bombs.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	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	MUSIC_GROOVE_LOW

	SendMessage	DEACTIVATESCORE


	Set A To 0
	Set U To 60
	Set I To 0
	Set X To 0
	SET S To 0
	SET T To 0
	SET B To 0
	SET R To 0
	SET C TO 0
	SET H TO -175
	
	SET E TO C
	
		
	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		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		Bombing_run
FRE	SetParameter	TEXT		Bombardement
	GER SetParameter	Text	Bombenangriff
	SPA SetParameter	Text	Huida_Explosiva
	ITA SetParameter	TEXt	Campo_minato
	POL SetParameter	Text	Nalot


	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		You_have_1_minute_to_hit
FRE	SetParameter	TEXT		vous_avez_une_minute_pour 
	GER SetParameter	Text	Du_hast_1_Minute_um
	SPA SetParameter	Text	¡Dispones_de_un_minuto_para_desactivar
	ITA SetParameter	TEXT	Hai_1_minuto_per_colpire
	POL SetParameter	Text	Masz_1_minutê,_aby_trafiæ


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		20_warheads!
FRE	SetParameter	TEXT		désamorcer_20_ogives!
	GER SetParameter	Text	20_Sprengköpfe_zu_treffen!
	SPA SetParameter	Text	20_cabezas_explosivas!
	ITA SetParameter	TEXt	20_testate!
	POL SetParameter	Text	20_g³owic


	
	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	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
	GER SetParameter	Text	Zum_Starten_Feuer_drücken
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
	POL SetParameter	Text	Naciœnij_"Strza³"


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

	SPA SetParameter	Text	Pulsa_el_disparo_para_empezar

	SendMessage 	CREATETEXT

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


	OnMessage FIREPRESSED
	Do
SendMessage	MUSIC_GROOVE_MED_LOW
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT	

		SetParameter	INTERVAL	260
		SendMessage	SetLandSpeed
		SendMessage	ENDBRIEFING

		SendMessage FIRINGON
		GotoLoop MAIN
		
	EndResponse


EndLoop


Loop MAIN
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	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	-170.0	195.0	0.0	0.0
SPA 	SetParameter	Position	-170.0	195.0	0.0	0.0
	GER SetParameter	Scale1		0.7	0.7	0.7	0.0
	GER SetParameter	Scale2		0.7	0.7	0.7	0.0
	GER SetParameter	Scale3		0.7	0.7	0.7	0.0
	GER SetParameter	Scale4		0.7	0.7	0.7	0.0
	GER SetParameter	Scale5		0.7	0.7	0.7	0.0

	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

	SetParameter	Text		Warheads
FRE	SetParameter	TEXT		Ogives
	GER SetParameter	Text	Sprengköpfe
	SPA SetParameter	Text	Cabezas_explosivas
	ITA SetParameter	TEXT	Testate
	POL SetParameter	Text	G³owice



	SendMessage	CREATETEXT
	GER SetParameter	Scale1		1.0	1.0	1.0	0.0
	GER SetParameter	Scale2		1.0	1.0	1.0	0.0
	GER SetParameter	Scale3		1.0	1.0	1.0	0.0
	GER SetParameter	Scale4		1.0	1.0	1.0	0.0
	GER SetParameter	Scale5		1.0	1.0	1.0	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	Position	0.0	195.0	0.0	0.0
	ConvertToText	S
	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 TIMER3
	Do
		
		ADD 1 To T
		Add 2 To H

		SetParameter 	POSITION	0.0	H	0.0	0.0
		SendMessage	ChangeWaterHeight

	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.2	1.2	1.2	1.2
	SetParameter	Scale2		1.2	1.2	1.2	1.2
	SetParameter	Scale3		1.2	1.2	1.2	1.2
	SetParameter	Scale4		1.2	1.2	1.2	1.2
	SetParameter	Scale5		1.2	1.2	1.2	1.2
	SetParameter	FRAME		3
	SetParameter	Lifetime	0.0	0.0	1.0	0.0
	SetParameter	Position	149.0	195.0	0.0	0.0
	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	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		1.0	1.0	1.0	1.0

		If U IsGreaterThan 60
		Then
			Subtract 60 from X
			Add 1 to I
		EndIf

		Subtract 1 from U
		/SetParameter	Lifetime	0.0	0.0	1.0	0.0/
		SetParameter	Position	230.0	195.0	0.0	0.0
	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	225.0	195.0	0.0	0.0
			SendMessage	CREATETEXT
			SetParameter	Position	245.0	195.0	0.0	0.0
		EndIf

		ConvertToText   U
		SendMessage	CREATETEXT

		ConvertToText	I
		SetParameter	Position	190.0	195.0	0.0	0.0
		SendMessage	CREATETEXT

		If U IsEqualTo 0
		Then
				Subtract 1 from I
				Set U to 60
		EndIf

		If I IsLessThan 0
		Then
			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT		

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



SendMessage	CREATETEXT
			SendMessage FIRINGOFF
			SendMessage LOSECONDITION

			GotoLoop WIN
		EndIf

		SetParameter	Colour1		1.0	1.0	1.0	1.0
		SetParameter	Colour2		0.0	1.0	0.0	1.0
		SetParameter	Colour3		0.0	1.0	0.0	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	Lifetime	0.0	0.0	1.0	0.0

		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 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		Désamorcée
		GER SetParameter	Text	Entschärft
		SPA SetParameter	Text	Desactivada
		ITA SetParameter	TEXT	Disinnescata
	POL SetParameter	Text	Rozbrojono



		SendMessage	CREATETEXT

		SET B To 0
		ADD 1 To S	

		
		
		
		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	¡MÁS_RÁPIDO!
			ITA SetParameter	TEXT	PIÙ_VELOCE!
	POL SetParameter	Text	Szybciej



			SendMessage	CREATETEXT

			SendMessage	MUSIC_GROOVE_MED

		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	¡MÁS_RÁPIDO!
			ITA SetParameter	TEXT	PIÙ_VELOCE!
	POL SetParameter	Text	Szybciej
			SendMessage	CREATETEXT
	
			SendMessage	MUSIC_GROOVE_HIGH

		EndIf

		
		If S BECOMESGREATERTHANOREQUALTO 10
		Then

			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	Position	0.0	125.0	0.0	0.0
			SetParameter	Text		Halfway!
FRE			SetParameter	TEXT		A_moitié_fait!
			GER SetParameter	Text	Die_Hälfte!
			SPA SetParameter	Text	¡Ya_queda_menos!
			ITA SetParameter	TEXT	Sei_a_metà_strada!
			POL SetParameter	Text	Po³owa_drogi


			SendMessage	CREATETEXT	
				
		EndIf


		If S BECOMESGREATERTHANOREQUALTO 19
		Then

			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	Position	0.0	125.0	0.0	0.0
			SetParameter	Text		One_More!
FRE			SetParameter	TEXT		Une_de_plus!
			GER SetParameter	Text	Einen_noch!
			SPA SetParameter	Text	¡Una_más!
			ITA SetParameter	TEXT	Ancora_una!
			POL SetParameter	Text	Jeszcze_jedna



			SendMessage	CREATETEXT	
				
		EndIf


		If S BECOMESGREATERTHANOREQUALTO 20
		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	RÉUSSI!
			GER SetParameter	Text	GESCHAFFT!
			SPA SetParameter	Text	¡LO_CONSEGUISTE!
			ITA SetParameter	TEXT	HAI_VINTO!
			POL SetParameter	Text	Sukces



			SendMessage	CREATETEXT
			

			SendMessage FIRINGOFF
			SetParameter HIDDEN_ID 2
			SendMessage UNLOCKGAMEMODE

			SendMessage WINCONDITION	

	
			GotoLoop WIN	
		EndIf
		
		Set R To 0
	
	Endif

	

	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
		
	
EndLoop



Loop WIN
Do

	
	
EndLoop




EndFile
