SCAR Code:
program MiningArdougne;
{.Include SRL/SRL.Scar}
Var a,x,y : Integer;
const
ArdougneArrow = 2386921;
FoodStall = 7445953;
BearFurStall = 525709;
Bank = 9011075;
Banker = 2371134;
Begin
SetupSRL;
Repeat
Findcolor(x,y,1449759,5,5,512,330)
Mouse(x,y,1,1, true)
a:=a+1
Until(a>=28)
Findcolor(x,y,ArdougneArrow,5,5,512,330)
Mouse(x,y,1,1, true)
Wait (13000)
Findcolor(x,y,FoodStall,5,5,512,330)
Mouse(x,y,1,1, true)
Wait (7000)
Findcolor(x,y,BearFurStall,5,5,512,330)
Mouse(x,y,1,1, true)
Wait (8000)
Findcolor(x,y,Bank,5,5,512,330)
Mouse(x,y,1,1, true)
Wait (15000)
Findcolor(x,y,Banker,5,5,512,330)
Mouse(x,y,1,1, true)
Wait (2000)
Mouse(300,452,1,1, true)
Wait (1000)
Mouse(271,393,1,1, true)
Wait (1000)
Mouse(577,225,2,1, true)
Mouse(568,298,1,1, true)
Findcolor(x,y,525709,5,5,512,330)
Mouse(x,y,1,1, true)
Wait (16000)
Mouse(714,64,1,1, true)
Wait (8000)
Mouse(693,31,1,1, true)
Wait (7000)
Mouse(645,13,1,1, true)
Wait (7000)
Mouse(619,47,1,1, true)
Wait (4000)
End.