Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|507\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #069 (04 Oct 2006) The 3 Hour Challenge Set yourself a 3 hour time period. Or if you don't have a single 3 hour slot during this week, 3 single hour ones will do. Make a note of the time you start, and the time you finish. You have 3 hours to make the best game you can.

Green Snake by Jayenkai for Workshop #069 Guide the green, grab the blue, avoid the red. Mouse ; Started 23:30 ; Completed 00:20 SW=640 SH=480 Graphics SW,SH,32,2 SetBuffer BackBuffer() SSize=4 Wid=(SW/SSize)+1 Hig=(SH/SSize)+1 Dim map(Wid,Hig) Global MX,MY Type git Field x,y,gx,gy End Type hiscore=0 .TitleScreen Repeat Cls Color 180,180,255:Text sw/2,sh/2-40,"Get the Blue Squares",1,1 Color 255,180,180:Text sw/2,sh/2,"Avoid the Red Squares",1,1 Color 180,255,180:Text sw/2,sh/2+40,"Today's Best Score : "+hiscore,1,1 If MouseDown(1) Then Gosub StartRound:If score>hiscore Then hiscore=score Flip Until KeyDown(1) End .StartRound endofgame=0 For x=0 To Wid For y=0 To Hig map(x,y)=0 Next Next MX=MouseX()/8 MY=MouseY()/8 MX=(MX8)+4 MY=(MY8)+4 For a.git=Each git:Delete a.git:Next lev=25 score=0 mscore=5 Repeat Cls Color 255,255,255 Text sw/2,10,Score For x=0 To Wid For y=0 To Hig If map(x,y)<0 map(x,y)=map(x,y)+1 Color 0,0,255:If map(x,y)=0 Then Color 0,0,0 Rect xssize,yssize,ssize,ssize,1 EndIf If map(x,y)>0 map(x,y)=map(x,y)-1 Color map(x,y)5,map(x,y)15,map(x,y)5 Rect xssize,yssize,ssize,ssize,1 EndIf If mousein(xssize,y*ssize,ssize,ssize) If map(x,y)<0 Then Score=Score+1 map(x,y)=15 EndIf Next Next For a.git=Each git kill=0 a\x=a\x+a\gx a\y=a\y+a\gy If mousein(a\x,a\y,16,16) Then endofgame=1 Color 255,0,0 Rect a\x,a\y,16,16,1 If a\gx<0 And a\x<-20 Then kill=1 If a\gx>0 And a\x>sw+20 Then kill=1 If a\gy<0 And a\y<-20 Then kill=1 If a\gy>0 And a\y>sh+20 Then kill=1 If kill=1 Then Delete a.git Next ts=4 If score>mscore And lev>4 Then mscore=mscore+5:lev=lev-4 If Rand(1,10)=1 Then map(Rand(0,wid),Rand(0,hig))=Rand(-100,-150) If Rand(1,lev)=1 a.git=New git side=Rand(1,4) If side=1 a\x=Rand(0,sw):a\y=-20 a\gx=Rand(-ts,ts):a\gy=Rand(1,ts) EndIf If side=2 a\x=-20:a\y=Rand(0,sh) a\gx=Rand(1,ts):a\gy=Rand(-ts,ts) EndIf If side=3 a\x=Rand(0,sw):a\y=sh+20 a\gx=Rand(-ts,ts):a\gy=Rand(-1,-ts) EndIf If side=4 a\x=sw+20:a\y=Rand(0,sh) a\gx=Rand(-1,-ts):a\gy=Rand(-ts,ts) EndIf EndIf MHL=MouseHit(1) MHR=MouseHit(2) If MX<MouseX() Then MX=MX+ssize If MX>MouseX() Then MX=MX-ssize If MY<MouseY() Then MY=MY+ssize If MY>MouseY() Then MY=MY-ssize Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Repeat Text sw/2,sh/2,"DEAD",1,1 Flip If KeyDown(1) Then End Until MouseDown(1) Repeat Text sw/2,sh/2,"DEAD",1,1 Flip Until MouseDown(1)=0 Return Function Mousein(x,y,w,h) Return (MX=>x And MX<=x+w And MY=>y And MY<=y+h) End Function Function Col(n) Select n Case 1 Color 255,0,0 Case 2 Color 255,180,180 Case 3 Color 255,255,0 Case 4 Color 255,255,255 Case 5 Color 0,255,0 Case 6 Color 180,255,180 Case 7 Color 0,0,255 Case 8 Color 180,180,255 Case 9 Color 255,0,255 Case 10 Color 0,0,0 End Select End Function

Diamond Jumper by jayparker for Workshop #069 Guide Jumper through the Diamonds Cursor keys Click to download this entry

Star Climb by Ag3nt4125 for Workshop #069 Get the balls up towards the Stars A+Z for Left Cursors Up+Down for Right Click to download this entry

Kokopelli Run by magicman for Workshop #069 Guide kokopelli to the other side of the screen. Cursors Left and Right Cursor up to jump 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.097

Wednesday Workshop - Socoder