Stealth Client Forum

Code: Select all

Program New;
var
i          : integer;
x          : integer;
list2      : TStringList;
UserList   : TStringList;
 
BEGIN

ClearShopList;
SetAutoSellDelay($0001);
AutoSell($1EFD,$0000,999);
UOSay('Hello World');
FindDistance:= 9;
FindVertical:= 9;
list2 := TStringList.Create;
FindType($0190,Ground);
wait(100);
UserList := TStringList.Create;
GetFindedList(UserList);
for i:= 0 to UserList.count -1 do
begin
    FillNewWindow(GetTooltip(StrToInt('$'+UserList[i])));
    if  0 < pos('tailor', GetTooltip(StrtoInt('$'+UserList[i]))) then
    begin
        ClearContextMenu;
        RequestContextMenu(StrtoInt('$'+UserList[i]));
        wait(1000);        
        GetContextMenu(list2);
        for x:= 1 to list2.count do
        begin
            if  0 < pos('Sell', list2[x]) then
            begin
                SetContextMenuHook(StrToInt('$'+UserList[i]), x);                    
            end;
            ClearShopList;
        end;
        ClearContextMenu;        
    end;
end;
UserList.free;
list2.free;

End.