GameMode	Crazy_Aliens

FRE	EXTRATERRESTRES
ITA	ALIENI_PAZZI
SPA	ALIENS_CHIFLADOS
GER	VERRÜCKTE_ALIENS
POL	Zwariowani_kosmici



GameType	TOURNAMENT

HIDDENID	5
	RedComboCounter			R
	YellowComboCounter		Y
	GreenComboCounter		G
	OrangeComboCounter		F
	PurpleComboCounter		P
	LANDBLOCKSDESTROYEDCOUNTER	A
	WaterHeightCounter		H
	LivesRemaining02Counter		Q



Program0123

TEXTBUFFER      LEVS                   

        ufo1up.wbl


ENDBUFFER


Loop INIT
Do


	Randomise A From 0 To 12

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP


	SetParameter	NUMLINES	1
	SendMessage	SetStartLines

	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                30              
        SendMessage     LOADLEVEL


	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT

	SendMessage     DEACTIVATESCORE


	SetParameter	TEXT	crazy_aliens
	SendMessage	SET_HIGHSCORE_TABLE


	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	500
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	3500
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER9
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	POSITION	0	-175	0	0
	SendMessage 	ChangeWaterHeight

	SetParameter    TEXT    ufo1up.wbw
	SendMessage     LOADWEAPONLIST

	SendMessage     MUSIC_GROOVE_LOW

	SET S To 0
	SET T To 0
	SET B To 0
	SET R To 0
	SET U To 60
	Set Q To 0
	Set I To 0
	Set W To 0

	Set Y To 0
	Set X To 1


	SetParameter	BACKDROP	BACKDROP1
	SendMessage	SETBACKDROP


	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing

	GotoLoop BRIEF

EndLoop




Loop BRIEF
Do


	SetParameter    Colour1         0.70    0.37    0.92    1.0
        SetParameter    Colour2         0.70    0.37    0.92    1.0
        SetParameter    Colour3         0.70    0.37    0.92    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		CRAZY_ALIENS
FRE	SetParameter	Text		EXTRATERRESTRES_FOUS
ITA	SetParameter	Text		ALIENI_PAZZI
SPA	SetParameter	Text		ALIENS_CHIFLADOS
GER	SetParameter	Text		VERRÜCKTE_ALIENS
POL	SetParameter	Text		Zwariowani_kosmici


	
	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		last_as_long_as_possible
FRE	SetParameter	Text		Tenez_le_plus_de_temps_possible
ITA	SetParameter	Text		Resisti_il_piů_possibile
SPA	SetParameter	Text		Intenta_sobrevivir_a_toda_costa
GER	SetParameter	Text		überlebe_so_lange_wie_möglich
POL	SetParameter	Text		Jak_długo_potrafisz,



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		while_destroying_those
FRE	SetParameter	Text		tout_en_détruisant_ces
ITA	SetParameter	Text		e_distruggi_gli
SPA	SetParameter	Text		para_destruir_a_los
GER	SetParameter	Text		und_zerstöre_diese
POL	SetParameter	Text		niszcz_tych


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		crazy_aliens
FRE	SetParameter	Text		extraterrestres_fous.
ITA	SetParameter	Text		alieni_pazzi.
SPA	SetParameter	Text		aliens_chiflados.
GER	SetParameter	Text		verrückten_Aliens
POL	SetParameter	Text		zwariowanych_kosmitów.


	SendMessage 	CREATETEXT
	


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	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


	SetParameter	INTERVAL	690
	SendMessage	SetLandSpeed


	OnMessage FIREPRESSED
	Do
		SendMessage EndBriefing
		SendMessage FIRINGON
		
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT

		SendMessage MUSIC_GROOVE_MED
	
		GotoLoop MAIN
		
	EndResponse

EndLoop



Loop MAIN
Do


	SetParameter	POSITION	0	-175	0	0
	SendMessage 	ChangeWaterHeight

	OnMessage TIMER9
	Do
		ADD 1 TO S
	EndResponse


	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	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	-30.0	-210.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    FRAME	5
        SendMessage     CREATEICON

	SetParameter	Justify		Centre
	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	-210.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
        SetParameter    Score   W
        SetParameter    Digits  3
        SendMessage     CREATESCORE



	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	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	Justify		Right
	SetParameter	FRAME		ICON_CLOCK
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	-20.0	210.0	0.0	0.0
	SendMessage	CREATEICON

	SetParameter	SIDE	CENTRE

	OnMessage TIMER9
	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.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

		If I IsEqualTo 0
		Then

			If U IsLessThan 11
			Then

				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
				
			EndIf

		EndIf

		If X IsEqualTo 0
		Then

			SetParameter	Justify		Centre
			SetParameter	Velocity	0.0	0.01	0.0	0.0
			SetParameter	Lifetime	0.0	0.1	0.5	0.3
			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	0.0	0.0	0.0
			
			SetParameter	Text	Time_bonus!
FRE			SetParameter	TEXT	Bonus_de_temps_!
ITA			SetParameter	TEXT	Tempo_bonus!
SPA			SetParameter	TEXT	ˇTiempo_Extra!
GER 			SetParameter	Text	zeitbonus!
POL			SetParameter	Text	Czas_upłynął
	

			SendMessage	CREATETEXT

			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	Velocity	0.0	0.0	0.0	0.0
			SetParameter	Lifetime	0.0	0.0	1.0	0.0


			Set X To 2
		EndIf
	


		If U IsGreaterThan 60
		Then
			Subtract 60 From U
			Add 1 to I
			
		EndIf
		SetParameter	Justify		Left

		Subtract 1 from U

		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Position	25.0	210.0	0.0	0.0


		If U IsLessThan 0
		Then

			Subtract 1 from I

			Set U To 59
			
		EndIf



		If U IsLessThan 10
		Then

			SetParameter	Text		0
			SetParameter	Position	25.0	210.0	0.0	0.0
			SendMessage	CREATETEXT
			SetParameter	Position	40.0	210.0	0.0	0.0
			
		EndIf

		If U IsEqualTo 60 
		Then

			Set U TO 00
			ConvertToText   U
			SendMessage	CREATETEXT

			Set U To 60

		EndIf
		


		If I IsEqualTo -1
		Then

			Set U To 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	TEXT	0
			SetParameter	Position	25.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			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	TEXT	0
			SetParameter	Position	40.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			Set U To 0
			Set I To 0
			Set Z To 0

			SendMessage	PAUSELANDLEFT
			SendMessage	PAUSELANDRIGHT

			SetParameter 	BLOCKCOLOUR 	ALLCOLOURS
			SendMessage 	CLEARBLOCKS

		EndIf




		If U IsLessThan 60
		Then

			ConvertToText   U
			SendMessage	CREATETEXT

		EndIf



		ConvertToText	I
		SetParameter	Position	0.0	210.0	0.0	0.0
		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	Lifetime	0.0	0.0	1.0	0.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	Justify		Centre

		If U IsEqualTo 0
		Then

			If I IsEqualTo 0
			Then
			
	
				SendMessage	PAUSELANDLEFT
				SendMessage	PAUSELANDRIGHT		

		
				SetParameter	Justify		Centre
				SetParameter	Position	0.0	-50.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		TIME'S_UP!
FRE				SetParameter	Text		TEMPS_ÉCOULÉ_!
ITA				SetParameter	TEXT		TEMPO_ESAURITO!
SPA				SetParameter	TEXT		ˇTIEMPO!
GER				SetParameter	TEXT		ENDE!
POL				SetParameter	TEXT		Czas_upłynął

				SendMessage	CREATETEXT

				Add S To N
				Set A To 0
				Set B To 0
				Set C To 0
				Set D To 0
				Set E To 0

				Set Z To 0

				SetParameter	Colour1		1.0	1.0	1.0	1.0
				SetParameter	Colour2		1.0	1.0	1.0	1.0
				SetParameter	Colour3		1.0	1.0	1.0	1.0
				SetParameter	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 	BLOCKCOLOUR 	ALLCOLOURS
				SendMessage 	CLEARBLOCKS

				SendMessage FIRINGOFF

				SendMessage MUSIC_GROOVE_LOW

				GotoLoop WIN

			EndIf		

		EndIf

	EndResponse


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


	If Y IsEqualTo 0
	Then

		If Z BecomesEqualTo 30
		Then

			SendMessage	MUSIC_GROOVE_HIGH
			Set Y To 1
			
		EndIf

	Endif




	If Y IsGreaterThan 2
	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	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	Lifetime	0.1	0.5	1.0	1.5
		SetParameter	Justify		Centre
		SetParameter	Text		Got_ONE
