Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|603\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #108 (11 Jul 2007) The Timer Challenge Stick a giant timer on the screen, to show that the player's going to run out of time at any moment.

Locksmith by Jayenkai for Workshop #108 Get the same combo as shown. Mouse 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

Wednesday Workshop #108

The Timer Challenge

Locksmith