GameMode	tut4
GameType	QUEST
	LandLinesCounter		H
	TOTALBLOCKSONSCREENCOUNTER	B
	REDBLOCKSONSCREENCOUNTER	D
	YELLOWBLOCKSONSCREENCOUNTER	F
	DEADBLOCKSONSCREENCOUNTER	E
	RedComboCounter			R
	YellowComboCounter		Y
	PurpleComboCounter		P
	BulletGoneCounter		G
	DestroyOwnTargetCounter		W
	DestroyEnemyTargetCounter	W
Program0123

TEXTBUFFER      LEVS
         tut4.wbl
ENDBUFFER

Loop INIT
Do
	SendMessage	DEACTIVATESCORE

	SetParameter	BACKDROP	BACKDROP9
	SendMessage	SETBACKDROP

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter	INTERVAL	999999
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	TEXT	tut4.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                240
        SendMessage     LOADLEVEL

	SendMessage	QUAKENO

	SendMessage	STARTBRIEFING
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	SendMessage	FIRINGOFF

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	SendMessage	DEACTIVATESCORE

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	0200
	SetParameter	REPEAT		TRUE
	SendMessage	CreateTimer

	SendMessage	MUSIC_GROOVE_LOW



	/Reset the counters!/
	Set H to 0
	Set B to 0
	Set D to 0
	Set F to 0
	Set E to 0
	Set R to 0
	Set Y to 0
	Set P to 0
	Set G to 0
	Set W to 0

	Set C to 1
	/c is the controller for the advance loops - if it is set to 1, it will return to MAIN1 and soforth/
	Set A to 1
	/a is used in the animation loops to determine which animation to play/
	Set T to 0
	/t is used as a toggle in various loops/
	Set K to 0
	/used to pick out the random congratulation text - could be used for other stuff/
	Set J to 0
	/J is used like C but is used to prevent a bug in the clock loop/
	Set M to 0
	/M - see above!/
	Set N to 0
	/N - see above above!/
	Set Q to 0
	/R - see above above above!/
	Set O to 1
	/this is used as a toggle for the score counter in the clock/

	Set U to 59
	Set I to 1
	/U and I are used for the minutes and seconds counter on the clock in the shotgun training/
	Set L to 0
	/L is used to show the score in shotgun training/

	/TIMERS: TIMER1 is used to show text animations TIMER2 is used with no repeat in the advance loops
	TIMER3 is used to display the briefings TIMER4 is used as a two second delay to drop tarjits
	TIMER5 is gonna drive the clock!/
	SendMessage	DEACTIVATESCORE
	GotoLoop CHECK

EndLoop

Loop CHECK
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON
		SendMessage	MUSIC_GROOVE_MED_LOW
		GotoLoop MAIN1
	EndResponse

EndLoop

Loop BRIEF
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN


	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

GER	SetParameter	Scale1		0.1	0.1	0.1	0.0
GER	SetParameter	Scale2		0.5	0.5	0.5	0.0
GER	SetParameter	Scale3		0.5	0.5	0.5	0.0
GER	SetParameter	Scale4		0.5	0.5	0.5	0.0
GER	SetParameter	Scale5		0.5	0.5	0.5	0.0





	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		There_are_five_weapons_in_Worms_Blast_that
POL	SetParameter	TEXT		W_WORMS_BLAST_JEST_DOSTPNYCH_PI_BRONI.
FRE	SetParameter	TEXT		Il_existe_cinq_armes_dans_WormsBlast_avec
ITA	SetParameter	TEXT		Sono_disponibili_cinque_armi_in_WormsBlast;
SPA	SetParameter	TEXT		WormsBlast_incluye_cinco_armas.
GER	SetParameter	TEXT		Es_gibt_fnf_Waffen_in_WormsBlast_mit_denen


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		you_can_fire.__The_most_commonly_used_being
POL	SetParameter	TEXT		NAJBARDZIEJ_POWSZECHNA_JEST_BAZOOKA.
FRE	SetParameter	TEXT		lesquelles_vous_pouvez_tirer._La_plus_utilise
ITA	SetParameter	TEXT		quella_normalmente_utilizzata__il_bazooka!
SPA	SetParameter	TEXT		La_ms_habitual_es_el_bazooka.
GER	SetParameter	TEXT		du_schieen_kannst._Die_meistbenutzte_Waffe


	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		the_bazooka!__The_bazooka_is_fired_by
POL	SetParameter	TEXT		Z_BAZOOKI_STRZELASZ_PRZYTRZYMUJC_KLAWISZ
FRE	SetParameter	TEXT		est_le_bazooka!_Pour_tirer_avec_le_bazooka,
ITA	SetParameter	TEXT		Per_utilizzarlo,_tieni_premuto_il_tasto_di_fuoco
SPA	SetParameter	TEXT		El_bazooka_se_dispara
GER	SetParameter	TEXT		ist_die_Bazooka!_Die_Bazooka_wird_abgefeuert,


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		holding_down_the_fire_button_and_releasing
POL	SetParameter	TEXT		STRZAU_I_ZWALNIAJC_GO._NIM_PJDZIEMY
FRE	SetParameter	TEXT		appuyez_sur_le_bouton_de_tir_puis_relchez-le.
ITA	SetParameter	TEXT		rilasciandolo_al_momento_giusto._
SPA	SetParameter	TEXT		presionando_y_soltando_el_disparo.
GER	SetParameter	TEXT		indem_du_die_Feuertaste_drckst_und_wieder


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		it.__Before_we_continue:_destroy_all_of_the
POL	SetParameter	TEXT		DALEJ,_ZNISZCZ_WSZYSTKIE
FRE	SetParameter	TEXT		Avant_de_continuer,_dtruisez_tous_les_blocs
ITA	SetParameter	TEXT		Prima_di_procedere,_distruggi_tutti_i_blocchi
SPA	SetParameter	TEXT		Antes_de_continuar_destruye_todos_los_bloques
GER	SetParameter	TEXT		loslsst._Bevor_wir_fortfahren,_zerstre


	SendMessage	CreateText
	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		coloured_blocks_on_screen.
POL	SetParameter	TEXT		CEGY_NA_EKRANIE.
FRE	SetParameter	TEXT		colors_prsents_sur_l'cran.
ITA	SetParameter	TEXT		colorati_sullo_schermo.
SPA	SetParameter	TEXT		de_colores_que_aparecen_en_pantalla.
GER	SetParameter	TEXT		alle_farbigen_Steine_auf_dem_Bildschirm.


	SendMessage	CreateText

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

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_begin_tutorial
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_ROZPOCZ_SAMOUCZKA
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer_le_didacticiel!
ITA	SetParameter	TEXT		Premi_fuoco_per_avviare_il_tutorial
SPA	SetParameter	TEXt		Pulsa_el_disparo_para_empezar
GER	SetParameter	TEXT		Feuer_drcken_um_Tutorial_zu_starten
	SendMessage 	CREATETEXT
EndLoop

Loop MAIN1
Do
	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	If B IsEqualTo 3
	Then
		SetParameter	Justify		Centre
		SetParameter	Position	0	0	0	0
		SetParameter	Lifetime	0	0	0.7	0
		SetParameter	Text		EASY_HUH?
POL		SetParameter	TEXT		ATWE_CO?
FRE		SetParameter	TEXT		FACILE,_NON?
ITA		SetParameter	TEXT		FACILE,_VERO?
SPA		SetParameter	TEXT		FCIL?
GER		SetParameter	TEXT		EINFACH,_WIE?
		SendMessage	CREATETEXT

		Set C to 2

		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		GotoLoop ADVANCE1
	EndIf
EndLoop

Loop CHECK2
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF2
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		Set R to 0
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON

		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	0900
		SetParameter	REPEAT		TRUE
		SendMessage	CreateTimer

		GotoLoop MAIN2
	EndResponse
EndLoop

Loop BRIEF2
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN
	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		Try_to_gauge_the_power_that_you_give_the
POL	SetParameter	TEXT		SPRBUJ_DOZOWA_SI_WYSTRZAU,
FRE	SetParameter	TEXT		Essayez_d'estimer_la_puissance_que_vous_donnez
ITA	SetParameter	TEXT		Prova_a_calibrare_la_potenza_applicata_ai
SPA	SetParameter	TEXT		Intenta_regular_la_potencia_de_disparo
GER	SetParameter	TEXT		Versuche_die_Strke_deines_Schusses_so


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		shot_so_that_you_destroy_the_red_blocks
POL	SetParameter	TEXT		TAK_ABY_ZNISZCZY_TYLKO_CZERWONE_CEGY,
FRE	SetParameter	TEXT		_votre_tir_afin_de_dtruire_les_blocs_rouges
ITA	SetParameter	TEXT		proiettili,_in_modo_da_distruggere_i_blocchi
SPA	SetParameter	TEXT		para_destruir_los_bloques_rojos
GER	SetParameter	TEXT		abzupassen,_dass_du_die_roten_Steine


	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		without_hitting_any_of_the_anchor_blocks.
POL	SetParameter	TEXT		TRAFIAJC_W_ADNEGO_TRZYMACZA.
FRE	SetParameter	TEXT		sans_toucher_aux_blocs_d'ancrage.
ITA	SetParameter	TEXT		rossi_senza_colpire_quelli_di_ancoraggio.
SPA	SetParameter	TEXT		sin_alcanzar_los_'bloques_ancla'.
GER	SetParameter	TEXT		zerstrst_ohne_die_Ankersteine_zu_treffen.


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		For_each_of_the_shots_you_will_receive
POL	SetParameter	TEXT		ZA_KA_DYM_RAZEM_OTRZYMASZ_WSKAZWK
FRE	SetParameter	TEXT		Pour_chaque_tir,_vous_recevrez_des
ITA	SetParameter	TEXT		Per_ogni_colpo,_ti_verranno_forniti_dei_consigli
SPA	SetParameter	TEXT		Cada_vez_que_dispares_recibirs
GER	SetParameter	TEXT		Du_erhltst_fr_jeden_Schuss_einen_Tipp,


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		advice_on_how_to_take_the_shot!
POL	SetParameter	TEXT		JAK_ODDA_STRZA.
FRE	SetParameter	TEXT		conseils_sur_la_faon_de_tirer!
ITA	SetParameter	TEXT		su_come_eseguirlo.
SPA	SetParameter	TEXT		consejos_sobre_cmo_hacerlo_bien!
GER	SetParameter	TEXT		wie_du_ihn_am_besten_anbringst!


	SendMessage	CreateText
	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		Good_luck!
POL	SetParameter	TEXT		POWODZENIA!
FRE	SetParameter	TEXT		Bonne_chance!
ITA	SetParameter	TEXT		Buona_fortuna!
SPA	SetParameter	TEXT		Buena_suerte!
GER	SetParameter	TEXT		Viel_Glck!


	SendMessage	CreateText

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

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_continue_tutorial
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_KONTYNUOWA
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_CONTINUER!
ITA	SetParameter	TEXT		Premi_fuoco_per_avviare_il_tutorial
SPA	SetParameter	Text		Pulsa_el_disparo_para_continuar
GER	SetParameter	TEXT		Feuer_drcken_um_Tutorial_zu_starten


	SendMessage 	CREATETEXT
EndLoop

