GameMode	Volcano
GameType	QUEST
	DESTROYOWNTARGETCOUNTER		T
	DESTROYENEMYTARGETCOUNTER	T
	LANDDROPPEDINWATERCOUNTER	L
	LIVESREMAINING02COUNTER		M


Program0123


TEXTBUFFER      LEVS  
                  
        Volcano.wbl

ENDBUFFER


/ Volcano level 
author pd/


DATABUFFER VOL1

12	11	12	10	12	9	12	8	12	7	12	6
12	5	-1	-1

ENDBUFFER

DATABUFFER ARC1

12	4	11	3	10	3	10	2	9	2	8	1
7	1	7	2	6	2	5	3	4	3	4	4
3	4	2	5	2	6	1	7	1	8	0	10
-1	-1

ENDBUFFER

DATABUFFER ARC2

12	4	11	3	10	3	10	2	9	2	8	1
7	1	7	2	6	2	5	3	4	3	4	4
3	4	2	5	2	6	2	7	2	8	2	10
-1	-1

ENDBUFFER


DATABUFFER ARC3

12	4	11	3	10	3	10	2	9	2	8	2
7	3	6	3	5	3	5	4	4	5	3	7
-1	-1
ENDBUFFER

DATABUFFER ARC4

12	4	11	3	10	3	10	2	9	2	8	2
7	3	6	3	6	4	5	5	5	6	4	8
-1	-1
ENDBUFFER

DATABUFFER ARC5

12	4	11	3	10	3	10	2	9	2	8	2
7	3	7	4	6	5	6	6	5	8
-1	-1
ENDBUFFER

DATABUFFER ARC6

12	4	11	3	10	3	9	3	8	3	8	4
7	4	6	5	6	6	6	8
-1	-1
ENDBUFFER

DATABUFFER ARC7

12	4	11	3	10	3	9	3	9	4	8	5
7	7	-1	-1
ENDBUFFER

DATABUFFER ARC8

12	4	11	3	10	3	9	3	8	5
-1	-1
ENDBUFFER

DATABUFFER ARC9

12	4	11	3	10	3	9	4
-1	-1
ENDBUFFER


DATABUFFER AR10

12	4	11	3	10	1
-1	-1
ENDBUFFER

DATABUFFER AR11

12	4	12	3	11	1
-1	-1
ENDBUFFER

DATABUFFER AR12

13	4	12	3	12	1
-1	-1
ENDBUFFER

DATABUFFER AR13

13	4	12	3	13	1
-1	-1
ENDBUFFER

DATABUFFER AR14

13	4	13	3	14	1
-1	-1
ENDBUFFER

DATABUFFER AR15

13	4	13	3	14	3	15	1
-1	-1
ENDBUFFER

DATABUFFER AR16

13	4	13	3	14	2	15	2	16	4
-1	-1
ENDBUFFER

DATABUFFER AR17

13	4	13	3	14	3	15	3	16	4	17	6
-1	-1
ENDBUFFER

DATABUFFER AR18

13	4	13	3	14	3	15	2	16	2	16	1
17	1	18	3	-1	-1
ENDBUFFER

DATABUFFER AR19

13	4	13	3	14	3	15	2	16	2	16	1
17	1	18	2	19	3	-1	-1
ENDBUFFER

DATABUFFER AR20

13	4	13	3	14	3	15	2	16	2	16	1
17	1	18	2	19	2	20	3	-1	-1
ENDBUFFER

DATABUFFER AR21

13	4	13	3	14	3	15	2	16	2	16	1
17	1	18	2	19	2	19	3	20	3	21	5
-1	-1
ENDBUFFER

DATABUFFER AR22

13	4	13	3	14	3	15	2	16	2	16	1
17	1	18	2	19	2	19	3	20	3	21	4
22	6	-1	-1
ENDBUFFER

DATABUFFER AR23

13	4	13	3	14	3	15	2	16	2	16	1
17	1	18	2	19	2	19	3	20	3	21	4
22	4	23	6	-1	-1
ENDBUFFER

DATABUFFER AR24

13	4	13	3	14	3	15	2	16	2	16	1
17	1	18	2	19	2	19	3	20	3	21	4
22	4	23	4	23	5	24	7	-1	-1
ENDBUFFER


DATABUFFER TARG

