GameMode	pdmark

	LandLinesCounter		H
	WaterHeightCounter		I
	RedBlocksOnScreenCounter	R
	PurpleBlocksOnScreenCounter	P
	WeaponFiredCounter		W
	LIVESREMAINING02COUNTER		M


Program0123


TEXTBUFFER	LEVS

	pdmark.wbl

ENDBUFFER



Loop INIT
Do

	SendMessage	DEACTIVATESCORE
	

	SetParameter	TEXT	pdmark.wbw
	SendMessage	LOADWEAPONLIST

	SET P TO 1000
	SET R TO 0
	
	SET J TO 1	
	SET U TO 1
	SET V TO 1
	SET T TO 0
	SET X TO 0
	SET W TO 0
	SET H To 0
	Set M To 0	


	SetParameter	NUMLINES	14
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP8
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                100        	
        SendMessage     LOADLEVEL
		
	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	SendMessage FIRINGOFF
	SendMessage STARTBRIEFING

	SendMessage MUSIC_GROOVE_LOW

	GotoLoop MAIN

EndLoop

/ ************ The Briefing for the first screen ********** /

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		Marksman_Part_1_of_3
FRE	SetParameter	TEXT		Tireur_d'élite_1_sur_3
ITA	SetParameter	TEXT		Tiratore_scelto_1_di_3
SPA	SetParameter	TEXT		El_Tirador_Parte_1_de_3
GER	SetParameter	TEXT		Scharfschütze_Teil_1_von_3
POL	SetParameter	TEXT		Snajper_część_1_z_3



	SendMessage 	CREATETEXT

	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SetParameter	Scale5		0.8	0.8	0.8	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	115.0	0.0	0.0
	SetParameter	Text		Destroy_the_Purples.
FRE	SetParameter	TEXT		Détruisez_les_violets.
ITA	SetParameter	TEXT		Distruggi_i_viola.
SPA	SetParameter	TEXT		Destruye_los_bloques_morados.
GER	SetParameter	TEXT		Zerstöre_die_lilafarbenen_Steine.
POL	SetParameter	TEXT		Zniszcz_fioletowe_cegły.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		The_Par_for_this_course_is
FRE	SetParameter	TEXT		Le_par_pour_cette_mission
ITA	SetParameter	TEXT		La_media_per_questo_percorso
SPA	SetParameter	TEXT		En_esta_prueba_el_par_se_sitúa
GER	SetParameter	TEXT		Das_Par_für_diesen_Kurs_liegt_bei
POL	SetParameter	TEXT		Magazynek_na_tą_misję_zawiera


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		6_Shots.
FRE	SetParameter	TEXT		est_de_6_tirs.
ITA	SetParameter	TEXT		č_di_6_colpi.
SPA	SetParameter	TEXT		en_seis_disparos.
GER	SetParameter	TEXT		6_Schuss.
POL	SetParameter	TEXT		6_naboi.



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		You_have_8_shots_available
FRE	SetParameter	TEXT		Vous_avez_droit_ŕ_8_tirs
ITA	SetParameter	TEXT		Tu_ne_hai_a_disposizione_8,
SPA	SetParameter	TEXT		Sólo_dispones_de_ocho_disparos.
GER	SetParameter	TEXT		Du_hast_insgesamt_8_Schüsse,
POL	SetParameter	TEXT		Masz_tylko_8_naboi

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Text		So_take_your_time
FRE	SetParameter	TEXT		Prenez_votre_temps
ITA	SetParameter	TEXT		quindi_mantieni_la_calma
SPA	SetParameter	TEXT		Así_que_tómate_tu_tiempo
GER	SetParameter	TEXT		also_nimm_dir_Zeit_und_sieh_zu,
POL	SetParameter	TEXT		Nie_śpiesz_się_więc_i_postaraj_się



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	-60.0	0.0	0.0
	SetParameter	Text		and_make_each_shot_count.
FRE	SetParameter	TEXT		et_visez_bien_ŕ_chaque_fois.
ITA	SetParameter	TEXT		e_fai_fruttare_ogni_colpo.
SPA	SetParameter	TEXT		y_procura_acertar_con_cada_disparo.
GER	SetParameter	TEXT		dass_jeder_Schuss_trifft.
POL	SetParameter	TEXT		aby_każdy_strzał_był_celny.



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



	OnMessage FIREPRESSED
	Do
		SendMessage FIRINGON
		SendMessage ENDBRIEFING
		GotoLoop SCREEN1
		
	EndResponse
		
	
			
	
EndLoop


/ *******Counts the shots and monitors events on the first screen****** /

Loop SCREEN1
Do
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT	

	If P IsGreaterThan J
	Then

		SetParameter	Lifetime	0.2	0.6	0.5	1.0

		If W BecomesEqualTo 1
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7

			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		7_shots_left