Loop MAIN2
Do
	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	If T BecomesGreaterThan 2
	Then
		Set A to 2
	EndIf

	If T BecomesGreaterThan 5
	Then
		Set A to 3
	EndIf

	If T BecomesGreaterThan 8
	Then
		Set A to 5
	EndIf

	GosubLoop	ANIMATION

	If R BecomesGreaterThan 4
	Then
		GosubLoop	TEXT
		Set R to 0
		Set C to 4

		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		GotoLoop ADVANCE1
	EndIf
EndLoop

Loop ANIMATION
Do
	OnMessage TIMER1
	Do
		If A IsEqualTo 1
		Then
			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.4	0
			SetParameter	Position	-170.0	-53.0	0	0
			SetParameter	Text		HERE
POL			SetParameter	TEXT		TUTAJ
FRE			SetParameter	TEXT		ICI
ITA			SetParameter	TEXT		QUI
SPA			SetParameter	TEXT		AQU
GER			SetParameter	TEXT		HIER


			SendMessage	CREATETEXT

			SetParameter	Position	-170.0	-93.0	0	0
			SetParameter	Orientation	0	0	3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			Add 1 to T
		EndIf

		If A IsEqualTo 2
		Then
			SetParameter	Colour2		0.6	0.65	0.0	1.0
			SetParameter	Colour3		0.6	0.65	0.0	1.0
			SetParameter	Position	-140.0	-25.0	0	0
			SetParameter	Orientation	0	0	1.3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			SetParameter	Position	-140.0	-55.0	0	0
			SetParameter	Text		60_degrees
POL			SetParameter	TEXT		60_STOPNI
FRE			SetParameter	TEXT		60_degrs
ITA			SetParameter	TEXT		60_gradi
SPA			SetParameter	TEXT		60_grados
GER			SetParameter	TEXT		60_Grad



			SendMessage	CREATETEXT

			Add 1 to T
		EndIf

		If A IsEqualTo 3
		Then
			SetParameter	Colour2		0.91	0.21	0.0	1.0
			SetParameter	Colour3		0.91	0.21	0.0	1.0
			SetParameter	Position	0.0	10.0	0	0

			SetParameter	Text		65%_POWER
POL			SetParameter	TEXT		65%_MOCY
FRE			SetParameter	TEXT		65%_PUISSANCE
ITA			SetParameter	TEXT		65%_di_potenza
SPA			SetParameter	TEXT		65%_POTENCIA
GER			SetParameter	TEXT		65%_STRKE


			SendMessage	CREATETEXT

			Add 1 to T
		EndIf
	EndResponse
EndLoop

Loop MAIN3
Do
	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	If T BecomesGreaterThan 2
	Then
		Set A to 2
	EndIf

	If T BecomesGreaterThan 5
	Then
		Set A to 3
	EndIf

	If T BecomesGreaterThan 8
	Then
		Set A to 5
	EndIf

	GosubLoop	ANIMATION2

	If R BecomesGreaterThan 4
	Then
		GosubLoop	TEXT
		Set R to 0
		Set C to 5
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		GotoLoop ADVANCE1
	EndIf
EndLoop

Loop ANIMATION2
Do
	OnMessage TIMER1
	Do
		If A IsEqualTo 1
		Then
			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.4	0
			SetParameter	Position	-140.0	-53.0	0	0
			SetParameter	Text		HERE
POL			SetParameter	TEXT		TUTAJ
FRE			SetParameter	TEXT		ICI
ITA			SetParameter	TEXT		QUI
SPA			SetParameter	TEXT		AQU
GER			SetParameter	TEXT		HIER


			SendMessage	CREATETEXT

			SetParameter	Position	-140.0	-93.0	0	0
			SetParameter	Orientation	0	0	3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			Add 1 to T
		EndIf

		If A IsEqualTo 2
		Then
			SetParameter	Colour2		0.6	0.65	0.0	1.0
			SetParameter	Colour3		0.6	0.65	0.0	1.0
			SetParameter	Position	-105.0	-25.0	0	0
			SetParameter	Orientation	0	0	1.2	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			SetParameter	Position	-105.0	-55.0	0	0
			SetParameter	Text		65_degrees
POL			SetParameter	TEXT		65_STOPNI
FRE			SetParameter	TEXT		65_degrs
ITA			SetParameter	TEXT		65_gradi
SPA			SetParameter	TEXT		65_grados
GER			SetParameter	TEXT		65_Grad


			SendMessage	CREATETEXT

			Add 1 to T
		EndIf

		If A IsEqualTo 3
		Then
			SetParameter	Colour2		0.91	0.21	0.0	1.0
			SetParameter	Colour3		0.91	0.21	0.0	1.0
			SetParameter	Position	0.0	10.0	0	0

			SetParameter	Text		75%_POWER
POL			SetParameter	TEXT		75%_MOCY
FRE			SetParameter	TEXT		75%_PUISSANCE
ITA			SetParameter	TEXT		75%_di_potenza
SPA			SetParameter	TEXT		75%_POTENCIA
GER			SetParameter	TEXT		75%_STRKE


			SendMessage	CREATETEXT

			Add 1 to T
		EndIf
	EndResponse
EndLoop

Loop MAIN4
Do
	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	If T BecomesGreaterThan 2
	Then
		Set A to 2
	EndIf

	If T BecomesGreaterThan 5
	Then
		Set A to 3
	EndIf

	If T BecomesGreaterThan 8
	Then
		Set A to 5
	EndIf

	GosubLoop	ANIMATION3

	If R BecomesGreaterThan 4
	Then
		GosubLoop	TEXT
		Set R to 0
		Set C to 6
		
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		GotoLoop ADVANCE1
	EndIf
EndLoop

Loop ANIMATION3
Do
	OnMessage TIMER1
	Do
		If A IsEqualTo 1
		Then
			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.4	0
			SetParameter	Position	-210.0	-53.0	0	0
			SetParameter	Text		HERE
POL			SetParameter	TEXT		TUTAJ
FRE			SetParameter	TEXT		ICI
ITA			SetParameter	TEXT		QUI
SPA			SetParameter	TEXT		AQU
GER			SetParameter	TEXT		HIER


			SendMessage	CREATETEXT

			SetParameter	Position	-210.0	-93.0	0	0
			SetParameter	Orientation	0	0	3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			Add 1 to T
		EndIf

		If A IsEqualTo 2
		Then
			SetParameter	Colour2		0.6	0.65	0.0	1.0
			SetParameter	Colour3		0.6	0.65	0.0	1.0
			SetParameter	Position	-200.0	-25.0	0	0
			SetParameter	Orientation	0	0	1.1	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			SetParameter	Position	-200.0	-55.0	0	0
			SetParameter	Text		75_degrees
POL			SetParameter	TEXT		75_STOPNI
FRE			SetParameter	TEXT		75_degrs
ITA			SetParameter	TEXT		75_gradi
SPA			SetParameter	TEXT		75_grados
GER			SetParameter	TEXT		75_Grad


			SendMessage	CREATETEXT

			Add 1 to T
		EndIf

		If A IsEqualTo 3
		Then
			SetParameter	Colour2		0.91	0.21	0.0	1.0
			SetParameter	Colour3		0.91	0.21	0.0	1.0
			SetParameter	Position	0.0	10.0	0	0

			SetParameter	Text		90%_POWER
POL			SetParameter	TEXT		90%_MOCY
FRE			SetParameter	TEXT		90%_PUISSANCE
ITA			SetParameter	TEXT		90%_di_potenza
SPA			SetParameter	TEXT		90%_POTENCIA
GER			SetParameter	TEXT		90%_STRKE
			SendMessage	CREATETEXT
			Add 1 to T
		EndIf
	EndResponse
EndLoop

Loop CHECK3
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF3
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		Set A to 0
		Set T to 0
		Set G to 0
		Set Y to 0

		Set R to 0
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON

		GotoLoop MAIN5
	EndResponse
EndLoop

Loop BRIEF3
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN


	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		The_bazooka_can_also_be_bounced_off_of
POL	SetParameter	TEXT		POCISKI_Z_BAZOOKI_MOG_ODBIJA_SI_OD
FRE	SetParameter	TEXT		Le_bazooka_peut_galement_tre_dvi_par
ITA	SetParameter	TEXT		I_proiettili_del_bazooka_possono_anche_essere
SPA	SetParameter	TEXT		Los_disparos_del_bazooka_tambin_rebotan
GER	SetParameter	TEXT		Die_Bazooka_prallt_auerdem_an


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		the_bouncy_blocks!__Try_to_destroy_the
POL	SetParameter	TEXT		ODBIJACZY._SPRBUJ_ZNISZCZY
FRE	SetParameter	TEXT		les_blocs__rebond!_Essayez_de_dtruire
ITA	SetParameter	TEXT		deviati_dai_blocchi_rimbalzanti!_Cerca_di_
SPA	SetParameter	TEXT		en_los_'bloques_muelle'!_Intenta_destruir
GER	SetParameter	TEXT		den_pinkfarbenen_Flummisteinen_ab!


	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		coloured_blocks_by_making_use_of_the
POL	SetParameter	TEXT		KOLOROWE_CEGY,_WYKORZYSTUJC_DO_TEGO
FRE	SetParameter	TEXT		les_blocs_colors_en_utilisant_les_blocs
ITA	SetParameter	TEXT		distruggere_i_blocchi_colorati_sfruttando_quelli
SPA	SetParameter	TEXT		los_bloques_de_colores_ayudndote
GER	SetParameter	TEXT		Versuche_dir_das_zu_Nutze_zu_machen


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		bouncy_blocks.__This_time_you_will
POL	SetParameter	TEXT		ODBIJACZE._TYM_RAZEM_WSKAZWKI_OTRZYMASZ
FRE	SetParameter	TEXT		_rebond._Cette_fois,
ITA	SetParameter	TEXT		rimbalzanti._Questa_volta_ti_verranno_forniti
SPA	SetParameter	TEXT		con_los_'bloques_muelle'.
GER	SetParameter	TEXT		um_die_farbigen_Steine_zu_zerstren.


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		only_receive_directions_if_you_need
POL	SetParameter	TEXT		TYLKO_JE_ELI_BDZIESZ
FRE	SetParameter	TEXT		vous_ne_recevrez_des_instructions_que
ITA	SetParameter	TEXT		i_consigli_solo_se_strettamente
SPA	SetParameter	TEXT		Esta_vez_slo_recibirs_indicaciones_si_realmente
GER	SetParameter	TEXT		Dieses_Mal_erhltst_du_nur_Anweisungen


	SendMessage	CreateText
	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		them!
POL	SetParameter	TEXT		CHCIA.
ITA	SetParameter	TEXT		necessario.
FRE	SetParameter	TEXT		si_vous_en_avez_besoin!
SPA	SetParameter	TEXT		las_necesitas!
GER	SetParameter	TEXT		wenn_du_sie_bentigst!
	SendMessage	CreateText

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

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_continue_tutorial
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_KONTYNUOWA
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_CONTINUER!
ITA	SetParameter	TEXT		Premi_fuoco_per_avviare_il_tutorial
SPA	SetParameter	Text		Pulsa_el_disparo_para_continuar
GER	SetParameter	TEXT		Feuer_drcken_um_Tutorial_zu_starten


	SendMessage 	CREATETEXT
EndLoop

