GameMode	One_Line

POL	Gwiazdka_z_nieba
FRE	Une_ligne_ŕ_la_fois
SPA	Línea_a_Línea
ITA	Una_fila_per_volta
GER	Eine_Zeile

GameType	TOURNAMENT

	WaterHeightCounter		H
	LandLinesCounter		M
	BulletGoneCounter		T
	CollectStarCounter		S
	LivesRemaining02Counter		W
	LivesRemaining13Counter		W

Program0123

TEXTBUFFER	LEVS
	onel.wbl
ENDBUFFER

/ the init loop! /

Loop INIT
Do
	SendMessage	STARTBRIEFING

	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then
		Randomise A From 4 To 12
	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 	0
	SendMessage	SETBOATPOSITION

	SetParameter	INTERVAL	999999
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	16
	SendMessage	SetStartLines
	
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	160
        SendMessage     LOADLEVEL
		
	SetParameter	TEXT	onel.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0
	SetParameter	Scale1		0.4	0.4	0.4	0.0
	SetParameter	Scale2		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	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.2	0.6	4.5	1.6
	SetParameter	Justify		Centre

	SendMessage     DEACTIVATESCORE

	SendMessage	MUSIC_GROOVE_LOW

	SendMessage	FIRINGOFF
	SetParameter	TEXT	one_line
	SendMessage	SET_HIGHSCORE_TABLE
	SendMessage	QUAKENO
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT

	Set H to 0
	Set M to 0
	Set S to 0
	Set W to 0
	Set T to 0
	Set L to 0
	Set K to 0
	Set U to 15
	Set I to 0
	Set D to 0
	Set J to 0

	GotoLoop BRIEF
EndLoop

/briefing/

Loop BRIEF
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.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		ONE_AT_A_TIME
POL	SetParameter	TEXT		Gwiazdka_z_nieba
FRE	SetParameter	TEXT		Une_ligne_ŕ_la_fois
SPA	SetParameter	TEXT		Línea_a_Línea
ITA	SetParameter	TEXT		Una_fila_per_volta
GER	SetParameter	TEXT		Eine_Zeile_hintereinander.


	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	0.0
	SetParameter	Scale2		0.5	0.5	0.5	0.0
	SetParameter	Scale3		0.5	0.5	0.5	0.0
	SetParameter	Scale4		0.5	0.5	0.5	0.0
	SetParameter	Scale5		0.5	0.5	0.5	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

	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

	SetParameter	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		Everytime_you_fire_a_shot_the_blocks_will
POL	SetParameter	TEXT		ZA_KA_DYM_STRZAŁEM,_CEGŁY_OBNI_Ą,_A
FRE	SetParameter	TEXT		Ŕ_chaque_tir,_les_blocs_descendent
SPA	SetParameter	TEXT		Cada_vez_que_dispares_los_bloques_
ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale3		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale4		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale5		0.7	0.7	0.7	0.0
ITA	SetParameter	TEXT		Ogni_volta_che_spari_un_colpo_i_blocchi_scendono
GER	SetParameter	TEXT		Nach_jedem_Schuss_bewegen_sich_die_Steine


	SendMessage	CreateText

	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		drop_down_and_you_will_get_an_extra_two
POL	SetParameter	TEXT		TY_DOSTANIESZ_DWIE_SEKUNDY
FRE	SetParameter	TEXT		et_vous_obtenez_un_bonus
SPA	SetParameter	TEXT		caerán_y_conseguirás_un_par_de_segundos
ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale3		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale4		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale5		0.7	0.7	0.7	0.0
ITA	SetParameter	TEXT		e_guadagni_due_secondi_extra,_che_vanno_ad
GER	SetParameter	TEXT		eine_Reihe_nach_unten_und_du_erhältst_zwei


	SendMessage	CreateText

	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		seconds_added_to_the_clock!_You_get_100