5 12 5 11 6 10 6 9 7 9 8 8 8 7 9 6 10 6 10 5 13 5 14 5 15 6 15 7 16 8 17 8 17 9 18 9 19 10
19 11 20 12

ENDBUFFER

DATABUFFER	RAND

0 12 3 4 22 8 24 14 15 5 6 7 19 20 21 9 10 11 13 1 2 18 23 16 17

ENDBUFFER

Loop INIT
Do
	SendMessage	DEACTIVATESCORE

	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	Position	0	-130	0	0
	SendMessage	CHANGEWATERHEIGHT		

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION


	SetParameter	TEXT	Volcano.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP4
	SendMessage	SETBACKDROP
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                20       
        SendMessage     LOADLEVEL

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT
	
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	0060
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER


	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SET A TO 0
	SET B TO 0
	SET C TO 0
	SET D TO 0
	SET E TO 0
	SET G TO 0
	SET H TO 0
	SET I TO 0
	SET K TO 0
	SET L TO 0
	SET M TO 0
	SET N TO 0
	SET R TO 0
	SET S TO 0
	SET P TO 0
	SET T TO 0
	SET U TO 5
	SET V TO 0
	SET X TO 0
	SET Y TO 23
	SET W TO 0
	SET Z TO 0

	ResetBuffer	VOL1
	ResetBuffer	ARC1
	ResetBuffer	ARC2
	ResetBuffer	ARC3
	ResetBuffer	ARC4
	ResetBuffer	ARC5
	ResetBuffer	ARC6
	ResetBuffer	ARC7
	ResetBuffer	ARC8
	ResetBuffer	ARC9
	ResetBuffer	AR10
	ResetBuffer	AR11
	ResetBuffer	AR12
	ResetBuffer	AR13
	ResetBuffer	AR14
	ResetBuffer	AR15
	ResetBuffer	AR16
	ResetBuffer	AR17
	ResetBuffer	AR18
	ResetBuffer	AR19
	ResetBuffer	AR20
	ResetBuffer	AR21
	ResetBuffer	AR22
	ResetBuffer	AR23
	ResetBuffer	AR24
	ResetBuffer	TARG
	ResetBuffer	RAND



	SendMessage MUSIC_GROOVE_LOW

	ResetBuffer	VOL1
	Randomise E FROM 1 To 25
	Set F To 0


	Randomise D From 1 To 100

	SendMessage StartBriefing
	SendMessage	FIRINGOFF

	GotoLoop MAIN


EndLoop

Loop MAIN
Do





	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0

	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		Volcano
FRE	SetParameter	TEXT		Volcan
ITA	SetParameter	TEXT		Vulcano
SPA	SetParameter	TEXT		Volcn
GER	SetParameter	TEXT		Vulkan
POL	SetParameter	TEXT		Wulkan


	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

SPA 	SetParameter	Scale1		0.7	0.7	0.7	0.0
SPA 	SetParameter	Scale2		0.7	0.7	0.7	0.0
SPA	SetParameter	Scale3		0.7	0.7	0.7	0.0
SPA	SetParameter	Scale4		0.7	0.7	0.7	0.0
SPA	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_30_targets!
FRE	SetParameter	TEXT		Dtruisez_30_cibles_!
ITA	SetParameter	TEXT		Distruggi_30_bersagli!
SPA	SetParameter	TEXT		Destruye_30_dianas!
GER	SetParameter	TEXT		Zerstre_30_Ziele!
POL	SetParameter	TEXT		Zniszcz_30_celw



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Clear_the_volcano_and_new_land
FRE	SetParameter	TEXT		Dblayez_le_volcan_et_une_nouvelle_terre
ITA	SetParameter	TEXT		Libera_il_vulcano_per_far_sbriciolare
SPA	SetParameter	TEXT		Slo_vencers_al_volcn_si_te_proteges
GER	SetParameter	TEXT		Rum_den_Vulkan_ab_und_neues_Land
POL	SetParameter	TEXT		Usu_wulkan_i_czy_teren



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		below_you_will_crumble_away!
FRE	SetParameter	TEXT		au-dessous_de_vous_s'effondrera_!
ITA	SetParameter	TEXT		il_terreno_sotto_di_te!
SPA	SetParameter	TEXT		de_la_lava_que_cae_y_vigilas_el_nuevo
GER	SetParameter	TEXT		entsteht_unter_dir!
POL	SetParameter	TEXT		nim_odczogasz_si_dalej



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		But_beware_as_this_is_only_Temporary.
FRE	SetParameter	TEXT		Mais_attention_:_ceci_est_temporaire.
ITA	SetParameter	TEXT		Ricorda_che_l'effetto__temporaneo.
SPA	SetParameter	TEXT		fondo_marino_que_se_va_formando.
GER	SetParameter	TEXT		Pass_auf,_dass_du_nicht_auf_Grund_lufst.
					

