Code:
program new;
{$i Runique/RuniqueInclude.simba}
{$i Runique/eZForm.simba}
var
Invs, Cash, XP, XpRate, GpRate, Keys, BankColor:integer; //ints for proggy
procedure Proggy; //progress report
begin
Writeln('***********Mud Runer***********');
Writeln('Inventories Done: ' + IntToStr(Invs));
Writeln('Cash Made: ' + IntToStr(Cash));
Writeln('Approx. Exp Gained: ' + IntToStr(XP));
Writeln('Keys Gained: ' + IntToStr(Keys));
Writeln('***********`````````***********');
end;
function ClickRunes:boolean; //clicks runes in 1st inv slot
var
x, y:integer;
begin
if FindColorTolerance(x, y, 1456472, RuniqueBackPack, 15) then
begin
mouse(x, y, 5, 5, mouse_Left);
end;
end;
function ClickPM:boolean; //clicks pestle in 2nd inv slot
var
x, y:integer;
begin
if FindColorTolerance(x, y, 13553621, 610, 260, 635, 280, 35) then
begin
writeln('ok');
mouse(x, y, 5, 5, mouse_Left);
end;
end;
function ClickGrind:boolean; //clicks grind all runes
var
x, y:integer;
begin
if FindColorTolerance(x, y, 9277080, 207, 430, 290, 490, 35) then
begin
writeln('ok');
mouse(x, y, 5, 5, mouse_right);
wait(750);
RSPSChooseOption('Make All');
end;
end;
function MakingRunes:boolean; //function to stop ClickGrind
var
x, y:integer;
begin
if findColorTolerance(x, y, 65536, 647, 267, 683, 285, 10) then
result := true;
end
Procedure GrindRunes; //Whole procedure to grind runes with pestle
begin
if not RuniqueBagFull then
begin
if not MakingRunes then
begin
ClickRunes;
wait(600);
ClickPM;
wait(1000);
ClickGrind;
wait(2500);
end;
end;
end
function DepositRunes:boolean; //deposits all ground runes
var
x, y:integer;
begin
if FindColorTolerance(x, y, 660764, 560, 297, 726, 501, 15) then
mouse(x, y, 5, 5, mouse_Right);
wait(250);
RSPSChooseOption('Store All');
end
function DepositCandy:boolean; //deposits all candies
var
x, y:integer;
begin
if FindColorTolerance(x, y, 9840246, 560, 297, 726, 501, 15) then
mouse(x, y, 5, 5, mouse_Right);
wait(250);
RSPSChooseOption('Store 5');
end
function DepositKey:boolean; //deposits all hween keys
var
x, y:integer;
begin
if FindColorTolerance(x, y, 6265511, 560, 297, 726, 501, 15) then
mouse(x, y, 5, 5, mouse_Right);
wait(250);
RSPSChooseOption('Store 1');
Keys := Keys + 1;
end
procedure DepositItems; //deposits all in one procedure
begin
DepositRunes;
DepositCandy;
DepositKey;
end
procedure Bank; //banking procedure
var
x, y:integer;
begin
if RuniqueBagFull then
begin
if findColorTolerance(x, y, BankColor, 145, 60, 335, 215, 5) then
mouse(x, y, 5, 5, mouse_Right);
RSPSChooseOption('Use');
wait(1050);
begin
if BankIsOpen then
DepositItems;
begin
if not RuniqueBagFull then
begin
if not MakingRunes then
Closebank;
ClearDebug;
Invs := Invs + 1;
Cash := Cash + (26*(GpRate));
XP := XP + (26 *(XpRate));
Proggy;
end
end
end
end
end
procedure MakeRunes; //main procedure
begin
GrindRunes;
Bank;
end
Procedure main; //^^
begin
repeat
MakeRunes;
until(false);
end;
procedure EndProggy;
begin
ClearDebug;
wait(250);
Proggy;
end
begin
SetupRuniqueinclude();
AddOnTerminate('EndProggy')
XpRate := 60; //Put exp per rune here
GpRate := 8000; //Put Gp per rune here
BankColor := 8822188; //color of your bank stall
ClearDebug;
main;
end.