FRE			SetParameter	TEXT		7_tirs_restants
ITA			SetParameter	TEXT		Ti_restano_7_colpi
SPA			SetParameter	TEXT		Quedan_7_disparos
GER			SetParameter	TEXT		7_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_7_strzałów



			SendMessage	CREATETEXT

		EndIf

		If W BecomesEqualTo 2
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		6_shots_left
FRE			SetParameter	TEXT		6_tirs_restants
ITA			SetParameter	TEXT		Ti_restano_6_colpi
SPA			SetParameter	TEXT		Quedan_6_disparos
GER	SetParameter	TEXT		6_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_6_strzałów
SendMessage	CREATETEXT
		EndIf

		If W BecomesEqualTo 3
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		5_shots_left
FRE			SetParameter	TEXT		5_tirs_restants
ITA			SetParameter	TEXT		Ti_restano_5_colpi
SPA			SetParameter	TEXT		Quedan_5_disparos
POL			SetParameter	TEXT		Pozostało_5_strzałów
GER	SetParameter	TEXT		5_Schüsse_übrig
SendMessage	CREATETEXT
		EndIf

		If W BecomesEqualTo 4
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		4_shots_left
FRE			SetParameter	TEXT		4_tirs_restants
ITA			SetParameter	TEXT		Ti_restano_4_colpi
SPA			SetParameter	TEXT		Quedan_4_disparos
POL			SetParameter	TEXT		Pozostało_4_strzałów
GER	SetParameter	TEXT		4_Schüsse_übrig
			SendMessage	CREATETEXT

			SendMessage MUSIC_GROOVE_MED_LOW

		EndIf

		If W BecomesEqualTo 5
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		3_shots_left
FRE			SetParameter	TEXT		3_tirs_restants
ITA			SetParameter	TEXT		Ti_restano_3_colpi
SPA			SetParameter	TEXT		Quedan_3_disparos
POL			SetParameter	TEXT		Pozostało_3_strzałów
GER	SetParameter	TEXT		3_Schüsse_übrig
SendMessage	CREATETEXT

			SendMessage MUSIC_GROOVE_MED

		EndIf

		If W BecomesEqualTo 6
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		2_shots_left!
FRE			SetParameter	TEXT		2_tirs_restants
ITA			SetParameter	TEXT		Ti_restano_2_colpi
SPA			SetParameter	TEXT		Quedan_2_disparos
POL			SetParameter	TEXT		Pozostało_2_strzałów
GER	SetParameter	TEXT		2_Schüsse_übrig
SendMessage	CREATETEXT

			SendMessage MUSIC_GROOVE_MED_HI

		EndIf
	
		If W BecomesEqualTo 7
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		Last_shot!
FRE			SetParameter	TEXT		Dernier_tir!
ITA			SetParameter	TEXT		Ultimo_colpo!
SPA			SetParameter	TEXT		ˇÚltimo_disparo!
GER	SetParameter	TEXT		Letzter_Schuss!
POL			SetParameter	TEXT		Ostatni_strzał



			SendMessage	CREATETEXT

			SendMessage MUSIC_GROOVE_HIGH

		EndIf
	
		If W BecomesEqualTo 8
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		No_more_shots_left!
FRE			SetParameter	TEXT		Plus_de_tirs_disponibles!
ITA			SetParameter	TEXT		Colpi_terminati!
SPA			SetParameter	TEXT		ˇYa_no_te_queda_munición!
GER	SetParameter	TEXT		Keine_Schüsse_übrig!
POL			SetParameter	TEXT		Koniec_amunicji!



			SendMessage	CREATETEXT
			
			SET T TO 0	
			
			SendMessage FIRINGOFF
			GotoLoop CHECK
			
		EndIf
	
	EndIf


	If P BecomesLessThan J
	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	POSITION	0.0	0.0	0.0	0.0
		SetParameter	Lifetime	0.1	0.1	2.5	2.5

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

		If W IsEqualTo 6
		Then
			SetParameter	Text		Nice_one_and_on_par_too!
FRE			SetParameter	TEXT		Joli_tir_et_de_plus_dans_le_par!
ITA	SetParameter			TEXT		Ben_fatto_e_nella_media!
GER	SetParameter	TEXT		Nett,_du_hast_ein_Par!
POL			SetParameter	TEXT		Poradnik_2:_Typy_cegieł



SPA			SetParameter	TEXT		Muy_buen_disparo,_y_bajo_par,_chico.

			SendMessage	CREATETEXT
		EndIf

		If W IsEqualTo 7
		Then
			SetParameter	Text		Not_Bad_you_got_a_Bogie!
FRE			SetParameter	TEXT		Pas_mal,_vous_avez_réalisé_un_bogey!
ITA			SetParameter	TEXT		Non_male..._Hai_totalizzato_un_Bogie!
GER			SetParameter	TEXT		Nicht_schlecht,_du_hast_einen_Bogey!
SPA			SetParameter	TEXT		No_está_mal,_has_hecho_un_Bogey.
POL			SetParameter	TEXT		Nieźle,_masz_Boogiego!

			SendMessage	CREATETEXT
		EndIf
		
		If W IsEqualTo 8
		Then
			SetParameter	Text		Alrighty_thats_a_Double_Bogie!
FRE			SetParameter	TEXT		D'accord,_c'est_bien_un_double_bogey!
ITA			SetParameter	TEXT		Questo_č_un_Doppio_Bogie!
GER			SetParameter	TEXT		OK,_das_war_ein_Doppel_Bogey!
SPA			SetParameter	TEXT		Bueno,_has_hecho_un_doble_Bogey.
POL			SetParameter	TEXT		W_porządku,_podwójny_Boogie!


			SendMessage	CREATETEXT
		EndIf

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	12.0	93.0	0.0	0.0
		SendMessage	DetonateBlock
		

		SET T TO 0
		SET W TO 0
		SET H TO 0

		SendMessage FIRINGOFF
		SendMessage CLEARPROJECTILES
		SendMessage STARTBRIEFING

		SetParameter	BLOCKCOLOUR	ALLCOLOURS
		SendMessage 	CLEARBLOCKS


		SendMessage MUSIC_GROOVE_LOW

		Set A TO 0

		GotoLoop PAUSE
		
	EndIf		
	
	GoSubLoop LIVES
		
EndLoop




Loop BRIEFING2
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		Marksman_Part_2_of_3
FRE	SetParameter	TEXT		Tireur_d'élite_2_sur_3
ITA	SetParameter	TEXT		Tiratore_scelto_2_di_3
SPA	SetParameter	TEXT		El_Tirador_Parte_2_de_3
GER	SetParameter	TEXT		Scharfschütze_Teil_2_von_3
POL	SetParameter	TEXT		Snajper_część_2_z_3
	

	SendMessage 	CREATETEXT

	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SetParameter	Scale5		0.8	0.8	0.8	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	115.0	0.0	0.0
	SetParameter	Text		Destroy_the_Purples.
