GameMode	sfrogm
GameType	QUEST
	DestroyOwnTargetCounter		T
	DestroyEnemyTargetCounter	T
	WaterHeightCounter		H
	LIVESREMAINING02COUNTER		M
	COLLECTSTARCOUNTER		S
	


Program0123


TEXTBUFFER	LEVS

	sfrogm.wbl

ENDBUFFER

DATABUFFER	TAR1

15 5 16 12 22 5 8 12 1 5 1 12 8 5 23 12

ENDBUFFER


/ super frogger level get the targets through the midst of targets mission version 
author pd /


Loop INIT
Do
		SendMessage	DEACTIVATESCORE
	
	SetParameter	TEXT	sfrogm.wbw
	SendMessage	LOADWEAPONLIST

	SET A TO 0
	SET C TO 0
	SET D TO 0
	SET E TO 0
	SET F TO 0
	SET G TO 0
	SET H TO 0
	SET I TO 0
	SET J TO 0
	SET K TO 0
	SET L TO 0
	SET M TO 0
	SET N TO 0
	SET P TO 0
	SET Q TO 1000
	SET R TO 0
	SET S TO 0
	SET T TO 0
	SET U TO 0
	SET V TO 0
	SET X TO 0
	SET W TO 0
	SET Y TO 0
	SET Z TO 0
	
	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT		


	SetParameter	LIVES	0
	SendMessage	SETLIVES	

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

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	70
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	100
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	110
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	200
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	5000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER6
	SetParameter	INTERVAL	0050
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER7
	SetParameter	INTERVAL	8001
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	


	Randomise C From -20 To -4

	Randomise D From 30 To 45

	Randomise E From -23 To -4

	Randomise F From 30 To 45


	SET G TO 1


	SendMessage MUSIC_GROOVE_LOW
	SendMessage	FIRINGOFF
	SendMessage StartBriefing

	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		Super_Frogger
FRE	SetParameter	TEXT		Super_Frogger
ITA	SetParameter	TEXT		Super_Frogger
SPA	SetParameter	TEXT		Superrana
GER	SetParameter	TEXT		Super_Frogger
POL	SetParameter	TEXT		Super_żaba



	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		Amass_15_stars_by_destroying
FRE	SetParameter	TEXT		Récupérez_15_étoiles_en_détruisant
ITA	SetParameter	TEXT		Accumula_15_stelle_distruggendo
SPA	SetParameter	TEXT		Destruye_las_dianas_que_necesitas
GER	SetParameter	TEXT		Sammle_15_Sterne,_indem_du_die
POL	SetParameter	TEXT		Zdobądź_15_gwiazdek_niszcząc



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		each_quota_of_targets.
FRE	SetParameter	TEXT		chaque_quota_de_cibles.
ITA	SetParameter	TEXT		tutte_le_quote_necessarie_di_bersagli.
SPA	SetParameter	TEXT		para_conseguir_15_estrellas.
GER	SetParameter	TEXT		jeweiligen_Ziele_zerstörst
POL	SetParameter	TEXT		odpowiednie_cele.



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		Beware_the_rising_water_it
FRE	SetParameter	TEXT		Faites_attention_ŕ_la_montée_des_eaux:
ITA	SetParameter	TEXT		Stai_attento_alla_marea_che_si_alza:
SPA	SetParameter	TEXT		Ten_cuidado_con_el_nivel_del_agua,
GER	SetParameter	TEXT		Pass_auf_das_steigende_Wasser_auf,
POL	SetParameter	TEXT		Pamiętaj,_że_podnosząca_się_woda



	SendMessage 	CREATETEXT
	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	Text		will_be_the_death_of_you.
FRE	SetParameter	TEXT		elle_peut_vous_ętre_fatale.
ITA	SetParameter	TEXT		per_te_rappresenta_la_morte!
SPA	SetParameter	TEXT		porque_puede_ser_mortal.
GER	SetParameter	TEXT		es_könnte_dein_Tod_sein.
POL	SetParameter	TEXT		to_Twoja_niechybna_zguba.



	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
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
ITA	SetParameter	TEXT		Premi_fuoco_per_cominciare
GER	SetParameter	TEXT		Zum_Starten_Feuer_drücken
POL	SetParameter	TEXT		Naciśnij_strzał


	SPA	SetParameter	Scale1		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale2		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale3		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale4		0.8	0.8	0.8	0.0
	SPA	SetParameter	Scale5		0.8	0.8	0.8	0.0

	SPA SetParameter	Text	Pulsa_el_disparo_para_empezar
	SendMessage 	CREATETEXT

	SPA	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SPA	SetParameter	Scale5		1.0	1.0	1.0	0.0


	OnMessage FIREPRESSED
	Do
		SendMessage EndBriefing
		SendMessage FIRINGON
		GotoLoop MAIN1
		
	EndResponse

EndLoop


Loop MAIN1
Do


	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	SetParameter	POSITION	1	12	0	0
	SetParameter	BlockColour	TARGET
	SendMessage	SPAWNINBLOCK
	
	
	SetParameter	POSITION	5	0	0	0
	SetParameter	BlockColour	STAR
	SendMessage	SPAWNINBLOCK	

	SetParameter	POSITION	12	0	0	0
	SetParameter	BlockColour	STAR
	SendMessage	SPAWNINBLOCK

	SetParameter	POSITION	19	0	0	0
	SetParameter	BlockColour	STAR
	SendMessage	SPAWNINBLOCK

	SET S TO 0
	GotoLoop SCREEN1

EndLoop




Loop SCREEN1
Do

	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.4	0.4	0.4	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	FRAME		0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	220.0	222.0	0.0	0.0
	SendMessage	CREATEICON

	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

	ConvertToText   S
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	270.0	222.0	0.0	0.0
	SendMessage	CREATETEXT

	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



	If H BecomesGreaterThan -175
	Then
		If H IsLessThan -155
		Then
			SendMessage MUSIC_GROOVE_MED		
		EndIf
	EndIf



	If H BecomesGreaterThanOrEqualTo -155
	Then

		SendMessage MUSIC_GROOVE_HIGH		

	EndIf


	If H BecomesGreaterThanOrEqualTo -120
	Then

		SetParameter	POSITION	0	-175	0	0
		SendMessage	CHANGEWATERHEIGHT

		SetParameter BLOCKCOLOUR ALLCOLOURS
		SendMessage CLEARBLOCKS



		SendMessage FIRINGOFF

SPA		SetParameter	Position	0.0	25.0	0.0	0.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	Position	0.0	-100.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	1.0	0.6
		SetParameter	Text		Water_too_high!
FRE		SetParameter	TEXT		Niveau_d'eau_trop_élevé!
ITA		SetParameter	TEXT		L'acqua_č_troppo_alta!
SPA		SetParameter	TEXT		ˇEl_nivel_del
GER		SetParameter	TEXT		Wasser_zu_hoch!
POL		SetParameter	TEXT		Powódź


		SendMessage	CREATETEXT




SPA		SetParameter	Position	0.0	-25.0	0.0	0.0
SPA		SetParameter	Text	agua_es_excesivo!
SPA		SendMessage	CREATETEXT

		SendMessage	CLEARPROJECTILES

		Add B To I
		Set Z To 0

		GotoLoop FAIL

	EndIf

	OnMessage TIMER2
	Do

		Add 1 To Q

	EndResponse

	OnMessage 	TIMER5
	Do

		Add 2 To H
		SetParameter Position	0	H	0	0
		SendMessage ChangeWaterHeight

		Randomise P From 1 To 2

		If P BecomesEqualTo 1
		Then
			SetParameter	Colour1		0.0	0.43	0.74	1.0
			SetParameter	Colour2		0.0	0.43	0.74	1.0
			SetParameter	Colour3		0.0	0.43	0.74	1.0
			SetParameter	Position	0.0	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Heres_more_water!
FRE			SetParameter	TEXT		L'eau_monte!
ITA			SetParameter	TEXT		Arriva_altra_acqua!
SPA			SetParameter	TEXT		ˇAgua_va!
GER			SetParameter	TEXT		Noch_mehr_Wasser!
POL			SetParameter	TEXT		O_więcej_wody!




			SendMessage 	CREATETEXT
		EndIf


		If P BecomesEqualTo 2
		Then
			SetParameter	Colour1		0.0	0.43	0.74	1.0
			SetParameter	Colour2		0.0	0.43	0.74	1.0
			SetParameter	Colour3		0.0	0.43	0.74	1.0
			SetParameter	Position	0.0	-50.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		More_flooding!
