Results 1 to 3 of 3

Thread: SoulWars Bone Buryer

  1. #1
    Join Date
    Mar 2012
    Location
    Alberta
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default SoulWars Bone Buryer

    SoulWars Bone Buryer

    Well I've made my first script after quite a few days of reading tutorials and trying to make this is nice as possible

    I needed a bone buryer for soulwars and decided I'd make one as I did't see any others around. So I've finished and it's actually quite stable.

    Just have the bones in the first bank slot of whichever tab, also make sure that tab is open other than that start at soulwars bank chest.

    Features:
    - A proggy
    - Antiban

    Future Updates:
    - Breaking (Once I can learn this )

    Progress Reports:
    This is mine (Did 1000 big bones)
    Progress Report:
    $$$$$$$$$$$$$$ SoulWars Bone Bury $$$$$$$$$$$$$$
    |= Player : SwagDaddy
    |= Time Running : 15 Minutes and 31 Seconds
    |= Inventories Completed : 31
    $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

    Bugs:
    - None ATM.

    Change Log:

    Version 1:
    - Initial Release
    - Had 9 downloads

    Version 2:
    - Minor changes suggested by putonajonny

    Please post proggy's as it's nice to know that it's working well for other's also
    Last edited by SwagDaddy; 06-25-2012 at 06:16 PM.

  2. #2
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Overall really good have a look at my comments:
    Simba Code:
    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.

  3. #3
    Join Date
    Mar 2012
    Location
    Alberta
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks putonajonny, I'll make those changes ASAP, also probably start working on my next script

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •