GameMode	one
GameType	QUEST
	WaterHeightCounter		H
	LandLinesCounter		M
	BulletGoneCounter		T
	CollectStarCounter		S
	DestroyOwnStarCounter		D
	DestroyEnemyStarCounter		D
	LivesRemaining02Counter		Q

Program0123

TEXTBUFFER	LEVS
	one.wbl
ENDBUFFER

/ the init loop! /

Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	BACKDROP	BACKDROP1
	SendMessage	SETBACKDROP
	SendMessage	STARTBRIEFING
	SendMessage	FIRINGOFF

	SetParameter	LIVES		0
	SendMessage	SETLIVES

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION

	SetParameter	Position	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT

	SetParameter	INTERVAL	999999
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	16
	SendMessage	SetStartLines

	SetParameter	TEXT	one.wbw
	SendMessage	LOADWEAPONLIST
	
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	80        	
        SendMessage     LOADLEVEL

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT
		
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	0200
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER	

	SendMessage	MUSIC_GROOVE_LOW

	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0
	SetParameter	Scale1		0.2	0.2	0.2	0.0
	SetParameter	Scale2		1.0	1.0	1.0	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	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

	SendMessage	DEACTIVATESCORE

	SetParameter	Lifetime	0.2	0.6	4.5	1.6
	SetParameter	Justify		Centre

	Set U to 60
	Set I to 2
	Set Z to 2
	Set L to 0
	Set D to 0
	Set S to 0

	GotoLoop CHECK

EndLoop

/ mission briefing /

Loop CHECK
Do
	OnMessage TIMER3
	Do
		GosubLoop	BRIEF
	EndResponse

	OnMessage FIREPRESSED
	Do
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT
		SendMessage	ENDBRIEFING
		SendMessage	FIRINGON
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SendMessage	MUSIC_GROOVE_MED_LOW
		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	1000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
		GotoLoop MAIN
	EndResponse
EndLoop

Loop BRIEF
Do
	SetParameter	JUSTIFY		CENTRE
	SetParameter	Lifetime	0.0	0.0	0.2	0.0
	SetParameter	Scale1		1.1	1.3	1.1	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    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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		One_Line_at_a_Time_1_of_3
POL	SetParameter	TEXT		Gwiazdka_z_nieba_1_z_3
FRE	SetParameter	TEXT		Une_ligne__la_fois_1_sur_3
SPA	SetParameter	TEXT		Lnea_a_Lnea_1_de_3
ITA	SetParameter	TEXT		Una_fila_per_volta_1_di_3
GER	SetParameter	TEXT		REIHENWEISE_1_von_3



	SendMessage	CreateText

	SetParameter	Scale1		0.1	0.1	0.1	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	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	Position	0.0	110.0	0.0	0.0
	SetParameter	Text		You_have_three_minutes_to_collect_the
POL	SetParameter	TEXT		MASZ_TRZY_MINUTY_NA_ZEBRANIE
FRE	SetParameter	TEXT		Vous_avez_trois_minutes_pour_attraper
SPA	SetParameter	TEXT		Dispones_de_tres_minutos_para_
ITA	SetParameter	Scale1		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0
ITA	SetParameter	TEXT		Hai_tre_minuti_per_prendere_la_stella!_Ogni
GER	SetParameter	TEXT		Du_hast_genau_drei_Minuten_um_den_Stern


	SendMessage	CreateText

	SetParameter	Position	0.0	75.0	0.0	0.0
	SetParameter	Text		star!_Everytime_you_fire_the_blocks_will
POL	SetParameter	TEXT		GWIAZDKI._ZA_KA_DYM_STRZAEM_CEGY
FRE	SetParameter	TEXT		l'toile.__chaque_tir,_les_blocs
SPA	SetParameter	TEXT		conseguir_la_estrella!_Por_cada_disparo,
ITA	SetParameter	Scale1		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0
ITA	SetParameter	TEXT		volta_che_spari,_i_blocchi_scendono_di_una
GER	SetParameter	TEXT		einzusammeln._Nach_jedem_Schuss_bewegen


	SendMessage	CreateText

	SetParameter	Position	0.0	40.0	0.0	0.0
	SetParameter	Text		drop_down_one_line._Think_carefully_and
POL	SetParameter	TEXT		OBNI__SI_O_JEDN_LINI._BD_OSTRO_NY_I
FRE	SetParameter	TEXT		descendront_d'une_ligne._Rflchissez
SPA	SetParameter	TEXT		los_bloques_descendern_una_lnea.
ITA	SetParameter	Scale1		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0
ITA	SetParameter	TEXT		lnea._Cerca_di_pianificare_con_cura_le
GER	SetParameter	TEXT		sich_die_Steine_eine_Reihe_nach_unten.


	SendMessage	CreateText

	SetParameter	Position	0.0	5.0	0.0	0.0
	SetParameter	Text		plan_ahead!
