GameMode	dragon
GameType	QUEST
LandLinesCounter		H
GREENBLOCKSONSCREENCOUNTER		G
RedComboCounter				R
ORANGEBLOCKSONSCREENCOUNTER		O
COLLECTSTARCOUNTER			S
LivesRemaining02Counter			Q

Program0123


TEXTBUFFER      LEVS
        dragon.wbl
ENDBUFFER

/ FIR1 DRAWS RED BLOBS AND FIR2 DESTROYS THEM/

DATABUFFER	FIR1

20 25 21 25 22 25 23 25 24 25 24 26 24 27 24 28 24 29 24 30 24 31 24 32 24 33 24 34 24 36 
24 37 24 38 23 39 22 39 21 39 20 39 19 39 18 39 17 39 16 39 15 39 14 39 13 39 12 39 11 39 10 39 9 39 8 39 7 39 6 39 5 39 4 39 




ENDBUFFER

DATABUFFER	FIR2

20 25 21 25 22 25 23 25 24 25 24 26 24 27 24 28 24 29 24 30 24 31 24 32 24 33 24 34 24 36 
24 37 24 38 23 39 22 39 21 39 20 39 19 39 18 39 17 39 16 39 15 39 14 39 13 39 12 39 11 39 10 39 9 39 8 39 7 39 6 39 5 39 4 39 

ENDBUFFER


DATABUFFER	FIR3

23 37 24 38 24 39 23 36 22 38 22 39 20 39 21 37 20 38

ENDBUFFER

DATABUFFER	FIR4


23 37 24 38 24 39 23 36 22 38 22 39 20 39 21 37 20 38

ENDBUFFER


DATABUFFER	GREN


1 37 2 37 3 37 4 37 5 37 6 37 6 36 7 36 8 36 8 35 9 35 10 36 10 36 11 36 11 37 12 37 13 37 14 37 15 37 16 36 16 35 17 35 19 35 
18 35 19 36 19 37 20 36 21 36 20 35 21 24 22 34 22 35 19 27 20 26 21 26 21 27 19 25 19 24 19 23 20 23 21 23 22 23 23 23 24 22 
23 21 3 36 4 36 12 36 14 36 13 36 15 36 0 32 0 33 1 33 2 32 2 20 2 29 3 29 4 29 5 30 5 31 6 32 6 33 7 34 7 35 8 34 9 34 10 34 10 35 11 35 
12 35 13 35 14 35 15 35 16 34 17 34 18 34 17 33 18 32 18 31 19 30 19 29 19 28 22 35 21 35 21 36 21 34 20 34 18 34 18 35 17 33 18 32 18 31 19 28 
20 26 21 26 22 23 23 23 24 22 18 27 19 26 19 25 20 26 19 28 18 29 -1 -1

ENDBUFFER

DATABUFFER	ORAN


20 28 20 29 20 30 19 31 19 32 18 33

ENDBUFFER

Loop INIT
Do
SET A TO 0
SET B TO 0
SET C TO 0
SET J TO 0
SET G TO 1000
SET O TO 1000
SET X TO 0
SET Y TO 0
SET Q TO 3
    SetParameter GD_FLOAT    30.0 0 0 0
    SetParameter GAMEDATA    WATERMINLEVEL
    SendMessage  SET_GD_FLOAT


	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE


	SendMessage	DEACTIVATESCORE

SetParameter    TEXT    dragon.wbw
SendMessage     LOADWEAPONLIST
SetParameter	NUMLINES	19
	SendMessage	SetStartLines
	
	SetParameter	BACKDROP	BACKDROP7
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                40      
        SendMessage     LOADLEVEL

	SetParameter	LIVES	3
	SendMessage	SETLIVES


	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	
	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT
	


	If Q BecomesLessThan 0
	Then
		SendMessage	LOSECONDITION
		Gotoloop WIN
	EndIf
	SendMessage	FIRINGOFF
	SendMessage StartBriefing
	GotoLoop		BRIEF
EndLoop






Loop BRIEF
Do
	



	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT





	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		DRAGON_IT_ON
