Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|603\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #011 (24 Aug 2005) The Crystal Challenge Another Moody suggestion, this time we're to step back a few years to when The Crystal Maze was on TV. Your challenge for this week is to design a puzzle, be it Skill, Mental, or..um.. the other two.. Your game must last for exactly 2, 2.5 or 3 minutes, and fit the style of the TV show. If you are unfamiliar with it, think "Fort Boyard", or just click here. Any further questions, post them below.

Wire Game by rhyswynne for Workshop #011 Can you get the wire to the other side of the maze in time? Mouse Click to download this entry

Pumps by Ryan Moody for Workshop #011 A 2 minute physical challenge (no, it's not rude!). Cursor Keys Graphics 800,600 SetBuffer BackBuffer() Global PumpPosition = 1 Global PumpState = False Global MovementTimer Global StartTime Dim BucketDepths(5) Function InitialiseBucketDepths() For index = 0 To 3 BucketDepths(index) = 0 Next BucketDepths(4) = 200 End Function Function UpdateGame() FlushKeys If MovementTimer + 100 < MilliSecs() If KeyDown(203) And PumpPosition <> 1 PumpPosition = PumpPosition - 1 MovementTimer = MilliSecs() EndIf If KeyDown(205) And PumpPosition <> 4 PumpPosition = PumpPosition + 1 MovementTimer = MilliSecs() EndIf EndIf If KeyDown(200) And (Not KeyDown(208)) And (Not PumpState) PumpState = True EndIf If KeyDown(208) And (Not KeyDown(200)) And PumpState PumpState = False If PumpPosition = 1 If BucketDepths(1) > 0 BucketDepths(PumpPosition-1) = BucketDepths(PumpPosition-1) + 5 BucketDepths(PumpPosition) = BucketDepths(PumpPosition) - 5 EndIf Else If BucketDepths(PumpPosition) > 0 And BucketDepths(PumpPosition-1) <> (200/(2^(4-(PumpPosition-1)))) BucketDepths(PumpPosition-1) = BucketDepths(PumpPosition-1) + 5 BucketDepths(PumpPosition) = BucketDepths(PumpPosition) - 5 EndIf EndIf EndIf End Function Function RenderGame() Color 255,255,255 Rect 25,375,50,201,0 Color 0,0,255 Rect 26,575-BucketDepths(0),48,BucketDepths(0),1 For index = 1 To 4 Color 255,255,255 Rect (175 * index) - 75,375,150,201,0 Rect (175 * index) - 75,375 + (200/(2^(4-index))),150,200 - (200/(2^(4-index))),1 Color 0,0,255 Rect (175 * index) - 74,375 + (200/(2^(4-index))) - BucketDepths(index),148,BucketDepths(index),1 Next Color 0,0,0 Line 0,375,800,375 Color 255,255,255 Text (175 * PumpPosition) - 65,580,"^ PUMP IS HERE ^" Color 255,255,0 Rect 35,575-BucketDepths(0)-5,30,5,1 Color 0,255,255 Oval 40,575-BucketDepths(0)-25,20,20,1 Color 255,0,0 Oval 40,350,20,20,0 Color 255,0,0 Text 40,33,"TIME" Rect 100,25,675 - (((MilliSecs() - StartTime)/120000.0) * 675),25,1 If MilliSecs() - StartTime > 120000 SetBuffer FrontBuffer() Color 255,255,255 Text 400,300,"LOCKED IN!",True,True Delay 5000 End EndIf If BucketDepths(0) = 200 Flip SetBuffer FrontBuffer() Color 255,255,255 Text 400,300,"YOU GOT THE CRYSTAL!",True,True Delay 5000 End EndIf End Function InitialiseBucketDepths() StartTime = MilliSecs() While Not KeyDown(1) Cls RenderGame() Flip UpdateGame() Wend

