#108 - The Timer Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|115\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #108 - The Timer Challenge
Tue, 10 Jul 2007, 16:59
Jayenkai	Wednesday Workshop #108 : The Timer Challenge Time until Deadline Week : 11 July 2007 The Reason : Last minute decision with only 5 mins left on the clock! The Challenge : This week, make the player panic! Whatever game you make, stick a giant timer on the screen, and allow the gameplay to evolve around the fact that the player's going to run out of time at any moment. Extra Info Big clock! But, obviously not so big that it's impossible to see the gameplay...! Weekly Rules/How to Enter You have until Tuesday Night/Wednesday Morning 00:00 BST to submit your levels. ^ See Deadline Link! ^ Wed.Workshop is at SoCoder.co.nr. If you can read this, you're probably already there! Stick your entry underneath this post, leaving a link to your zip or the source of your game, or whatever. (I really should get round to that Upload thing, shouldn't I!) If you can't figure it out, or have a really rubbish server, send it to Jayenkai@Gmail.com and I'll stick it straight onto the SoCoder (Official Wed.Workshop) site. Entries will be collected during the week, and then entered into the next week's voting. (If there are any entries..) Please try to keep all entries within small file sizes. 2Mb is the average maximum for files. Additional Rules are available at the SoCoder (Official Wed.Workshop) site, under the list of previous workshops. Last Week's Games Nobody likes ants, so no entries were made last week. -=-=- ''Load, Next List!''
Tue, 10 Jul 2007, 17:05
Jayenkai	No entries last week! Shame.. And, surprisingly, no-one even commented on the entries for week 106, let alone vote for them! So, fill up your time by commenting and voting on those! In fact, why not go back and vote on some of the earlier workshop entries, too. -=-=- ''Load, Next List!''
Wed, 11 Jul 2007, 14:54
power mousey	my commment and response: if I had more time! as well as wealthy, healthy,and wise too. But that goes without saying...
Fri, 13 Jul 2007, 16:04
dna	Someone did something like this on the old site. I had one of the entries as an example and when I reformatted my drive I lost it. I may try this one. -=-=- DNA
Mon, 16 Jul 2007, 18:40
Jayenkai	Coffee + More Coffee = kickass games! Graphics 800,600,32,2 SetBuffer BackBuffer() SetFont LoadFont("Arial",96,1) SeedRnd MilliSecs() AutoMidHandle True ;Locksmith TFormFilter True Dim Combo(20,2) For n=0 To 9 combo(n,1)=MakeBall(n,16,16,150) combo(n,2)=MakeBall(n,24,24,180) combo(n+10,1)=MakeBall(n,16,16,50) combo(n+10,2)=MakeBall(n,24,24,80) Next Dim map(36,4) Dim tw(4) Dim BagN(144) For n=1 To 144 BagN(n)=(n Mod 10) Next For n=1 To 144 p=Rand(1,144) bagn(0)=bagn(n) bagn(n)=bagn(p) bagn(p)=bagn(0) Next n=1 For x=1 To 36 For y=1 To 4 map(x,y)=bagn(n) n=n+1 Next Next For n=1 To 144 p=Rand(1,144) bagn(0)=bagn(n) bagn(n)=bagn(p) bagn(p)=bagn(0) Next Dim move(8,3) GBag=1 Dim GetCode$(50) GCodes=36 For e=1 To GCodes GetCode$(e)="":For n=1 To 4:GetCode$(e)=GetCode$(e)+BagN(GBag):GBag=GBag+1:Next Next getthiscode=1 EndTime=MilliSecs()+(1001000) Repeat Cls MYS=MouseYSpeed() shifttick=shifttick+MYS MX=MouseX()-400 MY=MouseY()-300 MDist=Sqr((MXMX) + (MYMY) ) WTwist=Twist Twist=ATan2(MX,MY) twistdiff=WTwist-twist Color 0,0,80 Oval 160,60,480,480,1 Color 0,0,0 Oval 300,200,200,200,1 Color 80,80,0 Rect 645,0,120,600,1 Color 80,40,0 Rect 387,0,26,600,1 Color 80,0,0 If GetCode$(GetThisCode)=MyCode$ And allin=1 Color 0,80,0 If MouseX()>645 And MouseY()>280 And MouseY()<320 And MouseDown(1) And mudown=0 mudown=1 GetThisCode=GetThisCode+1 For y=1 To 4 For x=1 To 36 If ((x10)+tw(y))=90 Or ((x10)+tw(y))=90+360 Then map(x,y)=map(x,y)+10;DrawImage combo(map(x,y),2),400+Sin((x10)+tw(y))((y30)+100),300-Cos((x10)+tw(y))((y30)+100) Next Next EndIf EndIf Rect 400,287,400,26,1 Color 0,0,80 Oval 340,240,120,120,1 Color 0,0,220 Text 400,300,GetThisCode-1,1,1 allin=0 If MouseDown(1)=0 mudown=0 allin=1 gripped=0 For y=1 To 4 tw(y)=Int((tw(y)+5)/10)10 Next EndIf MyCode$="" For y=1 To 4 For x=1 To 36 DrawImage combo(map(x,y),1),400+Sin((x10)+tw(y))((y30)+100),300-Cos((x10)+tw(y))((y30)+100) If ((x10)+tw(y))=0 Or ((x10)+tw(y))=360 move(5-y,1)=map(x,y) move(5-y,2)=x move(5-y,3)=y If MouseX()=>380 And MouseX()<=420 Then DrawImage combo(map(x,y),2),400+Sin((x10)+tw(y))((y30)+100),300-Cos((x10)+tw(y))((y30)+100) EndIf If ((x10)+tw(y))=180 Or ((x10)+tw(y))=180+360 move(4+y,1)=map(x,y) move(4+y,2)=x move(4+y,3)=y If MouseX()=>380 And MouseX()<=420 Then DrawImage combo(map(x,y),2),400+Sin((x10)+tw(y))((y30)+100),300-Cos((x10)+tw(y))((y30)+100) EndIf If ((x10)+tw(y))=90 Or ((x10)+tw(y))=90+360 Then mycode$=mycode$+map(x,y);DrawImage combo(map(x,y),2),400+Sin((x10)+tw(y))((y30)+100),300-Cos((x10)+tw(y))((y30)+100) If (MDist>((y30)+100)-15 And MDist<((y30)+100)+15) And (MouseX()<380 Or MouseX()>420) And gripped=0 Then DrawImage combo(map(x,y),2),400+Sin((x10)+tw(y))((y30)+100),300-Cos((x10)+tw(y))((y30)+100):If MouseDown(1) Then gripped=y If gripped=y Then DrawImage combo(map(x,y),2),400+Sin((x10)+tw(y))((y30)+100),300-Cos((x10)+tw(y))((y30)+100):tw(y)=tw(y)+twistdiff:twistdiff=0:If tw(y)<0:tw(y)=tw(y)+360:EndIf:If tw(y)>360:tw(y)=tw(y)-360:EndIf Next Next If (MouseX()=>380 And MouseX()<=420) And gripped=0 If MouseDown(1) Then gripped=5:shifttick=0 EndIf If (MouseX()=>380 And MouseX()<=420) And gripped=5 If shifttick<-24 shifttick=0 For n=1 To 7 map(move(n,2),move(n,3))=move(n+1,1) Next map(move(n,2),move(n,3))=move(1,1) EndIf If shifttick>24 shifttick=0 For n=2 To 8 map(move(n,2),move(n,3))=move(n-1,1) Next map(move(1,2),move(1,3))=move(8,1) EndIf EndIf For y=1 To GCodes For x=1 To 4 DrawImage combo(Mid$(GetCode$(Y),x,1),1),630+(x30),(0-((Y-GetThisCode)40))+300 Next Next ;Onscreen Timer Color 255,185,80 Rect 560,500,240,100,1 Color 0,0,0 Rect 564,504,232,92,1 timeleft=(endtime-MilliSecs())/10 If timeleft<0 Then timeleft=0:endofgame=1 Color 255,185,80 If (timeleft/100)<10 And (timeleft Mod 100)=>50 Then Color 255,0,0 If (timeleft/100)<10 And (timeleft Mod 100)<50 Then Color 80,0,0 If (timeleft/100)=0 Then Color 255,180,180 Text 680,550,Right$("00"+(timeleft / 100),2)+":"+Right$("00"+(timeleft Mod 100),2),1,1 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Color 0,0,0 Text 401,201,"Score",1,1 Text 399,199,"Score",1,1 Color 0,0,220 Text 400,200,"Score",1,1 Text 400,300,GetThisCode-1,1,1 Flip Delay 1500 Function MakeBall(n,w#,h#,d) temp=CreateImage(100,100) SetBuffer ImageBuffer(temp) Color 180,180,180 Oval 0,0,99,99,1 Color d,d,d Oval 16,16,99-32,99-32,1 Color 16,16,16 Text 50,50,n,1,1 SetBuffer BackBuffer() ScaleImage temp,Float(Float(w)/100.0),Float(Float(h)/100.0) Return temp End Function --v Controls : Mouse How to play Get the same combo as shown. You can spin the dials around, and also shift the center column up and down, too. Used numbers are made unusable. Get as many combos as you can. I can manage about 5, but then my eyes are fooked 'cos I've been up for about 2 days! -=-=- ''Load, Next List!''
Mon, 16 Jul 2007, 19:42
svrman	I got a 6! That's pretty cool, jay. Definitely one of those game ideas worth expanding. -=-=- BlitzRSS script back online!
Fri, 20 Jul 2007, 16:23
dna	I wrote this before when we were on the other site and I'll write it again Jay, sometimes you show dashes of brilliance when you come up with an idea for a game. This is fresh. At least for me it is. -=-=- DNA
Fri, 20 Jul 2007, 16:52
Jayenkai	Calm down! It's only a combination lock!!!
Fri, 20 Jul 2007, 17:06
dna	Yes, but you made it a game. It also has other uses, one of which you just mentioned. Brilliant! -=-=- DNA