#125 - The 3 Hour Challenge 2

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|86\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #125 - The 3 Hour Challenge 2
Tue, 13 Nov 2007, 16:47
Jayenkai	Wednesday Workshop #125 : The 3 Hour Challenge 2 Time until Deadline Week : 14 November 2007 The Reason : I've been thinking about the last 3 hour challenge a lot, this week! The Challenge : Set aside 3 hours. Either one 3 hour session, three 1 hour ones, four 45 minute ones, or however you'd prefer it. Within the space of those 3 hours, create the best game that you can. 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 everyone slept a lot. -=-=- ''Load, Next List!''
Tue, 13 Nov 2007, 19:19
Jayenkai	First entry! Time : 2 hours, 10 mins... and a few extra mins for a bugfix. Advanced Type-In Simulator -=-=- ''Load, Next List!''
Tue, 13 Nov 2007, 19:26
magicman	I promise i will enter this one!
Wed, 14 Nov 2007, 10:02
mole	I have 2 weeks to write 3 re-write 3 essays. But what the hey, its only 3 hours (I know I will regret this at midnight in 2 weeks when I am still reading Romeo and Juliet XD) --- I have 2 weeks to write 3 re-write 3 essays. But what the hey, its only 3 hours (I know I will regret this at midnight in 2 weeks when I am still reading Romeo and Juliet XD)
Wed, 14 Nov 2007, 11:10
HoboBen	I've got 3 hours timetabled for Thursday. Count me in! -=-=- blog \| work \| code \| more code
Wed, 14 Nov 2007, 11:48
mole	;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 --v Muahahaha prepare to be BORED! The positive thing is that all the images are rendered with code The bad thing is that that is the only good thing :/
Wed, 14 Nov 2007, 12:21
Nolan	Eh, maybe I'll enter this one. I should have at least 3 hours of free time on Saturday. -=-=- nolandc.com
Thu, 15 Nov 2007, 07:37
HoboBen	I'm done - only, it's for Linux! (Is that a first?) Anyone running Ubuntu/Debian can get all the libraries needed by installing Gambas through Applications>Add/Remove or searching "Gambas" in the Synaptic Package Manager. Gambas is like Visual Basic, but for Linux (and therefore free! ) Then either download my Gambas project source or download the compiled program To run the compiled program, open up a terminal, drag and drop the downloaded file into the terminal window, and hit enter. I might do a Windows port with Visual Basic that school lent me for my computing course, but I won't have kept to 3 hours if I do that (My apologies that it's basically Pong with slightly different controls, but my 3 hours includes learning how to use Gambas too ) -=-=- blog \| work \| code \| more code
Sat, 17 Nov 2007, 19:18
magicman	I promised i would enter somthing, so here we go. Its not much, not much at all, in fact it isnt really anything but the simplest lunar lander engine possible. But hey, its somthing. ;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 --v -=-=- Stuff... Yeah...
Sun, 18 Nov 2007, 07:53
Phoenix	Initially, I wasn't planning to enter. But I rarely stick to my plans Read the comments at the top for instructions. ; --------------------------------- ; ; 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 --v