GameMode	Deathmatch
ITA	DEATHMATCH
GER	DEATHMATCH
SPA	COMBATE_A_MUERTE
FRE	COMBAT_ŕ_MORT
POL	Na_śmierć_i_życie

GameType	VERSUS
CpuCanPlay
		LIVESREMAINING02COUNTER		L
		LIVESREMAINING13COUNTER		M
Program02

TEXTBUFFER LEVS
	
	DMATCH1.wbl
	DMATCH2.wbl
	DMATCH3.wbl
	DMATCH4.wbl
	DMATCH5.wbl
	DMATCH6.wbl
	DMATCH7.wbl
	DMATCH8.wbl
	DMATCH9.wbl
	DMATCH10.wbl
	DMATCH11.wbl
	DMATCH12.wbl
	DMATCH13.wbl
	DMATCH14.wbl
	DMATCH15.wbl

ENDBUFFER

Loop INIT
Do

	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	NUMLINES	10
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter    LIVES   1
	SendMessage     SETLIVES
	SetParameter	NUMWEAPONS	100
	SendMessage	RANDOMWEAPONS
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	70000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	130000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	190000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	250000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter    GD_FLOAT        0       0       0       0
	SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        SendMessage     SET_GD_FLOAT
	SET B TO 0
	SET L TO 0
	SET M TO 0
	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT
	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing
	GotoLoop	BRIEF

EndLoop


Loop BRIEF
Do

	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	Side		Centre
	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		DEATHMATCH
ITA	SetParameter	Text		DEATHMATCH
GER	SetParameter	Text		DEATHMATCH
SPA	SetParameter	Text		COMBATE_A_MUERTE
FRE	SetParameter	Text		COMBAT_ŕ_MORT
POL 	SetParameter	Text		Na_śmierć_i_życie
	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		Fight_to_the_death
ITA	SetParameter	Text		Combatti_fino_alla_morte.
GER	SetParameter	Text		Kampf_bis_zum_Tode.
SPA	SetParameter	Text		Lucha_a_vida_o_muerte_y_consigue
FRE	SetParameter	Text		Combattez_jusqu'_ŕ_la_mort.
POL	SetParameter	Text		Walcz_do_upadłego
	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Collect_the_crates.
ITA	SetParameter	Text		Attento_ai_blocchi_rimbalzanti.
GER	SetParameter	Text		Sammle_die_Kisten
SPA	SetParameter	Text		el_mayor_número_de_cajas.
FRE	SetParameter	Text		Récupérez_les_caisses.
POL	SetParameter	Text		Zbieraj_skrzynki
	SendMessage 	CREATETEXT


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	Text		Appuyez_sur_Tir_pour_commencer
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
		Set Z To 1	
	EndResponse

	If Z BecomesEqualTo 1
	Then
		SendMessage EndBriefing
		SendMessage	FIRINGON
		SendMessage MUSIC_GROOVE_LOW
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT
		SetParameter GD_FLOAT 0.01 0 0 0
		SetParameter GAMEDATA DIVIDEROPENCHANCE
		SendMessage SET_GD_FLOAT
		GotoLoop MAIN
		
	Endif

EndLoop

Loop MAIN
Do

OnMessage TIMER1
	Do
	SendMessage	MUSIC_GROOVE_MED_LOW
	SetParameter	INTERVAL	10000
	SendMessage	SetLandSpeed
	EndResponse
	
	OnMessage TIMER2
	Do
	SendMessage	MUSIC_GROOVE_MED_LOW
	SetParameter	INTERVAL	9000
	SendMessage	SetLandSpeed
	EndResponse

	OnMessage TIMER3
	Do
	SendMessage	MUSIC_GROOVE_MED
	SetParameter	INTERVAL	7000
	SendMessage	SetLandSpeed
	
	EndResponse
	
	OnMessage TIMER4
	Do
	SendMessage	MUSIC_GROOVE_MED_HI
	SetParameter	INTERVAL	6000
	SendMessage	SetLandSpeed
	
	EndResponse

	OnMessage TIMER5
	Do
	SendMessage	MUSIC_GROOVE_HIGH
	SetParameter	INTERVAL	5000
	SendMessage	SetLandSpeed
	
	EndResponse

	IfEnemy M BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

EndLoop

Loop INFINITE
Do

EndLoop

Program13

Loop INIT
Do

	
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	NUMLINES	10
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter    LIVES   1
	SendMessage     SETLIVES
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SET B TO 0
	SET L TO 0
	SET M TO 0
	GotoLoop		BRIEF

EndLoop

Loop BRIEF
Do

	OnMessage FIREPRESSED
	Do
		SetEnemy Z To 1	
		GotoLoop MAIN
	EndResponse

	IFENEMY Z ISEQUALTO 1
	Then 
		GotoLoop MAIN
	EndIf

EndLoop

Loop MAIN
Do

OnMessage TIMER1
	Do
	SetParameter	INTERVAL	10000
	SendMessage	SetLandSpeed
	EndResponse
	
	IfEnemy L BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

EndLoop

Loop INFINITE
Do

EndLoop

GameMode	Star_Collection
ITA	COLLEZIONARE_STELLE
GER	STERNE_SAMMELN
SPA	RECOGIDA_DE_ESTRELLAS
FRE	COLLECTION_D'éTOILES
POL	Kolekcja_gwiazd

GameType	VERSUS
CpuCanPlay
	CollectStarCounter		A
	RedComboCounter			C
	YellowComboCounter		D
	GreenComboCounter		E
	OrangeComboCounter		F
	PurpleComboCounter		G
	LIVESREMAINING02COUNTER		L
	LIVESREMAINING13COUNTER		M

Program02

TEXTBUFFER LEVS
	
	STAR1.wbl
	STAR2.wbl
	STAR3.wbl
	STAR4.wbl
	STAR5.wbl
	STAR6.wbl
	STAR7.wbl
	STAR8.wbl
	STAR9.wbl
	STAR10.wbl

ENDBUFFER

Loop INIT
Do

	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	INTERVAL	10000
	SendMessage	SetLandSpeed
	SetParameter	NUMLINES	8
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter    LIVES   2
	SendMessage     SETLIVES
	SetParameter	NUMWEAPONS	100
	SendMessage	RANDOMWEAPONS
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter    GD_FLOAT        0       0       0       0
	SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        SendMessage     SET_GD_FLOAT
	SET A TO 0
	SET B TO 0
	SET C TO 0
	SET D TO 0
	SET E TO 0
	SET F TO 0
	SET G TO 0
	SET L TO 0
	SET M TO 0
	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT
	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing
	GotoLoop	BRIEF

