Помогите создать автоответчик для хелперов
- Автор темы Iliyaseskhatov
- Дата начала
Это код, если в чате найдется сообщение и оно будет схоже с сообщением из массива(В этом случае он является БД) то идет ответ, более подробно распиши что тебе требуется сделать.
AutoHotKey:
clear(){
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileAppend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
}
#Persistent
#Include samp.ahk
base := []
base[1] := "Blasthack"
base[2] := "CM"
base[3] := "Samp RP"
max = 3 ; Укзываем сколько элементов в массиве
i = 1
Loop{
FileRead, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
IfInString, read, % base[i]
{
SendChat("Какой-либо элемент массива совпал с сообщением в чате! Это ответ!")
clear()
}
i++
if(i == max + 1)
{
i = 1
clear()
}
Sleep, 10
}
Последнее редактирование:
Там 17 строка ошибка что делать ?
Ну и дальше как делать ответы?
Там без активация будет отвечать?
Ну и дальше как делать ответы?
Там без активация будет отвечать?
Последнее редактирование:
Название функции криво написал, исправил.
SAMP UDF не забудь. - https://blast.hk/threads/20318/
То-что скачаешь переименуй в "samp" и в папку со скриптом закинь.
Что ты ищешь в чате?
Если что регистр букв учитывается.
Cделал пару поправок в коде, на скорую руку сделал скрипт, забыл пару пробелов, теперь должен работать.
Сomplete ver.(1)
AutoHotKey:
clear(){
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileAppend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
}
#Persistent
#Include samp.ahk
base := []
base[1] := "Blasthack"
base[2] := "CM"
base[3] := "Samp RP"
max = 3 ; Укзываем сколько элементов в массиве
i = 1
Loop{
FileRead, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
IfInString, read, % base[i]
{
SendChat("Какой-либо элемент массива совпал с сообщением в чате! Это ответ!")
clear()
}
i++
if(i == max + 1)
{
i = 1
clear()
}
Sleep, 10
}
Kvisk
Известный
- 212
- 223
Не знаю, надо ли оно здесь.. Пытался сделать что-то свой такое, вышла не известная ошибка и я забил..
может кто возьмёт и доработает..
Тут мы постоянно смотрим 5 последних строк чата, и распознаём вопрос. После записываем время, вопрос и id того кто задавал вопрос в переменные.
вот RegExMatch под твой сервер:
может кто возьмёт и доработает..
AutoHotKey:
F12::
act1:
FileRead, chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
StringSplit, LineArr, chatlog, `n
number := LineArr0 - 1
loop, 5
{
RegExMatch(LineArr%number%, "Тут фильтр", info)
; MsgBox, % "Вопрос: " info3 " Id: " info2 " Время: " info1
if (info1 <> "") and (info1 <> %temp%)
goto act2
number --
}
goto act1
act2:
temp := info1
addChatMessage("{ffffff}Вопрос: " info3)
goto act1
returnТут мы постоянно смотрим 5 последних строк чата, и распознаём вопрос. После записываем время, вопрос и id того кто задавал вопрос в переменные.
вот RegExMatch под твой сервер:
AutoHotKey:
RegExMatch(LineArr%number%, "\[(.*?)\] {[A-z0-9]+}\[R\] <Вопрос> [A-z_]+\[(.*?)\][^/] (.*)", info)
info1 = Время вопроса "timestamp"
info2 = id того кто задал вопрос "99"
info3 = Вопрос "BlastHack топ сервер?"
Последнее редактирование:
хм не понял как далее делать ответы на вопроосы?
Продолжения как делать та)
Видишь массив "base[1,2,3] = "Тут твой вопрос", например "Как дела?", или еще какой либо вопрос, ответ 1 на все вопросы если что, он прописан в функции
"SendChat("тут ответ на вопрос из base")" - например.
Короче в base[] прописаны вопросы
AutoHotKey:
base[1] := "Blasthack"
base[2] := "CM"
base[3] := "Samp RP"
AutoHotKey:
SendChat("Какой-либо элемент массива совпал с сообщением в чате! Это ответ!")ну это я знаю вот например Base 1 ответ уже есть на base 2 как делать ? и на Base 3 и так далее
На все base один ответ, сейчас попробую сделать что бы на каждый base был свой ответ.
AutoHotKey:
clear(){
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileAppend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
}
#Persistent
#Include samp.ahk
base := []
base[1] := "Blasthack" ; Вопрос 1
base[2] := "CM" ; Вопрос 2
base[3] := "Samp RP" ; Вопрос 3
Send := []
Send[1] := "Форум" ; Ответ 1
Send[2] := "Ф.Р...М" ; Ответ 2
Send[3] := "Role play server" ; Ответ 3
max = 3 ; Укзываем сколько элементов в массиве
i = 1
Loop{
FileRead, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
IfInString, read, % base[i]
{
SendChat(Send[i])
clear()
}
i++
if(i == max + 1)
{
i = 1
clear()
}
Sleep, 10
}Send[1] := "4"
Думаю по этой формуле понятно, base - вопрос, send - ответ.
Можно sendinput.
AutoHotKey:
clear(){
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileAppend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
}
#Persistent
#Include samp.ahk
base := []
base[1] := "Blasthack" ; Вопрос 1
base[2] := "CM" ; Вопрос 2
base[3] := "Samp RP" ; Вопрос 3
Send := []
Send[1] := "Форум" ; Ответ 1
Send[2] := "Ф.Р...М" ; Ответ 2
Send[3] := "Role play server" ; Ответ 3
max = 3 ; Укзываем сколько элементов в массиве
i = 1
Loop{
FileRead, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
IfInString, read, % base[i]
{
SendInput,{f6} % send[i]
clear()
}
i++
if(i == max + 1)
{
i = 1
clear()
}
Sleep, 10
}
AutoHotKey:
clear(){
FileDelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileAppend, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
}
#Persistent
#Include samp.ahk
base := []
base[1] := "Blasthack" ; Вопрос 1
base[2] := "CM" ; Вопрос 2
base[3] := "Samp RP" ; Вопрос 3
Send := []
Send[1] := "Форум" ; Ответ 1
Send[2] := "Ф.Р...М" ; Ответ 2
Send[3] := "Role play server" ; Ответ 3
max = 3 ; Укзываем сколько элементов в массиве
i = 1
Loop{
FileRead, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
IfInString, read, % base[i]
{
SendInput,{f6}
SendInput, % send[i]
clear()
}
i++
if(i == max + 1)
{
i = 1
clear()
}
Sleep, 10
}- Статус
