GameMode	serp
GameType	QUEST
	
REDCOMBOCOUNTER			R
LIVESREMAINING02COUNTER		M

Program0123


TEXTBUFFER      LEVS                    

        serp.wbl

ENDBUFFER


DATABUFFER	ENTE

7 7 8 7 9 7 10 7 11 7 12 7 13 7	14 7 15 7 16 7 17 7 18 7 19 7 20 7 21 7 22 8 21 9 20 9 20 10 20 11 21 12 21 13 21 14 20 15 21 16 20 17 19 17 18 17 17 17 16 17 15 17 14 17 13 17 12 17 11 17 10 17 9 17 8 17 7 17 6 17 5 17 4 17 3 17 3 16 2 15 2 14 1 13 2 12 1 11 1 12 0 13 0 14 0 15 0 16 0 17 1 17 2 17 3 17 4 17 5 17 6 17 7 17 8 17 9 17 10 17 11 17 12 17 13 17 14 17 14 16 14 15 14 14 14 13 15 12 15 11 16 11 17 11 18 11 19 12 19 13 20 14 20 15 20 16 19 17 18 17 17 17 17 16 16 17 15 17 15 16 14 15 14 14 13 14 12 14 11 15 11 16 10 17 9 17 9 16 8 15 8 14 7 13 7 12 6 12 5 12 4 12 3 13 3 14 2 14 1 15 1 16 1 17 2 17 3 17 4 17 5 17 6 17 7 17 8 17 9 17 10 17 11 17 12 17 13 17 14 16 14 15 14 14 13 13 12 13 11 13 10 13 9 13 8 13 8 12 7 11 7 10 7 9 8 8 9 8 10 8 10 9 10 10 9 10 8 10 7 10 6 10 5 9 6 8 6 7 7 6 8 6 9 6 10 6 11 6 12 6 13 6 14 6 15 6 16 6 17 6 17 7 18 8 18 9 19 10 19 11 20 12 20 13 21 14 20 15 20 16 19 17 18 17 17 17 16 17 15 17 14 17 13 17 12 17 11 17 10 17 9 17 8 17 7 17 6 17 5 17 4 17 3 17 2 17 1 17 1 16 0 15 1 14 1 13 2 12 2 11 3 10 3 9 4 8 4 7 5 7 6 7  

ENDBUFFER

DATABUFFER	LEAV

3 7 4 7 5 7 6 7 
7 7 8 7 9 7 10 7 11 7 12 7 13 7	14 7 15 7 16 7 17 7 18 7 19 7 20 7 21 7 22 8 21 9 20 9 20 10 20 11 21 12 21 13 21 14 20 15 21 16 20 17 19 17 18 17 17 17 16 17 15 17 14 17 13 17 12 17 11 17 10 17 9 17 8 17 7 17 6 17 5 17 4 17 3 17 3 16 2 15 2 14 1 13 2 12 1 11 1 12 0 13 0 14 0 15 0 16 0 17 1 17 2 17 3 17 4 17 5 17 6 17 7 17 8 17 9 17 10 17 11 17 12 17 13 17 14 17 14 16 14 15 14 14 14 13 15 12 15 11 16 11 17 11 18 11 19 12 19 13 20 14 20 15 20 16 19 17 18 17 17 17 17 16 16 17 15 17 15 16 14 15 14 14 13 14 12 14 11 15 11 16 10 17 9 17 9 16 8 15 8 14 7 13 7 12 6 12 5 12 4 12 3 13 3 14 2 14 1 15 1 16 1 17 2 17 3 17 4 17 5 17 6 17 7 17 8 17 9 17 10 17 11 17 12 17 13 17 14 16 14 15 14 14 13 13 12 13 11 13 10 13 9 13 8 13 8 12 7 11 7 10 7 9 8 8 9 8 10 8 10 9 10 10 9 10 8 10 7 10 6 10 5 9 6 8 6 7 7 6 8 6 9 6 10 6 11 6 12 6 13 6 14 6 15 6 16 6 17 6 17 7 18 8 18 9 19 10 19 11 20 12 20 13 21 14 20 15 20 16 19 17 18 17 17 17 16 17 15 17 14 17 13 17 12 17 11 17 10 17 9 17 8 17 7 17 6 17 5 17 4 17 3 17 2 17 1 17 1 16 0 15 1 14 1 13 2 12 2 11 3 10 3 9 4 8 