Loop MAIN5
Do
	If G BecomesGreaterThan 4
	Then
		Set G to 0

		SetParameter	Lifetime	0	0	1	0
		SetParameter	Position	0	0	0	0
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Text	HAVING_PROBLEMS?
POL		SetParameter	TEXT	MASZ_KOPOTY?
FRE		SetParameter	TEXT	DES_PROBLMES?
ITA		SetParameter	TEXT	QUALCHE_PROBLEMA?
SPA		SetParameter	TEXT	ALGN_PROBLEMA?
GER		SetParameter	TEXT	HAST_DU_PROBLEME?
	

		SendMessage	CREATETEXT

		Set A to 1
	EndIf

	If Y BecomesGreaterThan 4
	Then
		GosubLoop	TEXT
		Set C to 7
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		GotoLoop ADVANCE1
	EndIf

	If T BecomesGreaterThan 2
	Then
		Set A to 2
	EndIf

	If T BecomesGreaterThan 5
	Then
		Set A to 3
	EndIf

	If T BecomesGreaterThan 8
	Then
		Set A to 1
		Set T to 0
	EndIf

	GosubLoop ANIMATION4

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop ANIMATION4
Do
	OnMessage TIMER1
	Do
		If A IsEqualTo 1
		Then
			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.4	0
			SetParameter	Position	-150.0	-53.0	0	0
			SetParameter	Text		HERE
POL			SetParameter	TEXT		TUTAJ
FRE			SetParameter	TEXT		ICI
ITA			SetParameter	TEXT		QUI
SPA			SetParameter	TEXT		AQU
GER			SetParameter	TEXT		HIER


			SendMessage	CREATETEXT

			SetParameter	Position	-150.0	-93.0	0	0
			SetParameter	Orientation	0	0	3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			Add 1 to T
		EndIf

		If A IsEqualTo 2
		Then
			SetParameter	Colour2		0.6	0.65	0.0	1.0
			SetParameter	Colour3		0.6	0.65	0.0	1.0
			SetParameter	Position	-140.0	-25.0	0	0
			SetParameter	Orientation	0	0	1.2	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			SetParameter	Position	-140.0	-55.0	0	0
			SetParameter	Text		65_degrees
POL			SetParameter	TEXT		65_STOPNI
FRE			SetParameter	TEXT		65_degrs
ITA			SetParameter	TEXT		65_gradi
SPA			SetParameter	TEXT		65_grados
GER			SetParameter	TEXT		65_Grad
			SendMessage	CREATETEXT
			Add 1 to T
		EndIf

		If A IsEqualTo 3
		Then
			SetParameter	Colour2		0.91	0.21	0.0	1.0
			SetParameter	Colour3		0.91	0.21	0.0	1.0
			SetParameter	Position	0.0	10.0	0	0

			SetParameter	Text		60%_POWER
POL			SetParameter	TEXT		60%_MOCY
FRE			SetParameter	TEXT		60%_PUISSANCE
ITA			SetParameter	TEXT		60%_di_potenza
SPA			SetParameter	TEXT		60%_POTENCIA
GER			SetParameter	TEXT		60%_STRKE
			SendMessage	CREATETEXT
			Add 1 to T
		EndIf
	EndResponse
EndLoop

Loop MAIN6
Do
	If G BecomesGreaterThan 4
	Then
		Set G to 0

		SetParameter	Lifetime	0	0	1	0
		SetParameter	Position	0	0	0	0
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Text	DON'T_WORRY!
POL		SetParameter	TEXT	NIE_PRZEJMUJ_SI
FRE		SetParameter	TEXT	NE_VOUS_INQUITEZ_PAS!
ITA		SetParameter	TEXT	NON_PREOCCUPARTI!
SPA		SetParameter	TEXT	NO_DESESPERES!
GER		SetParameter	TEXT	KEINE_PANIK!
		SendMessage	CREATETEXT
		Set A to 1
	EndIf

	If Y BecomesGreaterThan 4
	Then
		GosubLoop	TEXT
		Set C to 8
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		GotoLoop ADVANCE1
	EndIf

	If T BecomesGreaterThan 2
	Then
		Set A to 2
	EndIf

	If T BecomesGreaterThan 5
	Then
		Set A to 3
	EndIf

	If T BecomesGreaterThan 8
	Then
		Set A to 1
		Set T to 0
	EndIf

	GosubLoop ANIMATION5

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop ANIMATION5
Do
	OnMessage TIMER1
	Do
		If A IsEqualTo 1
		Then
			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.4	0
			SetParameter	Position	-190.0	-53.0	0	0
			SetParameter	Text		HERE
POL			SetParameter	TEXT		TUTAJ
FRE			SetParameter	TEXT		ICI
ITA			SetParameter	TEXT		Qui
SPA			SetParameter	TEXT		AQU
GER			SetParameter	TEXT		HIER

			SendMessage	CREATETEXT

			SetParameter	Position	-190.0	-93.0	0	0
			SetParameter	Orientation	0	0	3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			Add 1 to T
		EndIf

		If A IsEqualTo 2
		Then
			SetParameter	Colour2		0.6	0.65	0.0	1.0
			SetParameter	Colour3		0.6	0.65	0.0	1.0
			SetParameter	Position	-150.0	-25.0	0	0
			SetParameter	Orientation	0	0	1.3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			SetParameter	Position	-150.0	-55.0	0	0
			SetParameter	Text		50_degrees
POL			SetParameter	TEXT		50_STOPNI
FRE			SetParameter	TEXT		50_degrs
ITA			SetParameter	TEXT		50_gradi
SPA			SetParameter	TEXT		50_grados
GER	SetParameter	TEXT		50_Grad


			SendMessage	CREATETEXT

			Add 1 to T
		EndIf

		If A IsEqualTo 3
		Then
			SetParameter	Colour2		0.91	0.21	0.0	1.0
			SetParameter	Colour3		0.91	0.21	0.0	1.0
			SetParameter	Position	0.0	10.0	0	0

			SetParameter	Text		100%_POWER
POL			SetParameter	TEXT		100%_MOCY
FRE			SetParameter	TEXT		100%_PUISSANCE
ITA			SetParameter	TEXT		100%_di_potenza
SPA			SetParameter	TEXT		100%_POTENCIA
GER			SetParameter	TEXT		100%_STRKE
			SendMessage	CREATETEXT
			Add 1 to T
		EndIf
	EndResponse
EndLoop

Loop CHECK4
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF4
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		Set A to 0
		Set T to 0
		Set G to 0
		Set Y to 0

		Set R to 0

		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON

		GotoLoop MAIN7
	EndResponse
EndLoop

Loop BRIEF4
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN


	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		And_that_concludes_the_bazooka_training!
POL	SetParameter	TEXT		NA_TYM_KOCZYMY_TRENING_Z_BAZOOK
FRE	SetParameter	TEXT		L'entranement_au_bazooka_se_termine.
ITA	SetParameter	TEXT		E_con_questo_hai_concluso_l'allenamento
SPA	SetParameter	TEXT		Y_con_esto_termina_el_entrenamiento_con_bazooka!
GER	SetParameter	TEXT		Und_damit_endet_das_Bazooka-Training!


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		Next_up_is_the_Shotgun!__The_shotgun
POL	SetParameter	TEXT		NASTPNA_JEST_RUTWKA._W_RUTWCE_NIE
FRE	SetParameter	TEXT		L'tape_suivante_est_la_carabine._La_puissance
ITA	SetParameter	TEXT		con_il_bazooka!_Adesso_preparati_alla_doppietta!
SPA	SetParameter	TEXT		A_continuacin,_la_escopeta!_La_escopeta
GER	SetParameter	TEXT		Als_nchstes_kommt_die_Schrotflinte!_Die


	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		can_not_be_powered_up_like_the_bazooka,
POL	SetParameter	TEXT		DOZUJESZ_MOCY._ZAWSZE_USTAWIONA
FRE	SetParameter	TEXT		de_la_carabine_ne_peut_pas_se_rgler_comme
ITA	SetParameter	TEXT		Quest'arma_non_ha_potenza_variabile_e_spara
SPA	SetParameter	TEXT		no_se_puede_regular_como_el_bazooka,
GER	SetParameter	TEXT		Schrotflinte_ldt_nicht_auf_wie_die_Bazooka,


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		it_is_always_fired_at_maximum_power.
POL	SetParameter	TEXT		JEST_NA_MAKSIMUM.
FRE	SetParameter	TEXT		celle_du_bazooka._Elle_est_toujours_au_maximum.
ITA	SetParameter	TEXT		sempre_al_massimo_dell'energia._La_doppietta
SPA	SetParameter	TEXT		sino_que_siempre_dispara_con_la_misma_potencia.
GER	SetParameter	TEXT		sie_schiet_immer_mit_maximaler_Power.


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		The_shotgun_can_also_be_used_to_colour
POL	SetParameter	TEXT		RUTWK_MO_NA_WYKORZYSTA_DO_KOLOROWANIA
FRE	SetParameter	TEXT		La_carabine_peut_aussi_tre_utilise_pour_colorer
ITA	SetParameter	TEXT		pu_anche_essere_utilizzata_per_colorare_i
SPA	SetParameter	TEXT		La_escopeta_tambin_se_puede_utilizar_para_colorear
GER	SetParameter	TEXT		Die_Schrotflinte_kann_ebenfalls_farbige_Steine

	SendMessage	CreateText

	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		blocks.__First_up_:_Destroy_the_blocks!
POL	SetParameter	TEXT		CEGIE._NAJPIERW_JEDNAK,_ZNISZCZ_JE!
FRE	SetParameter	TEXT		les_blocs._Il_s'agit_d'abord_de_dtruire_les_blocs!
ITA	SetParameter	TEXT		blocchi._Adesso_distruggi_tutti_i_blocchi!
SPA	SetParameter	TEXT		los_bloques._Antes_de_nada_dispara_a_los_bloques!
GER	SetParameter	TEXT		zerstren._Zunchst:_Zerstre_die_Steine!


	SendMessage	CreateText

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

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_continue_tutorial
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_KONTYNUOWA
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_CONTINUER!
ITA	SetParameter	TEXT		Premi_fuoco_per_avviare_il_tutorial
SPA	SetParameter	Text		Pulsa_el_disparo_para_continuar
GER	SetParameter	TEXT		Feuer_drcken_um_Tutorial_zu_starten


	SendMessage 	CREATETEXT
EndLoop

Loop MAIN7
Do
	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	If B IsEqualTo 6
	Then
		SetParameter	Position	0	0	0	0
		SetParameter	Lifetime	0	0	0.7	0
		SetParameter	Text		OKAY!
POL		SetParameter	TEXT		NO_DOBRA!
FRE		SetParameter	TEXT		PARFAIT!
ITA		SetParameter	TEXT		OK!
SPA		SetParameter	TEXT		OK!
GER		SetParameter	TEXT		OK!
		SendMessage	CREATETEXT

		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT

		Set C to 9

		GotoLoop ADVANCE1
	EndIf
EndLoop

Loop CHECK5
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF5
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		Set A to 0
		Set T to 0
		Set G to 0
		Set Y to 0
		Set K to 0
		Set R to 0

		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON

		SetParameter	MESSAGE_ID	TIMER4
		SetParameter	INTERVAL	2000
		SetParameter	REPEAT		TRUE
		SendMessage	CreateTimer

		SetParameter	MESSAGE_ID	TIMER5
		SetParameter	INTERVAL	1000
		SetParameter	REPEAT		TRUE
		SendMessage	CreateTimer

		GotoLoop MAIN8
	EndResponse
EndLoop

Loop BRIEF5
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN


	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		The_shotgun_fires_two_rounds_of_the_same
