GameMode	jegg39
GameType	QUEST
	

Program0123

LANDDROPPEDINWATERCOUNTER	W
LANDSCROLLEDINTOWATERCOUNTER	W
TOTALBLOCKSONSCREENCOUNTER	T
LivesRemaining02Counter		Q
TEXTBUFFER	LEVS

	jegg39.wbl

ENDBUFFER

Loop INIT
Do

    SetParameter GD_FLOAT    30.0 0 0 0
    SetParameter GAMEDATA    WATERMINLEVEL
    SendMessage  SET_GD_FLOAT


	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT
	SendMessage	DEACTIVATESCORE

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter    TEXT    jegg39.wbw
	SendMessage     LOADWEAPONLIST
	SetParameter	BACKDROP	BACKDROP9
	SendMessage	SETBACKDROP

	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20        	
        SendMessage     LOADLEVEL
	SetParameter	LIVES	0
	SendMessage	SETLIVES


	SendMessage	SETBACKDROP
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
SendMessage     MUSIC_GROOVE_LOW


	SET W To 0
	SET T To 1000	
	Set X to 4
	Set Z to 60
	SET Q To 0
	SendMessage	FIRINGOFF
	SendMessage StartBriefing
	GotoLoop BRIEF
	

	

EndLoop





Loop BRIEF
Do
	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT


	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		DONT_DROP_EM_2
FRE	SetParameter	TEXT		NE_LES_LAISSEZ_PAS_TOMBER_2
	SPA SetParameter	Text	QUE_NO_SE_CAIGAN_2
	GER SetParameter	Text	NIX_FALLEN_LASSEN
	ITA SetParameter	TEXT	NON_FARLI_CADERE_2
	POL SetParameter	TEXT	NIE_UPUŚĆ_ICH_2


	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		Clear_the_screen
FRE	SetParameter	TEXT		Déblayez_l'écran.
	SPA SetParameter	Text	Despeja_la_pantalla
	GER SetParameter	Text	Räum_innerhalb_von_5
	ITA SetParameter	TEXT	Ripulisci_lo_schermo
	POL SetParameter	TEXT	Oczyść_ekran_ale


	SendMessage 	CREATETEXT	


	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Dont_drop_any_blocks
FRE	SetParameter	TEXT		Ne_laissez_tomber_aucun_bloc.
	SPA SetParameter	Text	y_no_dejes_caer_ni_un_solo_bloque.
	GER SetParameter	Text	Minuten_den_Bildschirm_ab
	ITA SetParameter	TEXT	senza_far_cadere_i_blocchi.
	POL SetParameter	TEXT	nie_upuść_żadne_cegły.


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		all_Within_5_Minutes
FRE	SetParameter	TEXT		La_durée_limite_est_de_5_minutes.
	SPA SetParameter	Text	Sólo_tienes_5_minutos.
	GER SetParameter	Text	und_lasse_keine_Steine_fallen.
	ITA SetParameter	TEXT	Hai_a_disposizione_5_minuti.
	POL SetParameter	TEXT	Masz_na_to_5_minut.


	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	
		GotoLoop MAIN
		
	EndResponse

EndLoop








Loop MAIN
Do
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	

	GotoLoop		MAIN2
EndLoop

Loop MAIN2
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!
SPA SetParameter	Text	ˇFALLASTE!
GER SetParameter	Text	VERLOREN!
ITA SetParameter	TEXT	HAI_FALLITO!
POL SetParameter	TEXT	Klęska



SendMessage	CREATETEXT
		SendMessage LOSECONDITION
	GotoLoop	END
	EndIf

If W BECOMESGREATERTHAN 0  
	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!
SPA SetParameter	Text	ˇFALLASTE!
GER SetParameter	Text	VERLOREN!
ITA SetParameter	TEXT	HAI_FALLITO!
POL SetParameter	TEXT	Klęska
SendMessage	CREATETEXT
		SendMessage	LOSECONDITION
		GotoLoop	WIN
	endif

If T BECOMESEQUALTO 25
	then


	SendMessage	WINCONDITION
GotoLoop	WIN
	endif




	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 TIMER3
	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 END3
		EndIf


		If Z IsEqualTo 0
		Then

			If X IsEqualTo 0
			Then

			
				GotoLoop END3
			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
EndLoop

Loop WIN
Do
		
EndLoop

Loop END
Do
		
EndLoop


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


