GameMode	starg
GameType	QUEST
	RedComboCounter			C
	YellowComboCounter		D
	GreenComboCounter		E
	OrangeComboCounter		F
	PurpleComboCounter		G

	LivesRemaining02Counter		Q
	WaterHeightCounter		H

Program0123

TEXTBUFFER      LEVS                    


        starg.wbl


ENDBUFFER


Loop INIT
Do

	SendMessage	DEACTIVATESCORE
	SetParameter	NUMLINES	5
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP11
	SendMessage	SETBACKDROP


	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                20              
        SendMessage     LOADLEVEL


	SetParameter	INTERVAL	999250
	SendMessage	SetLandSpeed
SetParameter    TEXT    starg.wbw
SendMessage     LOADWEAPONLIST

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter Position	0.0	-175	0.0	0.0
	SendMessage ChangeWaterHeight

	SendMessage     MUSIC_GROOVE_LOW

	SendMessage	FIRINGOFF
	SendMessage StartBriefing
	SET X To 0
	SET Z To 30
	SET Q To 0
	SET S To 0
	SET G To 0
	Set A To 0

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION


	GotoLoop BRIEF
EndLoop




Loop BRIEF
Do





	SetParameter	Colour1		1.0	0.86	0.03	1.0
	SetParameter	Colour2		1.0	0.86	0.03	1.0
	SetParameter	Colour3		1.0	0.86	0.03	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.3	1.3	1.3	0.0
	SetParameter	Scale2		1.3	1.3	1.3	0.0
	SetParameter	Scale3		1.3	1.3	1.3	0.0
	SetParameter	Scale4		1.3	1.3	1.3	0.0
	SetParameter	Scale5		1.3	1.3	1.3	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		TARGET_SIDEBURNS
FRE	SetParameter	TEXT		PATTES_CIBLES
ITA	SetParameter	TEXT		BASETTE
SPA	SetParameter	TEXT		OBJETIVO_MASIVO
GER	SetParameter	TEXT		ZIELSCHIESSEN
POL	SetParameter	TEXT		CELUJ_w_SIDEBURNS


	SendMessage 	CREATETEXT

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

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

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	115.0	0.0	0.0
	SetParameter	Text		30_seconds_to_get_20_targets!
FRE	SetParameter	TEXT		30_secondes_pour_détruire_20_cibles!
ITA	SetParameter	TEXT		30_secondi_per_20_bersagli!
SPA	SetParameter	TEXT		¡Tienes_30_segundos_para_20_dianas!
GER	SetParameter	TEXT		30_Sekunden,_um_20_Ziele_zu_erwischen!
POL	SetParameter	TEXT		30_sekund_na_trafienie_20_celów.

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		2_extra_seconds_for_every_target
FRE	SetParameter	TEXT		2_secondes_supplémentaires_par_cible
ITA	SetParameter	TEXT		2_secondi_in_più_per_ogni
SPA	SetParameter	TEXT		Dos_segundos_extra_para_cada_diana.
GER	SetParameter	TEXT		Für_jedes_getroffene_Ziel_gibt
POL	SetParameter	TEXT		Dodatkowe_2_sekundy_za_ka¿de_trafienie.




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
ENG	SetParameter	TEXT		Good_luck!
FRE	SetParameter	TEXT		Bonne_chance!
ITA	SetParameter	TEXT		colpo_andato_a_segno
SPA	SetParameter	TEXT		¡Buena_suerte!
GER	SetParameter	TEXT		es_2_Extrasekunden.
POL	SetParameter	TEXT		___
	
	SendMessage 	CREATETEXT



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

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



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

	SPA SetParameter	Text	Pulsa_el_disparo_para_empezar
	SendMessage 	CREATETEXT

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












	OnMessage FIREPRESSED
	Do
SendMessage	MUSIC_GROOVE_MED_LOW



		SendMessage EndBriefing
		SendMessage FIRINGON

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	64000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER9
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	INTERVAL	250
	SendMessage	SetLandSpeed







	
		GotoLoop MAIN
		
	EndResponse


EndLoop



