SRL Archive - First Scripts

program SoulWarsBoneBuryer;
{$DEFINE SMART}
{$i srl/srl.simba}

const
  SRLStats_User = '';
  SRLStats_Password = '';
  SERVER = 0;
  MEMBERS = True;    //No need for this since they must be a member :P
  NumbOfPlayers = 1; //Leave this out
  StartPlayer = 0;
  AntiBanInvs = 20;

var
  x, y, InvsDone:Integer;

procedure DeclarePlayers;
var
  i:integer;
begin

  HowManyPlayers := 1;  //Have this instead...
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := StartPlayer
  for i := 0 to NumbOfPlayers-1 do
  Players[i].BoxRewards := ['XP'];

  With Players[0] do
  begin
    Name := ''; //Username.
    Pass := ''; //Password.
    Nick := 'SwagDaddy'; // For proggy
    Active := True;
  end;

end;

procedure WithdrawBones;
begin
  if (InvEmpty) or (InvCount < 28) then //You don't need both of these, you can just do if(not InvFull)then
  begin
    repeat
      OpenBankChest(SRL_BANK_SW);  //Have a limit of the number of tries here...
    until(BankScreen)

    if BankScreen then
    begin
      WithDraw(0, 0, 0);    //Give the use an option of which slot, maybe as a constant...
      CloseBank;
    end;
  end;
end;

procedure Bury;
var
  i: integer;
begin
  if InvFull then
  begin
    for i:= 1 to 28 do
      InvMouse(i, 1); //You should add a random wait time between each click...
    Inc(InvsDone);
    Wait(RandomRange(200, 300));
  end;
end;

procedure Report;
begin
  Writeln('[REPORT]$$$$$$$$$$$$$$$ SoulWars Bone Bury $$$$$$$$$$$$$$$');
  Writeln('|= Player : ' + Players[CurrentPlayer].Nick);
  Writeln('|= Time Running : ' + TimeRunning);
  Writeln('|= Inventories Completed : ' + IntToStr(InvsDone));
  Writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$[/REPORT]');
end;

procedure AntiBan;
begin
  if (InvsDone = AntiBanInvs) then      //This will only ever do this once each time you run it, and it isn't very good to do it like this...
  begin                                //You should change it to if(Random(AntiBanInvs) = 0)then that way it will do it randomly every 20 inventories (or however many they select)
    GameTab(Tab_Stats);
    HoverSkill(skill_Prayer, False);
    GameTab(Tab_Inv);
  end;
end;

begin
  ClearDebug;
  Smart_Signed := TRUE;
  Smart_Members := MEMBERS;
  Smart_SuperDetail := FALSE;
  Smart_Server := 69;
  ActivateClient;
  SetupSRL;
  DeclarePlayers;
  MouseSpeed := 100;     //This is incredibly fast... slow down a bit :P
  if not (LoggedIn) then
    LoginPlayer;
  Wait(4000+random(400));
  SetAngle(SRL_ANGLE_HIGH);
  repeat
    WithdrawBones;
    Bury;
    Report;
    AntiBan;
  until(False)
end.