FRE	SetParameter	TEXT		Détruisez_les_violets.
ITA	SetParameter	TEXT		Distruggi_i_viola.
SPA	SetParameter	TEXT		Destruye_los_bloques_morados.
GER	SetParameter	TEXT	Zerstöre_die_lilafarbenen_Steine.
POL	SetParameter	TEXT		Zniszcz_fioletowe_cegły.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		The_Par_for_this_course_is
FRE	SetParameter	TEXT		Le_par_pour_cette_mission
ITA	SetParameter	TEXT		La_media_per_questo_percorso
SPA	SetParameter	TEXT		En_esta_prueba_el_par_se_sitúa
GER	SetParameter	TEXT	Das_Par_für_diesen_Kurs_liegt_bei
POL	SetParameter	TEXT		Magazynek_na_tą_misję_zawiera



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		5_Shots.
FRE	SetParameter	TEXT		est_de_5_tirs.
ITA	SetParameter	TEXT		č_di_5_colpi.
SPA	SetParameter	TEXT		en_cinco_disparos.
GER	SetParameter	TEXT	5_Schuss
POL	SetParameter	TEXT		5_naboi



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		Place_your_shots_well_and
FRE	SetParameter	TEXT		Visez_bien_et_évitez
ITA	SetParameter	TEXT		Fai_fruttare_i_colpi_ed_evita
SPA	SetParameter	TEXT		Apunta_bien_y_evita_por_todos_los_medios
GER	SetParameter	TEXT	Ziele_gut_und_vermeide
POL	SetParameter	TEXT		Celuj_dokładnie_i_staraj_się



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Text		avoid_Reds_at_all_costs.
FRE	SetParameter	TEXT		ŕ_tout_prix_les_Rouges.
ITA	SetParameter	TEXT		i_rossi_a_tutti_i_costi!
SPA	SetParameter	TEXT		disparar_a_los_bloques_ROJOS.
GER	SetParameter	TEXT	Rot_um_jeden_Preis.
POL	SetParameter	TEXT		unikać_czerwonych.



	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 ENDBRIEFING
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT
		Set T To 0
		Set H To 0
		Set W TO 0
		Set R TO 100
		GotoLoop SCREEN2
		
	EndResponse

EndLoop


/ ***** validates the final shot to see if player is successful **** /	

Loop	CHECK
Do

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage TIMER1
	Do
		Add 1 To T
	EndResponse

	If T BecomesEqualTo 5
	Then
		
		If P IsLessThan J
		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	POSITION	0.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.1	0.1	2.5	2.5

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

			If W IsEqualTo 6
			Then
				SetParameter	Text		Nice_one_and_on_par_too!
FRE				SetParameter	TEXT		Joli_tir_et_de_plus_dans_le_par!
ITA				SetParameter	TEXT		Ben_fatto_e_nella_media!
GER	SetParameter	TEXT	Nett,_du_hast_ein_Par!
POL				SetParameter	TEXT		Nice_one_and_on_par_too!

SPA				SetParameter	TEXT		Muy_buen_disparo,_y_bajo_par,_chico.

				SendMessage	CREATETEXT
			EndIf
	
			If W IsEqualTo 7
			Then
				SetParameter	Text		Not_Bad_you_got_a_Bogie!
FRE				SetParameter	TEXT		Pas_mal,_vous_avez_réalisé_un_bogey!
ITA				SetParameter	TEXT		Non_male..._Hai_totalizzato_un_Bogie!
GER				SetParameter	TEXT		Nicht_schlecht,_du_hast_einen_Bogey!
SPA				SetParameter	TEXT		No_está_mal,_has_hecho_un_Bogey.
POL				SetParameter	TEXT		Not_Bad_you_got_a_Bogie!

				SendMessage	CREATETEXT
			EndIf
		
			If W IsEqualTo 8
			Then
				SetParameter	Text		Alrighty_thats_a_Double_Bogie!
FRE				SetParameter	TEXT		D'accord,_c'est_bien_un_double_bogey!
ITA				SetParameter	TEXT		Questo_č_un_Doppio_Bogie!
GER				SetParameter	TEXT		OK,_das_war_ein_Doppel_Bogey!
SPA				SetParameter	TEXT		Bueno,_has_hecho_un_doble_Bogey.
POL				SetParameter	TEXT		Alrighty_thats_a_Double_Bogie!

				SendMessage	CREATETEXT
			EndIf
		
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	12.0	93.0	0.0	0.0
			SendMessage	DetonateBlock
		

			SET T TO 0
			SET W TO 0
			SET H TO 0
			

			SetParameter	BLOCKCOLOUR	ALLCOLOURS
			SendMessage 	CLEARBLOCKS

			SendMessage	FIRINGOFF
			SendMessage CLEARPROJECTILES
			SendMessage	STARTBRIEFING

			SendMessage MUSIC_GROOVE_LOW

			Set A TO 0

			GotoLoop PAUSE
			
		EndIf
		
		If P BecomesGreaterThan J
		Then	

			SendMessage FIRINGOFF


			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	Klęska
	


			SendMessage	CREATETEXT
		
			SET T TO 0
			GotoLoop FAIL
		EndIf
	EndIf

EndLoop



/ *******  Counts the shots and monitors the events on the second screen ***** /

Loop SCREEN2
Do

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage TIMER1
	Do
		Add 1 TO T
	EndResponse

	
	If T BecomesEqualTO 1
	Then
		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed
				
	EndIf
	
	If H BecomesEqualTo 21
	Then

			SendMessage PAUSELANDLEFT
			SendMessage PAUSELANDRIGHT

			SendMessage FIRINGON

			SET R TO 5
	
	EndIf

	
	

	If T IsGreaterThanOrEqualTo 2
	Then
		
		If P IsGreaterThan J
		Then

			SetParameter	Lifetime	0.2	0.6	0.5	1.0

			If W BecomesEqualTo 1
			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	Scale1		0.1	0.1	0.1	0.0
				SetParameter	Scale2		0.7	0.7	0.7	0.7

				SetParameter	POSITION	0.0	200.0	0.0	0.0
				SetParameter	Text		6_shots_left
