GameMode	eyes
GameType	QUEST
	

Program0123

COLLECTSTARCOUNTER		S
WaterHeightCounter		H
LivesRemaining02Counter		Q
DESTROYOWNSTARCOUNTER	V
DESTROYENEMYSTARCOUNTER	V




TEXTBUFFER      LEVS                    


        eyes.wbl


ENDBUFFER





Loop INIT
Do

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP7
	SendMessage	SETBACKDROP

	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                20             
        SendMessage     LOADLEVEL
	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT

		SetParameter	LIVES	0
	SendMessage	SETLIVES

	SendMessage	DEACTIVATESCORE

	SET G To 1000
	SET O To 1000
	SET R To 1000	
	SET S To 0	
	SET Q To 0
	SET V To 0

	SetParameter    TEXT    eyes.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		STARS_IN_YOUR_EYES
FRE	SetParameter	TEXT		DES_TOILES_DANS_LES_YEUX
	GER SetParameter	Text	STERNE_IN_DEINEN_AUGEN
	SPA SetParameter	Text	LAS_ESTRELLAS_DE_TUS_OJOS
	ITA SetParameter	TEXT	LE_STELLE_NEGLI_OCCHI
	POL SetParameter	TEXT	GWIAZDY_W_TWOICH_OCZACH


	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_30_Stars
FRE	SetParameter	TEXT		Rcuprez_30_toiles
	GER SetParameter	Text	Sammle_30_Sterne.
	SPA SetParameter	Text	Consigue_30_estrellas,
	ITA SetParameter	TEXT	Raccogli_30_stelle
	POL SetParameter	TEXT	Zbierz_30_gwiazdek.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		But_watch_out_for
FRE	SetParameter	TEXT		mais_faites_attention
	GER SetParameter	Text	Achte_auf_
	SPA SetParameter	Text	pero_ten_cuidado
	ITA SetParameter	TEXT 	ma_stai_attento
	POL SetParameter	TEXT	Ale_uwaaj_i_nie_wpadnij


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		the_water
FRE	SetParameter	TEXT		_l'eau.
	GER SetParameter	Text	das_Wasser!
	SPA SetParameter	Text	con_el_agua.
	ITA SetParameter	TEXT	all'acqua!
	POL SetParameter	TEXT	do_wody.



	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!
	GER SetParameter	Text	Zum_Starten_Feuer_drcken
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
	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

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1900
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	2000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER

	
		GotoLoop MAIN
		
	EndResponse

EndLoop




Loop MAIN
Do


/GosubLoop WATER/

	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!
		GER SetParameter	Text	VERLOREN!
		SPA SetParameter	Text	FALLASTE!
		ITA SetParameter	TEXT	HAI_FALLITO!
	POL SetParameter	TEXT	klska


		SendMessage	CREATETEXT
		SendMessage LOSECONDITION

	EndIf

			SetParameter	Scale1		0.4	0.4	0.4	0.0
			SetParameter	Scale2		1.0	1.0	1.0	0.0
			SetParameter	Text		STARS
FRE			SetParameter	TEXT		TOILES
			GER SetParameter	Text	STERNE
			ITA SetParameter	TEXT	STELLE
	POL SetParameter	TEXT	GWIAZDEK

	
			SPA SetParameter	Text	ESTRELLAS

			SetParameter	Lifetime	0.0	0.0	0.0	0.0
			SetParameter	Position	135.0	195.0	0.0	0.0
			SPA SetParameter	Position	115.0	195.0	0.0	0.0
			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 3
	Then
		SetParameter	Justify		Centre
		SetParameter	Text		Too_many_stars_destroyed
FRE		SetParameter	TEXT		Trop_d'toiles_dtruites
		GER SetParameter	Text	Zu_viele_Sterne_zerstrt
		ITA SetParameter	TEXT	Hai_distrutto_troppe_stelle.
		POL SetParameter	TEXT	Za_duo_gwiazdek_zniszczonych

		SetParameter	Position	0.0	0.0	0.0	0.0

		SPA SetParameter	Position	0.0	25.0	0.0	0.0

		SPA SetParameter	Text	Has_destruido


		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
		SendMessage	CREATETEXT

		SPA SetParameter	Position	0.0	-25.0	0.0	0.0
		SPA SetParameter	Text	demasiadas_estrellas!
		SPA SendMessage	CREATETEXT
		SendMessage LOSECONDITION

	EndIf



If H BecomesGreaterThanOrEqualTo -130
	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		Water_Too_High!
FRE		SetParameter	TEXT		Niveau_d'eau_trop_lev!
		GER SetParameter	Text	Wasser_zu_hoch!
		ITA SetParameter	TEXT	L'acqua__troppo_alta!
		POL SetParameter	TEXT	Woda_za_wysoko
		SPA SetParameter	Position	0.0	25.0	0.0	0.0
		SPA SetParameter	Text	El_nivel_del

		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 29
	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!
GER SetParameter	Text	GESCHAFFT!
SPA SetParameter	Text	LO_CONSEGUISTE!
ITA SetParameter	TEXT	HAI_VINTO!
POL SetParameter	TEXT	SUKCES


SendMessage	CREATETEXT
		SendMessage	WINCONDITION
		GotoLoop WIN
		

	endif

If S BECOMESGREATERTHAN 10
	then	
	SendMessage     MUSIC_GROOVE_MED
	endif




If S BECOMESGREATERTHAN 20
	then	
	SendMessage     MUSIC_GROOVE_HIGH
	endif




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

	EndResponse


			SetParameter	POSITION	1	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	2	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	5	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	6	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	9	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	10	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	13	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	14	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	17	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	18	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	21	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	22	15	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	2	14	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	6	14	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	10	14	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	14	14	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	18	14	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	22	14	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK


















EndLoop

Loop WIN
Do
EndLoop


EndFile


