В етом скрипте стоит тайп пакламы $0123
- Код: Выделить всё
Program Enticements;
BEGIN
Ignore(self);
SetARStatus(true);
AddToSystemJournal('Скрипт написал proZak (Age of Power)');
UOSay(Chr(39)+'resend');
Wait(8000);
while true do
begin
if targetpresent then CancelTarget;
FindDistance := 7;
if FindType($0123, ground) > 0 then
begin
UseSkill('Enticement');
wait(500);
WaitTargetObject(FindType($0123, ground));
wait(500);
WaitTargetObject(self);
wait(3000);
end;
end;
End.
