Wednesday Workshop - Socoder

Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|621\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #100 (16 May 2007) The 100 Challenge Create a game using code no bigger than 100x100 characters.

Get 100! by caffeinekid for Workshop #100 Get 100 green without hitting any Red Mouse Click to download this entry

Flight Through Gherkin Canyon by shroom_monk for Workshop #100 Shoot the gherkins as you fly through the maze. Cursor Keys and Spacebar AppTitle "Flight Through Gherkin Canyon" Print "Flight Through Gherkin Canyon":Print "-----------------------------" Print "By James Wallis aka Shroom Monk":Print:Print Print "Two Shroomish prisoners have escaped from a" Print "high security Gherkin prison on the Gherkin":Print "homeworld. To escape from the planet in" Print "their escape pod, they must first fly through":Print "the dangerous Gherkin Canyon." Print:Print "Use the left and right arrowkeys to move left" Print "and right. The canyon is filled with Gherkin" Print "War-Mines, which explode on contact. Either dodge" Print "them, or press SPACE fire the escape pod's S.R." Print "lasers." Print:Print:Print "Press any key to start..." WaitKey() Graphics 800,600:SetBuffer BackBuffer():SeedRnd MilliSecs() Global px=400,lw=325,d=150,t=0,gameover=0,score=0,tmpcol=0:Type b Field w,y,a End Type:Global r.b Type l Field x,y End Type:Global s.l:Type f Field x,y End Type:Global e.f For i=0 To 600 Step 5:r.b=New b:r\w=lw:r\y=i:r\a=d:Next timer=CreateTimer(60):While KeyHit(1)=0 And gameover=0:WaitTimer(timer):If KeyDown(203) Then px=px-2 If KeyDown(205) Then px=px+2 If KeyHit(57) Then s.l=New l:s\x=px:s\y=395 score=score+1:t=t+1:If t>400 Then t=0:d=d-5 If d<50 Then d=50 lw=lw+Rand(-10,10):If lw<10 Then lw=10 If lw+d>790 Then lw=790-d r.b=New b:r\w=lw:r\y=0:r\a=d:For r.b=Each b:r\y=r\y+5:If r\y>600 Then Delete r Next:For s.l=Each l:s\y=s\y-10:tmpcol=1:For r.b=Each b If RectsOverlap(s\x-1,s\y-3,3,7,r\w,r\y,r\a,5)=1 Then tmpcol=0 Next:If s\y<0 Or tmpcol=1 Then Delete s Next:gameover=1:For r.b=Each b:If RectsOverlap(px-3,400,7,11,r\w,r\y,r\a,5)=1 Then gameover=0 Next If Rand(0,20)=1 Then e.f=New f:e\x=Rand(lw,lw+d):e\y=0 For e.f=Each f:e\y=e\y+5:tmpcol=0:For s.l=Each l If RectsOverlap(e\x-3,e\y-5,7,11,s\x-1,s\y-3,3,7)=1 Then tmpcol=1:score=score+200:Delete s Next:If RectsOverlap(px-3,400,7,11,e\x-3,e\y-5,7,11)=1 Then gameover=1 If e\y>650 Or tmpcol=1 Then Delete e Next:Cls:Color 128,64,0:For r.b=Each b:Rect 0,r\y,r\w,5,1:Rect r\w+r\a,r\y,800,5,1:Next For s.l=Each l:Color 255,255,255:Oval s\x-1,s\y-3,3,7,1:Next:Color 0,128,0:For e.f=Each f Oval e\x-3,e\y-5,7,11,1:Next Color 255,128,0:Oval px-1,410,3,6,1:Color 255,0,0:Oval px-3,400,7,11,1:Oval px-7,397,15,7,1 Color 255,255,255:Text 0,20,"SCORE: "+score:Flip Wend Cls:Color 128,64,0:For r.b=Each b:Rect 0,r\y,r\w,5,1:Rect r\w+r\a,r\y,800,5,1:Next For s.l=Each l:Color 255,255,255:Oval s\x-1,s\y-3,3,7,1:Next:Color 0,128,0:For e.f=Each f Oval e\x-3,e\y-5,7,11,1:Next Color 255,0,0:Oval px-12,391,25,25,1:Color 255,255,0:Oval px-8,395,17,17,1:Color 255,255,255 Oval px-4,399,9,9,1:Color 0,128,0:Text px,402,"BOOM",1,1:Color 255,255,255 Text 400,300,"GAME OVER",1,1:Text 400,320,"SCORE: "+score,1,1:Flip:Delay 500 Cls:Color 128,64,0:For r.b=Each b:Rect 0,r\y,r\w,5,1:Rect r\w+r\a,r\y,800,5,1:Next For s.l=Each l:Color 255,255,255:Oval s\x-1,s\y-3,3,7,1:Next:Color 0,128,0:For e.f=Each f Oval e\x-3,e\y-5,7,11,1:Next Color 255,255,255:Text 400,300,"GAME OVER",1,1 Text 400,320,"SCORE: "+score,1,1:Flip:FlushKeys:WaitKey():End

100x100 by irondirgible for Workshop #100 Juggle the blocks so that only same coloured blocks hit the rectangle at the bottom. Mouse Click to download this entry

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

Wednesday Workshop - Socoder