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.