EndLoop


Loop BRIEF
Do

	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	Side		Centre
	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		STAR_COLLECTION
ITA	SetParameter	Text		COLLEZIONARE_STELLE
GER	SetParameter	Text		STERNE_SAMMELN
SPA	SetParameter	Text		RECOGIDA_DE_ESTRELLAS
FRE	SetParameter	Text		COLLECTION_D'éTOILES
POL	SetParameter	Text		Kolekcja_gwiazd

	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		1st_Person_to_collect
ITA	SetParameter	Text		Il_primo_giocatore_che
GER	SetParameter	Text		Der_erste_Spieler,_der_5_Sterne
SPA	SetParameter	Text		Gana_el_juego_el_primer_jugador
FRE	SetParameter	Text		Le_1er_joueur_qui_récupčre
POL	SetParameter	Text		Gracz,_który_zbierze
	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		5_stars_wins.
ITA	SetParameter	Text		raccoglie_5_stelle,_vince.
GER	SetParameter	Text		aufsammelt,_gewinnt!
SPA	SetParameter	Text		que_consiga_cinco_estrellas.
FRE	SetParameter	Text		5_étoiles_gagne
POL	SetParameter	Text		5_gwiazdek,_wygrywa
	SendMessage 	CREATETEXT


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	Text		Appuyez_sur_Tir_pour_commencer
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
		Set Z To 1	
	EndResponse

	If Z BecomesEqualTo 1
	Then
		SendMessage EndBriefing
		SendMessage	FIRINGON
		SendMessage MUSIC_GROOVE_LOW
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT
		SetParameter GD_FLOAT 0.01 0 0 0
		SetParameter GAMEDATA DIVIDEROPENCHANCE
		SendMessage SET_GD_FLOAT
		GotoLoop MAIN
		
	Endif

EndLoop

Loop MAIN
Do

	OnMessage TIMER1
	Do
	SendMessage	MUSIC_GROOVE_MED_LOW
	SetParameter	INTERVAL	8000
	SendMessage	SetLandSpeed
	EndResponse

		IfEnemy M BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	If A BecomesEqualTo 1
	Then
		SetParameter	Position	-300.0	40.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	Colour2		0.86	0.16	0.09	1.0
		SetParameter	Colour3		0.86	0.16	0.09	1.0
		SetParameter	Text		4_TO_GO
ITA		SetParameter	Text		ANCORA_4
GER		SetParameter	Text		Noch_4
SPA		SetParameter	Text		FALTAN_4
FRE		SetParameter	Text		ENCORE_4
POL		SetParameter	Text		4_DO_KOŃCA
		SendMessage	CREATETEXT
		SendMessage	MUSIC_GROOVE_MED


	Endif
	
	If A BecomesEqualTo 2
	Then
		SetParameter	Position	-300.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	Colour2		0.86	0.16	0.09	1.0
		SetParameter	Colour3		0.86	0.16	0.09	1.0
		SetParameter	Text		3_TO_GO
ITA		SetParameter	Text		ANCORA_3
GER		SetParameter	Text		Noch_3
SPA		SetParameter	Text		FALTAN_3
FRE		SetParameter	Text		ENCORE_3
POL		SetParameter	Text		3_DO_KOŃCA
		SendMessage	CREATETEXT
		SendMessage	MUSIC_GROOVE_MED_HI

	Endif
	
	If A BecomesEqualTo 3
	Then
		SetParameter	Position	-300.0	40.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	Colour2		0.86	0.16	0.09	1.0
		SetParameter	Colour3		0.86	0.16	0.09	1.0
		SetParameter	Text		2_TO_GO
ITA		SetParameter	Text		ANCORA_2
GER		SetParameter	Text		Noch_2
SPA		SetParameter	Text		FALTAN_2
FRE		SetParameter	Text		ENCORE_2
POL		SetParameter	Text		2_DO_KOŃCA
		
		SendMessage	CREATETEXT
		
	Endif

	If A BecomesEqualTo 4
	Then
		SetParameter	Position	-300.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	Colour2		0.86	0.16	0.09	1.0
		SetParameter	Colour3		0.86	0.16	0.09	1.0
		SetParameter	Text		1_TO_GO
ITA		SetParameter	Text		ANCORA_1
GER		SetParameter	Text		Noch_1
SPA		SetParameter	Text		FALTA_1
FRE		SetParameter	Text		ENCORE_1
POL		SetParameter	Text		1_DO_KOŃCA
		SendMessage	CREATETEXT
		SendMessage	MUSIC_GROOVE_HIGH
	Endif

	If A BecomesEqualTo 5
	
	Then
			
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

	

EndLoop

Loop INFINITE
Do

EndLoop

Loop MAIN5
Do

			
EndLoop

Program13

Loop INIT
Do
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	INTERVAL	10000
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	8
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter    LIVES   2
	SendMessage     SETLIVES
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SET A TO 0
	SET B TO 0
	SET C TO 0
	SET D TO 0
	SET E TO 0
	SET F TO 0
	SET G TO 0
	SET L TO 0
	SET M TO 0
	GotoLoop BRIEF

EndLoop

Loop BRIEF
Do

	OnMessage FIREPRESSED
	Do
		SetEnemy Z To 1	
		GotoLoop MAIN
	EndResponse

	IFENEMY Z ISEQUALTO 1
	Then 
		GotoLoop MAIN
	EndIf

EndLoop

Loop MAIN
Do

	OnMessage TIMER1
	Do
	SetParameter	INTERVAL	8000
	SendMessage	SetLandSpeed
	EndResponse
	
		IfEnemy L BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	If A BecomesEqualTo 1
	Then
	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	Colour1		0.64	0.28	1.0	1.0
		SetParameter	Colour2		0.64	0.28	1.0	1.0
		SetParameter	Colour3		0.64	0.28	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		2.0	2.0	2.0	0.0
		SetParameter	Scale2		3.0	3.0	3.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	Text		4_TO_GO
ITA		SetParameter	Text		ANCORA_4
GER		SetParameter	Text		Noch_4
SPA		SetParameter	Text		FALTAN_4
FRE		SetParameter	Text		ENCORE_4
POL		SetParameter	Text		4_DO_KOŃCA

		SendMessage	CREATETEXT
		

	
	Endif

	
	If A BecomesEqualTo 2
	Then
		SetParameter	Position	300.0	-40.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	Colour1		0.64	0.28	1.0	1.0
		SetParameter	Colour2		0.64	0.28	1.0	1.0
		SetParameter	Colour3		0.64	0.28	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		2.0	2.0	2.0	0.0
		SetParameter	Scale2		3.0	3.0	3.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	Text		3_TO_GO
ITA		SetParameter	Text		ANCORA_3
GER		SetParameter	Text		Noch_3
SPA		SetParameter	Text		FALTAN_3
FRE		SetParameter	Text		ENCORE_3
POL		SetParameter	Text		3_DO_KOŃCA
		SendMessage	CREATETEXT
		
	Endif
	
	If A BecomesEqualTo 3
	Then
		SetParameter	Position	300.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	Colour1		0.64	0.28	1.0	1.0
		SetParameter	Colour2		0.64	0.28	1.0	1.0
		SetParameter	Colour3		0.64	0.28	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		2.0	2.0	2.0	0.0
		SetParameter	Scale2		3.0	3.0	3.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	Text		2_TO_GO
ITA		SetParameter	Text		ANCORA_2
GER		SetParameter	Text		Noch_2
SPA		SetParameter	Text		FALTAN_2
FRE		SetParameter	Text		ENCORE_2
POL		SetParameter	Text		2_DO_KOŃCA
		SendMessage	CREATETEXT
	Endif

	If A BecomesEqualTo 4
	Then
		SetParameter	Position	300.0	-40.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	Colour1		0.64	0.28	1.0	1.0
		SetParameter	Colour2		0.64	0.28	1.0	1.0
		SetParameter	Colour3		0.64	0.28	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		2.0	2.0	2.0	0.0
		SetParameter	Scale2		3.0	3.0	3.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	Text		1_TO_GO
ITA		SetParameter	Text		ANCORA_1
GER		SetParameter	Text		Noch_1
SPA		SetParameter	Text		FALTAN_1
FRE		SetParameter	Text		ENCORE_1
POL		SetParameter	Text		1_DO_KOŃCA

		SendMessage	CREATETEXT
		
	Endif

	If A BecomesEqualTo 5
	Then
			
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


EndLoop

Loop INFINITE
Do

EndLoop

Loop MAIN5
Do
	
			
EndLoop

GameMode	Tide_Trial
ITA	SFIDA_ALLA_MAREA
GER	KAMPF_MIT_DEN_GEZEITEN
SPA	LUCHA_CONTRA_LA_MAREA
FRE	ÉPREUVE_DE_LA_MARéE
POL	Próbny_zjazd

GameType	VERSUS
CpuCanPlay
	WaterHeightCounter			H
	LIVESREMAINING02COUNTER			L
	LIVESREMAINING13COUNTER			M

Program02
	
TEXTBUFFER LEVS
	
	TIDE1.wbl
	TIDE2.wbl
	TIDE3.wbl
	TIDE4.wbl
	TIDE5.wbl
	TIDE6.wbl
	TIDE7.wbl
	TIDE8.wbl
	TIDE9.wbl
	TIDE10.wbl
	

ENDBUFFER

Loop INIT
Do
	
	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	NUMLINES	10
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter	NUMWEAPONS	100
	SendMessage	RANDOMWEAPONS

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	2000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	40000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	70000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	90000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter    LIVES   0
	SendMessage     SETLIVES
	SetParameter    GD_FLOAT        0       0       0       0
	SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        SendMessage     SET_GD_FLOAT
	SET L To 0
	SET M TO 0
	SET B TO 0
	SET C To 0
	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT
	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing
	GotoLoop	BRIEF

EndLoop


Loop BRIEF
Do

	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	Side		Centre
	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		TIDE_TRIAL
ITA	SetParameter	Text		SFIDA_ALLA_MAREA
GER	SetParameter	Text		KAMPF_MIT_DEN_GEZEITEN
SPA	SetParameter	Text		LUCHA_CONTRA_LA_MAREA
FRE	SetParameter	Text		ÉPREUVE_DE_LA_MARÉE
POL	SetParameter	Text		Próbny_zjazd

	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		Keep_collecting_stars_to
ITA	SetParameter	Text		Raccogli_le_stelle_per_battere
GER	SetParameter	Text		Das_Sammeln_von_Sternen 
SPA	SetParameter	Text		Consigue_todas_las_estrellas_que_puedas
FRE	SetParameter	Text		Récupérez_les_étoiles_pour 
POL	SetParameter	Text		Zbieraj_gwiazdki,_aby_walczyć

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		battle_the_rising_water.
ITA	SetParameter	Text		la_marea_che_si_alza.
GER	SetParameter	Text		bekämpft_das_steigende_Wasser.
SPA	SetParameter	Text		para_evitar_que_suba_el_agua.
FRE	SetParameter	Text		lutter_contre_l'eau_qui_monte.
POL	SetParameter	Text		z_podnoszącą_się_wodą

	SendMessage 	CREATETEXT


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	Text		Appuyez_sur_Tir_pour_commencer
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
		Set Z To 1	
	EndResponse

	If Z BecomesEqualTo 1
	Then
		SendMessage EndBriefing
		SendMessage	FIRINGON
		SendMessage MUSIC_GROOVE_LOW
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT
		SendMessage	CLOSEDIVIDER
		GotoLoop MAIN
		
	Endif

EndLoop

Loop MAIN
Do
	
		IfEnemy M BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	OnMessage TIMER1
	Do
		Add 3 To H
		SetParameter Position	0.0	H	0.0	0.0
		SendMessage ChangeWaterHeight
	EndResponse

	OnMessage TIMER2
	Do
	SendMessage	MUSIC_GROOVE_MED_LOW
	SetParameter	INTERVAL	5000
	SendMessage	SetLandSpeed
	EndResponse

	OnMessage TIMER3
	Do
	SendMessage	MUSIC_GROOVE_MED
	
	EndResponse
	
	OnMessage TIMER4
	Do
	SendMessage	MUSIC_GROOVE_MED_HI
	
	EndResponse

	OnMessage TIMER5
	Do
	SendMessage	MUSIC_GROOVE_HIGH
	
	EndResponse
EndLoop	

Loop INFINITE
Do

EndLoop

Program13


Loop INIT
Do
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	NUMLINES	10
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	2000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter    LIVES   0
	SendMessage     SETLIVES
	
	SET L To 0
	SET M TO 0
	SET B TO 0

	GotoLoop		BRIEF

EndLoop

Loop BRIEF
Do

	OnMessage FIREPRESSED
	Do
		SetEnemy Z To 1	
		GotoLoop MAIN
	EndResponse
	
	IFENEMY Z ISEQUALTO 1
	Then
		GotoLoop MAIN
	EndIf

