Wednesday Workshop

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