Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|640|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

Fuzzy Text

by Gosse for Workshop #005

Gosse cheated, but it's still a great game. A 3D game, rendered using ascii characters.

Const scrWidth = 640
Const scrHeight = 480
Graphics3D scrWidth, scrHeight, 0, 2
AmbientLight 155, 155, 155
AppTitle "Fuzzy Text"
AntiAlias True
SeedRnd MilliSecs()

Const Width = 80
Const RealHeight = 24
Const Height = RealHeight*3/2
Const FW = scrWidth / Width
Const FH = FW * 2
Const CAMOFF = Height*FH+FH

camDefault = CreateCamera()
CameraViewport camDefault, 0, 0, Width, Height
CameraClsColor camDefault, 110, 220, 250
MoveEntity camDefault, 0, 4, 0

lgtDefault = CreateLight(2, camDefault)
LightRange lgtDefault, 5
MoveEntity lgtDefault, 0, 3, 0

mdlBall = CreateSphere()
MoveEntity mdlBall, 4, 2, 3
mdlCube = CreateCube()
MoveEntity mdlCube, 4, 3.5, 4
ScaleEntity mdlCube, 3.4, 0.3, 0.3
mdlCylinder = CreateCylinder()
ScaleEntity mdlCylinder, 1, 5, 1
EntityColor mdlCylinder, 255, 200, 50
EntityColor mdlCube, 6, 11, 19
EntityColor mdlBall, 255, 0, 100



mdlGround = CreatePlane(16)
EntityColor mdlGround, 50, 150, 50

pvtAxe = CreatePivot(camDefault)
mdlAxeHand = CreateCylinder(8, True, pvtAxe)
EntityColor mdlAxeHand, 190, 90, 20
ScaleEntity mdlAxeHand, 0.1, 1, 0.1
mdlAxeHead = CreateCone(8, True, pvtAxe)
EntityColor mdlAxeHead, 180, 180, 180
MoveEntity mdlAxeHead, -0.01, 0.6, 0
ScaleEntity mdlAxeHead, 0.1, 0.4, 0.5
TurnEntity mdlAxeHead, -90, 0, 0

PositionEntity pvtAxe, 1, -0.5, 1.5
RotateEntity pvtAxe, 30, 50, 0

Global FrameStart
Global DeltaTime# = 0.1
Global GameTime# = 0
Global FPS = 1200
Global FPSCount = FPS
Global timFPS

fntDefault = LoadFont("FixedSys", 24)
SetFont fntDefault

Dim Screen(Width-1, Height-1)
Dim Colors(Width-1, Height-1, 2)

While Not KeyDown(1)

	; Frame Update
	FrameStart = MilliSecs()
	If timFPS < FrameStart Then
		FPS = FPSCount
		FPSCount = 0
		timFPS = FrameStart + 1000
		DeltaTime = 1.0 / Float(FPS)
		GameTime = GameTime + DeltaTime
	End If
	
	; Movement
	mx# = KeyDown(203) - KeyDown(205)
	mx = mx * DeltaTime * 50
	mz# = KeyDown(200) - KeyDown(208)
	mz = mz * DeltaTime * 3
	MoveEntity camDefault, 0, 0, mz
	TurnEntity camDefault, 0, mx, 0
	If KeyDown(57) And (Not attacking) Then
		attacking = True
		state = 1
		move# = 0
	End If
	If attacking Then
		Select state
			Case 1
				move = move + DeltaTime
				TurnEntity pvtAxe, -DeltaTime * 90, 0, 0
				If move > 0.5 Then
					state = 2
					move = 0
				End If
			Case 2
				move = move + DeltaTime
				TurnEntity pvtAxe, DeltaTime * 200, 0, 0
				MoveEntity pvtAxe, 0, 0, DeltaTime * 3
				If move > 0.6 Then
					state = 3
					move = 0
				End If
			Case 3
				move = move + DeltaTime
				TurnEntity pvtAxe, -DeltaTime * 400, 0, 0
				MoveEntity pvtAxe, 0, 0, -DeltaTime * 6
				If move > 0.2 Then
					PositionEntity pvtAxe, 1, -0.5, 1.5
					RotateEntity pvtAxe, 30, 50, 0
					attacking = False
				End If
		End Select
	End If
		
	; 3D Drawing
	SetBuffer BackBuffer()
	Cls
	RenderWorld
	LockBuffer
	For x = 0 To Width-1
		For y = 0 To RealHeight-1
			p = ReadPixelFast(x, y*3/2)
			r=(p Shr 16) And $ff 
			g=(p Shr 8) And $ff 
			b=p And $ff
			Screen(x, y) = GetChar((r+g+b)/3)
			Colors(x, y, 0) = r
			Colors(x, y, 1) = g
			Colors(x, y, 2) = b
		Next
	Next
	UnlockBuffer
		
	; 2D Drawing
	Cls
	For x = 0 To Width-1
		For y = 0 To RealHeight-1
			Color Colors(x, y, 0), Colors(x, y, 1), Colors(x, y, 2)
			Text 1+x*FW, (y+1)*FH, Chr(Screen(x, y))
		Next
	Next
	
	Text 1, 0, "FPS: " + FPS
	
	Flip False
	
	FPSCount = FPSCount + 1

Wend

Function GetChar(clr)
	clr = clr / 4
	Select clr
		Case 0
			Return 32
		Case 1
			Return 39
		Case 2
			Return 45
		Case 3
			Return 46
		Case 4
			Return 173
		Case 5
			Return 183
		Case 6
			Return 180
		Case 7
			Return 184
		Case 8
			Return 175
		Case 9
			Return 95
		Case 10
			Return 44
		Case 11
			Return 185
		Case 12
			Return 58
		Case 13
			Return 178
		Case 14
			Return 43
		Case 15
			Return 43
		Case 16
			Return 176
		Case 17
			Return 176
		Case 18
			Return 59
		Case 19
			Return 59
		Case 20
			Return 62
		Case 21
			Return 62
		Case 22
			Return 42
		Case 23
			Return 161
		Case 24
			Return 76
		Case 25
			Return 74
		Case 26
			Return 70
		Case 27
			Return 83
		Case 28
			Return 53
		Case 29
			Return 50
		Case 30
			Return 69
		Case 31
			Return 67
		Case 32
			Return 51
		Case 33
			Return 54
		Case 34
			Return 102
		Case 35
			Return 36
		Case 36
			Return 38
		Case 37
			Return 38
		Case 38
			Return 75
		Case 39
			Return 88
		Case 40
			Return 56
		Case 41
			Return 87
		Case 42
			Return 37
		Case 43
			Return 77
		Case 44
			Return 35
		Case 45
			Return 188
		Case 46
			Return 190
		Case 47
			Return 72
		Case 48
			Return 64
		Case 49
			Return 64
		Case 50
			Return 195
		Case 51
			Return 213
		Case 52
			Return 212
		Case 53
			Return 212
		Case 54
			Return 209
		Case 55
			Return 209
		Case 56
			Return 209
		Case 57
			Return 127
		Case 58
			Return 150
		Case 59
			Return 150
		Case 60
			Return 150
		Case 61
			Return 143
		Case 62
			Return 143
		Case 63
			Return 133
		Default
			Stop
			Return 0
	End Select
End Function