SRL Archive - General Botting Help

(sorry if this got posted in the wrong section, I have no clue where help for private server botting would fit in)

It just keeps clicking on "Info" and "Worn Equipment"

Images used: cant link….

Program DropLogs;
var
  Drop, Right:Integer;

Procedure  RightLog;
var
  X,Y:Integer;

begin
  if FindBitmapToleranceIn(Right, X, Y, 522, 167, 758, 500, 145) then
    begin
    MoveMouse(X, Y);
    Wait(250);
    ClickMouse(X, Y, mouse_Right);
    end;
end;

Procedure  DropLog;
var
  X,Y:Integer;
begin
  if FindBitmapToleranceIn(Drop, X, Y, 522, 167, 758, 500, 145) then
    begin
      MoveMouse(X, Y);
      Wait(250);
      ClickMouse(X, Y, mouse_Left);
    end;
end;

Begin
  Drop := BitmapFromString(106, 15, 'meJztl80JgDAMhRfp3YNLOKIXd' +
        '3EC11JBkNBX0xf6g5TAO8SYJu1nDDRMc3AVaNsPqUZVlvW8xThLEl' +
        'aMN9FDuwU9uX/0OL0svecI0aPT4+lFGpLea6MTIWcnJ3YdnugLadJ' +
        'PrrXGM375SqcnaWQ5h+/ulUWl0dRWNlAlp4lDLXpMP/yKntKTP6FX' +
        'bus/b4uvMBI9LNqNnj7lksHZDCZ62EKKk1xL1sIwcg9V1P+S0kHd6' +
        'jo9pxfss9SVBEiiuwABGcdj');
  Right := BitmapFromString(31, 18, 'meJx9ldtLAmEQxaOXykuv9VRqF6' +
        'IIpTTM7mF4ycQuElGESEREEElE9NSf3pk9u7Oz+63BQXZ1/H3HMzN' +
        'r+bhZjmpyYiJR06u1mY3T9HY3s3Odqfazu7d4FeG20kuVWvgUZWUH' +
        'aMmLjael3kd2/yG7dweCD/EIihXhUy0w8FyuNI68UB+s9r8hgQd83' +
        '6GnEMsCrwaHprc6qc06fh3N1+ptF55vvxA+e/jowwN7MSwKKMLF+f' +
        'oRnUOJcASi8AjfxR4NRCdDHIpGqO1/YiEZWr76DPmBIlh6RlYM3Ng' +
        'eBy9cvCmfhFDBrRyERiBnGC614Blk2qYSyTIqZ0OSV26+IDUZxutZ' +
        'lfYVGxgPvCmBFxv8+vxOZ67cih2Ba9TLDFd6ibGAA4eAwCorWRwOp' +
        '9cRqQ8mk3yJ+vYHNHQzf/6KelzI71UpMzAQY9qOWDi0dv+rcGSOL+' +
        'IIrJIQKNAoy7SjbifTg8MG4SBDSFjhEsvlCNeROYzJwbLp/k5tdwm' +
        'HZxdukw+39R8yW0940HRZnO67j7oc4dqFR/hJUSgZOwWyjj1XHlg4' +
        'J1ynkQPp74thulGwQPqI+Vw7mCpUdFW5OwpHR1y45Ye941Or2teEV' +
        'XZV5bb5zMBtLP6e2j0yj0rLJM1q3H+EdS6x2yeJmYQY0936PwZMUpc=');
  While 1 do
  begin
  RightLog;
  DropLog;
  end;
  FreeBitmap(Drop);
  FreeBitmap(Right);
end.

From: luckelelle
(sorry if this got posted in the wrong section, I have no clue where help for private server botting would fit in)

It just keeps clicking on "Info" and "Worn Equipment"

Images used: cant link….

You probably won't get must private server help here. It's very hard to know what you mean by "It just keeps clicking on "Info" and "Worn Equipment"" :p

Well, I changed the code a bit. At first it worked, now it just clicks in the top left corner of the inventory. :/

program SpankDasMunki;
{$i srl-6/srl.simba}

var Drop:Integer;

procedure DropLogs;
var X, Y:Integer;
begin
  if FindColorTolerance(X, Y, 1859775, 550, 210, 730, 500, 560) then
  begin
    MoveMouse(X, Y);
    Wait(10);
    ClickMouse(X, Y, 0);
    Wait(10);
      if FindBitmapToleranceIn(Drop, X, Y, 485, 210, 760, 500, 145) then
        begin
        MoveMouse(X, Y);
        Wait(10);
        ClickMouse(X, Y, 1)
    end;
  end;
End;

begin
  Drop := BitmapFromString(30, 14, 'meJyTUdeWoRmauuMYMqK6yZjsUZ' +
        'OxsjEFMR2AVRy/ycSrJI890kzGH6rExBSt8xp1EZ1NBgBOz2y4');
  ActivateClient;
  While 1 do
  begin
  //Wait(1000);
  DropLogs;
  end;
  FreeBitmap(Drop);
end.

It's your Tolerance, you have it so damn high!