GameMode	palm
GameType	QUEST
	

Program0123









GREENBLOCKSONSCREENCOUNTER	G
ORANGEBLOCKSONSCREENCOUNTER	O
YELLOWBLOCKSONSCREENCOUNTER	Y
WEAPONFIREDCOUNTER		F
LivesRemaining02Counter		Q
BulletGoneCounter		B





TEXTBUFFER      LEVS                   


        palm.wbl


ENDBUFFER





Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP13
	SendMessage	SETBACKDROP
        SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                20           
        SendMessage     LOADLEVEL


	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
		SetParameter	LIVES	0
	SendMessage	SETLIVES
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	500
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	3500
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SET G To 1000
	SET O To 1000
	SET Y To 1000
	Set A To 15
	Set F To 0
	Set C To 0
	
	SetParameter    TEXT    palm.wbw
	SendMessage     LOADWEAPONLIST

	SendMessage     MUSIC_GROOVE_LOW
		SetParameter	Position	0	-195	0	0
	SendMessage	CHANGEWATERHEIGHT
	

	SendMessage	FIRINGOFF
	SendMessage StartBriefing



		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		PALM_OF_MY_HAND
FRE	SetParameter	TEXT		LA_PAUME_DE_MA_MAIN
ITA	SetParameter	TEXT		PALMO_DELLA_MANO
SPA	SetParameter	TEXT		PALMERO_SUBE_A_LA_PALMA
GER	SetParameter	TEXT		PALMEN_AM_STRAND
POL	SetParameter	TEXT		Tu_mi_palma_wyrośnie


	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		Remove_all_the_green
FRE	SetParameter	TEXT		Enlevez_tous_les_blocs
ITA	SetParameter	TEXT		Rimuovi_tutti_i_blocchi_verdi
SPA	SetParameter	TEXT		Elimina_todos_los_bloques_verdes
GER	SetParameter	TEXT		Räume_mit_nur_15_Schuss
POL	SetParameter	TEXT		Usuń_wszystkie_zielone


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		blocks_Without_hitting_the_sand
FRE	SetParameter	TEXT		sans_toucher_le_sable
ITA	SetParameter	TEXT		senza_colpire_la_sabbia.
SPA	SetParameter	TEXT		CON_SÓLO_15_DISPAROS,_PERO
GER	SetParameter	TEXT		alle_grünen_Steine_ab
POL	SetParameter	TEXT		cegły_nie_ruszając_piasku.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		With_only_15_shots
FRE	SetParameter	TEXT		en_un_maximum_de_15_tirs.
ITA	SetParameter	TEXT		Hai_a_disposizione_15_colpi.
SPA	SetParameter	TEXT		TEN_CUIDADO_CON_LA_ARENA.
GER	SetParameter	TEXT		ohne_den_Sand_zu_treffen
POL	SetParameter	TEXT		Masz_tylko_15_strzałów


	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
		SendMessage FIRINGON	
		GotoLoop MAIN
		
	EndResponse

EndLoop

Loop MAIN
Do
			SetParameter	Position	0	-195	0	0
	SendMessage	CHANGEWATERHEIGHT
GosubLoop YELL
GosubLoop SHOTS


	If Q BecomesEqualTo -1
	Then

		SendMessage LOSECONDITION

	EndIf

	If F BecomesGreaterThan C	
	Then

		Subtract 1 From A
		Set C To F

	EndIf

	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0
	SetParameter	Scale1		0.5	0.5	0.5	0.0
	SetParameter	Scale2		1.5	1.5	1.5	0.0
	
	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

	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

	SetParameter	Position	-40.0	220.0	0.0	0.0
SPA	SetParameter	Position	-50.0	220.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Left
	SetParameter	TEXT		Shots_Remaining
FRE	SetParameter	TEXT		Tirs_restants
ITA	SetParameter	TEXT		Colpi
SPA	SetParameter	TEXT		Disparos_Restantes
POL	SetParameter	TEXT		Strzały:


GER	SetParameter	Position	100.0	220.0	0.0	0.0
GER	SetParameter	TEXT		_____Schüsse


	SendMessage	CREATETEXT


	SetParameter	Colour1		0.0	1.0	0.0	1.0
	SetParameter	Colour2		0.0	1.0	0.0	1.0
	SetParameter	Colour3		0.0	1.0	0.0	1.0

	If A IsLessThan 6
	Then

		SetParameter	Colour1		1.0	0.0	0.0	1.0
		SetParameter	Colour2		1.0	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.0	0.0	1.0

	EndIf

	SetParameter	Position	250.0	220.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Left
	ConvertToText	A
	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

If G BECOMESLESSTHAN 1
	then	
		SetParameter	Justify		Centre
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 WIN

	
	endif



EndLoop

Loop MAIN2
Do
GosubLoop YELL
GosubLoop SHOTS




EndLoop


	
Loop SHOTS
Do
	



If F BECOMESGREATERTHAN 4
	then
		SetParameter	Text		Ten_Left
FRE		SetParameter	TEXT		Dix_restants
ITA		SetParameter	TEXT		Ancora_dieci
SPA		SetParameter	TEXT		Quedan_diez
GER	SetParameter	TEXT	Noch_zehn
POL	SetParameter	TEXT	Pozostało_10_strzałów



		SetParameter	Lifetime	0.1	0.2	2.1	1.0
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Position	0.0	50.0	0.0	0.0
		SendMessage	CREATETEXT

	endif





If F BECOMESGREATERTHAN 9
	then
		SetParameter	Text		Five_Left
FRE		SetParameter	TEXT		Cinq_restants
ITA		SetParameter	TEXT		Ancora_cinque
SPA		SetParameter	TEXT		Quedan_cinco
GER	SetParameter	TEXT	Noch_fünf
POL	SetParameter	TEXT	Pozostało_5_strzałów


		SetParameter	Lifetime	0.1	0.2	2.1	1.0
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Position	0.0	50.0	0.0	0.0
		SendMessage	CREATETEXT
	SendMessage     MUSIC_GROOVE_MED
	endif





If F BECOMESGREATERTHAN 12
	then
		SetParameter	Text		Two_Left
FRE		SetParameter	TEXT		Deux_restants
ITA		SetParameter	TEXT		Ancora_due
SPA		SetParameter	TEXT		Quedan_dos
GER	SetParameter	TEXT	Noch_zwei
POL	SetParameter	TEXT	Pozostało_2_strzałów


		SetParameter	Lifetime	0.1	0.2	2.1	1.0
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Position	0.0	50.0	0.0	0.0
		SendMessage	CREATETEXT
			SendMessage     MUSIC_GROOVE_HIGH

	endif






If F BECOMESGREATERTHAN 14
	then
		SetParameter	Text		NO_MORE_SHOTS
FRE		SetParameter	TEXT		IL_N'Y_A_PLUS_DE_TIRS
ITA		SetParameter	TEXT		COLPI_TERMINATI
SPA		SetParameter	TEXT		NO_TE_QUEDA_MUNICIÓN
GER	SetParameter	TEXT	KEINE_SCHÜSSE_ÜBRIG
POL	SetParameter	TEXT	Koniec_amunicji!
	SetParameter	MESSAGE_ID	TIMER8
	SetParameter	INTERVAL	6500
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

		SetParameter	Lifetime	0.1	0.2	2.1	1.0
		SetParameter	Colour2		1.0	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.0	0.0	1.0
		SetParameter	Position	0.0	50.0	0.0	0.0
Set B To 0
		
		SendMessage FIRINGOFF

		GotoLoop CHECK
		
	endif






EndLoop




Loop YELL
Do
	If Y BECOMESLESSTHAN 42
	then	
	
	SetParameter	Justify		Centre
			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	CLEARPROJECTILES
			SendMessage	LOSECONDITION
			SendMessage	FIRINGOFF
			GotoLoop	WIN

	
	endif	
EndLoop




Loop CHECK
Do
	SendMessage 	FIRINGOFF

	OnMessage TIMER8
	Do

		Set Z To 0

		If G BECOMESLESSTHAN 1
		Then	
	


			SendMessage FIRINGOFF
			SendMessage	WINCONDITION
			Set Z To 1
			GotoLoop WIN

		endif

		If Z IsEqualTo 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	Justify		Centre		
			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
			SendMessage	FIRINGOFF
			GotoLoop	WIN
		Endif

	EndResponse

EndLoop



Loop WIN
Do
		
EndLoop


EndFile