FRE	SetParameter	TEXT		SUS_AU_DRAGON
	GER SetParameter	Text	DRACHENKAMPF
	SPA SetParameter	Text	EL_DRAGÓN
	ITA SetParameter	TEXT	CACCIA_AL_DRAGO
	POL SetParameter	TEXT	SMOK

	
	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.7	0.7	0.7	0.0
	SetParameter	Scale2		0.7	0.7	0.7	0.0
	SetParameter	Scale3		0.7	0.7	0.7	0.0
	SetParameter	Scale4		0.7	0.7	0.7	0.0
	SetParameter	Scale5		0.7	0.7	0.7	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		Destroy_the_dragon_by
FRE	SetParameter	TEXT		Détruisez_le_dragon_en_atteignant
	GER SetParameter	Text	Zerstöre_den_Drachen,_indem_du
	SPA SetParameter	Text	Destruye_al_dragón_disparando
	ITA SetParameter	TEXT	Distruggi_il_drago_colpendo
	POL SetParameter	TEXT	Pokonaj_smoka


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Hitting_its_soft_orange_underbelly
FRE	SetParameter	TEXT		son_point_faible:_son_ventre_orange.
	GER SetParameter	Text	seinen_weichen_orangen_Unterbauch_beschießt.
	SPA SetParameter	Text	a_su_panza_naranja.
	ITA SetParameter	TEXT	la_parte_morbida_del_ventre_arancione.
	POL SetParameter	TEXT	trafiając_go_w_miękkie,_pomarańczowe_podbrzusze.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		Watch_the_dragons_head
FRE	SetParameter	TEXT		Faites_attention_ŕ_la_tęte_du_dragon
	GER SetParameter	Text	Beobachte_den_Kopf_des_Drachen
	SPA SetParameter	Text	CUIDADO_CON_LO_QUE_SALE 
	ITA SetParameter	TEXT	Stai_attento_ai_movimenti_della_sua_testa
	POL SetParameter	TEXT	Uważaj_na_smoczą_głowę,_gdyż

	SendMessage 	CREATETEXT



	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		for_its_offensive_moves
FRE	SetParameter	TEXT		et_ŕ_ses_mouvements_offensifs.
	GER SetParameter	Text	um_seine_Attacken_vorauszunehmen.
	SPA SetParameter	Text	DE_LA_CABEZA_DEL_DRAGÓN.
	ITA SetParameter	TEXT	per_evitare_gli_attacchi.
	POL SetParameter	TEXT	za_jej_pomocą_smok_atakuje.



	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	

	SendMessage     MUSIC_GROOVE_MED

	ResetBuffer	GREN



	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	99
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	7000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	155
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER6
	SetParameter	INTERVAL	1
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER7
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER





		GotoLoop START
		
	EndResponse










EndLoop







/decide which attack the dragon will perform/
Loop START
Do

/	Set X To 0/
/	While X IsGreaterThanOrEqualTo 0/
/	Do/
/		ReadFromBuffer GREN Into X/
/		ReadFromBuffer GREN Into Y/
/		If X IsGreaterThanOrEqualTo 0/
/		Then/
			
/			SetParameter	POSITION	X	Y	0	0/
/			SetParameter	BlockColour	GREEN/
/			SendMessage	SPAWNINBLOCK/
/		Endif/
/	EndWhile/
/	ResetBuffer GREN /
	SendMessage	LOCKCOLOURS
	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT

	SET B TO 0





	If J  BECOMESEQUALTO 1
		Then

	SetParameter	Justify		Centre
	SetParameter	Lifetime	0.1	0.1	1.0	0.5
	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dragon_Health_90
FRE	SetParameter	TEXT		Santé_Dragon_90
	GER SetParameter	Text	Drachenleben_90
	SPA SetParameter	Text	Salud_del_Dragón_90
	ITA SetParameter	TEXT	Energia_del_drago_al_90_per_cento.
	POL SetParameter	TEXT	Siła_smoka_90


	
	SendMessage 	CREATETEXT
	EndIf



	If J  BECOMESEQUALTO 2
		Then

	SetParameter	Justify		Centre
	SetParameter	Lifetime	0.1	0.1	1.0	0.5
	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dragon_Health_80
