Stealth Client Forum

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.