POL	SetParameter	TEXT		Ale_uwaaj,_to_jest_tylko_chwilowe.



	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	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
	GER	SetParameter	TEXT	Zum_Starten_Feuer_drcken
	
	FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer.
	ITA	SetParameter	TEXT		Premi_fuoco_per_cominciare
POL	SetParameter	TEXT	Nacinij_"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



	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0


	OnMessage FIREPRESSED
	Do
		SendMessage EndBriefing
		SendMessage FIRINGON
		GotoLoop MAIN2
		
	EndResponse

EndLoop




Loop MAIN2
Do
	
		SetParameter	POSITION	7	9	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	10	6	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	11	5	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	13	5	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	16	8	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	17	9	0	0
		SetParameter	BlockColour	TARGET
		SendMessage	SPAWNINBLOCK

		Set V To 6

		GotoLoop MAIN1

EndLoop



Loop MAIN1
Do
	
	If M BecomesEqualTo -1
	Then

		Set Z To 0
		SendMessage FIRINGOFF

		SendMessage CLEARPROJECTILES
		SendMessage MUSIC_GROOVE_LOW

		SetParameter BLOCKCOLOUR ALLCOLOURS
		SENDMESSAGE CLEARBLOCKS


		GotoLoop FAIL

	EndIf

	If T IsEqualTo 30
	Then

		Set Z To 0

		SendMessage CLEARPROJECTILES
		SendMessage MUSIC_GROOVE_LOW

		SetParameter BLOCKCOLOUR ALLCOLOURS
		SENDMESSAGE CLEARBLOCKS

		SendMessage MUSIC_GROOVE_LOW
		SendMessage FIRINGOFF

		GotoLoop WIN	
	EndIf
	


	SetParameter	Position	0	-130	0	0
	SendMessage	CHANGEWATERHEIGHT

	GoSubLoop TEXT
	
	If L IsGreaterThanOrEqualTo 1  / check to see if land block has fallen into water /
	Then

		If P IsGreaterThanOrEqualTo 25
		Then

			Subtract 1 From Y
			Set P To 0

			GoSubLoop LAND
	
		EndIf

		If P IsLessThan 25
		Then

			GoSubLoop LAND
						
		EndIf
		
		Set L To 0	
	EndIf


/ ***************************** Check for targets and then place more****************************/

	
	If T BecomesGreaterThan R 	/ send text to screen if target is hit /
	Then
		Randomise C From 1 To 2

		If C IsEqualTo 1
		Then
			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	Position	0.0	50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.5
			SetParameter	Text		WOW!_You_got_one
FRE			SetParameter	TEXT		Wouah_!_Bien_vis_!
ITA			SetParameter	TEXT		WOW!_Ne_hai_preso_uno!
SPA			SetParameter	TEXT		Bien!_Has_conseguido_una.
GER			SetParameter	TEXT		WOW!_Du_hast_eins
			

POL			SetParameter	TEXT		O!_Trafie



			SendMessage 	CREATETEXT
		EndIf

		If C IsEqualTo 2
		Then
			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	Position	0.0	50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.5
			SetParameter	Text		Good_shot!
