Results 1 to 4 of 4

Thread: Need help with RSPS Bot

  1. #1
    Join Date
    Feb 2012
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default Need help with RSPS Bot

    I started some of it but got stuck.

    If someone can help me, I'm willing to pay with 07 rsgp or paypal money.


    Add my skype( Il2pkn00bs ) has 2 zeros.

    Thanks.


    This is the problem:

    Code:
    program Barrowskiller;
    {$i SRL/SRL.simba}
    var
    x,y:Integer;
    
    const
    Monster = 3874162;
    Loot = 'Bones';                     // Loot name including the first letter
    LColor = 10132390;                  // Color of the loot to pick up
    
    
    Procedure Barrowskiller;
    begin
      if srl_infight = false then
        if(FindColorSpiralTolerance(x, y, Monster, MSX1, MSY1, MSX2, MSY2, 4)) then
        begin
          Mouse(x, y, 3, 3, true);
          wait(77000)
        end;
    end;
    
    procedure Loot(X,Y : Integer);
    var
      i, j : Integer;
      Box : TBox;
      Loots : Array of String;
      Options : Array of TOptions;
    begin
      Loots := ['harock', 'plate', 'clue'];
      Mouse(X,Y,0,0,mouse_right);
      Options := GetChooseOptions('action');
      for i := 0 to High(Loots) do
        for j := 0 to High(Options) do
        begin
          if Pos('Take ' + Loots[i],Options[j].Str) > 0 Then
          begin
            Box := Options[j].Bounds;
            GetMousePos(X,Y);
            if PointInBox(Point(X,Y),Box) then
              ClickMouse2(mouse_left)
            else
              MouseBox(Box.x1, Box.y1, Box.x2, Box.y2, mouse_left);
    
              end;
        end;
    end;
    
    
    
    
    
    procedure main;
    begin
    repeat
    Barrowskiller;
    until(false)
    end;
    
    begin
    ClearDebug;
    SetUpSrl;
    ActivateClient;
    main;
    end.
    I need to to attack the Dharock and to loot items. Please help.
    Last edited by alipotter890; 06-17-2013 at 11:34 AM.

  2. #2
    Join Date
    Apr 2013
    Location
    Las Vegas
    Posts
    111
    Mentioned
    1 Post(s)
    Quoted
    35 Post(s)

    Default

    Quote Originally Posted by alipotter890 View Post
    It's for killing monsters and looting then banking.


    I started some of it but got stuck.

    If someone can help me, I'm willing to pay with 07 rsgp or paypal money.


    Add my skype( Il2pkn00bs ) has 2 zeros.

    Thanks.
    Paying for scripts or scripting is not permitted on this website.

    What private server are you attempting to bot on

  3. #3
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    ^^ yea what server I might be able to help

  4. #4
    Join Date
    Feb 2012
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Code:
    program Barrowskiller;
    {$i SRL/SRL.simba}
    var
    x,y:Integer;
    
    const
    Monster = 3874162;
    Loot = 'Bones';                     // Loot name including the first letter
    LColor = 10132390;                  // Color of the loot to pick up
    
    
    Procedure Barrowskiller;
    begin
      if srl_infight = false then
        if(FindColorSpiralTolerance(x, y, Monster, MSX1, MSY1, MSX2, MSY2, 4)) then
        begin
          Mouse(x, y, 3, 3, true);
          wait(77000)
        end;
    end;
    
    procedure Loot(X,Y : Integer);
    var
      i, j : Integer;
      Box : TBox;
      Loots : Array of String;
      Options : Array of TOptions;
    begin
      Loots := ['harock', 'plate', 'clue'];
      Mouse(X,Y,0,0,mouse_right);
      Options := GetChooseOptions('action');
      for i := 0 to High(Loots) do
        for j := 0 to High(Options) do
        begin
          if Pos('Take ' + Loots[i],Options[j].Str) > 0 Then
          begin
            Box := Options[j].Bounds;
            GetMousePos(X,Y);
            if PointInBox(Point(X,Y),Box) then
              ClickMouse2(mouse_left)
            else
              MouseBox(Box.x1, Box.y1, Box.x2, Box.y2, mouse_left);
    
              end;
        end;
    end;
    
    
    
    
    
    procedure main;
    begin
    repeat
    Barrowskiller;
    until(false)
    end;
    
    begin
    ClearDebug;
    SetUpSrl;
    ActivateClient;
    main;
    end.
    I need to to attack the Dharock and to loot items. Please help.

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
  •