POL	SetParameter	TEXT		EKSTRA_DO_LICZNIKA._ZA_KA_DĄ
FRE	SetParameter	TEXT		de_temps_de_deux_secondes._Chaque_ligne
SPA	SetParameter	TEXT		adicionales._Por_cada_línea_conseguirás
ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale3		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale4		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale5		0.7	0.7	0.7	0.0
ITA	SetParameter	TEXT		aggiungersi_al_totale!_Ottieni_100_punti_per
GER	SetParameter	TEXT		zusätzliche_Sekunden_Zeit!_Für_jede_Reihe


	SendMessage	CreateText

	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		points_for_each_line,_stay_alive_as_long
POL	SetParameter	TEXT		LINIĘ_OTRZYMUJESZ_100_PUNKÓW.
FRE	SetParameter	TEXT		vaut_100_points._Survivez_le_plus_longtemps
SPA	SetParameter	TEXT		100_puntos,_así_que_procura_sobrevivir
ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale3		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale4		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale5		0.7	0.7	0.7	0.0
ITA	SetParameter	TEXT		ogni_lÍnea:_cerca_di_restare_in_vita_il_piů_a_lungo
GER	SetParameter	TEXT		bekommst_du_100_Punkte,_überlebe_so_lange


	SendMessage	CreateText

	SetParameter	Position	0.0	-30.0	0.0	0.0
	SetParameter	Text		as_you_can_and_go_for_a_new_highscore!
POL	SetParameter	TEXT		STARAJ_SIĘ_UTRZYMAĆ,_JAK_NAJDŁU_EJ
FRE	SetParameter	TEXT		possible_pour_atteindre_un_gros_score.
SPA	SetParameter	TEXT		todo_lo_que_puedas_y_conseguir_
ITA	SetParameter	Scale1		0.1	0.1	0.1	0.0
ITA	SetParameter	Scale2		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale3		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale4		0.7	0.7	0.7	0.0
ITA	SetParameter	Scale5		0.7	0.7	0.7	0.0
ITA	SetParameter	TEXT		possibile_e_di_far_segnare_un_punteggio_record!
GER	SetParameter	TEXT		wie_möglich_und_sammle_neue_Highscores!
	SendMessage	CreateText

SPA	SetParameter	Position	0.0	-65.0	0.0	0.0
SPA	SetParameter	TEXT		una_buena_puntuación.

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_start
POL	SetParameter	TEXT		Naciśnij_"Strza"
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
SPA 	SetParameter	Text		Pulsa_el_disparo_para_empezar
ITA 	SetParameter	TEXT		Premi_fuoco_per_cominciare
GER	SetParameter	TEXT		Zum_Starten_Feuer_drücken

	SendMessage 	CREATETEXT

	OnMessage	FIREPRESSED
	Do
		SendMessage	FIRINGON
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT
		SendMessage	ENDBRIEFING

		SendMessage	MUSIC_GROOVE_MED_LOW

		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	1000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	Lifetime	0.0	0.0	1.0	0.0

		GotoLoop MAIN
	EndResponse
EndLoop

/ main loop /

Loop MAIN
Do
	If W IsLessThan 0
	Then
		SetParameter	Position	0.0 	0.0 	1.0 	0.0
		SetParameter	BlockColour	ALLCOLOURS
		SendMessage	CLEARBLOCKS
		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	1000
		SetParameter	REPEAT		FALSE
		SendMessage	CREATETIMER
		SendMessage	FIRINGOFF
		GotoLoop TOMWAITS
	EndIf

	If T IsGreaterThan 0
	Then
		Set T to 0
		GotoLoop TIMER
	EndIf

	GosubLoop CLOCK

	If S BecomesGreaterThan 0
	Then
		GotoLoop WIN
	EndIf

	If D BecomesGreaterThan 0
	Then
		GotoLoop LOSE
	EndIf
EndLoop

/ advance one line /

Loop TIMER
Do
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0300
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer
	GosubLoop CLOCK
	GotoLoop TIMERA
EndLoop

Loop TIMERA
Do
	OnMessage TIMER2
	Do
			GotoLoop ADVANCE
	EndResponse

	GosubLoop CLOCK
EndLoop

Loop ADVANCE
Do
	GosubLoop CLOCK

	set M to 0
	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed
	GotoLoop ADVANCE2
EndLoop

Loop ADVANCE2
Do
	If M IsEqualTo 1
	then
		Add 1 to L
		Add 100 to K
		Add 2 to U
		SetParameter	INTERVAL	999999
		SendMessage	SetLandSpeed
		GotoLoop MAIN
	endif

	GosubLoop CLOCK
EndLoop

/ clock /
Loop CLOCK
Do
	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0
	SetParameter	Justify		Right
	SetParameter	FRAME		3
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	-20.0	210.0	0.0	0.0  
	SendMessage	CREATEICON

	SetParameter	SIDE	CENTRE

	OnMessage TIMER1
	Do
		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

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

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

		Subtract 1 from U
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Position	40.0	210.0	0.0	0.0  

			If U IsLessThan 10
			Then
				SetParameter	Text		0
				SetParameter	Position	40.0	210.0	0.0	0.0
				SendMessage	CREATETEXT
				SetParameter	Position	55.0	210.0	0.0	0.0
/the above parameters set the position of the zero (and the seconds counter)/
			EndIf

		ConvertToText   U
		SendMessage	CREATETEXT
		ConvertToText	I
		SetParameter	Position	10.0	210.0	0.0	0.0
		SendMessage	CREATETEXT
/alter the above position for the MINUTES counter/

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

		If I IsLessThan 1
		Then
			If U BecomesLessThan 5
			Then
				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		HURRY_UP!!
POL				SetParameter	TEXT		Pośpiesz_się!
FRE				SetParameter	TEXT		DÉPĘCHEZ-VOUS_!!
				SPA SetParameter	Text	ˇDEPRISA!
				GER SetParameter	Text	SCHNELLER!
				ITA SetParameter	TEXT	SBRIGATI!


				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 I IsLessThan 0
		Then
			SetParameter	Position	0.0 	0.0 	1.0 	0.0
			SetParameter	BlockColour	ALLCOLOURS
			SendMessage	CLEARBLOCKS

			SetParameter	Position	0.0	0.0	0.0	0.0
			SetParameter	Scale1		8.0	8.0	8.0	1.0
			SetParameter	Scale2		5.0	5.0	5.0	1.0
			SetParameter	Scale4		3.0	3.0	3.0	1.0
			SetParameter	Colour1		1.0	0.22	0.07	1.0
			SetParameter	Colour2		1.0	0.22	0.07	1.0
			SetParameter	Colour3		1.0	0.22	0.07	1.0
			SetParameter	Colour4		0.0	0.0	0.0	1.0
			SetParameter	Colour5		0.0	0.0	0.0	1.0
			SetParameter	Colour6		0.0	0.0	0.0	1.0
			SetParameter	Lifetime	0.2	0.7	3.2	4.2
			SetParameter	Text		TIME'S_UP!
POL			SetParameter	TEXT		Czas_upłynął
FRE			SetParameter	TEXT		TEMPS_ÉCOULÉ_!
			SPA SetParameter	Text	ˇTIEMPO!
			GER SetParameter	Text	ENDE!
			ITA SetParameter	TEXT	TEMPO_ESAURITO!


			SendMessage	CREATETEXT

			SetParameter	MESSAGE_ID	TIMER3
			SetParameter	INTERVAL	4500
			SetParameter	REPEAT		FALSE
			SendMessage	CREATETIMER

			SendMessage	FIRINGOFF
			GotoLoop TOMWAITS
		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

	If U BecomesLessThan 30
	Then
			SendMessage	MUSIC_GROOVE_MED
	EndIf

	If U BecomesLessThan 20
	Then
			SendMessage	MUSIC_GROOVE_MED_HI
	EndIf

	If U BecomesLessThan 10
	Then
			SendMessage	MUSIC_GROOVE_HIGH
	EndIf

	If U BecomesGreaterThan 20
	Then
			SendMessage	MUSIC_GROOVE_MED
	EndIf

	If U BecomesGreaterThan 10
	Then
			SendMessage	MUSIC_GROOVE_MED_HI
	EndIf
EndLoop

/ this here is the end /

Loop TOMWAITS
Do
	OnMessage	TIMER3
	Do
		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	4500
		SetParameter	REPEAT		FALSE
		SendMessage	CREATETIMER

		GotoLoop ANNOUNCER
	EndResponse