FRE				SetParameter	TEXT		6_tirs_restants
ITA				SetParameter	TEXT		Ti_restano_6_colpi
SPA				SetParameter	TEXT		Quedan_6_disparos
GER				SetParameter	TEXT		6_Schüsse_übrig
POL				SetParameter	TEXT		Pozostało_6_strzałów

				SendMessage	CREATETEXT

			EndIf

			If W BecomesEqualTo 2
			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	Scale1		0.1	0.1	0.1	0.0
				SetParameter	Scale2		0.7	0.7	0.7	0.7
				SetParameter	POSITION	0.0	200.0	0.0	0.0
				SetParameter	Text		5_shots_left
FRE				SetParameter	TEXT		5_tirs_restants
ITA	SetParameter				TEXT		Ti_restano_5_colpi
SPA				SetParameter	TEXT		Quedan_5_disparos
GER	SetParameter	TEXT	5_Schüsse_übrig
POL				SetParameter	TEXT		Pozostało_5_strzałów

				SendMessage	CREATETEXT

			EndIf

			If W BecomesEqualTo 3
			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	Scale1		0.1	0.1	0.1	0.0
				SetParameter	Scale2		0.7	0.7	0.7	0.7
				SetParameter	POSITION	0.0	200.0	0.0	0.0
				SetParameter	Text		4_shots_left
FRE				SetParameter	TEXT		4_tirs_restants
ITA	SetParameter				TEXT		Ti_restano_4_colpi
SPA				SetParameter	TEXT		Quedan_4_disparos
GER	SetParameter	TEXT	4_Schüsse_übrig
POL				SetParameter	TEXT		Pozostało_4_strzałów

				SendMessage	CREATETEXT

				SendMessage MUSIC_GROOVE_MED_LOW

			EndIf

			If W BecomesEqualTo 4
			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	Scale1		0.1	0.1	0.1	0.0
				SetParameter	Scale2		0.7	0.7	0.7	0.7
				SetParameter	POSITION	0.0	200.0	0.0	0.0
				SetParameter	Text		3_shots_left
FRE				SetParameter	TEXT		3_tirs_restants
ITA				SetParameter	TEXT		Ti_restano_3_colpi
SPA				SetParameter	TEXT		Quedan_3_disparos
GER				SetParameter	TEXT		3_Schüsse_übrig
POL				SetParameter	TEXT		Pozostało_3_strzałów

				SendMessage	CREATETEXT

				SendMessage MUSIC_GROOVE_MED

			EndIf

			If W BecomesEqualTo 5
			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	Scale1		0.1	0.1	0.1	0.0
				SetParameter	Scale2		0.7	0.7	0.7	0.7
				SetParameter	POSITION	0.0	200.0	0.0	0.0
				SetParameter	Text		2_shots_left
FRE				SetParameter	TEXT		2_tirs_restants
ITA				SetParameter	TEXT		Ti_restano_2_colpi
SPA				SetParameter	TEXT		Quedan_2_disparos
GER				SetParameter	TEXT		2_Schüsse_übrig
POL				SetParameter	TEXT		Pozostało_2_strzałów

				SendMessage	CREATETEXT

				SendMessage MUSIC_GROOVE_MED_HI

			EndIf

			If W BecomesEqualTo 6
			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	Scale1		0.1	0.1	0.1	0.0
				SetParameter	Scale2		0.7	0.7	0.7	0.7
				SetParameter	POSITION	0.0	200.0	0.0	0.0
				SetParameter	Text		Last_shot!
FRE				SetParameter	TEXT		Dernier_tir!
ITA				SetParameter	TEXT		Ultimo_colpo!
SPA				SetParameter	TEXT		ˇÚltimo_disparo!
GER				SetParameter	TEXT		Letzter_Schuss!
POL				SetParameter	TEXT		Ostatni_strzał

				SendMessage	CREATETEXT

				SendMessage MUSIC_GROOVE_HIGH

			EndIf
	
			If W BecomesEqualTo 7
			Then

				SendMessage FIRINGOFF
			
				SET T TO 0	
				GotoLoop CHECK2  
			
			EndIf
	
		EndIf

	
		If P BecomesLessThan J
		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	POSITION	0.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.1	0.1	2.5	2.5

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

			If W IsEqualTo 5
			Then
				SetParameter	Text		Nice_one_and_on_par_too!
FRE				SetParameter	TEXT		Joli_tir_et_de_plus_dans_le_par!
ITA				SetParameter	TEXT		Ben_fatto_e_nella_media!
GER				SetParameter	TEXT		Nett,_du_hast_ein_Par!
POL				SetParameter	TEXT		Nice_one_and_on_par_too!


SPA				SetParameter	TEXT		Muy_buen_disparo,_y_bajo_par,_chico.

				SendMessage	CREATETEXT
			EndIf

			If W IsEqualTo 6
			Then
				SetParameter	Text		Not_Bad_you_got_a_Bogie!
FRE				SetParameter	TEXT		Pas_mal,_vous_avez_réalisé_un_bogey!
ITA				SetParameter	TEXT		Non_male..._Hai_totalizzato_un_Bogie!
GER				SetParameter	TEXT		Nicht_schlecht,_du_hast_einen_Bogey!
SPA				SetParameter	TEXT		No_está_mal,_has_hecho_un_Bogey.
POL				SetParameter	TEXT		Not_Bad_you_got_a_Bogie!


				SendMessage	CREATETEXT
			EndIf
		
			If W IsEqualTo 7
			Then
				SetParameter	Text		Alrighty_thats_a_Double_Bogie!
