Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|82|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
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()+(100*1000)
Repeat
Cls

MYS=MouseYSpeed()

shifttick=shifttick+MYS


MX=MouseX()-400
MY=MouseY()-300
MDist=Sqr((MX*MX) + (MY*MY)  )
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 ((x*10)+tw(y))=90 Or ((x*10)+tw(y))=90+360 Then map(x,y)=map(x,y)+10;DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+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((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100)

		If ((x*10)+tw(y))=0 Or ((x*10)+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((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100)
		EndIf
		If ((x*10)+tw(y))=180 Or ((x*10)+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((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100)
		EndIf
		
		If ((x*10)+tw(y))=90 Or ((x*10)+tw(y))=90+360 Then mycode$=mycode$+map(x,y);DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100)
		If (MDist>((y*30)+100)-15 And MDist<((y*30)+100)+15) And (MouseX()<380 Or MouseX()>420) And gripped=0 Then DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100):If MouseDown(1) Then gripped=y
		If gripped=y Then DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+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+(x*30),(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