Word
2013-02-26 19:37:26
As title says, man/woman thiever. Simple anti-leech:
Not perfect in any way, since getchatboxtext() wasn't working for me, and neither was P07_IsUpTextMultiCustom() (and because I'm learning pascal, obviously). As simple as it gets, so no doors/perfect wait, YET. Will improve it as I learn.
Credit: guides in the respective sections.
- Loop not infinite
- Colour has to be provided by you
- One other simple error
Not perfect in any way, since getchatboxtext() wasn't working for me, and neither was P07_IsUpTextMultiCustom() (and because I'm learning pascal, obviously). As simple as it gets, so no doors/perfect wait, YET. Will improve it as I learn.
program WordPocket;
{$i srl/srl.simba}
{$i P07Include.simba}
{$i Troll.simba}
var
x, y, XPPH, noTimes, pickPH: Integer; PBox: TBox; xz: Integer; xyz, xzy : Integer; lol : String; woMan: Integer;
Procedure pickPocketing;
begin
PBox := IntToBox(240, 158, 285, 198);
If AveragePixelShift(PBox, 250, 350) < 100 then
If FindColorSpiralTolerance(x, y, [colour of woman/man], P07_MSX1, P07_MSY1, P07_MSX2, P07_MSY2, 7) then
MMouse(x, y, 1, 0);
ClickMouse2(mouse_Right);
wait(randomRange(200, 300));
P07_ChooseOptionMulti(['ickpocket']);
repeat
wait(randomRange(200, 300));
until AveragePixelShift(PBox, 250, 350) < 100;
noTimes := noTimes + 1;
end;
//woman is: 5572950.
procedure Progress;
begin
pickPH := Round((noTimes * 3600) / (GetTimeRunning / 1000));
XPPH := Round(((noTimes * 8) * 3600) / (GetTimeRunning / 1000));
ClearDebug;
Writeln('Pickpocketed: ' + IntToStr(noTimes) + ' (' + IntToStr(pickPH) + ' per hour)');
Writeln('Experience earned: ' + IntToStr(noTimes * 8)+ ' (' + IntToStr(XPPH) + ' per hour)');
Writeln('Total time running: ' + TimeRunning);
end;
Function arewePocketing: Boolean;
var
PBox: TBox;
Begin
PBox := IntToBox(240, 158, 285, 198);
Result := (AveragePixelShift(PBox, 250, 350) > 90);
End;
begin
SetupP07Include;
ActivateClient;
SetupSRL;
ClearDebug;
xz := 0;
repeat
xz := xz + 1;
pickPocketing;
wait(randomRange(200, 300));
//writeln('Says: '+GetChatBoxText(8, clBlack));
Progress;
until xz = 100;
End. Credit: guides in the respective sections.