GameMode	swgo
GameType	QUEST

	ORANGEBLOCKSONSCREENCOUNTER	O
	REDBLOCKSONSCREENCOUNTER	R
	GREENBLOCKSONSCREENCOUNTER	G
	LandLinesCounter		H
	LivesRemaining02Counter		Q

Program0123

TEXTBUFFER      LEVS
        swgo.wbl
ENDBUFFER

Loop INIT
Do

	SendMessage	DEACTIVATESCORE

	SetParameter	NUMLINES	20
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP12
	SendMessage	SETBACKDROP

	SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                80
        SendMessage     LOADLEVEL

	SetParameter	INTERVAL	9999970
	SendMessage	SetLandSpeed
	
	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SetParameter    TEXT    swgo.wbw
	SendMessage     LOADWEAPONLIST

	SET T To 0
	SET O To 10000
	SET R To 10000
	SET G To 10000
	SET Z TO 45
	Set I to 0

	GoSubLoop WATER

	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	Position	0.0	180.0	0.0	0.0
	SetParameter	Text		TRAFFIC_LIGHT_FUN
FRE	SetParameter	TEXT		FEUX_DE_CIRCULATION
ITA	SetParameter	TEXT		SFIDA_AL_SEMAFORO
SPA	SetParameter	TEXT		AL_RICO_SEMFORO
GER	SetParameter	TEXT		AMPEL_SPASS
POL	SetParameter	TEXT		wiata_drogowe


	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		Clear_The_Stated_Blocks
FRE	SetParameter	TEXT		Dblayez_les_blocs_indiqus.
ITA	SetParameter	TEXT		Elimina_ogni_blocco
SPA	SetParameter	TEXT		Destruye_los_bloques_indicados.
GER	SetParameter	TEXT		Rume_die_markierten_Blocks_ab.
POL	SetParameter	TEXT		Usu_wszystkie_oznaczone_cegy.


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		And_Do_Each_One
FRE	SetParameter	TEXT		Chacun_d'entre_eux_doit_tre
ITA	SetParameter	TEXT		indicato_entro
SPA	SetParameter	TEXT		Slo_tienes_45_segundos
GER	SetParameter	TEXT		Du_hast_fr_jeden
POL	SetParameter	TEXT		A_na_to_wszystko


	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	45.0	0.0	0.0
	SetParameter	Text		Within_45_Seconds
FRE	SetParameter	TEXT		termin_en_45_secondes.
ITA	SetParameter	TEXT		45_secondi.
SPA	SetParameter	TEXT		para_cada_uno.
GER	SetParameter	TEXT		45_Sekunden.
POL	SetParameter	TEXT		masz_tylko_45_sekund.




	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_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	MUSIC_GROOVE_MED_LOW
		SendMessage EndBriefing
		SendMessage FIRINGON	

		SetParameter	MESSAGE_ID	TIMER2
		SetParameter	INTERVAL	2000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	4000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		GotoLoop START
	EndResponse

EndLoop


Loop START
Do
	GoSubLoop WATER

	OnMessage TIMER2
	Do

	SET T TO 0
	SetParameter	Position	-180.0	0.0	0.0	0.0
	SetParameter	Velocity	0.2	0.0	0.0	0.0
	SetParameter	Lifetime	0.1	0.9	4.1	1.9
	SetParameter	Justify		Centre
	SetParameter	Text		RED!
FRE	SetParameter	Text		ROUGE!
ITA	SetParameter	TEXT		ROSSO!
SPA	SetParameter	TEXT		rojo!
GER	SetParameter	TEXT		ROT!
POL	SetParameter	TEXT		CZERWONE
	SetParameter	Colour2		0.91	0.21	0.0	1.0
	SetParameter	Colour3		0.91	0.21	0.0	1.0

	SendMessage	CREATETEXT

	SetParameter	MESSAGE_ID	TIMER5
	SetParameter	INTERVAL	45000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER1
	SetParameter	INTERVAL	500
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	SetParameter	MESSAGE_ID	TIMER8
	SetParameter	INTERVAL	1000
	SetParameter	REPEAT		TRUE
	SendMessage	CREATETIMER

	GotoLoop MAIN
	/GotoLoop CLOCK/

	EndResponse	
EndLoop