FRE			SetParameter	TEXT		L'inondation_gagne!
ITA			SetParameter			TEXt		Un'altra_onda!
SPA			SetParameter	TEXT		ˇSube_la_marea!
GER			SetParameter	TEXT		Die_Flut...
POL			SetParameter	TEXT		Zalewa_nas!



			SendMessage 	CREATETEXT
		EndIf	

	EndResponse		
	

/ ******************** Moving Bar 1 ********************** /

	OnMessage	TIMER1
	Do

		/ Detonate left hand block /

		SetParameter	Position	C	8	1	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		Add 1 To C
		SetParameter	Position	C	8	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		Add 2 To C
		SetParameter	Position	C	8	0	0
		SetParameter	BlockColour	BOUNCY
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		Add 1 To C
		SetParameter	Position	C	8	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Move C back to point at the new left hand end /

		Subtract 3 From C

		If C IsGreaterThan 30
		Then
			Randomise C From -20 to -4
		Endif
	EndResponse



/ **********************  Next mOving bar ***************************** /



	OnMessage	TIMER2
	Do

		/ Detonate left hand block /

		SetParameter	Position	D	10	1	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		SUBTRACT 1 FROM D
		SetParameter	Position	D	10	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		SUBTRACT 2 FROM D
		SetParameter	Position	D	10	0	0
		SetParameter	BlockColour	BOUNCY
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		SUBTRACT 1 FROM D
		SetParameter	Position	D	10	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Move D back to point at the new left hand end /

		ADD 3 TO D

		If D IsLessThan -5
		Then
			Randomise D From 30 to 45
		Endif

	EndResponse



/ ******************************** BAR 3 ***************************** /



	OnMessage	TIMER3
	Do

		/ Detonate left hand block /

		SetParameter	Position	E	15	1	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		Add 1 To E
		SetParameter	Position	E	15	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		Add 2 To E
		SetParameter	Position	E	15	0	0
		SetParameter	BlockColour	BOUNCY
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		Add 1 To E
		SetParameter	Position	E	15	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Move E back to point at the new left hand end /

		Subtract 3 From E

		If E IsGreaterThan 30
		Then
			Randomise E From -23 to -4
		Endif
	EndResponse

	
/ *****************************  BAR 4 ******************************* /


	OnMessage	TIMER4
	Do

		/ Detonate left hand block /

		SetParameter	Position	F	3	1	0
		SendMessage	DETONATEBLOCK

		/ Change second block into anchor /

		SUBTRACT 1 FROM F
		SetParameter	Position	F	3	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Change fourth block into bouncy /

		SUBTRACT 2 FROM F
		SetParameter	Position	F	3	0	0
		SetParameter	BlockColour	BOUNCY
		SendMessage	SPAWNINBLOCK

		/ Add fifth anchor block on the end /

		SUBTRACT 1 FROM F
		SetParameter	Position	F	3	0	0
		SetParameter	BlockColour	ANCHOR
		SendMessage	SPAWNINBLOCK

		/ Move F back to point at the new left hand end /

		ADD 3 TO F

		If F IsLessThan -5
		Then
			Randomise F From 30 to 45
		Endif

	EndResponse

	
	If T IsGreaterThan V
	Then
		
		Randomise X FROM 1 TO 2

		If X 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	75.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		ˇToma,_ya_tienes_una!
GER			SetParameter	TEXT		WOW!_Du_hast_eins_erwischt!
POL			SetParameter	TEXT		O._Masz_jedną



			SendMessage 	CREATETEXT
		EndIf

		If X 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	75.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		Celny_strzał



			SendMessage 	CREATETEXT
		EndIf

		SET V TO T		
		ADD 1 TO R	

	EndIf




	If T BecomesEqualTo G
	Then
/
		SetParameter	Position	5	4	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK

		SetParameter	Position	12	4	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK
	
		SetParameter	Position	19	4	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK
/

		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	Position	0.0	0.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	1.5	3.5
		SetParameter	Text		WELL_DONE_KEEP_GOING!