FRE	SetParameter	TEXT		Santé_Dragon_80
	GER SetParameter	Text	Drachenleben_80
	SPA SetParameter	Text	Salud_del_Dragón_80
	ITA SetParameter	TEXT	Energia_del_drago_al_80_per_cento.
	POL SetParameter	TEXT	Siła_smoka_80
	SendMessage 	CREATETEXT
	EndIf


	If J  BECOMESEQUALTO 3
		Then

	SetParameter	Justify		Centre
	SetParameter	Lifetime	0.1	0.1	1.0	0.5
	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dragon_Health_70
FRE	SetParameter	TEXT		Santé_Dragon_70
	GER SetParameter	Text	Drachenleben_70
	SPA SetParameter	Text	Salud_del_Dragón_70
	ITA SetParameter	TEXT	Energia_del_drago_al_70_per_cento.
	POL SetParameter	TEXT	Siła_smoka_70
	SendMessage 	CREATETEXT
	EndIf




	If J  BECOMESEQUALTO 4
		Then

	SetParameter	Justify		Centre
	SetParameter	Lifetime	0.1	0.1	1.0	0.5
	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dragon_Health_60
FRE	SetParameter	TEXT		Santé_Dragon_60
	GER SetParameter	Text	Drachenleben_60
	SPA SetParameter	Text	Salud_del_Dragón_60
	ITA SetParameter	TEXT	Energia_del_drago_al_60_per_cento.
	POL SetParameter	TEXT	Siła_smoka_60
	SendMessage 	CREATETEXT
	EndIf




	If J  BECOMESEQUALTO 5
		Then

	SetParameter	Justify		Centre
	SetParameter	Lifetime	0.1	0.1	1.0	0.5
	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dragon_Health_50
FRE	SetParameter	TEXT		Santé_Dragon_50
	GER SetParameter	Text	Drachenleben_50
	SPA SetParameter	Text	Salud_del_Dragón_50
	ITA SetParameter	TEXT	Energia_del_drago_al_50_per_cento.
	POL SetParameter	TEXT	Siła_smoka_50
	SendMessage 	CREATETEXT
	EndIf





	If J  BECOMESEQUALTO 6
		Then

	SetParameter	Justify		Centre
	SetParameter	Lifetime	0.1	0.1	1.0	0.5
	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dragon_Health_40
FRE	SetParameter	TEXT		Santé_Dragon_40
	GER SetParameter	Text	Drachenleben_40
	SPA SetParameter	Text	Salud_del_Dragón_40
	ITA SetParameter	TEXT	Energia_del_drago_al_40_per_cento.
	POL SetParameter	TEXT	Siła_smoka_40
	SendMessage 	CREATETEXT
	EndIf




	If J  BECOMESEQUALTO 7
		Then

	SetParameter	Justify		Centre
	SetParameter	Lifetime	0.1	0.1	1.0	0.5
	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dragon_Health_30
FRE	SetParameter	TEXT		Santé_Dragon_30
	GER SetParameter	Text	Drachenleben_30
	SPA SetParameter	Text	Salud_del_Dragón_30
	ITA SetParameter	TEXT	Energia_del_drago_al_30_per_cento.
	POL SetParameter	TEXT	Siła_smoka_30
	SendMessage 	CREATETEXT
	EndIf








	If J  BECOMESEQUALTO 8
		Then

	SetParameter	Justify		Centre
	SetParameter	Lifetime	0.1	0.1	1.0	0.5
	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dragon_Health_20
FRE	SetParameter	TEXT		Santé_Dragon_20
	GER SetParameter	Text	Drachenleben_20
	SPA SetParameter	Text	Salud_del_Dragón_20
	ITA SetParameter	TEXT	Energia_del_drago_al_20_per_cento.
	POL SetParameter	TEXT	Siła_smoka_20
	SendMessage 	CREATETEXT
	EndIf





	If J  BECOMESEQUALTO 9
		Then

	SetParameter	Justify		Centre
	SetParameter	Lifetime	0.1	0.1	1.0	0.5
	SetParameter	Colour1		0.57	0.8	1.0	1.0
	SetParameter	Colour2		0.57	0.8	1.0	1.0
	SetParameter	Colour3		0.57	0.8	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		Dragon_Health_10
