This script is extremely simple, but then, so is thieving, all it does is clicks the first stall it finds, and closes the random event window.
First time I've used pascal in years, forgive any poor conventions.
Code:
program SoulsplitThieving;
{$I srl-6/srl.Simba}
var
Stall, StallX, StallY: Integer;
Viewport, UpTextBox: TBox;
UpText: string;
procedure Click(x, y: integer);
begin
mouse(point(x, y), MOUSE_LEFT, MOUSE_ACCURATE);
end;
function Steal: Boolean;
begin
Result := False;
UpText := getTextAtEx(UpTextBox, 0, 0, 3, clWhite, 5, 'upChars07');
if (pos('S t e a l', UpText) = 1) then
begin
Click(StallX, StallY);
wait(2500);
Result := True;
end;
end;
begin
Stall := DTMFromString('mbQAAAHicY2VgYHBhZGAwAOJYIPYAYkcgvgkUv8UAoZ8C8RkgXjmnDYyXz2phWDu/E0yzAsXRMSMWDAYAyEQOtQ==');
Viewport := IntToBox(4, 59, 514, 391);
UpTextBox := IntToBox(4, 59, 291, 79);
repeat
if (getColor(472, 74) = 65535) then
Click(472, 74);
if not Steal then
begin
if (findDTM(Stall, StallX, StallY, Viewport)) then
mouse(point(StallX, StallY), MOUSE_MOVE, MOUSE_ACCURATE);
end;
until (false);
end.
These are the settings used while writing the script
7f86db5ae3.png
Remember to select the game applet as the client.
I also suggest having the camera as high as you can, so players and NPCs don't get in the way of the mouse.