Results 1 to 1 of 1

Thread: Help with First OSRS AL Script

  1. #1
    Join Date
    Sep 2014
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default Help with First OSRS AL Script

    Code:
    program Simple NMZ Things;
    {$I SRL-OSR/SRL.Simba}
    
    const
      mode = 'absorb';
    
    var
      Absorb, tree, X, Y: Integer;
    
    procedure DrinkAbsorb;
    begin
      Absorb := DTMFromString('mWAAAAHicY2FgYJjGxMAwB4j7gXgqEFsxMjDoQbEcEG/acxCoihGOWRlQASMaBgEAWG8FVg==');
      FTab(tab_inv);
      if (FindDTM(Absorb, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        WriteLn('found Absorb');
        MMouse(x, y, 3, 3);
        if IsUpText('rink') then
          Mouse(x, y, 0, 0, True);
      end;
      freeDTM(Absorb);
    end;
    
    procedure Antiban;
    begin
      case random(5) of
        1: MMouseOffClient('top');
        2: MMouseOffClient('left');
        3: MMouseOffClient('right');
        4: MMouseOffClient('bottom');
      end;
    end;
    
    function outofNMZ: Boolean;
    var
      tree, X, Y: Integer;
    begin
      tree := DTMFromString('mGQAAAHicY2RgYJjAxMBgB6RlnbgZWIE0IxAzAAAVhAFC');
      if (FindDTM(tree, x, y, MMX1, MMY1, MMX2, MMY2)) or IsChatBoxTextAnyLine('can only', clBlack) then
        Result := true
      else
        Result := false
    end;
    
    function TimeToDrink: Boolean;
    begin
      if FindChatBoxText('absorb any', 8, clBlack) then
        Result := true
      else
        Result := false
    end;
    
    begin
      SetupSRL;
      ActivateClient;
      ClearDebug;
      SetAngle(SRL_ANGLE_HIGH);
      FTab(tab_inv);
      FTab(tab_stats);
      if (mode = 'absorb') then
        repeat
          if (outofNMZ) then
            LogOut;
          freeDTM(tree);
          if (not TimeToDrink) then
            repeat
              DrinkAbsorb;
            until (TimeToDrink);
          Antiban;
          sleep(1800000 + random(600000));
        until (not loggedin);
    end.
    I am using this with OSBuddy and everything works perfectly except it does not stop drinking absorption pots.

    Edit: Evidently, it could not find the words "absorb any" and so I have to use a different set of words.
    Last edited by stopsign; 09-11-2015 at 11:20 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
  •