Звуки

Статус
В этой теме нельзя размещать новые ответы.

_Алексей_2015_

Участник
Автор темы
53
10
Можно как нить убрать сильный звук самолета??? или какой нить скрипт, если оффнуть звук в гташке то репорт не буду слышать ( Advance ), т.к ставлю бота) и чтобы услышать когда адм напишет тут я или не тут.
 

serhiyrubin

Известный
396
106
Напиши мне слова которые тебе может написать админ через запятую
Хорошо подумай

Ещё есть идея чтобы звук играл если тебе админ что либо сказал, но это надо загружать весь список админов в скрипт или ini файл

На адвансе по моему если человек рядом говорит то это выглядит так?
- Привет админ. (Нуб_Вася[228])
 

_Алексей_2015_

Участник
Автор темы
53
10
Напиши мне слова которые тебе может написать админ через запятую
Хорошо подумай

Ещё есть идея чтобы звук играл если тебе админ что либо сказал, но это надо загружать весь список админов в скрипт или ini файл
а можно чтобы на все репорты просто приходил звук?
 

serhiyrubin

Известный
396
106
Короче если в AHK понимаешь то вот код программы и ini файла

Код:
#IfWinActive GTA:SA:MP
#SingleInstance
SetTimer, otvet, 150
IniRead, Chatlog, Report.ini, Main, Chatlog
IniRead, TextReport1, Report.ini, Main, TextReport1
IniRead, TextReport2, Report.ini, Main, TextReport2
IniRead, TextReport3, Report.ini, Main, TextReport3
IniRead, TextReport4, Report.ini, Main, TextReport4
IniRead, TextReport5, Report.ini, Main, TextReport5

otvet:
{
lastline := GetNewLine(Chatlog)

IfInString, lastline, % TextReport1
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }

IfInString, lastline, % TextReport2
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }

IfInString, lastline, % TextReport3
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }

IfInString, lastline, % TextReport4
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }

IfInString, lastline, % TextReport5
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }
}
return

GetNewLine(filename)
{ ;функция чтения последней строки, если файл изменен каждыее 100 мс
static old
static new
if !old
{
FileGetSize, old, %filename%
new := old
}
while old = new
{
sleep 100
FileGetSize, new, %filename%
}
old := new
Loop, read, %filename%
if A_LoopReadLine
{
last := A_LoopReadLine ;последняя строка
}
return last
}

Ini файлик:
Код:
[Main]
Chatlog=C:\Users\PC\Documents\GTA San Andreas User Files\SAMP\chatlog.txt
TextReport1=Сотри это до знака равно и напиши по какому тексту будет играть звук
TextReport2=Сотри это до знака равно и напиши по какому тексту будет играть звук
TextReport3=Сотри это до знака равно и напиши по какому тексту будет играть звук
TextReport4=Сотри это до знака равно и напиши по какому тексту будет играть звук
TextReport5=Сотри это до знака равно и напиши по какому тексту будет играть звук

В строчку Chatlog нужно указать путь до чат-лога.
Скрипт не будет работать без него.

Не оставляй строчки пустыми, а то он будет пиликать на каждый пробел.
Лучше впиши туда длинный текст который точно не встретится тебе в сампе.

А если не понимаешь, вот тебе скомпилированный вариант.

Report.exe, Report.ini и sound.wav должны быть в одной папке

В Report.ini расписано как пользоваться

Есть 5 мест для текста, то есть ты можешь вписать туда текст из репорта тип "ответил Вам:"
И можешь например вписать текст как приходит СМС и тоже будет уведомление и т.д.
Если 5 мало, могу увеличить

После появления в чате указанного слова проиграет звук 1 раз
Если ещё раз появится, то ещё раз проиграет))

Главное правильно указывай путь к чатлогу, а то работать не будет
Думаю помог. Убавляй звук в ГТА, но не в Windows когда летаешь
 

Вложения

  • report.zip
    449 KB · Просмотры: 31
Последнее редактирование:

_Алексей_2015_

Участник
Автор темы
53
10
Короче если в AHK понимаешь то вот код программы и ini файла

Код:
#IfWinActive GTA:SA:MP
#SingleInstance
SetTimer, otvet, 150
IniRead, Chatlog, Report.ini, Main, Chatlog
IniRead, TextReport1, Report.ini, Main, TextReport1
IniRead, TextReport2, Report.ini, Main, TextReport2
IniRead, TextReport3, Report.ini, Main, TextReport3
IniRead, TextReport4, Report.ini, Main, TextReport4
IniRead, TextReport5, Report.ini, Main, TextReport5

otvet:
{
lastline := GetNewLine(Chatlog)

IfInString, lastline, % TextReport1
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }

IfInString, lastline, % TextReport2
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }

IfInString, lastline, % TextReport3
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }

IfInString, lastline, % TextReport4
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }

IfInString, lastline, % TextReport5
    {
     Soundplay, %A_ScriptDir%\sound.wav
    }
}
return

GetNewLine(filename)
{ ;функция чтения последней строки, если файл изменен каждыее 100 мс
static old
static new
if !old
{
FileGetSize, old, %filename%
new := old
}
while old = new
{
sleep 100
FileGetSize, new, %filename%
}
old := new
Loop, read, %filename%
if A_LoopReadLine
{
last := A_LoopReadLine ;последняя строка
}
return last
}

Ini файлик:
Код:
[Main]
Chatlog=C:\Users\PC\Documents\GTA San Andreas User Files\SAMP\chatlog.txt
TextReport1=Сотри это до знака равно и напиши по какому тексту будет играть звук
TextReport2=Сотри это до знака равно и напиши по какому тексту будет играть звук
TextReport3=Сотри это до знака равно и напиши по какому тексту будет играть звук
TextReport4=Сотри это до знака равно и напиши по какому тексту будет играть звук
TextReport5=Сотри это до знака равно и напиши по какому тексту будет играть звук

В строчку Chatlog нужно указать путь до чат-лога.
Скрипт не будет работать без него.

Не оставляй строчки пустыми, а то он будет пиликать на каждый пробел.
Лучше впиши туда длинный текст который точно не встретится тебе в сампе.

А если не понимаешь, вот тебе скомпилированный вариант.

Report.exe, Report.ini и sound.wav должны быть в одной папке

В Report.ini расписано как пользоваться

Есть 5 мест для текста, то есть ты можешь вписать туда текст из репорта тип "ответил Вам:"
И можешь например вписать текст как приходит СМС и тоже будет уведомление и т.д.
Если 5 мало, могу увеличить

После появления в чате указанного слова проиграет звук 1 раз
Если ещё раз появится, то ещё раз проиграет))

Главное правильно указывай путь к чатлогу, а то работать не будет
Думаю помог. Убавляй звук в ГТА, но не в Windows когда летаешь
Большое спасибо :)
 

serhiyrubin

Известный
396
106
Проверил? Все нормально работает?
Сам себе в чат напиши фразу которую указал чтобы проверить
 
Статус
В этой теме нельзя размещать новые ответы.