SCAR Code:
procedure Bank2Mine;
var FallyRoadColor : integer;
begin;
FallyRoadColor := (FindFallyRoadColor)
RadialRoadWalk(FallyRoadColor,196,206,55,1,1)
Wait(100+Random(15))
RadialRoadWalk(FallyRoadColor,175,190,70,1,1)
Wait(100+Random(15))
RadialRoadWalk(FallyRoadColor,176,187,50,1,1)
Wait(500+Random(20))
RadialRoadWalk(FindRoadColor,180,195,53,1,1)
Wait(300+Random(10))
RadialRoadWalk(FindRoadColor,175,188,63,2,1)
Wait(80+Random(25))
RadialRoadWalk(FindRoadColor,175,190,68,1,1)
RadialRoadWalk(FindRoadColor,270,290,70,1,1)
Wait(100+Random(20))
RadialRoadWalk(FindRoadColor,267,276,70,1,1)
Wait(100+Random(10))
RadialRoadWalk(FindRoadColor,300,320,65,1,1)
Wait(500+Random(70))
RadialRoadWalk(FindRoadColor,290,300,70,1,0)
Wait(600+Random(100))
RadialRoadWalk(FindRoadColor,270,290,62,0,2)
Wait(500+Random(300))
RadialRoadWalk(FindRoadColor,180,200,45,0,0)
WWait(100)
RadialWalk(240,173,286,26,0,0)
Wait(500+Random(300))
FindColor(x,y,1326674,0,0,515,340)
Mouse(x,y,1,1,false)
ChooseOption(x,y,'pen')
ClearDebug
WriteLN('Through door and into guild.')
FindSymbol(x,y,'Mining Spot')
Mouse(x,y,0,1,false)
WriteLN('At mine.')
end;