EndLoop

Loop MAIN
Do

		IfEnemy L BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	IfEnemy Z BecomesEqualTo 1
	Then

	GotoLoop TIMER
	
	Endif

EndLoop

Loop TIMER
Do
	IfEnemy L BecomesEqualTo -1 
	Then
	
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	OnMessage TIMER1
	Do
		Add 3 To H
		SetParameter Position	0.0	H	0.0	0.0
		SendMessage ChangeWaterHeight

	EndResponse

EndLoop

Loop INFINITE
Do

EndLoop

GameMode	One_Line_For_2
ITA	UNA_FILLA
GER	EINE_REIHE
SPA	UNA_LÍNEA
FRE	UNE_LIGNE
POL	Jedna_linia

GameType	VERSUS

	WaterHeightCounter		H
	LandLinesCounter		M
	BulletGoneCounter		T
	CollectStarCounter		S
	DestroyOwnStarCounter		D
	DestroyEnemyStarCounter		D
	LivesRemaining02Counter		W
	LivesRemaining13Counter		L

Program02

TEXTBUFFER	LEVS
	oneli2p.wbl
ENDBUFFER

/ the init loop! /

Loop INIT
Do
	

	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	TEXT	oneli2p.wbw
	SendMessage	LOADWEAPONLIST
	SetParameter	LIVES	0
	SendMessage	SETLIVES

	

	SetParameter	INTERVAL	999999
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	10
	SendMessage	SetStartLines
	
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	100
        SendMessage     LOADLEVEL
		
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER	
	
	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	40000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER6
	SetParameter	INTERVAL	70000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER7
	SetParameter	INTERVAL	90000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER

	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.4	0.4	0.4	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

	SetParameter	Lifetime	0.2	0.6	4.5	1.6
	SetParameter	Justify		Centre

	Set B To 0
	Set T To 0
	Set W To 0
	Set L To 0
	Set X To 15
	Set Z To 0

	SendMessage	MUSIC_GROOVE_HIGH
	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing
	GotoLoop	BRIEF

EndLoop


Loop BRIEF
Do

	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	Side		Centre
	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		ONE_LINE_4_2
ITA	SetParameter	Text		UNA_FILLA
GER	SetParameter	Text		EINE_REIHE
SPA	SetParameter	Text		UNA_LÍNEA
FRE	SetParameter	Text		UNE_LIGNE
POL	SetParameter	Text		Jedna_linia

	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		Crush_your_opponent!
ITA	SetParameter	Text		Schiaccia_il_tuo_avversario.Per_ogni_colpo
GER	SetParameter	Text		Zerschmettere_deinen_Gegner._Mit_jedem
SPA	SetParameter	Text		Aplasta_a_tu_enemigo._Cada_vez_que_dispares
FRE	SetParameter	Text		Écrasez_votre_adversaire. 
POL	SetParameter	Text		Miażdż_swojego_przeciwnika._Za_każdym

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		The_blocks_come_down_every_2_shots_fired.
ITA	SetParameter	Text		sparato,_i_blocchi_scendono_di_una_fila.
GER	SetParameter	Text		Schuss_kommen_die_Steine_weiter_herunter.
SPA	SetParameter	Text		estarás_más_cerca_del_triunfo.
FRE	SetParameter	Text		Les_blocs_descendent_ŕ_chaque_tir.
POL	SetParameter	Text		strzałem,_cegły_opadają_o_jedną_linię.
	SendMessage 	CREATETEXT


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	Text		Appuyez_sur_Tir_pour_commencer
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
		Set Y To 1
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER	
		EndResponse

	If Y BecomesEqualTo 1
	Then
		SendMessage EndBriefing
		SendMessage	FIRINGON
		SendMessage MUSIC_GROOVE_LOW
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER

		GotoLoop MAIN
		
	Endif

EndLoop
		



/ main loop /

Loop MAIN
Do

	
	OnMessage TIMER4
	Do
	SendMessage	MUSIC_GROOVE_MED_LOW
	EndResponse

	OnMessage TIMER5
	Do
	SendMessage	MUSIC_GROOVE_MED
	
	EndResponse
	
	OnMessage TIMER6
	Do
	SendMessage	MUSIC_GROOVE_MED_HI
	
	EndResponse

	OnMessage TIMER7
	Do
	SendMessage	MUSIC_GROOVE_HIGH
	
	EndResponse

	IfEnemy L BecomesEqualto -1 
	Then
		GotoLoop WIN
	Endif

	If T BecomesGreaterThan 1
	Then
		Set T to 0
		GotoLoop TIMER
	EndIf

	OnMessage TIMER1
	Do

	

			If X IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to Z
			EndIf

			If X IsEqualTo 0
			Then
				Subtract 1 from Z
				Set X to 60
			EndIf

			If Z IsLessThan 0
			Then
					GotoLoop ANNOUNCER
			EndIf
	EndResponse


	If S BecomesGreaterThan 0
	Then
		GotoLoop WIN
	EndIf

	If D BecomesGreaterThan 0
	Then
		GotoLoop LOSE
	EndIf
EndLoop

/ advance one line /

Loop TIMER
Do
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0300
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer

	GotoLoop TIMERA
EndLoop

Loop TIMERA
Do
	OnMessage TIMER2
	Do
			GotoLoop ADVANCE
	EndResponse

	OnMessage TIMER1
	Do

	

			If X IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to Z
			EndIf

			If X IsEqualTo 0
			Then
				Subtract 1 from Z
				Set X to 60
			EndIf

			If Z IsLessThan 0
			Then
					GotoLoop ANNOUNCER
			EndIf
	EndResponse
EndLoop

Loop ADVANCE
Do
	OnMessage TIMER1
	Do

	

			If X IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to Z
			EndIf

			
			If X IsEqualTo 0
			Then
				Subtract 1 from Z
				Set X to 60
			EndIf

			If Z IsLessThan 0
			Then
					GotoLoop ANNOUNCER
			EndIf
	EndResponse

	set M to 0
	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed
	GotoLoop ADVANCE2
EndLoop

Loop ADVANCE2
Do
	If M IsEqualTo 1
	then
		Add 1 to L
		Add 2 to X
		SetParameter	INTERVAL	999999
		SendMessage	SetLandSpeed
		GotoLoop MAIN
	endif

	OnMessage TIMER1
	Do

	

			If X IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to Z
			EndIf

			If X IsEqualTo 0
			Then
				Subtract 1 from Z
				Set X to 60
			EndIf

			If Z IsLessThan 0
			Then
					GotoLoop ANNOUNCER
			EndIf
	EndResponse
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 ANNOUNCER
Do

	
	GotoLoop INFINITE
