#100 - The 100 Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|592\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #100 - The 100 Challenge
Page : 1 Prev 2 Next
Fri, 18 May 2007, 08:11
Jayenkai	It's not meant to be pretty! It's meant to be functional. -=-=- ''Load, Next List!''
Fri, 18 May 2007, 09:28
caffeinekid	I have a basic engine for my game already and I'm only using 13 lines so far. Global a=255,b,d[101,5],px,py,time,n,md,mx,my,dx,dy,col;Graphics 800,600,0,50;HideMouse For n=1 To 100;d[n,0]=0;d[n,1]=Rand(800);d[n,2]=Rand(600);Repeat;d[n,3]=Rand(-2,2);SetAlpha .5 Until d[n,3];Repeat;d[n,4]=Rand(-2,2);Until d[n,4];Next;time=MilliSecs();SetBlend lightblend Repeat;SetScale 1,1;px=MouseX();py=MouseY();col=0;SetColor a,a,b;DrawOval px-1,py-1,3,3 For n=1 To 100;md=d[n,0];col:+md;If md Then SetColor a,b,b Else SetColor b,a,b mx=d[n,1];my=d[n,2];If md Then DrawRect mx-5,my-5,11,11 Else DrawRect mx-3,my-3,7,7 If (Abs(px-mx)<8 And Abs(py-my)<8 And md)Or(Abs(px-mx)<6 And Abs(py-my)<6 And md=0) d[n,0]=Not(md);d[n,1]=800-mx;d[n,2]=600-my;EndIf;dx=mx+d[n,3];dy=my+d[n,4] d[n,1]=(d[n,1]+d[n,3]);If dx<0 Or dx>800 Then d[n,3]=-d[n,3] d[n,2]=(d[n,2]+d[n,4]);If dy<0 Or dy>600 Then d[n,4]=-d[n,4] ti=(MilliSecs()-time)/1000;Next;SetColor 80,b,80;SetScale 6,6 DrawText "Time:"+ti,400-(TextWidth("Time:"+ti)3),40;SetColor b,b,80;SetScale 30,30 DrawText col,400-(TextWidth(col)15),120;Flip;Cls;Until col=100 --v -=-=- www.tcksoft.co.uk www.retroremakes.com
Fri, 18 May 2007, 09:33
Jayenkai	Yes.. Unfortunately, since Wednesday, I've come to the conclusion that 100x100 is actually a surprisingly large amount of space, and am desperately trying to come up with something big enough to fill it! (Filling it isn't essential!) \|edit\| Panic over! I thought the site was freakishly turning your colons into semi-colons!! Then I realised you're using BMan! \|edit\| -=-=- ''Load, Next List!''
Fri, 18 May 2007, 10:40
shroom_monk	As this is the 100th WW, I gotta enter! I was going to enter last week (I had a good idea), but I didn't get time. I have to find the time to do something this weekend... \|edit\| Can we include images/sounds (as external files)? \|edit\| \|edit\| Wait, forget that... I think it's already been answered! \|edit\| -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Fri, 18 May 2007, 11:07
Phoenix	Actually, you don't need to use the colon to separate commands in Blitz, all you need is a space.
Fri, 18 May 2007, 11:28
caffeinekid	"Actually, you don't need to use the colon to separate commands in Blitz, all you need is a space." I'd hate to make it difficult to read. Yeah Jay, it's BlitzMax is that ok? -=-=- www.tcksoft.co.uk www.retroremakes.com
Fri, 18 May 2007, 11:40
Phoenix	Argh, my line is 101 characters long, and I can't remove anything \|edit\| Nevermind, I could delete a set of parentheses \|edit\|
Fri, 18 May 2007, 14:50
Jayenkai	Yes, any language is fine. So long as you include both Source (for checking) and Compiled (for playing!) -=-=- ''Load, Next List!''
Fri, 25 May 2007, 07:17
Jayenkai	Due to the loss of MySQL data, I've gone and lost Shroom's entry for the week. If Shroom could repost it, that'd be handy, thanks. (The rest were kept in a big-ass upload that's on it's way) -=-=- ''Load, Next List!''
Mon, 28 May 2007, 06:41
caffeinekid	Mine is still around - come on Shroom, so that Jay can put the entries back up. Shame I lost my comment and my vote but c'est la vie. -=-=- www.tcksoft.co.uk www.retroremakes.com
Mon, 28 May 2007, 15:22
Jayenkai	OK, I've popped this week's entries back up, but you can't play Shroom's until I get a hold of his sourcecode! As a result, all voting will be null and void this week, and everyone will get an "I entered the 100th Workshop" badge, or something! So, um.. Yeah! -=-=- ''Load, Next List!''
Tue, 29 May 2007, 11:25
shroom_monk	I've sent a copy to Jay, but here it is now for my masses of glorious fans (well, I think... a lot of people want to play, right? ): 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 --v -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Page : 1 Prev 2 Next