FRE			SetParameter	TEXT		Beau_tir_!
ITA			SetParameter	TEXT		Bel_colpo!
SPA			SetParameter	TEXT		Buen_disparo!
GER			SetParameter	TEXT		Guter_Schuss!
POL			SetParameter	TEXT		Dobry_strza



			SendMessage 	CREATETEXT
		EndIf

	EndIf

	While T IsGreaterThan R
	Do

		Add 1 To S
		Add 1 To R
	EndWhile







	If S IsEqualTo V
	Then
		Set S To 0
		Set X To 0
		Add 1 To U

		While X IsLessThan 25
		Do
			SetParameter	POSITION	X	22	0	0
			SendMessage	Detonateblock
		
			Add 1 To X
		EndWhile

		Set Y To 23
		Set X To 0
		Set V To 0
		Set P To 0	
		
		Randomise X From 0 To 20
					
		Set N To 0
		Set W TO 0
	
		While N IsLessThan 6
		Do
			While W IsLessThan X
			Do	
				ReadFromBuffer TARG Into A
				ReadFromBuffer TARG Into B
		
				Add 1 To W
			EndWhile

			SetParameter    	POSITION        A	B	1	0
			SendMessage     	GETBLOCKCOLOUR
			ReadFromParameter       BLOCKCOLOUR INTO Q


			If Q IsNotEqualTo ORANGE
			Then

				If Q IsNotEqualTo TARGET
				Then
					SetParameter	POSITION	A	B	1	0
					SetParameter	BlockColour	TARGET
					SendMessage	SPAWNINBLOCK
		
					Add 1 To N
					Add 1 To V
				EndIf
			EndIf
	
			Randomise X From 0 To 20
			Set W To 0
			ResetBuffer TARG
		
		EndWhile

		SendMessage MUSIC_GROOVE_LOW

		Set X To 0

	EndIf


/ ***************** drop crate at random location along the ceiling at random times ************* /

	OnMessage TIMER3
	Do

		Randomise D From 1 To 100
			

		If D IsEqualTo 1
		Then	
			SetParameter	POSITION	1	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP				
			SendMessage	SPAWNINBLOCK	

			GoSubLoop CRATETEXT
		EndIf	
		
		If D IsEqualTo 17
		Then	
			SetParameter	POSITION	1	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SHOTGUNORANGE
			SendMessage	SPAWNINBLOCK	

			GoSubLoop CRATETEXT
		EndIf	
			
		If D IsEqualTo 23
		Then	
			SetParameter	POSITION	3	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK

			GoSubLoop CRATETEXT	
		EndIf

		If D IsEqualTo 7
		Then	
			SetParameter	POSITION	6	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	

			GoSubLoop CRATETEXT
		EndIf	
		
		If D IsEqualTo 11
		Then	
			SetParameter	POSITION	6	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SHOTGUNORANGE
			SendMessage	SPAWNINBLOCK	

			GoSubLoop CRATETEXT
		EndIf	
			
		If D IsEqualTo 22
		Then	
			SetParameter	POSITION	6	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK

			GoSubLoop CRATETEXT	
		EndIf

		If D IsEqualTo 39
		Then	
			SetParameter	POSITION	11	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK

			GoSubLoop CRATETEXT	
		EndIf	
		
		If D IsEqualTo 59
		Then	
			SetParameter	POSITION	11	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SHOTGUNORANGE
			SendMessage	SPAWNINBLOCK	

			GoSubLoop CRATETEXT
		EndIf	
			
		If D IsEqualTo 66
		Then	
			SetParameter	POSITION	11	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK

			GoSubLoop CRATETEXT	
		EndIf
	
		If D IsEqualTo 80
		Then	
			SetParameter	POSITION	17	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	

			GoSubLoop CRATETEXT
		EndIf	
		
		If D IsEqualTo 19
		Then	
			SetParameter	POSITION	17	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SHOTGUNORANGE
			SendMessage	SPAWNINBLOCK

			GoSubLoop CRATETEXT	
		EndIf	
			
		If D IsEqualTo 92
		Then	
			SetParameter	POSITION	17	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK

			GoSubLoop CRATETEXT	
		EndIf

		If D IsEqualTo 97
		Then	
			SetParameter	POSITION	18	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	

			GoSubLoop CRATETEXT
		EndIf	
		
		If D IsEqualTo 51
		Then	
			SetParameter	POSITION	18	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_SHOTGUNORANGE
			SendMessage	SPAWNINBLOCK	

			GoSubLoop CRATETEXT
		EndIf	
			
		If D IsEqualTo 73
		Then	
			SetParameter	POSITION	18	0	0	0
			SetParameter	BLOCKCOLOUR	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	

			GoSubLoop CRATETEXT
		EndIf


	EndResponse






/ ****************************** column 2 at work *************************************	/

	OnMessage TIMER1
	Do

		Add 1 To F
	
		If F IsEqualTo E
		Then

			ReadFromBuffer VOL1 Into G
			ReadFromBuffer VOL1 Into H
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
			
		EndIf


