Page 1 of 1
помоги со скриптом-сигналкой очень надо :D
Posted: 06.09.2009 20:30
by fashist
стелс издает писк(или ченить еще) когда в журнале появляется опред-ная надпись
Posted: 06.09.2009 20:59
by Vizit0r
Code: Select all
procedure Alarm; // Мигает иконкой стелса в трее. Сбрасывается при разворачивании стелса из трея.
procedure Beep; // Пищит спикером
function PlayWav(FileName: String): Boolean; // Проигрывает Wav файл, указывать путь к файлу
и пищит, и мигает, и музыку играет...
антибот пишешь?
Posted: 06.09.2009 21:14
by fashist
типо того
Posted: 09.09.2009 10:52
by fashist
помогите плиз со скриптом
на экране появляеться надпись допуcтим Guards и стелс начинает пищать
Posted: 09.09.2009 11:21
by Yazva
Code: Select all
procedure CheckMsg;
begin
if InJournalBetweenTimes('Guards', time, Now) > 0 then
begin
Beep; //last beep stealth =)
end;
end;
где time:=Now в начале действия чара
Posted: 10.09.2009 17:58
by 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" (как в данном случае), то тоже бикне
========
подправил немного