Code: Select all
Program Armslore;
var
ctime : TDateTime;
enemy : Cardinal;
{$Include 'all.inc'}
Begin
Enemy := $4004B670;//Указать предмет
SetARStatus(true);
clearjournal;
CheckSave;
while not Dead do
begin
If TargetPresent Then CancelTarget;
clearjournal;
UseSkill('Arms Lore');
WaitJournalLine(Now, 'What would you like to evaluate?',3000);
If TargetPresent then TargetToObject(enemy);
WaitJournalLine(Now, 'Attack|You are not',6000);
CheckSave;
end;
End.