FRE	SetParameter	TEXT		Santé_Dragon_10
	GER SetParameter	Text	Drachenleben_10
	SPA SetParameter	Text	Salud_del_Dragón_10
	ITA SetParameter	TEXT	Energia_del_drago_al_10_per_cento.
	POL SetParameter	TEXT	Siła_smoka_10
	SendMessage 	CREATETEXT
	EndIf














	If J  BECOMESEQUALTO 10
		Then
		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Velocity	0.0	0.01	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	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	Lifetime	0.1	0.1	4.0	1.5
		SetParameter	Justify		Centre
		SetParameter	Text		QUICK_COLLECT_THE_STARS!
FRE		SetParameter	TEXT		PRENEZ_VITE_LES_ÉTOILES!
		GER SetParameter	Text	SCHNELL,_SAMMLE_DIE_STERNE!
		ITA SetParameter	TEXT	PRESTO!_RACCOGLI_LE_STELLE!
		POL SetParameter	TEXT	SZYBKO_ZBIERZ_GWIAZDKI!


		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	ˇRÁPIDO,_RECOGE_TODAS_LAS_ESTRELLAS!

	
		SetParameter	Colour2		1.0	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.0	0.0	1.0
		SetParameter	Position	0.0	0.0	0.0	0.0
		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

		SetParameter	POSITION	17	23	1	0
		SendMessage	DETONATEBLOCK
		GotoLoop	FINAL

	EndIf

		If O IsLessThan 5
		Then
			
		
			ADD 1 To J
			SetParameter	POSITION	20	28	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	20	29	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	20	30	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	19	31	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	19	32	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	18	33	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			GotoLoop		START2
		
		EndIf

	Randomise A FROM 1 TO 900
	If A IsEqualTo 11
	Then
		SetParameter	POSITION	23	22	1	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	23	22	1	0
		SendMessage	DETONATEBLOCK
		
		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	1500
		SetParameter	REPEAT		FALSE
		SendMessage	CREATETIMER

		GotoLoop	PAUSE

	EndIf

	If A IsEqualTo 9
	Then
		SetParameter	POSITION	17	23	1	0
		SetParameter	BlockColour	PURPLE
		SendMessage	SPAWNINBLOCK

		SetParameter	MESSAGE_ID	TIMER4
		SetParameter	INTERVAL	1950
		SetParameter	REPEAT		FALSE
		SendMessage	CREATETIMER

		GotoLoop	PAUSE2
	EndIf

	If Q BecomesLessThan 0
	Then
		SendMessage	LOSECONDITION
		Gotoloop WIN
	EndIf

EndLoop

Loop ORANGE
Do

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT

	If Q BecomesLessThan 0
	Then
		SendMessage	LOSECONDITION
		Gotoloop WIN
	EndIf
EndLoop

Loop START2
Do
		
			SetParameter	POSITION	17	23	0	0
			SetParameter	BlockColour	RED
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	20	28	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	20	29	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	20	30	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	19	31	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	19	32	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	18	33	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT

	If Q BecomesLessThan 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	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

GotoLoop	START
EndLoop

Loop PAUSE
Do
GosubLoop ORANGE

	If Q BecomesLessThan 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	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

	OnMessage TIMER3
	Do
		SetParameter	POSITION	20	24	0	0
		SetParameter	BlockColour	RAINBOW
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	20	24	0	0
		SendMessage	DETONATEBLOCK
		SetParameter	POSITION	20	28	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	20	29	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	20	30	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	19	31	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	19	32	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			SetParameter	POSITION	18	33	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK

		GotoLoop		MAIN2
	EndResponse

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT

EndLoop


Loop PAUSE2
Do

	OnMessage TIMER4
	Do
		GotoLoop		MAIN
	EndResponse

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT

	If Q BecomesLessThan 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	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
EndLoop

Loop MAIN
Do
	OnMessage TIMER5
	Do
		SET A TO 0
		ADD 1 TO B
		ReadFromBuffer FIR3 Into C
		ReadFromBuffer FIR3 Into D
		SetParameter	POSITION	C	D	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK
		SetParameter Position	0	0	1	0
		ReadFromBuffer FIR4 Into C
		ReadFromBuffer FIR4 Into D
		SetParameter	POSITION	C	D	0	0
		SendMessage	DETONATEBLOCK	
	
		If B IsEqualTo 7
		Then
			GotoLoop		START2
		EndIf
	EndResponse

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT

	If Q BecomesLessThan 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	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
