GameMode	cherry
GameType	QUEST
	

Program0123


TEXTBUFFER      LEVS                    


        cherry.wbl


ENDBUFFER


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

Loop INIT
Do


    SetParameter GD_FLOAT    30.0 0 0 0
    SetParameter GAMEDATA    WATERMINLEVEL
    SendMessage  SET_GD_FLOAT

	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 F TO 0
	SET G To 1000
	SET O To 1000
	SET R To 1000
	Set Z To 0

	Set A To 20

	Set C To 0

	SetParameter	POSITION	0.0	-200.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	SetParameter    TEXT    cherry.wbw
	SendMessage     LOADWEAPONLIST

	SendMessage	DEACTIVATESCORE


	SendMessage     MUSIC_GROOVE_LOW
	
	SendMessage	EndBriefing
	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		CHERRY_FOR_TWO
FRE	SetParameter	TEXT		CERISE_POUR_DEUX
	GER SetParameter	Text	KIRSCHEN_FÜR_ZWEI
	SPA SetParameter	Text	CEREZAS_PARA_DOS
	ITA SetParameter	TEXT	CILIEGIE_PER_DUE
	POL SetParameter	TEXT	Wisienka_czy_dwie?


	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		Eat_the_cherries
FRE	SetParameter	TEXT		Mangez_les_cerises
	GER SetParameter	Text	Iss_die_Kirschen
	SPA SetParameter	Text	Intenta_comerte_las_cerezas
	ITA SetParameter	TEXT	Mangia_le_ciliegie
	POL SetParameter	TEXT	Zjedz_wszystkie_wisienki


	
	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Without_hitting_the_stalk
FRE	SetParameter	TEXT		sans_toucher_la_queue
	GER SetParameter	Text	mit_nur_20_Schuss
	SPA SetParameter	Text	SIN_TOCAR_LA_RAMA
	ITA SetParameter	TEXT	senza_colpire_il_gambo.
	POL SetParameter	TEXT	Nie_uderzając_się_w_???



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		With_only_20_shots
FRE	SetParameter	TEXT		en_20_tirs_maximum
	GER SetParameter	Text	ohne_den_Stängel_zu_treffen
	SPA SetParameter	Text	y_con_sólo_20_disparos.
	ITA SetParameter	TEXT	Hai_a_disposizione_20_colpi.
	POL SetParameter	TEXT	Mając_tylko_20_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	-200.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	100.0	220.0	0.0	0.0
	POL SetParameter	Position	70.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
	GER SetParameter	Text	Schüsse
	ITA SetParameter	TEXT	Colpi
	POL SetParameter	TEXT	strzałów



	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	Disparos_Restantes

	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 Q BecomesEqualTo -1
	Then

		SendMessage FIRINGOFF
		SendMessage LOSECONDITION

	EndIf

	If O BECOMESLESSTHAN 22
	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

		SET G To 1000
		SET O To 1000
		SET R To 1000

		GotoLoop	WIN

	endif	


	If F BECOMESGREATERTHAN 4
	then

		SetParameter	Lifetime	0.1	0.2	2.1	1.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	0.0	50.0	0.0	0.0
		SetParameter	Justify		Centre
		SetParameter	Text		Make_those_shots_count
FRE		SetParameter	TEXT		Réglez_bien_vos_tirs!
		GER SetParameter	Text	Die_nächsten_Schüsse_müssen_zählen!
		SPA SetParameter	Text	ˇAprovecha_esos_disparos!
		ITA SetParameter	TEXT	Non_sprecare_i_colpi!
		POL SetParameter	TEXT	Licz_amunicję!


		SendMessage	CREATETEXT

	endif





	If F BECOMESGREATERTHAN 9
	then

		SetParameter	Lifetime	0.1	0.2	2.1	1.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	0.0	50.0	0.0	0.0
		SetParameter	Justify		Centre
		SetParameter	Text		You_can_do_it!
