GameMode	Team17m


	DestroyEnemyStarCounter		S
	DestroyOwnStarCounter		S
	LIVESREMAINING02COUNTER		M
	COllectStarCounter		N
	WaterHeightCounter		H


Program0123

/ destroy the satrs to reduce water 
author pd/


TEXTBUFFER      LEVS                    


        Team17m.wbl


ENDBUFFER


DataBuffer	STAR

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

EndBuffer



Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	TEXT	Team17m.wbw
	SendMessage	LOADWEAPONLIST

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

	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SendMessage PAUSELANDLEFT
	SendMessage PAUSELANDRIGHT

	SetParameter	POSITION	0	0	0	0
	SetParameter	PLAYERNUM 0
	SendMessage	SETBOATPOSITION
	
	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	1100
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER
	
	SetParameter POSITION	0.0	-175.0	0.0	0.0
	SendMessage CHANGEWATERHEIGHT

	SendMessage	DISABLE_STAR_JINGLE

	SendMessage 	MUSIC_GROOVE_LOW

	Set A To 0
	Set B To 0
	Set C To 0

	Set H To -175
	Set N To 0
	Set P To 0

	Set S To 0
	Set T To 0
	Set U To 0
	Set V To 0
	Set W To 0
	Set R To 0

	Set X To 0
	Set Y To 0
	Set Z To 0

	SendMessage FIRINGOFF
	SendMessage STARTBRIEFING

	Randomise A From 1 To 5
	RandomIse B From 1 To 10
	Randomise C From 5 To 15

	ResetBuffer STAR

	GotoLoop	MAIN

EndLoop


Loop MAIN
Do

	/SendMessage DONTCOLLECTSTARS/
	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0


	SetParameter	Colour1		1.0	0.86	0.03	1.0
	SetParameter	Colour2		1.0	0.86	0.03	1.0
	SetParameter	Colour3		1.0	0.86	0.03	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		1.3	1.3	1.3	0.0
	SetParameter	Scale2		1.3	1.3	1.3	0.0
	SetParameter	Scale3		1.3	1.3	1.3	0.0
	SetParameter	Scale4		1.3	1.3	1.3	0.0
	SetParameter	Scale5		1.3	1.3	1.3	0.0

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	TEXT		The_stars_of_Team_17
FRE	SetParameter	TEXT		Les_étoiles_de_Team_17
ITA	SetParameter	TEXT		Le_stelle_del_Team_17
SPA	SetParameter	TEXT		Las_Estrellas_de_Team_17
GER	SetParameter	TEXT		Die_Stars_von_Team_17
POL	SetParameter	TEXT		Gwiazdy_TEAM_17



	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		Destroy_30_stars!
FRE	SetParameter	TEXT		Détruisez_30_étoiles!		
ITA	SetParameter	TEXT		Distruggi_30_stelle!
SPA	SetParameter	TEXT		¡Destruye_30_estrellas!
GER	SetParameter	TEXT		Zerstöre_30_Sterne!
POL	SetParameter	TEXT		Zniszcz_30_gwiazd


	SendMessage 	CREATETEXT




	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	TEXT		Try_not_to_let_many_slip_by
FRE	SetParameter	TEXT		Essayez_de_ne_pas_en_laisser_échapper_trop
ITA 	SetParameter	TEXT		Cerca_di_non_farne_scappare
SPA	SetParameter	TEXT		Intenta_que_no_se_escapen_muchas
GER	SetParameter	TEXT		Lass_dir_nicht_zu_viele_entgehen
POL	SetParameter	TEXT		Nie_pozwól_¿adnej_siê_przem-


	SendMessage 	CREATETEXT




	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	TEXT		and_resist_the_temptation_to
FRE	SetParameter	TEXT		et_résistez_à_la_tentation
ITA 	SetParameter	TEXT		troppe_e_resisti_alla_tentazione
SPA	SetParameter	TEXT		y_no_caigas_en_la_tentación
GER	SetParameter	TEXT		und_widerstehe_der_Versuchung_
POL	SetParameter	TEXT		kn¹æ_i_oprzyj_siê_pokusie


	SendMessage 	CREATETEXT



	
	SetParameter	Position	0.0	10.0	0.0	0.0
	SetParameter	TEXT		collect_them.
FRE	SetParameter	TEXT		de_les_récupérer.
ITA 	SetParameter	TEXT		di_raccoglierle.
SPA	SetParameter	TEXT		de_recogerlas.
GER	SetParameter	TEXT		sie_einzusammeln.
POL	SetParameter	TEXT		zbierani_ich.


	SendMessage 	CREATETEXT




	SetParameter	Position	0.0	-25.0	0.0	0.0
	SetParameter	TEXT		To_do_so_will_prove_fatal!
