I added a progress report in your script. Not to mention SRL Multiplayer forms and amount of times it should pick pocket. GOOD LUCK! im 78 theivng and im begging to see how your script turns out. Ill post proggy in 3 hrs.
SCAR Code:
{_________________________________________
[ Waddos MTF (Master Thieving Farmer) ]
[ ]
[ How Many Times = Amount of times to ]
[ pickpocket the Farmers. ]
[________________________________________]
}
program MTF;
{.include srl/srl.scar}
{.include srl/srl/misc/users.scar}
var
x,y,PickPocketed,SPickPocketed,FPickPocketed,RPickPocketed:integer;
procedure mainloop;forward;
procedure WaddoProggy;
begin
Writeln('__________________________________________');
Writeln('[ ]');
Writeln('[ Waddos Draynor Master Farmer Thiever ]');
Writeln('[________________________________________]');
Writeln('[ ]');
Writeln('[ Pick Pocketed | '+IntToStr(PickPocketed));
Writeln('[ Succesfully | '+IntToStr(SPickPocketed));
Writeln('[ Failed | '+IntToStr(FPickPocketed));
Writeln('[________________________________________]');
end;
Function FindFarmer:Boolean;
Var
TempTpa: TpointArray;
Temp: T2DPointArray;
H, CTS, I:Integer;
TempX, TempY:Integer;
Begin
TempX:=254;
TempY:=146;
If Not LoggedIn Then Exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(TempX, TempY, TempTPA, 5273201, MSX1, MSY1, MSX2-100, MSY2-100, 10);
Temp:= TPAtoATPAEx(TempTPA, 25, 25);
SortATPASize(Temp, True);
H:=High(Temp);
For I := 0 To H Do
Begin
MiddleTPAEx(Temp[i], TempX, TempY);
MMouse(TempX, TempY, 3, 3);
wait(50);
Result:=IsUpText('armer');
If Result Then Break;
End;
ColorToleranceSpeed(CTS);
if result then writeln('found');
End;
{this will use a TPA fuction to find the master farmer then it will then right
click and chose pickpocket, if it does not find the frmer at first it will
rotate the camera until it does}
procedure pickpocket;
var
rotatetime,mark:integer;
begin
if not FindFarmer then
begin
marktime(rotatetime);
repeat
keydown(vk_left);
wait(500+random(200));
keyup(vk_left);
until ((FindFarmer) or (timefrommark(rotatetime)>=7000));
if not FindFarmer then mainloop;
end;
if isuptextmulticustom(['Pickpocket','ick','ocket']) then
begin
getmousepos(x, y);
mouse(x, y, 0, 0, false);
if ChooseOption('ickpocket') then
begin
fflag(0);
marktime(mark);
repeat
wait(100);
until FindBlackChatMessage('stun') or FindBlackChatMessage('steal') or (TimeFromMark(mark) >= 7000+random(100));
if FindBlackChatMessage('steal') then
begin
RPickPocketed := RPickPocketed + 1;
PickPocketed := PickPocketed + 1;
SPickPocketed := SPickPocketed + 1;
end else
RPickPocketed := RPickPocketed + 1;
PickPocketed := PickPocketed + 1;
FPickPocketed := FPickPocketed + 1;
wait(3000+random(2000));
end;
end;
end;
procedure setup;
begin
setupsrl;
SRLPlayerForm(True, [], ['How Many Times'], [], []);
activateclient;
end;
procedure mainloop;
begin
repeat
pickpocket;
WaddoProggy;
until (RPickPocketed = Players[CurrentPlayer].Integers[0])
if not (LoggedIn) then
begin
NextPlayer(False);
RPickPocketed := RPickPocketed - RPickPocketed;
end;
end;
begin
repeat
setup;
mainloop;
until(false);
end.