FRE		SetParameter	TEXT		BEAU_TRAVAIL,_CONTINUEZ!
ITA		SetParameter	TEXT		BEN_FATTO!
SPA		SetParameter	TEXT		ˇBIEN_HECHO,_SIGUE_ASÍ!
GER		SetParameter	TEXT		SEHR_GUT,_WEITER_SO!
POL		SetParameter	TEXT		DOBRA_ROBOTA!_TAK_TRZYMAĆ!



		SendMessage 	CREATETEXT
	
	

		Set Q To 5
		SET T To 0
		SET V To 0
		
		If G IsLessThan 8
		Then

			Add 1 TO G

		EndIf

		If G IsEqualTo 8
		Then

			Set G To 8			

		EndIf
	
		Add G To J

		SetParameter	BlockColour	TARGET
		SendMessage	CLEARBLOCKS
		
		If G IsGreaterThanOrEqualTo 1
		Then

			SetParameter	POSITION	1	12	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK

		EndIf	


		If G IsGreaterThanOrEqualTo 2
		Then

	
			SetParameter	POSITION	16	12	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK

		EndIf


		If G IsGreaterThanOrEqualTo 3
		Then

			SetParameter	POSITION	8	12	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK

		EndIf

		If G IsGreaterThanOrEqualTo 4
		Then

			SetParameter	POSITION	22	5	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK
			
		EndIf

		If G IsGreaterThanOrEqualTo 5
		Then

			SetParameter	POSITION	23	12	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK

		EndIf


		If G IsGreaterThanOrEqualTo 6
		Then

			SetParameter	POSITION	8	5	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK
	
		EndIf

		If G IsGreaterThanOrEqualTo 7
		Then

			SetParameter	POSITION	1	5	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK

		EndIf

		If G IsGreaterThanOrEqualTo 8
		Then

			SetParameter	POSITION	15	5	0	0
			SetParameter	BlockColour	TARGET
			SendMessage	SPAWNINBLOCK

		EndIf
			
	EndIf

	If Q IsEqualTo 5
	Then

		Set Q To 0

		While Q IsLessThan 25
		Do
			SetParameter	POSITION	Q	1	0	0
			SendMessage	DetonateBlock
			
			Add 1 To Q

		EndWhile

		Set Q To 50

	EndIf

	
	If Q IsEqualTo 55
	Then	

		Set Q To 0

		While Q IsLessThan 25
		Do
			SetParameter	POSITION	Q	1	0	0
			SetParameter	BlockColour	BOUNCY
			SendMessage	SPAWNINBLOCK
			
			Add 1 To Q

		EndWhile

		SetParameter	POSITION	5	0	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK	

		SetParameter	POSITION	12	0	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK

		SetParameter	POSITION	19	0	0	0
		SetParameter	BlockColour	STAR
		SendMessage	SPAWNINBLOCK

		Set Q To 1000		

	EndIf

	
	OnMessage TIMER7
	Do
		Randomise X From 1 To 100
	

		If X 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	-75.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		Regali!
SPA			SetParameter	TEXT		ˇPremios!
GER			SetParameter	TEXT		Goodies!
POL			SetParameter	TEXT		Nagrody!

			SendMessage 	CREATETEXT	

			SetParameter	POSITION	1	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	

		EndIf


		If X BecomesEqualTo 98
		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	-75.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		Prezenty



			SendMessage 	CREATETEXT	

			SetParameter	POSITION	8	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf


		If X BecomesEqualTo 47
		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	-75.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		Geschenke!
POL			SetParameter	TEXT		Potrzebujesz_pomocy!


			SendMessage 	CREATETEXT	

			SetParameter	POSITION	16	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf	


		If X BecomesEqualTo 19
		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	-75.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		Regali!
SPA			SetParameter	TEXT		ˇPremios!
GER			SetParameter	TEXT		Goodies!
POL			SetParameter	TEXT		Nagrody!


			SendMessage 	CREATETEXT	
	
			SetParameter	POSITION	23	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_LASERBEAM
			SendMessage	SPAWNINBLOCK	
		EndIf


		If X BecomesEqualTo 37
		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	-75.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		Goodies!