ENDBUFFER



Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter    TEXT    serp.wbw
        SendMessage     LOADWEAPONLIST

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP6
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME      LEVS
        SetParameter    NUMLINES        20
        SendMessage     LOADLEVEL

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT	

	SetParameter	LIVES	1
	SendMessage	SETLIVES

	SetParameter 	POSITION   	80	0	1	0
        SetParameter 	PLAYERNUM	0	
	SendMessage	SETBOATPOSITION	

	SetParameter 	POSITION   	0	-60	0	0
	SendMessage 	CHANGEWATERHEIGHT

	SendMessage     MUSIC_GROOVE_HIGH

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	0200
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	8300
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER	

	Set X to 60
	Set Z to 0



	

	ResetBuffer ENTE
	ResetBuffer LEAV

	Set R To 0

	SendMessage	FIRINGOFF
	SendMessage	StartBriefing


	GotoLoop		TIMER

EndLoop

Loop TIMER
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		Serpent_Attack
FRE	SetParameter	TEXT		Attaque_Serpent
ITA	SetParameter	TEXT		Attacco_al_serpente
SPA	SetParameter	TEXT		El_Ataque_de_la_Serpiente
GER	SetParameter	TEXT		Schlangenangriff
POL	SetParameter	TEXT		Atak_węża



	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		Find_the_weak_spots
FRE	SetParameter	TEXT		Trouvez_les_points_faibles
ITA	SetParameter	TEXT		Trova_i_punti_deboli
SPA	SetParameter	TEXT		Encuentra_los_puntos_débiles
GER	SetParameter	TEXT		Finde_ihre_schwachen_Stellen
POL	SetParameter	TEXT		Znajdź_jego_słaby_punkt_i



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	
	SetParameter	Text		and_destroy_the_serpent.
FRE	SetParameter	TEXT		et_détruisez_le_serpent.
ITA	SetParameter	TEXT		e_distruggi_il_serpente.
SPA	SetParameter	TEXT		de_la_serpiente_y_destrúyela.
GER	SetParameter	TEXT		und_besiege_die_Schlange.
POL	SetParameter	TEXT		zniszcz_atakującego_węża.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		You_have_one_minute.
FRE	SetParameter	TEXT		Vous_avez_une_minute.
ITA	SetParameter	TEXT		Hai_a_disposizione_1_minuto
SPA	SetParameter	TEXT		Dispones_de_un_minuto.
GER	SetParameter	TEXT		Du_hast_eine_Minute.
POL	SetParameter	TEXT		Masz_na_to_1_minutę.



	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!
ITA	SetParameter	TEXT		Premi_fuoco_per_cominciare
GER	SetParameter	TEXT		Zum_Starten_Feuer_drücken
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

SetParameter 	POSITION   	0	-60	0	0
SendMessage 	CHANGEWATERHEIGHT
	

	OnMessage FIREPRESSED
	Do
		SendMessage FIRINGON
		SendMessage	EndBriefing
		GotoLoop MAIN


	EndResponse

EndLoop

Loop MAIN
Do

	If M BecomesEqualTo -1
	Then
	SendMessage	LOSECONDITION
	EndIf

	SetParameter	FRAME		3
	SetParameter	Lifetime	0.0	0.0	1.0	0.0
	SetParameter	Position	149.0	195.0	0.0	0.0
	SendMessage	CREATEICON

	OnMessage TIMER3
	Do
			Subtract 1 from X
			SetParameter	Lifetime	0.0	0.0	1.0	0.0
			SetParameter	Position	230.0	195.0	0.0	0.0
				If X IsLessThan 10
				Then
					SetParameter	Text		0
					SetParameter	Position	225.0	195.0	0.0	0.0
					SendMessage	CREATETEXT
					SetParameter	Position	245.0	195.0	0.0	0.0
				EndIf
			ConvertToText   X
			SendMessage	CREATETEXT
			ConvertToText	Z
			SetParameter	Lifetime	0.0	0.0	1.0	0.0
			SetParameter	Position	190.0	195.0	0.0	0.0
			SendMessage	CREATETEXT

			If X IsEqualTo 0
			Then
				GotoLoop FAX
			EndIf

	EndResponse



			If R BecomesEqualTo 1
			Then
			
				SetParameter	Velocity	0.0	0.0	0.0	0.0
				        SetParameter    Colour1         0.57    0.8     1.0     1.0
        SetParameter    Colour2         0.57    0.8     1.0     1.0
        SetParameter    Colour3         0.57    0.8     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	Lifetime	0.1	0.5	1.4	1.5
				SetParameter	Justify		Centre
	
				SetParameter	POSITION	0.0	50.0	0.0	0.0
				SetParameter	Text		Hit
