Code: Select all
var t : Integer; 
      enemy, staff : Cardinal; 
 STime: TDateTime; 
{$Include 'all.inc'} 
Begin 
Enemy := $003258E8; // ID NPC 
staff := $003258E8; // ID Taming Staff 
SetARStatus(true); 
{Hungry(1,backpack);} 
clearjournal; 
while not Dead do 
 begin 
   WaitTargetObject(Enemy); 
   UseObject(staff); 
  STime := Now; 
  WaitJournalLine(STime,'You fail|accept',100000); 
  UOSay('all release'); 
  wait(1000); 
  If WarMode Then 
   begin 
    SetWarMode(False); 
    UOSay('guards'); 
    wait(1000) 
   end; 
 end; 
End.
