Results 1 to 3 of 3

Thread: EdgeBonfires by Ilya

  1. #1
    Join Date
    Jan 2012
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default EdgeBonfires by Ilya

    Have logs in the first bank spot.
    Start in Edgeville Bank at the north banker.
    Post bugs please.

    Simba Code:
    program EdgeBonfire;
    {$i srl/srl/misc/smart.simba}
    {$i srl/srl.simba}


    Var
    x, y :Integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // This is the player to start with
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := ''; // 3-4 lowercase letters from username;
      Players[0].Active := True; // Set to true if you want to use Player 0
      Players[0].BoxRewards := ['ostume'];
    end;

    function FindBanker(): Boolean;
    begin
    if(StrInArr('Bank', ChatBoxTextArray(clMessage)))
    then
    Wait(RandomRange(200, 700));
    FindObjCustom(x, y, ['Banker'], [3152673], 3);
    Mouse(x, y, 5, 5, false);
    ChooseOption('Bank Banker');
    end;

    function AddLogs(): Boolean;
    begin
    Wait(RandomRange(2200, 2700));
    FindObjCustom(x, y, ['Walk'], [2985208, 3117308], 3);
    Mouse(x, y, 5, 5, false);
    ChooseOption('Add');
    end;

    procedure EndBank;
    begin
    MouseBox(637, 76, 647, 91, 1);
    Wait(1808 + Random(127));
    begin
    WriteLn('Banked!')
    end;
    end;

    Procedure Light;
    begin
      InvMouse(RandomRange(1,1),3);
    ClickMouse2(False);
    WaitOption('Light', 1000);
    Wait(2808 + Random(123));
    end;


    Function GetLogs : boolean;
    begin
    DepositAll;
    Withdraw(0, 0, 28);
    wait(777 + Random(77));
    end;

    begin
      Smart_Server := 5;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;

      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      MakeCompass('N');
      SetAngle(SRL_ANGLE_HIGH);
      wait(500);
      repeat
      FindBanker;
      wait (2000);
      GetLogs;
      EndBank;
      Light;
      AddLogs;
      FindNormalRandoms;
     Wait(RandomRange(90000, 107000));
      until not (LoggedIn);
      end.

  2. #2
    Join Date
    Mar 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No antirandoms. Had to solve some of them. Other than that it's working quite well for me. Don't know if this happens randomly, but the bot actually starts adding logs to the fire someone else is adding logs to.

    Get a proggy on it too, or just some text to run in simba informing how much xp you've gained etc.

  3. #3
    Join Date
    Jan 2012
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Quote Originally Posted by MagicKids View Post
    No antirandoms. Had to solve some of them. Other than that it's working quite well for me. Don't know if this happens randomly, but the bot actually starts adding logs to the fire someone else is adding logs to.

    Get a proggy on it too, or just some text to run in simba informing how much xp you've gained etc.
    I've tried to add a proggy but have been unsucessfull. In the few hours that it took me to get 60 Firemaking yesterday, it was averaging 110k-120k xp an hour with maples.
    Any Advice on how to make a proggy?
    I'll gladly add it in.


    E: And the script looks for any fires that are lit to add logs too. However it attempts to light a new fire every inventory, but if you are standing on a fire, it will just use it.
    Last edited by Ilya; 05-26-2012 at 05:26 PM.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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