SRL Archive - Help

at the moment my script is just clicking a magic tree, I followed a guide on how to drop logs although mine is not dropping for some reason maybe someone can help me? Here is my code so far:

program New;
{$i srl/srl.simba}
var
Drop: Integer;
procedure ClickTree;
var
 X, Y: Integer;
 begin
  if FindColorTolerance (X, Y, 3240032, 244, 61, 293, 110, 5) then
  begin;
    mmouse(x, y,1,1);
    wait(250);
    ClickMouse(X, Y, mouse_Left)
    wait(20000)
    if FindBitmapToleranceIn(Drop, X, Y, 244, 61, 293, 110, 145) then
    begin
      mmouse(x, y,1,1);
      wait(250);
      ClickMouse(X, Y, mouse_Left)
    end;
end;
end;
Begin
repeat
MouseSpeed := 15;
Drop := BitmapFromString(100, 6, 'meJzNk0kOwCAIRTlad17ArXfqjW' +
        '2jCflhcohNSljQHxR4lpRLyqU2IyIRn/Xrrqbv1epnl5KPDOWxqmA' +
        'iWYiBrhvWgYbpQUadmsU5JqvVQqgMWXFX+IlYPN1ruGeiwjHr4pSp' +
        '6xwEaJbeK8R3xqyw+jAz+VusFyF4bj3aZDzcwY0L5/8r7OE7VvpZ/' +
        '8OqL8IPWR0Z7Tir1x8Vg/7R');
ClickTree;
FreeBitMap(Drop);
until(false)
end. 

Try using a different bitmap or change the area were it looks for it, or yo can higher the tolerance

You've got it finding the log, but not actually dropping the log.

begin
    if FindDTM(Drop, x, y, InvSlot.X1, InvSlot.Y1, InvSlot.X2, InvSlot.Y2) then
    ChooseOption('Dro');
 end;

*I think* :c

From: Chris!
You've got it finding the log, but not actually dropping the log.

begin
    if FindDTM(Drop, x, y, InvSlot.X1, InvSlot.Y1, InvSlot.X2, InvSlot.Y2) then
    ChooseOption('Dro');
 end;

*I think* :c

Pretty sure he's using this for a rsps as the code is quoted from my "how to bot on a rsps" tut

Definitely have to update your bitmap, but also check that your tolerance is correct. Shouldn't be too high that it finds it anywhere, and shouldn't be too low that it can't find it at all.
~Rez

You never right-click so the Drop bitmap is never shown.