Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|530\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #125 (07 Nov 2007) The 3 Hour Challenge 2 Give yourself a 3 hour deadline, and make the best game you can.

Advanced Type-In Simulator by Jayenkai for Workshop #125 Type in the Type In Keyboard (Cursors to scroll Magazine) Click to download this entry

The Random Game with Boxes by mole for Workshop #125 Shoot the boxes Mouse ;3 hour game ;Time limit: 3 hours ;Start time: 5:00 ;I should stop wasting time commenting. ;This is going to be a "strem of consciousness game, i.e I'm writing random commands and seeing what it turns out. ;////////////////// ;Start time: 17:00 ;End time: 18:46 ;Time elapsed: 1:46 ;////////////////// Const grx = 800, gry = 600 Const ENTER = 28 Const SPACE = 57 Graphics grx,gry,16,2 SetBuffer(BackBuffer()) SeedRnd(MilliSecs()) Type box ;Boxes are useful. My game shall have many. Field x,y,sx,sy ;position and dimensions Field dx,dy Field r,g,b Field alive Field image End Type Type player ;cant go without a player! Field x,y Field score Field lives Field alive End Type Type particle ;Yay! Colours! Field x,y,dx#,dy#,dv# Field r,g,b Field alive End Type Global p.player = New player p\x = grx/2 p\y = gry/2 p\score = 0 p\lives = 3 p\alive = 1 Global b.box Global part.particle Global NewEnemyTimer = MilliSecs() Global mh1 = MouseHit(1) Global mh2 = MouseHit(2) Global gravity# = 3 Global Bgimage = CreateBackground(grx,gry,255,40,40) Global intro = FadedImage(1) Global game = FadedImage(2) Global die = FadedImage(3) Global instructions = FadedImage(4) SetBuffer(BackBuffer()) While Not KeyHit(ENTER) ;title screen! Cls Title() Flip Wend ShowPointer() While Not KeyDown(1) Cls DrawImage(game,0,0) mh1 = MouseHit(1) mh2 = MouseHit(2) UpdatePlayer() HandleMouse() UpdateBoxes() If MilliSecs() > NewEnemyTimer+Rand(2000,2750) CreateBox(Rand(1,3)) NewEnemyTimer = MilliSecs() EndIf DrawHUD() UpdateParticles() Flip Wend Function Title() DrawImage(intro,0,0) Text grx.5,gry.3,"THE RANDOM GAME WITH BOXES",1,1 Text grx.5,gry.55,"Hit ENTER to start",1,1 Text grx.5,gry.55+(FontHeight()+10),"Hit ESC to exit",1,1 Text grx.5,gry.8,"Hold down SPACE to see the instructions",1,1 If KeyHit(1) Then End While KeyDown(SPACE) Cls DrawImage(instructions,0,0) Text grx.5,gry.3,"THE RANDOM GAME WITH BOXES",1,1 Text grx.5,gry.4,"In this epic game of epic proportions, you must kill the onslaught",1,1 Text grx.5,(gry.4)+(FontHeight()+2),"of boxes by clicking on them. With the mouse. Simple.",1,1 Text grx.5,(gry.4)+(FontHeight()2+2),"To exit, hit ESC.",1,1 Flip Wend End Function Function UpdatePlayer() If p\alive = 1 p\x = MouseX() p\y = MouseY() If p\lives <=0 Then p\alive = 0 Else Dead() EndIf End Function Function HandleMouse() For b.box = Each box If b\alive = 1 If BoxClicked(p\x,p\y,1,1,b\x,b\y,b\sx,b\sy) = True Then ParticleExplosion(10,b\x+(b\sx/2),b\y+(b\sy/2)) b\alive = 0 p\score = p\score + 10 EndIf EndIf Next End Function Function BoxClicked(x1,y1,width1,height1,x2,y2,width2,height2) If x1 > x2 And x1 < (x2+width2) And y1 > y2 And y1 < (y2+height2) And mh1 Then Return True Else Return False EndIf End Function Function CreateBox(num%) For i = 0 To num%-1 b.box = New box b\x = Rand(0,700) b\y = -15 b\sx = Rand(20,60) b\sy = Rand(20,60) b\dx = Rand(-2,2) b\dy = Rand(2,4) b\r = Rand(20,255) b\g = Rand(20,255) b\b = Rand(20,255) b\alive = 1 b\image = CreateBlockImage(b\sx,b\sy,Rand(20,255),Rand(20,255),Rand(20,255)) SetBuffer(BackBuffer()) Next End Function Function UpdateBoxes() For b.box = Each box If b\alive = 1 b\x = b\x + b\dx b\y = b\y + b\dy If b\x+b\sx > grx Then b\dx = -b\dx If b\x < 0 Then b\dx = -b\dx If b\y+sy > gry Then p\lives = p\lives - 1 b\alive = 0 EndIf Color b\r,b\g,b\b Rect b\x,b\y,b\sx,b\sy,1 Else Delete b EndIf Next End Function Function Dead() While Not KeyHit(1) Cls DrawImage(die,0,0) Color 255,255,255 Text grx.5,gry.2,"Oh noes!1!!1! You did not stop all of the boxes. Well, now they are going to",1,1 Text grx.5,(gry.2)+(FontHeight()+2),"take over the world, or something equally evil.",1,1 Text grx.5,gry.4,"By the way, you scored a whopping "+p\score+".",1,1 Flip Wend End Function Function DrawHUD() Color 255,255,255 Text 2,2,"Lives: "+p\lives Text 500,2,"Score "+p\score End Function ; Functions for image independence Function CreateBackground ( SizeX , SizeY,r,g,b ) Image = CreateImage ( SizeX , SizeY ) SetBuffer ImageBuffer ( Image ) For x = 0 To SizeX/2-1 c = (x191/(SizeX/2)+64) Color c2/3 , c3/8 , c y = Float (xSizeY)/((SizeX2)+Sin(x)) Rect x , y , (SizeX-x2) , (SizeY-y2) , True Next Return Image End Function Function ParticleExplosion(num%,x,y) For i = 0 To num3 part.particle = New particle part\x = x part\y = y part\dx# = Cos(angle) part\dy# = Sin(angle) part\dv# = Rand(1,3) part\alive = 1 part\r = Rand(100,255) part\g = Rand(100,255) part\b = 0 angle = angle+(360/num) Next End Function Function UpdateParticles() For part.particle = Each particle If part\alive = 1 Then Color part\r,part\g,part\b part\x = part\x + (part\dx part\dv) part\y = part\y + (part\dy * part\dv) part\dy# = part\dy# + .1 ;Plot part\x,part\y Rect part\x,part\y,5,5,1 Else Delete part EndIf Next End Function Function FadedImage(style) image = CreateImage(grx,gry) SetBuffer(ImageBuffer(image)) For lines = 0 To gry-1 Select style Case 1 r = (lines/3) Color r,0,0 Case 2 g = (lines/3) Color 0,g,0 Case 3 bl = (lines/3) Color 0,0,bl Case 4 r = lines/3 g = lines/3 bl = lines/3 Color r,g,bl End Select Line 0,lines,grx,lines Next Return image SetBuffer(BackBuffer()) End Function Function CreateBlockImage ( SizeX , SizeY,r,g,b ) Image = CreateImage ( SizeX , SizeY ) SetBuffer ImageBuffer ( Image ) Color r , g , b Rect 0 , 0 , SizeX , SizeY , True Color r2 , g2 , b*2 Line 0 , 0 , SizeX-2 , 0 Line 0 , 0 , 0 , SizeY-2 Color r/2 , g/2, b/2 Line 0 , SizeY-1 , SizeX-1 , SizeY-1 Line SizeX-1 , 0 , SizeX-1 , SizeY-1 Color 255 , 255 , 255 Plot 0 , 0 Return Image End Function

