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