помоги со скриптом-сигналкой очень надо :D

[fashist]

стелс издает писк(или ченить еще) когда в журнале появляется опред-ная надпись

[Vizit0r]

Code: Select all

procedure Alarm; // Мигает иконкой стелса в трее. Сбрасывается при разворачивании стелса из трея.
procedure Beep; // Пищит спикером
function PlayWav(FileName: String): Boolean; // Проигрывает Wav файл, указывать путь к файлу

и пищит, и мигает, и музыку играет...

антибот пишешь?

[fashist]

типо того

[fashist]

помогите плиз со скриптом
на экране появляеться надпись допуcтим Guards и стелс начинает пищать

[Yazva]

Code: Select all

procedure CheckMsg;
begin
  if InJournalBetweenTimes('Guards', time, Now) > 0 then
   begin 
    Beep; //last beep stealth =)
   end;
end;

где time:=Now в начале действия чара

[Yazva]

если я правильно понял че тебе нужно, то:

Code: Select all

Program GuardBeep; 
var 
time: TDateTime; 

{$Include 'all.inc'} 

Begin
setarstatus(true);
while Dead and Connected do begin 
 time := Now;
 WaitJournalLine(Now, 'Yazva', 60000);
 if InJournalBetweenTimes('Yazva', time, Now) > 0 then begin 
  alarm; Beep; //alarm - мигает иконка, если стелз свернут в трей. Beep - звуковой сигнал
 end;
end; 
End.

"Yazva" - заменить на то что необходимо (ник\сообщение)
однако, если ктото просто напишет в чат "Yazva" (как в данном случае), то тоже бикне
========
подправил немного