Loop MAIN
Do
	GoSubLoop WATER
	GosubLoop CLOCK
	
	If Q BecomesEqualTo -1
	Then
		SendMessage	LOSECONDITION
	EndIf

	If R ISLESSTHAN 1
	Then
		SET T TO 0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Velocity	0.0	0.01	0.0	0.0
		SetParameter	Gravity		0.0	0.0	0.0	0.0
		SetParameter	Scale1		0.5	0.5	0.5	0.0
		SetParameter	Scale2		1.5	1.5	1.5	0.0
	
		SetParameter	Colour1		1.0	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.1	0.5	1.0	1.5
		SetParameter	Justify		Centre
		SetParameter	Text		Stand_Clear
FRE		SetParameter	Text		loignez-vous.
ITA		SetParameter	TEXT		Allontanati
SPA		SetParameter	TEXT		Preparado...
GER		SetParameter	TEXT	Zurcktreten!
POL	SetParameter	TEXT		Gotowy!

		SetParameter	Colour2		1.0	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.0	0.0	1.0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SendMessage	CREATETEXT
		SetParameter BLOCKCOLOUR ALLCOLOURS
		SendMessage	CLEARBLOCKS
		SET Z TO 45
		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	4000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		GotoLoop NEXT
	EndIf	
EndLoop

Loop NOYELL
Do
	GosubLoop CLOCK
EndLoop

/TIME/
Loop CHECK
Do
	GosubLoop CLOCK

	OnMessage TIMER1
	Do
		ADD 1 To T
	EndResponse	
EndLoop

Loop NEXT
Do
	GoSubLoop WATER

	OnMessage TIMER3
	Do
		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed
		SET T To 0
		set H to 0
		GotoLoop NEXT2
	EndResponse
EndLoop


Loop NEXT2
Do
	GoSubLoop WATER

	If H IsEqualTo 18
	then	
		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed
	GotoLoop START2
	endif
	
EndLoop

Loop START2
Do
	GoSubLoop WATER

	OnMessage TIMER2
	Do
	SET T TO 0
		SendMessage     MUSIC_GROOVE_MED
		SetParameter	Position	180.0	0.0	0.0	0.0
		SetParameter	Velocity	-0.2	0.0	0.0	0.0
		SetParameter	Lifetime	0.1	0.9	4.1	1.9
		SetParameter	Justify		Centre
		SetParameter	Text		GREEN!
FRE		SetParameter	Text		VERT!
ITA		SetParameter	TEXT		VERDE!
SPA		SetParameter	TEXT		VERDE
GER		SetParameter	TEXT		GRN
POL	SetParameter	TEXT		ZIELONY

	
		SetParameter	Colour2		0.33	0.78	0.15	1.0
		SetParameter	Colour3		0.33	0.78	0.15	1.0
		SendMessage	CREATETEXT

			SET Z TO 45

			GotoLoop ROUND2

		EndResponse
EndLoop

Loop ROUND2
Do
	GosubLoop CLOCK
	GoSubLoop WATER

	If Q BecomesEqualTo -1
	Then
		SendMessage LOSECONDITION
	EndIf

	If G ISLESSTHAN 1
	Then
		SET T TO 0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SetParameter	Velocity	0.0	0.01	0.0	0.0
		SetParameter	Gravity		0.0	0.0	0.0	0.0
		SetParameter	Scale1		0.5	0.5	0.5	0.0
		SetParameter	Scale2		1.5	1.5	1.5	0.0
	
		SetParameter	Colour1		1.0	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.1	0.5	1.0	1.5
		SetParameter	Justify		Centre
		SetParameter	Text		Stand_Clear
FRE		SetParameter	Text		loignez-vous
ITA		SetParameter	TEXT		Allontanati
SPA		SetParameter	TEXT		Preparado...
GER		SetParameter	TEXT		Zurcktreten!
POL	SetParameter	TEXT		Gotowy!

		SetParameter	Colour2		1.0	0.0	0.0	1.0
		SetParameter	Colour3		1.0	0.0	0.0	1.0
		SetParameter	Position	0.0	0.0	0.0	0.0
		SendMessage	CREATETEXT

		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	4000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
		SetParameter BLOCKCOLOUR ALLCOLOURS
		SendMessage	CLEARBLOCKS

		GotoLoop NEXTA
		EndIf	
EndLoop

/lastround/

Loop NEXTA
Do
	GoSubLoop WATER

	OnMessage TIMER3
	Do
		SetParameter	INTERVAL	0010
		SendMessage	SetLandSpeed
		SET T To 0
		set H to 0
		GotoLoop NEXT2A
	EndResponse
EndLoop