Something in Gambas by HoboBen for Workshop #125 It's basically Pong with slightly different controls. To download, Either get the <a href="https://www.tophatstuff.co.uk/packages/ww/125/ww125-0.0.3.tar.gz">Sourcecode</a> or the <a href="https://www.tophatstuff.co.uk/packages/ww/125/ww125">Compiled version</a> Slightly different to Pong

Shitty Lunar Lander by magicman for Workshop #125 Try not to smash into the floor too fast. Cursors ;Started 7:44 ;finished 8:16 ;Time to make, 32 minutes AppTitle "SHITTY LUNAR LANDER!" Graphics 800,600,16,2 AutoMidHandle True Type part Field x#,y#,xv#,yv#,c End Type Global x# = 400 Global y# = 50 Global xv# = 0 Global yv# = 0 Global gravity# = .1 ship = CreateImage(20,30) SetBuffer ImageBuffer(ship) Color 255,255,255 Rect 0,0,20,30,0 Global numpoints Global newgame = 0 SetBuffer BackBuffer() While Not KeyDown(1) Cls If newgame = 0 ;createscape() newgame = 1 EndIf If KeyDown(200) yv = yv - .15 If KeyDown(203) xv = xv -.05 If KeyDown(205) xv = xv + .05 If y > 535 If yv > 1 crash = True If yv =< 1 crash = False land = True EndIf If land = True If crash = False yv = 0 Text 300,300,"YOU LANDED! PLAY AGAIN? Y/N" Else For i = 0 To 36 p.part = New part p\x = x p\y = y p\xv = Cos(angle)3 p\yv = Sin(angle)3 p\c = 255 angle = angle + 10 Next y = -2555 yv = 0 Text 300,300,"YOU CRASHED! PLAY AGAIN? Y/N" EndIf If KeyHit(21) y = 50 x = 400 xv = 0 yv = 0 land = False EndIf If KeyHit(49) End EndIf DrawImage ship,x,y x =x + xv y = y + yv yv = yv + gravity Color 255,255,255 Line 0,550,800,550 For p.part = Each part Color p\c,p\c,p\c Rect p\x,p\y,12,12,0 p\x = p\x + p\xv p\y = p\y + p\yv p\c = p\c - 1 If p\c < 0 Delete p Next Delay 1 Flip Wend End Function createscape() numpoints = Rnd(3,8) pox = 0 poy = Rnd(400,600) For i = 0 To numpoints px = Rnd(50,100)+pox py = Rnd(400,600) Color 255,255,255 Line pox,poy,px,py pox = px poy = py Next End Function

