Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|252\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #115 (29 Aug 2007) The One Challenge Create a game in which the player has only 1 chance. One life, one health point, etc. No going back.. Just one..

Eat by Phoenix for Workshop #115 Eat the same coloured circles. Mouse 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

Ball hole! by Magicman for Workshop #115 Get the ball through the hole. Spacebar to drop. 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

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

Wednesday Workshop - Socoder