For those getting logged out when a full load is reached:
Change GuildToBank from this:
Code:
procedure GuildToBank;
var
c:integer;
begin
repeat
c:=c+1;
RadialWalk(MapOreColor,210,270,50,-1,0);
if FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) then break;
if c=10 then begin Logout; exit; end;
until( FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) or(c>10) )
IdleTime(3000, 1000, 1.0);
If FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) Then Mouse(x,y,2,2,True);
Wait(1500+Random(500));
FFlag(0);
ClimbLadderUp;
MouseFindFlag(666,45,-1,-1);
Flag;
MakeCompass('N');
If FindColor(x,y,BankColor,MMX1,MMY1,MMX2,MMY2) then
begin
Mouse(x,y,0,0,True);
FFlag(10);
DTM3Flag(FB1,FB2,FB3,True);
FFlag(3);
end
else
begin
DTM3Flag(FB1,FB2,FB3,True);
FFlag(3);
end;
Players[CurrentPlayer].loc:='Falador';
end;
To this:
Code:
procedure GuildToBank;
var
c:integer;
begin
repeat
c:=c+1;
RadialWalk(MapOreColor,210,270,50,-1,0);
Mouse(x-10,y-10,20,20,true);
//Begin Find ladder patch
Mouse(646,151,2,2,True);
Wait(4500+Random(600));
Mouse(578,75,2,2,True);
Wait(4500+Random(600));
//End Find ladder patch
if FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) then break;
if c=10 then begin Logout; exit; end;
until( FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) or(c>10) )
IdleTime(3000, 1000, 1.0);
If FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) Then Mouse(x,y,2,2,True);
Wait(1500+Random(500));
FFlag(0);
ClimbLadderUp;
MouseFindFlag(666,45,-1,-1);
Flag;
MakeCompass('N');
If FindColor(x,y,BankColor,MMX1,MMY1,MMX2,MMY2) then
begin
Mouse(x,y,0,0,True);
FFlag(10);
DTM3Flag(FB1,FB2,FB3,True);
FFlag(3);
end
else
begin
DTM3Flag(FB1,FB2,FB3,True);
FFlag(3);
end;
Players[CurrentPlayer].loc:='Falador';
end;
Worked great for me after that..mined 1200 coal last nite
Thanks Wizzup and Fakawi for this awesome script!!