Обнаружение опасностей

Program guards;
{$Include 'all.inc'}

var
t : TDateTime;


procedure go_poizon;
begin
  UOSay('.guards');
  Wait(100);
  FindTypeEx($0DD6,$005B,backpack,false);
  UseObject(FindItem);
  Wait(7000);
  FindTypeEx($0DD6,$03E9,backpack,false);
  UseObject(FindItem);
  Wait(1000);
  SetARStatus(false);
  Disconnect;
end;


procedure crit_hp;
begin
  UoSay('.guards')
  Wait(100);
  FindTypeEx($0DD6,$03E9,backpack,false);
  UseObject(FindItem);
  Wait(1000);
  SetARStatus(false);
  Disconnect;
end;


procedure kill_thief;
begin
  UOSay('.guards');
  Wait(1000);
end;


Begin
  SetARStatus(true);
  while (not dead) and (connected) do
  begin
    t := now;
    if Poisoned then go_poizon;
    if (HP < MaxHP / 2) then crit_hp;
    if InJournalBetweenTimes('steal', t, now) > 0 then kill_thief;
    Wait(100);
  end;
End.
 
faq/stealth/etc/guards.txt · Последние изменения: 2019/11/19 16:11 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki