ogod. I just realized, didn't post it!
Simba Code:
program StallTheiver;
{$i srl\srl.simba}
(*
Ok, to pick colors, you're going to click the little eyedropper thing.
^ (look up from that arrow)
you're going to then copy-paste the color into the COLOR thing. But make sure to get rid of the 000 on there. *)
const
COLOR = 000; //replace 000 with the numbers you get for each stall.
AMOUNT = 000; //replace 000 with the amount gained from when you steal from the stall
var
loot, money :Integer;
procedure StealSilk;
var
x, y, w, h: integer;
begin
GetClientDimensions(w, h);
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 else
wait(100);
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('');
end;
begin
ClearDebug;
SetUpSRL;
AddOnTerminate('Proggy');
repeat
ClearDebug;
StealSilk;
money := (loot * AMOUNT);
until (IsKeyDown(114)); //pres F3 to stop and continue to Proggie!
end.