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;
Если повтор - прошу прощения!