GameMode	jdrace
GameType	QUEST
RedComboCounter			R

LivesRemaining02Counter		Q
COLLECTSTARCOUNTER		V


Program0123
TEXTBUFFER      LEVS                  


        jdrace.wbl


ENDBUFFER


Loop INIT
Do


	SetParameter	NUMLINES	14
	SendMessage	SetStartLines

	SetParameter	BACKDROP	BACKDROP7
	SendMessage	SETBACKDROP
        SetParameter    BUFFERNAME              LEVS
        SetParameter    NUMLINES                180           
        SendMessage     LOADLEVEL




	SetParameter	LIVES	0
	SendMessage	SETLIVES

	SendMessage	PAUSELANDLEFT
	SendMessage	PAUSELANDRIGHT
	SetParameter    TEXT    jdrace.wbw
	SendMessage     LOADWEAPONLIST

	SendMessage	DEACTIVATESCORE

	SET V TO 0
	SET Q TO 0	



	SetParameter	Position	0	-165	0	0
	SendMessage	CHANGEWATERHEIGHT
	SendMessage     MUSIC_GROOVE_LOW
	SendMessage	FIRINGOFF
	SendMessage StartBriefing
	SendMessage	QUAKENO
	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		CRAZY_RACE
	FRE SetParameter	TEXT	COURSE_FOLLE
	SPA SetParameter	Text	CARRERA_DESENFRENADA
	GER SetParameter	Text	VERRÜCKTES_RENNEN
	ITA SetParameter	TEXT	LA_FOLLE_CORSA
	POL SetParameter	TEXT	Szalony_wyœcig_



	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		Get_through_the_course_to_win
	FRE SetParameter	TEXT		Terminez_la_course_pour_gagner.
	SPA SetParameter	Text	Compite_para_conseguir_la_victoria.
	GER SetParameter	Text	Bewege_dich_durch_den_Kurs
	ITA SetParameter	TEXT	Completa_il_percorso_e
	POL SetParameter	TEXT	Pokonaj_tor,_aby_wygraæ



	SendMessage 	CREATETEXT

	SetParameter	Position	0.0	80.0	0.0	0.0
	SetParameter	Text		Destroy_any_barriers
	FRE SetParameter	TEXT		Détruisez_les_barrières.
	SPA SetParameter	Text	Destruye_las_barreras.
	GER SetParameter	Text	und_zerstöre_alle_Hindernisse.
	ITA SetParameter	TEXT	distruggi_tutte_le_barriere.
	POL SetParameter	TEXT	Zniszcz_wszystkie_przeszkody_



	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!
	GER SetParameter	Text	Zum_Starten_Feuer_drücken
	ITA SetParameter	TEXT	Premi_fuoco_per_cominciare
	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	
		SendMessage	UNPAUSELANDLEFT
		SendMessage	UNPAUSELANDRIGHT

		SetParameter	INTERVAL	1200
		SendMessage	SetLandSpeed

		SetParameter	MESSAGE_ID	TIMER1
		SetParameter	INTERVAL	30000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER2
		SetParameter	INTERVAL	40000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER3
		SetParameter	INTERVAL	50000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER

		SetParameter	MESSAGE_ID	TIMER4
		SetParameter	INTERVAL	60000
		SetParameter	REPEAT		TRUE
		SendMessage	CREATETIMER
		GotoLoop MAIN
	EndResponse

EndLoop

Loop MAIN
Do
	If Q 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!
	SPA SetParameter	Text	¡FALLASTE!
	GER SetParameter	Text	VERLOREN!
	ITA SetParameter	TEXT	HAI_FALLITO!
	POL SetParameter	TEXT	Klêska


	
SendMessage	CREATETEXT
		SendMessage LOSECONDITION
		GotoLoop NULL
	EndIf


	If V BecomesEqualTo 1
	Then

			SendMessage	WINCONDITION

			GotoLoop NULL
	EndIf



OnMessage TIMER1
	Do
		
	SET T TO 0		
	SetParameter	Position	0.0	-29.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		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		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0

	SetParameter	Lifetime	1.0	1.4	1.9	2.8
	SetParameter	Justify		Centre
			SetParameter	Scale1		0.5	1.5	0.6	0.0
			SetParameter	Scale2		1.5	2.5	1.6	0.0
			SetParameter	Lifetime	1.1	1.5	2.5	2.9
			SetParameter	Position	0.0	25.0	0.0	0.0
			SetParameter	Text		Speed_Up