FRE				SetParameter	TEXT		D'accord,_c'est_bien_un_double_bogey!
ITA				SetParameter	TEXT		Questo_č_un_Doppio_Bogie!
GER				SetParameter	TEXT		OK,_das_war_ein_Doppel_Bogey!
SPA				SetParameter	TEXT		Bueno,_has_hecho_un_doble_Bogey.
POL				SetParameter	TEXT		Alrighty_thats_a_Double_Bogie!

				SendMessage	CREATETEXT
			EndIf

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	5.0	74.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	19.0	68.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	7.0	77.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	5.0	80.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	13.0	74.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	10.0	77.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	18.0	71.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	16.0	74.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	19.0	68.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	4.0	72.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	6.0	79.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	12.0	76.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	17.0	73.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	20.0	66.0	0.0	0.0
			SendMessage	DetonateBlock
		
			SET T TO 0
			SET W TO 0
			SET H TO 0


			SendMessage	FIRINGOFF
			SendMessage CLEARPROJECTILES
			SendMessage STARTBRIEFING

			SendMessage MUSIC_GROOVE_LOW

			SetParameter	BLOCKCOLOUR	ALLCOLOURS
			SendMessage 	CLEARBLOCKS

			Set A TO 0 

			GotoLoop PAUSE2
		EndIf			
		

		If R BecomesLessThan 5
		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		Klęska



			SendMessage	CREATETEXT

			SendMessage	FIRINGOFF

			SET T TO 0
			GotoLoop FAIL

		EndIf

		
	EndIf
	
	GoSubLoop LIVES

EndLoop





/ ***** validates the final shot to see if player is successful **** /


Loop	CHECK2
Do

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
	
	OnMessage TIMER1
	Do
		Add 1 To T
	EndResponse

	If T IsGreaterThanOrEqualTo 5
	Then
		
		If P IsLessThan J
		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	Lifetime	0.1	0.1	2.5	2.5
			SetParameter	POSITION	0.0	0.0	0.0	0.0

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

			If W IsEqualTo 5
			Then
				SetParameter	Text		Nice_one_and_on_par_too!
FRE				SetParameter	TEXT		Joli_tir_et_de_plus_dans_le_par!
ITA				SetParameter	TEXT		Ben_fatto_e_nella_media!
GER				SetParameter	TEXT		Nett,_du_hast_ein_Par!
POL				SetParameter	TEXT		Nice_one_and_on_par_too!



SPA				SetParameter	TEXT		Muy_buen_disparo,_y_bajo_par,_chico.

				SendMessage	CREATETEXT
			EndIf
	
			If W IsEqualTo 6
			Then
				SetParameter	Text		Not_Bad_you_got_a_Bogie!
FRE				SetParameter	TEXT		Pas_mal,_vous_avez_réalisé_un_bogey!
ITA				SetParameter	TEXT		Non_male..._Hai_totalizzato_un_Bogie!
GER				SetParameter	TEXT		Nicht_schlecht,_du_hast_einen_Bogey!

SPA				SetParameter	TEXT		No_está_mal,_has_hecho_un_Bogey.
POL				SetParameter	TEXT		Not_Bad_you_got_a_Bogie!

				SendMessage	CREATETEXT
			EndIf
		
			If W IsEqualTo 7
			Then
				SetParameter	Text		Alrighty_thats_a_Double_Bogie!
FRE				SetParameter	TEXT		D'accord,_c'est_bien_un_double_bogey!
ITA				SetParameter	TEXT		Questo_č_un_Doppio_Bogie!
GER				SetParameter	TEXT		OK,_das_war_ein_Doppel_Bogey!

SPA				SetParameter	TEXT		Bueno,_has_hecho_un_doble_Bogey.
POL				SetParameter	TEXT		Alrighty_thats_a_Double_Bogie!

				SendMessage	CREATETEXT
			EndIf

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	5.0	74.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	19.0	68.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	7.0	77.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	5.0	80.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	13.0	74.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	10.0	77.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	18.0	71.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	16.0	74.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	19.0	68.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	4.0	72.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	6.0	79.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	12.0	76.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	17.0	73.0	0.0	0.0
			SendMessage	DetonateBlock
			SetParameter	POSITION	20.0	66.0	0.0	0.0
			SendMessage	DetonateBlock

			SET T TO 0
			SET W TO 0
			SET H TO 0




			SendMessage	FIRINGOFF
			SendMessage CLEARPROJECTILES
			SendMessage STARTBRIEFING

			SetParameter	BLOCKCOLOUR	ALLCOLOURS
			SendMessage 	CLEARBLOCKS

			SendMessage MUSIC_GROOVE_LOW

			Set A To 0

			GotoLoop PAUSE2
		EndIf
		
		If P BecomesGreaterThan J
		Then	

			SendMessage FIRINGOFF



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	Klęska
	
	

SendMessage	CREATETEXT

		
			SET T TO 0
			GotoLoop FAIL
		EndIf


	
		IF R BecomesLessThan 5
		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	Klęska

SendMessage	CREATETEXT

			SendMessage FIRINGOFF

			SET T TO 0
			GotoLoop FAIL
		EndIf
	EndIf

EndLoop




	

Loop BRIEFING3
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		Marksman_Part_3_of_3
FRE	SetParameter	TEXT		Tireur_d'élite_3_sur_3
ITA	SetParameter	TEXT		Tiratore_scelto_3_di_3
SPA	SetParameter	TEXT		El_Tirador_Parte_3_de_3
GER	SetParameter	TEXT		Scharfschütze_Teil_3_von_3
POL	SetParameter	TEXT		Snajper_część_3_z_3





	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

