GameMode	laser2
GameType	QUEST

	WaterHeightCounter			H
	TotalBlocksOnScreenCounter		T
LivesRemaining02Counter		Q
Program0123

TEXTBUFFER      LEVS                  


        laser2.wbl


ENDBUFFER

Loop INIT
Do

	SendMessage	DEACTIVATESCORE
	SetParameter	NUMLINES	23
	SendMessage	SetStartLines


	SetParameter	BACKDROP	BACKDROP13
	SendMessage	SETBACKDROP



        SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                25            
        SendMessage     LOADLEVEL
	
	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	
	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT




	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	Set X to 60
	set Q to 0
	SendMessage	MUSIC_GROOVE_LOW
	
SetParameter    TEXT    laser2.wbw
SendMessage     LOADWEAPONLIST


SendMessage	FIRINGOFF
SendMessage	StartBriefing

	GotoLoop		FUN

EndLoop



Loop FUN
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		Block_Rock
FRE	SetParameter	TEXT		Bloc_Rock
	SPA SetParameter	Text	Toque_al_Bloque
	GER SetParameter	Text	Block_Rock
	ITA SetParameter	TEXT	Scuoti_i_blocchi!
	POL SetParameter	TEXT	Blokada



	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		You_have_1_minute_to
FRE	SetParameter	TEXT		Vous_avez_1_minute_pour
	SPA SetParameter	Text	Tienes_un_minuto_para_acabar
	GER SetParameter	Text	Du_hast_1_Minute
	ITA SetParameter	TEXT	Hai_1_minuto_per_eliminare
	POL SetParameter	TEXT	Masz_1_minut_na_



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	
	SetParameter	Text		clear_the_coloured_blocks.
FRE	SetParameter	TEXT		dblayer_les_blocs_colors.
	SPA SetParameter	Text	con_los_bloques_de_colores.
	GER SetParameter	Text	um_die_farbigen_Steine_abzurumen.
	ITA SetParameter	TEXT	i_blocchi_colorati.
	POL SetParameter	TEXT	usunicie_kolorowych_cegie.



	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
	SetParameter	INTERVAL	999999
	SendMessage	SetLandSpeed
	SendMessage FIRINGON
	SendMessage EndBriefing

	SendMessage     MUSIC_GROOVE_MED_LOW

	GotoLoop MAIN

	EndResponse

		SetParameter 	POSITION   	0	-175	0	0
		SendMessage 	CHANGEWATERHEIGHT
	

EndLoop


Loop MAIN
Do


	OnMessage TIMER3
	Do
		Subtract 1 from X
	EndResponse


	SetParameter	FRAME		3
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	149.0	205.0	0.0	0.0
	SendMessage	CREATEICON

		
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
			SetParameter	Position	230.0	205.0	0.0	0.0
				If X IsLessThan 10
				Then
					SetParameter	Text		0
					SetParameter	Position	225.0	205.0	0.0	0.0
					SetParameter	Lifetime	0.0	0.0	0.0	0.0
					SendMessage	CREATETEXT
					SetParameter	Position	245.0	205.0	0.0	0.0
				EndIf
			ConvertToText   X
			SendMessage	CREATETEXT
			ConvertToText	Z
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
			SetParameter	Position	190.0	205.0	0.0	0.0
			SendMessage	CREATETEXT

	If X BecomesEqualTo 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		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_upyn



SendMessage	CREATETEXT
		GotoLoop FAIL
				EndIf

SetParameter 	POSITION   	0	-175	0	0
SendMessage 	CHANGEWATERHEIGHT



	If Q BecomesEqualTo -1
	Then

		SendMessage LOSECONDITION
		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


	EndIf

	OnMessage TIMER1
	Do
		Add 440 To H
		SetParameter Position	0.0	H	0.0	0.0
		SendMessage ChangeWaterHeight
			

			
		SetParameter	INTERVAL	500
		SendMessage	SetLandSpeed
		SendMessage LOSECONDITION
	EndResponse


	If X BecomesEqualTo 30
				Then
	SetParameter	Position	340.0	0.0	0.0	0.0
SetParameter	Lifetime	0.2	0.5	2.5	0.5
SetParameter	Velocity	-0.4	0.0	0.0	0.0
SetParameter	Scale1		2.0	2.0	2.0	0.0
SetParameter	Scale2		3.0	3.0	3.0	0.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	Text		HURRY_UP!!
FRE SetParameter	TEXT	DPCHEZ-VOUS!!
SPA SetParameter	Text	DEPRISA!
GER SetParameter	Text	BEEIL_DICH!
ITA SetParameter	TEXT	SBRIGATI!
POL SetParameter	TEXT	Popiesz_si!



SendMessage	CREATETEXT

		SendMessage	MUSIC_GROOVE_MED
	Endif
	
	
		SetParameter 	POSITION   	0	-175	0	0
		SendMessage 	CHANGEWATERHEIGHT

	If T BecomesEqualTo 50
	Then

	SendMessage	WINCONDITION
	GotoLoop FAIL2
	EndIf

EndLoop

Loop FAIL
Do
SendMessage	LOSECONDITION
GotoLoop FAIL2
EndLoop

Loop FAIL2
Do
EndLoop



EndFile	
