Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|642|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

Road Chaser

by GoSsE for Workshop #001

Use the mouse to move your car, avoid hitting other cars. When you crash, push space to restart. Press ESC anytime to quit.

Mouse

; This source code is copyrighted (c) to Jocelyn Perreault.
; Version 1.0.0 - June 17 2005
; Thanks,
;                 Jocelyn "GoSsE Korupted" Perreault
;                  gosse@nuloen.com
;                  Nuclear Loaded Entertainment
;                  https://www.nuloen.com/

Const SCRW = 640
Const SCRH = 480
Const ROADY = SCRH / 3
Const ROADW = SCRH / 3
Const CARX = 70
Const CARL = 70
Const CARW = CARL * 5 / 9
Const MAXCARS = 3
Const CRASHSIZE = 5
Const CRASHL = CARL * CRASHSIZE
Const CRASHW = CARW * CRASHSIZE
Const CRASHX = SCRW / 2 - CRASHL / 2
Const CRASHY = SCRH / 2 - CRASHW / 2

Graphics SCRW, SCRH, 0, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
HidePointer
tmrFPS = CreateTimer(60)
tmrFPSSlow = CreateTimer(25)

font = LoadFont("Garamond", 18)
SetFont font

ClsColor 50, 160, 0

Points = 0
LastPoints = -1
Cars = 0
Score = 10
CarY = ROADY + ROADW / 2 - CARW / 2
Speed = 3

Dim CarsX(MAXCARS)
Dim CarsR(MAXCARS)
Dim CarsG(MAXCARS)
Dim CarsB(MAXCARS)

For i = 1 To MAXCARS
	GenerateAI(i)
Next

Function GenerateAI(i)
	Repeat
		valid = True
		CarsX(i) = Rand(SCRW, SCRW + MAXCARS * MAXCARS * CARL)
		For j = 1 To MAXCARS
			If i <> j Then
				If RectsOverlap( CarsX(i), 0, CARL, 1, CarsX(j) - CARL * 1, 0, CARL * 3, 1) Then
					valid = False
				End If
			End If
		Next
	Until valid
	Repeat
		valid = True
		CarsR(i) = Rand(0, 255)
		CarsG(i) = Rand(0, 255)
		CarsB(i) = Rand(0, 255)
		avg = (CarsR(i) + CarsG(i) + CarsB(i)) / 3
		If avg > 15 And avg < 65 Then
			valid = False
		End If
	Until valid
End Function

While Not KeyDown(1)

	; Player Control
	If Points <> LastPoints Then
		AppTitle "Road Chaser  -  Points: " + Points
		LastPoints = Points
	End If
	CarY = MouseY()
	If CarY < ROADY Then
		CarY = ROADY
	End If
	If CarY > ROADY + ROADW - CARW Then
		CarY = ROADY + ROADW - CARW
	End If
	MoveMouse SCRW/2, CarY

	; AI Control
	For i = 1 To MAXCARS
		CarsX(i) = CarsX(i) - SPEED
		If CarsX(i) < -CARL Then
			GenerateAI(i)
			Points = Points + Score
			Cars = Cars + 1
			If Cars Mod Score = 0 Then
				Score = Score + 1
				Speed = Speed + 1
				Cars = 0
			End If
		End If
	Next
	
	; Collision
	For i = 1 To MAXCARS
		If RectsOverlap(CARX+2, CarY+2, CARL-4, CARW-4, CarsX(i), ROADY + ROADW * (i - 1) / 3 + 8, CARL, CARW) Then
			ClsColor 40, 40, 40
			While (Not KeyDown(57)) And (Not KeyDown(1))
				
				cx = (CARX - CarsX(i)) * CRASHSIZE
				cy = (CarY - (ROADY + ROADW * (i - 1) / 3 + 8)) * CRASHSIZE
			
				WaitTimer(tmrFPSSlow)

				Cls
				
				DrawCar(CRASHX, CRASHY, 255, 255, 255, CRASHSIZE)

				DrawCar(CRASHX - cx, CRASHY - cy, CarsR(i), CarsG(i), CarsB(i), CRASHSIZE)
				
				For j = 1 To MAXCARS
					r = Rand(50, 250)
					g = Rand(0, r - 50)
					b = Rand(0, g / 5)
					Color r, g, b
					x = Rand(CRASHX - CRASHW / 2, CRASHX + CRASHL / 2)
					y = Rand(CRASHY - CRASHW / 2, CRASHY + CRASHW / 2)
					s = Rand(CRASHW / 2, CRASHL)
					Oval x, y, s, s
				Next
				
				Flip False
				
			Wend
			
			Points = 0
			LastPoints = -1
			Cars = 0
			Score = 10
			CarY = ROADY + ROADW / 2 - CARW / 2
			Speed = 3
			For j = 1 To MAXCARS
				GenerateAI(j)
			Next
			ClsColor 50, 160, 0
			Exit
		End If
	Next
	

	WaitTimer(tmrFPS)

	Cls
	
	Color 40, 40, 40
	Rect 0, ROADY, SCRW, ROADW
	
	DrawCar(CARX, CarY, 255, 255, 255)
	
	For i = 1 To MAXCARS
		DrawCar(CarsX(i), ROADY + ROADW * (i - 1) / 3 + 8, CarsR(i), CarsG(i), CarsB(i))
	Next
	
	Flip False

Wend
End

Function DrawCar(x, y, r, g, b, size=1)
	l = CARL*size
	w = CARW*size
	Color r, g, b
	Rect x, y, l, w
End Function