#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
IniRead, TextReport6, Report.ini, Main, TextReport6
IniRead, TextReport7, Report.ini, Main, TextReport7
IniRead, TextReport8, Report.ini, Main, TextReport8
IniRead, TextReport9, Report.ini, Main, TextReport9
IniRead, TextReport10, Report.ini, Main, TextReport10
IniRead, TextReport11, Report.ini, Main, TextReport11
IniRead, TextReport12, Report.ini, Main, TextReport12
IniRead, TextReport13, Report.ini, Main, TextReport13
IniRead, TextReport14, Report.ini, Main, TextReport14
IniRead, TextReport15, Report.ini, Main, TextReport15
IniRead, TextReport16, Report.ini, Main, TextReport16
IniRead, TextReport17, Report.ini, Main, TextReport17
IniRead, TextReport18, Report.ini, Main, TextReport18
IniRead, TextReport19, Report.ini, Main, TextReport19
IniRead, TextReport20, Report.ini, Main, TextReport20
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
}
IfInString, lastline, % TextReport6
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport7
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport8
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport9
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport10
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport11
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport12
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport13
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport14
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport15
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport16
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport17
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport18
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport19
{
Soundplay, %A_ScriptDir%\sound.wav
}
IfInString, lastline, % TextReport20
{
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
}