Crystal Dome by rhyswynne for Workshop #011 2 Minutes, collect over 100 gold tokens. For every silver you collect, 1 is deducted from your gold total. Mouse controlled Mouse Global gold = 0 Global silver = 0 Global timetoend=MilliSecs()+(2351000) SeedRnd MilliSecs() Type tokens Field x Field y Field colour Field timeonscreen End Type For x = 0 To 100 t.tokens = New tokens t\x = Rnd(160, 500) t\y = Rnd(100,380) t\colour = Rnd(0,1) t\timeonscreen = Rnd(500) Next Graphics 640, 480, 16, 2 crystal=MakeCrystal(480,480,255,255,255) MidHandle crystal Repeat Cls Text 0,0, "Gold: " + gold Text 0,20, "Silver: " + silver DrawImage crystal,320,240 timeleft=timetoend-MilliSecs() If timeleft <= 0 Then endgame loadtime(timeleft) For t.tokens = Each tokens If t\colour = 0 Then Color 255, 255, 255 If t\colour = 1 Then Color 255, 255, 0 Rect t\x, t\y, 5, 5, 1 Next If MouseHit(1) Then For t.tokens = Each tokens If MouseX() < t\x + 20 And MouseX() > t\x - 20 And MouseY() > t\y - 20 And MouseY() < t\y + 20 Then If t\colour = 0 Then silver = silver + 1 If t\colour = 1 Then gold = gold + 1 Delete t t.tokens = New tokens t\x = Rnd(160, 500) t\y = Rnd(100,380) t\colour = Rnd(0,1) t\timeonscreen = Rnd(500) End If Next End If randomtokens() Flip Until KeyHit(1) Function randomtokens() For t.tokens = Each tokens t\timeonscreen = t\timeonscreen - 1 If t\timeonscreen = 0 Then Delete t t.tokens = New tokens t\x = Rnd(160, 500) t\y = Rnd(100,380) t\colour = Rnd(0,1) t\timeonscreen = Rnd(500) End If Next End Function Function MakeCrystal(wide,high,r#,g#,b#) make=CreateImage(wide,high) SetBuffer ImageBuffer(make) For n=0 To 360 Step 36 For m=0 To 360 Step 36 d#=Float(Abs(180-m))/180 If d>0 Then Color rd,gd,bd Line (wide/2)+(Cos(n)((wide/2)-1)),(high/2)+(Sin(n)((high/2)-1)),(wide/2)+(Cos(n+m)((wide/2)-1)),(high/2)+(Sin(n+m)*((high/2)-1)) Next Next SetBuffer BackBuffer() Return make End Function Function loadtime(time) tsec$=Right$("000"+((time/1000) Mod 60),2) tmin$=Right$("000"+((time/1000) / 60),2) Text 400, 20,"Time Left: " + tmin$ + ":" + tsec$ End Function Function endgame() Cls total = gold - silver Repeat Text 0, 0, "Gold: " + gold Text 0, 20, "Silver: " + silver Text 0, 40, "Total: " + total If total < 100 Then Text 0, 60, "You lose!" Else Text 0, 80, "You Win!" End If Text 0, 100, "Press Escape" Flip Until KeyHit(1) End End Function

