Wednesday Workshop

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

GB Pong

by Homieskillet12 for Workshop #023

Please remember this is one of his first games ever.

Cursors and Space

AppTitle"GameBoy Pong!"
Global scrw=160
Global scrh=144
Global Scheme=3

Graphics scrw,scrh,16,3
SetBuffer BackBuffer()

Dim GBCol(3,3,3)
Gosub SetupCols
CLSCol(0)

font=LoadFont("Arial",14,1)
SetFont font

.Reset
Global PX = 5, PY# = 5, PS = 0, P2X = 150, P2Y# = 5, P2S = 0
Global BXVel#, BYVel#, BX# = 80, BY# = 72
Global PB = 0, PD = -1

If Rand(0, 1) = 0 Then BXVel = -1.5 Else BXVel = 1.5
If Rand(0, 1) = 0 Then BYVel = -1.5 Else BYVel = 1.5

CLSCol(3)
Cls
Col 0
Text (scrw / 2) - (StringWidth("PONG!") / 2), 20, "PONG!"
Text (scrw / 2) - (StringWidth(":INSTRUCTIONS:") / 2), 40, ":INSTRUCTIONS:"
Text (scrw / 2) - (StringWidth("UP/DOWN to move paddle") / 2), 54, "UP/DOWN to move paddle"
Text (scrw / 2) - (StringWidth( "Press any key to start") / 2), 96, "Press any key to start"
Flip
WaitKey


GameTime = CreateTimer(60)
Repeat
CLSCol(3)
Cls
Col(0)

; Ball
Col 0: Oval BX, BY, 5, 5, 1

; Player 1
Col 0: Rect PX, PY, 5, 20, 1
If PS = 0 Then Rect PX, PY, 5, 20 ElseIf PS >= 2 Then Rect PX, PY, 5, 25
If PS = 2 And showTime1 = 0 Then showTime1 = MilliSecs()

If showTime1 <> 0 And MilliSecs() <= showTime1 + 1500 Text (scrw / 2) - (StringWidth("P1 paddle up!") / 2), 40, "P1 paddle up!"


;player2
Col 0: Rect P2X, P2Y, 5, 20, 1
If P2S = 0 Then Rect P2X, P2Y, 5, 20 ElseIf P2S >= 2 Then Rect P2X, P2Y, 5, 25
If P2S = 2 And showTime2 = 0 Then showTime2 = MilliSecs()

If showTime2 <> 0 And MilliSecs() <= showTime2 + 1500 Then Text (scrw / 2) - (StringWidth("CPU paddle up!") / 2), 40, "CPU paddle up!"


;Stats
If Len(Str(PS)) = 2 Then tmp = -6 Else tmp = 0
Col 0: Text 66 + tmp, 5, PS
Text 86, 5, P2S

If BY <= 3 Then BYVel = Abs(BYVel)
If BY >= 135 Then BYVel = -Abs(BYVel)

If PS >= 2 Then tmpH = 25 Else tmpH = 20
If P2S >= 2 Then tmpH2 = 25 Else tmpH2 = 20
If RectsOverlap(PX, PY, 5, tmpH, BX, BY, 5, 5) Then
	BXVel = Abs(BXVel)
	BXVel = Abs(BXVel)
ElseIf RectsOverlap(P2X, P2Y, 5, tmpH2, BX, BY, 5, 5) Then
	BXVel = -Abs(BXVel)
	BXVel = -Abs(BXVel)
EndIf

BX = BX + BXVel
BY = BY + BYVel

If PD = 1 Then PB = PB + 1
If PD = 0 Then PB = PB - 1

If PB >= 10 Then PD = 0
If PB <= 0 And PD = 0 Then PD = -1



If KeyDown(208) And PY < 119 Then PY = PY + 2
If KeyDown(200) And PY > 5 Then PY = PY - 2
If KeyHit(57) And PD = -1 And PB = 0 Then PD = 1

If BX > 160 Then PS = PS + 1
If BX < -10 Then P2S = P2S + 1

If BX > 160 Or BX < -10 Then
	BX = 80: BY = 72
	Col 0: Oval BX, BY, 5, 5, 1
	Flip
	waitTime = MilliSecs(): Repeat: Until MilliSecs() >= waitTime + 500

	If Rand(0, 1) = 0 Then BXVel = -1.5 Else BXVel = 1.5
	If Rand(0, 1) = 0 Then BYVel = -1.5 Else BYVel = 1.5
EndIf


If BX > 80 Then
	If BY > P2Y + 20 And P2Y < 119 Then P2Y = P2Y + 1
	If BY < P2Y And P2Y > 5 Then P2Y = P2Y - 1
EndIf

; Game Over
If PS >= 4 Or P2S >= 4 Then
FlushKeys
Col 0
Cls
If PS >= 4 Then Text 58, 20, "You win!" ElseIf P2S >= 4 Then Text 58, 20, "You lost!"
Text 5, 50, "Press any key to play again"
Flip
WaitKey()
FlushKeys
Goto Reset
EndIf

WaitTimer GameTime
Flip 1
Until KeyDown(1)


End

Function CLSCol(c)
ClsColor GBCol(c,1,Scheme),GBCol(c,2,Scheme),GBCol(c,3,Scheme)
End Function

Function Col(c)
Color GBCol(c,1,Scheme),GBCol(c,2,Scheme),GBCol(c,3,Scheme)
End Function






.setupcols
For n=0 To 3
For c=0 To 3
Read GBCol(c,1,n),GBCol(c,2,n),GBCol(c,3,n)
Next
Next

;Grey
Data 0,0,0
Data 90,90,90
Data 165,165,165
Data 255,255,255

;Green
Data 16,63,16
Data 48,100,48
Data 140,170,20
Data 156,185,22

;Yellow
Data 74,57,24
Data 156,123,57
Data 222,181,90
Data 255,231,140

;Bluey-Green
Data 8,24,33
Data 49,107,82
Data 140,198,115
Data 231,255,214