SPA	SetParameter	Scale1		0.65	0.65	0.65	0.0
SPA	SetParameter	Scale2		0.65	0.65	0.65	0.0
SPA	SetParameter	Scale3		0.65	0.65	0.65	0.0
SPA	SetParameter	Scale4		0.65	0.65	0.65	0.0
SPA	SetParameter	Scale5		0.65	0.65	0.65	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		As_before_destroy_the_Purples
FRE	SetParameter	TEXT		Comme_précédemment,_détruisez_les_Violets
ITA	SetParameter	TEXT		Come_prima,_distruggi_i_viola
SPA	SetParameter	TEXT		Aquí_también_tienes_que_destruir_los_bloques_morados
GER	SetParameter	TEXT	Zerstöre_die_lilafarbenen_Steine
POL	SetParameter	TEXT		Jak_poprzednio_zniszcz_purpurowe_cegły





	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		and_avoid_the_Reds.
FRE	SetParameter	TEXT		et_évitez_les_Rouges.
ITA	SetParameter	TEXT		ed_evita_i_rossi.
SPA	SetParameter	TEXT		y_evitar_disparar_a_los_bloques_rojos.
GER	SetParameter	TEXT	und_vermeide_die_Roten.
POL	SetParameter	TEXT		i_omijaj_czerwone.





	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		The_par_for_this_final_course
FRE	SetParameter	TEXT		Le_par_pour_ce_dernier_parcours
ITA	SetParameter	TEXT		La_media_per_il_percorso_finale
SPA	SetParameter	TEXT		En_esta_prueba_final_el_par_se_sitúa
GER	SetParameter	TEXT	Das_Par_für_diesen_letzten_Kurs_liegt
POL	SetParameter	TEXT		Magazynek_na_tą_misję_zawiera




	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		is_8_shots_you_have_just_10!
FRE	SetParameter	TEXT		est_de_8_tirs_et_vous_n'avez_droit_qu'ŕ_10.
ITA	SetParameter	TEXT		č_di_8_colpi:_tu_ne_hai_10.
SPA	SetParameter	TEXT		en_ocho_disparos_y_sólo_dispones_de_diez.
GER	SetParameter	TEXT	bei_8_Schüssen_und_du_hast_gerade_10!
POL	SetParameter	TEXT		10_pocisków




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	Text		Use_the_bounce_blocks_to_reach
FRE	SetParameter	TEXT		Utilisez_les_blocs_avec_rebond_pour_atteindre
ITA	SetParameter	TEXT		Sfrutta_i_blocchi_respingenti_per_raggiungere
SPA	SetParameter	TEXT		ˇUtiliza_los_bloques_que_rebotan_para_alcanzar
GER	SetParameter	TEXT		Benutze_die_Flummisteine_um_scheinbar_
POL	SetParameter	TEXT		Skorzystaj_z_sprężystych_cegieł,_aby_dotrzeć


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	-60.0	0.0	0.0
	SetParameter	Text		Seemingly_impossible_places!
FRE	SetParameter	TEXT		des_endroits_a_priori_inatteignables!
ITA	SetParameter	TEXT		i_punti_apparentemente_inaccessibili!
SPA	SetParameter	TEXT		lugares_a_los_que_parece_imposible_acceder!
GER	SetParameter	TEXT		unzugängliche_Stelle_zu_erreichen!
POL	SetParameter	TEXT		w,_z_pozoru,_niedostępne_miejsca.





	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 ENDBRIEFING
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set T To 0
		Set H To 0
		Set W To 0
		Set R TO 100
		GotoLoop SCREEN3
		
	EndResponse

EndLoop


Loop SCREEN3
Do

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage TIMER1
	Do
		ADD 1 TO T
	EndResponse
		
	If T BecomesEqualTO 1
	Then
		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed
				
	EndIf
	
	If H BecomesEqualTo 19
	Then

		SendMessage FIRINGON

		SendMessage PAUSELANDLEFT
		SendMessage PAUSELANDRIGHT
		SET R To 17			
	EndIf


	If T IsGreaterThanOrEqualTo 2
	Then	


		SetParameter	Lifetime	0.2	0.6	0.5	1.0

		If W BecomesEqualTo 1
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7

			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		9_shots_left
FRE			SetParameter	TEXT		9_tirs_restants
ITA			SetParameter	TEXT		Ti_restano_9_colpi
SPA			SetParameter	TEXT		Quedan_9_disparos
GER			SetParameter	TEXT		9_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_9_strzałów



			SendMessage	CREATETEXT

		EndIf

		If W BecomesEqualTo 2
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		8_shots_left
FRE			SetParameter	TEXT		8_tirs_restants
ITA	SetParameter			TEXT		Ti_restano_8_colpi
SPA			SetParameter	TEXT		Quedan_8_disparos
GER	SetParameter	TEXT				8_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_8_strzałów
			SendMessage	CREATETEXT

		EndIf

		If W BecomesEqualTo 3
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		7_shots_left
FRE			SetParameter	TEXT		7_tirs_restants
ITA	SetParameter			TEXT		Ti_restano_7_colpi
SPA			SetParameter	TEXT		Quedan_7_disparos
GER	SetParameter	TEXT				7_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_7_strzałów
			SendMessage	CREATETEXT

		EndIf

		If W BecomesEqualTo 4
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		6_shots_left
FRE			SetParameter	TEXT		6_tirs_restants
ITA	SetParameter			TEXT		Ti_restano_6_colpi
SPA			SetParameter	TEXT		Quedan_6_disparos
GER	SetParameter	TEXT				6_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_6_strzałów
			SendMessage	CREATETEXT

		EndIf

		If W BecomesEqualTo 5
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		5_shots_left
FRE			SetParameter	TEXT		5_tirs_restants
ITA	SetParameter			TEXT		Ti_restano_5_colpi
SPA			SetParameter	TEXT		Quedan_5_disparos
GER	SetParameter	TEXT				5_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_5_strzałów
			SendMessage	CREATETEXT

		EndIf

		If W BecomesEqualTo 6
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		4_shots_left
FRE			SetParameter	TEXT		4_tirs_restants
ITA	SetParameter			TEXT		Ti_restano_4_colpi
SPA			SetParameter	TEXT		Quedan_4_disparos
GER	SetParameter	TEXT				4_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_4_strzałów
			SendMessage	CREATETEXT

			SendMessage MUSIC_GROOVE_MED_LOW

		EndIf
	
		If W BecomesEqualTo 7
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		3_shots_left
FRE			SetParameter	TEXT		3_tirs_restants
ITA	SetParameter			TEXT		Ti_restano_3_colpi
SPA			SetParameter	TEXT		Quedan_3_disparos
GER	SetParameter	TEXT				3_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_3_strzałów
			SendMessage	CREATETEXT

			SendMessage MUSIC_GROOVE_MED

		EndIf


		If W BecomesEqualTo 8
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		2_shots_left
FRE			SetParameter	TEXT		2_tirs_restants
ITA	SetParameter			TEXT		Ti_restano_2_colpi
SPA			SetParameter	TEXT		Quedan_2_disparos
GER	SetParameter	TEXT				2_Schüsse_übrig
POL			SetParameter	TEXT		Pozostało_2_strzałów
			SendMessage	CREATETEXT

			SendMessage MUSIC_GROOVE_MED_HI

		EndIf
		
	
		If W BecomesEqualTo 9
		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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		Last_shot!
FRE			SetParameter	TEXT		Dernier_tir!
ITA	SetParameter			TEXT		Ultimo_colpo!
SPA			SetParameter	TEXT		ˇÚltimo_disparo!
GER	SetParameter	TEXT				Letzter_Schuss!
POL			SetParameter	TEXT		Ostatni_strzał



			SendMessage	CREATETEXT

			SendMessage MUSIC_GROOVE_HIGH

		EndIf
		
		If W BecomesEqualTo 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	Scale1		0.1	0.1	0.1	0.0
			SetParameter	Scale2		0.7	0.7	0.7	0.7
			SetParameter	POSITION	0.0	200.0	0.0	0.0
			SetParameter	Text		No_more_shots!
FRE			SetParameter	TEXT		Plus_de_tirs_disponibles!
ITA	SetParameter			TEXT		Colpi_terminati!
SPA			SetParameter	TEXT		ˇYa_no_te_queda_munición!
GER	SetParameter	TEXT				Keine_Schüsse_übrig!
POL			SetParameter	TEXT		Koniec_amunicji!





			SendMessage	CREATETEXT	
	
			SET T TO 0
			
			SendMessage FIRINGOFF
			GotoLoop CHECK3
		EndIf
	
		IF R BecomesLessThan 17
		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	Klęska
	
		

SendMessage	CREATETEXT

			SendMessage FIRINGOFF

			SET T TO 0
			GotoLoop FAIL
		EndIf
	
		If P BecomesLessThan J
		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	POSITION	0.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.1	0.1	2.5	2.5
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
			
			If W IsEqualTo 6
			Then
				SetParameter	Text		WOW_You_got_an_eagle!
FRE				SetParameter	TEXT		Wouah,_vous_avez_un_eagle!
ITA				SetParameter	TEXT		WOW!_Un_Eagle!
SPA 				SetParameter	Text		ˇSí,_has_hecho_un_Eagle!
GER				SetParameter	TEXT		WOW!_Du_hast_einen_Eagle!
POL				SetParameter	TEXT		OO._Trafiłeś_orła!



				SendMessage	CREATETEXT
			EndIf
			
			If W IsEqualTo 7
			Then
				SetParameter	Text		Fantastic_thats_a_birdie!
FRE				SetParameter	TEXT		Fantastique,_ce_birdie!
ITA				SetParameter	TEXT		Fantastico,_un_Birdie!
SPA 				SetParameter	Text		ˇFantástico,_has_conseguido_un_Birdie!
GER				SetParameter	TEXT		Fantastisch,_ein_Birdie!
POL				SetParameter	TEXT		Fantastycznie_A_to_Ci_ptaszek




				SendMessage	CREATETEXT
			EndIf
				
			If W IsEqualTo 8
			Then
				SetParameter	Text		Nice_one_and_on_par_too!
FRE				SetParameter	TEXT		Joli_tir_et_de_plus_dans_le_par!
ITA	SetParameter				TEXT		Ben_fatto_e_nella_media!
SPA 				SetParameter	Text		Muy_buen_disparo,_y_bajo_par,_chico
GER	SetParameter	TEXT	Nett,_du_hast_ein_Par!
POL				SetParameter	TEXT		Nice_one_and_on_par_too!



				SendMessage	CREATETEXT
			EndIf

			If W IsEqualTo 9
			Then
				SetParameter	Text		Not_Bad_you_got_a_Bogie!
FRE				SetParameter	TEXT		Pas_mal,_vous_avez_réalisé_un_bogey!
ITA	SetParameter				TEXT		Non_male..._Hai_totalizzato_un_Bogie!
SPA 				SetParameter	Text		No_está_mal,_has_hecho_un_Bogey.
GER	SetParameter	TEXT	Nicht_schlecht,_du_hast_einen_Bogey!
POL				SetParameter	TEXT		Not_Bad_you_got_a_Bogie!


				SendMessage	CREATETEXT
			EndIf
		
			If W IsEqualTo 10
			Then
				SetParameter	Text		Alrighty_thats_a_Double_Bogie!
