Stealth Client Forum

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.

Code: Select all

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