SRL Archive - OSR Help

Need help with RSPS Bot

alipotter890

2013-06-16 11:12:37

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:


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.

bob_dole

2013-06-16 21:06:03

From: alipotter890
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

rj

2013-06-16 23:16:25

^^ yea what server I might be able to help

alipotter890

2013-06-17 07:31:27


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.