Как написать ahk скрипт для samp

Приветствую всех! 👋

Данная статья должна помочь разобраться новичкам в Регулярных выражениях и помочь им самостоятельно писать скрипты на автоматический ответ, при появлении в чате N-строки (по задумке).

🆘🆘🆘

Перед игроком появляется будто бы непреодолимая стена, посмотрев на которую, он побежит по форумам просить помощи.

🆘🆘🆘

Хочу предупредить — данная статья рассчитана на незнающих пользователей. Поэтому подробность данной статьи — это скорее плюс (как по мне).

​

#Include samp.ahk
#IfWinActive GTA:SA:MP
ChatLog = C:UsersUserDocumentsGTA San Andreas User FilesSAMPchatlog.txt
loop    {
lastline := GetNewLine(ChatLog)
;Здесь будет наше регулярное выражение
If expression !=
   SendChat("команда")
}
GetNewLine(filename)    {
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
}
!end::ExitApp
end::Reload

;Строка # 1 отвечает за загрузку библиотеки SAMP UDF (обязательно действие при написании скриптов с использованием UDF)
;Строка # 2 исполняет скрипт только в открытом приложении GTA
#Include samp.ahk
#IfWinActive GTA:SA:MP

;Путь к chatlog.txt, а именно к файлу, где сохраняются все сообщения из чата игры
ChatLog = C:UsersUserDocumentsGTA San Andreas User FilesSAMPchatlog.txt

; Начало нашего цикла
loop
{

; lastline - переменная, что хранит в себе данные, полученные с функции GetNewLine.
lastline := GetNewLine(ChatLog)

;Здесь будет наше регулярное выражение и этим всё сказано (вернёмся позже).

;Условие, которое будет исполнено при НЕ пустой переменной регулярного выражения.
If expression !=
{

;SendChat - функция, которая позволяет писать в чат не используя клавиатуру и базовые возможности АХК. (Send, SendInput, SendRaw и.т.д.)
SendChat("команда")

; 1. Закрыли условие expression
; 2. Закрыли цикл loop
}
}

; Далее идёт функция, что определяет появившуюся строку в чате.
; На данном этапе не вижу смысла разбирать эту функцию построчно,
; но в будущем, при потребности - мы обязательно это сделаем.

GetNewLine(filename)
{
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
}

; Строка № 1 - Сочетание клавиш Alt+END - завершит процесс данного скрипта
; Строка № 2 - Нажатие END - перезагрузит скрипт, после чего он будет готов к работе
!end::ExitApp
end::Reload

Надеюсь, вы поняли структуру и что за чем идёт.
Теперь смело копируйте каркас нашего скрипта, чтобы мы смогли

вместе его редактировать

.
(Копируйте цельным блоком, что я предоставил вам в самом начале)

И вот мы подошли к моменту, на котором желторотики вскрывают себе вены, а новички бьются в конвульсиях, я говорю о РеГуЛяРнЫх ВыРаЖеНиЯх.

Я не собираюсь копировать термин из Википедии, что такое «Регулярные выражения«. Скажу своими словами: Регулярные выражения — это возможность копировать/вырезать/отправлять, одним словом — обработать необходимую нам строку и достать из неё N-слова. Будь они статичны или переменны — роли не играет.

:hunter:Строку, что нам нужна, будем определять благодаря этим же Регулярным выражениям.:hunter:
В нашем случае — мы будем рассматривать строки такого типа:​

; Строка в стандартном виде
Nick_Name[7]
; Строка в виде регулярного выражения
Nick_NameQ[E7Q]E
; Или же
Nick_Name[7]

;Пример № 1, правильно составленное регулярное выражение:
var = ert tre zsdf
RegExMatch(var, "ert t(.)e zsdf", var)
MsgBox % var1

;Пример № 2, НЕправильно составленное регулярное выражение:
var = ert tre zsdf
RegExMatch(var, "ert t(.)e  zsdf", var)
MsgBox % var1

;Ошибка примера № 2, в виде лишнего пробела перед zsdf.
;Не допускайте таких ошибок.

RegExMatch(ПеременнаяОтСюдаЧитаем, "Опции искомой строки", результат на выходе)

​

Плавно подошли к написанию собственного Регулярного выражения.

Возьмём за пример эту строку:​

;Для примера нам необходимо создать переменную var, в которой будет находиться наша строка.
var = [16:24:44] Nick_Name[7]: по чём штаны?

RegExMatch(var, "[16:24:44] Nick_(.*)[(dd?d?)]: (.*)", find)

RegExMatch(var, "[16:24:44] Nick_(.*)[(.*)]: (.*)", find)

RegExMatch(var, "[(dd):(dd):(dd)] (.*)_(.*)[(dd?d?)]: (.*)", find)

RegExMatch(var, "[(dd):(dd):(dd)] (.*)_(.*)[(dd?d?)]: (.*)", find)

;[16:24:44] Nick_Name[7]: по чём штаны?
;RegExMatch(var, "[(dd):(dd):(dd)] (.*)_(.*)[(dd?d?)]: (.*)", find)
msgbox % find5 ; покажет нам Name
msgbox % find7 ; покажет нам сообщение
msgbox % find6 ; покажет нам ID

#Include samp.ahk
#IfWinActive GTA:SA:MP
ChatLog = C:UsersUserDocumentsGTA San Andreas User FilesSAMPchatlog.txt

loop
{
lastline := GetNewLine(ChatLog)
RegExMatch(var, "[(dd):(dd):(dd)] (.*)_(.*)[(dd?d?)]: (.*)", find)
If find6 !=
{
   SendChat("команда")
}
}

GetNewLine(filename)
{
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
}
!end::ExitApp
end::Reload

If find6 !=
{
   SendChat("/mute " find6 " 30 флуд")
}
; Если элемент "ID" не будет пуст, в чат от вас последует команда /mute id 30 флуд, что выдаст мут по данному ID

If find5 !=
    SendChat("Адмирал " find5 " , что вы хотели этим сказать?")
;В чат будет отправлено сообщение: Адмирал Name, что вы хотели этим сказать?

If find7 !=
{
SendChat("Цитирую: " find7)
}
;В чат будет отправлено сообщение: Цитирую: по чём штаны?

addChatMessage("Сообщение")
; Самое стандартное сообщение

addChatMessage("{FF8C00} bass_devware")

Подведём итоги

Я не заявляю, что данный гайд самый подробный и при прочтении его вы обязательно научитесь составлять Регулярные выражения любой сложности.
Нет.
Однако нюанс в том, что таких гайдов и не будет.
В конце статьи я оставлю справку по Регулярным выражениям для тех, кому интересно и для тех, кому не понятно до сих пор.

Любые вопросы можете задавать в данной теме и просьба БЛАГОДАРИТЬ тех, кто вам поможет своим ответом.
Светлого будущего и удачи!
Спасибо, что дочитали до конца.

RegEx | RegExMatch | RegExReplace | samp.udf | AutoHotKey

​