EndLoop

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

	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0
	SetParameter	Colour1		0.0	0.0	0.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
	SetParameter	Scale1		0.2	0.2	0.2	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0

	SetParameter	Justify		CENTRE

	SetParameter	Colour2		0.18	0.9	0.1	1.0
	SetParameter	Colour3		0.18	0.9	0.1	1.0
	SetParameter	Colour4		1.0	1.0	1.0	1.0
	SetParameter	Text		HOW_YOU_DID!
POL	SetParameter	TEXT		Jak_idzie
FRE	SetParameter	TEXT		RÉSULTAT
SPA	SetParameter	TEXT		RESULTADOS
ITA	SetParameter	TEXT		IL_TUO_RISULTATO
GER	SetParameter	TEXT		DEIN_ERGEBNIS:



	SetParameter	Position	0.0	180.0	0.0	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	Colour4		1.0	1.0	1.0	1.0
	SetParameter	Text		YOU_MANAGED_TO_GET
POL	SetParameter	TEXT		Masz
FRE	SetParameter	TEXT		VOUS_AVEZ
SPA	SetParameter	TEXT		HAS_CONSEGUIDO
ITA	SetParameter	TEXT		I_VOSTRI_RISULTATI 
GER	SetParameter	TEXT		DU_HAST

	SetParameter	Position	0.0	110.0	0.0	0.0
	SendMessage 	CREATETEXT

	SetParameter	Text		LINES_IN_TOTAL!
POL	SetParameter	TEXT		Linii
FRE	SetParameter	TEXT		LIGNES
SPA	SetParameter	TEXT		LÍNEAS
ITA	SetParameter	TEXT		LINEE:
GER	SetParameter	TEXT		REIHEN:

	SetParameter	Position	30.0	60.0	0.0	0.0
	SendMessage	CREATETEXT

	SetParameter	Text		THAT'S
POL	SetParameter	TEXT		TO
FRE	SetParameter	TEXT		C'EST
ITA	SetParameter	TEXT		OVVERO
SPA	SetParameter	TEXT		eso_es
POL	SetParameter	TEXT		To


	SetParameter	Position	0.0	10.0	0.0	0.0
	SendMessage	CREATETEXT


	SetParameter	Colour2		0.0	1.0	0.0	1.0
	SetParameter	Colour3		0.0	1.0	0.0	1.0
	SetParameter	Colour4		0.0	1.0	0.0	1.0
	ConvertToText	L
	SetParameter	Position	-60.0	60.0	0.0	0.0
ENG	SetParameter	Position	-135.0	60.0	0.0	0.0
POL	SetParameter	Position	-50.0	60.0	0.0	0.0
	SendMessage	CREATETEXT

	SetParameter	Scale1		1.3	1.3	1.3	0.0
	SetParameter	Scale2		1.3	1.3	1.3	0.0
	SetParameter	Scale3		1.3	1.3	1.3	0.0
	SetParameter	Scale4		1.3	1.3	1.3	0.0
	SetParameter	Scale5		1.3	1.3	1.3	0.0
	SetParameter	Position	-40.0	-40.0	0.0	0.0
	SetParameter    Score   J
	SetParameter    Digits  5
	SendMessage     CREATESCORE

	If J IsNotEqualTo K
	Then
		Add 100 to J
	EndIf

	If J IsEqualTo K
	Then
		SetParameter	MESSAGE_ID	TIMER5
		SetParameter	INTERVAL	1200
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER6
		SetParameter	INTERVAL	4000
		SetParameter	REPEAT		FALSE
		SendMessage	CREATETIMER

		SetParameter    SCORE		J
		SendMessage	SET_SCORE
		GotoLoop ANNOUNCER2
	EndIf
EndLoop

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

	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0
	SetParameter	Colour1		0.0	0.0	0.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
	SetParameter	Scale1		0.2	0.2	0.2	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0

	SetParameter	Justify		CENTRE

	SetParameter	Colour2		0.18	0.9	0.1	1.0
	SetParameter	Colour3		0.18	0.9	0.1	1.0
	SetParameter	Colour4		1.0	1.0	1.0	1.0
	SetParameter	Text		HOW_YOU_DID!
