PkHonor Super Prayers

[Hellian]

Alright Well this is my first script, It makes Super prayer potions, goto your own private by doing ::private (YourName). Make sure that the bone meal and Prayer Potions(4) are visible on bank screen.

Also goto settings an turn game menus off. Please give me feedback, I know this script is not perfect an fast but its my first one just trying to get better.

Script does not detect randoms or solve them so do not leave this script unattended


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('mAAEAAHic42FgYMhkZGDIAOI4IE4B4jwgLg DiNCBOhPJBOBmIk0DqgHrSgDgdiGOBOAGIM4A4G4hzgDgVSqdB 5VpC1BmmJegyLM00ZJgSp81Q6K7EkGwvyzAzSY+hO0KLodxHhS HLRR4sPzdZj4ETqIcUzEgiRgYAcaUWlg==');
Prayer := DTMFromString('m1gAAAHic42JgYJjGyMAwC4jnQukpUDwRiC czIuSTgWozgDgLiFOBOAGIY4E4E4hzkLDytmYGmQnpDGKlIQwS VeEM4ZeWMMRdXs7gdmkeg/3F2Qx6F6cxKCwpZeAEqiUGMxKJEQAA+ioYaw==');
repeat
Bank;
DepositPray;
GetBone;
GetPray;
ShutBank;
MakePots;
until(false);
FreeDtm(Bone);
FreeDtm(Prayer);
end.