Получить имя объекта

[Scripts Writer]

Всегда ли это реально, и если нереально, как это сделать?

GetName(id) возвращает 'NoName' либо ''
GetCliloc(id) возвращает ''
GetTooltip(id) возвращает ''

таким образом, следующий код:

Code: Select all

              tmpitemid := FindAtCoord(xx, yy);
              if tmpitemid <> 0 then 
                begin
                  tmpname := GetCliloc(tmpitemid);
                  while ((GetName(tmpitemid) = 'NoName') OR (GetName(tmpitemid) = '')) AND (tmpname = '') AND (GetTooltip(tmpitemid) = '') do
                    begin
                      ClickOnObject(tmpitemid);
                      tmpname := GetCliloc(tmpitemid);
                    end;
                  AddToSystemJournal(GetName(tmpitemid) + '|' + tmpname);
                end;

отрабатывает вечно.

Есть идеи?

[Scripts Writer]

Ответ оказался прост,- не нужно искать на большой дистанции (я искал в радиусе 30 клеток).

Code: Select all

FindDistance := 15;

вполне достаточно.

[Kynep]

Интерестно...