GameMode	Snake
GameType	QUEST
	
RedComboCounter			R
LIVESREMAINING02COUNTER		M

Program0123


TEXTBUFFER      LEVS                    

        snake.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 -1

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 -1 

ENDBUFFER


DATABUFFER	COCK

22 14 23 14 24 14 21 15 22 15 23 15 22 16 23 16 24 16

ENDBUFFER


Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter    TEXT    snake.wbw
     
	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP1
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                20
        SendMessage     LOADLEVEL

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT

	SetParameter 	POSITION   	60	0	0	0
        SetParameter 	PLAYERNUM	0	
	SendMessage	SETBOATPOSITION	
	
	SetParameter 	POSITION   	0	-150	0	0
	SendMessage 	CHANGEWATERHEIGHT	

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	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


	ResetBuffer ENTE
	ResetBuffer LEAV
	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		Snake_Attack
FRE	SetParameter	TEXT		Attaque_Serpent
ITA	SetParameter	TEXT		L'attacco_del_serpente
SPA	SetParameter	TEXT		El_Ataque_de_la_Serpiente
GER	SetParameter	TEXT		Schlangenangriff
POL	SetParameter	TEXT		Atak_wa



	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		Avoid_the_snake_attacks
FRE	SetParameter	TEXT		vitez_les_attaques_du_serpent.
ITA	SetParameter	TEXT		Evita_gli_attacchi_del_serpente.
SPA	SetParameter	TEXT		Evita_los_ataques_de_la_serpiente.
GER	SetParameter	TEXT		Hte_dich_vor_den_Angriffen_der_Schlange.
POL	SetParameter	TEXT		Unikaj_atakw_wa



	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_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 FIRINGON
		SendMessage	EndBriefing
	
	SendMessage	MUSIC_GROOVE_HIGH

		GotoLoop MAIN


	EndResponse

EndLoop

Loop MAIN
Do
	ReadFromBuffer COCK Into E
	ReadFromBuffer COCK Into F 

			SetParameter	POSITION	E	F	0	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK

	If M BecomesEqualTo -1
	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    Position        0.0     0.0  	0.0     0.0
        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


	SetParameter 	POSITION   	0	-150	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 INFINITE
Do
       
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_!
ITA	SetParameter	TEXT	HAI_VINTO!
SPA	SetParameter	TEXT	LO_CONSEGUISTE!
GER	SetParameter	TEXT	GESCHAFFT
POL	SetParameter	TEXT	SUKCES
		

SendMessage	CREATETEXT



		SetParameter	TEXT	laser
		SendMessage	SETNEXTGAMEMODE
		SendMessage	LOSECONDITION



GotoLoop END

EndLoop

Loop END
Do

		SendMessage FIRINGOFF
EndLoop

EndFile