EndLoop

Loop WIN
Do
	Set B To 2

	If B ISGREATERTHANENEMY B
	Then 
	
	GotoLoop MAIN3

	Endif

EndLoop

Loop MAIN3
Do

	
	SendMessage	WINCONDITION
	GotoLoop INFINITE

EndLoop

Loop LOSE
Do
	
	GotoLoop INFINITE
EndLoop

Loop TIMEOUT
Do

	
	GotoLoop INFINITE
EndLoop

Loop INFINITE
Do
EndLoop

Program13

TEXTBUFFER	LEVS
	oneli2p.wbl
ENDBUFFER

/ the init loop! /

Loop INIT
Do
	

	
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE

	SetParameter	TEXT	oneli2p.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	

	SetParameter	INTERVAL	999999
	SendMessage	SetLandSpeed

	SetParameter	NUMLINES	10
	SendMessage	SetStartLines
	
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	100
        SendMessage     LOADLEVEL
		
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER	
	
	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.4	0.4	0.4	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

	SetParameter	Lifetime	0.2	0.6	4.5	1.6
	SetParameter	Justify		Centre

	Set B To 0
	Set T to 0
	Set L to 0
	Set W To 0
	Set X to 15
	Set Z to 0

	GotoLoop BRIEF

EndLoop

/ main loop /

Loop BRIEF
Do

	OnMessage FIREPRESSED
	Do
		SetEnemy Y To 1
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER	
		GotoLoop MAIN
	EndResponse
	
	IFENEMY Y ISEQUALTO 1
	Then 
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER
		GotoLoop MAIN
	EndIf

EndLoop

Loop MAIN
Do

	IfEnemy W BecomesEqualto -1 
	Then
		GotoLoop WIN
	Endif

	If T BecomesGreaterThan 1
	Then
		Set T to 0
		GotoLoop TIMER
	EndIf

	OnMessage TIMER1
	Do

	

			If X IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to Z
			EndIf

			If X IsEqualTo 0
			Then
				Subtract 1 from Z
				Set X to 60
			EndIf

			If Z IsLessThan 0
			Then
					GotoLoop ANNOUNCER
			EndIf
	EndResponse


	If S BecomesGreaterThan 0
	Then
		GotoLoop WIN
	EndIf

	If D BecomesGreaterThan 0
	Then
		GotoLoop LOSE
	EndIf
EndLoop

/ advance one line /

Loop TIMER
Do
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	0300
	SetParameter	REPEAT		FALSE
	SendMessage	CreateTimer

	GotoLoop TIMERA
EndLoop

Loop TIMERA
Do
	OnMessage TIMER2
	Do
			GotoLoop ADVANCE
	EndResponse

	OnMessage TIMER1
	Do

	

			If X IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to Z
			EndIf

			If X IsEqualTo 0
			Then
				Subtract 1 from Z
				Set X to 60
			EndIf

			If Z IsLessThan 0
			Then
					GotoLoop ANNOUNCER
			EndIf
	EndResponse
EndLoop

Loop ADVANCE
Do
	OnMessage TIMER1
	Do

	

			If X IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to Z
			EndIf

			
			If X IsEqualTo 0
			Then
				Subtract 1 from Z
				Set X to 60
			EndIf

			If Z IsLessThan 0
			Then
					GotoLoop ANNOUNCER
			EndIf
	EndResponse

	set M to 0
	SetParameter	INTERVAL	0001
	SendMessage	SetLandSpeed
	GotoLoop ADVANCE2
EndLoop

Loop ADVANCE2
Do
	If M IsEqualTo 1
	then
		Add 1 to L
		Add 2 to X
		SetParameter	INTERVAL	999999
		SendMessage	SetLandSpeed
		GotoLoop MAIN
	endif

	OnMessage TIMER1
	Do

	

			If X IsGreaterThan 60
			Then
				Subtract 60 from X
				Add 1 to Z
			EndIf

			If X IsEqualTo 0
			Then
				Subtract 1 from Z
				Set X to 60
			EndIf

			If Z IsLessThan 0
			Then
					GotoLoop ANNOUNCER
			EndIf
	EndResponse
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 ANNOUNCER
Do

	GotoLoop INFINITE
EndLoop

Loop WIN
Do
	Set B To 1

	If B ISGREATERTHANENEMY B
	Then 
	
	GotoLoop MAIN3

	Endif

EndLoop

Loop MAIN3
Do

	
	SendMessage	WINCONDITION
	GotoLoop INFINITE

EndLoop


Loop LOSE
Do
	
	
	GotoLoop INFINITE
EndLoop

Loop TIMEOUT
Do
	
	GotoLoop INFINITE
EndLoop

Loop INFINITE
Do
EndLoop

GameMode	Don't_Drop_Em
ITA	NON_FARLI_CADERE
GER	LASS_SIE_NICHT_FALLEN!
SPA	NO_LOS_DEJES_CAER
FRE	NE_LES_LAISSEZ_PAS_TOMBER
POL	Nie_upuść_ich

GameType	VERSUS
	

TotalBlocksOnScreenCounter	T
COLLECTSTARCOUNTER		S
LANDDROPPEDINWATERCOUNTER	W
LIVESREMAINING02COUNTER		L
LIVESREMAINING13COUNTER		M

Program02

TEXTBUFFER	LEVS

	DROP1.wbl

ENDBUFFER

Loop INIT
Do
	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	SetParameter	SCALE1	0.0	0.97	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT
	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT
	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20        	
        SendMessage     LOADLEVEL
	SetParameter	NUMWEAPONS	100
	SendMessage	RANDOMWEAPONS

	SetParameter	LIVES	0
	SendMessage	SETLIVES
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	40000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	70000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	90000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER

	SET W To 0
	SET L TO 0
	SET M TO 0
	SET S To 0
	SET B To 0
	SET T To 118

	SendMessage	MUSIC_GROOVE_LOW
	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing
	GotoLoop	BRIEF

EndLoop


Loop BRIEF
Do

	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	Side		Centre
	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		DON'T_DROP_EM
ITA	SetParameter	Text		NON_FARLI_CADERE
GER	SetParameter	Text		LASS_SIE_NICHT_FALLEN!
SPA	SetParameter	Text		NO_LOS_DEJES_CAER
FRE	SetParameter	Text		NE_LES_LAISSEZ_PAS_TOMBER
POL	SetParameter	Text		Nie_upuść_ich

	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		Don't_drop_more_than
