#Persistent
#SingleInstance force
#include udfr1.ahk
Numpad0::
FileCLog:= % A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
Loop
{
lastline := GetNewLine(FileCLog)
if RegExMatch(lastline, " Жалоба от\s+(?<nick>\w+)\s+\[ID\s+(?<ID>\d+)\]\:(?<text>.*)", out_)
{
NewStr := RegExReplace(out_ )
sendinput {f6}/ames %NewStr%
}
}
GetNewLine(filename) ; Read ChatLog
{
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
{
lastline2:= lastline1
lastline1:= last
last := A_LoopReadLine
}
return last
}
[code]