Simba Code:
program SuperPrayer;
{$i srl/srl.simba}
var
X, Y, Bone, Prayer, totalxp, xpperhour, madehour, potsmade: Integer;
Procedure Proggy;
Begin
ClearDebug;
totalxp := round((potsmade)*25000)
xpperhour := round((potsmade)/(gettimerunning/3600000.0))*(8000)
madehour := round((potsmade)/(gettimerunning/3600000.0));
writeln(' Time Running: '+ MsToTime(GetTimeRunning,3))
writeln(' Total Xp Gained: ' + inttostr(totalxp))
writeln(' Xp/hr: ' + inttostr(xpperhour))
writeln(' Pots Made: ' + inttostr(potsmade))
writeln(' Pots Made Per Hour: ' + inttostr(madehour))
End;
Procedure Bank;
begin
if FindColorTolerance(X, Y, 2713736, 235, 105, 281, 149, 2) then
begin
Mouse(X, Y, 1, 1, true);
wait(250);
end;
end;
Procedure DepositPray;
begin
if FindColorTolerance(X, Y, 1589619, 381, 294, 416, 312, 5) then
begin
Mouse(X, Y, 1, 1, true);
end;
end;
Procedure GetBone;
begin
if FindDTM(Bone, X, Y, 24, 80, 483, 287) then
begin
Mouse(X, Y, 1, 1, false);
ChooseOption('Withdraw 14');
end;
end;
Procedure GetPray;
begin
if FindDTM(Prayer, X, Y, 20, 21, 500, 319) then
begin
Mouse(X, Y, 1, 1, false);
wait(250);
ChooseOption('Withdraw 14');
end;
end;
Procedure ShutBank;
begin
If FindColorTolerance(X, Y, 1580065, 483, 23, 496, 36, 3) then
begin
Mouse(X, Y, 1, 1, true);
end;
end;
Procedure MakePots;
begin
if FindDTM(Bone, X, Y, 547, 194, 758, 490) then
begin
Mouse(X, Y, 1, 1, true);
wait(randomrange(150, 250));
if FindDTM(Prayer, X, Y, 547,194, 758, 490) then
begin
Mouse(X, Y, 1, 1, true);
wait(randomrange(150, 250));
IncEx(potsmade, 1);
Proggy;
repeat
MakePots;
until(not InvFull);
end;
end;
end;
begin
MouseSpeed := 70
SetupSRL;
Bone := DTMFromString('mAAEAAHic42FgYMhkZGDIAOI4IE4B4jwgLgDiNCBOhPJBOBmIk0DqgHrSgDgdiGOBOAGIM4A4G4hzgDgVSqdB5VpC1BmmJegyLM00ZJgSp81Q6K7EkGwvyzAzSY+hO0KLodxHhSHLRR4sPzdZj4ETqIcUzEgiRgYAcaUWlg==');
Prayer := DTMFromString('m1gAAAHic42JgYJjGyMAwC4jnQukpUDwRiCczIuSTgWozgDgLiFOBOAGIY4E4E4hzkLDytmYGmQnpDGKlIQwSVeEM4ZeWMMRdXs7gdmkeg/3F2Qx6F6cxKCwpZeAEqiUGMxKJEQAA+ioYaw==');
repeat
Bank;
DepositPray;
GetBone;
GetPray;
ShutBank;
MakePots;
until(false);
FreeDtm(Bone);
FreeDtm(Prayer);
end.