lastquestion := "1"
question := "2"
answer := ""

TryAnswer(text) {
StringLower text, text
;text = RegExReplace(text, "ё", "е")
found := 0
Loop, Read, base.txt
{
If found = 1
return A_LoopReadLine
matched := 1
Loop, Parse, A_LoopReadLine, `,
{
If not InStr(text, A_LoopField)
matched := 0
}
If matched = 1
found := 1
}
}

Loop {
IfWinNotActive, GTA:SA:MP
Continue
FileRead, chat, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Loop, Parse, chat, `n
{
If InStr(A_LoopField, "Вопрос от")
RegExMatch(A_LoopField, "Вопрос от .+ ID (\d+): (.+)", question)
}
If (question <> lastquestion) {
lastquestion := question
answer := TryAnswer(question2)
If (SubStr(answer, 1, 1) = "&") {
cmd := SubStr(answer, 2)
SendInput {f6}%cmd% %question1%{enter}
Continue
}
If (answer) {
SendMessage, 0x50,, 0x4190419,, A
SendInput {f6}/answ %question1% %answer%{enter}
}
}
Sleep, 50
}lastquestion := "1"
question := "2"
answer := ""

TryAnswer(text) {
StringLower text, text
;text = RegExReplace(text, "ё", "е")
found := 0
Loop, Read, base.txt
{
If found = 1
return A_LoopReadLine
matched := 1
Loop, Parse, A_LoopReadLine, `,
{
If not InStr(text, A_LoopField)
matched := 0
}
If matched = 1
found := 1
}
}

Loop {
IfWinNotActive, GTA:SA:MP
Continue
FileRead, chat, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Loop, Parse, chat, `n
{
If InStr(A_LoopField, "Вопрос от")
RegExMatch(A_LoopField, "Вопрос от .+ ID (\d+): (.+)", question)
}
If (question <> lastquestion) {
lastquestion := question
answer := TryAnswer(question2)
If (SubStr(answer, 1, 1) = "&") {
cmd := SubStr(answer, 2)
SendInput {f6}%cmd% %question1%{enter}
Continue
}
If (answer) {
SendMessage, 0x50,, 0x4190419,, A
SendInput {f6}/answ %question1% %answer%{enter}
}
}
Sleep, 50
}