GameMode	jegg37
GameType	QUEST
	

Program0123

LANDDROPPEDINWATERCOUNTER	W
LANDSCROLLEDINTOWATERCOUNTER	W
TOTALBLOCKSONSCREENCOUNTER	T

LivesRemaining02Counter		Q
TEXTBUFFER	LEVS

	jegg37.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	BACKDROP	BACKDROP11
	SendMessage	SETBACKDROP

	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20        	
        SendMessage     LOADLEVEL
	SetParameter	LIVES	0
	SendMessage	SETLIVES
	SetParameter    TEXT    jegg37.wbw
SendMessage     LOADWEAPONLIST
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
SendMessage     MUSIC_GROOVE_LOW



	SET W To 0
	SET Q To 0

	SET T To 1000	
	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
FRE	SetParameter	TEXT		NE_LES_LAISSEZ_PAS_TOMBER
	SPA SetParameter	Text	QUE_NO_SE_CAIGAN
	GER SetParameter	Text	NIX_FALLEN_LASSEN
	ITA SetParameter	TEXT	NON_FARLI_CADERE
	POL SetParameter	TEXT	NIE_UPU_ICH


	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		Dblayez_l'cran
	SPA SetParameter	Text	Despeja_la_pantalla
	GER SetParameter	Text	Rum_den_Bildschirm_ab_und
	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		and_dont_drop_any_blocks
FRE	SetParameter	TEXT		et_ne_laissez_tomber_aucun_bloc.
	SPA SetParameter	Text	y_no_dejes_caer_ni_un_solo_bloque.
	GER SetParameter	Text	lass_keine_Steine_fallen.
	ITA SetParameter	TEXT	senza_far_cadere_i_blocchi.
	POL SetParameter	TEXT	nie_upu_adnej_cegy.


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

EndLoop




Loop MAIN
Do
SendMessage     MUSIC_GROOVE_MED
	


	

	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	Klska

	
SendMessage	CREATETEXT
		SendMessage LOSECONDITION
	GotoLoop WIN
	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	Klska
SendMessage	CREATETEXT
		SendMessage	LOSECONDITION
		GotoLoop	WIN
	endif

	If T BECOMESEQUALTO 25
	then

	SendMessage	WINCONDITION
	GotoLoop WIN
	endif


EndLoop

Loop WIN
Do
		
EndLoop


EndFile