ITA	SetParameter	Text		Non_far_cadere_piů_di
GER	SetParameter	Text		Aufpassen,_dass_nicht_mehr 
SPA	SetParameter	Text		No_permitas_que_caiga 
FRE	SetParameter	Text		Ne_laissez_pas_tomber_plus
POL	SetParameter	Text		Nie_możesz_upuścić_więcej

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		1_block_into_your_water
ITA	SetParameter	Text		1_blocco_in_acqua.
GER	SetParameter	Text		als_1_Stein_ins_Wasser_fällt.
SPA	SetParameter	Text		más_de_un_bloque_al_agua.
FRE	SetParameter	Text		d'un_bloc_dans_l'eau.
POL	SetParameter	Text		niż_1_cegłę_do_wody.

	SendMessage 	CREATETEXT


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	Text		Appuyez_sur_Tir_pour_commencer
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
		Set Z To 1
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER	
		EndResponse

	If Z BecomesEqualTo 1
	Then
		SendMessage EndBriefing
		SendMessage	FIRINGON
		SendMessage MUSIC_GROOVE_LOW
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
       	 	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER
		GotoLoop MAIN

	Endif

EndLoop
	

Loop MAIN
Do

	OnMessage TIMER2
	Do
	SendMessage	MUSIC_GROOVE_MED_LOW
	EndResponse

	OnMessage TIMER3
	Do
	SendMessage	MUSIC_GROOVE_MED
	
	EndResponse
	
	OnMessage TIMER4
	Do
	SendMessage	MUSIC_GROOVE_MED_HI
	
	EndResponse

	OnMessage TIMER5
	Do
	SendMessage	MUSIC_GROOVE_HIGH
	
	EndResponse

		IfEnemy M BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

	
	IfEnemy W BecomesGreaterThan 1
	Then
	
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	If S BecomesEqualTo 1
	Then
	
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	If T BecomesEqualTo 2
	Then
	
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


EndLoop


Loop INFINITE
Do

EndLoop

Program13

TEXTBUFFER	LEVS

	DROP1.wbl

ENDBUFFER

Loop INIT
Do
	SetParameter	Position	0	-200	0	0
	SendMessage	CHANGEWATERHEIGHT
	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT
	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter    BUFFERNAME	LEVS
        SetParameter    NUMLINES	20        	
        SendMessage     LOADLEVEL
	SetParameter	LIVES	0
	SendMessage	SETLIVES
	


	SET W To 0
	SET L TO 0
	SET M TO 0
	SET S To 0
	SET B To 0
	SET T To 118

	GotoLoop BRIEF

EndLoop
	
Loop BRIEF
Do

	OnMessage FIREPRESSED
	Do
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER
		SetEnemy Z To 1	
		GotoLoop MAIN
	EndResponse
	
	IFENEMY Z ISEQUALTO 1
	Then 
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER
		GotoLoop MAIN
	EndIf

EndLoop


Loop MAIN
Do


		IfEnemy L BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

	
	IfEnemy W BecomesGreaterThan 1
	Then
	
		
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

	If S BecomesEqualTo 1
	Then
	
		
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	If T BecomesEqualTo 2
	Then
	
		
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


EndLoop

Loop INFINITE
Do

EndLoop

GameMode	Star_Race
ITA	CORSA_STELLARE
GER	STERNENRENNEN
SPA	LA_CARRERA_DE_LA_ESTRELLA
FRE	Course_ŕ_l'étoile
POL	Rozpoczęcie_wyścigu

GameType	VERSUS
COLLECTSTARCOUNTER		S
DESTROYOWNTARGETCOUNTER 	J
LIVESREMAINING02COUNTER		L
LIVESREMAINING13COUNTER		M

Program02

TEXTBUFFER	LEVS

	2prace.wbl

ENDBUFFER

Loop INIT
Do
	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	NUMLINES	17
	SendMessage	SetStartLines
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                100             
        SendMessage     LOADLEVEL
	SetParameter	INTERVAL	1200
	SendMessage	SetLandSpeed
	SetParameter    LIVES   0
	SendMessage     SETLIVES
	SetParameter	NUMWEAPONS	100
	SendMessage	RANDOMWEAPONS
	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT
	
	
	SET S TO 0
	SET J TO 0
	SET L TO 0
	SET M TO 0
	SET B To 0

	SendMessage	MUSIC_GROOVE_HIGH
	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing
	GotoLoop	BRIEF

EndLoop


Loop BRIEF
Do

	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	Side		Centre
	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		STAR_RACE
ITA	SetParameter	Text		CORSA_STELLARE
GER	SetParameter	Text		STERNENRENNEN
SPA	SetParameter	Text		LA_CARRERA_DE_LA_ESTRELLA
FRE	SetParameter	Text		COURSE_A_LETOILE
POL	SetParameter	Text		Rozpoczęcie_wyścigu

	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		1st_Person_to_collect_the_star_wins
ITA	SetParameter	Text		Il_primo_giocatore_che_raccoglie_la_stella
GER	SetParameter	Text		Der_Spieler,_der_den_Stern_einsammelt
SPA	SetParameter	Text		GANA_EL_JUGADOR_QUE_CONSIGA_LA_ESTRELLA. 
FRE	SetParameter	Text		Le_1er_joueur_qui_récupčre_l'étoile
POL	SetParameter	Text		Pierwszy,_który_zdobędzie

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Don't_forget_the_targets!
ITA	SetParameter	Text		vince._Non_dimenticare_i_bersagli.
GER	SetParameter	Text		gewinnt._Vergiss_die_Zielscheiben_nicht!
SPA	SetParameter	Text		No_olvides_destruir_las_dianas.
FRE	SetParameter	Text		gagne._N'oubliez_pas_les_cibles.
POL	SetParameter	Text		gwiazdkę_wygrywa.

	SendMessage 	CREATETEXT


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	Text		Appuyez_sur_Tir_pour_commencer
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
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER
		Set Z To 1	
	EndResponse

	If Z BecomesEqualTo 1
	Then
		SendMessage EndBriefing
		SendMessage	FIRINGON
		SendMessage MUSIC_GROOVE_LOW
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER
		GotoLoop MAIN
		
	Endif

EndLoop