EndLoop

Loop MAIN2
Do
	OnMessage TIMER1
	Do
		SET A TO 0
		ADD 1 TO B
		ReadFromBuffer FIR1 Into C
		ReadFromBuffer FIR1 Into D
		SetParameter	POSITION	C	D	1	0
		SetParameter	BlockColour	RED
		SendMessage	SPAWNINBLOCK



		ReadFromBuffer FIR2 Into C
		ReadFromBuffer FIR2 Into D
		SetParameter	POSITION	C	D	1	0
		SendMessage	DETONATEBLOCK	
	
		If B IsEqualTo 37
		Then
			GotoLoop		START
		EndIf
	EndResponse

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT

	If Q BecomesLessThan 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	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
EndLoop

Loop FINAL
Do
	If Q BecomesLessThan 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	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

OnMessage TIMER7
	Do

		SetParameter	POSITION	20	28	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	20	29	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	20	30	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	19	31	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	19	32	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	18	33	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK
		



		SetParameter	POSITION	0	33	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	1	33	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	2	32	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	1	32	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	0	32	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	1	31	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	0	31	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT
GotoLoop FINAL2

EndResponse
EndLoop

Loop FINAL2
Do
	If Q BecomesLessThan 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	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

GoSubLoop GOAL

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT

OnMessage TIMER7
	Do


		SetParameter	POSITION	0	33	1	0
		SendMessage	DETONATEBLOCK
		SetParameter	POSITION	1	33	1	0
		SendMessage	DETONATEBLOCK
		SetParameter	POSITION	2	32	1	0
		SendMessage	DETONATEBLOCK
		/SetParameter	POSITION	1	32	1	0/
		/SendMessage	DETONATEBLOCK/

		SetParameter	POSITION	0	32	1	0
		SendMessage	DETONATEBLOCK

		SetParameter	POSITION	1	31	1	0
		SendMessage	DETONATEBLOCK
		SetParameter	POSITION	0	31	1	0
		SendMessage	DETONATEBLOCK
GotoLoop FINAL3

EndResponse
EndLoop


Loop FINAL3
Do
	If Q BecomesLessThan 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	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

OnMessage TIMER7
	Do
		SetParameter	POSITION	1	33	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	2	33	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	3	32	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	2	32	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	1	32	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	2	31	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK
		SetParameter	POSITION	1	31	0	0
		SetParameter	BlockColour	ORANGE
		SendMessage	SPAWNINBLOCK

GotoLoop FINAL4

EndResponse

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop
Loop FINAL4
Do
	If Q BecomesLessThan 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	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

OnMessage TIMER7
	Do
		SetParameter	POSITION	1	33	1	0
		SendMessage	DETONATEBLOCK
		SetParameter	POSITION	2	33	1	0
		SendMessage	DETONATEBLOCK
		SetParameter	POSITION	3	32	1	0
		SendMessage	DETONATEBLOCK
		/SetParameter	POSITION	2	32	1	0/
		/SendMessage	DETONATEBLOCK/

		SetParameter	POSITION	1	32	1	0
		SendMessage	DETONATEBLOCK

		SetParameter	POSITION	2	31	1	0
		SendMessage	DETONATEBLOCK
		SetParameter	POSITION	1	31	1	0
		SendMessage	DETONATEBLOCK
		GoSubLoop GOAL
		GotoLoop FINAL

EndResponse
EndLoop

Loop GOAL
Do

	If Q BecomesLessThan 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	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

	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT

	If S  BECOMESGREATERTHAN 0
		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


	SetParameter	TEXT	eyes
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION
GotoLoop WIN
EndIf
EndLoop

Loop WIN
Do

RESETBUFFER	FIR1
RESETBUFFER	FIR2
RESETBUFFER	FIR3
RESETBUFFER	FIR4
RESETBUFFER	ORAN
RESETBUFFER	GREN

EndLoop

EndFile