GameMode	apples
GameType	QUEST



Program0123

TEXTBUFFER      LEVS                  
        apples.wbl
ENDBUFFER

GREENBLOCKSONSCREENCOUNTER	G
ORANGEBLOCKSONSCREENCOUNTER	O
REDBLOCKSONSCREENCOUNTER	R
WEAPONFIREDCOUNTER		F
LANDDROPPEDINWATERCOUNTER	W
LivesRemaining02Counter		Q
BulletGoneCounter		B


Loop INIT
Do
	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP5
	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

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SET G To 1000
	SET O To 1000
	SET R To 1000	
	SET W To 0

	Set A To 6
	Set B To 0
	Set C To 0
	Set F To 0
	Set Q To 0
	SendMessage	DEACTIVATESCORE

	SendMessage	MUSIC_GROOVE_LOW
	
	SetParameter    TEXT    apples.wbw
	SendMessage     LOADWEAPONLIST


	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		APPLE_DROP
FRE	SetParameter	TEXT		LÂCHER_DE_POMMES
	GER SetParameter	Text		ÄPFEL_PFLÜCKEN
	SPA SetParameter	Text		LA_CAÍDA_DE_LA_MANZANA
	ITA SetParameter	TEXT		PIOVONO_MELE
	POL SetParameter	TEXT		Jabłuszka




	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		Drop_all_the_apples
FRE	SetParameter	TEXT		Lâcher_toutes_les_pommes
	GER SetParameter	Text		Lass_alle_Äpfel_ins
	SPA SetParameter	Text		Haz_que_las_manzanas
	ITA SetParameter	TEXT		Fai_cadere_tutte_le_mele
	POL SetParameter	TEXT		Zrzuć_wszystkie_jab-

	



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		into_the_water
FRE	SetParameter	TEXT		dans_l'eau
	GER SetParameter	Text	Wasser_fallen,_indem
	SPA SetParameter	Text	caigan_al_agua	
	ITA SetParameter	TEXT	in_acqua,_colpendo
	POL SetParameter	TEXT	łka_do_wody,
	

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		hitting_only_the_leaves
FRE	SetParameter	TEXT		Ne_visez_que_les_feuilles.
	GER SetParameter	Text	du_mit_nur_6_Schuss
	SPA SetParameter	Text	disparando_a_las_hojas.
	ITA SetParameter	TEXT	solamente_le_foglie.
	POL SetParameter	TEXT	trafiając_wyłącznie_w_listki.

	

	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		with_only_6_shots.
FRE	SetParameter	TEXT		Vous_avez_un_maximum_de_six_tirs.
	GER SetParameter	Text	alle_Blätter_triffst.
	SPA SetParameter	Text	Sólo_tienes_seis_disparos.
	ITA SetParameter	TEXT	Hai_a_disposizione_6_colpi.
	POL SetParameter	TEXT	Mszy_tylko_6_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!
	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
SendMessage	MUSIC_GROOVE_MED_LOW
		SendMessage EndBriefing
		SendMessage FIRINGON	
		GotoLoop MAIN
		
	EndResponse

EndLoop




Loop MAIN
Do


	SetParameter	POSITION	0.0	-175.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	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

	SetParameter	Position	-40.0	220.0	0.0	0.0
	GER SetParameter	Position	50.0	220.0	0.0	0.0
	GER SetParameter	Position	240.0	220.0	0.0	0.0
	POL SetParameter	Position	80.0	220.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Left

	GER SetParameter	Scale1		0.9	0.9	0.9	0.0
	GER SetParameter	Scale2		0.9	0.9	0.9	0.0
	GER SetParameter	Scale3		0.9	0.9	0.9	0.0
	GER SetParameter	Scale4		0.9	0.9	0.9	0.0
	GER SetParameter	Scale5		0.9	0.9	0.9	0.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

	GER SetParameter	Justify		RIGHT
	SetParameter	TEXT		Shots_Remaining
	GER SetParameter	Text	Schüsse
	SPA SetParameter	Text	Disparos_Restantes
	ITA SetParameter	TEXT	Colpi