FRE		SetParameter	TEXT		Touché_!
ITA		SetParameter	TEXT		Fuori_UNO
SPA		SetParameter	TEXT		Uno_menos
GER		SetParameter	TEXT		Du_hast_eins
POL		SetParameter	TEXT		Masz_jednego


		SetParameter	Position	0.0	50.0	0.0	0.0
		SendMessage	CREATETEXT

		SET B To 0
		ADD 8 To U
		Add 1 To W
		Add 1000 To N

		Set X To 0	

	Endif
	
	
	OnMessage YELLOWCOMBODONE
	Do
		Set Y To 0	
	
	EndResponse


	If Q IsEqualTo -1
	Then
		
		SendMessage FiringOff
		SendMessage PAUSELANDLEFT
		SendMessage PAUSELANDRIGHT

		SendMessage	CLEARPROJECTILES

		SetParameter	BLOCKCOLOUR	ALLCOLOURS
		SendMessage	CLEARBLOCKS
		SendMessage	MUSIC_GROOVE_LOW

		Add S To N
		Set A To 0
		Set B To 0
		Set C To 0
		Set D To 0
		Set E To 0

		Set Z To 0

		GotoLoop WIN
	
	EndIf



	If W BecomesEqualTo 7
	Then

		SetParameter	INTERVAL	550
		SendMessage	SetLandSpeed

		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	Colour4		1.0	1.0	1.0	1.0
		SetParameter	Colour5		1.0	1.0	1.0	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0
	
		SetParameter	Text		Faster_!
		
		SetParameter	Lifetime	0.1	0.5	2.2	1.0
		SetParameter	Position	0.0	-40.0	0.0	0.0
FRE		SetParameter	Text		Plus_vite_!
ITA		SetParameter	TEXT		PIŮ_VELOCE!
SPA		SetParameter	TEXT		ˇMás_rápido!
GER		SetParameter	TEXT		Schneller!
POL		SetParameter	TEXT		Szybciej



		SendMessage	CREATETEXT
	
	EndIf



	If W BecomesEqualTo 15
	Then
	
		SetParameter	INTERVAL	350
		SendMessage	SetLandSpeed

		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	Colour4		1.0	1.0	1.0	1.0
		SetParameter	Colour5		1.0	1.0	1.0	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0

		SetParameter	Text		Crazy_Aliens!
		
		SetParameter	Lifetime	0.1	0.5	2.2	1.0
		SetParameter	Position	0.0	-40.0	0.0	0.0
FRE		SetParameter	Text		EXTRATERRESTRES_FOUS!
ITA		SetParameter	TEXT		Alieni_pazzi!
SPA		SetParameter	TEXT		ˇAliens_chiflados!
GER		SetParameter	TEXT		VERRÜCKTE_ALIENS
POL		SetParameter	TEXT		Zwariowani_kosmici



		SendMessage	CREATETEXT

	EndIf


	If W BecomesEqualTo 20
	Then
	
		SetParameter	INTERVAL	250
		SendMessage	SetLandSpeed

		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	Colour4		1.0	1.0	1.0	1.0
		SetParameter	Colour5		1.0	1.0	1.0	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0

		SetParameter	Text		Faster_!
		
		SetParameter	Lifetime	0.1	0.5	2.2	1.0
		SetParameter	Position	0.0	-40.0	0.0	0.0
FRE		SetParameter	Text		Plus_vite_!
ITA		SetParameter	TEXT		PIŮ_VELOCE!
SPA		SetParameter	TEXT		ˇMás_rápido!
GER		SetParameter	TEXT		Schneller!
POL		SetParameter	TEXT		Szybciej

		SendMessage	CREATETEXT

	EndIf
	
	If W BecomesEqualTo 25
	Then
	
		SetParameter	INTERVAL	150
		SendMessage	SetLandSpeed

		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	Colour4		1.0	1.0	1.0	1.0
		SetParameter	Colour5		1.0	1.0	1.0	1.0
		SetParameter	Colour6		1.0	1.0	1.0	1.0

		SetParameter	Text		Crazy_Aliens!
		
		SetParameter	Lifetime	0.1	0.5	2.2	1.0
		SetParameter	Position	0.0	-40.0	0.0	0.0
FRE		SetParameter	Text		EXTRATERRESTRES_FOUS!
ITA		SetParameter	TEXT		Alieni_pazzi!
SPA		SetParameter	TEXT		ˇAliens_chiflados!
GER		SetParameter	TEXT		VERRÜCKTE_ALIENS
POL		SetParameter	TEXT		Zwariowani_kosmici

		SendMessage	CREATETEXT

	EndIf


EndLoop


Loop WIN
Do

	OnMessage TIMER9
	Do

		Add 1 To Z

	EndResponse
	

	If Z IsGreaterThanOrEqualTo 2
	Then	


	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		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	Justify		Centre
	SetParameter	POSITION	0.0	150.0	0.0	0.0
	SetParameter	TEXT		Scores