POL	SetParameter	TEXT		RUTWKA_WYSTRZELIWUJE_2_POCISKI_TEGO
FRE	SetParameter	TEXT		La_carabine_tire_deux_salves_de_la_mme
ITA	SetParameter	TEXT		La_doppietta_spara_due_colpi_dello_stesso
SPA	SetParameter	TEXT		La_escopeta_dispara_dos_cargas_del_mismo_color,
GER	SetParameter	TEXT		Die_Schrotflinte_verschiet_zwei_Schsse


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		colour,_and_then_takes_a_little_pause_to
POL	SetParameter	TEXT		SAMEGO_KOLORU._PRZEADOWANIE_ZAJMUJE_CHWIL
FRE	SetParameter	TEXT		couleur,__puis_se_met_en_pause_pour_se
ITA	SetParameter	TEXT		colore_e_richiede_un_po'_di_tempo_per_ricaricarsi.
SPA	SetParameter	TEXT		y_despus_necesita_un_par_de_segundos_para
GER	SetParameter	TEXT		derselben_Farbe_und_braucht_dann_eine


	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		reload.__The_shotgun_is_especially_effective
POL	SetParameter	TEXT		CZASU._RUTWKA_JEST_IDEALNA_DO_NISZCZENIA
FRE	SetParameter	TEXT		recharger._La_carabine_est_particulirement
ITA	SetParameter	TEXT		Quest'arma__particolarmente_efficiente
SPA	SetParameter	TEXT		recargarse._La_escopeta_resulta_muy_efectiva
GER	SetParameter	TEXT		Pause_um_nachzuladen._Die_Schrotflinte_ist


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		when_it_comes_to_destroying_targets.__Try_to
POL	SetParameter	TEXT		KONKRETNYCH_CELW.
FRE	SetParameter	TEXT		efficace_pour_dtruire_les_cibles.
ITA	SetParameter	TEXt		per_annientare_i_bersagli.
SPA	SetParameter	TEXT		para_destruir_objetivos_concretos.
GER	SetParameter	TEXT		besonders_ntzlich_um_Zielscheiben_zu


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		destroy_ten_of_the_targets_that_fall_as
POL	SetParameter	TEXT		ZNISZCZ_10_CELW,_NAJSZYBCIEJ_JAK
FRE	SetParameter	TEXT		Dtruisez_le_plus_vite_possible
ITA	SetParameter	TEXT		Distruggi_il_pi_velocemente_possibile_dieci_dei
SPA	SetParameter	TEXT		Destruye_diez_de_las_dianas_que_caen
GER	SetParameter	TEXT		treffen._Zerstre_so_schnell_wie_mglich


	SendMessage	CreateText
	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		quickly_as_possible.
POL	SetParameter	TEXT		POTRAFISZ.
FRE	SetParameter	TEXT		dix_des_cibles_qui_tombent.
ITA	SetParameter	TEXT		bersagli_che_cadranno.
SPA	SetParameter	TEXT		lo_ms_rpido_posible.
GER	SetParameter	TEXT		zehn_der_herabfallenden_Zielscheiben.


	SendMessage	CreateText

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

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_continue_tutorial
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_KONTYNUOWA
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_CONTINUER!
ITA	SetParameter	TEXT		Premi_fuoco_per_avviare_il_tutorial
SPA	SetParameter	Text		Pulsa_el_disparo_para_continuar
GER	SetParameter	TEXT		Feuer_drcken_um_Tutorial_zu_starten
	SendMessage 	CREATETEXT
EndLoop

Loop MAIN8
Do
	OnMessage	TIMER4
	Do
		Randomise K from 1 to 3
	EndResponse

	If K IsEqualTo 1
	Then
		Set K to 10
		SetParameter	Position	3	85	0	0
		SetParameter	BLOCKCOLOUR	Target
		SendMessage	SPAWNINBLOCK
	EndIf

	If K IsEqualTo 2
	Then
		Set K to 10
		SetParameter	Position	12	85	0	0
		SetParameter	BLOCKCOLOUR	Target
		SendMessage	SPAWNINBLOCK
	EndIf

	If K IsEqualTo 3
	Then
		Set K to 10
		SetParameter	Position	21	85	0	0
		SetParameter	BLOCKCOLOUR	Target
		SendMessage	SPAWNINBLOCK
	EndIf

	If W BecomesEqualTo 1
	Then
		Set W to 0
		Add 1 to L
	EndIf

	If L IsEqualTo 10
	Then
		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
		SetParameter	Lifetime	0	0	0.7	0
		SetParameter	Text	NICE_SHOOTING!
POL		SetParameter	TEXT	NIEZY_STRZA!
FRE		SetParameter	TEXT	Bien_vis!
ITA		SetParameter	TEXT	BEL_LAVORO!
SPA		SetParameter	TEXT	BUEN_DISPARO!
GER		SetParameter	TEXT	Gut_geschossen!
	

		SendMessage	CREATETEXT
		Set C to 10
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		GotoLoop ADVANCE1
	EndIf

	GosubLoop CLOCK

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop CHECK6
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF6
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		Set A to 1
		Set T to 0
		Set G to 0
		Set Y to 0
		Set K to 0
		Set R to 0
		Set B to 0

		SetParameter	TEXT	tut44.wbw
		SendMessage	LOADWEAPONLIST

		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON

		GotoLoop MAIN9
	EndResponse
EndLoop

Loop BRIEF6
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN
	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

GER	SetParameter	Scale1		0.1	0.1	0.1	0.0
GER	SetParameter	Scale2		0.6	0.6	0.6	0.0
GER	SetParameter	Scale3		0.6	0.6	0.6	0.0
GER	SetParameter	Scale4		0.6	0.6	0.6	0.0
GER	SetParameter	Scale5		0.6	0.6	0.6	0.0


	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		Next_up_we_look_at_the_laser._Like_the
POL	SetParameter	TEXT		PRZYJRZYJMY_SI_TERAZ_LASEROWI._JAK_RUTWKA
FRE	SetParameter	TEXT		Passons_maintenant_au_laser!_Comme_pour
ITA	SetParameter	TEXT		Adesso_passiamo_al_laser!_Come_per_la_doppietta,
SPA	SetParameter	TEXT		A_continuacin_repasaremos_el_lser!_Al_igual_que
GER	SetParameter	TEXT		Als_nchstes_sehen_wir_uns_den_Laser_an!


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		shotgun_the_laser_is_always_fired_at_full
POL	SetParameter	TEXT		LASER_USTAWIONY_JEST_ZAWSZE_NA_MAKSYMALN_MOC.
FRE	SetParameter	TEXT		la_carabine,_le_laser_tire_toujours_au_maximum
ITA	SetParameter	TEXT		quest'arma_viene_sempre_sparata_alla_massima
SPA	SetParameter	TEXT		la_escopeta,_el_lser_siempre_dispara
GER	SetParameter	TEXT		Wie_die_Schrotflinte_schiet_der_Laser_immer


	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		power._The_laser_is_a_special_weapon_that
POL	SetParameter	TEXT		LASER_JEST_SPECJALN_BRONI,_KTR_MO_ESZ
FRE	SetParameter	TEXT		de_sa_puissance._Le_laser_est_une_arme_spciale
ITA	SetParameter	TEXT		potenza._Il_laser__un'arma_speciale_che_pu
SPA	SetParameter	TEXT		con_la_misma_potencia._Es_un_arma_especial
GER	SetParameter	TEXT		mit_voller_Strke._Der_Laser_ist_eine_spezielle


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		can_only_be_collected_in_crates._Collect
POL	SetParameter	TEXT		ZNALE_W_SKRZYNIACH._ZBIERAJ_SKRZYNIE
FRE	SetParameter	TEXT		que_l'on_ne_peut_obtenir_que_dans_les_caisses.
ITA	SetParameter	TEXT		essere_ottenuta_solo_raccogliendo_una_cassa;
SPA	SetParameter	TEXT		que_slo_se_encuentra_en_el_interior_de_las_cajas.
GER	SetParameter	TEXT		Waffe,_die_nur_in_Kisten_zu_finden_ist._Sammle


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		the_crates_and_then_use_the_change_weapon
POL	SetParameter	TEXT		NASTPNIE_U_YJ_KLAWISZA_ZMIANY_BRONI,
FRE	SetParameter	TEXT		Rcuprez_les_caisses,_puis_appuyez_sur_le_bouton
ITA	SetParameter	TEXT		esegui_questa_operazione_e_utilizza_il_tasto_cambia
SPA	SetParameter	TEXT		Hazte_con_las_cajas_y_utiliza_el_control_'Cambiar_Arma'
GER	SetParameter	TEXT		die_Kisten_auf,_whle_den_Laser_mit_der_Taste


	SendMessage	CreateText
	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		button_to_select_it._Destroy_all_blocks!
POL	SetParameter	TEXT		ABY_WYBRA_LASER_I_ZNISZCZ_CEGY.
FRE	SetParameter	TEXT		de_changement_d'arme_pour_le_slectionner.
ITA	SetParameter	TEXT		arma_per_selezionarlo._Distruggi_i_blocchi!
SPA	SetParameter	TEXT		para_seleccionar_el_lser._Venga,_a_romper_bloques
GER	SetParameter	TEXT		zum_Waffenwechsel_aus_und_zerstre_die_Steine!

	SendMessage	CREATETEXT

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

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_continue_tutorial
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_KONTYNUOWA
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_CONTINUER!
ITA	SetParameter	TEXT		Premi_fuoco_per_avviare_il_tutorial
SPA	SetParameter	Text		Pulsa_el_disparo_para_continuar
GER	SetParameter	TEXT		Zum_Fortsetzen_Feuer_drcken
	SendMessage 	CREATETEXT
EndLoop

Loop MAIN9
Do
	If B IsEqualTo 2
	Then
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set C to 11
		GotoLoop ADVANCE1
	EndIf

	If R BecomesGreaterThan 17
	Then
		Set A to 2
	EndIf

	If T IsEqualTo 3
	Then
		Set K to 0
		Set A to 10
		Set T to 0
	EndIf

	If K IsEqualTo 3
	Then
		Set A to 3
	EndIf

	If K IsEqualTo 9
	Then
		Set A to 4
	EndIf

	If K IsEqualTo 13
	Then
		Set A to 10
	EndIf

	GosubLoop ANIMATION6

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop ANIMATION6
Do
	OnMessage TIMER1
	Do
		If A IsEqualTo 1
		Then
			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.9	0
			SetParameter	Position	0.0	0.0	0	0
			SetParameter	Text		COLLECT_THESE_CRATES!
POL			SetParameter	TEXT		ZBIERZ_TE_SKRZYNIE!
FRE			SetParameter	TEXT		Rcuprez_ces_caisses!
ITA			SetParameter	TEXT		Raccogli_quelle_casse!
SPA			SetParameter	TEXT		A_por_todas_las_cajas!
GER			SetParameter	TEXT		Sammle_diese_Kisten_ein!
	

			SendMessage	CREATETEXT
			SetParameter	Lifetime	0	0	0.4	0

			SetParameter	Position	-110.0	-30.0	0	0
			SetParameter	Orientation	0	0	3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			SetParameter	Position	11.0	-30.0	0	0
			SetParameter	Orientation	0	0	3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			SetParameter	Position	130.0	-30.0	0	0
			SetParameter	Orientation	0	0	3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			Add 1 to T
		EndIf

		If A IsEqualTo 2
		Then
			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.9	0
			SetParameter	Position	0.0	50.0	0	0
			SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA			SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE			SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE			SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE			SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE			SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA			SetParameter	Scale1		0.1	0.1	0.1	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