Loop MAIN
Do

	SetParameter Position	0.0	-175	0.0	0.0
	SendMessage ChangeWaterHeight
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	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 TIMER9
	Do
	

		SetParameter	Velocity	0.0	0.0	0.0	0.0


		If Z IsGreaterThan 60
		Then
			Subtract 60 From Z
			Add 1 to X
			
		EndIf

		Subtract 1 from Z

		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Position	240.0	210.0	0.0	0.0






		If Z IsLessThan 0
		Then
			Subtract 1 from X

			Set Z To 59
			
		EndIf

		If X IsEqualTo 0
		Then

			If Z IsLessThan 11
			Then

				SetParameter	Colour1		1.0	0.22	0.07	1.0
				SetParameter	Colour2		1.0	0.22	0.07	1.0
				SetParameter	Colour3		1.0	0.22	0.07	1.0
			
			EndIf

		EndIf

		If Z IsLessThan 10
		Then
			SetParameter	Text		0
			SetParameter	Position	240.0	210.0	0.0	0.0
			SendMessage	CREATETEXT
			SetParameter	Position	255.0	210.0	0.0	0.0
		EndIf

		If Z IsEqualTo 60 
		Then

			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

			Set Z TO 00
			ConvertToText   Z
			SendMessage	CREATETEXT
			
			Set Z To 60

		EndIf
		


		If X IsEqualTo -1
		Then

			Set Z To 0

			SetParameter	Scale1		0.8	0.8	0.8	0.0
			SetParameter	Scale2		0.8	0.8	0.8	0.0
			SetParameter	Scale3		0.8	0.8	0.8	0.0
			SetParameter	Scale4		0.8	0.8	0.8	0.0
			SetParameter	Scale5		0.8	0.8	0.8	0.0
			SetParameter	TEXT	0
			SetParameter	Position	240.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			SetParameter	Scale1		0.8	0.8	0.8	0.0
			SetParameter	Scale2		0.8	0.8	0.8	0.0
			SetParameter	Scale3		0.8	0.8	0.8	0.0
			SetParameter	Scale4		0.8	0.8	0.8	0.0
			SetParameter	Scale5		0.8	0.8	0.8	0.0
			SetParameter	TEXT	0
			SetParameter	Position	255.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			Set X To 0


			GotoLoop END
		EndIf


		If Z IsEqualTo 0
		Then

			If X IsEqualTo 0
			Then

		
				GotoLoop END
			EndIf		

		EndIf


		If Z IsLessThan 60
		Then

			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

			ConvertToText   Z
			SendMessage	CREATETEXT

		EndIf

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

		ConvertToText	X
		SetParameter	Position	215.0	210.0	0.0	0.0
		SendMessage	CREATETEXT


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


	EndResponse




	If Q BecomesEqualTo -1
	Then



SetParameter	Justify		Centre
SetParameter	Position	0.0	0.0	0.0	0.0
SetParameter	Scale1		8.0	8.0	8.0	1.0
SetParameter	Scale2		5.0	5.0	5.0	1.0
SetParameter	Scale4		3.0	3.0	3.0	1.0
SetParameter	Colour1		1.0	0.22	0.07	1.0
SetParameter	Colour2		1.0	0.22	0.07	1.0
SetParameter	Colour3		1.0	0.22	0.07	1.0
SetParameter	Colour4		0.0	0.0	0.0	1.0
SetParameter	Colour5		0.0	0.0	0.0	1.0
SetParameter	Colour6		0.0	0.0	0.0	1.0
SetParameter	Lifetime	0.2	0.7	3.2	4.2
SetParameter	Text		FAILED!
FRE	SetParameter	TEXT	ÉCHEC!
ITA	SetParameter	TEXT	HAI_FALLITO!
SPA	SetParameter	TEXT	¡FALLASTE!
GER	SetParameter	TEXT	VERLOREN!
POL	SetParameter	TEXT	klêska
	

SendMessage	CREATETEXT
		SendMessage LOSECONDITION

	EndIf


	If C BECOMESGreaterThan 2
	Then





		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Velocity	0.0	0.01	0.0	0.0
		SetParameter	Gravity		0.0	0.0	0.0	0.0
		SetParameter	Scale1		0.5	0.5	0.5	0.0
		SetParameter	Scale2		1.5	1.5	1.5	0.0
	
		SetParameter	Colour1		1.0	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.1	0.5	1.5	1.0
		SetParameter	Justify		Centre
		SetParameter	Text		Got_ONE
