{$Include 'WriteToFile.inc'} 

var 
 counter : Integer ;
 Tmp,FileList : TStringList;
 a : String ;

Begin
   FileList := TStringList.Create();
   Tmp := TStringList.Create(); 
   FileList.LoadFromFile('Chars.log');
   For counter:=0 To (FileList.count-1) Do 
   Begin 
      StrBreakApart(FileList.Strings[counter], '   ', Tmp);
      Ignore(StrToInt(Tmp.Strings[0]));
   End ;
   FileList.Free;
   Tmp.Free; 

   Repeat 
      FindDistance:=15;
      FindVertical:=50;
      If FindType($0190,$FFFFFFFF)>0 Then
      Begin 
         ClickOnObject(FindItem);
         Wait(1000);
         a:=GetName(FindItem);
         If a<>'' Then Begin WriteToFile('Chars.log',IntToStr(FindItem)+Replicate('   ',1-(Length(IntToStr(FindItem))/8))+'   [M]   '+a+Replicate('   ',3-(Length(a)/8))+'   | ID: '+IntToHex(FindItem,8)+ #13#10); Ignore(FindItem); End ;
      End ;
      If FindType($0191,$FFFFFFFF)>0 Then
      Begin 
         ClickOnObject(FindItem);
         Wait(1000);
         a:=GetName(FindItem);
         If a<>'' Then Begin WriteToFile('Chars.log',IntToStr(FindItem)+Replicate('   ',1-(Length(IntToStr(FindItem))/8))+'   [W]   '+a+Replicate('   ',3-(Length(a)/8))+'   | ID: '+IntToHex(FindItem,8)+ #13#10); Ignore(FindItem); End ;
      End ;
      Wait(333);
   Until False;
End .