GER			SetParameter	Scale2		0.6	0.6	0.6	0.0
GER			SetParameter	Scale3		0.6	0.6	0.6	0.0
GER			SetParameter	Scale4		0.6	0.6	0.6	0.0
GER			SetParameter	Scale5		0.6	0.6	0.6	0.0
			SetParameter	Text		THE_LASER_WILL_CUT_RIGHT_THROUGH
POL			SetParameter	TEXT		LASER_PRZEBIJE_SI_PRZEZ_WSZYSTKIE
FRE			SetParameter	TEXT		Le_laser_crera_un_passage__travers
ITA			SetParameter	TEXT		Il_laser_attraverser_tutti_i_blocchi_colorati!
SPA			SetParameter	TEXT		El_lser_es_til_para_abrirse_camino_
GER			SetParameter	TEXT		der_Laser_schneidet_einfach_durch_alle_farbigen_Steine
			SendMessage	CREATETEXT

SPA			SetParameter	Scale1		0.1	0.1	0.1	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

			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.9	0
			SetParameter	Position	0.0	10.0	0	0
ENG			SetParameter	Text		ALL_OF_THE_COLOURED_BLOCKS!
POL			SetParameter	TEXT		KOLOROWE_CEGY!
FRE			SetParameter	TEXT		tous_les_blocs_colors!
SPA			SetParameter	TEXT		entre_los_bloques_de_colores!
GER			SetParameter	TEXT		___

FRE			SendMessage	CREATETEXT
ENG			SendMessage	CREATETEXT
SPA			SendMessage	CREATETEXT
GER			SendMessage	CREATETEXT
			Add 1 to K
		EndIf

		If A IsEqualTo 3
		Then
			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.9	0
			SetParameter	Position	0.0	180.0	0	0
			SetParameter	Text		AIM_AT_THE_BLOCKS_AROUND
POL			SetParameter	TEXT		CELUJ_W_CEGY_NA_OKOO
FRE			SetParameter	TEXT		Visez_les_blocs_entourant_les_blocs
ITA			SetParameter	TEXT		Mira_ai_blocchi_di_ancoraggio_per
SPA			SetParameter	TEXT		Apunta_a_los_bloques_que_
GER			SetParameter	TEXT		Ziele_auf_die_Steine_an_den_Ankersteinen,


FRE			SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE			SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE			SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE			SetParameter	Scale5		0.7	0.7	0.7	0.0

ITA			SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale5		0.6	0.6	0.6	0.0

GER			SetParameter	Scale1		0.1	0.1	0.1	0.0
GER			SetParameter	Scale2		0.6	0.6	0.6	0.0
GER			SetParameter	Scale3		0.6	0.6	0.6	0.0
GER			SetParameter	Scale4		0.6	0.6	0.6	0.0
GER			SetParameter	Scale5		0.6	0.6	0.6	0.0


SPA			SetParameter	Scale1		0.1	0.1	0.1	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


			SendMessage	CREATETEXT

			SetParameter	Colour2		1.0	1.0	1.0	1.0
			SetParameter	Colour3		1.0	1.0	1.0	1.0
			SetParameter	Position	0.0	150.0	0	0
			SetParameter	Text		THE_ANCHORS_TO_DROP_ALL_BLOCKS!
POL			SetParameter	TEXT		TRZYMACZY,_ABY_ZRZUCI
FRE			SetParameter	TEXT		d'ancrage_pour_tous_les_faire_tomber!
ITA			SetParameter	TEXT		far_cadere_tutti_gli_altri!
SPA			SetParameter	TEXT		rodean_los_'bloques_ancla'!
GER			SetParameter	TEXT		damit_alle_Steine_fallen!

SPA			SetParameter	Scale1		0.1	0.1	0.1	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

GER			SetParameter	Scale1		0.1	0.1	0.1	0.0
GER			SetParameter	Scale2		0.6	0.6	0.6	0.0
GER			SetParameter	Scale3		0.6	0.6	0.6	0.0
GER			SetParameter	Scale4		0.6	0.6	0.6	0.0
GER			SetParameter	Scale5		0.6	0.6	0.6	0.0

ITA			SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA			SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE			SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE			SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE			SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE			SetParameter	Scale5		0.7	0.7	0.7	0.0


SPA			SetParameter	Scale1		0.1	0.1	0.1	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

			SendMessage	CREATETEXT

POL			SetParameter	TEXT		WSZYSTKIE_NA_RAZ.
POL			SetParameter	Position	0	120	0	0
POL			SendMessage	CREATETEXT

SPA			SetParameter	Scale1		0.1	0.1	0.1	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	Lifetime	0	0	0.4	0
			SetParameter	Position	-235.0	180.0	0	0
			SetParameter	Orientation	0	0	0	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			SetParameter	Position	235.0	180.0	0	0
			SetParameter	Orientation	0	0	2	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			Add 1 to K
		EndIf

		If A IsEqualTo 4
		Then
SPA			SetParameter	Scale1		0.1	0.1	0.1	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

			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.9	0
			SetParameter	Position	0	30	0	0
			SetParameter	Text	IF_YOU_CAN'T_DESTROY_ALL
POL			SetParameter	TEXT	NIE_ZNISZCZYSZ_WSZYSTKICH
FRE			SetParameter	TEXT	Si_vous_ne_pouvez_pas_dtruire
ITA			SetParameter	TEXT	Se_non_puoi_distruggere_tutti
SPA			SetParameter	TEXT	Si_no_puedes_destruir
GER			SetParameter	TEXT	Wenn_du_nicht_alle_Steine	
			SendMessage	CREATETEXT

SPA			SetParameter	Scale1		0.1	0.1	0.1	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

			SetParameter	Position	0	0	0	0
			SetParameter	Text	THE_BLOCKS_USING_THE_LASER
POL			SetParameter	TEXT	CEGIE_TYLKO_LASEREM,
FRE			SetParameter	TEXT	tous_les_blocs_avec_le_laser 
ITA			SetParameter	TEXT	i_blocchi_usando_il_laser,
SPA			SetParameter	TEXT	los_bloques_slo_con_el_lser
GER			SetParameter	TEXT	mit_dem_Laser



			SendMessage	CREATETEXT

SPA			SetParameter	Scale1		0.1	0.1	0.1	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

			SetParameter	Position	0	-30	0	0
			SetParameter	Text	ALONE_THEN_USE_THE_SHOTGUN!
POL			SetParameter	TEXT	SKORZYSTAJ_ZE_RUTWKI!
FRE			SetParameter	TEXT	seul,_utilisez_la_carabine.
ITA			SetParameter	TEXT	prova_a_usare_la_doppietta!
SPA			SetParameter	TEXT	utiliza_la_escopeta.
GER			SetParameter	TEXT	dann_benutze_die_Schrotflinte!


			SendMessage	CREATETEXT

			Add 1 to K
		EndIf
	EndResponse
EndLoop

Loop CHECK7
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF7
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		Set A to 0
		Set T to 0
		Set G to 0
		Set Y to 0
		Set K to 0
		Set R to 0
		Set B to 0

		Set U to 50
		Set I to 0

		Set L to 0

		SetParameter	TEXT	tut44.wbw
		SendMessage	LOADWEAPONLIST
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON

		Set O to 0
		Set C to 50
		Set J to 50
		Set N to 1

		GotoLoop MAIN10
	EndResponse
EndLoop

Loop BRIEF7
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN

	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		Notice_that_you_only_get_two_shots_from_one
POL	SetParameter	TEXT		ZAUWA_YE__E_W_JEDNEJ_SKRZYNI_MASZ_2_ADUNKI?
FRE	SetParameter	TEXT		Avez-vous_remarqu_que_vous_obtenez_deux_tirs
ITA	SetParameter	TEXT		Hai_notato_che_hai_a_disposizione_due_colpi_per
SPA	SetParameter	TEXT		Te_has_dado_cuenta_de_que_por_cada_caja_recibes
GER	SetParameter	TEXT		Bemerkt,_dass_du_zwei_Schuss_pro_Kiste 


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		crate?_See_how_the_laser_reacts_to_the
POL	SetParameter	TEXT		WIDZIAE_JAK_LASER_ZAREAGOWA_NA_ODBIJACZE.
FRE	SetParameter	TEXT		_partir_d'une_caisse?_Observez_la_raction_du
ITA	SetParameter	TEXT		ogni_cassa?_Osserva_come_il_laser_reagisce_sui
SPA	SetParameter	TEXT		dos_disparos?_Observa_como_reacciona_el_lser_con_los
GER	SetParameter	TEXT		erhltst?_Sieh_wie_der_Laser_auf_die_Flummi-steine


	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		bouncy_blocks!__Use_the_bouncy_blocks_to
POL	SetParameter	TEXT		SKORZYSTAJ_Z_NICH,_ABY_PRZEBI
FRE	SetParameter	TEXT		laser_sur_les_blocs__rebond._Utilisez_les_blocs
ITA	SetParameter	TEXT		blocchi_rimbalzanti!_Sfruttali_per_colpire
SPA	SetParameter	TEXT		bloques_muelle!_Utiliza_los_'bloque_muelle'_para_
GER	SetParameter	TEXT		reagiert!_Benutze_die_Flummisteine_um_durch_die_farbigen


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		cut_through_the_coloured_blocks_in_as
POL	SetParameter	TEXT		SI_PRZEZ_KOLOROWE_CEGY._SPRBUJ
FRE	SetParameter	TEXT		_rebond_pour_franchir_les_blocs_de_couleur.
ITA	SetParameter	TEXT		i_blocchi_colorati;_cerca_di_distruggerli
SPA	SetParameter	TEXT		abrirte_paso_entre_los_bloques_de_colores._Intenta
GER	SetParameter	TEXT		Steine_zu_schneiden_Versuche_alle_farbigen_Steine


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		few_shots_as_possible!_Remember_to_collect
POL	SetParameter	TEXT		ZNISZCZY_WSZYSTKIE_CEGY_W
FRE	SetParameter	TEXT		Essayez_de_dtruire_tous_les_blocs_de_couleur
ITA	SetParameter	TEXT		utilizzando_il_minor_numero_possibile_di_colpi.
SPA	SetParameter	TEXT		destruir_todos_los_bloques_de_colores
GER	SetParameter	TEXT		mit_so_wenig._Schssen_wie_mglich_abzurumen.


	SendMessage	CreateText
	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		the_weapons_from_the_crate_first!
POL	SetParameter	TEXT		JAK_NAJMNIEJSZEJ_ILOCI_STRZAW.
FRE	SetParameter	TEXT		en_un_minimum_de_tirs.
SPA	SetParameter	TEXT		con_el_menor_nmero_de_disparos_posible.
GER	SetParameter	TEXT		Denk_daran,_die_Waffe_zu_wechseln!

ENG	SendMessage	CreateText
FRE	SendMessage	CREATETEXT
SPA	SendMessage	CREATETEXT

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

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_continue_tutorial
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_KONTYNUOWA
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_CONTINUER!
ITA	SetParameter	TEXT		Premi_fuoco_per_avviare_il_tutorial
SPA	SetParameter	Text		Pulsa_el_disparo_para_continuar
GER	SetParameter	TEXT		Zum_FORTSETZEN_Feuer_drcken

	SendMessage 	CREATETEXT
EndLoop

Loop MAIN10
Do
	If R BecomesGreaterThan 15
	Then
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Lifetime	0	0	1.0	0
		SetParameter	Position	0	30	0	0
