GameMode	laser

	DESTROYOWNTARGETCOUNTER         B
	DESTROYENEMYTARGETCOUNTER 	B
	LIVESREMAINING02COUNTER		M
	

Program0123




TEXTBUFFER      LEVS                    

        laser.wbl

ENDBUFFER

Loop INIT
Do

	SendMessage	DEACTIVATESCORE
	SetParameter    TEXT    laser.wbw
        SendMessage     LOADWEAPONLIST

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP1
	SendMessage	SETBACKDROP


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

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SendMessage     MUSIC_GROOVE_MED
	
	SetParameter    LIVES   0
	SendMessage     SETLIVES
	SET W To 0
	SET S TO 0	
	SET A To 0
	Set X to 60

	SendMessage	FIRINGOFF
	SendMessage	StartBriefing


	GotoLoop MAIN1	

EndLoop

Loop MAIN1
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		Hard_Target
FRE	SetParameter	TEXT		Rude_Cible
	SPA SetParameter	Text	Un_Objetivo_Difícil
	GER SetParameter	Text	Schweres_Ziel
	ITA SetParameter	TEXT	Un_osso_duro
	POL SetParameter	TEXT	Ciê¿ki_orzech



	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
FRE	SetParameter	TEXT		Vous_avez_1_minute
	SPA SetParameter	Text	Dispones_de_un_minuto
	GER SetParameter	Text	Du_hast_1_Minute,_
	ITA SetParameter	TEXT	Hai_1_minuto_per
	POL SetParameter	TEXT	Masz_1_minutê_na_



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	
	SetParameter	Text		To_destroy_the_target.
FRE	SetParameter	TEXT		pour_détruire_la_cible.
	SPA SetParameter	Text	para_destruir_la_diana.
	GER SetParameter	Text	um_das_Ziel_zu_zerstören.
	ITA SetParameter	TEXT	distruggere_il_bersaglio.
	POL SetParameter	TEXT	zniszczenie_celu.



	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_drücken
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
	POL SetParameter 	TEXT	Naciœnij_"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
	GotoLoop MAIN

	EndResponse


EndLoop

Loop MAIN
Do

	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT

	OnMessage TIMER1
	Do
		Subtract 1 from X
	EndResponse


	SetParameter	FRAME		3
	SetParameter	Lifetime	0.0	0.0	1.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 30
				Then
				SendMessage	MUSIC_GROOVE_MED
				EndIf

				
				If X BecomesEqualTo 10
				Then
				SendMessage	MUSIC_GROOVE_HIGH
				EndIf

				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_up³yn¹³



SendMessage	CREATETEXT
				SendMessage	LOSECONDITION
GotoLoop WIN
				EndIf


	
	If M 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	Klêska



SendMessage	CREATETEXT
	GotoLoop WIN
	Endif

	If B BECOMESGREATERTHAN 0
	Then
	SendMessage	FIRINGOFF
	SendMessage	WINCONDITION
	SetParameter 	POSITION   	0	-175	0	0
	SendMessage 	CHANGEWATERHEIGHT
	
		GotoLoop WIN

	EndIf


EndLoop

Loop WIN
Do
		
EndLoop


EndFile


