Stealth Client Forum

Posted: **26.04.2005 11:33**

юзаю это...

procedure IsCurMessages; 
var i,count : Integer; 
    s : String; 

begin 
count := 0; 
for i := HighJournal downto HighJournal - 50 do 
   begin 
   S := Journal(i); 
   if S = 'System: You must wait to perform another action' then count := count + 1; 
   end; 
if count >= 10 then Disconnect; 
end;

вот только месаги обычно исходят не от System а от GetName(self)... причем именно оно из всего списка не пашет

сделайте хотяб для селф...

Posted: **28.04.2005 6:37**

Code: Select all

procedure CheckTargetError;
var D : TDateTime;
begin
{5 minutes in DateTime = 5 / 1440 = 0.00347}
D := Now - (0.00347);
InJournalBetweenTimes('I am already performing another action',D,Now);

if LineCount > 15 then
   begin
   AddToSystemJournal('Error with target. Disconnected');
   Disconnect;
   end;

end;

Posted: **28.04.2005 8:30**

Miralex wrote:

Code: Select all

procedure CheckTargetError;
var D : TDateTime;
begin
{5 minutes in DateTime = 5 / 1440 = 0.00347}
D := Now - (0.00347);
InJournalBetweenTimes('I am already performing another action',D,Now);

if LineCount > 15 then
   begin
   AddToSystemJournal('Error with target. Disconnected');
   Disconnect;
   end;

end;

ну это через поиск.. но было бы красивенько через гетнейм

Posted: **28.04.2005 8:32**

исходят не от System а от GetName(self)

Code: Select all

procedure CheckTargetError; 
var D : TDateTime; 
begin 
{5 minutes in DateTime = 5 / 1440 = 0.00347} 
D := Now - (0.00347); 
InJournalBetweenTimes(CharName + ': You must wait to perform another action',D,Now); 

if LineCount > 15 then 
   begin 
   AddToSystemJournal('Error with target. Disconnected'); 
   Disconnect; 
   end; 

end;

Stealth Client Forum

Решаем проблему с таргетом

Решаем проблему с таргетом