ITA		SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA		SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA		SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA		SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA		SetParameter	Scale5		0.6	0.6	0.6	0.0

SPA		SetParameter	Scale1		0.1	0.1	0.1	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

		SetParameter	Text	REMEMBER_TO_CHANGE
POL		SetParameter	TEXT	PAMITAJ,_ABY_ZMIENIA_BRO!
FRE		SetParameter	TEXT	N'oubliez_pas_de			
ITA		SetParameter	TEXT	Ricordati_di_cambiare_l'arma!
SPA		SetParameter	TEXT	No_olvides_cambiar_tu_arma!
GER		SetParameter	TEXT	Denk_daran,_die_Waffe_zu_wechseln!


		SendMessage	CREATETEXT
		SetParameter	Position	0	0	0	0
ENG		SetParameter	Text	YOUR_WEAPON!
ENG		SendMessage	CREATETEXT
FRE		SetParameter	TEXT	changer_d'arme!
FRE		SendMessage	CREATETEXT

		Set A to 1
		Set T to 0
	EndIf

	If F BecomesLessThan 5
	Then
		GosubLoop TEXT
		Set J to 1
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		GotoLoop ADVANCE1
	EndIf

	If T BecomesGreaterThan 4
	Then
		Set A to 2
	EndIf

	If T BecomesGreaterThan 7
	Then
		Set A to 3
	EndIf

	If T BecomesGreaterThan 10
	Then
		Set A to 5
	EndIf

	GosubLoop ANIMATION7
	GosubLoop CLOCK

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop ANIMATION7
Do
	OnMessage TIMER1
	Do
		If A IsEqualTo 1
		Then
			SetParameter	Scale1		0.1	0.1	0.1	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		CENTRE
			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.4	0
			SetParameter	Position	-282.0	-63.0	0	0
			SetParameter	Text		HERE
POL			SetParameter	TEXT		HERE
FRE			SetParameter	TEXT		ICI
ITA			SetParameter	TEXT		QUI
SPA			SetParameter	TEXT		AQU
GER			SetParameter	TEXT		HIER


			SendMessage	CREATETEXT

			SetParameter	Position	-303.0	-93.0	0	0
			SetParameter	Orientation	0	0	3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			Add 1 to T
		EndIf

		If A IsEqualTo 2
		Then
			SetParameter	Scale1		0.1	0.1	0.1	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		CENTRE
			SetParameter	Lifetime	0	0	0.4	0
			SetParameter	Colour2		0.6	0.65	0.0	1.0
			SetParameter	Colour3		0.6	0.65	0.0	1.0
			SetParameter	Position	-275.0	-75.0	0	0
			SetParameter	Orientation	0	0	1.3	0
			SetParameter	FRAME		1
			SendMessage	CREATEICON

			SetParameter	Position	-240.0	-50.0	0	0
			SetParameter	Text		55_degrees
POL			SetParameter	TEXT		55_STOPNI
FRE			SetParameter	TEXT		55_degrs
ITA			SetParameter	TEXT		55_gradi
SPA			SetParameter	TEXT		55_grados
GER			SetParameter	TEXT		55_Grad


			SendMessage	CREATETEXT

			Add 1 to T
		EndIf

		If A IsEqualTo 3
		Then
			SetParameter	Scale1		0.1	0.1	0.1	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		CENTRE
			SetParameter	Lifetime	0	0	0.4	0
			SetParameter	Colour2		0.91	0.21	0.0	1.0
			SetParameter	Colour3		0.91	0.21	0.0	1.0
			SetParameter	Position	0.0	10.0	0	0

			SetParameter	Text		FIRE_AWAY!
POL			SetParameter	TEXT		100%_MOCY
FRE			SetParameter	TEXT		100%_PUISSANCE
ITA			SetParameter	TEXT		100%_di_potenza
SPA			SetParameter	TEXT		100%_POTENCIA
GER			SetParameter	TEXT		100%_STRKE


			SendMessage	CREATETEXT

			Add 1 to T
		EndIf
	EndResponse
EndLoop

Loop CHECK8
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF8
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		Set A to 0
		Set T to 0
		Set G to 0
		Set Y to 0
		Set K to 0
		Set R to 0
		Set B to 0
		Set C to 50

		Set U to 59
		Set I to 1

		Set L to 0

		SetParameter	TEXT	tut45.wbw
		SendMessage	LOADWEAPONLIST
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON
		SendMessage	EMPTYSPECIALWEAPONS
		GotoLoop MAIN11
	EndResponse
EndLoop

Loop BRIEF8
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN
	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

POL	SetParameter	Scale1		0.1	0.1	0.1	0.0
POL	SetParameter	Scale2		0.7	0.7	0.7	0.0
POL	SetParameter	Scale3		0.7	0.7	0.7	0.0
POL	SetParameter	Scale4		0.7	0.7	0.7	0.0
POL	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

GER	SetParameter	Scale1		0.1	0.1	0.1	0.0
GER	SetParameter	Scale2		0.6	0.6	0.6	0.0
GER	SetParameter	Scale3		0.6	0.6	0.6	0.0
GER	SetParameter	Scale4		0.6	0.6	0.6	0.0
GER	SetParameter	Scale5		0.6	0.6	0.6	0.0

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		The_grenade_is_fired_like_the_bazooka!
POL	SetParameter	TEXT		GRANAT_WYSTRZELIWYWANY_JEST_PODOBNIE_JAK_BAZOOKA,
FRE	SetParameter	TEXT		La_grenade_s'utilise_comme_le_bazooka,
ITA	SetParameter	TEXT		Le_granate_vengono_lanciate_come_il_bazooka,
SPA	SetParameter	TEXT		Las_granadas_se_disparan_del_mismo_modo_que_el_bazooka,
GER	SetParameter	TEXT		Die_Granate_wird_wie_die_Bazooka_benutzt,_mit


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		The_user_is_able_to_detonate_the_grenade
POL	SetParameter	TEXT		Z_JEDN_TYLKO_R_NIC._ZAMIAST_WYBUCHA_PODCZAS
FRE	SetParameter	TEXT		_une_diffrence_prs._Au_lieu_de_la_faire
ITA	SetParameter	TEXT		ma_con_una_differenza:_queste_non_esplodono
SPA	SetParameter	TEXT		con_una_nica_diferencia._En_lugar_de_dejar_que_la_granada
GER	SetParameter	TEXT		einem_Unterschied._Statt_beim_Aufprall_zu_explodieren



	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		once_launched_by_pressing_fire!_The
POL	SetParameter	TEXT		ZETKNICIA_Z_CELEM,_GRACZ_MO_E_GO_ZDETONOWA
FRE	SetParameter	TEXT		exploser__l'impact,_vous_pouvez_la_faire
ITA	SetParameter	TEXT		premere_nuovamente_il_tasto_di_fuoco_per_farle
SPA	SetParameter	TEXT		explote_al_contacto_con_los_bloques,_el_jugador_puede
GER	SetParameter	TEXT		wird_die_Granate_vom_Benutzer_ferngezndet,_indem_er


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		grenade_does_not_destroy_the_blocks,_it
POL	SetParameter	TEXT		WCISKAJC_KLAWISZ_STRZAU_PO_RAZ_DRUGI.
FRE	SetParameter	TEXT		exploser_en_appuyant_une_seconde_fois_sur
ITA	SetParameter	TEXT		detonare._Inoltre,_le_granate_non_distruggono_i
SPA	SetParameter	TEXT		detonarla_presionado_el_disparo
GER	SetParameter	TEXT		ein_zweites_Mal_auf_die_Feuer-Taste_drckt._Zerstre


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		can_only_colour_them.
POL	SetParameter	TEXT		GRANAT_NIE_NISZCZY_CEGIE._TYLKO_JE_KOLORUJE.
FRE	SetParameter	TEXT		le_bouton_de_tir._La_grenade_ne_dtruit_pas
ITA	SetParameter	TEXT		blocchi,_ma_si_limitano_a_colorarli.
SPA	SetParameter	TEXT		una_segunda_vez._Venga,_prueba_a
GER	SetParameter	TEXT		diese_farbigen_Steine!
	SendMessage	CreateText	

	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		Colour_those_grey_blocks!
POL	SetParameter	TEXT		POKOLORUJ_TE_SZARE_CEGY!
FRE	SetParameter	TEXT		de_blocs,_elle_ne_peut_que_les_colorer.
ITA	SetParameter	TEXT		Colora_tutti_i_blocchi_grigi!
SPA	SetParameter	TEXT		colorear_esos_bloques!
GER	SetParameter	TEXT		_


	SendMessage	CreateText

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

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_continue_tutorial
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_KONTYNUOWA
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_continuer!
ITA	SetParameter	TEXT		Premi_fuoco_per_avviare_il_tutorial
SPA	SetParameter	Text		Pulsa_el_disparo_para_continuar
GER	SetParameter	TEXT		Zum_FORTSETZEN_Feuer_drcken

	SendMessage 	CREATETEXT
EndLoop

/BANGBANG/

Loop MAIN11
Do
	If E BecomesEqualTo 0
	Then
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		Set Q to 1
		GotoLoop ADVANCE1
	EndIf

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	GosubLoop CLOCK
EndLoop

Loop CHECK9
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF9
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT

	OnMessage FIREPRESSED
	Do
		Set A to 0
		Set T to 0
		Set G to 0
		Set Y to 0
		Set K to 0
		Set R to 0

		Set L to 0

		SetParameter	TEXT	tut46.wbw
		SendMessage	LOADWEAPONLIST

		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON

		GotoLoop MAIN12
	EndResponse
EndLoop

Loop BRIEF9
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN

	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		The_dynamite_is_even_able_to_destroy
POL	SetParameter	TEXT		DYNAMIT_JEST_W_STANIE_NAWET_ZNISZCZY
FRE	SetParameter	TEXT		La_dynamite_est_mme_capable_de_dtruire
ITA	SetParameter	TEXT		Con_la_dinamite_potrai_distruggere_anche_i
SPA	SetParameter	TEXT		La_dinamita_es_capaz_de_destruir
GER	SetParameter	TEXT		Das_Dynamit_kann_sogar_die_Ankersteine_


	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		the_anchor_blocks!_It_is_fired_like_the
POL	SetParameter	TEXT		TRZYMACZE._WYSTRZELIWUJE_SI_GO
FRE	SetParameter	TEXT		les_blocs_d'ancrage!_Elle_s'utilise_comme
ITA	SetParameter	TEXT		blocchi_di_ancoraggio!_Viene_utilizzata_come_il
SPA	SetParameter	TEXT		hasta_los_'bloques_ancla'!_Se_dispara_como
GER	SetParameter	TEXT		zerstren!_Es_wird_wie_die_Bazookamunition


	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		bazooka,_when_it_makes_contact_with_the
