Stealth Client Forum

Code: Select all

var
TItem : TTargetInfo; // объявляем глобальную переменную, чтобы была доступна во всем скрипте.
        
//функция которая возвращает содержимое нашего таргета
function GetItemInfo() : TTargetInfo;
    begin
        ClientRequestObjectTarget; //просим юзверя ткнуть в что ему там хочется
        WaitForClientTargetResponse(50000); //ждем пока тычет
        if ClientTargetResponsePresent then Result := ClientTargetResponse; // дождались, вроде - ткнул!       
    end;
   
//конкретный пример. Чар берет с таргета инфу и проверяет контейнер ли это, если да - то ок, если нет - повторяем сначала. 
procedure SetDischargeBag();
    begin
        ClientPrint('Выбери куда будем выгружаться!');
        TItem := GetItemInfo(); 
        Wait(1000);        
        while not (IsContainer(TItem.ID)) and not Dead do 
            begin
                TItem := GetItemInfo();                            
                ClientPrint('Выбрана не сумка!');
                Wait(1000);
            end;
        ClientPrint('Спасибо, сумка выбрана!');
    end;