FRE				SetParameter	TEXT		D'accord,_c'est_bien_un_double_bogey!
ITA	SetParameter				TEXT		Questo_č_un_Doppio_Bogie!
SPA 				SetParameter	Text		Bueno,_has_hecho_un_doble_Bogey
GER	SetParameter	TEXT	OK,_das_war_ein_Doppel_Bogey!
POL				SetParameter	TEXT		Alrighty_thats_a_Double_Bogie!


				SendMessage	CREATETEXT
			EndIf


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
			
			SET T TO 0

			SendMessage FIRINGOFF


			GotoLoop VICTORY
		EndIf
	
	EndIf

	GoSubLoop LIVES

EndLoop


Loop CHECK3
Do	

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT


	OnMessage TIMER1
	Do
		Add 1 To T
	EndResponse

	If T IsGreaterThanOrEqualTo 5
	Then
		
		If P IsLessThan J
		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	POSITION	0.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.1	0.1	2.5	2.5
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

			If W IsEqualTo 6
			Then
				SetParameter	Text		WOW_You_got_an_eagle!
FRE				SetParameter	TEXT		Wouah,_vous_avez_un_eagle!
ITA	SetParameter				TEXT		WOW!_Un_Eagle!
SPA 				SetParameter	Text		ˇSí,_has_hecho_un_Eagle!
GER	SetParameter	TEXT	WOW!_Du_hast_einen_Eagle!
POL				SetParameter	TEXT		OO._Trafiłeś_orła!


				SendMessage	CREATETEXT
			EndIf
			
			If W IsEqualTo 7
			Then
				SetParameter	Text		Fantastic_thats_a_birdie!
FRE				SetParameter	TEXT		Fantastique,_ce_birdie!
ITA	SetParameter				TEXT		Fantastico,_un_Birdie!
SPA 				SetParameter	Text		ˇFantástico,_has_conseguido_un_Birdie!
GER	SetParameter	TEXT	Fantastisch,_ein_Birdie!
POL				SetParameter	TEXT		Fantastycznie_A_to_Ci_ptaszek


				SendMessage	CREATETEXT
			EndIf			


			If W IsEqualTo 8
			Then
				SetParameter	Text		Nice_one_and_on_par_too!
FRE				SetParameter	TEXT		Joli_tir_et_de_plus_dans_le_par!
ITA	SetParameter				TEXT		Ben_fatto_e_nella_media!
SPA 				SetParameter	Text		Muy_buen_disparo,_y_bajo_par,_chico
GER	SetParameter	TEXT	Nett,_du_hast_ein_Par!
POL				SetParameter	TEXT		Nice_one_and_on_par_too!

				SendMessage	CREATETEXT
			EndIf

			If W IsEqualTo 9
			Then
				SetParameter	Text		Not_Bad_you_got_a_Bogie!
FRE				SetParameter	TEXT		Pas_mal,_vous_avez_réalisé_un_bogey!
ITA	SetParameter				TEXT		Non_male..._Hai_totalizzato_un_Bogie!
SPA 				SetParameter	Text		No_está_mal,_has_hecho_un_Bogey
GER				SetParameter	TEXT		Nicht_schlecht,_du_hast_einen_Bogey!
POL				SetParameter	TEXT		Not_Bad_you_got_a_Bogie!


				SendMessage	CREATETEXT
			EndIf
		
			If W IsEqualTo 10
			Then

				SetParameter	Text		Alrighty_thats_a_Double_Bogie!
FRE				SetParameter	TEXT		D'accord,_c'est_bien_un_double_bogey!
ITA	SetParameter				TEXT		Questo_č_un_Doppio_Bogie!
SPA 				SetParameter	Text		Bueno,_has_hecho_un_doble_Bogey
GER				SetParameter	TEXT		OK,_das_war_ein_Doppel_Bogey!
POL				SetParameter	TEXT		Alrighty_thats_a_Double_Bogie!


				SendMessage	CREATETEXT
			EndIf

			SET T TO 0

			SendMessage FIRINGOFF

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

			GotoLoop VICTORY
		EndIF	
		
		If P BecomesGreaterThan J
		Then	

			SendMessage FIRINGOFF


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	Klęska
	
		
SendMessage	CREATETEXT

			SET T TO 0
			GotoLoop FAIL
		EndIf


	
		IF R BecomesLessThan 17
		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	Klęska

SendMessage	CREATETEXT

			SET T TO 0
			SendMessage FIRINGOFF



			GotoLoop FAIL
		EndIf
	EndIf

EndLoop


Loop VICTORY
Do
	OnMessage TIMER1
	Do
		Add 1 To T
	EndResponse


	If T BecomesEqualTo 5
	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!
ITA	SetParameter	TEXT	HAI_VINTO!
SPA SetParameter	Text	ˇLO_CONSEGUISTE!
GER	SetParameter	TEXT	GESCHAFFT!
POL	SetParameter	TEXT	SUKCES!



SendMessage	CREATETEXT

\		
		SET T TO 0
		GotoLoop WIN
	EndIf	
		

EndLoop

Loop LIVES
Do

	If M 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!


SendMessage	CREATETEXT
		GotoLoop FAIL

	EndIf

EndLoop


	
Loop WIN
Do

	OnMessage TIMER1
	Do
		Add 1 TO T
	EndResponse 
	
	If T BecomesEqualTo 2
	Then
		SendMessage WINCONDITION
	EndIf
	

EndLoop

Loop FAIL
Do

	OnMessage TIMER1
	Do
		Add 1 TO T
	EndResponse 
	
	If T BecomesEqualTo 2
	Then
		SendMessage LOSECONDITION
	EndIf
	

EndLoop


Loop PAUSE
Do



	onMessage TIMER1
	Do

		Add 1 TO A

	EndResponse

	If A BecomesEqualTo 4
	Then

		GotoLoop BRIEFING2 

	EndIf


EndLoop



Loop PAUSE2
Do



	onMessage TIMER1
	Do

		Add 1 TO A

	EndResponse

	If A BecomesEqualTo 4
	Then

		GotoLoop BRIEFING3 

	EndIf


EndLoop

EndFile