Loop MAIN
Do


		IfEnemy M BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	If S BecomesEqualTo 1
	Then

		
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

	
	If J BecomesEqualTo 1
	Then

	SetParameter	SIDE	RIGHT
	SetParameter	BlockColour	TARGET
	SendMessage	CLEARBLOCKS
	SetParameter	SIDE	LEFT
	SetParameter	BlockColour	TARGET
	SendMessage	CLEARBLOCKS
	SendMessage	PAUSELANDRIGHT
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	3000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SendMessage	MUSIC_GROOVE_HIGH
	SET J TO 0

	Endif

	OnMessage TIMER1
	Do
	SendMessage	UNPAUSELANDRIGHT

	EndResponse

EndLoop


Loop INFINITE
Do
	
EndLoop

Program13

TEXTBUFFER	LEVS

	2prace.wbl

ENDBUFFER

Loop INIT
Do
	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	NUMLINES	17
	SendMessage	SetStartLines
	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                100             
        SendMessage     LOADLEVEL
	SetParameter	INTERVAL	1200
	SendMessage	SetLandSpeed
	SetParameter    LIVES   0
	SendMessage     SETLIVES
	

	SET S TO 0
	SET J TO 0
	SET L TO 0
	SET M TO 0
	SET B TO 0
	GotoLoop		BRIEF

EndLoop

Loop BRIEF
Do

	OnMessage FIREPRESSED
	Do
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER
		SetEnemy Z To 1	
		GotoLoop MAIN
	EndResponse
	
	IFENEMY Z ISEQUALTO 1
	Then
		SetParameter    GD_FLOAT        0       0       0       0
		SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        	SendMessage     SET_GD_FLOAT
		SendMessage	CLOSEDIVIDER
		GotoLoop MAIN
	EndIf

EndLoop

Loop MAIN
Do


		IfEnemy L BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	If S BecomesEqualTo 1
	Then

		
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


	If J BecomesEqualTo 1
	Then

	SetParameter	SIDE	LEFT
	SetParameter	BlockColour	TARGET
	SendMessage	CLEARBLOCKS
	SetParameter	SIDE	RIGHT
	SetParameter	BlockColour	TARGET
	SendMessage	CLEARBLOCKS
	SetParameter	BlockColour	TARGET
	SendMessage	CLEARBLOCKS
	SendMessage	PAUSELANDLEFT
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	3000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SET J TO 0

	Endif

	OnMessage TIMER2
	Do
	SendMessage	UNPAUSELANDLEFT

	EndResponse
EndLoop

Loop INFINITE
Do

EndLoop

GameMode	Survival
ITA	SOPRAVVIVENZA
GER	ÜBERLEBEN
SPA	SUPERVIVENCIA
FRE	SURVIE
POL	Przeżycie

GameType	VERSUS

	RedComboCounter			C
	YellowComboCounter		D
	GreenComboCounter		E
	OrangeComboCounter		F
	PurpleComboCounter		G
	LANDSCROLLEDINTOWATERCOUNTER	S
	LIVESREMAINING02COUNTER		L
	LIVESREMAINING13COUNTER		M
	

Program02

TEXTBUFFER LEVS
	
	SURVIVE1.wbl
	SURVIVE2.wbl
	SURVIVE3.wbl
	SURVIVE4.wbl
	SURVIVE5.wbl
	SURVIVE6.wbl
	SURVIVE7.wbl
	SURVIVE8.wbl
	SURVIVE9.wbl
	SURVIVE10.wbl

ENDBUFFER

Loop INIT
Do

	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	NUMLINES	10
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	20000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	40000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	70000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	90000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter    LIVES   0
	SendMessage     SETLIVES
	SetParameter	NUMWEAPONS	100
	SendMessage	RANDOMWEAPONS
	
	SetParameter    GD_FLOAT        0       0       0       0
	SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        SendMessage     SET_GD_FLOAT
	SET S TO 0
	SET L TO 0
	SET M TO 0
	SET B To 0
	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT
	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing
	GotoLoop	BRIEF

EndLoop


Loop BRIEF
Do

	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	Side		Centre
	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		SURVIVAL
ITA	SetParameter	Text		SOPRAVVIVENZA
GER	SetParameter	Text		ÜBERLEBEN
SPA	SetParameter	Text		SUPERVIVENCIA
FRE	SetParameter	Text		SURVIE
POL	SetParameter	Text		Przeżycie

	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		Don't_let_the_blocks
ITA	SetParameter	Text		Non_far_cadere_i
GER	SetParameter	Text		Aufpassen,_dass_die_Steine
SPA	SetParameter	Text		No_dejes_que_los_bloques
FRE	SetParameter	Text		Ne_laissez_pas_les 
POL	SetParameter	Text		Nie_pozwól_by_cegły

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		scroll_into_the_water.
ITA	SetParameter	Text		blocchi_in_acqua.
GER	SetParameter	Text		nicht_ins_Wasser_fallen!
SPA	SetParameter	Text		TOQUEN_EL_AGUA.
FRE	SetParameter	Text		blocs_défiler_dans_l'eau.
POL	SetParameter	Text		spadły_do_wody.
	SendMessage 	CREATETEXT


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	Text		Appuyez_sur_Tir_pour_commencer
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
		Set Z To 1	
	EndResponse

	If Z BecomesEqualTo 1
	Then
		SendMessage EndBriefing
		SendMessage	FIRINGON
		SendMessage MUSIC_GROOVE_LOW
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT
		SetParameter GD_FLOAT 0.01 0 0 0
		SetParameter GAMEDATA DIVIDEROPENCHANCE
		SendMessage SET_GD_FLOAT
		GotoLoop MAIN
		
	Endif
	
EndLoop

Loop MAIN
Do

OnMessage TIMER1
	Do
	SendMessage	MUSIC_GROOVE_MED_LOW
	SetParameter	INTERVAL	5000
	SendMessage	SetLandSpeed
	EndResponse

	OnMessage TIMER2
	Do
	SendMessage	MUSIC_GROOVE_MED_LOW
	EndResponse

	OnMessage TIMER3
	Do
	SendMessage	MUSIC_GROOVE_MED
	
	EndResponse
	
	OnMessage TIMER4
	Do
	SendMessage	MUSIC_GROOVE_MED_HI
	
	EndResponse

	OnMessage TIMER5
	Do
	SendMessage	MUSIC_GROOVE_HIGH
	
	EndResponse

IF S BECOMESLESSTHANENEMY S 
	
	Then
		SET S TO -5
			
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

	

	IfEnemy M BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

EndLoop


Loop INFINITE
Do

EndLoop

