GameMode	jegg40
GameType	QUEST
	WaterHeightCounter			H
	LivesRemaining02Counter		Q
	TotalBlocksOnScreenCounter		T

Program0123

TEXTBUFFER      LEVS                  


	jegg40.wbl


ENDBUFFER

Loop INIT
Do

	SendMessage	DEACTIVATESCORE
SET T TO 1000
SET Z TO 60
SET X TO 1
	SetParameter	NUMLINES	17
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP1
	SendMessage	SETBACKDROP

        SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                40             
        SendMessage     LOADLEVEL
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	SetParameter	LIVES	0
	SendMessage	SETLIVES

SetParameter    TEXT    jegg40.wbw
SendMessage     LOADWEAPONLIST



	SetParameter	Position	0	-180	0	0
	SendMessage	CHANGEWATERHEIGHT

	SendMessage	FIRINGOFF
	SendMessage StartBriefing
	GotoLoop		BRIEF

EndLoop

Loop BRIEF
Do
SendMessage	MUSIC_GROOVE_LOW
	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		ALL_CLEAR!
FRE	SetParameter	TEXT		DÉBLAYEZ_TOUT!
	SPA SetParameter	Text	¡TODO_LIMPIO!
	GER SetParameter	Text	ALLES_SAUBER!
	ITA SetParameter	TEXT	TUTTO_PULITO!
	POL SetParameter	TEXT	PUSTKA


	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		120_Seconds_To
FRE	SetParameter	TEXT		120_secondes_pour
	SPA SetParameter	Text	Tienes_120_segundos_para
	GER SetParameter	Text	120_Sekunden_Zeit_um
	ITA SetParameter	TEXT	120_secondi_per
	POL SetParameter	TEXT	120_sekund_na


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Clear_The_Screen
FRE	SetParameter	TEXT		déblayer_l'écran.
	SPA SetParameter	Text	despejar_la_pantalla.
	GER SetParameter	Text	den_Bildschirm_abzuräumen.
	ITA SetParameter	TEXT	ripulire_lo_schermo.
	POL SetParameter	TEXT	oczyszczenie_ekranu.


	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_drücken
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
	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	TIMER9
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


		GotoLoop MAIN
		
	EndResponse




EndLoop














Loop MAIN
Do

	

	SendMessage     MUSIC_GROOVE_MED
	

	GotoLoop		MAIN2
EndLoop







Loop MAIN2
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	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

			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 TEND
		EndIf


		If Z IsEqualTo 0
		Then

			If X IsEqualTo 0
			Then


				GotoLoop TEND
			EndIf		

		EndIf


	
		If Z IsLessThan 60
		Then

			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

	EndResponse



	SetParameter	Position	0	-180	0	0
	SendMessage	CHANGEWATERHEIGHT



	If Q BecomesEqualTo -1
	Then

		SendMessage LOSECONDITION

	GotoLoop		END
	EndIf







If X ISEqualTo 0
	Then

If Z BecomesEqualTo 59
	Then
		
			

			SetParameter	Scale1		0.5	1.5	0.6	0.0
			SetParameter	Scale2		1.5	2.5	1.6	0.0
			SetParameter	Lifetime	1.1	1.5	2.5	2.9
			SetParameter	Position	0.0	25.0	0.0	0.0
			SetParameter	Text		60_seconds_gone!
FRE			SetParameter	TEXT		60_secondes_écoulées!
			SPA SetParameter	Text	¡Quedan_60_segundos!
			GER SetParameter	Text	60_Sekunden!
			ITA SetParameter	TEXT	Sono_passati_60_secondi!
	POL SetParameter	TEXT	Up³ynê³o_60_sekund


			SendMessage	CREATETEXT
				SendMessage     MUSIC_GROOVE_HIGH
				
	EndIf
EndIf






	If T BECOMESLESSTHAN 20
	Then


	SendMessage	WINCONDITION
	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	__
FRE SetParameter	TEXT	__
SPA SetParameter	Text	__
GER SetParameter	Text	__
ITA SetParameter	TEXT	__
POL SetParameter	TEXT	__



SendMessage	CREATETEXT
GotoLoop END
	EndIf


EndLoop

Loop END
Do


EndLoop

Loop TEND
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É!
			SPA SetParameter	Text	¡TIEMPO!
			GER SetParameter	Text	ENDE!
			ITA SetParameter	TEXT	TEMPO_ESAURITO!
	POL SetParameter	TEXT	Czas_up³yn¹³


			SendMessage	CREATETEXT

			SendMessage 	LOSECONDITION
			GotoLoop END

EndLoop


EndFile	