POL	SetParameter	TEXT		PLANUJ_RUCHY_WPRZD.
FRE	SetParameter	TEXT		bien_avant_d'agir. 
SPA	SetParameter	TEXT		Pinsatelo_bien_y_planifica!
ITA	SetParameter	Scale1		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0
ITA	SetParameter	TEXT		tue_mosse._Buona_fortuna!
GER	SetParameter	TEXT		denk_nach_und_handle_schnell.


	SendMessage	CreateText

	SetParameter	Position	0.0	-65.0	0.0	0.0
	SetParameter	Text		Good_luck!
POL	SetParameter	TEXT		POWODZENIA!
FRE	SetParameter	TEXT		Bonne_chance!
SPA	SetParameter	TEXT		Buena_suerte!
ITA	SetParameter	Scale1		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale2		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale3		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale4		0.6	0.6	0.6	0.0
ITA	SetParameter	Scale5		0.6	0.6	0.6	0.0
ITA	SetParameter	TEXT		_
GER	SetParameter	TEXT		Viel_Glck!
	SendMessage	CreateText

	SetParameter	Colour1		1.0	0.0	0.0	1.0
	SetParameter	Colour2		1.0	0.0	0.0	1.0
	SetParameter	Colour3		1.0	0.0	0.0	1.0

	SetParameter	Scale1		0.1	0.1	0.1	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	Position	0.0	-115.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
POL	SetParameter	TEXT		Nacinij_"Strza"
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
SPA 	SetParameter	Text		Pulsa_el_disparo_para_empezar
ITA	SetParameter	TEXT		Premi_fuoco_per_cominciare
GER	SetParameter	TEXT		Zum_Starten_Feuer_drcken

	SendMessage 	CREATETEXT
EndLoop

/ main loop /

Loop MAIN
Do
	If T IsGreaterThan 0
	Then
		Set T to 0
		GotoLoop TIMER
	EndIf

	If S BecomesGreaterThan 0
	Then
		GotoLoop WIN
	EndIf

	If D BecomesGreaterThan 0
	Then
		GotoLoop LOSE
	EndIf

	If Q IsLessThan 0
	Then
		SetParameter	Justify		Centre
		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Scale1		8.0	8.0	8.0	1.0
		SetParameter	Scale2		5.0	5.0	5.0	1.0
		SetParameter	Scale4		3.0	3.0	3.0	1.0
		SetParameter	Colour1		1.0	0.22	0.07	1.0
		SetParameter	Colour2		1.0	0.22	0.07	1.0
		SetParameter	Colour3		1.0	0.22	0.07	1.0
		SetParameter	Colour4		0.0	0.0	0.0	1.0
		SetParameter	Colour5		0.0	0.0	0.0	1.0
		SetParameter	Colour6		0.0	0.0	0.0	1.0
		SetParameter	Lifetime	0.2	0.7	3.2	4.2
		SetParameter	Text		FAILED!
POL		SetParameter	TEXT		Klska!
FRE		SetParameter	TEXT		CHEC!
		SPA SetParameter	Text	FALLASTE!
		GER SetParameter	Text	VERLOREN!
		ITA SetParameter	TEXT	HAI_FALLITO!


	
		SendMessage	CREATETEXT
		GotoLoop LOSE
	EndIf

	GosubLoop CLOCK
EndLoop

/ advance one line /

Loop TIMER
Do
	GosubLoop CLOCK

	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0300
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer
	GotoLoop TIMERA
EndLoop

Loop TIMERA
Do
	GosubLoop CLOCK

	OnMessage TIMER2
	Do
			GotoLoop ADVANCE
	EndResponse
EndLoop

Loop ADVANCE
Do
	GosubLoop CLOCK

	set M to 0
	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed

	GotoLoop ADVANCE2
EndLoop

Loop ADVANCE2
Do
	GosubLoop CLOCK

	If M IsEqualTo 1
	then
		Add 1 to L
		SetParameter	INTERVAL	999999
		SendMessage	SetLandSpeed
		Set Y to 0
		GotoLoop MAIN
	endif
EndLoop

/ clock /
Loop CLOCK
Do
	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale2		1.0	1.0	1.0	1.0
	SetParameter	Scale3		1.0	1.0	1.0	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		1.0	1.0	1.0	1.0
	SetParameter	FRAME		3
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	180.0	210.0	0.0	0.0
	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

	OnMessage TIMER1
	Do
		SetParameter	JUSTIFY CENTRE
		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	1	0
		SetParameter	Text	#
		SetParameter	Position	-26.0	-210.0	0.0	0.0
		SendMessage	CREATETEXT

			If U IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to I
			EndIf

		SetParameter	Position	-3.0	-210.0	0.0	0.0
		SetParameter    Score   L
       		SetParameter    Digits  3
       		SendMessage     CREATESCORE

			Subtract 1 from U
			SetParameter	Lifetime	0.0	0.0	1.0	0.0
			SetParameter	Position	245.0	210.0	0.0	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 U IsLessThan 10
				Then
					SetParameter	Text		0
					SetParameter	Position	245.0	210.0	0.0	0.0
					SendMessage	CREATETEXT
					SetParameter	Position	260.0	210.0	0.0	0.0
				EndIf




			ConvertToText   U
			SendMessage	CREATETEXT
			ConvertToText	I
			SetParameter	Position	215.0	210.0	0.0	0.0
			SendMessage	CREATETEXT

			If U IsEqualTo 0
			Then
				Subtract 1 from I
				Set U to 60
			EndIf



		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 I IsLessThan 1
	Then
			If U BecomesLessThan 11
			Then
				SetParameter	Justify		Centre
				SetParameter	Position	340.0	0.0	0.0	0.0
				SetParameter	Lifetime	0.2	0.5	2.5	0.5
				SetParameter	Velocity	-0.4	0.0	0.0	0.0
				SetParameter	Scale1		2.0	2.0	2.0	0.0
				SetParameter	Scale2		3.0	3.0	3.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	Text		HURRY_UP!!
