Stealth Client Forum

Code: Select all

ClientRequestObjectTarget
ClientRequestTileTarget
ClientTargetResponsePresent : Boolean
ClientTargetResponse : TTargetInfo
WaitForClientTargetResponse(MaxWaitTimeMS : Integer) : Boolean

Code: Select all

function GetItemInfo() : TTargetInfo;
    begin
        ClientRequestObjectTarget;
        WaitForClientTargetResponse(50000);
        if ClientTargetResponsePresent then Result := ClientTargetResponse;
    end;

Code: Select all

function SetLootBag() : Cardinal;
    begin        
        ClientPrint('Выбери сумку для говен...');        
        TItem := GetItemInfo;
        if not (isContainer(TItem.ID)) then 
            begin
                ClientPrint('Выбран не контейнер!');
                exit;                
            end;
        Result := TItem.ID;
        ClientPrint('Выбрана сумка: ' + GetName(Result));
    end;

Code: Select all

Ttargetinfo = packed record
    ID : Cardinal;
    Tile : Word;
    X, Y : Word;
    Z :  ShortInt;
  end;

Code: Select all

ClientRequestObjectTarget()
while not ClientTargetResponsePresent():
    Wait(100)
target = ClientTargetResponse()

Code: Select all

ClientRequestObjectTarget()
if WaitForClientTargetResponse(10000):
    target = ClientTargetResponse()
else:
    AddToSystemJournal('таргет не алё')