#127 - The 1 Hour Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|660\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #127 - The 1 Hour Challenge
Tue, 27 Nov 2007, 16:37
Jayenkai	Wednesday Workshop #127 : The 1 Hour Challenge Time until Deadline Week : 28 November 2007 The Reason : Don't pretend that you hadn't already guessed this one! The Challenge : One hour. That's all you get for this week's challenge! Is it possible to make a game in an hour? Guess we'll find out! (And no, next week won't be the 30 minute challenge! 3 of these is enough!) Extra Info Keep your eye on the time, and don't cheat As always, you can use pre-made gfx and sounds if you need. Weekly Rules/How to Enter You have until Tuesday Night/Wednesday Morning 00:00 BST to submit your levels. ^ See Deadline Link! ^ Wed.Workshop is at SoCoder.co.nr. If you can read this, you're probably already there! Stick your entry underneath this post, leaving a link to your zip or the source of your game, or whatever. (I really should get round to that Upload thing, shouldn't I!) If you can't figure it out, or have a really rubbish server, send it to Jayenkai@Gmail.com and I'll stick it straight onto the SoCoder (Official Wed.Workshop) site. Entries will be collected during the week, and then entered into the next week's voting. (If there are any entries..) Please try to keep all entries within small file sizes. 2Mb is the average maximum for files. Additional Rules are available at the SoCoder (Official Wed.Workshop) site, under the list of previous workshops. Last Week's Games Last week there were 3 entries! Mole kept the mouse moving, Tikihead kept the mouse moving and Prospero kept the mouse moving. Which one wins?! You can download them all at the Wednesday Workshop page. Make sure to comment and leave a vote! -=-=- ''Load, Next List!''
Wed, 28 Nov 2007, 09:43
mole	I have 2 essays and some business coursework in for friday/monday, so I think I will enter. "Mole kept the mouse moving, Tikihead kept the mouse moving and Prospero kept the mouse moving." LOL at that!
Wed, 28 Nov 2007, 13:42
Forklift_Fred	OK, Pretty much exactly 1 hour (though I had to look up a few command references first so I knew what I was doing) and it's not quite what it should be. Had I done this last night I could have had another hour and advanced further... ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; One Hour Challenge ;; ;; ================== ;; ;; ;; ;; By Forklift_Fred ;; ;; For SoCodor's Wednesday Workshop ;; ;; #127 (28/11/07 - 04/12/07) ;; ;; Start - 19:25 ;; ;; Finish - 20:25 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "60 Minutes" Graphics 800,600,32,2 SetBuffer BackBuffer() Global time=MilliSecs() Global rate=1000 Global advance=True Global score=0 SeedRnd MilliSecs() Type pixel Field x Field y Field age Field speed_x Field speed_y End Type Type clock Field x Field y Field direction Field rate Field prev End Type Cls Text GraphicsWidth()/2,(GraphicsHeight()/2)-30,"Use your mouse shield to catch the time leaks",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)-15,"Click to send a pulse but you must have enough power first",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)+30,"Click to start",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)+30,"______________",1,1 Flip WaitMouse Global start=MilliSecs() CreateClock() While Not KeyDown(1) Or MilliSecs()>start+60000 Cls If MilliSecs()=>time+(rate/3) Then time=MilliSecs() advance=True Else advance=False End If UpdateClocks() UpdatePixels() UpdateShield() Color 128,128,255 Text 10,10,score Flip Wend Color 255,0,0 Text GraphicsWidth()/2,(GraphicsHeight()/2)-15,"GAME OVER",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)-15,"_________",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2),"You scored "+score,1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)+30,"(Click to exit)",1,1 Flip WaitMouse() End Function UpdateShield() x=MouseX() y=MouseY() Color 255,128,128 Oval x-25,y-25,50,50,0 End Function Function CreateClock() clock.clock=New clock clock\x=Rnd(50,GraphicsWidth()-50) clock\y=Rnd(50,GraphicsHeight()-50) clock\direction=Rnd(360) clock\rate=Rnd(rate-200,rate+200) clock\prev=MilliSecs() End Function Function UpdateClocks() For clock.clock=Each clock clock\direction=clock\direction+1 If clock\direction=361 Then clock\direction=0 If MilliSecs()>clock\prev+clock\rate Then clock\prev=MilliSecs() SpawnPixel(clock\x,clock\y,clock\direction) End If Color 255,255,255 Oval clock\x-25,clock\y-25,50,50,1 Color 255,0,0 Line clock\x,clock\y,clock\x+Cos(clock\direction)25,clock\y+Sin(clock\direction)25 Next End Function Function UpdatePixels() For pixel.pixel=Each pixel pixel\x=pixel\x+pixel\speed_x pixel\y=pixel\y+pixel\speed_y If advance Then pixel\age=pixel\age-25 If pixel\age<=0 Then Delete pixel Else Color pixel\age,pixel\age,pixel\age Rect pixel\x,pixel\y,rate4/1000,rate4/1000 End If If Abs(pixel\x-MouseX())<50 And Abs(pixel\y-MouseY())<50 Then score=score+pixel\age Delete pixel MoveMouse(Rnd(25,GraphicsWidth()-25),Rnd(25,GraphicsHeight()-25)) End If Next End Function Function SpawnPixel(x,y,d) pixel.pixel=New pixel pixel\x=x+Cos(d)25 pixel\y=y+Sin(d)25 pixel\speed_x=(rateCos(d))/1000 pixel\speed_y=(rateSin(d))/1000 pixel\age=255 End Function --v Ignore the "pulse" idea because I didn't get to add it. You have a minute to catch as many pixels as you can, the quicker you catch them the higher their score. When you catch one though, your pointer will jump randomly for an extra edge of difficulty. I've been testing it and only had it crash once... Not sure why though, \|edit\| I've now identified the error and it's a silly little one. I'll leave my code here as it was but tell you that you need to add Exit in the UpdatePixels() function just after the first Delete pixel Correct function should read... I could have had another hour and advanced further... ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; One Hour Challenge ;; ;; ================== ;; ;; ;; ;; By Forklift_Fred ;; ;; For SoCodor's Wednesday Workshop ;; ;; #127 (28/11/07 - 04/12/07) ;; ;; Start - 19:25 ;; ;; Finish - 20:25 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "60 Minutes" Graphics 800,600,32,2 SetBuffer BackBuffer() Global time=MilliSecs() Global rate=1000 Global advance=True Global score=0 SeedRnd MilliSecs() Type pixel Field x Field y Field age Field speed_x Field speed_y End Type Type clock Field x Field y Field direction Field rate Field prev End Type Cls Text GraphicsWidth()/2,(GraphicsHeight()/2)-30,"Use your mouse shield to catch the time leaks",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)-15,"Click to send a pulse but you must have enough power first",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)+30,"Click to start",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)+30,"______________",1,1 Flip WaitMouse Global start=MilliSecs() CreateClock() While Not KeyDown(1) Or MilliSecs()>start+60000 Cls If MilliSecs()=>time+(rate/3) Then time=MilliSecs() advance=True Else advance=False End If UpdateClocks() UpdatePixels() UpdateShield() Color 128,128,255 Text 10,10,score Flip Wend Color 255,0,0 Text GraphicsWidth()/2,(GraphicsHeight()/2)-15,"GAME OVER",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)-15,"_________",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2),"You scored "+score,1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)+30,"(Click to exit)",1,1 Flip WaitMouse() End Function UpdateShield() x=MouseX() y=MouseY() Color 255,128,128 Oval x-25,y-25,50,50,0 End Function Function CreateClock() clock.clock=New clock clock\x=Rnd(50,GraphicsWidth()-50) clock\y=Rnd(50,GraphicsHeight()-50) clock\direction=Rnd(360) clock\rate=Rnd(rate-200,rate+200) clock\prev=MilliSecs() End Function Function UpdateClocks() For clock.clock=Each clock clock\direction=clock\direction+1 If clock\direction=361 Then clock\direction=0 If MilliSecs()>clock\prev+clock\rate Then clock\prev=MilliSecs() SpawnPixel(clock\x,clock\y,clock\direction) End If Color 255,255,255 Oval clock\x-25,clock\y-25,50,50,1 Color 255,0,0 Line clock\x,clock\y,clock\x+Cos(clock\direction)25,clock\y+Sin(clock\direction)25 Next End Function Function UpdatePixels() For pixel.pixel=Each pixel pixel\x=pixel\x+pixel\speed_x pixel\y=pixel\y+pixel\speed_y If advance Then pixel\age=pixel\age-25 If pixel\age<=0 Then Delete pixel Exit Else Color pixel\age,pixel\age,pixel\age Rect pixel\x,pixel\y,rate4/1000,rate4/1000 End If If Abs(pixel\x-MouseX())<50 And Abs(pixel\y-MouseY())<50 Then score=score+pixel\age Delete pixel MoveMouse(Rnd(25,GraphicsWidth()-25),Rnd(25,GraphicsHeight()-25)) End If Next End Function Function SpawnPixel(x,y,d) pixel.pixel=New pixel pixel\x=x+Cos(d)25 pixel\y=y+Sin(d)25 pixel\speed_x=(rateCos(d))/1000 pixel\speed_y=(rateSin(d))/1000 pixel\age=255 End Function --v Now it doesn't try to read the age of a dead pixel \|edit\| -=-=- Come rain or shine...
Thu, 29 Nov 2007, 07:57
Jayenkai	Awww.. Sucks.. If it wasn't for the fact that I'd made a complete balls up on the CPU player, this would've been done in an hour. As it is, it took 1 hour and 7 mins, give or take playtesting. 1 hour, 7 mins -=-=- ''Load, Next List!''
Thu, 29 Nov 2007, 08:22
Eikon	Here's my entry, Dusk Bounder www.eiksoft.com/duskbounder.zip (371KB)
Thu, 29 Nov 2007, 08:28
Toaster	Theres some good games here. I would post one but I forgot all the 2D stuff well most of it and if I make a game in 3D I would go overboard and end up taking forever to make it..... Jayenkai: Were you super happy when making this game? Super Happy Snowball warriors? WTF.. lol
Thu, 29 Nov 2007, 09:39
mole	Ha Jays one is crazy, and I just plain suck at Eikon's. Time to make mine.
Thu, 29 Nov 2007, 11:16
mole	Dun dun dunnnn! Shooter: Extreme Finding the game on the site is just part of the fun you will have with this game! It took me 1 hour and 7 minutes, I only went over because the clouds I drew at first were too big, and I just generally was slow about the clouds. You are disguised as a simplistic reticule (that is the right word isn't it??) who must destroy the targets. The targets disappear after a small period of time. Once you have destroyed all the on-screen targets the next wave will magically appear. If you end up with no targets on the screen, it means you managed to f*ck it up and you lose. Write your score on a piece of paper and try and beat it next time!
Thu, 29 Nov 2007, 13:48
Phoenix	15735 at Forklift_Fred's game Jay's game was quite repetitive, so I only threw a few snowballs and then stopped playing Eikon's game is my favorite so far, even though I last for about a minute!
Sat, 01 Dec 2007, 18:53
mike_g	Wow, dusk bounder is like a shit version of Jump & Roll. One of my favorate games on the amiga. I loved that game, can you do a proper remake Eikon? Considering you did this one in an hour its still very good
Sun, 02 Dec 2007, 17:51
Eikon	Thanks for the compliments on my game. I haven't played Jump & Roll on the amiga, Mike_G, so I can't do a proper remake, but I may end up revamping this version with online high scores and better graphics.
Mon, 03 Dec 2007, 17:06
magicman	;Start Time 5:30 ;Finish Time 5:59 ;Total TIme 0:29 ;CREATED BY MAGICMAN!! ;ALL YOU HAVE TO DO IS USE THE ARROW KEYS TO GET THE WHITE OUTLINED SQUARES WHILE AVOIDING THE PURE WHITE SQUARES!!! AppTitle "1 Hour, Well, it only really took 29 minutes" Graphics 400,600,16,2 AutoMidHandle True Type part Field x#,y#,xv#,yv#,c End Type Type block Field x#,y#,xv#,yv#,which End Type blockimage1 = CreateImage(20,20) SetBuffer ImageBuffer(blockimage1) Color 255,255,255 Rect 0,0,20,20,0 blockimage2 = CreateImage(20,20) SetBuffer ImageBuffer(blockimage2) Color 255,255,255 Rect 0,0,20,20,1 player = CreateImage(30,30) SetBuffer ImageBuffer(player) Color 255,255,255 Rect 0,0,30,30,0 Global px = 200 Global py = 550 Global score = 0 Global createblock = 0 Global blocktime = 10 Global diffin = 0 SetBuffer BackBuffer() While Not KeyDown(1) Cls SeedRnd MilliSecs() diffin = diffin + 1 If blocktime > 1 If diffin > 400 blocktime = blocktime - 1 diffin = 0 EndIf EndIf createblock = createblock + 1 If createblock => blocktime b.block = New block b\x = Rnd(20,380) b\y = -20 b\xv = Rnd(-2,2) b\yv = Rnd(3,7) b\which = Rnd(1,2) createblock = 0 EndIf If KeyDown(203) px = px - 6 If KeyDown(205) px = px + 6 If px =< 15 px = px + 6 If px => 385 px = px -6 For b.block = Each block If ImagesOverlap(player,px,py,blockimage1,b\x,b\y) If b\which = 2 score = 0 db = 1 blocktime = 10 EndIf If b\which = 1 score = score + 1 For i = 0 To 36 p.part = New part p\x = b\x p\y = b\y p\xv = Cos(angle)7 p\yv = Sin(angle)7 p\c = 255 angle = angle + 10 Next Delete b EndIf EndIf Next If db = 1 For b.block = Each block For i = 0 To 36 p.part = New part p\x = b\x p\y = b\y p\xv = Cos(angle)7 p\yv = Sin(angle)7 p\c = 255 angle = angle + 10 Next Delete b Next db = 0 EndIf For p.part = Each part Color p\c,p\c,p\c Rect p\x,p\y,2,2 p\x = p\x + p\xv p\y = p\y + p\yv p\c = p\c -5 If p\c < 5 Delete p Next For b.block = Each block If b\which = 1 DrawImage blockimage1,b\x,b\y If b\which = 2 DrawImage blockimage2,b\x,b\y b\x = b\x + b\xv b\y = b\y + b\yv If b\y > 650 Delete b Next If score > highscore highscore = score Color 255,255,255 Text 80,10,"SCORE: " + score Text 220,10,"HIGHSCORE: " + highscore DrawImage player,px,py Flip Wend End ;allniceandcompacted,itlookskindoflikeaskylinewhenviewedonitsside! --v -=-=- Stuff... Yeah...
Mon, 03 Dec 2007, 18:29
Toaster	Hey looks good I got a 22 then I lost interest cause there was no lifes. It gave me a nice idea for a 2D game though..
Tue, 04 Dec 2007, 13:49
Forklift_Fred	I had an idea for another game so I thought I'd have another go... Catch A Cold ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; 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 Went a little over the time due to play testing and fiddling with the font size and layout too much. (And bloody interruptions which is why it's taken me 20 to post it :mad: ) Arrow keys to move your little bar at the bottom, score a point for every letter you catch, double if you catch either c,o,l or d once you have all 4 you gain an extra 1000 points for... wait for it... catching a "C O L D" ! You can hold up to 9 of each letter at a time (hence the numbers underneath) but when you have all 4 then you lose one of each. Both my games as exe in a rar: www.mediafire.com/?4xyqoc3tmzy -=-=- Come rain or shine...
Fri, 07 Dec 2007, 05:26
Afr0	Bleh, can't join right now, I'm too busy. For the record, I found an old document about the login protocol for MU-Online, and so I would have probably made a semi-working server EMU for logging in for this challenge... probably in C#. As it is, I think this challenge is a bit racist (for lack of a better word atm), as it pretty much limits itself to Blitz and possibly C# coders, and doesn't leave room for creating MMOs, simply because of the time constraint. -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Fri, 07 Dec 2007, 05:30
Jayenkai	You're right about the time constraint.. -2 days to do a game is insane.. -=-=- ''Load, Next List!''