GameMode	Team17g


	DestroyEnemyTargetCounter		S
	DestroyOwnTargetCounter		S
	LIVESREMAINING02COUNTER		M
	COllectStarCounter		N
	WaterHeightCounter		H


Program0123

/ destroy the satrs to reduce water 
author pd/


TEXTBUFFER      LEVS                    


        Team17.wbl


ENDBUFFER


DataBuffer	TARG

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	Team17.wbw
	SendMessage	LOADWEAPONLIST

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines
	SetParameter	BACKDROP	BACKDROP2
	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	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter POSITION	0.0	-175.0	0.0	0.0
	SendMessage CHANGEWATERHEIGHT

	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 TARG

	GotoLoop	MAIN

EndLoop


Loop MAIN
Do

	SetParameter	Velocity	0.0	0.0	0.0	0.0
	SetParameter	Gravity		0.0	0.0	0.0	0.0


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

	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Justify		Centre

	SetParameter	Position	0.0	180.0	0.0	0.0
	SetParameter	TEXT		Target_Attack
FRE	SetParameter	Text		Attaque_Cible
ITA 	SetParameter	TEXT		Distruggi_i_bersagli!
SPA 	SetParameter	TEXT		Ataque_a_Objetivos
GER 	SetParameter	TEXT		Zielangriff
POL	SetParameter	TEXT		Atakuj_cele


	


	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_25_targets
FRE	SetParameter	Text		Dtruisez_25_cibles.	
ITA 	SetParameter	TEXT		Distruggi_25_bersagli
SPA 	SetParameter	TEXT		Destruye_25_dianas.
GER 	SetParameter	TEXT		25_Ziele_zerstren
POL	SetParameter	TEXT		Zniszcz_25_celw


	SendMessage 	CREATETEXT
	


	SetParameter	Position	0.0	80.0	0.0	0.0
	
	SetParameter    Colour1         1.0     0.22    0.07    1.0
        SetParameter    Colour2         1.0     0.22    0.07    1.0
        SetParameter    Colour3         1.0     0.22    0.07    1.0
        SetParameter    Colour4         0.0     0.0     0.0     1.0
        SetParameter    Colour5         0.0     0.0     0.0     1.0
        SetParameter    Colour6         0.0     0.0     0.0     1.0
        
	SetParameter	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_drcken
POL	SetParameter	TEXT		Nacinij_"Strza"


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

	SPA SetParameter	Text	Pulsa_el_disparo_para_empezar
	SendMessage 	CREATETEXT

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






	OnMessage FIREPRESSED
	Do

		SendMessage ENDBRIEFING
		SendMessage FIRINGON

SendMessage 	MUSIC_GROOVE_MED_LOW

		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 TARG Into X
			ReadFromBuffer TARG Into Y

			Add 1 To Z

		EndWhile
		
		SetParameter	POSITION	X	Y	0.0	0.0
		SetParameter	BLOCKCOLOUR	TARGET
		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 TARG Into X
			ReadFromBuffer TARG Into Y

			Add 1 To Z

		EndWhile

		SetParameter	POSITION	X	Y	0.0	0.0
		SetParameter	BLOCKCOLOUR	TARGET
		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 TARG Into X
			ReadFromBuffer TARG Into Y

			Add 1 To Z

		EndWhile

		SetParameter	POSITION	X	Y	0.0	0.0
		SetParameter	BLOCKCOLOUR	TARGET
		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         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	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		Ms_rpido!
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         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	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		Ms_rpido!
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     50.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


		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     50.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    Colour1         1.0     0.22    0.07    1.0
        SetParameter    Colour2         1.0     0.22    0.07    1.0
        SetParameter    Colour3         1.0     0.22    0.07    1.0
        SetParameter    Colour4         0.0     0.0     0.0     1.0
        SetParameter    Colour5         0.0     0.0     0.0     1.0
        SetParameter    Colour6         0.0     0.0     0.0     1.0
        
        SetParameter    Position        0.0     25.0    0.0     0.0
        SetParameter    Lifetime        0.2     0.6     0.7     1.5
        SetParameter    TEXT            Disaster!
FRE	SetParameter	TEXT		Calamit!
ITA 	SetParameter 	TEXT		Che_disastro!
SPA	SetParameter	TEXT		Qu_desastre!
GER 	SetParameter	TEXT		Desaster!
POL	SetParameter	TEXT		Klska



        SendMessage     CREATETEXT








			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	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	173.0	222.0	0.0	0.0
	SetParameter	TEXT		Targets
FRE	SetParameter	TEXT		Cibles
ITA 	SetParameter	TEXT		Bersagli
SPA	SetParameter	Position	155.0	222.0	0.0	0.0
SPA	SetParameter	TEXT		Dianas
GER	SetParameter	TEXT		Ziele
POL 	SetParameter	TEXT		Cele
	


	SendMessage	CREATETEXT





	SetParameter	Position	270.0	222.0	0.0	0.0
	ConvertToTEXT   S
	SendMessage	CREATETEXT


	If S BecomesEqualTo 25
	Then

		SendMessage FIRINGOFF
		GotoLoop WIN

	EndIf

	OnMessage TIMER1
	Do

		Add 3 To H

		SetParameter	POSITION	0.0	H	0.0	0.0
		SendMessage 	CHANGEWATERHEIGHT

	EndResponse


EndLoop


Loop LIVES
Do

	If M BecomesEqualTo -1
	Then

		SendMessage FIRINGOFF
		GotoLoop FAIL

	EndIf
	
EndLoop

	
Loop FAIL
Do

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


SetParameter	Lifetime	0.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		Poraka


SendMessage	CREATETEXT



	SendMessage LOSECONDITION
	GotoLoop NULL
EndLoop

Loop WIN
Do

	SendMessage WINCONDITION
	SetParameter POSITION	0.0	-170.0	0.0	0.0
	SendMessage CHANGEWATERHEIGHT

	GotoLoop NULL

EndLoop


Loop NULL
Do


EndLoop




EndFile