/ ********************************** Bubbling water ****************************/

			Randomise X FROM 0 TO 11

			SetParameter	POSITION	X	24	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK

			SetParameter	POSITION	X	24	1	0
			SendMessage	DETONATEBLOCK		

			Randomise X FROM 12 TO 24

			SetParameter	POSITION	X	24	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK

			SetParameter	POSITION	X	24	1	0
			SendMessage	DETONATEBLOCK

/ ***************************************************************************** /
	

		If F IsGreaterThan E
		Then

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK

			ReadFromBuffer VOL1 Into G
			ReadFromBuffer VOL1 Into H
			If G IsGreaterThanOrEqualTo 0
			Then
				SetParameter	POSITION	G	H	0	0
				SetParameter	BlockColour	ORANGE
				SendMessage	SPAWNINBLOCK
			Endif


			If G IsLessThan 0
			Then
				Randomise E FROM 1 TO 8
				Set F To 0
				
				ResetBuffer	VOL1
				ResetBuffer	ARC1
				ResetBuffer	ARC2
				ResetBuffer	ARC3
				ResetBuffer	ARC4
				ResetBuffer	ARC5
				ResetBuffer	ARC6				
				ResetBuffer	ARC7
				ResetBuffer	ARC8
				ResetBuffer	ARC9
				ResetBuffer	AR10
				ResetBuffer	AR11
				ResetBuffer	AR12
				ResetBuffer	AR13
				ResetBuffer	AR14
				ResetBuffer	AR15
				ResetBuffer	AR16
				ResetBuffer	AR17
				ResetBuffer	AR18
				ResetBuffer	AR19
				ResetBuffer	AR20
				ResetBuffer	AR21
				ResetBuffer	AR22
				ResetBuffer	AR23
				ResetBuffer	AR24

				Randomise G FROM 0 TO 24	
				
				If G IsEqualTo 0
				Then
					GotoLoop ARCA
				EndIf

				If G IsEqualTo 1
				Then
					GotoLoop ARCB
				EndIf

				If G IsEqualTo 2
				Then
					GotoLoop ARCC
				EndIf				

				If G IsEqualTo 3
				Then
					GotoLoop ARCD
				EndIf	
				
				If G IsEqualTo 4
				Then
					GotoLoop ARCE
				EndIf

				If G IsEqualTo 5
				Then
					GotoLoop ARCE
				EndIf

				If G IsEqualTo 6
				Then
					GotoLoop ARCF
				EndIf

				If G IsEqualTo 7
				Then
					GotoLoop ARCG
				EndIf

				If G IsEqualTo 8
				Then
					GotoLoop ARCH
				EndIf

				If G IsEqualTo 9
				Then
					GotoLoop ARCI
				EndIf

				If G IsEqualTo 10
				Then
					GotoLoop AC10
				EndIf

				If G IsEqualTo 11
				Then
					GotoLoop AC11
				EndIf

				If G IsEqualTo 12
				Then
					GotoLoop AC12
				EndIf

				If G IsEqualTo 13
				Then
					GotoLoop AC13
				EndIf
				
				If G IsEqualTo 14
				Then
					GotoLoop AC14
				EndIf			
	
				If G IsEqualTo 15
				Then
					GotoLoop AC15
				EndIf

				If G IsEqualTo 16
				Then
					GotoLoop AC16
				EndIf

				If G IsEqualTo 17
				Then
					GotoLoop AC17
				EndIf

				If G IsEqualTo 18
				Then
					GotoLoop AC18
				EndIf

				If G IsEqualTo 19
				Then
					GotoLoop AC19
				EndIf

				If G IsEqualTo 20
				Then
					GotoLoop AC20
				EndIf

				If G IsEqualTo 21
				Then
					GotoLoop AC21
				EndIf

				If G IsEqualTo 22
				Then
					GotoLoop AC22
				EndIf

				If G IsEqualTo 23
				Then
					GotoLoop AC23
				EndIf

				If G IsEqualTo 24
				Then
					GotoLoop AC24
				EndIf
			Endif

		EndIf

	EndResponse

EndLoop



Loop	ARCA
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer ARC1 Into G
		ReadFromBuffer ARC1 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer ARC1

			ReadFromBuffer ARC1 Into G
			ReadFromBuffer ARC1 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
		
			GotoLoop MAIN1
		EndIf
		
	EndResponse
				
