Не работаит

[ParadoX]

Code: Select all

Program Fishing;





function IsCurMessages : Boolean;
var i,count : Integer; 
    s : String; 


begin 
for i := HighJournal downto HighJournal - 20 do 
   begin
	if IsNPC(LineID(i)) then addtosystemjournal('kjk');
   end;
End; 

Begin
IsCurMessages
end.

А именно как юзать LineID, точнее с какими параметрами запускать...

[Miralex]

А именно как юзать LineID, точнее с какими параметрами запускать...

Line*** - это флаги строки журнала. Когда ты обращаешся к строке журнала, то заполняются флаги.

Пробуй так:

Code: Select all

for i := HighJournal downto HighJournal - 20 do 
   begin
   S := Journal(i); 
   if IsNPC(LineID) then addtosystemjournal('kjk'); 
   end;