SRL Archive - RuneScape Private-Server Scripts

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('mAAEAAHic42FgYMhkZGDIAOI4IE4B4jwgLgDiNCBOhPJBOBmIk0DqgHrSgDgdiGOBOAGIM4A4G4hzgDgVSqdB5VpC1BmmJegyLM00ZJgSp81Q6K7EkGwvyzAzSY+hO0KLodxHhSHLRR4sPzdZj4ETqIcUzEgiRgYAcaUWlg==');
Prayer := DTMFromString('m1gAAAHic42JgYJjGyMAwC4jnQukpUDwRiCczIuSTgWozgDgLiFOBOAGIY4E4E4hzkLDytmYGmQnpDGKlIQwSVeEM4ZeWMMRdXs7gdmkeg/3F2Qx6F6cxKCwpZeAEqiUGMxKJEQAA+ioYaw==');
repeat
Bank;
DepositPray;
GetBone;
GetPray;
ShutBank;
MakePots;
until(false);
FreeDtm(Bone);
FreeDtm(Prayer);
end.