POL	SetParameter	TEXT		JAK_BAZOOK._PRZYKLEJA_SI_ON_DO
FRE	SetParameter	TEXT		le_bazooka._Quand_elle_entre_en_contact
ITA	SetParameter	TEXT		bazooka,_ma_quando_colpisce_un_blocco,_rester
SPA	SetParameter	TEXT		el_bazooka_y_cuando_entra_en_contacto_con
GER	SetParameter	TEXT		verschossen,_bleibt_bei_Kontakt_aber_am


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		blocks_it_will_stick_to_them!_It_has_a
POL	SetParameter	TEXT		CEGIE._NIE_BAW_SI_NIM_ZA_DUGO,
FRE	SetParameter	TEXT		avec_les_blocs,_elle_ne_les_lche_pas!_Le
ITA	SetParameter	TEXT		attaccata_a_esso!_Ricorda_che_ha_una_miccia
SPA	SetParameter	TEXT		los_bloques_se_queda_pegada_a_ellos._Explota
GER	SetParameter	TEXT		getroffenen_Stein_haften!_Der_Znder_ist


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		five_second_fuse_so_don't_hold_it_for
POL	SetParameter	TEXT		BO_POSIADA_TYLKO_5-CIO_SEKUNDOWY_LONT.
FRE	SetParameter	TEXT		dtonateur_s'enclenche_au_bout_de_5_secondes.
ITA	SetParameter	TEXT		di_soli_cinque_secondi,_per_cui_non_aspettare
SPA	SetParameter	TEXT		al_cabo_de_cinco_segundos,_as_que_procura_no_tenerla
GER	SetParameter	TEXT		auf_fnf_Sekunden_eingestellt,_also_halt


	SendMessage	CreateText
	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		too_long!_Destroy_the_blocks!
POL	SetParameter	TEXT		ZNISZCZ_CEGY.
FRE	SetParameter	TEXT		Faites_vite_et_dtruisez_les_blocs!
ITA	SetParameter	TEXT		troppo_prima_di_lanciarla!_Distruggi_tutti_i_blocchi!
SPA	SetParameter	TEXT		demasiado_tiempo_entre_las_manos!_Destruye_los_bloques!
GER	SetParameter	TEXT		es_nicht_zu_lange_fest!_Zerstre_die_Steine!
	SendMessage	CreateText

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

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	0.0
	SetParameter	Position	0.0	-115.0	0.0	0.0

	SetParameter	Text		Press_fire_to_continue_tutorial
POL	SetParameter	TEXT		NACINIJ_STRZA,_ABY_KONTYNUOWA
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_continuer!
ITA	SetParameter	TEXT		Premi_fuoco_per_avviare_il_tutorial
SPA	SetParameter	Text		Pulsa_el_disparo_para_continuar
GER	SetParameter	TEXT		Zum_Fortsetzen_Feuer_drcken
	SendMessage 	CREATETEXT
EndLoop

Loop MAIN12
Do
	If B IsEqualTo 0
	Then
		SendMessage	STARTBRIEFING
		SendMessage	FIRINGOFF
		SetParameter	TEXT	tut43.wbw
		SendMessage	LOADWEAPONLIST
		SetParameter	TEXT	tut4.wbw
		SendMessage	LOADWEAPONLIST
		Set Q to 0
		GotoLoop CHECK10
	EndIf

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop CHECK10
Do
	OnMessage TIMER5
	Do
		GosubLoop	BRIEF10
	EndResponse

	OnMessage FIREPRESSED
	Do
		SendMessage	WINCONDITION
		GotoLoop	INFINITE
	EndResponse

	SetParameter	Position	0	-150	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop BRIEF10
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	1.0	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		HOW_TO_USE_THE_WEAPONS
POL	SetParameter 	TEXT		JAK_OBSUGIWA_Z_BRO
FRE	SetParameter	TEXT		COMMENT_UTILISER_LES_ARMES
ITA	SetParameter	TEXT		COME_UTILIZZARE_LE_ARMI
SPA	SetParameter	TEXT		CMO_UTILIZAR_LAS_ARMAS
GER	SetParameter	TEXT		DIE_BENUTZUNG_DER_WAFFEN

	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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

ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0

FRE	SetParameter	Scale1		0.1	0.1	0.1	0.0
FRE	SetParameter	Scale2		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale3		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale4		0.7	0.7	0.7	0.0
FRE	SetParameter	Scale5		0.7	0.7	0.7	0.0

SPA	SetParameter	Scale1		0.1	0.1	0.1	0.0
SPA	SetParameter	Scale2		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale3		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale4		0.6	0.6	0.6	0.0
SPA	SetParameter	Scale5		0.6	0.6	0.6	0.0

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		Well_done!_You've_completed_the_weapons
POL	SetParameter	Text		DOBRA_ROBOTA._UKOCZYE_SAMOUCZEK
FRE	SetParameter	TEXT		Bien_jou!_Vous_avez_termin_le_didacticiel
ITA	SetParameter	TEXT		Perfetto!_Hai_completato_il_tutorial_sulle
SPA	SetParameter	TEXT		Bien_hecho!_Has_terminado_el_tutorial_sobre
GER	SetParameter	TEXT		Gut_gemacht!_Du_hast_das_Waffentraining

	SendMessage	CreateText
	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		tutorial._What_you've_learnt_here_of
POL	SetParameter	Text		STRZELECKI._TO_CZEGO_SI_NAUCZYE_TO
FRE	SetParameter	TEXT		des_armes._Bien_sr,_ce_que_vous_avez_appris
ITA	SetParameter	TEXT		armi!_Adesso_hai_imparato_le_operazioni
SPA	SetParameter	TEXT		las_armas._Lo_que_acabas_de_aprender
GER	SetParameter	TEXT		beendet._In_diesem_Tutorial_hast_du_nur_die

	SendMessage	CreateText
	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		course_is_only_very_basic_and_the_best
POL	SetParameter	Text		OCZYWICIE_PODSTAWY,_NATOMIAST
FRE	SetParameter	TEXT		reste_sommaire_et_la_meilleure_faon_de_progresser
ITA	SetParameter	TEXT		basilari,_ma_ricorda_che_il_modo_migliore
SPA	SetParameter	TEXT		es_una_mera_base_terica..._
GER	SetParameter	TEXT		groben_Grundlagen_gelernt._Der_beste_Weg


	SendMessage	CreateText
	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		way_to_learn_is_through_playing!
POL	SetParameter	Text		TYLKO_PRAKTYKA_CZYNI_MISTRZA.
FRE	SetParameter	TEXT		est_de_jouer._Entranez-vous_en_essayant
ITA	SetParameter	TEXT		per_diventare_un_esperto__la_pratica!_Allenati
SPA	SetParameter	TEXT		PERO_la_mejor_manera_de_aprender_es_jugar!
GER	SetParameter	TEXT		mehr_zu_lernen_ist_zu_spielen!_be_in_einigen


	SendMessage	CreateText
	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		Try_practising_in_some_of_the_game
POL	SetParameter	Text		POWICZ_W_INNYCH_TRYBACH_GRY._POWODZENIA!
FRE	SetParameter	TEXT		plusieurs_modes_de_jeu._Bonne_chance!
ITA	SetParameter	TEXT		nelle_varie_modalit_di_gioco_e_buona_fortuna!
SPA	SetParameter	TEXT		Practica_en_algunos_de_los_modos_del_juego._
GER	SetParameter	TEXT		der_verschiedenen_Spielmodi!_Viel_Glck!


	SendMessage	CreateText
	SetParameter	Position	0.0	-65.0	0.0	0.0
ENG	SetParameter	Text		modes!_Good_luck!
SPA	SetParameter	TEXT		Buena_suerte!
		
ENG	SendMessage	CreateText
SPA	SendMessage	CreateText

	If Q IsEqualTo 0
	Then
		SetParameter	Colour1		1.0	0.0	0.0	1.0
		SetParameter	Colour2		1.0	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.0	0.0	1.0
		SetParameter	Scale1		0.1	0.1	0.1	0.0
		SetParameter	Scale2		0.7	0.7	0.7	0.0
		SetParameter	Scale3		0.7	0.7	0.7	0.0
		SetParameter	Scale4		0.7	0.7	0.7	0.0
		SetParameter	Scale5		0.7	0.7	0.7	0.0
		SetParameter	Position	0.0	-115.0	0.0	0.0
		SetParameter	Text		Press_fire_to_continue
POL		SetParameter	Text		NACINIJ_STRZA,_ABY_KONTYNUOWA
FRE		SetParameter	TEXT		Appuyez_sur_Tir_pour_continuer!
ITA		SetParameter	TEXT		Premi_fuoco_per_continuare.
SPA		SetParameter	Text		Pulsa_el_disparo_para_continuar
GER		SetParameter	TEXT		Zum_Fortsetzen_Feuer_drcken
		SendMessage 	CREATETEXT
	EndIf
EndLoop

/these loops advance the screen/
Loop ADVANCE1
Do
	If N IsEqualTo 1
	Then
		Set J to 1
		Set N to 50
	EndIf

	SetParameter	Position	0.0 	0.0 	1.0 	0.0
	SetParameter	BlockColour	ALLCOLOURS
	SendMessage	CLEARBLOCKS
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0500
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer
	SendMessage	EMPTYSPECIALWEAPONS
	GotoLoop ADVANCE2
EndLoop

Loop ADVANCE2
Do
	OnMessage TIMER2
	Do
			GotoLoop ADVANCE3
	EndResponse
EndLoop

Loop ADVANCE3
Do
	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed
	set H to 0
	GotoLoop ADVANCE4
EndLoop

Loop ADVANCE4
Do
	If H IsEqualTo 20
	Then
		SetParameter	INTERVAL	100000
		SendMessage	SetLandSpeed

		If C IsEqualTo 1
		Then
			GotoLoop MAIN1
		EndIf

		If C IsEqualTo 2
		Then
			SetParameter	TEXT	tut41.wbw
			SendMessage	LOADWEAPONLIST

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			SendMessage	STARTBRIEFING
			SendMessage	FIRINGOFF
			GotoLoop CHECK2
		EndIf

		If C IsEqualTo 3
		Then
			GotoLoop MAIN2
		EndIf

		If C IsEqualTo 4
		Then
			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			Set A to 1
			Set T to 0
			GotoLoop MAIN3
		EndIf

		If C IsEqualTo 5
		Then
			Set A to 1
			Set T to 0
			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			GotoLoop MAIN4
		EndIf

		If C IsEqualTo 6
		Then
			SetParameter	TEXT	tut42.wbw
			SendMessage	LOADWEAPONLIST

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			SendMessage	STARTBRIEFING
			SendMessage	FIRINGOFF

			Set A to 0
			Set T to 0
			GotoLoop CHECK3
		EndIf

		If C IsEqualTo 7
		Then
			Set G to 0

			Set A to 0
			Set T to 0
			Set Y to 0

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			GotoLoop MAIN6
		EndIf

		If C IsEqualTo 8
		Then
			Set G to 0

			Set A to 0
			Set T to 0
			Set Y to 0

			SetParameter	TEXT	tut43.wbw
			SendMessage	LOADWEAPONLIST

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			SendMessage	STARTBRIEFING
			SendMessage	FIRINGOFF

			GotoLoop CHECK4
		EndIf

		If C IsEqualTo 9
		Then
			Set R to 0
			Set Y to 0
			Set P to 0

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			SendMessage	STARTBRIEFING
			SendMessage	FIRINGOFF

			GotoLoop CHECK5
		EndIf

		If C IsEqualTo 10
		Then
			Set R to 0
			Set Y to 0
			Set P to 0

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			SendMessage	STARTBRIEFING
			SendMessage	FIRINGOFF

			GotoLoop CHECK6
		EndIf

		If C IsEqualTo 11
		Then
			Set R to 0
			Set Y to 0
			Set P to 0

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			SendMessage	STARTBRIEFING
			SendMessage	FIRINGOFF

			GotoLoop CHECK7
		EndIf

		If J IsEqualTo 1
		Then
			Set R to 0
			Set Y to 0
			Set P to 0

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			SendMessage	STARTBRIEFING
			SendMessage	FIRINGOFF

			GotoLoop CHECK8
		EndIf

		If Q IsEqualTo 1
		Then
			Set R to 0
			Set Y to 0
			Set P to 0

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT
			SendMessage	STARTBRIEFING
			SendMessage	FIRINGOFF

			GotoLoop CHECK9
		EndIf
	EndIf
