GameMode	drop
GameType	QUEST
	

Program0123

LANDDROPPEDINWATERCOUNTER	W
LANDSCROLLEDINTOWATERCOUNTER	W
TOTALBLOCKSONSCREENCOUNTER	T
LivesRemaining02Counter		Q
TEXTBUFFER	LEVS

	drop.wbl

ENDBUFFER

Loop INIT
Do


    SetParameter GD_FLOAT    20.0 0 0 0
    SetParameter GAMEDATA    WATERMINLEVEL
    SendMessage  SET_GD_FLOAT


	SetParameter	SCALE1	0.0	0.90	0.0	0.0
	SendMessage	SETBLOCKYSCALE

	SetParameter	Position	0	-210	0	0
	SendMessage	CHANGEWATERHEIGHT


	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter    LIVES   5
	SendMessage     SETLIVES
	SetParameter	BACKDROP	BACKDROP11
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20        	
        SendMessage     LOADLEVEL
	SetParameter	LIVES	0
	SendMessage	SETLIVES
SetParameter    TEXT    drop.wbw
SendMessage     LOADWEAPONLIST
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT

	SendMessage	DEACTIVATESCORE

	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
	GER SetParameter	Text	Lass_sie_nicht_fallen!
	SPA SetParameter	Text	No_Los_Dejes_Caer
	ITA SetParameter	TEXT	NON_FARLI_CADERE


	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
	GER SetParameter	Text	Subere_den_Bildschirm
	SPA SetParameter	Text	Despeja_la_pantalla
	ITA SetParameter	TEXT	Ripulisci_lo_schermo


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Dont_drop_any_blocks
FRE	SetParameter	TEXT		et_ne_laissez_tomber_aucun_bloc.
	GER SetParameter	Text	Lasse_keine_Steine_fallen
	SPA SetParameter	Text	y_no_dejes_caer_ningn_bloque.
	ITA SetParameter	TEXT	senza_far_cadere_i_blocchi.


	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


	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

	


	

	GotoLoop		MAIN2
EndLoop

Loop MAIN2
Do

	SetParameter	Position	0.0	-200	0.0	0.0
	SendMessage	ChangeWaterHeight

	If Q BecomesEqualTo -1
	Then

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


SendMessage	CREATETEXT
		SendMessage	LOSECONDITION
		GotoLoop	WIN
	endif

If T BECOMESEQUALTO 0
	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!


SendMessage	CREATETEXT


	SetParameter	TEXT	jegg37
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION
	endif




If T BECOMESEQUALTO 10
	then
SendMessage	MUSIC_GROOVE_HIGH
	endif







EndLoop

Loop WIN
Do
		
EndLoop


EndFile