EndLoop



Loop	ARCB
Do


	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer ARC2 Into G
		ReadFromBuffer ARC2 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer ARC2

			ReadFromBuffer ARC2 Into G
			ReadFromBuffer ARC2 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK

			GotoLoop MAIN1
		EndIf

	EndResponse
		
		
EndLoop

Loop	ARCC
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer ARC3 Into G
		ReadFromBuffer ARC3 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer ARC3

			ReadFromBuffer ARC3 Into G
			ReadFromBuffer ARC3 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK	

			GotoLoop MAIN1
		EndIf

	EndResponse
		
		
EndLoop

Loop	ARCD
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer ARC4 Into G
		ReadFromBuffer ARC4 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer ARC4

			ReadFromBuffer ARC4 Into G
			ReadFromBuffer ARC4 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK

			GotoLoop MAIN1
		EndIf

	EndResponse
		
		
EndLoop

Loop	ARCE
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer ARC5 Into G
		ReadFromBuffer ARC5 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer ARC5

			ReadFromBuffer ARC5 Into G
			ReadFromBuffer ARC5 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK

			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	ARCF
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer ARC6 Into G
		ReadFromBuffer ARC6 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer ARC6

			ReadFromBuffer ARC6 Into G
			ReadFromBuffer ARC6 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop



Loop	ARCG
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer ARC7 Into G
		ReadFromBuffer ARC7 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer ARC7

			ReadFromBuffer ARC7 Into G
			ReadFromBuffer ARC7 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	ARCH
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer ARC8 Into G
		ReadFromBuffer ARC8 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer ARC8

			ReadFromBuffer ARC8 Into G
			ReadFromBuffer ARC8 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop


Loop	ARCI
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer ARC9 Into G
		ReadFromBuffer ARC9 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer ARC9

			ReadFromBuffer ARC9 Into G
			ReadFromBuffer ARC9 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	AC10
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR10 Into G
		ReadFromBuffer AR10 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR10

			ReadFromBuffer AR10 Into G
			ReadFromBuffer AR10 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	AC11
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR11 Into G
		ReadFromBuffer AR11 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR11

			ReadFromBuffer AR11 Into G
			ReadFromBuffer AR11 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop


Loop	AC12
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR12 Into G
		ReadFromBuffer AR12 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR12

			ReadFromBuffer AR12 Into G
			ReadFromBuffer AR12 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop


Loop	AC13
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR13 Into G
		ReadFromBuffer AR13 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR13

			ReadFromBuffer AR13 Into G
			ReadFromBuffer AR13 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop


Loop	AC14
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR14 Into G
		ReadFromBuffer AR14 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR14

			ReadFromBuffer AR14 Into G
			ReadFromBuffer AR14 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	AC15
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR15 Into G
		ReadFromBuffer AR15 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR15

			ReadFromBuffer AR15 Into G
			ReadFromBuffer AR15 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop


Loop	AC16
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR16 Into G
		ReadFromBuffer AR16 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR16

			ReadFromBuffer AR16 Into G
			ReadFromBuffer AR16 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop


Loop	AC17
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR17 Into G
		ReadFromBuffer AR17 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR17

			ReadFromBuffer AR17 Into G
			ReadFromBuffer AR17 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	AC18
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR18 Into G
		ReadFromBuffer AR18 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR18

			ReadFromBuffer AR18 Into G
			ReadFromBuffer AR18 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	AC19
Do


	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR19 Into G
		ReadFromBuffer AR19 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR19

			ReadFromBuffer AR19 Into G
			ReadFromBuffer AR19 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	AC20
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR20 Into G
		ReadFromBuffer AR20 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR20

			ReadFromBuffer AR20 Into G
			ReadFromBuffer AR20 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop


Loop	AC21
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR21 Into G
		ReadFromBuffer AR21 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR21

			ReadFromBuffer AR21 Into G
			ReadFromBuffer AR21 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	AC22
Do
	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR22 Into G
		ReadFromBuffer AR22 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR22

			ReadFromBuffer AR22 Into G
			ReadFromBuffer AR22 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop


Loop	AC23
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR23 Into G
		ReadFromBuffer AR23 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR23

			ReadFromBuffer AR23 Into G
			ReadFromBuffer AR23 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop	AC24