POL				SetParameter	TEXT		Pooepiesz_si!
FRE				SetParameter	TEXT		DPCHEZ-VOUS!!
				SPA SetParameter	Text	DEPRISA!
				GER SetParameter	Text	SCHNELLER!
				ITA SetParameter	TEXT	SBRIGATI!


				SendMessage	CREATETEXT
				SetParameter	Lifetime	0.0	0.0	1.0	0.0
				SetParameter	Velocity	0.0	0.0	0.0	0.0
				SetParameter	Colour2		0.0	1.0	0.0	1.0
				SetParameter	Colour3		0.0	1.0	0.0	1.0
			EndIf
	EndIf

			If I IsLessThan 0
			Then
					SetParameter	Justify		Centre
					SetParameter	Position	0.0	0.0	0.0	0.0
					SetParameter	Scale1		8.0	8.0	8.0	1.0
					SetParameter	Scale2		5.0	5.0	5.0	1.0
					SetParameter	Scale4		3.0	3.0	3.0	1.0
					SetParameter	Colour1		1.0	0.22	0.07	1.0
					SetParameter	Colour2		1.0	0.22	0.07	1.0
					SetParameter	Colour3		1.0	0.22	0.07	1.0
					SetParameter	Colour4		0.0	0.0	0.0	1.0
					SetParameter	Colour5		0.0	0.0	0.0	1.0
					SetParameter	Colour6		0.0	0.0	0.0	1.0
					SetParameter	Lifetime	0.2	0.7	3.2	4.2
					SetParameter	Text		TIME'S_UP!
POL					SetParameter	TEXT		Czas_upyn
FRE					SetParameter	TEXT		TEMPS_COUL!
					SPA SetParameter	Text	TIEMPO!
					GER SetParameter	Text	ENDE!
					ITA SetParameter	TEXT	TEMPO_ESAURITO!


					SendMessage	CREATETEXT
					GotoLoop LOSE
			EndIf

			SetParameter	Colour1		1.0	1.0	1.0	1.0
			SetParameter	Colour2		0.0	1.0	0.0	1.0
			SetParameter	Colour3		0.0	1.0	0.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.0	0.0	1.0	0.0
	EndResponse

	If I BecomesLessThan 2
	Then
			SendMessage	MUSIC_GROOVE_MED
	EndIf

	If I BecomesLessThan 1
	Then
			SendMessage	MUSIC_GROOVE_MED_HI
	EndIf

	If I IsLessThan 1
	Then
		If U BecomesLessThan 30
		Then
			SendMessage	MUSIC_GROOVE_HIGH
		EndIf
	EndIf

EndLoop

/ this here is the end /

Loop ENDGAME
Do
	If S IsEqualTo 1
	Then
		GotoLoop WIN
	EndIf

	If S IsLessThan 1
	Then
		GotoLoop LOSE
	EndIf

EndLoop

Loop WIN
Do
	SetParameter	Justify		Centre
	SetParameter	Position	0.0 	0.0	0.0	0.0
	SetParameter	Lifetime	0.2	0.7	3.2	4.2
	SetParameter	Scale1		0.4	0.4	0.4	0.0
	SetParameter	Scale2		1.4	1.4	1.4	0.0
	SetParameter	Scale3		3.4	3.4	3.4	0.0
	SetParameter	Scale4		2.0	2.0	2.0	0.0
	SetParameter	Scale5		1.8	1.8	1.8	0.0
	SetParameter	Colour1		0.18	0.9	0.1	1.0
	SetParameter	Colour2		0.18	0.9	0.1	1.0
	SetParameter	Colour3		0.18	0.9	0.1	1.0
	SetParameter	Colour4		1.0	1.0	1.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Text	SUCCESS!
POL	SetParameter	TEXT	Sukces!
FRE	SetParameter	TEXT	RUSSI!
	SPA SetParameter	Text	LO_CONSEGUISTE!
	GER SetParameter	Text	GESCHAFFT!
	ITA SetParameter	TEXT	HAI_VINTO!


	SendMessage	CREATETEXT
	SetParameter	TEXT	jegg40
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION
	GotoLoop INFINITE
EndLoop

Loop LOSE
Do
	SendMessage	LOSECONDITION
	GotoLoop INFINITE
EndLoop

Loop INFINITE
Do
EndLoop
EndFile