GameMode	starry
GameType	QUEST
	

Program0123

COLLECTSTARCOUNTER		S
WaterHeightCounter		H
DESTROYOWNSTARCOUNTER	V
DESTROYENEMYSTARCOUNTER	V
LivesRemaining02Counter		Q





TEXTBUFFER      LEVS                    


        starry.wbl


ENDBUFFER





Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP12
	SendMessage	SETBACKDROP

	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                20             
        SendMessage     LOADLEVEL

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
		SetParameter	LIVES	0
	SendMessage	SETLIVES
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1450
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	2000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SET G To 1000
	SET O To 1000
	SET R To 1000	
	SET S To 0
	SET V To 0	
SetParameter    TEXT    starry.wbw
SendMessage     LOADWEAPONLIST


	SendMessage     MUSIC_GROOVE_LOW

	

	SendMessage	FIRINGOFF
	SendMessage StartBriefing
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		STARRY_NIGHTS
FRE	SetParameter	Text		NUITS_TOILES
ITA	SetParameter	TEXT		NOTTI_STELLATE
SPA	SetParameter	TEXT		NOCHES_ESTRELLADAS
GER	SetParameter	TEXT		STERNENNCHTE
POL	SetParameter	TEXT		Gwiedzista_noc


	SendMessage 	CREATETEXT

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

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	115.0	0.0	0.0
	SetParameter	Text		Collect_80_Stars
FRE	SetParameter	Text		Rcuprez_80_toiles
ITA 	SetParameter	TEXT		Raccogli_80_stelle,
SPA	SetParameter	TEXT		Consigue_80_estrellas
GER	SetParameter	TEXT		Sammle_80_Sterne.
POL	SetParameter	TEXT		Zbierz_80_gwiazdek.


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		But_watch_out_for
FRE	SetParameter	Text		Mais_attention
ITA	SetParameter	TEXT		ma_stai_attento
SPA	SetParameter	TEXT		y_vigila_el_nivel
GER	SetParameter	TEXT		Sei_aber_vorsichtig
POL	SetParameter	TEXT		Musisz_jednak_uwaa


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		the_water
FRE	SetParameter	Text		_l'eau.
ITA	SetParameter	TEXT		all'acqua!
SPA	SetParameter	TEXT		del_agua.
GER	SetParameter	TEXT		mit_dem_Wasser.
POL	SetParameter	TEXT		na_wod.

	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_drcken
POL	SetParameter	TEXT		Nacinij_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	
		GotoLoop MAIN
		
	EndResponse
EndLoop



Loop MAIN
Do

	If Q BecomesEqualTo -1
	Then
SetParameter	Position	0.0	0.0	0.0	0.0
SetParameter	Scale1		8.0	8.0	8.0	1.0
SetParameter	Scale2		5.0	5.0	5.0	1.0
SetParameter	Scale4		3.0	3.0	3.0	1.0
SetParameter	Colour1		1.0	0.22	0.07	1.0
SetParameter	Colour2		1.0	0.22	0.07	1.0
SetParameter	Colour3		1.0	0.22	0.07	1.0
SetParameter	Colour4		0.0	0.0	0.0	1.0
SetParameter	Colour5		0.0	0.0	0.0	1.0
SetParameter	Colour6		0.0	0.0	0.0	1.0
SetParameter	Lifetime	0.2	0.7	3.2	4.2
SetParameter	Text		FAILED!
FRE	SetParameter	Text	CHEC!
ITA	SetParameter	TEXT	HAI_FALLITO!
SPA	SetParameter	TEXT	FALLASTE!
GER	SetParameter	TEXT	VERLOREN!
POL	SetParameter	TEXT	klska
			

SendMessage	CREATETEXT
		SendMessage LOSECONDITION
		GotoLoop WIN

	EndIf
/GosubLoop WATER/











			SetParameter	Scale1		0.4	0.4	0.4	0.0
			SetParameter	Scale2		1.0	1.0	1.0	0.0

			SetParameter	Lifetime	0.0	0.0	0.0	0.0
			SetParameter	Position	135.0	195.0	0.0	0.0
			SetParameter	Text		STARS
FRE			SetParameter	Text		TOILES
ITA			SetParameter	TEXT		Stella
SPA			SetParameter	Position	120.0	195.0	0.0	0.0
SPA			SetParameter	TEXT		ESTRELLAS
GER			SetParameter	TEXT		STERNE
POL	SetParameter	TEXT	Gwiazdek

			SendMessage	CREATETEXT


			ConvertToText   S
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
			SetParameter	Position	230.0	195.0	0.0	0.0

			SetParameter	Colour2		1	1	1	1.0
			SetParameter	Colour3		1	1	1	1.0



			SendMessage	CREATETEXT




	If V BECOMESGREATERTHANOREQUALTO 8
	Then
		SetParameter	Justify		Centre
		SetParameter	Text		Too_many_stars_destroyed
FRE		SetParameter	Text		Trop_d'toiles_dtruites
ITA		SetParameter	TEXT		Hai_distrutto_troppe_stelle.
SPA		SetParameter	TEXT		Has_destruido_demasiadas_estrellas!
GER		SetParameter	TEXT		Zu_viele_Sterne_zerstrt
POL	SetParameter	TEXT	Za_duo_gwiazdek_zniszczonych

	
		SetParameter	Lifetime	0.2	0.6	4.5	6.6
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Position	0.0	50.0	0.0	0.0
		SPA	SetParameter	Scale1		0.8	0.8	0.8	0.0
		SPA	SetParameter	Scale2		0.8	0.8	0.8	0.0
		SPA	SetParameter	Scale3		0.8	0.8	0.8	0.0
		SPA	SetParameter	Scale4		0.8	0.8	0.8	0.0
		SPA	SetParameter	Scale5		0.8	0.8	0.8	0.0
		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

		SendMessage LOSECONDITION
		GotoLoop WIN
	EndIf




If H BecomesGreaterThanOrEqualTo -130
	Then

	

		
		SetParameter	Justify		Centre
		SetParameter	Position	0.0	0.0	0.0	0.0
SPA		SetParameter	Position	0.0	25.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		Water_Too_High!
FRE		SetParameter	Text		Niveau_d'eau_trop_lev!
ITA		SetParameter	TEXT		L'acqua__troppo_alta!
SPA		SetParameter	TEXT		El_nivel_del_
GER		SetParameter	Text		Wasser_zu_hoch!
POL	SetParameter	TEXT	Powd


		SendMessage	CREATETEXT

SPA		SetParameter	Position	0.0	-25.0	0.0	0.0
SPA		SetParameter	Text	agua_es_excesivo!
SPA		SendMessage	CREATETEXT


		SendMessage LOSECONDITION
		GotoLoop WIN
endif



If S BECOMESGREATERTHAN 79
	then	
	

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

SendMessage	CREATETEXT
		
	SetParameter	TEXT	swgo
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION
		GotoLoop WIN
		

	endif

If S BECOMESGREATERTHAN 40
	then	
SendMessage     MUSIC_GROOVE_MED



endif



If S BECOMESGREATERTHAN 60
	then	
SendMessage     MUSIC_GROOVE_MED



endif








OnMessage TIMER1
	Do
		Add 1 To H
		SetParameter Position	0.0	H	0.0	0.0
		SendMessage ChangeWaterHeight

	EndResponse






EndLoop

Loop WIN
Do
EndLoop


EndFile


