Code: Select all
Program ItemID;
var i : Integer;
DagerType : Word;
Dager : Cardinal;
{$Include 'all.inc'}
procedure FullDisconnect;
begin
SetARStatus(false);
Disconnect;
end;
procedure CheckDead;
begin
waitconnection(3000);
CheckSave;
if Dead then
begin
SetWarMode(true);
WaitGump('1');
wait(5000);
while (Dead) do Wait (1000);
wait (2000);
Hungry(1, ground);
end;
end;
Begin
FindDistance := 0;
SetARStatus(false);
waitconnection(3000);
CheckSave;
wait(3000);
SetARStatus(true);
DagerType := $0F51;
FindType(DagerType, BackPack);
Dager := finditem;
if Dager = 0 then
begin
FullDisconnect;
AddToSystemJournal('Dager no finded');
end;
while true do
begin
waitconnection(3000);
CheckSave;
CheckTargetError(5, 2);
CheckDead;
Hungry(2, ground);
wait(1000);
i := 0;
while i < 10 do
begin
waitconnection(3000);
CheckSave;
UseSkill('item identification');
WaitTargetObject(Dager);
wait(10000);
i := i + 1;
end;
end;
End.