Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|560|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Flight of the Pixel

by pebu for Workshop #001
Guide the pixel in it's flight.
Cursors
; Flight of the Pixel
; Written by Pebu for the CodersWorkshop '5 Objects' compo
Const SCREEN_WIDTH = 800
Const SCREEN_HEIGHT = 600

Const HALF_WIDTH = SCREEN_WIDTH / 2
Const HALF_HEIGHT = SCREEN_HEIGHT / 2

Const FPS = 30

Const STATE_QUIT = -1
Const STATE_TITLE = 0
Const STATE_PLAYING = 1
Const STATE_GAMEOVER = 2
Const STATE_WON = 3

Const FRICTION# = 0.1
Const GRAVITY# = 0.25
Const ACCELERATION# = 0.5
Const MAX_SPEED# = 10

Const MAX_OBJECTS = 4
Const OBJ_RECT = 1
Const OBJ_OVAL = 2

Const EXPLO_MAXSIZE# = 10
Const EXPLO_GROWTH# = 0.5

Type tPlayerData
	Field x#, y#, dx#, dy#
End Type

Type tObjectData
	Field r, g, b		; Colour
	Field ObType		; Rect or Oval
	Field x, y, w, h	; Dimensions of object
End Type

Type tRoomData
	Field id		; Room id = index into array
	Field r, g, b	; ClsColor for this room
	Field NumObjects
	Field Objects.tObjectData[MAX_OBJECTS-1]
End Type

Global gPlayer.tPlayerData
Global gFPSTimer
Dim gaRooms.tRoomData(0)
Global gNumRooms, gCurrentRoom
Global gStartTime
Global geGameState

; Initialise
Graphics SCREEN_WIDTH, SCREEN_HEIGHT, 0, 1
SetBuffer BackBuffer()
HidePointer
gFPSTimer = CreateTimer(FPS)
InitRooms()
geGameState = STATE_TITLE

; Play
Repeat
	Select geGameState
		Case STATE_TITLE
			TitleScreen()
		Case STATE_PLAYING
			PlayGame()
		Case STATE_GAMEOVER
			GameOver()
		Case STATE_WON
			WinGame()
	End Select
Until geGameState = STATE_QUIT

; Finish up
Delete Each tPlayerData
Delete Each tObjectData
Delete Each tRoomData
FreeTimer gFPSTimer
ShowPointer
End

; TitleScreen() - show the title screen and wait for player to start a game
Function TitleScreen()
	; Set current room to 0, which is important as room 0 only has 
	; 2 objects, leaving 3 free for title screen text
	EnterRoom(0)
	
	; Loop drawing title screen until use presses space to play
	; or esc to quit
	Repeat
	
		If KeyHit(57) Then geGameState = STATE_PLAYING
		If KeyHit(1) Then geGameState = STATE_QUIT

		; Wait for next frame, then draw
		WaitTimer gFPSTimer
		Cls
		DrawRoom(gCurrentRoom)

		; Title screen text - 3 objects
		Color 255, 255, 255
		Text HALF_WIDTH, HALF_HEIGHT -100, "FLIGHT OF THE PIXEL", True, True
		Text HALF_WIDTH, HALF_HEIGHT, "Guide your little dot to the safety of the yellow screen", True, True
		Text HALF_WIDTH, HALF_HEIGHT+20, "Left and Right cursors to move, Up cursor to thrust. Press Space to play", True, True
	
		Flip
	
	Until geGameState <> STATE_TITLE
	
	; Prepare for a new game
	If geGameState = STATE_PLAYING Then 
		InitGame()
	EndIf
	
End Function

; InitGame() - set up for new game
Function InitGame()
	Delete Each tPlayerData
	gPlayer = New tPlayerData
	gPlayer\x = HALF_WIDTH
	gPlayer\y = HALF_HEIGHT
	gPlayer\dx = 0
	gPlayer\dy = 0
	EnterRoom(0)
	MoveMouse HALF_WIDTH, HALF_HEIGHT
	gStartTime = MilliSecs()
End Function

; PlayGame() - play a single frame of the game
Function PlayGame()

	Local pixel

	; Get input and update player
	UpdatePlayer()
	
	; Wait for next frame, then draw
	WaitTimer gFPSTimer
	Cls
	DrawRoom(gCurrentRoom)

	; Grab the colour of the pixel underneath the player now, before we draw him
	pixel = ReadPixel(gPlayer\x, gPlayer\y, BackBuffer())
	
	Color 255, 255,255
	Oval gPlayer\x-2, gPlayer\y-2, 4, 4, True
	Flip

	; Perform collision checks using the colour we grabbed earlier
	If CollisionCheck(gPlayer\x, gPlayer\y, pixel) Then 
		geGameState = STATE_GAMEOVER
	ElseIf (gCurrentRoom = gNumRooms - 1) And (gPlayer\x > 52) Then
		; Made it into the final room
		geGameState = STATE_WON
	EndIf

	If KeyHit(1) Then geGameState = STATE_QUIT

