Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|395\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #115 - The One Challenge
Tue, 28 Aug 2007, 16:46
Jayenkai	Wednesday Workshop #115 : The One Challenge Time until Deadline Week : 29 August 2007 The Reason : I had considered this last week.. But then I forgot all about it when the time came. So it got done this week instead! The Challenge : Create a game in which the player has only 1 chance. One life, one health point, etc. No going back.. Just one.. Extra Info Give the player 1 life, 1 health point, 1 chance, and then see how far they can get. Try to create a realistically possible "Aim" for the game. Like complete the level, or defeat all enemies, or something like that. But they only get one life, then it's back to the menu they go! (or exit, if you can't be bothered with a menu!) 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 Zzzzz.... -=-=- ''Load, Next List!''
Tue, 28 Aug 2007, 17:02
svrman	Ahhh! I was actually trying to enter something for last week. It was a timed game of reflex. In the game you're like the help desk in a mall and you had to direct visitors to the toilets based on their gender (left and right only). The "camera" would rotate once in a while to try and throw you off. It was pretty fun in my mind. I'll probably work on it for this week. Damn, time is slipping past so quickly! -=-=- BlitzRSS script back online!
Tue, 28 Aug 2007, 17:05
Jayenkai	I had planned to do a Space Monkeys game.. I got as far as getting the text function working nicely, to produce "Classic Space Monkey Style Super Long Descriptive Title Screens in Red and Blue Text That Look Like They Do in The Original Space Monkeys Games" style titlescreens. ... I then proceeded to forget all about it, and carried on playing with Stringy Things some more! -=-=- ''Load, Next List!''
Tue, 28 Aug 2007, 18:05
magicman	I have already started my entry for this week. it will be nice, simple, and annoying. -=-=- Stuff... Yeah...
Wed, 29 Aug 2007, 11:09
Phoenix	Graphics( 400, 400, 16, 2 ) SetBuffer( BackBuffer() ) SeedRnd( MilliSecs() ) Type Thingy Field x#, y#, col Field ang End Type Type Particle Field x#, y# Field r, g, b Field ang#, spd# End Type gameMode$ = "MENU" px# = 200 py# = 200 Global spin = 1 score = 0 best = 0 SetFont( LoadFont( "ARIAL2", 16 ) ) timer = CreateTimer( 60 ) While( Not KeyHit( 1 ) ) WaitTimer( timer ) mx = MouseX() my = MouseY() mang = -ATan2( py - my, px - mx ) - 90 ang = ang + (spin3) Mod 360 Select( gameMode ) Case "GAME" If( swap < MilliSecs() ) spin=-spin swap = MilliSecs() + 10000 EndIf score = score + 1 If( Rand( 3 ) = 1 ) t.Thingy = New Thingy t\x = 500 Sin( Rand( 360 ) ) * 4 t\y = 500 * Cos( Rand( 360 ) ) * 4 t\col = -1 + (Rand( 0, 1 )2) EndIf For t.Thingy = Each Thingy t\ang = -ATan2( t\y - (py+Rand( 15 )), t\x - (px+Rand( 15 )) ) - 90 t\x = t\x + Sin( t\ang ) t\y = t\y + Cos( t\ang ) If( t\col = -1 ) Then Color( 0, 0, $00FF00 ) If( t\col = 1 ) Then Color( 0, 0, $FF0000 ) If( RectsOverlap( t\x, t\y, 10, 10, px-20, py-20, 40, 40 ) ) If( t\col = spin ) For i = 0 To 360 p.Particle = New Particle p\x = t\x p\y = t\y p\r = Rand( 255 ) p\g = Rand( 255 ) p\b = Rand( 255 ) p\spd# = Rand( 5, 15 ) p\ang = i+135 Next Delete t score = score + 500 Exit EndIf Cls Color( 0, 0, $FF0000 ) Text( 200, 200, "YOU LOSE! SCORE: " + score, 1, 1 ) If( score > best ) Then best = score Flip Delay 3000 FlushKeys gameMode = "MENU" EndIf Oval( t\x, t\y, 10, 10 ) Next For p.Particle = Each Particle p\x = p\x + Sin( p\ang ) p\spd p\y = p\y + Cos( p\ang ) * p\spd p\y = p\y + 3 p\ang = p\ang + (Sgn(p\ang-185)/4) Color( p\r, p\g, p\b ) Rect( p\x, p\y, 2, 2 ) Next scoreText$ = "SCORE: " + Replace( RSet( score, 10 ), " ", "0" ) Color( 0, 0, $FFFFFF ) Text 400-StringWidth( scoreText ), 400-16, scoreText Color( 0, 0, $0000FF ) Rect( 1, 1, (swap - MilliSecs())/25, 15 ) Case "MENU" If( RectsOverlap( px-20, py-20, 40, 40, 200, 160, StringWidth( "PLAY" ), 16 ) ) Color( 0, 0, $FFFF00 ) If( MouseDown( 1 ) ) gameMode = "GAME" px# = 200 py# = 200 spin = 1 score = 0 swap = MilliSecs() + 10000 Delete Each Thingy Delete Each Particle EndIf Else Color( 0, 0, $FFFFFF ) EndIf Text( 200 - StringWidth( "PLAY" ) / 2, 160, "PLAY" ) If( RectsOverlap( px-20, py-20, 40, 40, 200, 240, StringWidth( "EXIT" ), 16 ) ) Color( 0, 0, $FFFF00 ) If( MouseDown( 1 ) ) Then End Else Color( 0, 0, $FFFFFF ) EndIf Text( 200 - StringWidth( "EXIT" ) / 2, 240, "EXIT" ) scoreText$ = "BEST SCORE: " + Replace( RSet( best, 10 ), " ", "0" ) Color( 0, 0, $FFFFFF ) Text 400-StringWidth( scoreText ), 400-16, scoreText End Select px = px + Sin( mang ) * 3 py = py + Cos( mang ) * 3 DrawPlayer( px, py, ang ) Flip Cls Wend End Function DrawPlayer( x, y, ang# ) corners = 5 stp = 360 / corners radius = 20 If( spin > 0 ) Then Color( 0, 0, $FF0000 ) If( spin < 0 ) Then Color( 0, 0, $00FF00 ) For i = 0 To 5 Line( radius * Sin( i * stp + ang ) + x, radius * Cos( i * stp + ang ) + y, radius * -Sin( i * stp + ang ) + x, radius * -Cos( i * stp + ang ) + y ) Next End Function --v "Eat" the things that have the same color as you, but don't touch the other ones! Your color changes every 10 seconds. My best score is 17017
Wed, 29 Aug 2007, 11:20
shroom_monk	Both of those are pretty good games! Well done. Personally, I prefer Phoenix's at the moment. \|moan\| coughJay:coughThis week's picks!cough \|moan\| -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Wed, 29 Aug 2007, 12:05
Phoenix	Thanks, Shroom and Tiki
Wed, 29 Aug 2007, 14:49
Jayenkai	I'm getting to this week's picks in a short while. I think, until the school hols are over (and I have to play "Keep the kids entertained" all day) I'm going to be doing the picks on Wed.Nights. Normal service will be resumed ASAP! .. Haven't yet played either game! -=-=- ''Load, Next List!''
Thu, 30 Aug 2007, 16:15
magicman	here we are, nice, simple, and will annoy you. press the spacebar to let go of the ball. dont hit the wall. AppTitle "3.1415926535897932384" ;Pure memory,not to exciting but, meh. Graphics 800,600,16,2 AutoMidHandle True ball = CreateImage(30,30) SetBuffer ImageBuffer(ball) Color 255,255,255 Oval 0,0,30,30,0 Global ballx# Global bally# Global ballyv# Global ballxv# Global ballfall Global bn# Global nb# wall = CreateImage(800,3) SetBuffer ImageBuffer(wall) Color 255,255,255 Rect 0,0,800,3 Global wallx# Global wally# wall2 = CreateImage(800,3) SetBuffer ImageBuffer(wall2) Color 255,255,255 Rect 0,0,800,3 Global wall2x# Global wall2y# wall3 = CreateImage(100,3) SetBuffer ImageBuffer(wall3) Color 255,255,255 Rect 0,0,100,3 Global wall3x# Global wall3y# wall4 = CreateImage(100,3) SetBuffer ImageBuffer(wall4) Color 255,255,255 Rect 0,0,100,3 Global wall4x# Global wall4y# Global begin = 1 Global level = 1 SetBuffer BackBuffer() While Not KeyDown(1) Cls If begin = 1 setuplevel() If KeyHit(57) ballfall = 1 If ImagesCollide(ball,ballx,bally,0,wall,wallx,wally,0) begin = 1 level = 1 EndIf If ImagesCollide(ball,ballx,bally,0,wall2,wall2x,wall2y,0) begin = 1 level = 1 EndIf If ImagesCollide(ball,ballx,bally,0,wall3,wall3x,wall3y,0) begin = 1 level = 1 EndIf If ImagesCollide(ball,ballx,bally,0,wall4,wall4x,wall4y,0) begin = 1 level = 1 EndIf DrawImage wall,wallx,wally DrawImage wall2,wall2x,wall2y DrawImage wall3,wall3x,wall3y DrawImage wall4,wall4x,wall4y DrawImage ball,ballx,bally updateball() Text 360,10,"LEVEL: " + level If gameend = 1 Text 350,300,"Y0\|_\| \/\/0\|\\|" fin = fin + 1 If fin = 200 End EndIf Flip Wend End Function updateball() ballx = ballx + ballxv bally = bally + ballyv If ballx > 785 ballxv = -ballxv If ballx < 15 ballxv = -ballxv If ballfall = 1 ballyv = ballyv + .0981 If bally > 700 begin = 1 level = level + 1 EndIf End Function Function setuplevel() nb = Rnd(0,1) If nb => .5 bn = 3 If nb < .5 bn = -3 If level = 1 wallx = -50 wally = 500 wall2x = 850 wall2y = 500 wall3x = 0 wall3y = 900 wall4x = 0 wall4y = 900 ballx = 400 bally = 50 ballxv = bn ballyv = 0 ballfall = 0 begin = 0 EndIf If level = 2 wallx = 330 wally = 500 wall2x = 1200 wall2y = 500 ballx = 400 bally = 50 ballxv = bn ballyv = 0 ballfall = 0 begin = 0 EndIf If level = 3 wallx = -35 wally = 500 wall2x = 835 wall2y = 500 ballx = 400 bally = 50 ballxv = bn ballyv = 0 ballfall = 0 begin = 0 EndIf If level = 4 wallx = -35 wally = 500 wall2x = 835 wall2y = 500 wall3x = 260 wall3y = 300 wall4x = 540 wall4y = 300 ballx = 400 bally = 50 ballxv = bn ballyv = 0 ballfall = 0 begin = 0 EndIf If level = 5 wallx = 280 wally = 500 wall2x = 1150 wall2y = 500 wall3x = 660 wall3y = 400 wall4x = 540 wall4y = 1300 ballx = 400 bally = 50 ballxv = bn ballyv = 0 ballfall = 0 begin = 0 EndIf If level = 6 wallx = -35 wally = 300 wall2x = 835 wall2y = 300 wall3x = 260 wall3y = 500 wall4x = 540 wall4y = 500 ballx = 400 bally = 50 ballxv = bn ballyv = 0 ballfall = 0 begin = 0 EndIf If level = 7 wallx = -35 wally = 80 wall2x = 835 wall2y = 80 wall3x = 260 wall3y = 1500 wall4x = 540 wall4y = 1500 ballx = 400 bally = 50 ballxv = bn ballyv = 0 ballfall = 0 begin = 0 EndIf If level = 8 wallx = -35 wally = 590 wall2x = 835 wall2y = 590 wall3x = 260 wall3y = 1500 wall4x = 540 wall4y = 1500 ballx = 400 bally = 50 ballxv = bn ballyv = 0 ballfall = 0 begin = 0 EndIf If level = 9 wallx = 10000 wall2x = 10000 wall3x = 10000 wall4x = 10000 gameend = 1 EndIf End Function --v -=-=- Stuff... Yeah...