Code: Select all
Program name;
begin
    Ignore(self);
    FindDistance := 20;
    if (FindType($0190, Ground) > 1) or (FindType($0191, Ground) > 0) then
        begin   
            //GetCliloc(FindItem);     
            //wait (5000)  
            ClickOnObject(FindItem);
            wait (5000)
            AddToSystemJournal('Name PK: ' + GetName(FindItem));
        end;
end.Версия стелса последняя, на других не пробовал12:36:14:639 [...]: Compiling
12:36:14:654 [...]: Compiled succesfully
12:36:19:657 [...]: Name PK:
12:36:19:659 [...]: Succesfully executed
12:36:19:662 [...]: Script гет нейм.sc stopped successfuly