End Function

; GameOver() - do the explosion when the player dies and then
; display game over message and wait till player  presses space
Function GameOver()

	Local exploSize# = 1

	Repeat
		If exploSize < EXPLO_MAXSIZE Then
			exploSize = exploSize + EXPLO_GROWTH
		EndIf
		If KeyHit(57) Then geGameState = STATE_TITLE
		If KeyHit(1) Then geGameState = STATE_QUIT

		; Wait for next frame, then draw
		WaitTimer gFPSTimer
		Cls
		DrawRoom(gCurrentRoom)
		If exploSize < EXPLO_MAXSIZE Then
			Color 255, 0, 0: Oval gPlayer\x-exploSize, gPlayer\y-exploSize, exploSize*2, exploSize*2, True
		Else
			Color 255, 0, 0: Text HALF_WIDTH, HALF_HEIGHT, "GAME OVER - PRESS SPACE TO PLAY AGAIN", True, True
		EndIf
		Flip

	Until geGameState <> STATE_GAMEOVER

End Function

; WinGame() - Display "Well Done" message if player makes it to final screen
Function WinGame()
	
	; Calculate final time
	TimeTaken# = (MilliSecs() - gStartTime) / 1000.0
	
	Repeat
	
		If KeyHit(57) Then geGameState = STATE_TITLE
		If KeyHit(1) Then geGameState = STATE_QUIT

		; Wait for next frame, then draw
		WaitTimer gFPSTimer
		Cls
		DrawRoom(gCurrentRoom)

		; Title screen text - 3 objects
		Color 255, 255, 255
		Text HALF_WIDTH, HALF_HEIGHT - 100, "WELL DONE - YOU MADE IT!!", True, True
		Text HALF_WIDTH, HALF_HEIGHT, "Time taken: " + Str(TimeTaken) + " seconds.", True, True
		Text HALF_WIDTH, HALF_HEIGHT+50, "Press Space to Play or Esc to Quit", True, True
	
		Flip
	
	Until geGameState <> STATE_WON
	
End Function