POL			SetParameter	TEXT		Potrzebujesz_pomocy!

			SendMessage 	CREATETEXT	

			SetParameter	POSITION	1	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 71
		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	-75.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		Prezenty

			SendMessage 	CREATETEXT	
	
			SetParameter	POSITION	8	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf	
	
		If X BecomesEqualTo 49
		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	-75.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		Potrzebujesz_pomocy!

			SendMessage 	CREATETEXT	
	
			SetParameter	POSITION	16	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf	
	
		If X BecomesEqualTo 5
		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	-75.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	1.5	3.5
			SetParameter	Text		Prezzie!
FRE			SetParameter	TEXT		Surprise!
ITA			SetParameter	TEXT		Regali!
SPA			SetParameter	TEXT		ˇPremios!
GER			SetParameter	TEXT		Goodies!
POL			SetParameter	TEXT		Nagrody!

			SendMessage 	CREATETEXT	
	
			SetParameter	POSITION	23	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_SPEEDUP
			SendMessage	SPAWNINBLOCK	
		EndIf	

		If X BecomesEqualTo 45
		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	-75.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		Prezenty

	
			SetParameter	POSITION	1	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 61
		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	-75.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		Potrzebujesz_pomocy!

			SendMessage 	CREATETEXT	
	
			SetParameter	POSITION	8	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 22
		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	-75.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		Regali!
SPA			SetParameter	TEXT		ˇPremios!
GER			SetParameter	TEXT		Geschenke!
POL			SetParameter	TEXT		Nagrody!

			SendMessage 	CREATETEXT	
	
			SetParameter	POSITION	16	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf

		If X BecomesEqualTo 81
		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	-75.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		ˇPremios!
SPA			SetParameter	TEXT		ˇAyuda!
GER			SetParameter	TEXT		Etwas_Hilfe!
POL			SetParameter	TEXT		Potrzebujesz_pomocy!

			SendMessage 	CREATETEXT	

			SetParameter	POSITION	23	14	0	0
			SetParameter	BlockColour	CRATE
			SetParameter	CRATECONTENTS	CRATE_BOATREPAIR
			SendMessage	SPAWNINBLOCK	
		EndIf


	EndResponse


	If S BecomesEqualTo 15
	Then
		SetParameter BLOCKCOLOUR ALLCOLOURS
		SendMessage CLEARBLOCKS

		SendMessage	MUSIC_GROOVE_LOW

		Set Z To 0

		SendMessage CLEARPROJECTILES

		SendMessage FIRINGOFF
		GotoLoop WIN

	EndIf

	If M BecomesEqualTo -1
	Then

		SetParameter BLOCKCOLOUR ALLCOLOURS
		SendMessage CLEARBLOCKS

		SendMessage	MUSIC_GROOVE_LOW


		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Scale1		8.0	8.0	8.0	1.0
		SetParameter	Scale2		5.0	5.0	5.0	1.0
		SetParameter	Scale4		3.0	3.0	3.0	1.0
		SetParameter	Colour1		1.0	0.22	0.07	1.0
		SetParameter	Colour2		1.0	0.22	0.07	1.0
		SetParameter	Colour3		1.0	0.22	0.07	1.0
		SetParameter	Colour4		0.0	0.0	0.0	1.0
		SetParameter	Colour5		0.0	0.0	0.0	1.0
		SetParameter	Colour6		0.0	0.0	0.0	1.0
		SetParameter	Lifetime	0.2	0.7	3.2	4.2
		SetParameter	Text		FAILED!
FRE		SetParameter	TEXT		ÉCHEC!
ITA		SetParameter	TEXT		HAI_FALLITO!
SPA		SetParameter	TEXT		ˇFALLASTE!
GER		SetParameter	TEXT		VERLOREN!
POL		SetParameter	TEXT		Klęska


		SendMessage	CREATETEXT

		Set Z To 0

		SendMessage CLEARPROJECTILES

		SendMessage FIRINGOFF
		GotoLoop FAIL
		
	EndIf

	


EndLoop

Loop FAIL
Do

	OnMessage TIMER2
	Do
	
		Add 1 To Z

	EndResponse


	If Z BecomesEqualTo 5
	Then

		SendMessage LOSECONDITION

	EndIf


EndLoop


Loop WIN
Do

	OnMessage TIMER2
	Do
	
		Add 1 To Z

	EndResponse


	If Z BecomesEqualTo 2
	Then


	SendMessage	WINCONDITION

	EndIf


EndLoop
	

EndFile