Do

	GoSubLoop TEXT

	OnMessage TIMER1
	Do


		ReadFromBuffer AR24 Into G
		ReadFromBuffer AR24 Into H
				
		If G IsGreaterThanOrEqualTo 0
		Then
			SetParameter	POSITION	G	H	0	0
			SetParameter	BlockColour	ORANGE
			SendMessage	SPAWNINBLOCK
		EndIf
				
		If G BecomesEqualTo -1
		Then
			ResetBuffer AR24

			ReadFromBuffer AR24 Into G
			ReadFromBuffer AR24 Into H

			SetParameter	POSITION	G	H	1	0
			SendMessage	DETONATEBLOCK
			
			GotoLoop MAIN1
		EndIf

	EndResponse	
		
EndLoop

Loop LAND
Do

	GoSubLoop TEXT

	Set I To 0

	While I IsLessThan U
	Do	

		If P IsLessThan 25
		Then
			ReadFromBuffer	RAND	Into 	X
			SetParameter	POSITION	X	Y	1	0
			SetParameter	BlockColour	ANCHOR
			SendMessage	SPAWNINBLOCK	
			Add 1 To P
		Endif

		Add 1 To I

	EndWhile

	If Y BecomesEqualTo 20
	Then
		SendMessage MUSIC_GROOVE_MED	
	EndIf

	If Y BecomesEqualTo 18
	Then
		SendMessage MUSIC_GROOVE_HIGH	
	EndIf

EndLoop



Loop TEXT
Do


	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Position	220.0	220.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	FRAME		2
	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
	ConvertToText   T
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	270.0	220.0	0.0	0.0
	SendMessage	CREATETEXT

EndLoop


Loop FAIL
Do
	OnMessage	TIMER3
	Do

		Add 1 To Z

	EndResponse

	If Z 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		Poraka




	SendMessage	CREATETEXT

	EndIf

	If Z BecomesEqualTo 4
	Then

		SendMessage LOSECONDITION

	EndIf

EndLoop

Loop WIN
Do
	OnMessage	TIMER3
	Do

		Add 1 To Z

	EndResponse


	
	If Z BecomesEqualTo 2
	Then

		SendMessage GAMEOVER

	EndIf

	
	
EndLoop


Loop	CRATETEXT
Do

	GoSubLoop TEXT

	Randomise D From 1 To 3

	If D BecomesEqualTo 1
	Then
		
		SetParameter	Colour1		0.1	1.0	0.65	1.0
		SetParameter	Colour2		0.1	1.0	0.65	1.0
		SetParameter	Colour3		0.1	1.0	0.65	1.0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	1.5	3.5
		SetParameter	Text		Prezzies!
FRE		SetParameter	TEXT		Surprise_!
ITA		SetParameter	TEXT		Premi!
SPA		SetParameter	TEXT		Premios!
GER		SetParameter	TEXT		Geschenke!
POL		SetParameter	TEXT		Nagrody!



		SendMessage 	CREATETEXT	

	EndIf

	If D BecomesEqualTo 2
	Then
		
		SetParameter	Colour1		0.1	1.0	0.65	1.0
		SetParameter	Colour2		0.1	1.0	0.65	1.0
		SetParameter	Colour3		0.1	1.0	0.65	1.0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	1.5	3.5
		SetParameter	Text		Gifts!
FRE		SetParameter	TEXT		Cadeaux_!
ITA		SetParameter	TEXT		Regali!
SPA		SetParameter	TEXT		Regalos!
GER		SetParameter	TEXT		Geschenke!
POL		SetParameter	TEXT		Podarunki!


		SendMessage 	CREATETEXT	

	EndIf

	If D BecomesEqualTo 3
	Then
		
		SetParameter	Colour1		0.1	1.0	0.65	1.0
		SetParameter	Colour2		0.1	1.0	0.65	1.0
		SetParameter	Colour3		0.1	1.0	0.65	1.0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	1.5	3.5
		SetParameter	Text		Some_help!
FRE		SetParameter	TEXT		De_l'aide_!
ITA		SetParameter	TEXT		Un_aiuto!
SPA		SetParameter	TEXT		Ayuda!
GER		SetParameter	TEXT		Etwas_Hilfe!
POL		SetParameter	TEXT		Pomoc!


		SendMessage 	CREATETEXT	

	EndIf



EndLoop



EndFile