FRE	SetParameter	TEXT		Cela_risquerait_de_vous_être_fatal!
ITA	SetParameter	TEXT		Ti_sarebbe_fatale!
SPA	SetParameter	TEXT		¡Si_lo_haces_estás_acabado!
GER	SetParameter	TEXT		Das_wäre_fatal!
POL	SetParameter	TEXT		Ten_czyn_to_du¿y_b³¹d.



	SendMessage 	CREATETEXT



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

	SetParameter	Position	0.0	-125.0	0.0	0.0
	SetParameter	TEXT		Press_fire_to_start
FRE	SetParameter	TEXT		Appuyez_sur_Tir_pour_commencer!
ITA 	SetParameter	TEXT		Premi_fuoco_per_cominciare
GER	SetParameter	TEXT		Zum_Starten_Feuer_drücken
POL	SetParameter	TEXT		Naciœnij_"Strza³"


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

	SPA SetParameter	Text	Pulsa_el_disparo_para_empezar
	SendMessage 	CREATETEXT

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




	OnMessage FIREPRESSED
	Do

SendMessage	MUSIC_GROOVE_MED_LOW
		SendMessage ENDBRIEFING
		SendMessage FIRINGON
		GotoLoop MAIN1

	EndResponse

EndLoop



Loop MAIN1
Do


	GoSubLoop LIVES

	OnMessage Timer1
	Do

		Add 1 To T
		Add 1 To U
		Add 1 To V
		Add 1 To W

	EndResponse	


	If T BecomesEqualTo A
	Then
			
		Set Z To 0
		
		While Z IsLessThan 3
		Do
			ReadFromBuffer STAR Into X
			ReadFromBuffer STAR Into Y

			Add 1 To Z

		EndWhile
		
		SetParameter	POSITION	X	Y	0.0	0.0
		SetParameter	BLOCKCOLOUR	STAR
		SendMessage	SPAWNINBLOCK

		Set T To 0
		
		Randomise A From 1 To 5

	EndIf

	If U BecomesEqualTo B
	Then
		Set Z To 0
		
		While Z IsLessThan 5
		Do
			ReadFromBuffer STAR Into X
			ReadFromBuffer STAR Into Y

			Add 1 To Z

		EndWhile

		SetParameter	POSITION	X	Y	0.0	0.0
		SetParameter	BLOCKCOLOUR	STAR
		SendMessage	SPAWNINBLOCK

		Set U To 0
		
		Randomise B From 1 To 10

	EndIf

	If V BecomesEqualTo C
	Then
		Set Z To 0
		
		While Z IsLessThan 2
		Do
			ReadFromBuffer STAR Into X
			ReadFromBuffer STAR Into Y

			Add 1 To Z

		EndWhile

		SetParameter	POSITION	X	Y	0.0	0.0
		SetParameter	BLOCKCOLOUR	STAR
		SendMessage	SPAWNINBLOCK

		Set V To 0
		
		Randomise C From 5 To 15

	EndIf

	If W BecomesEqualTo 45
	Then

		SetParameter	Colour1		0.0	0.43	0.74	1.0
		SetParameter	Colour2		0.0	0.43	0.74	1.0
		SetParameter	Colour3		0.0	0.43	0.74	1.0
		SetParameter	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	Position	0.0	150.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	TEXT		Faster!
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




		SetParameter	MESSAGE_ID	TIMER1
		SendMessage	DELETETIMER

		SendMessage 	MUSIC_GROOVE_MED

		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	500
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
	
	EndIf


	If W BecomesEqualTo 90
	Then

		SetParameter	Colour1		0.0	0.43	0.74	1.0
		SetParameter	Colour2		0.0	0.43	0.74	1.0
		SetParameter	Colour3		0.0	0.43	0.74	1.0
		SetParameter	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	Position	0.0	150.0	0.0	0.0
		SetParameter	Lifetime	0.2	0.6	0.7	1.5
		SetParameter	TEXT		Faster!
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



		SetParameter	MESSAGE_ID	TIMER1
		SendMessage	DELETETIMER

		SendMessage 	MUSIC_GROOVE_HIGH

		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	250
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
	
	EndIf
	
	

	If S IsGreaterThan R
	Then

		Randomise Q From 1 To 2

		
		If Q IsEqualTo 1
		Then
			SetParameter	Colour1		1.0	0.86	0.03	1.0
			SetParameter	Colour2		1.0	0.86	0.03	1.0
			SetParameter	Colour3		1.0	0.86	0.03	1.0
			SetParameter	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	75.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.5
			SetParameter	TEXT		WOW!_You_got_one