EndLoop

/this loop is the clock/

Loop CLOCK
Do
	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale2		1.0	1.0	1.0	1.0
	SetParameter	Scale3		1.0	1.0	1.0	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		1.0	1.0	1.0	1.0
	SetParameter	FRAME		3
	SetParameter	Orientation	0	0	0	0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	180.0	210.0	0.0	0.0
	SendMessage	CREATEICON

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

	OnMessage TIMER5
	Do

	If O IsEqualTo 1
	Then
		SetParameter	JUSTIFY CENTRE
		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	1	0
		SetParameter	Text	#
		SetParameter	Position	-26.0	-210.0	0.0	0.0
		SendMessage	CREATETEXT

		SetParameter	Position	-3.0	-210.0	0.0	0.0
		SetParameter    Score   L
       		SetParameter    Digits  3
       		SendMessage     CREATESCORE
	EndIf
		SetParameter	Justify	Centre

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

			Subtract 1 from U
			SetParameter	Lifetime	0.0	0.0	1.0	0.0
			SetParameter	Position	245.0	210.0	0.0	0.0
				If U IsLessThan 10
				Then
					SetParameter	Text		0
					SetParameter	Position	245.0	210.0	0.0	0.0
					SendMessage	CREATETEXT
					SetParameter	Position	260.0	210.0	0.0	0.0
				EndIf
			ConvertToText   U
			SendMessage	CREATETEXT
			ConvertToText	I
			SetParameter	Position	215.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

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

	If I IsLessThan 1
	Then
		If C IsEqualTo 9
		Then
			If U BecomesLessThan 60
			Then
				SetParameter	Justify		Centre
				SetParameter	Position	340.0	0.0	0.0	0.0
				SetParameter	Lifetime	0.2	0.5	2.5	0.5
				SetParameter	Velocity	-0.4	0.0	0.0	0.0
				SetParameter	Scale1		2.0	2.0	2.0	0.0
				SetParameter	Scale2		3.0	3.0	3.0	0.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	Text		TAKE_YOUR_TIME!
POL				SetParameter	TEXT		NIE_PIESZ_SI!
FRE				SetParameter	TEXT		Prenez_votre_temps!
ITA				SetParameter	TEXT		Cerca_di_capire_come_si_fa!
SPA				SetParameter	TEXT		Tmate_tu_tiempo!
GER				SetParameter	TEXT		Lass_dir_Zeit!


				SendMessage	CREATETEXT
				SetParameter	Lifetime	0.0	0.0	1.0	0.0
				SetParameter	Velocity	0.0	0.0	0.0	0.0
				SetParameter	Colour2		0.0	1.0	0.0	1.0
				SetParameter	Colour3		0.0	1.0	0.0	1.0
			EndIf
		EndIf

		If C IsEqualTo 11
		Then
			If U BecomesLessThan 20
			Then
				SetParameter	Justify		Centre
				SetParameter	Position	340.0	0.0	0.0	0.0
				SetParameter	Lifetime	0.2	0.5	2.5	0.5
				SetParameter	Velocity	-0.4	0.0	0.0	0.0
				SetParameter	Scale1		2.0	2.0	2.0	0.0
				SetParameter	Scale2		3.0	3.0	3.0	0.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	Text		NOT_EASY_IS_IT?
POL				SetParameter	TEXT		NIE_TAK_ATWO,_CO?
FRE				SetParameter	TEXT		Pas_facile,_non?
ITA				SetParameter	TEXT		Non__facile,_vero?
SPA				SetParameter	TEXT		No_es_tan_fcil,_eh?
GER				SetParameter	TEXT		Nicht_einfach,_oder?


				SendMessage	CREATETEXT
				SetParameter	Lifetime	0.0	0.0	1.0	0.0
				SetParameter	Velocity	0.0	0.0	0.0	0.0
				SetParameter	Colour2		0.0	1.0	0.0	1.0
				SetParameter	Colour3		0.0	1.0	0.0	1.0
				Set C to 11
			EndIf
		EndIf

		If C IsEqualTo 12
		Then
			If I IsLessThan 1
			Then
				If U BecomesLessThan 30
				Then
					SetParameter	Justify		Centre
					SetParameter	Position	340.0	0.0	0.0	0.0
					SetParameter	Lifetime	0.2	0.5	2.5	0.5
					SetParameter	Velocity	-0.4	0.0	0.0	0.0
					SetParameter	Scale1		2.0	2.0	2.0	0.0
					SetParameter	Scale2		3.0	3.0	3.0	0.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	Text		TIME_IS_TICKING_AWAY!
POL					SetParameter	TEXT		A_CZAS_SOBIE_PYNIE!
FRE					SetParameter	TEXT		Le_temps_diminue!
ITA					SetParameter	TEXT		Il_tempo_sta_passando!
SPA					SetParameter	TEXT		Se_te_acaba_el_tiempo!
GER					SetParameter	TEXT		Die_Zeit_luft_dir_davon!


					SendMessage	CREATETEXT
					SetParameter	Lifetime	0.0	0.0	1.0	0.0
					SetParameter	Velocity	0.0	0.0	0.0	0.0
					SetParameter	Colour2		0.0	1.0	0.0	1.0
					SetParameter	Colour3		0.0	1.0	0.0	1.0
				EndIf
			EndIf
		EndIf
	EndIf

	If I IsLessThan 0
	Then
		If C IsEqualTo 9
		Then
			SetParameter	Scale1		0.1	0.1	0.1	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	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	30	0	0
			SetParameter	Lifetime	0	0	1.0	0
			SetParameter	Text	YOU_NEED_MORE_PRACTICE!
POL			SetParameter	TEXT	MUSISZ_TROCH_POWICZY!
FRE			SetParameter	TEXT	Vous_devez_vous_entraner_plus!
ITA			SetParameter	TEXT	Devi_fare_pi_pratica!
SPA			SetParameter	TEXT	Tienes_que_practicar_ms!
GER			SetParameter	TEXT	Du_musst_mehr_ben!


			SendMessage	CREATETEXT
			Set C to 10

			SendMessage	UNPAUSELANDLEFT
			SendMessage	UNPAUSELANDRIGHT
			GotoLoop ADVANCE1
		EndIf

		If N IsEqualTo 1
		Then
			SetParameter	Scale1		0.1	0.1	0.1	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	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
			SetParameter	Lifetime	0	0	1.0	0
			SetParameter	Text	YOU_NEED_MORE_PRACTICE!
POL			SetParameter	TEXT	MUSISZ_TROCH_POWICZY!
FRE			SetParameter	TEXT	Vous_devez_vous_entraner_plus!
ITA			SetParameter	TEXT	Devi_fare_pi_pratica!
SPA			SetParameter	TEXT	Tienes_que_practicar_ms!
GER			SetParameter	TEXT	Du_musst_mehr_ben!
			SendMessage	CREATETEXT
			/Set J to 0/


			SendMessage	UNPAUSELANDLEFT
			SendMessage	UNPAUSELANDRIGHT
			GotoLoop ADVANCE1
		EndIf

		If J IsEqualTo 1
		Then
			SetParameter	Scale1		0.1	0.1	0.1	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	Colour2		1.0	1.0	1.0	1.0
			SetParameter	Colour3		1.0	1.0	1.0	1.0
			SetParameter	Position	0	-30	0	0
			SetParameter	Lifetime	0	0	1.0	0
			SetParameter	Text	YOU_NEED_MORE_PRACTICE!
POL			SetParameter	TEXT	MUSISZ_TROCH_POWICZY!
FRE			SetParameter	TEXT	Vous_devez_vous_entraner_plus!
ITA			SetParameter	TEXT	Devi_fare_pi_pratica!
SPA			SetParameter	TEXT	Tienes_que_practicar_ms!
GER			SetParameter	TEXT		Du_musst_mehr_ben!
			SendMessage	CREATETEXT
			Set Q to 1

			SendMessage	UNPAUSELANDLEFT
			SendMessage	UNPAUSELANDRIGHT
			GotoLoop ADVANCE1
		EndIf
	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
	EndResponse
EndLoop

/this loop selects random text to display after making a shot/
Loop TEXT
Do
	Randomise K from 1 to 5

	If K IsEqualTo 1
	Then
		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
		SetParameter	Lifetime	0	0	0.7	0
		SetParameter	Text	THAT'S_IT!
POL		SetParameter	TEXT	NO_WANIE!
FRE		SetParameter	TEXT	C'EST_CELA!
ITA		SetParameter	TEXT	OK!
SPA		SetParameter	TEXT	ESO_ES!
GER	SetParameter	TEXT		DAS_WAR'S!

		SendMessage	CREATETEXT
	EndIf

	If K IsEqualTo 2
	Then
		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
		SetParameter	Lifetime	0	0	0.7	0
		SetParameter	Text	NO_PROBLEM!
POL		SetParameter	TEXT	NIE_MA_PROBLEMU!
FRE		SetParameter	TEXT	PAS_DE_PROBLME!
ITA		SetParameter	TEXT	NESSUN_PROBLEMA!
SPA		SetParameter	TEXT	VAS_BIEN!
GER	SetParameter	TEXT		KEIN_PROBLEM!


		SendMessage	CREATETEXT
	EndIf

	If K IsEqualTo 3
	Then
		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
		SetParameter	Lifetime	0	0	0.7	0
		SetParameter	Text	GREAT_SHOT!
POL		SetParameter	TEXT	WIETNY_STRZA!
FRE		SetParameter	TEXT	JOLI_TIR!
ITA		SetParameter	TEXT	OTTIMO_COLPO!
SPA		SetParameter	TEXT	BUEN_DISPARO!
GER		SetParameter	TEXT	TOLLER_SCHUSS!
	

		SendMessage	CREATETEXT
	EndIf

	If K IsEqualTo 4
	Then
		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
		SetParameter	Lifetime	0	0	0.7	0
		SetParameter	Text	EASY_PEASY!
POL		SetParameter	TEXT	ATWIZNA!
FRE		SetParameter	TEXT	C'EST_UN_JEU_D'ENFANT!
ITA		SetParameter	TEXT	VACCI_PIANO!
SPA		SetParameter	TEXT	TRANQUI,_TRONCO!
GER	SetParameter	TEXT	PILLE_PALLE!


		SendMessage	CREATETEXT
	EndIf

	If K IsEqualTo 5
	Then
		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
		SetParameter	Lifetime	0	0	0.7	0
		SetParameter	Text	YOU_MAKE_IT_LOOK_EASY!
POL		SetParameter	TEXT	DLA_CIEBIE_TO_ZBYT_ATWE!
FRE		SetParameter	TEXT	ON_DIRAIT_QUE_C'EST_FACILE?
ITA		SetParameter	TEXT	FACILE,_VERO?
SPA		SetParameter	TEXT	PARECE_FCIL!
GER		SetParameter	TEXT	BEI_DIR_SIEHT_DAS_EINFACH_AUS!
		SendMessage	CREATETEXT
	EndIf
EndLoop

Loop INFINITE
Do
EndLoop

EndFile

