Code: Select all
{$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 .