; CollisionCheck() - detect if pixel at x,y is wall or floor
Function CollisionCheck(x#, y#, pixelColour)

	Local bHit = False
	Local r,g,b

	; Get the red, green and blue components of the colour
	r = pixelColour Shr 16 And 255
	g = pixelColour Shr 8 And 255
	b = pixelColour And 255
	
	; If r,g,b are all zero then OK - floor tile
	; Otherwise it's a wall tile
	If r+g+b = 0 Then
		bHit = False
	Else
		bHit = True
	EndIf
		
	Return bHit

End Function

; UpdatePlayer() - get player input and update their position on screen
Function UpdatePlayer()

	; Get keypresses and update dx/dy accordingly
	If KeyDown(205) Then
		gPlayer\dx = gPlayer\dx + ACCELERATION
	ElseIf KeyDown(203) Then
		gPlayer\dx = gPlayer\dx - ACCELERATION
	EndIf
	
	If KeyDown(200) Then
		gPlayer\dy = gPlayer\dy - ACCELERATION
	Else
		; If player is not pressing Up, apply gravity
		gPlayer\dy = gPlayer\dy + GRAVITY
	EndIf

	; Apply friction to horizontal movement
	If gPlayer\dx > 0 Then
		gPlayer\dx = gPlayer\dx - FRICTION
		If gPlayer\dx < 0 Then gPlayer\dx = 0
	ElseIf gPlayer\dx < 0 Then
		gPlayer\dx = gPlayer\dx + FRICTION
		If gPlayer\dx > 0 Then gPlayer\dx = 0
	EndIf

	; Prevent speed from going too high
	If gPlayer\dx > MAX_SPEED Then 
		gPlayer\dx = MAX_SPEED
	ElseIf gPlayer\dx < -MAX_SPEED Then 
		gPlayer\dx = -MAX_SPEED
	EndIf
	If gPlayer\dy > MAX_SPEED Then 
		gPlayer\dy = MAX_SPEED
	ElseIf gPlayer\dy < -MAX_SPEED Then 
		gPlayer\dy = -MAX_SPEED
	EndIf

	; Update player coordinates
	gPlayer\x = gPlayer\x + gPlayer\dx
	gPlayer\y = gPlayer\y + gPlayer\dy
	
	; Check for wrap around screen on left and right
	; and update the current room
	If gPlayer\x < 0 Then 
		If gCurrentRoom > 0 Then
			gPlayer\x = SCREEN_WIDTH
			EnterRoom(gCurrentRoom - 1)
		EndIf
	ElseIf gPlayer\x > SCREEN_WIDTH Then 
		If gCurrentRoom < gNumRooms - 1 Then
			gPlayer\x = 0
			EnterRoom(gCurrentRoom + 1)
		EndIf
	EndIf
	
End Function

; EnterRoom() - set globals and cls colour upon entering a room
Function EnterRoom(iRoom)
	gCurrentRoom = iRoom
	ClsColor gaRooms(iRoom)\r, gaRooms(iRoom)\g, gaRooms(iRoom)\b
End Function

; DrawRoom() - draws the specified room objects
; Note - assumes CLS has already been called.
Function DrawRoom(iRoom)
	Local iCtr
	Local ob.tObjectData
	For iCtr = 0 To gaRooms(iRoom)\NumObjects - 1
		ob = gaRooms(iRoom)\Objects[iCtr]
		Color ob\r, ob\g, ob\b
		Select ob\ObType
			Case OBJ_RECT
				Rect ob\x, ob\y, ob\w, ob\h, True
			Case OBJ_OVAL
				Oval ob\x, ob\y, ob\w, ob\h, True
		End Select
	Next
End Function

; InitRooms() - Initialise rooms array
Function InitRooms()

	Local nRooms, iRoom, nObjects, iObject
	Local rm.tRoomData
	Local ob.tObjectData
	Local bWall

	Delete Each tObjectData
	Delete Each tRoomData

	Restore ROOM_DATA
	Read gNumRooms
	Dim gaRooms.tRoomData(gNumRooms - 1)
	For iRoom = 0 To gNumRooms - 1
		rm = New tRoomData
		
		rm = New tRoomData
		rm\id = iRoom
		Read rm\r, rm\g, rm\b

		Read rm\NumObjects
		For iObject = 0 To rm\NumObjects - 1
			ob = New tObjectData
			Read ob\ObType, bWall
			Read ob\x, ob\y, ob\w, ob\h
			If bWall Then
				ob\r = rm\r: ob\g = rm\g: ob\b = rm\b
			Else
				ob\r = 0: ob\g = 0: ob\b = 0
			EndIf
			rm\Objects[iObject] = ob
		Next
		
		gaRooms(iRoom) = rm
	Next
End Function

.ROOM_DATA
Data 7
; ROOM 0 - start room
Data 0, 200, 0
Data 2
Data OBJ_RECT, 0, 50, 50, SCREEN_WIDTH-100, SCREEN_HEIGHT-100
Data OBJ_RECT, 0, SCREEN_WIDTH-100, HALF_HEIGHT-50, 100, 100
; ROOM 1 
Data 128, 0, 128
Data 3
Data OBJ_RECT, 0, 0, HALF_HEIGHT-50, SCREEN_WIDTH, 100
Data OBJ_RECT, 0, 100, 100, SCREEN_WIDTH-200, SCREEN_HEIGHT-200
Data OBJ_OVAL, 1, HALF_WIDTH-100, HALF_HEIGHT-100, 200, 200
; ROOM 2
Data 0, 50, 200
Data 3
Data OBJ_RECT, 0, 0, HALF_HEIGHT-50, HALF_WIDTH, 100
Data OBJ_RECT, 0, HALF_WIDTH-50, 50, HALF_WIDTH+50, SCREEN_HEIGHT-100
Data OBJ_RECT, 1, HALF_WIDTH + 50, 100, HALF_WIDTH, SCREEN_HEIGHT-200
; ROOM 3
Data 20, 100, 20
Data 3
Data OBJ_OVAL, 0, -500, 50, 1000, SCREEN_HEIGHT-100
Data OBJ_RECT, 0, HALF_WIDTH, HALF_HEIGHT-25, HALF_WIDTH, 50
Data OBJ_OVAL, 1, -450, 100, 900, SCREEN_HEIGHT-200
; ROOM 4
Data 50, 200, 200
Data 3
Data OBJ_RECT, 0, 0, HALF_HEIGHT-25, SCREEN_WIDTH, 50
Data OBJ_RECT, 0, HALF_WIDTH/2, 50, HALF_WIDTH, HALF_HEIGHT-75
Data OBJ_RECT, 1, (HALF_WIDTH/2)+50, 100, HALF_WIDTH-100, HALF_HEIGHT-75
; ROOM 5
Data 200, 150, 150
Data 3
Data OBJ_RECT, 0, 0, HALF_HEIGHT-25, SCREEN_WIDTH, 50
Data OBJ_OVAL, 0, HALF_WIDTH-(HALF_HEIGHT-50), 50, SCREEN_HEIGHT-100, SCREEN_HEIGHT-100
Data OBJ_OVAL, 1, HALF_WIDTH-(HALF_HEIGHT-100), 100, SCREEN_HEIGHT-200, SCREEN_HEIGHT-200
; Last room
Data 200, 200, 0
Data 2
Data OBJ_RECT, 0, 50, 50, SCREEN_WIDTH-100, SCREEN_HEIGHT-100
Data OBJ_RECT, 0, 0, HALF_HEIGHT-25, 100, 50
; End of room data