POL	SetParameter	TEXT		Jak_idzie
FRE	SetParameter	TEXT		RÉSULTAT
SPA	SetParameter	TEXT		RESULTADOS
ITA	SetParameter	TEXT		IL_TUO_RISULTATO
GER	SetParameter	TEXT		DEIN_ABSCHNEIDEN

	SetParameter	Position	0.0	180.0	0.0	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	Colour4		1.0	1.0	1.0	1.0
	SetParameter	Text		YOU_MANAGED_TO_GET
POL	SetParameter	TEXT		Masz
FRE	SetParameter	TEXT		VOUS_AVEZ
SPA	SetParameter	TEXT		HAS_CONSEGUIDO
ITA	SetParameter	TEXT		I_VOSTRI_RISULTATI 
GER	SetParameter	TEXT		DU_HAST
	SetParameter	Position	0.0	110.0	0.0	0.0
	SendMessage 	CREATETEXT

	SetParameter	Text		LINES_IN_TOTAL!
POL	SetParameter	TEXT		Linii
FRE	SetParameter	TEXT		LIGNES
SPA	SetParameter	TEXT		LÍNEAS
ITA	SetParameter	TEXT		LINEE:
GER	SetParameter	TEXT		REIHEN:

	SetParameter	Position	30.0	60.0	0.0	0.0
	SendMessage	CREATETEXT

	SetParameter	Text		THAT'S
POL	SetParameter	TEXT		TO
FRE	SetParameter	TEXT		C'EST
SPA	SetParameter	TEXT		eso_es
ITA	SetParameter	TEXT		quello_č
GER	SetParameter	TEXT		das_sind
	SetParameter	Position	0.0	10.0	0.0	0.0
	SendMessage	CREATETEXT

	OnMessage TIMER5
	Do
		If D IsLessThan 3
		Then
			SetParameter	Lifetime	0.0	0.0	0.6	0.0
			SetParameter	Colour1		0.0	0.0	0.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
			SetParameter	Scale1		0.2	0.2	0.2	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	Text		POINTS_IN_TOTAL!
POL			SetParameter	TEXT		Razem_punktów
FRE			SetParameter	TEXT		Total_de_points!
SPA			SetParameter	TEXT		Puntuación_Total
ITA			SetParameter	TEXT		Punteggio_totale
GER			SetParameter	TEXT		Gesamtpunkte
			SetParameter	Position	0.0	-90.0	0.0	0.0
			SendMessage	CREATETEXT

			Add 1 to D
		EndIf
	EndResponse

	OnMessage	TIMER6
	Do
		SendMessage LOSECONDITION
	EndResponse

	If D IsEqualTo 3
	Then
		SetParameter	Text		POINTS_IN_TOTAL!
POL		SetParameter	TEXT		Razem_punktów
FRE		SetParameter	TEXT		Total_de_points!
SPA		SetParameter	TEXT		Puntuación_Total
ITA		SetParameter	TEXT		Punteggio_totale
GER		SetParameter	TEXT		Gesamtpunkte
		SetParameter	Position	0.0	-90.0	0.0	0.0
		SendMessage	CREATETEXT
	EndIf

	SetParameter	Colour2		0.0	1.0	0.0	1.0
	SetParameter	Colour3		0.0	1.0	0.0	1.0
	SetParameter	Colour4		0.0	1.0	0.0	1.0
	ConvertToText	L
	SetParameter	Position	-60.0	60.0	0.0	0.0
ENG	SetParameter	Position	-135.0	60.0	0.0	0.0
POL	SetParameter	Position	-50.0	60.0	0.0	0.0
	SendMessage	CREATETEXT

	SetParameter	Scale1		1.3	1.3	1.3	0.0
	SetParameter	Scale2		1.3	1.3	1.3	0.0
	SetParameter	Scale3		1.3	1.3	1.3	0.0
	SetParameter	Scale4		1.3	1.3	1.3	0.0
	SetParameter	Scale5		1.3	1.3	1.3	0.0
	SetParameter	Position	-40.0	-40.0	0.0	0.0
	SetParameter    Score   J
	SetParameter    Digits  5
	SendMessage     CREATESCORE


EndLoop

Loop INFINITE
Do
EndLoop
EndFile