Loop NEXT2A
Do
	GoSubLoop WATER	

	If H IsEqualTo 18
	then	
		SetParameter	INTERVAL	999000
		SendMessage	SetLandSpeed
		GotoLoop START2A
	endif
EndLoop

Loop START2A
Do
	GoSubLoop WATER

	OnMessage TIMER2
	Do	
		SET T TO 0
		SendMessage     MUSIC_GROOVE_HIGH
		SetParameter	Position	0.0	100.0	0.0	0.0
		SetParameter	Velocity	0.0	-0.2	0.0	0.0
		SetParameter	Lifetime	0.1	0.9	4.1	1.9
		SetParameter	Justify		Centre
		SetParameter	Text		ORANGE
FRE		SetParameter	Text		ORANGE
ITA		SetParameter	TEXT		ARANCIONE
SPA		SetParameter	TEXT		naranja
GER		SetParameter	TEXT		ORANGE
POL	SetParameter	TEXT		Pomaraczka


		SetParameter	Colour2		1.0	0.56	0.0	1.0
		SetParameter	Colour3		1.0	0.56	0.0	1.0
		SendMessage	CREATETEXT

		SET Z TO 45

		GotoLoop ROUND3
		EndResponse	
EndLoop

Loop ROUND3
Do
	GosubLoop CLOCK
	GoSubLoop WATER

	If Q BecomesEqualTo -1
	Then
		SendMessage LOSECONDITION
	EndIf

	If O ISLESSTHAN 1
	Then
		SET T TO 0
		GotoLoop END
	EndIf
EndLoop

Loop CLOCK
Do
	SetParameter	Scale1		1.0	1.0	1.0	1.0
	SetParameter	Scale2		1.0	1.0	1.0	1.0
	SetParameter	Scale3		1.0	1.0	1.0	1.0
	SetParameter	Scale4		1.0	1.0	1.0	1.0
	SetParameter	Scale5		1.0	1.0	1.0	1.0
	SetParameter	FRAME		3
	SetParameter	Velocity	0	0	0	0
	SetParameter	Lifetime	0.0	0.0	0.0	0.0
	SetParameter	Position	180.0	210.0	0.0	0.0
	SendMessage	CREATEICON

	OnMessage TIMER8
	Do
		SetParameter	JUSTIFY CENTRE
		SetParameter	Colour1		1.0	1.0	1.0	1.0
		SetParameter	Colour2		1.0	1.0	1.0	1.0
		SetParameter	Colour3		1.0	1.0	1.0	1.0
		SetParameter	Colour4		0.0	0.0	0.0	1.0
		SetParameter	Colour5		0.0	0.0	0.0	1.0
		SetParameter	Colour6		0.0	0.0	0.0	1.0
		SetParameter	Scale1		0.8	0.8	0.8	0.0
		SetParameter	Scale2		0.8	0.8	0.8	0.0
		SetParameter	Scale3		0.8	0.8	0.8	0.0
		SetParameter	Scale4		0.8	0.8	0.8	0.0
		SetParameter	Scale5		0.8	0.8	0.8	0.0
		SetParameter	Velocity	0	0	0	0

		Subtract 1 from Z
		SetParameter	Lifetime	0.0	0.0	1.0	0.0
		SetParameter	Position	245.0	210.0	0.0	0.0




			If Z IsLessThan 11
			Then

				SetParameter	Colour1		1.0	0.22	0.07	1.0
				SetParameter	Colour2		1.0	0.22	0.07	1.0
				SetParameter	Colour3		1.0	0.22	0.07	1.0
			
			EndIf




			If Z IsLessThan 10
			Then
				SetParameter	Text		0
				SetParameter	Position	245.0	210.0	0.0	0.0
				SendMessage	CREATETEXT
				SetParameter	Position	260.0	210.0	0.0	0.0
			EndIf

		ConvertToText   Z
		SendMessage	CREATETEXT

		ConvertToText	I
		SetParameter	Position	215.0	210.0	0.0	0.0
		SendMessage	CREATETEXT

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

				SendMessage	CREATETEXT
				SendMessage	LOSECONDITION
				GotoLoop END2
		EndIf
	EndResponse
EndLoop

Loop WATER
DO
	SetParameter	POSITION	0	-175	0	0
	SendMessage	CHANGEWATERHEIGHT
EndLoop

Loop END
Do
		SendMessage	WINCONDITION
		GotoLoop END2
EndLoop

Loop END2
Do
EndLoop
EndFile