Суть такова:
Если вижу возле себя накастованную стенку с указанным тайпом,
то кидаю на нее таргет и кастую "диспел".
Скрипт запускается, стена перед носом,
но в сис журнале - "Цель не определенна. Поиск",
а в уо журнале - "[19:02:37:046] System: Select field to dispel."
Code: Select all
Program Kast;
procedure Resend;
begin
Wait(1000);
UOSay(Chr(39)+'resend');
AddToSystemJournal('Resend');
Wait(3600);
end;
procedure Stena;
var
wall: integer;
Begin
wall := $0080;
FindDistance := 12;
FindVertical := 40;
if FindType (wall,ground) <> 0 then
begin
WaitTargetObject(FindType(wall,ground));
cast('Dispel Field');
wait(3100);
end
else AddToSystemJournal('Цель не определенна. Поиск ...'); wait(500); exit;
end;
begin
while true do
begin
If not(isDead(self)) then Stena;
end;
end.