FRE		SetParameter	TEXT		Touché!
ITA		SetParameter	TEXT		Fuori_UNO
SPA		SetParameter	TEXT		¡Diana!
GER	SetParameter	TEXT	EINS_erwischt!
POL	SetParameter	TEXT	Trafi³eœ!


	
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SendMessage	CREATETEXT
		ADD 2 To Z
		ADD 1 To A	
		
		If A BECOMESGREATERTHANOREQUALTO 10
		Then


	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0


	SetParameter	Colour1		1.0	0.86	0.03	1.0
	SetParameter	Colour2		1.0	0.86	0.03	1.0
	SetParameter	Colour3		1.0	0.86	0.03	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
			SetParameter	Position	0.0	-50.0	0.0	0.0
			SetParameter	Text		Halfway!
FRE			SetParameter	TEXT		A_moitié_fait!
ITA			SetParameter	TEXT		Sei_a_metà_strada!
SPA			SetParameter	TEXT		¡Te_falta_la_mitad!
GER	SetParameter	TEXT	Hälfte_geschafft!
POL	SetParameter	TEXT	Po³owa_drogi!


			SendMessage	CREATETEXT
			SendMessage     MUSIC_GROOVE_HIGH
		SetParameter	INTERVAL	220
		SendMessage	SetLandSpeed


		EndIf






		If A BECOMESGREATERTHANOREQUALTO 15
		Then

	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0


	SetParameter	Colour1		1.0	0.86	0.03	1.0
	SetParameter	Colour2		1.0	0.86	0.03	1.0
	SetParameter	Colour3		1.0	0.86	0.03	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0

			SetParameter	Position	0.0	-50.0	0.0	0.0
			SetParameter	Text		Five_More!
FRE			SetParameter	TEXT		Plus_que_cinq_!
ITA			SetParameter	TEXT		ANCORA_5
SPA			SetParameter	TEXT		¡Faltan_5!
GER			SetParameter	TEXT		Nur_noch_5!
POL	SetParameter	TEXT	Tylko_5_do_koñca


			SendMessage	CREATETEXT
			SendMessage     MUSIC_GROOVE_HIGH
		SetParameter	INTERVAL	220
		SendMessage	SetLandSpeed


		EndIf





		If A BECOMESGREATERTHANOREQUALTO 20
		Then

SetParameter	Justify		Centre
SetParameter	Position	0.0 	0.0	0.0	0.0
SetParameter	Lifetime	0.2	0.7	3.2	4.2
SetParameter	Scale1		0.4	0.4	0.4	0.0
SetParameter	Scale2		1.4	1.4	1.4	0.0
SetParameter	Scale3		3.4	3.4	3.4	0.0
SetParameter	Scale4		2.0	2.0	2.0	0.0
SetParameter	Scale5		1.8	1.8	1.8	0.0
SetParameter	Colour1		0.18	0.9	0.1	1.0
SetParameter	Colour2		0.18	0.9	0.1	1.0
SetParameter	Colour3		0.18	0.9	0.1	1.0
SetParameter	Colour4		1.0	1.0	1.0	1.0
SetParameter	Colour5		0.0	0.0	0.0	1.0
SetParameter	Colour6		0.0	0.0	0.0	1.0
SetParameter	Text	SUCCESS!
FRE	SetParameter	TEXT	RÉUSSI!
ITA	SetParameter	TEXT	HAI_VINTO!
SPA	SetParameter	TEXT	¡LO_CONSEGUISTE!
GER	SetParameter	TEXT		GESCHAFFT!
POL	SetParameter	TEXT	SUKCES

SendMessage	CREATETEXT

		
	SetParameter	TEXT	snow
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION
			GotoLoop WIN	
		EndIf
	
	Endif
		
	OnMessage REDCOMBODONE
	Do
		Set C To 0	
	EndResponse
		



	
EndLoop

Loop WIN
Do
	
EndLoop
Loop END
Do

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


			SendMessage	CREATETEXT

			SendMessage 	LOSECONDITION
GotoLoop WIN

EndLoop

EndFile