FRE		SetParameter	TEXT		Vous_pouvez_y_arriver!
		GER SetParameter	Text	Du_kannst_es_schaffen!
		SPA SetParameter	Text	ˇTú_puedes_hacerlo!
		ITA SetParameter	TEXT	Puoi_farcela!
		POL SetParameter	TEXT	Dalej,_uda_Ci_się.!


		SendMessage	CREATETEXT

		SendMessage MUSIC_GROOVE_MED

	endif





	If F BECOMESGREATERTHAN 14
	then

		SetParameter	Lifetime	0.1	0.2	2.1	1.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	0.0	50.0	0.0	0.0
		SetParameter	Justify		Centre
		SetParameter	Text		Nearly_out_of_shots!
FRE		SetParameter	TEXt		Vos_tirs_sont_presque_épuisés!
		GER SetParameter	Text	Kaum_noch_Munition!
		SPA SetParameter	Text	ˇCasi_no_te_quedan_disparos!
		ITA SetParameter	TEXT	Hai_quasi_finito_i_colpi!
		POL SetParameter	TEXT	Kończy_Ci_się_amunicja!



		SendMessage	CREATETEXT

		SendMessage MUSIC_GROOVE_HIGH

	endif






	If F BECOMESEQUALTO 20
	then

		SetParameter	Lifetime	0.1	0.2	2.1	1.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	0.0	50.0	0.0	0.0
		SetParameter	Justify		Centre
		SetParameter	Text		NO_MORE_SHOTS!
FRE		SetParameter	TEXT		IL_N'Y_A_PLUS_DE_TIRS!
		GER SetParameter	Text	KEINE_SCHÜSSE_ÜBRIG!
		SPA SetParameter	Text	ˇSE_TE_ACABÓ_LA_MUNICIÓN!
		ITA SetParameter	TEXT	COLPI_TERMINATI!
		POL SetParameter	TEXT	Koniec_amunicji!


		SendMessage	CREATETEXT

		Set B To 0
		Set Z To 0

		SendMessage 	FIRINGOFF


		GotoLoop CHECK

	endif




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

		


		SetParameter	TEXT	yellow
		SendMessage	SETNEXTGAMEMODE
		SendMessage	LOSECONDITION

		GotoLoop WIN


endif
EndLoop


Loop CHECK
Do

	SetParameter	POSITION	0.0	-200.0	0.0	0.0
	SendMessage	ChangeWaterHeight

	OnMessage TIMER3
	Do

		Add 1 To Z

	EndResponse


	If B IsEqualTo 1
	Then

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

		


			SetParameter	TEXT	yellow
			SendMessage	SETNEXTGAMEMODE
			SendMessage	LOSECONDITION

			GotoLoop WIN

		endif

		If O BECOMESLESSTHAN 22
		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
ENG SetParameter	Text		FAILED!
FRE SetParameter	TEXT		ÉCHEC!
GER SetParameter	Text	VERLOREN!
SPA SetParameter	Text	ˇFALLASTE!
ITA SetParameter	TEXT	FAILED!
POL SetParameter	TEXT	Klęska



SendMessage	CREATETEXT

				

			SendMessage	LOSECONDITION

			SET G To 1000
			SET O To 1000
			SET R To 1000

			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
ENG SetParameter	Text	FAILED!
FRE SetParameter	TEXT		ÉCHEC!
GER SetParameter	Text	VERLOREN!
SPA SetParameter	Text	ˇFALLASTE!
ITA SetParameter	TEXT	FAILED!
POL SetParameter	TEXT	Klęska
SendMessage	CREATETEXT
			SendMessage LOSECONDITION

		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	FAILED!
POL SetParameter	TEXT	Klęska
SendMessage	CREATETEXT

		SendMessage	LOSECONDITION
		GotoLoop WIN

	EndIf


EndLoop


Loop WIN
Do
	
	
EndLoop


EndFile