FRE				SetParameter	TEXT		Atteint
ITA				SetParameter	TEXT		Colpito
SPA				SetParameter	TEXT		Tocada
GER				SetParameter	TEXT		Treffer
POL				SetParameter	TEXT		Trafienie




				SendMessage	CREATETEXT
			
			EndIf

			If R BecomesEqualTo 2
			Then
			
				SetParameter	Velocity	0.0	0.0	0.0	0.0
				        SetParameter    Colour1         0.57    0.8     1.0     1.0
        SetParameter    Colour2         0.57    0.8     1.0     1.0
        SetParameter    Colour3         0.57    0.8     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	Lifetime	0.1	0.5	1.4	1.5
				SetParameter	Justify		Centre
	
				SetParameter	POSITION	0.0	50.0	0.0	0.0
				SetParameter	Text		Hit
FRE				SetParameter	TEXT		Atteint
ITA				SetParameter	TEXT		Colpito
SPA				SetParameter	TEXT		Tocada
GER				SetParameter	TEXT		Treffer
POL				SetParameter	TEXT		Trafienie
				SendMessage	CREATETEXT
			
			EndIf

			If R BecomesEqualTo 3
			Then
			
				SetParameter	Velocity	0.0	0.0	0.0	0.0
				        SetParameter    Colour1         0.57    0.8     1.0     1.0
        SetParameter    Colour2         0.57    0.8     1.0     1.0
        SetParameter    Colour3         0.57    0.8     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	Lifetime	0.1	0.5	1.4	1.5
				SetParameter	Justify		Centre
	
				SetParameter	POSITION	0.0	50.0	0.0	0.0
				SetParameter	Text		Hit
FRE				SetParameter	TEXT		Atteint
ITA	SetParameter				TEXT		Colpito
SPA				SetParameter	TEXT		Tocada
GER				SetParameter	TEXT		Treffer
POL				SetParameter	TEXT		Trafienie
				SendMessage	CREATETEXT
			
			EndIf
		

			If R BecomesEqualTo 4
			Then
			
				SetParameter	Velocity	0.0	0.0	0.0	0.0
				        SetParameter    Colour1         0.57    0.8     1.0     1.0
        SetParameter    Colour2         0.57    0.8     1.0     1.0
        SetParameter    Colour3         0.57    0.8     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	Lifetime	0.1	0.5	1.4	1.5
				SetParameter	Justify		Centre
	
				SetParameter	POSITION	0.0	50.0	0.0	0.0
				SetParameter	Text		Hit
FRE				SetParameter	TEXT		Atteint
ITA	SetParameter				TEXT		Colpito
SPA				SetParameter	TEXT		Tocada
GER				SetParameter	TEXT		Treffer
POL				SetParameter	TEXT		Trafienie
				SendMessage	CREATETEXT
			
			EndIf
			
			If R BecomesEqualTo 5
			Then
			
				SetParameter	Velocity	0.0	0.0	0.0	0.0
				        SetParameter    Colour1         0.57    0.8     1.0     1.0
        SetParameter    Colour2         0.57    0.8     1.0     1.0
        SetParameter    Colour3         0.57    0.8     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	Lifetime	0.1	0.5	1.4	1.5
				SetParameter	Justify		Centre
	
				SetParameter	POSITION	0.0	50.0	0.0	0.0
				SetParameter	Text		Hit
FRE				SetParameter	TEXT		Atteint
ITA	SetParameter				TEXT		Colpito
SPA				SetParameter	TEXT		Tocada
GER				SetParameter	TEXT		Treffer
POL				SetParameter	TEXT		Trafienie
				SendMessage	CREATETEXT

	GotoLoop WIN

	
		
	
			EndIf

			SetParameter 	POSITION   	0	-60	0	0
			SendMessage 	CHANGEWATERHEIGHT
	
	OnMessage TIMER1
	Do

			ReadFromBuffer ENTE Into C
			ReadFromBuffer ENTE Into D

			If C IsLessThan 0
			Then
				GotoLoop INFINITE
			EndIf

			If D IsLessThan 0
			Then
				GotoLoop INFINITE
			EndIf			

			SetParameter	POSITION	C	D	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

			ReadFromBuffer LEAV Into C
			ReadFromBuffer LEAV Into D
			SetParameter	POSITION	C	D	1	0
			SetParameter	BlockColour	RED
			SendMessage	SETBLOCKCOLOUR

			SendMessage	DETONATEBLOCK
			

	EndResponse
EndLoop

Loop FAX
Do
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	Klęska


SendMessage	CREATETEXT

SetParameter 	POSITION   	0	-60	0	0
	SendMessage 	CHANGEWATERHEIGHT


SendMessage LOSECONDITION
GotoLoop END
EndLoop



Loop INFINITE
Do
	SendMessage GAMEOVER

GotoLoop END

EndLoop

Loop WIN
Do


	SendMessage	WINCONDITION
	SetParameter 	POSITION   	0	-60	0	0
	SendMessage 	CHANGEWATERHEIGHT
GotoLoop END
EndLoop


LoopEND
Do
EndLoop

EndFile
