SRL Archive - SRL Bugs

ok, so getting my script ready for SRL5, and when i compile i get

[Error] C:\Simba\Includes\srl/srl/skill/woodcutting.simba(23:17): Unknown identifier 'FindTransparentBitmapTolerance' at line 22

not entirely to what FindTransparentBitmapTolerance does or how it works, so i cant suggest a substitute

~shut

I looked through mine and that's not there, are you cloning from git://github.com/SRL/SRL-5.git ?

yup, i will update and try again

~shut

EDIT: ah, it was fixed yesterday :duh:

ok, another problem

the colours for the bird nest doesnt seem to work anymore

function FindBirdsNest: Boolean;
var
  tries, x, y: Integer;
  s: string;
begin
  s:= GetChatBoxText(8, 255)
  if (Pos(s, 'A bird') <> 0) then
  begin
    repeat
    x:= MSCX;
    y:= MSCY;
      if not (FindObj(x, y, 'Take Bird', 3163721 , 10)) or
        not (FindObj(x, y, 'Take Bird', 4673617 , 10)) or
        not (FindObj(x, y, 'Take Bird', 3032134 , 10)) then
      begin
        KeyDown(VK_LEFT);
        Wait(700 + Random(500));
        KeyUp(VK_LEFT);
        Wait(400 + Random(300));
      end;
      if not (FindObj(x, y, 'Take Bird', 3163721 , 10)) or
        not (FindObj(x, y, 'Take Bird', 4673617 , 10)) or
        not (FindObj(x, y, 'Take Bird', 3032134 , 10)) then
      begin
        x := 648;
        y := 83;
        tries := tries + 1;
        FindColorSpiral(x, y, 241, 570, 5, 725, 155);
        Mouse(x + 3, y + 3, 2, 2, True);
        Flag;
        Wait(200 + Random(100));
      end;
      if (FindObj(x, y, 'Take Bird', 3163721 , 10)) or
        (FindObj(x, y, 'Take Bird', 4673617 , 10)) or
        (FindObj(x, y, 'Take Bird', 3032134 , 10)) then
      begin
        WriteLn('Birds Nest Found');
        Wait(450 + Random(400));
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        Flag;
        Result := True;
        Wait(500 + Random(300));
        if (Screenshots) then
          SaveScreenshot('Birds Nest - SRL - ' + IntToStr(GetTimeRunning) + '.bmp');
        tries := tries + 100;
 //       Birdsnest := Birdsnest + 1;
        Mouse(583, 226, 2, 2, False);
        Wait(100 + Random(100));
        ChooseOption('Examine');
        Exit;
      end;
    until (FindObj(x, y, 'Take Bird', 3163721 , 10)) or
      (FindObj(x, y, 'Take Bird', 4673617 , 10)) or
      (FindObj(x, y, 'Take Bird', 3032134 , 10)) or (tries > 5)
  end;
end;         

those ones work

sorry for the bug reports :s

Thanks, Shut. I've committed your fix, and will push it later today.