SRL Archive - Script Requests

I found a soulsplit theiver on here and it didnt close out of the random that pops up. I asked for help from 2 very good script writers but Im a noob and didnt understand a thing they said to me. Heres how far I got but it still gives me an error everytime can someone fix it and pm me it.

program SilkStealer;
{$i srl\srl.simba}

const
  COLOR = 1147553;
  AMOUNT = 000;

var
  loot, money: Integer;

function ScreenIsUp(): boolean;
var
  Close, X, Y: Integer;
begin
  Close := BitmapFromString(83, 17, 'meJzll19OAjEQxnsFEq9KCP4BER' +
'GEGBONJ/HZo+CDByDeYJ3dr/12mLZrF0QfbL5sJm1o5zfTTsv2/WM' +
'bNBic5bTbfWpNr9fUbLYRre6fqeXyiVosHo3m84ekMA+k559M V0ld' +
'Xt1R5xe31Hh8k9RoNKWGw8lWgefYXVVpdoPcQW2Uw88h5/DFnyRyD' +
't8gQ6+vb9+yy0LOuTjXcHu9eaHK834MPvzJZbwQ/0jwHPVJ2eFPx2' +
'4vYe8F3ou6e+fH7LJK4UkneOFJ17zd4PXMjWJwDmlwdoqIzJ6 YGp2' +
'gFrtldw4REGr81qS7XSiAs4fsYpNd7FyVi8HB60IjONatv2hV Reoa' +
'UzVQt50ROyYkOGwEE+CevfktN0C7egAXo/6GVcCOUbBr27AnwcFrt' +
'roPeJMU755zJuN76XZOY8bgyLUG1wazLwaoEQq6QcNUPE5ugm DYDw' +
'P3sA24Jw1hN/sc6dbgLZr6spOwOrw6Av4UFIDzmzzvPwWuE02DzZS' +
'1vuCEPQw8WesEPM0eFTdUcg7V7GRUWx2dfj9H9Y2VnEO1vc+b zLhe' +
'2gYhlEE4aSqeCze+qflJcF3cfDkN4Ki9aHafN03fYnHS9S3GI VPVt' +
'aFtX+5Ca4vevqt0GE3ikLzmcuBQ+Tut791d8p7JvW1K3jlG+r rvBU' +
'4HTgGegz0GPPfXBpLUJ8HB/jvUp053jr0DHJNrB/4DOCf/k01+ClJ' +
'9zEVfg64x6g==');
  Result := false;
  // put in coords were the vars are
  if FindBitmapToleranceIn(Close, X, Y, 4, 4, 515, 400, 170) then
  begin
    Result := true;
  end;
  FreeBitmap(Close);
end;
procedure StealSilk;
var
  x, y, w, h: integer;
begin
  GetClientDimensions(w, h);
  if ScreenIsUp then
  Begin
     Mouse(X, Y, 472, 19, True);
  End;
  Begin
     MMouse(485,23); ClickMouse2(mouse_left);
  End;
  if FindColor(x, y, COLOR, 0, 0, w - 1, h - 1) then
  begin
    loot := (loot + 1);
    Mouse(x, y, 0, 0, True);
    Writeln('Silk Found!');
    wait(3000)
  end;
end;

procedure Proggy;
begin
  Writeln('');
  Writeln('********************************');
  Writeln('Thanks for using my script!');
  Writeln('We have stolen: ' + IntToStr(loot) + ' loot');
  Writeln('We have stolen: ' + IntToStr(money) + ' money');
  Writeln('********************************');
  Writeln('Much credit to abu_jwka for helping me script most of it!') Writeln('');
  Freebitmap(Close);
end;

begin
  ClearDebug;
  SetUpSRL;
  AddOnTerminate('Proggy');
  repeat
    ClearDebug;
    StealSilk;
    money := (loot * AMOUNT);
  until (IsKeyDown(114));
end.                               

bump

Try to change the coords of were it searched for the bitmap, or change the bitmap OR higher the tolerance.

If none of that works then your probably not making the bitmap correctly

I made the bitmap the way you did in your thread the coords search almost the entire playing screen and i have no idea how to increase tolerance.