WM009 - Blocks - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|580\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> WM009 - Blocks
Tue, 20 May 2008, 17:23
Jayenkai	Workshop Monthly #009 : Blocks Time until Deadline Month : 21 May 2008 to 18 June 2008 The Reason : Another nice simple idea The Challenge : Make a good old falling blocks game! And, feel free to use things other than plain blocks! Standard Rules The rules are pretty much the same as a standard workshop, except you have a bit longer! This workshop closes on June 18th, 00:00 GMT. (That's so that we can start a fresh one on a Wednesday!) Entries should be posted as Showcases, then noted in the forum below. -=-=- ''Load, Next List!''
Tue, 20 May 2008, 18:43
Orion Pax	Sweet! I think I am going to take the month off from my game and work on a workshop. My first one. Gonna be a real challenge JUST to try and not do a tetris clone. So when you say "OTHER THAN PLAIN BLOCKS", your talking about???
Tue, 20 May 2008, 23:18
Jayenkai	Letters, numbers, avatars, pictures of llamas, pictures of chocolates, and whatever else you can think of. -=-=- ''Load, Next List!''
Wed, 21 May 2008, 07:56
Orion Pax	Ah ok...so as long as its a block you dont care HOW the block is drawn....kewl!
Wed, 21 May 2008, 10:43
Orion Pax	Ok I am having an issue here. Cant seem to think of something or get something working. This is harder than I thought. Especially in 2d. Could I do it in 3d with nothing but sprites? I can handle sprites...lol
Wed, 21 May 2008, 11:44
Jayenkai	blocks, crates, cubes, whatever!
Fri, 23 May 2008, 11:20
Forklift_Fred	As a starting point... I'm reminded of one of my "1 Hour Challenge" games back in December. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; One Hour Challenge ;; ;; ================== ;; ;; Take 2: Catch A Cold ;; ;; ;; ;; By Forklift_Fred ;; ;; For SoCodor's Wednesday Workshop ;; ;; #127 (28/11/07 - 04/12/07) ;; ;; Start - 19:15 ;; ;; Finish - 20:24 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "60 Minutes - Catch A Cold" Graphics 800,600,32,2 SetBuffer BackBuffer() Type letter Field x Field y Field speed Field letter Field red Field green Field blue End Type Global fntArial,fntArialB,fntArialI,fntArialU ; Load fonts to a file handle variables fntArial=LoadFont("Arial",24) fntArialB=LoadFont("Arial",18,True) fntArialI=LoadFont("Arial",32,False,True) fntArialU=LoadFont("Arial",14,False,False,True) SetFont fntArialB SeedRnd MilliSecs() t=MilliSecs() dt=t+1000 player=400 time=100 wt=101 While Not KeyHit(1) Cls If MilliSecs()>dt Then t=dt dt=t+1000 time=time-1 End If If t>wt Then wt=t-Rnd(0,5) letter.letter=New letter letter\x=Rnd(0,600) letter\y=0 letter\speed=Rnd(1,5) letter\letter=Rnd(65,90) letter\red=Rnd(10,245) letter\green=Rnd(10,245) letter\blue=Rnd(10,245) End If If KeyDown(203) Then player=player-3 If KeyDown(205) Then player=player+3 If player<0 Then player=0 If player>800 Then player=800 For letter.letter=Each letter letter\y=letter\y+letter\speed Color letter\red,letter\green,letter\blue Text letter\x,letter\y,Chr$(letter\letter),1,1 If letter\y=>590 Then If letter\x>player-(StringWidth("___")/2) And letter\x<player+(StringWidth("___")/2) Then score=score+1 If letter\letter=67 Then score=score+1 c=c+1 If c=10 Then c=9 Else If letter\letter=79 Then score=score+1 o=o+1 If o=10 Then o=9 Else If letter\letter=76 Then score=score+1 l=l+1 If l=10 Then l=9 Else If letter\letter=68 Then score=score+1 d=d+1 If d=10 Then d=9 End If If c>0 And o>0 And l>0 And d>0 Then c=c-1 o=o-1 l=l-1 d=d-1 score=score+1000 colds=colds+1 End If lastletter=letter\letter Delete letter End If End If Next Color 255,255,255 Text player,590,"___",1,1 Color 180,200,255 Rect 0,0,800,22,1 Color 0,0,0 Text 3,3,time Text 793-StringWidth(RSet(score,4)),3,RSet(score,4) Color 0,0,255 If c>0 Then Text 120,3,"C" If o>0 Then Text 130,3,"O" If l>0 Then Text 140,3,"L" If d>0 Then Text 150,3,"D" Color 255,255,255 Text 120,20,c Text 130,20,o Text 140,20,l Text 150,20,d Color 255,0,0 Text 400,3,"Last letter caught : "+Chr$(lastletter),1,0 If time=0 Then Color 180,200,255 Rect 300,250,200,140 Color 255,0,0 Text 400,280,"GAME OVER",1,1 Text 400,305,"Your Score : "+score,1,1 Text 400,330,"Colds Caught : "+colds,1,1 Text 400,360,"Press Enter To Play Again",1,1 Flip FlushKeys() While Not KeyDown(28) Wend time=100 For letter.letter=Each letter Delete letter Next score=0 c=0 o=0 l=0 d=0 colds=0 End If Flip Wend End --v I can't enter this again, obviously, but if anyone wants to build on the idea or just see be inspired by a non-tetris based game then feel free. I may or may not get a chance to do it myself! Does anybody remember "Headbangers Heaven" on the Spectrum? A re-make of that could count as well I guess? -=-=- Come rain or shine...