FRE			SetParameter	TEXT		Wouah!_Bien_visé!
ITA 			SetParameter	TEXT		WOW!_Ne_hai_presa_una!
SPA			SetParameter	TEXT		¡Bien!_Has_conseguido_una.
GER			SetParameter	TEXT		WOW!_Treffer
POL			SetParameter	TEXT		O_Trafi³eœ


			SendMessage 	CREATETEXT


		EndIf


		If Q IsEqualTo 2
		Then
			SetParameter	Colour1		1.0	0.86	0.03	1.0
			SetParameter	Colour2		1.0	0.86	0.03	1.0
			SetParameter	Colour3		1.0	0.86	0.03	1.0
			SetParameter	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	75.0	0.0	0.0
			SetParameter	Lifetime	0.2	0.6	0.7	1.5
			SetParameter	TEXT		Good_shot!
FRE			SetParameter	TEXT		Beau_tir!
ITA			SetParameter	TEXT		Bel_colpo!
SPA			SetParameter	TEXT		¡Buen_disparo!
GER			SetParameter	TEXT		Guter_Schuss!
POL			SetParameter	TEXT		Dobry_strza³


			SendMessage 	CREATETEXT



		EndIf

		Subtract 5 From H

		SetParameter	POSITION	0.0	H	0.0	0.0
		SendMessage CHANGEWATERHEIGHT
		
		Set R To S

	EndIf


	If N BecomesEqualTo 1
	Then

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


		SendMessage	CREATETEXT



		SendMessage	MUSIC_GROOVE_LOW
		SendMessage FIRINGOFF
		GotoLoop FAIL

	EndIf

	


	SetParameter	Colour1		1.0	1.0	1.0	1.0
	SetParameter	Colour2		1.0	1.0	1.0	1.0
	SetParameter	Colour3		1.0	1.0	1.0	1.0
	SetParameter	Colour4		0.0	0.0	0.0	1.0
	SetParameter	Colour5		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0
	SetParameter	Scale1		0.4	0.4	0.4	0.0
	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	225.0	222.0	0.0	0.0
	SetParameter	FRAME		0
	SendMessage	CREATEICON


	SetParameter	Scale1		0.4	0.4	0.4	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	Position	270.0	222.0	0.0	0.0
	ConvertToTEXT   S
	SendMessage	CREATETEXT

	SetParameter	Scale2		1.0	1.0	1.0	0.0
	SetParameter	Scale3		1.0	1.0	1.0	0.0
	SetParameter	Scale4		1.0	1.0	1.0	0.0
	SetParameter	Scale5		1.0	1.0	1.0	0.0

	If S BecomesEqualTo 30
	Then


		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!
FRE		SetParameter	TEXT	RÉUSSI!
ITA		SetParameter	TEXT	HAI_VINTO!
SPA		SetParameter	TEXT 	¡LO_CONSEGUISTE!
GER		SetParameter	TEXT	GESCHAFFT!
POL		SetParameter	TEXT	Sukces


		SendMessage	CREATETEXT



		SendMessage	MUSIC_GROOVE_LOW
		SendMessage FIRINGOFF
		GotoLoop WIN

	EndIf

	OnMessage TIMER1
	Do

		Add 2 To H

		SetParameter	POSITION	0.0	H	0.0	0.0
		SendMessage 	CHANGEWATERHEIGHT

	EndResponse


EndLoop


Loop LIVES
Do

	If M BecomesEqualTo -1
	Then

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

		SendMessage	CREATETEXT



		SendMessage FIRINGOFF

		SendMessage	MUSIC_GROOVE_LOW
		GotoLoop FAIL

	EndIf
	
EndLoop

	
Loop FAIL
Do
	Set N To 0
	Set P To 0

	Set S To 0
	Set T To 0
	Set U To 0
	Set V To 0
	Set W To 0
	Set R To 0

	Set X To 0
	Set Y To 0
	Set Z To 0

	SendMessage LOSECONDITION

	GotoLoop NULL
EndLoop

Loop WIN
Do
	SetParameter	TEXT	time
	SendMessage	SETNEXTGAMEMODE
	SendMessage	LOSECONDITION
	GotoLoop NULL

EndLoop


Loop NULL
Do
EndLoop




EndFile