GameMode	g15
GameType	QUEST
	

Program0123

LANDDROPPEDINWATERCOUNTER	W
LANDSCROLLEDINTOWATERCOUNTER	S
REDCOMBOCOUNTER			G

TEXTBUFFER      LEVS                    

        g15.wbl

ENDBUFFER

Loop INIT
Do
	SetParameter    TEXT    g15.wbw
        SendMessage     LOADWEAPONLIST


	SetParameter	NUMLINES	5
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP1
	SendMessage	SETBACKDROP


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

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	
	SetParameter    LIVES   0
	SendMessage     SETLIVES
	SET W To 0
	SET S TO 0
	SET T To 0	
	SET O to 0
	SET K to 0
	SET x to 0
	Set G to 0

	SendMessage     MUSIC_GROOVE_LOW

	SendMessage	DEACTIVATESCORE

	SendMessage	FIRINGOFF
	SendMessage	Startbriefing
	
	


	GotoLoop		MAIN

EndLoop

Loop MAIN
Do

	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0


	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		Cluster_trouble
FRE	SetParameter	TEXT		Problme_d'ensembles
	GER SetParameter	Text	Blockprobleme
	SPA SetParameter	Text	Grupo_de_Problemas
	ITA SetParameter	TEXT	Questione_di_cumuli
	POL SetParameter	TEXT	rubki




	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		Destroy_15_clusters_without_any
FRE	SetParameter	TEXT		Dtruisez_15_ensembles_sans
	GER SetParameter	Text	Zerstre_15_Blcke,_ohne_dass
	SPA SetParameter	Text	Destruye_15_grupos_de_bloques	
	ITA SetParameter	TEXT	Distruggi_15_cumuli_senza_far
	POL SetParameter	TEXT	Zniszcz_15_klastrw_nie_




	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	
	SetParameter	Text		blocks_falling_into_the_water.
FRE	SetParameter	TEXT		qu'aucun_bloc_ne_tombe__l'eau.
	GER SetParameter	Text	ein_Stein_ins_Wasser_fllt.
	SPA SetParameter	Text	sin_que_ningn_bloque_caiga_al_agua.
	ITA SetParameter	TEXT	cadere_i_blocchi_in_acqua.
	POL SetParameter	TEXT	wrzucajc_adnej_cegy_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
	Set X to 0
	Set G to 0
	SendMessage 	FIRINGON
	SendMessage	UNPAUSELANDLEFT
	SendMessage	UNPAUSELANDRIGHT
	SetParameter	INTERVAL	0800
	SendMessage	SetLandSpeed
	
	SendMessage     MUSIC_GROOVE_MED_LOW

	SendMessage	Endbriefing

	GotoLoop FUN

	EndResponse
	

EndLoop

Loop FUN
Do


If W BECOMESGREATERTHAN 0
	then	
	SET W To 0
	SET S TO 0
	SET T To 0	
	SET O to 0
	SET K to 0
	SET x to 0
	Set G to 0

		
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
	
		GotoLoop	WIN
	endif


If S BECOMESGREATERTHAN 0
	then

	SET W To 0
	SET S TO 0
	SET T To 0	
	SET O to 0
	SET K to 0
	SET x to 0
	Set G to 0
		
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
	
		GotoLoop	WIN
	endif

SetParameter 	POSITION   	0	-125	0	0
	SendMessage 	CHANGEWATERHEIGHT


OnMessage TIMER1
Do
Add 1 to K

If K BECOMESEQUALTO 19
then
SendMessage	 MUSIC_GROOVE_HIGH
endif 
endresponse



If G BECOMESEQUALTO 7

	then
		ADD G To T		
		SET G TO 0
		Add 1 to X
	endif

If X BECOMESEQUALTO 15
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	FIRINGOFF
	SetParameter HIDDEN_ID 3
	SendMessage UNLOCKGAMEMODE
	SetParameter	TEXT	flower
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION



EndIf

EndLoop

EndFile


