Wednesday Workshop - Socoder

Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|658\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #023 (16 Nov 2005) The Gameboy Challenge This week, you're stuck in a tiny screen!

Greenie's Gameboy Adventure by Jayenkai for Workshop #023 Hunt down Mr Duck, then kill him. WASD/Cursors - Movement<br>K/X - Action Button<br>J/Z - Inventory (hold, use left+right, then Action)<br>L/C - Start/Pause Click to download this entry

GB Breakout by dijster for Workshop #023 There are 10 levels in all. Left Arrow Key - Goes Left<br>Right Arrow Key - Goes Right<br>Space Bar - Releases the ball<br>Escape Key - Quits the game Click to download this entry

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

CodoMasters by huruey for Workshop #023 Here is the incomplete version. The graphics took quite a while, and you don't even see some of them in this game Cursors and Space. Return to start. Click to download this entry

Maria by cermit for Workshop #023 Trap the cows that have developed Mushroomcancer. Cursors, Z to Jump, X to drop/pickup traps. Click to download this entry

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.093

Wednesday Workshop - Socoder