FRE	SetParameter	TEXT		Tirs_restants
	POL SetParameter	TEXT	pocisków



	SendMessage	CREATETEXT
	GER SetParameter	Scale1		1.0	1.0	1.0	0.0
	GER SetParameter	Scale2		1.0	1.0	1.0	0.0
	GER SetParameter	Scale3		1.0	1.0	1.0	0.0
	GER SetParameter	Scale4		1.0	1.0	1.0	0.0
	GER SetParameter	Scale5		1.0	1.0	1.0	0.0

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


	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	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 A BecomesEqualTo 4
	Then

		SendMessage	MUSIC_GROOVE_MED

	EndIf

	If A BecomesEqualTo 2
	Then

		SendMessage	MUSIC_GROOVE_HIGH

	EndIf

	If F BECOMESEQUALTO 6
	then

		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	Lifetime	0.1	0.2	2.1	1.0
		SetParameter	Position	0.0	50.0	0.0	0.0
		SetParameter	Text		NO_MORE_SHOTS
FRE		SetParameter	TEXT		IL_N'Y_A_PLUS_DE_TIRS
		GER SetParameter	Text	KEIN_SCHUSS_ÜBRIG
		SPA SetParameter	Text	NO_TE_QUEDAN_DISPAROS
		ITA SetParameter	TEXT	HAI_TERMINATO_I_COLPI
	POL SetParameter	TEXT	Koniec_amunicji


		Set B To 0
		Set Z To 0
		
		SendMessage FIRINGOFF
	
		GotoLoop CHECK

	Endif

	If O BECOMESLESSTHAN 39
	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!
GER SetParameter	Text	VERLOREN!
SPA SetParameter	Text	ˇFALLASTE!
ITA SetParameter	TEXT	HAI_FALLITO!
	POL SetParameter	TEXT	Klęska




SendMessage	CREATETEXT
		

		SendMessage	FIRINGOFF

		SendMessage	LOSECONDITION

		GotoLoop	WIN
	endif


	If Q BecomesEqualTo -1
	Then
		SendMessage	FIRINGOFF
		SendMessage LOSECONDITION

	EndIf


	If W BECOMESGREATERTHAN 76
	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	SUCCESS!
FRE SetParameter	TEXT	RÉUSSI!
GER SetParameter	Text	GESCHAFFT!
SPA SetParameter	Text	ˇLO_CONSEGUISTE!
ITA SetParameter	TEXT	HAI_VINTO!
	POL SetParameter	TEXT	Sukces




SendMessage	CREATETEXT

		SendMessage	FIRINGOFF


		SetParameter	TEXT	spider
		SendMessage	SETNEXTGAMEMODE
		SendMessage	LOSECONDITION

		GotoLoop	WIN

	endif

	

EndLoop

Loop CHECK
Do

	OnMessage TIMER3
	Do
	
		Add 1 To Z

	EndResponse


	If B IsEqualTo 1
	Then

		If O BECOMESLESSTHAN 39
		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!
GER SetParameter	Text	VERLOREN!
SPA SetParameter	Text	ˇFALLASTE!
ITA SetParameter	TEXT	HAI_FALLITO!
	POL SetParameter	TEXT	Klęska



SendMessage	CREATETEXT
			SendMessage	LOSECONDITION
			GotoLoop	WIN
		endif

		
		If W BECOMESGREATERTHAN 76
		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	SUCCESS!
FRE SetParameter	TEXT	RÉUSSI!
GER SetParameter	Text	GESCHAFFT!
SPA SetParameter	Text	ˇLO_CONSEGUISTE!
ITA SetParameter	TEXT	HAI_VINTO!
	POL SetParameter	TEXT	Sukces




SendMessage	CREATETEXT



			SendMessage	FIRINGOFF


			SetParameter	TEXT	spider
			SendMessage	SETNEXTGAMEMODE
			SendMessage	LOSECONDITION

			GotoLoop	WIN

		endif

		If Q BecomesEqualTo -1
		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!
GER SetParameter	Text	VERLOREN!
SPA SetParameter	Text	ˇFALLASTE!
ITA SetParameter	TEXT	HAI_FALLITO!
	POL SetParameter	TEXT	Klęska



SendMessage	CREATETEXT
			SendMessage LOSECONDITION
GotoLoop WIN
		EndIf


	EndIf


	If Z BecomesEqualTo 7
	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!
GER SetParameter	Text	VERLOREN!
SPA SetParameter	Text	ˇFALLASTE!
ITA SetParameter	TEXT	HAI_FALLITO!
	POL SetParameter	TEXT	Klęska

SendMessage	CREATETEXT
		SendMessage 	FIRINGOFF

		SendMessage	LOSECONDITION
		GotoLoop WIN
	EndIf


EndLoop



Loop WIN
Do
	
EndLoop

EndFile