Код
RegRead, FileCLog, HKEY_CURRENT_USER\Software\SAMP, nchatlog
if not FileCLog
FileCLog:=% A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
loop
{
lastline := GetNewLine(FileCLog,lastline1,lastline2,lastline3)
if RegExMatch(lastline3,"Возраст: (\d+)",match)
{
vozrast := match1
if RegExMatch(lastline1,"Уровень розыска: (\d+)",match)
rozsk := match1
if RegExMatch(lastline1," Законопослушность: (\d+)",match)
zak := match1
MsgBox,,,%vozrast% %rozsk% %zak%
}
}
GetNewLine(filename,ByRef lastline1 = "", ByRef lastline2 = "", ByRef lastline3 = "")
{ ;функция чтения последней строки, если файл изменен каждыее 100 мс
static old
static new
static NowPlayerHealth
static NowPlayerArm
static NHPTime
if !old
{
FileGetSize, old, %filename%
new := old
}
while old = new
{
sleep 80
FileGetSize, new, %filename%
}
old := new
Loop, read, %filename%
if A_LoopReadLine
{
lastline3 := lastline2
lastline2:= lastline1
lastline1:= last ;предыдущая строка (бывает нужным когда в одну секунду поступает лечение и кто то говорит еще )
last := A_LoopReadLine ;последняя строка
}
return last
}