Learn
10-22-2016, 12:39 AM
Hey I decided to make a Mud Rune crusher for candies/keys in the Private Server Runique.
Function
-Grinds Mud Runes
-Banks Them + H'ween Keys and Candies
There are a few settings you need to have setup.
Bank Tab
27871
Zoom High North and stand in front of Bank Booth
27872
Mud runes must be in first slot. Pestle and Mortar in 2nd slot.
You can also change the XpRate and GpRate at the bottom for a realistic progress report.
Very simple but more to come soon hopefully :p
Shoutout to GoodGameScript for the Include and a lot of useful information <3
***********Mud Runer***********
Inventories Done: 133
Cash Made: 27664000
Approx. Exp Gained: 207480
***********`````````*********** I manually Stopped
***********Mud Runer***********
Inventories Done: 220
Cash Made: 45760000
Approx. Exp Gained: 343200
***********`````````**********
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.
Function
-Grinds Mud Runes
-Banks Them + H'ween Keys and Candies
There are a few settings you need to have setup.
Bank Tab
27871
Zoom High North and stand in front of Bank Booth
27872
Mud runes must be in first slot. Pestle and Mortar in 2nd slot.
You can also change the XpRate and GpRate at the bottom for a realistic progress report.
Very simple but more to come soon hopefully :p
Shoutout to GoodGameScript for the Include and a lot of useful information <3
***********Mud Runer***********
Inventories Done: 133
Cash Made: 27664000
Approx. Exp Gained: 207480
***********`````````*********** I manually Stopped
***********Mud Runer***********
Inventories Done: 220
Cash Made: 45760000
Approx. Exp Gained: 343200
***********`````````**********
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.