FRE			SetParameter	TEXT		Accélérez!
			SPA SetParameter	Text	Acelera
			GER SetParameter	Text	Schneller!
			ITA SetParameter	TEXT	Accelerazione
POL SetParameter	TEXT	Dodaj_gazu!



			SendMessage	CREATETEXT
	
				SendMessage     MUSIC_GROOVE_MED
		SetParameter	INTERVAL	650
		SendMessage	SetLandSpeed
		Set R To 0
GotoLoop		TIMER2
	EndResponse
	EndLoop
Loop TIMER2
Do

	If V BecomesEqualTo 1
	Then

			SendMessage	WINCONDITION

			GotoLoop NULL
	EndIf

	If Q 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!
SPA SetParameter	Text	¡FALLASTE!
GER SetParameter	Text	VERLOREN!
ITA SetParameter	TEXT	HAI_FALLITO!
POL SetParameter	TEXT	Klêska


SendMessage	CREATETEXT
		SendMessage LOSECONDITION
		GotoLoop NULL
	EndIf

OnMessage TIMER2
	Do
		
			
	SetParameter	Position	0.0	-29.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		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		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0

	SetParameter	Lifetime	1.0	1.4	1.9	2.8
	SetParameter	Justify		Centre
			SetParameter	Scale1		0.5	1.5	0.6	0.0
			SetParameter	Scale2		1.5	2.5	1.6	0.0
			SetParameter	Lifetime	1.1	1.5	2.5	2.9
			SetParameter	Position	0.0	25.0	0.0	0.0
			SetParameter	Text		Faster!
FRE			SetParameter	TEXT		Plus_vite!
			SPA SetParameter	Text	¡Más_rápido!
			GER SetParameter	Text	Beeil_dich!
			ITA SetParameter	TEXT	RAPIDO!
			POL SetParameter	TEXT	Szybciej

			SendMessage	CREATETEXT	
			
		SetParameter	INTERVAL	650
		SendMessage	SetLandSpeed
		Set R To 0
GotoLoop		TIMER3
	EndResponse
EndLoop



Loop TIMER3
Do
	If V BecomesEqualTo 1
	Then

			SendMessage	WINCONDITION

			GotoLoop NULL
	EndIf
	If Q 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!
SPA SetParameter	Text	¡FALLASTE!
GER SetParameter	Text	VERLOREN!
ITA SetParameter	TEXT	HAI_FALLITO!
POL SetParameter	TEXT	Klêska



SendMessage	CREATETEXT
		SendMessage LOSECONDITION
		GotoLoop NULL
	EndIf

OnMessage TIMER3
	Do
		
			
	SetParameter	Position	0.0	-29.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		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		0.0	0.0	0.0	1.0
	SetParameter	Colour6		0.0	0.0	0.0	1.0

	SetParameter	Lifetime	1.0	1.4	1.9	2.8
	SetParameter	Justify		Centre
			SetParameter	Scale1		0.5	1.5	0.6	0.0
			SetParameter	Scale2		1.5	2.5	1.6	0.0
			SetParameter	Lifetime	1.1	1.5	2.5	2.9
			SetParameter	Position	0.0	25.0	0.0	0.0
			SetParameter	Text		Rapid!
FRE			SetParameter	TEXT		Ça_va_vite!
			SPA SetParameter	Text	¡Corre!
			GER SetParameter	Text	Gib_alles!
			ITA SetParameter	TEXT	Sbrigati!
POL SetParameter	TEXT	Szybciej


			SendMessage	CREATETEXT	
				SendMessage     MUSIC_GROOVE_HIGH
		SetParameter	INTERVAL	500
		SendMessage	SetLandSpeed
		Set R To 0
GotoLoop		FINISH
	EndResponse
EndLoop

Loop FINISH
Do

	If V BecomesEqualTo 1
	Then

			SendMessage	WINCONDITION
			GotoLoop NULL
	EndIf


	If Q 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!
SPA SetParameter	Text	¡FALLASTE!
GER SetParameter	Text	VERLOREN!
ITA SetParameter	TEXT	HAI_FALLITO!
POL SetParameter	TEXT	Klêska


SendMessage	CREATETEXT

		SendMessage LOSECONDITION
		GotoLoop NULL
	EndIf

EndLoop


Loop FIN2
	Do
	
	
	
EndLoop

Loop NULL
Do
EndLoop



EndFile