Plat-Grab by Jayenkai for Workshop #011 Shift the blocks to the correct position. Cursor keys Graphics 800,600,32,2 SetBuffer BackBuffer() Dim array(11,9) For x=1 To 5 For y=x+3 To 8 array(x,y)=x Next Next For x=1 To 10 array(x,9)=1 Next gridwide=64 crystal=MakeCrystal(gridwide-10,gridwide-10,255,224,200) c2=MakeCrystal(64,64,255,255,255) TFormFilter False plat=CreateImage(8,8) SetBuffer ImageBuffer(plat) Color 255,255,0 Plot 4,0 Plot 5,0 Plot 4,1 Plot 5,1 Plot 4,2 Color 255,180,0 Line 2,3,6,3 Plot 4,4 Color 70,180,255 Plot 4,5 Plot 3,6 Plot 5,6 Plot 2,7 Plot 6,7 SetBuffer BackBuffer() ResizeImage plat,64,64 sealed=1 plx=3 ply2=0 timetoend=MilliSecs()+(2601000) Repeat Cls sealed=1 If got=40 Then sealed=0 If KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(208)=0 And KeyDown(200)=0 Then mudown=0 timeleft=timetoend-MilliSecs() DoTime(300,1,timeleft) If timeleft<=0 Then endofgame=2 If won=1 Then endofgame=1 For x=1 To 10 For y=1 To 9 If array(x,y)=1 Then Color 255,0,0:Rect (x-1)64,(y-1)64,64,64,1 If array(x,y)=2 Then Color 255,255,0:Rect (x-1)64,(y-1)64,64,64,1 If array(x,y)=3 Then Color 0,255,0:Rect (x-1)64,(y-1)64,64,64,1 If array(x,y)=4 Then Color 0,255,255:Rect (x-1)64,(y-1)64,64,64,1 If array(x,y)=5 Then Color 0,0,255:Rect (x-1)64,(y-1)64,64,64,1 If array(x,y)=6 Then Color 255,0,255:Rect (x-1)64,(y-1)64,64,64,1 If x=plx And y=ply Then DrawImage plat,(x-1)64,(y-1)64 If y<9 If array(x,y)<>0 And array(x,y+1)=0 Then array(x,y+1)=array(x,y):array(x,y)=0 EndIf Next Next sc=0 For x=1 To 10 For y=1 To 9 If array(10-x,y)=x Then sc=sc+1 If 10-x=1 And y>12-(x) Then Color 255,0,0:Rect (x+20)4,(y+8)4,4,4,1 If 10-x=2 And y>12-(x) Then Color 255,255,0:Rect (x+20)4,(y+8)4,4,4,1 If 10-x=3 And y>12-(x) Then Color 0,255,0:Rect (x+20)4,(y+8)4,4,4,1 If 10-x=4 And y>12-(x) Then Color 0,255,255:Rect (x+20)4,(y+8)4,4,4,1 If 10-x=5 And y>12-(x) Then Color 0,0,255:Rect (x+20)4,(y+8)4,4,4,1 If 10-x=6 And y>12-(x) Then Color 255,0,255:Rect (x+20)4,(y+8)4,4,4,1 If y=9 Then Color 255,0,0:Rect (x+20)4,(y+8)4,4,4,1 Next Next Text 130,60,"=" DrawImage crystal,150,30 If sc=16 Then endofgame=1 If KeyDown(200) And mudown=0 Then jump=30 If KeyDown(203) And array(plx-1,ply)=0 And plx>1 And mudown=0 Then plx=plx-1:mudown=1:jump=0 If KeyDown(205) And array(plx+1,ply)=0 And plx<10 And mudown=0 Then plx=plx+1:mudown=1:jump=0 If KeyDown(208) And mudown=0 And array(plx,ply+1)<>0 And ply<8 And got=0 Then got=array(plx,ply+1):array(plx,ply+1)=0:mudown=1 If KeyDown(208) And mudown=0 And array(plx,ply)=0 And got<>0 Then array(plx,ply)=got:got=0:mudown=1 ply=ply2 If jump>0 Then ply=ply2-1:jump=jump-1 flr=0 If array(plx,ply2+1)<>0 Then flr=1 If jump=0 And flr=0 Then ply2=ply2+1 If array(plx,ply2)<>0 And array(plx,ply2-1)=0 Then ply2=ply2-1 Flip Until endofgame<>0 If endofgame=1 Then T$="You Got the Crystal!" If endofgame=2 Then T$="You're locked in!" Color 0,0,0 Text 400,300,t$,1,1 Color 255,255,255 Text 399,299,t$,1,1 Flip Delay 2500 Function DoTime(x,y,time) tsec$=Right$("000"+((time/1000) Mod 60),2) tmin$=Right$("000"+((time/1000) / 60),2) Color 255,0,0 drawnum(x,y,Int(Mid$(tmin$,1,1))) x=x+40 drawnum(x,y,Int(Mid$(tmin$,2,1))) x=x+40 drawnum(x,y,10) x=x+40 drawnum(x,y,Int(Mid$(tsec$,1,1))) x=x+40 drawnum(x,y,Int(Mid$(tsec$,2,1))) End Function Function DrawNum(x,y,n) Select n Case 1 Rect x+24,y+0,8,32,1 Rect x+24,y+32,8,32,1 Case 2 Rect x+0,y+0,32,8,1 Rect x+0,y+28,32,8,1 Rect x+0,y+56,32,8,1 Rect x+0,y+32,8,32,1 Rect x+24,y+0,8,32,1 Case 3 Rect x+0,y+0,32,8,1 Rect x+0,y+28,32,8,1 Rect x+0,y+56,32,8,1 Rect x+24,y+0,8,32,1 Rect x+24,y+32,8,32,1 Case 4 Rect x+0,y+28,32,8,1 Rect x+0,y+0,8,32,1 Rect x+24,y+0,8,32,1 Rect x+24,y+32,8,32,1 Case 5 Rect x+0,y+0,32,8,1 Rect x+0,y+28,32,8,1 Rect x+0,y+56,32,8,1 Rect x+0,y+0,8,32,1 Rect x+24,y+32,8,32,1 Case 6 Rect x+0,y+0,32,8,1 Rect x+0,y+28,32,8,1 Rect x+0,y+56,32,8,1 Rect x+0,y+0,8,32,1 Rect x+0,y+32,8,32,1 Rect x+24,y+32,8,32,1 Case 7 Rect x+0,y+0,32,8,1 Rect x+0,y+0,8,32,1 Rect x+24,y+0,8,32,1 Rect x+24,y+32,8,32,1 Case 8 Rect x+0,y+0,32,8,1 Rect x+0,y+28,32,8,1 Rect x+0,y+56,32,8,1 Rect x+0,y+0,8,32,1 Rect x+0,y+32,8,32,1 Rect x+24,y+0,8,32,1 Rect x+24,y+32,8,32,1 Case 9 Rect x+0,y+0,32,8,1 Rect x+0,y+28,32,8,1 Rect x+0,y+56,32,8,1 Rect x+0,y+0,8,32,1 Rect x+24,y+0,8,32,1 Rect x+24,y+32,8,32,1 Case 0 Rect x+0,y+0,32,8,1 Rect x+0,y+56,32,8,1 Rect x+0,y+0,8,32,1 Rect x+0,y+32,8,32,1 Rect x+24,y+0,8,32,1 Rect x+24,y+32,8,32,1 Case 10 Rect x+12,y+10,8,12,1 Rect x+12,y+42,8,12,1 End Select End Function Function mousein(x,y,wide,high) If MouseX()=>x And MouseX()<=x+wide And MouseY()=>y And MouseY()<=y+wide Then Return True End Function Function MakeCrystal(wide,high,r#,g#,b#) make=CreateImage(wide,high) SetBuffer ImageBuffer(make) For n=0 To 360 Step 36 For m=0 To 360 Step 36 d#=Float(Abs(180-m))/180 If d>0 Then Color rd,gd,bd Line (wide/2)+(Cos(n)((wide/2)-1)),(high/2)+(Sin(n)((high/2)-1)),(wide/2)+(Cos(n+m)((wide/2)-1)),(high/2)+(Sin(n+m)*((high/2)-1)) Next Next SetBuffer BackBuffer() Return make End Function

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

Wednesday Workshop - Socoder