FRE	SetParameter	Text		Scores
ITA	SetParameter	TEXT		Punti
SPA	SetParameter	TEXT		Puntuación
GER	SetParameter	TEXT		Punkte
POL	SetParameter	TEXT		Wyniki


	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		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	LifeTime	0.0	0.0	0.0	0.0

	SetParameter	Justify		Right
	SetParameter	POSITION	-240.0	75.0	0.0	0.0
	SPA SetParameter	POSITION	-260.0	75.0	0.0	0.0
POL 	SetParameter	POSITION	-275.0	75.0	0.0	0.0
	SetParameter	FRAME		5
	SendMessage	CREATEICON
	SetParameter	Side	2

	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	Justify		Right
	SetParameter	POSITION	-70.0	75.0	0.0	0.0
	SetParameter	TEXT		destroyed
FRE	SetParameter	TEXT		détruit
ITA	SetParameter	TEXT		distrutti
SPA	SetParameter	TEXT		Destruidos
GER	SetParameter	TEXT		zerstört
POL	SetParameter	TEXT		zniszczonych


	SendMessage	CREATETEXT

	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	-20.0	75.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   W
        SetParameter    Digits  8
        SendMessage     CREATESCORE


	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	Justify		Left
	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter 	Colour3		1.0	1.0	1.0	1.0

	SetParameter	POSITION	90.0	75.0	0.0	0.0
	SetParameter	TEXT		x_1000_points
FRE	SetParameter	Text		x_1000_points
ITA	SetParameter	TEXT		x1000_punti
SPA	SetParameter	TEXT		x_1000_puntos
GER	SetParameter	TEXT		x_1000_Punkte
POL	SetParameter	TEXT		x_1000_punktów


	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	Justify		Right
	SetParameter	POSITION	-70.0	25.0	0.0	0.0
	SetParameter	TEXT		Time_survived
FRE	SetParameter	Text		Durée_de_survie
ITA	SetParameter	TEXT		Tempo_rimasto
SPA	SetParameter	TEXT		Duración
GER	SetParameter	TEXT		Überstandene_Zeit
POL	SetParameter	TEXT		Czas_gry

	SendMessage	CREATETEXT

	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	-20.0	25.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   S
        SetParameter    Digits  8
        SendMessage     CREATESCORE




	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	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	Justify		Left
	SetParameter	POSITION	90.0	25.0	0.0	0.0
	SetParameter	TEXT		Seconds
FRE	SetParameter	TEXT		Secondes
ITA	SetParameter	TEXT		secondi
SPA	SetParameter	TEXT		Segundos
GER	SetParameter	TEXT		Sekunden
POL	SetParameter	TEXT		sekund


	SendMessage	CREATETEXT


	SetParameter	Justify		Right
	SetParameter	POSITION	-70.0	-25.0	0.0	0.0
	SetParameter	TEXT		Total_points
FRE	SetParameter	Text		Total_de_points
ITA	SetParameter	TEXT		Punteggio_totale
SPA	SetParameter	TEXT		Puntuación_Total
GER	SetParameter	TEXT		Gesamtpunkte
POL	SetParameter	TEXT		Razem_punktów

	SendMessage	CREATETEXT

	EndIf

	If Z IsGreaterThanOrEqualTo 3
	Then

		If K IsGreaterThan N
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

			If K IsLessThan N
			Then

				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   K
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE

				Set A To K

				Add 100 To K
			
			EndIf

		EndIf

		If D IsEqualTo 1
		Then

			If A IsLessThan N
			Then
			
				Add 1 To A

				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   A
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE




			EndIf

		EndIf


/
		If A IsEqualTo N
		Then

			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	-20.0	-25.0	0.0	0.0
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
       			SetParameter    Score   N
        		SetParameter    Digits  8
        		SendMessage     CREATESCORE

		EndIf
/
		If A BecomesEqualTo N
		Then

			Set Z To 95
			GotoLoop WIN2

		EndIf


	EndIf


	If Z BecomesEqualTo 99
	Then


		SetParameter    SCORE		N
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf


	
	
EndLoop

Loop WIN2
Do

	OnMessage TIMER9
	Do

		Add 1 To Z

	EndResponse
	

	If Z IsGreaterThanOrEqualTo 1
	Then	


	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		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	Justify		Centre
	SetParameter	POSITION	0.0	150.0	0.0	0.0
	SetParameter	TEXT		Scores
