Сбор ID чаров

[CxC]

Помнится Визер писал скрипт, который запускаешь и он собирает ID всех чаров, что увидит. Скрипт не берет ID тот, которы уже у него есть в отдельной файле. Так оставить на пару суток чара и у тя все ид есть ) Есть у кого такой скрипт? Поиском не нашел

зы: ну вот, не в том разделе создал

[Mirage]

Сильно не в том.
Он был на стелсе.

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 .

хз без инклюды будет ли работать.

[CxC]

где взять инклюду?