Program13

	
Loop INIT
Do
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	NUMLINES	10
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	10000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter    LIVES   0
	SendMessage     SETLIVES
	
	SET S To 0
	SET L TO 0
	SET M TO 0
	SET B TO 0
	
	


	GotoLoop BRIEF
EndLoop

Loop BRIEF
Do

	OnMessage FIREPRESSED
	Do
		SetEnemy Z To 1	
		GotoLoop MAIN
	EndResponse
	
	IFENEMY Z ISEQUALTO 1
	Then
		GotoLoop MAIN
	EndIf

EndLoop

Loop MAIN
Do

OnMessage TIMER1
	Do
	SetParameter	INTERVAL	5000
	SendMessage	SetLandSpeed
	EndResponse

IF S BECOMESLESSTHANENEMY S 
	
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

		
	

	IfEnemy L BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif

EndLoop

Loop INFINITE
Do

EndLoop

GameMode	Fight
ITA	COMBATTIMENTO
GER	KAMPF
SPA	LUCHA
FRE	BATAILLE
POL	Walka

GameType	VERSUS
		LIVESREMAINING02COUNTER		L
		LIVESREMAINING13COUNTER		M

Program02

TEXTBUFFER LEVS
	
	FIGHT1.wbl

ENDBUFFER

Loop INIT
Do

	Randomise A From 0 To 11

	If A IsEqualTo 3
	Then

		Randomise A From 4 To 12

	EndIf

	SetParameter	BACKDROP	A
	SendMessage	SETBACKDROP
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	INTERVAL	8000
	SendMessage	SetLandSpeed
	SetParameter	NUMLINES	12
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter    LIVES   2
	SendMessage     SETLIVES
	SetParameter	NUMWEAPONS	100
	SendMessage	RANDOMWEAPONS

	SetParameter    GD_FLOAT        0       0       0       0
	SetParameter    GAMEDATA        DIVIDEROPENCHANCE
        SendMessage     SET_GD_FLOAT
	SetParameter	MESSAGE_ID	TIMER2
	SetParameter	INTERVAL	20000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER3
	SetParameter	INTERVAL	40000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER4
	SetParameter	INTERVAL	70000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	90000
	SetParameter	REPEAT		FALSE
	SendMessage	CREATETIMER
	SET L TO 0
	SET M TO 0
	SET B TO 0
	SendMessage	PAUSELANDRIGHT
	SendMessage	PAUSELANDLEFT
	SendMessage	FIRINGOFF
	SendMessage 	StartBriefing
	GotoLoop	BRIEF

EndLoop


Loop BRIEF
Do

	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	Side		Centre
	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		FIGHT
ITA	SetParameter	Text		COMBATTIMENTO
GER	SetParameter	Text		KAMPF
SPA	SetParameter	Text		LUCHA
FRE	SetParameter	Text		BATAILLE
POL	SetParameter	Text		Walka

	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		Fight_to_the_death.
ITA	SetParameter	Text		Combatti_fino_alla_morte.
GER	SetParameter	Text		Kampf_bis_zum_Tode. 
SPA	SetParameter	Text		Lucha_a_vida_o_muerte_y_ten_cuidado
FRE	SetParameter	Text		Combattez_jusqu'ŕ_la_mort.
POL	SetParameter	Text		Walcz_do_upadłego.

	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Beware_the_bouncy_blocks.
ITA	SetParameter	Text		Attento_ai_blocchi_rimbalzanti.
GER	SetParameter	Text		Achte_auf_die_Flummisteine.
SPA	SetParameter	Text		con_los_bloques_que_rebotan.
FRE	SetParameter	Text		Attention_aux_blocs_qui_rebondissent.
POL	SetParameter	Text		Uważaj_na_odbijające_się_cegły.

	SendMessage 	CREATETEXT


	SetParameter	Colour1		1.0	0.22	0.07	1.0
	SetParameter	Colour2		1.0	0.22	0.07	1.0
	SetParameter	Colour3		1.0	0.22	0.07	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.0	1.0	1.0	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	Text		Press_fire_to_start
FRE	SetParameter	Text		Appuyez_sur_Tir_pour_commencer
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
		Set Z To 1	
	EndResponse

	If Z BecomesEqualTo 1
	Then
		SendMessage EndBriefing
		SendMessage	FIRINGON
		SendMessage MUSIC_GROOVE_LOW
		SendMessage UNPAUSELANDLEFT
		SendMessage UNPAUSELANDRIGHT
		SetParameter GD_FLOAT 0.01 0 0 0
		SetParameter GAMEDATA DIVIDEROPENCHANCE
		SendMessage SET_GD_FLOAT
		GotoLoop MAIN
		
	Endif
	

EndLoop

Loop MAIN
Do
	OnMessage TIMER2
	Do
	SendMessage	MUSIC_GROOVE_MED_LOW
	EndResponse

	OnMessage TIMER3
	Do
	SendMessage	MUSIC_GROOVE_MED
	
	EndResponse
	
	OnMessage TIMER4
	Do
	SendMessage	MUSIC_GROOVE_MED_HI
	
	EndResponse

	OnMessage TIMER5
	Do
	SendMessage	MUSIC_GROOVE_HIGH
	
	EndResponse

		IfEnemy M BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


EndLoop

Loop INFINITE
Do

EndLoop

Program13

Loop INIT
Do

	SetParameter	INTERVAL	8000
	SendMessage	SetLandSpeed
	SetParameter	SCALE1	0.0	0.95	0.0	0.0
	SendMessage	SETBLOCKYSCALE
	SetParameter	NUMLINES	12
	SendMessage	SetStartLines
	SetParameter	BUFFERNAME LEVS
	SetParameter	NUMLINES	100
	SendMessage	LOADLEVEL
	SetParameter    LIVES   2
	SendMessage     SETLIVES
	
	SET L TO 0
	SET M TO 0
	SET B TO 0

	GotoLoop BRIEF
EndLoop

Loop BRIEF
Do

	OnMessage FIREPRESSED
	Do
		SetEnemy Z To 1	
		GotoLoop MAIN
	EndResponse
	
	IFENEMY Z ISEQUALTO 1
	Then 
		GotoLoop MAIN
	EndIf

EndLoop

Loop MAIN
Do
	
		IfEnemy L BecomesEqualto -1 
	Then
	
		SET B TO 1
		If B ISGREATERTHANENEMY B
		Then 
	
		SendMessage	WINCONDITION

		Endif

		GotoLoop INFINITE
	
	Endif


EndLoop

Loop INFINITE
Do

EndLoop





EndFile