FRE	SetParameter	TEXT		Scores
ITA	SetParameter	TEXT		Punti
SPA	SetParameter	TEXT		Puntuación
GER	SetParameter	TEXT		Punkte
POL	SetParameter	TEXT		Wyniki


	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		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	LifeTime	0.0	0.0	0.0	0.0

	SetParameter	Justify		Right
	SetParameter	POSITION	-240.0	75.0	0.0	0.0
	SPA SetParameter	POSITION	-260.0	75.0	0.0	0.0
POL 	SetParameter	POSITION	-275.0	75.0	0.0	0.0
	SetParameter	FRAME		5
	SendMessage	CREATEICON
	SetParameter	Side	2

	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	Justify		Right
	SetParameter	POSITION	-70.0	75.0	0.0	0.0
	SetParameter	TEXT		destroyed
FRE	SetParameter	TEXT		détruit
ITA	SetParameter	TEXT		distrutti
SPA	SetParameter	TEXT		Destruidos
GER	SetParameter	TEXT		zerstört
POL	SetParameter	TEXT		zniszczonych

	SendMessage	CREATETEXT

	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	-20.0	75.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   W
        SetParameter    Digits  8
        SendMessage     CREATESCORE


	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	Justify		Left
	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter 	Colour3		1.0	1.0	1.0	1.0

	SetParameter	POSITION	90.0	75.0	0.0	0.0
	SetParameter	TEXT		x_1000_points
FRE	SetParameter	Text		x_1000_points
ITA	SetParameter	TEXT		x1000_punti
SPA	SetParameter	TEXT		x_1000_puntos
GER	SetParameter	TEXT		x_1000_Punkte
POL	SetParameter	TEXT		x_1000_punktów

	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	Justify		Right
	SetParameter	POSITION	-70.0	25.0	0.0	0.0
	SetParameter	TEXT		Time_survived
FRE	SetParameter	Text		Durée_de_survie
ITA	SetParameter	TEXT		Tempo_rimasto
SPA	SetParameter	TEXT		Duración
GER	SetParameter	TEXT		Überstandene_Zeit
POL	SetParameter	TEXT		Czas_gry

	SendMessage	CREATETEXT

	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	-20.0	25.0	0.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
       	SetParameter    Score   S
        SetParameter    Digits  8
        SendMessage     CREATESCORE




	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	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	Justify		Left
	SetParameter	POSITION	90.0	25.0	0.0	0.0
	SetParameter	TEXT		Seconds
FRE	SetParameter	Text		Secondes
ITA	SetParameter	TEXT		secondi
SPA	SetParameter	TEXT		Segundos
GER	SetParameter	TEXT		Sekunden
POL	SetParameter	TEXT		sekund

	SendMessage	CREATETEXT


	SetParameter	Justify		Right
	SetParameter	POSITION	-70.0	-25.0	0.0	0.0
	SetParameter	TEXT		Total_points
FRE	SetParameter	Text		Total_de_points
ITA	SetParameter	TEXT		Punteggio_totale
SPA	SetParameter	TEXT		Puntuación_Total
GER	SetParameter	TEXT		Gesamtpunkte
POL	SetParameter	TEXT		Razem_punktów

	SendMessage	CREATETEXT

	EndIf

	If Z IsGreaterThanOrEqualTo 2
	Then

		If K IsGreaterThan N
		Then
			
			Set D To 1

		EndIf


		If D IsEqualTo 0
		Then

			If K IsLessThan N
			Then

				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   K
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE

				Set A To K

				Add 100 To K
			
			EndIf

		EndIf

		If D IsEqualTo 1
		Then

			If A IsLessThan N
			Then

				Add 1 To A
			
				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	-20.0	-25.0	0.0	0.0
				SetParameter	Lifetime	0.0	0.0	0.0	0.0
       				SetParameter    Score   A
        			SetParameter    Digits  8
        			SendMessage     CREATESCORE


			EndIf

		EndIf



		If A IsEqualTo N
		Then

			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	-20.0	-25.0	0.0	0.0
			SetParameter	Lifetime	0.0	0.0	0.0	0.0
       			SetParameter    Score   N
        		SetParameter    Digits  8
        		SendMessage     CREATESCORE

		EndIf

		If A BecomesEqualTo N
		Then

			Set Z To 95

		EndIf

	EndIf


	If Z BecomesEqualTo 98
	Then


		SetParameter    SCORE		N
		SendMessage	SET_SCORE
		SendMessage LOSECONDITION

	EndIf

	
EndLoop


EndFile