Make It Blue by Phoenix for Workshop #125 Turn the light blue squares Dark, by guiding the Orange square around. The Green squares stop your movement. Cursors ; --------------------------------- ; ; Made by Phoenix, 18/11 -07, 13:51-15:29 ; 1 hour and 38 minutes ; ; --------------------------------- ; ; Use the arrow keys to move the orange dot. ; Green tiles prevents sliding, ; however there are only a few on every level. ; As you move, the board will change color. ; Your goal is to fill the entire level with dark blue, ; and if you think you're lost just press space to reset. ; Sometimes when you have beaten a level, nothing happens. ; If that happens, don't call 911 - relax instead. ; Just push one of the arrow keys and pray to god that it will work (if you're religious) ; ; Beat all six levels to view the ultra-cool ending screen! ; But whatever you do, don't cheat! All levels are possible. ; ; --------------------------------- Graphics 256,256,0,2 SetBuffer(BackBuffer()) SeedRnd(MilliSecs()) Global pX,pY Dim map(8,8) timer = CreateTimer(50) Global stopped = 0 Global move = 0 Global xmod = 0 Global ymod = 0 Global level = 0 ; One less than the actual level, since we increase it in NextLevel() NextLevel() While(Not KeyHit(1)) WaitTimer(timer) done = True For x = 0 To 7 For y = 0 To 7 Select(map(x,y)) Case 0 Color 60,120,200 : done = False Case 1 Color 60,60,60 Case 2 Color 40,100,180 Case 3 Color 60,200,120 End Select Rect x32,y32,32,32 Next Next If(done) Color(255,255,255) Cls Text 128,128,"Well done! You beat level "+level,1,1 Flip Delay 2000 NextLevel() EndIf If(KeyHit(57)) Then level=level-1 NextLevel() If(map(pX,pY)=3 And stopped=0) Then move=0 : stopped = 1 If(KeyHit(200) And move=0) Then move = 1 If(KeyHit(205) And move=0) Then move = 2 If(KeyHit(208) And move=0) Then move = 3 If(KeyHit(203) And move=0) Then move = 4 Select(move) Case 1 If(map(pX,pY-1)=1) move = 0 Else ymod = ymod - 8 If(Abs(ymod)=32) If(map(pX,pY)=2 Or map(pX,pY) = 0) Then map(pX,pY) = Abs(map(pX,pY)-2) pY=pY-1 ymod=0 stopped=0 EndIf EndIf Case 2 If(map(pX+1,pY)=1) move = 0 Else xmod = xmod + 8 If(Abs(xmod)=32) If(map(pX,pY)=2 Or map(pX,pY) = 0) Then map(pX,pY) = Abs(map(pX,pY)-2) pX=pX+1 xmod=0 stopped=0 EndIf EndIf Case 3 If(map(pX,pY+1)=1) move = 0 Else ymod = ymod + 8 If(Abs(ymod)=32) If(map(pX,pY)=2 Or map(pX,pY) = 0) Then map(pX,pY) = Abs(map(pX,pY)-2) pY=pY+1 ymod=0 stopped=0 EndIf EndIf Case 4 If(map(pX-1,pY)=1) move = 0 Else xmod = xmod - 8 If(Abs(xmod)=32) If(map(pX,pY)=2 Or map(pX,pY) = 0) Then map(pX,pY) = Abs(map(pX,pY)-2) pX=pX-1 xmod=0 stopped=0 EndIf EndIf End Select Color 200,120,60 Rect pX32+xmod, pY32+ymod,32,32 Flip Cls Wend End Function NextLevel() level = level + 1 xmod = 0 ymod = 0 stopped = 0 move = 0 Select(level) Case 1 Restore level1 Case 2 Restore level2 Case 3 Restore level3 Case 4 Restore level4 Case 5 Restore level5 Case 6 Restore level6 Case 7 Color 255,255,255 SetFont(LoadFont("Arial",18)) While(Not KeyHit(1)) a=a+1 If(Rand(10)=1) For i = 0 To 360 Step 10 p.particle = New particle p\x = Rand(64,192) p\y = Rand(64,192) p\c = Rand($FFFFFF) p\a = i Next EndIf For p.particle = Each particle p\x=p\x+Sin(p\a)5 p\y=p\y+Cos(p\a)5 WritePixel p\x, p\y, p\c If(p\x>256 Or p\x<0 Or p\y>256 Or p\y<0) Then Delete p Next Text Sin(a)*25+128,128,"You won! Congratulations!",1,1 Flip Cls Wend End End Select Read pX Read pY For y = 0 To 7 For x = 0 To 7 Read map(x,y) Next Next End Function Type particle Field x,y,c,a End Type .level1 Data 2,2 Data 1,1,1,1,1,1,1,1 Data 1,1,1,1,1,1,1,1 Data 1,1,0,0,0,0,1,1 Data 1,1,1,1,1,0,1,1 Data 1,1,1,0,0,3,1,1 Data 1,1,0,0,0,0,1,1 Data 1,1,1,1,1,1,1,1 Data 1,1,1,1,1,1,1,1 .level2 Data 2,5 Data 1,1,1,1,1,1,1,1 Data 1,1,1,1,1,1,1,1 Data 1,1,0,0,1,0,1,1 Data 1,1,3,0,0,0,1,1 Data 1,1,0,1,0,3,1,1 Data 1,1,0,1,0,0,1,1 Data 1,1,1,1,1,1,1,1 Data 1,1,1,1,1,1,1,1 .level3 Data 5,3 Data 1,1,1,1,1,1,1,1 Data 1,1,0,0,0,0,1,1 Data 1,1,0,1,1,0,0,1 Data 1,1,0,1,0,3,0,1 Data 1,0,0,1,0,0,1,1 Data 1,0,0,0,0,0,1,1 Data 1,1,1,1,0,0,1,1 Data 1,1,1,1,1,1,1,1 .level4 Data 3,3 Data 1,1,1,1,1,1,1,1 Data 1,1,1,1,1,1,1,1 Data 1,1,1,1,1,1,1,1 Data 1,2,2,2,1,1,1,1 Data 1,2,1,2,1,1,1,1 Data 1,2,1,3,2,2,0,1 Data 1,2,2,2,2,2,2,1 Data 1,1,1,1,1,1,1,1 .level5 Data 6,4 Data 1,1,1,1,1,1,1,1 Data 1,1,1,1,1,1,1,1 Data 1,1,1,0,0,0,0,1 Data 1,1,0,0,0,1,0,1 Data 1,1,0,0,3,0,0,1 Data 1,1,0,1,0,1,1,1 Data 1,1,0,0,0,1,1,1 Data 1,1,1,1,1,1,1,1 .level6 Data 4,2 Data 1,1,1,1,1,1,1,1 Data 1,1,1,1,1,1,1,1 Data 1,1,0,0,0,1,1,1 Data 1,1,0,1,3,0,0,1 Data 1,2,2,0,3,1,0,1 Data 1,2,1,1,0,1,0,1 Data 1,2,2,2,0,0,0,1 Data 1,1,1,1,1,1,1,1

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

Wednesday Workshop - Socoder