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.