SCAR Code:
Function Findandpickpocket(x, y, Color1, color2, color3: integer; name1: string): boolean;
var i,v,b: integer;
var man: integer;
begin
man:= Createbitmapmaskfromtext(name1,upchars);
i:=0;
repeat
i:=i+1;
if findcolortolerance(x,y,color1,1,1,700,700,2) or
findcolortolerance(x,y,color2,1,1,700,700,2) or
findcolortolerance(x,y,color3,1,1,700,700,2) then
begin
Mouse(x,y,0,0,false);
if findpopup(name1) or
(findbitmapmasktolerance(man,v,b,0,0,516,39,20,50)) then
begin
typesend(' ');
Popup('ickpock');
wait(1000+random(1000));
end;
if (GetlastChatTextblack ('You pick the woman')=true)
or (GetlastChatTextblack('You pick')=true) then
begin
result:=true;
DisguiseScar('successful');
wait(2000+random(1000));
DisguiseScar('Trying again');
successfulPickpockets:=successfulPickpockets+1;
end else;
if (not(GetlastChatTextblack ('You pick the woman')=true))
or (not(GetlastChatTextblack('You pick')=true)) then
Result:=false;
UnsuccessfulPickpockets:= UnsuccessfulPickpockets+1;
end else;
Result:=false;
exit;
until(result=true) or (i>=10);
end;
that always results true and false and iv run out of ideas