Results 1 to 4 of 4

Thread: [ Help ] SoulSplit Theiver

  1. #1
    Join Date
    Jan 2013
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default [ Help ] SoulSplit Theiver

    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.

    Simba Code:
    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.

  2. #2
    Join Date
    Jan 2013
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    bump

  3. #3
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    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

  4. #4
    Join Date
    Jan 2013
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •