GameMode	spider
GameType	QUEST

	YELLOWBLOCKSONSCREENCOUNTER	Y
	REDBLOCKSONSCREENCOUNTER	R
	LandLinesCounter		H
	LivesRemaining02Counter		Q
Program0123
TEXTBUFFER      LEVS                    


        spider.wbl


ENDBUFFER


Loop INIT
Do


	SendMessage	DEACTIVATESCORE
	SetParameter	NUMLINES	1
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP5
	SendMessage	SETBACKDROP

	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                30           
        SendMessage     LOADLEVEL
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	4000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
		SetParameter	LIVES	0
	SendMessage	SETLIVES
	SetParameter    TEXT    spider.wbw
	SendMessage     LOADWEAPONLIST

SendMessage     MUSIC_GROOVE_LOW
	SendMessage	FIRINGOFF
	SendMessage StartBriefing
	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight
	SetParameter	LIVES	0
	SendMessage	SETLIVES

	GotoLoop BRIEF
EndLoop


Loop BRIEF
Do




	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		SPIDER_LEGS
FRE	SetParameter	TEXT		PATTES_D'ARAIGNÉE
ITA	SetParameter	TEXT		ZAMPE_DI_RAGNO
SPA	SetParameter	TEXT		PATAS_DE_ARAŃA
GER	SetParameter	TEXT		SPINNENBEINE
POL	SetParameter	TEXT		Pajęcze_łapy.


	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		Clear_All_Yellow_Blocks
ITA	SetParameter	TEXT		Elimina_tutti_i_blocchi_gialli
FRE	SetParameter	TEXT		Déblayez_tous_les_blocs_jaunes
SPA	SetParameter	TEXT		Elimina_todos_los_bloques_amarillos
GER	SetParameter	TEXT		Räume_alle_gelben_Steine_ab,_
POL	SetParameter	TEXT		Zniszcz_wszystkie_żółte_cegły,


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Without_hitting_more_than_3_reds
FRE	SetParameter	TEXT		sans_détruire_de_rouges
ITA	SetParameter	TEXT		senza_distruggere_quelli_rossi.
SPA	SetParameter	TEXT		sin_destruir_los_rojos.
GER	SetParameter	TEXT		ohne_die_Roten_zu_zerstören.
POL	SetParameter	TEXT		oszczędzając_czerwone_3.


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		Three_Mins
FRE	SetParameter	TEXT		En_Trois_minutes
ITA	SetParameter	TEXT		Tre_minuti
SPA	SetParameter	TEXT		Tienes_tres_minutos.
GER	SetParameter	TEXT		Drei_Minuten
POL	SetParameter	TEXT		Trzy_minuty


	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
	







	OnMessage FIREPRESSED
	Do
SendMessage	MUSIC_GROOVE_MED_LOW


		SendMessage EndBriefing
	
		GotoLoop FALL
		
	EndResponse


EndLoop


Loop FALL
Do

	OnMessage TIMER2
	Do


	SendMessage	UNPAUSELANDLEFT
	SendMessage	UNPAUSELANDRIGHT

		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed
	
	set H to 0
	GotoLoop FALL2
	EndResponse
	
EndLoop


Loop FALL2
Do
	
	If H IsEqualTo 18
	then	


	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT

	SendMessage FIRINGON
	GotoLoop START
	endif
	
EndLoop

Loop START
Do
	
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	500
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	

	SetParameter	MESSAGE_ID	TIMER9
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


	SET T To 0
	SET R To 10000
	SET Y To 10000
	SET Z To 60
	SET X To 2
	SET Q TO 0

		GotoLoop MAIN
		
EndLoop












Loop MAIN
Do




	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale2		1.0	1.0	1.0	1.0
	SetParameter	Scale3		1.0	1.0	1.0	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		1.0	1.0	1.0	1.0
	SetParameter	FRAME		3
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	180.0	210.0	0.0	0.0
	SendMessage	CREATEICON

	SetParameter	Scale1		0.8	0.8	0.8	0.8
	SetParameter	Scale2		0.8	0.8	0.8	0.8
	SetParameter	Scale3		0.8	0.8	0.8	0.8
	SetParameter	Scale4		0.8	0.8	0.8	0.8
	SetParameter	Scale5		0.8	0.8	0.8	0.8



	OnMessage TIMER9
	Do
	

		SetParameter	Velocity	0.0	0.0	0.0	0.0


		If Z IsGreaterThan 60
		Then
			Subtract 60 From Z
			Add 1 to X
			
		EndIf

		Subtract 1 from Z

		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Position	240.0	210.0	0.0	0.0






		If Z IsLessThan 0
		Then
			Subtract 1 from X

			Set Z To 59
			
		EndIf

		If X IsEqualTo 0
		Then

			If Z IsLessThan 11
			Then

				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
			
			EndIf

		EndIf

		If Z IsLessThan 10
		Then
			SetParameter	Text		0
			SetParameter	Position	240.0	210.0	0.0	0.0
			SendMessage	CREATETEXT
			SetParameter	Position	255.0	210.0	0.0	0.0
		EndIf

		If Z IsEqualTo 60 
		Then

			Set Z TO 00
			ConvertToText   Z
			SendMessage	CREATETEXT
			
			Set Z To 60

		EndIf
		


		If X IsEqualTo -1
		Then

			Set Z To 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	TEXT	0
			SetParameter	Position	240.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			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	TEXT	0
			SetParameter	Position	255.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			Set X To 0
GOTOLOOP TIME


		EndIf


		If Z IsEqualTo 0
		Then

			If X IsEqualTo 0
			Then

GOTOLOOP TIME
			EndIf		

		EndIf


		If Z IsLessThan 60
		Then

			ConvertToText   Z
			SendMessage	CREATETEXT

		EndIf

		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	1.0	0.0

		ConvertToText	X
		SetParameter	Position	215.0	210.0	0.0	0.0
		SendMessage	CREATETEXT

	EndResponse







	SetParameter	Position	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight



	If Q 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	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
		SendMessage LOSECONDITION
		GotoLoop END
	EndIf





	

	If Z BECOMESLESSTHAN 60
	Then


SendMessage     MUSIC_GROOVE_MED

EndIf



	If Z BECOMESLESSTHAN 30
	Then


SendMessage     MUSIC_GROOVE_HIGH

EndIf




	If R ISLESSTHAN 21
	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		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
		SendMessage	LOSECONDITION
		GotoLoop END
		EndIf	
		
		If Y ISLESSTHAN 1
		Then




		GotoLoop ERRO


		EndIf
	
		

	
EndLoop


Loop ERRO
Do
	If R ISLESSTHAN 21
	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		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
		SendMessage	LOSECONDITION
		GotoLoop END
EndIf	

	If R IsGreaterThanOrEqualTo 21
	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





/No YELLOW BLOCKS ON SCREEN/
Loop NOYELL
Do


EndLoop

/TIME/
Loop CHECK
Do
	
	
	
EndLoop

Loop END
Do
EndLoop


Loop TIME
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		TIME'S_UP!
FRE			SetParameter	TEXT		TEMPS_ÉCOULÉ!
ITA			SetParameter	TEXT		TEMPO_ESAURITO!
SPA			SetParameter	TEXT		ˇTIEMPO!
GER	SetParameter	TEXT		ENDE!
POL	SetParameter	TEXT		Czas_upłynął


			SendMessage	CREATETEXT

			SendMessage 	LOSECONDITION
			GotoLoop END



EndLoop




EndFile
