GameMode	snow

GameType	QUEST
	

Program0123

YELLOWBLOCKSONSCREENCOUNTER	Y
PURPLEBLOCKSONSCREENCOUNTER	P
REDBLOCKSONSCREENCOUNTER	R
WEAPONFIREDCOUNTER		F
LANDDROPPEDINWATERCOUNTER	W
LivesRemaining02Counter		Q
TEXTBUFFER      LEVS                    

        snow.wbl

ENDBUFFER

Loop INIT
Do
    SetParameter GD_FLOAT    30.0 0 0 0
    SetParameter GAMEDATA    WATERMINLEVEL
    SendMessage  SET_GD_FLOAT
	SendMessage	DEACTIVATESCORE
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP11
	SendMessage	SETBACKDROP


	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                20             
        SendMessage     LOADLEVEL


	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SET Y To 1000
	SET P To 1000
	SET R To 1000	
	SET S To 0	
	SET T To 0
	SET F To 0
	SET Q To 0
	SET W To 0


	SetParameter    TEXT    snow.wbw		
	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT 

	SendMessage     MUSIC_GROOVE_LOW

	SendMessage     LOADWEAPONLIST	
		

	SendMessage	FIRINGOFF
	SendMessage StartBriefing
		
	SetParameter	POSITION	140	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

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	175.0	0.0	0.0
	SetParameter	Text		SNOWBALL_IN_HELL
FRE	SetParameter	Text		BOULE_DE_NEIGE_EN_ENFER
ITA	SetParameter	TEXT		PALLE_DI_NEVE_ALL'INFERNO
SPA	SetParameter	TEXT		NIEVE_EN_EL_INFIERNO
GER	SetParameter	TEXT		SCHNEEBALL_AUS_DER_HLLE
POL	SetParameter	TEXT		nieka_w_piekle


	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		Stop_all_purple
FRE	SetParameter	Text		Empchez_tous_les_blocs
ITA	SetParameter	TEXT		Impedisci_ai_
SPA	SetParameter	TEXT		Intenta_evitar
GER	SetParameter	TEXT		Hindere_alle_lilafarbenen
POL	SetParameter	TEXT		Powstrzymaj_fioletowe_


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		blocks_from_falling
FRE	SetParameter	Text		violets_de_tomber
ITA	SetParameter	TEXT		blocchi_viola_di
SPA	SetParameter	TEXT		que_los_bloques_morados
GER	SetParameter	TEXT		Steine_daran_ins
POL	SetParameter	TEXT		cegy,_przed_wpadniciem_

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		in_the_water
FRE	SetParameter	Text		dans_l'eau
ITA	SetParameter	TEXT		cadere_in_acqua.
SPA	SetParameter	TEXT		caigan_al_agua.
GER	SetParameter	TEXT		Wasser_zu_fallen.
POL	SetParameter	TEXT		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	-175.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	Text		Appuyez_sur_Tir_pour_commencer.
ITA	SetParameter	TEXt		Premi_fuoco_per_cominciare
GER	SetParameter	TEXT		Zum_Starten_Feuer_drcken
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

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	5000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	500
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER

		SendMessage EndBriefing
		SendMessage FIRINGON	
		GotoLoop MAIN
		
	EndResponse

EndLoop



Loop MAIN
Do
	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT
	OnMessage	TIMER1
	Do
		SendMessage     MUSIC_GROOVE_HIGH
		SetParameter	POSITION	0.0	40.0	0.0	0.0
		SendMessage	GetBlockPosition
		SetParameter	TEXT	GO!
FRE		SetParameter	TEXT	ALLEZ-Y!
ITA		SetParameter	TEXT	Via!
SPA 		SetParameter	Text	ADELANTE!
GER		SetParameter	Text	LOS!
POL	SetParameter	TEXT		Start


		SetParameter	Justify		Centre
		SetParameter	Colour1		1.0	1.0	1.0	1.0
		SetParameter	Colour2		1.0	0.0	1.0	1.0
		SetParameter 	Colour3		1.0	0.0	1.0	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	LifeTime	0.2	0.50	1.0	0.50
		SendMessage	CREATETEXT

		SetParameter	POSITION	0.0	0.0	0.0	0.0
		SendMessage	DetonateBlock

GotoLoop MAIN2
EndResponse
		

	

EndLoop

Loop MAIN2
Do



GotoLoop CHECK

EndLoop









Loop CHECK
Do
	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT
GosubLoop TIME
	If Q BecomesEqualTo -1
	Then
SetParameter	Justify		Centre
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!
ITA	SetParameter	TEXT	HAI_FALLITO!
SPA 	SetParameter	Text	FALLASTE!
GER		SetParameter	Text	VERLOREN!
POL	SetParameter	TEXT	klska
	


SendMessage	CREATETEXT
		SendMessage LOSECONDITION

		GotoLoop END
	EndIf

If W BECOMESGREATERTHAN 2
	then	
	

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

SendMessage	CREATETEXT
		SendMessage	LOSECONDITION
		GotoLoop END
	


	endif
If P BECOMESLESSTHAN 1
	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	__
FRE	SetParameter	TEXT	__
ITA	SetParameter	TEXT	__
SPA 	SetParameter	Text	__
GER		SetParameter	Text	__
POL	SetParameter	TEXT	__




SendMessage	CREATETEXT

	
		SendMessage	WINCONDITION



		GotoLoop END
	


	endif

EndLoop




Loop TIME
Do
	OnMessage TIMER3
	Do
		
	ADD 1 To T
	EndResponse
	If T IsEqualTo 120
	then	
		SetParameter	INTERVAL	990000
		SendMessage	SetLandSpeed
		
	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!
ITA	SetParameter	TEXT	HAI_FALLITO!
SPA 	SetParameter	Text	FALLASTE!
GER	SetParameter	Text	VERLOREN!
POL	SetParameter	TEXT	klska



SendMessage	CREATETEXT
		

		SendMessage	LOSECONDITION
		
		GotoLoop END
	endif	


EndLoop



Loop END
Do


EndLoop











EndFile


