Помогите написать овер простой АХК.

Harold_Sandstorm · 16 Дек 2018

В общем, я абсолютный ноль в написании АХК/скриптов, но возникла необходимость в создании ахк, следующего образца:
ввожу команду /in [id]
выводит в строку /r text [ранг игрока id] [фамилия игрока id]

Прошу вас скинуть тему/тутор, в которой/ом расписано как это сделать (для чайника), или в самом лучшем случае накидать код с //пояснениями. Благодарю неравнодушных ♥

darksoor · 17 Дек 2018

Harold_Sandstorm написал(а):
В общем, я абсолютный ноль в написании АХК/скриптов, но возникла необходимость в создании ахк, следующего образца:
ввожу команду /in [id]
выводит в строку /r text [ранг игрока id] [фамилия игрока id]

Прошу вас скинуть тему/тутор, в которой/ом расписано как это сделать (для чайника), или в самом лучшем случае накидать код с //пояснениями. Благодарю неравнодушных ♥

AutoHotKey:

#Include SAMP-UDF.ahk ;подключаешь SAMP-UDF (создаёшь рядом со своим скриптом файлик SAMP-UDF.ahk, после переходишь в тему "https://blast.hk/threads/20318/"(без кавычек) и копируешь в данный файл код)

$~NumpadEnter::
$~Enter::
if (!isInChat()) || (isDialogOpen() && (getDialogStyle() == 1 || getDialogStyle() == 3))
   Return
Sleep 250
tempText := readString(hGTA, dwSAMP + 0x12D8F8, 256)
tempCmd := StrSplit(tempText, " ")[1]
if (tempCmd == "/in")
{
    if (RegExMatch(tempText, "^" tempCmd "\s(\d{1,3})$", out_pars)) ;out_pars1 - id введённый пользователем
   {
        RegExMatch(getPlayerNameById(out_pars1), "(\w+)_(\w+)", out_name) ;выводим из Ника игрока фамилию. out_name1 - Имя, out_name2 - фамилия
        SendChat("/r text " out_pars1 " " out_name2)
        Return
    }
    Else
        addChatMessage("Используй: " tempCmd " [Ид]")
}
Return

Если что-то не будет работать, пиши.

Harold_Sandstorm · 20 Дек 2018

#darksoor написал(а):

AutoHotKey:

#Include SAMP-UDF.ahk ;подключаешь SAMP-UDF (создаёшь рядом со своим скриптом файлик SAMP-UDF.ahk, после переходишь в тему "https://blast.hk/threads/20318/"(без кавычек) и копируешь в данный файл код)

$~NumpadEnter::
$~Enter::
if (!isInChat()) || (isDialogOpen() && (getDialogStyle() == 1 || getDialogStyle() == 3))
   Return
Sleep 250
tempText := readString(hGTA, dwSAMP + 0x12D8F8, 256)
tempCmd := StrSplit(tempText, " ")[1]
if (tempCmd == "/in")
{
    if (RegExMatch(tempText, "^" tempCmd "\s(\d{1,3})$", out_pars)) ;out_pars1 - id введённый пользователем
   {
        RegExMatch(getPlayerNameById(out_pars1), "(\w+)_(\w+)", out_name) ;выводим из Ника игрока фамилию. out_name1 - Имя, out_name2 - фамилия
        SendChat("/r text " out_pars1 " " out_name2)
        Return
    }
    Else
        addChatMessage("Используй: " tempCmd " [Ид]")
}
Return

Если что-то не будет работать, пиши.

Дружище, максимальный респект за код, но я настолько чайник, что не могу понять, что делать с этим кодом xD. Куда вставить, какое разрешение, куда его закинуть?

darksoor · 20 Дек 2018

Harold_Sandstorm написал(а):
Дружище, максимальный респект за код, но я настолько чайник, что не могу понять, что делать с этим кодом xD. Куда вставить, какое разрешение, куда его закинуть?

Для начала установи программу Autohotkey > Modify > Ansi-32(обязательно).
Потом создай два файла с расширением .ahk (один из них назови SAMP-UDF.ahk, второй без разницы как). Заполняешь файл SAMP-UDF.ahk, потом вставляешь тот код, что я тебе написал и запускаешь.
После проверяешь в игре /in [id].

Harold_Sandstorm · 20 Дек 2018

#darksoor написал(а):
AutoHotKey:

SendChat("/r text " out_pars1 " " out_name2)

Вместо ИДа должно писаться звание, не могу найти, как реализовать это.

darksoor · 21 Дек 2018

Harold_Sandstorm написал(а):
Вместо ИДа должно писаться звание, не могу найти, как реализовать это.

Можно чекать скины либо паспорт, если тебе его конечно показали.
Если скины статичны (меняются автоматически для каждого ранга, а не лидер тебе их меняет сам, какой захочет), то напиши мне id-шники всех скинов на каждый ранг и я допишу тебе код.

Kvisk · 21 Дек 2018

#darksoor написал(а):
Можно чекать скины либо паспорт, если тебе его конечно показали.
Если скины статичны (меняются автоматически для каждого ранга, а не лидер тебе их меняет сам, какой захочет), то напиши мне id-шники всех скинов на каждый ранг и я допишу тебе код.

я сомневаюсь что для каждого ранка отдельный скин. Там скорей всего несколько скинов да, но на один скин несколько рангов. Не проще через /members чекать ранг?

darksoor · 21 Дек 2018

Kvisk написал(а):
я сомневаюсь что для каждого ранка отдельный скин. Там скорей всего несколько скинов да, но на один скин несколько рангов. Не проще через /members чекать ранг?

Мемберс тоже не вариант, а если он в другой организации состоит? Только паспорт тогда.

Harold_Sandstorm · 21 Дек 2018

Парни, всё намного проще, после чека паспорта чтоб код находил ранг. Если что, скин один для всех рангов(армейка). Сервер - СРП

#darksoor написал(а):
Мемберс тоже не вариант, а если он в другой организации состоит? Только паспорт тогда.

https://blast.hk/threads/18040/page-74

Идея, в целом, вот. Я просто не смог всё сразу грамотно изложить.
з.ы. Скрин паспорта скину сюда, чтоб не засорять тему:

Kvisk · 21 Дек 2018

паспорт из чатлога скопируй и скинь

darksoor · 21 Дек 2018

Kvisk написал(а):
паспорт из чатлога скопируй и скинь

Зачем? Можно и так..

Harold_Sandstorm написал(а):
Парни, всё намного проще, после чека паспорта чтоб код находил ранг. Если что, скин один для всех рангов(армейка). Сервер - СРП

https://blast.hk/threads/18040/page-74

Идея, в целом, вот. Я просто не смог всё сразу грамотно изложить.
з.ы. Скрин паспорта скину сюда, чтоб не засорять тему:

Так попробуй, может это то, что тебе нужно:

AutoHotKey:

#Include SAMP-UDF.ahk ;подключаешь SAMP-UDF (создаёшь рядом со своим скриптом файлик SAMP-UDF.ahk, после переходишь в тему "https://blast.hk/threads/20318/"(без кавычек) и копируешь в данный файл код)

save(chatlog) {
   static logschat:=A_MyDocuments "\GTA San Andreas User Files\SAMP\ChatLogs\"
   static chat:=A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
   FileCreateDir, % logschat A_MM "-" A_YYYY
   FileAppend, % chatlog, % logschat A_MM "-" A_YYYY "\" A_DD "." A_MM "." A_YYYY ".txt"
   FileDelete, % chat
   return
}

global file_chat := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"

$~NumpadEnter::
$~Enter::
if (!isInChat()) || (isDialogOpen() && (getDialogStyle() == 1 || getDialogStyle() == 3))
   Return
Sleep 250
tempText := readString(hGTA, dwSAMP + 0x12D8F8, 256)
tempCmd := StrSplit(tempText, " ")[1]
if (tempCmd == "/in")
{
    if (RegExMatch(tempText, "^" tempCmd "\s(\d{1,3})$", out_pars)) ;out_pars1 - id введённый пользователем
    {
        nick_name := getPlayerNameById(out_pars1) ;выводим из ID никнейм игрока
        RegExMatch(nick_name, "(\w+)_(\w+)", out_name) ;выводим из Ника игрока фамилию. out_name1 - Имя, out_name2 - фамилия
        save(chatlog) ;сохраняем чатлог и удаляем его, после скрипт будет ждать паспорт
        SendChat("Ваш паспорт и цель прибытия.")
        Sleep, 500
        addChatMessageEx("{228b22}", "[AHK] {F5F5DC}Скрипт ожидает предоставления паспорта от {996633}" nick_name ".")
        Loop
        {
            FileRead, chatlog, % file_chat ;читаем чатлог
            if (RegExMatch(chatlog, "Фракция\:\s+(.*)\s+Должность\:\s+([А-я]+)", chattext))
            {
                RegExMatch(chatlog, "Имя\:\s(\w+_\w+)", nicks)
                if (nicks1 == nick_name) ;сверяем, паспорт показан от игрока, чей ID мы ввели, либо нет
                {
                    save(chatlog)
                    StringLower, chattext2, chattext2
                    chattext2 := chattext2 "а"
                    break
                }
                Else
                    Sleep, 50
            }
        }
        SendChat("/r Пропустил на территорию части " chattext2 " " out_name2 ".") ;отправляем сообщение в рацию
        Return
    }
    Else
        addChatMessage("Используй: " tempCmd " [Ид]")
}
Return

Kvisk · 22 Дек 2018

#darksoor написал(а):

Зачем? Можно и так..

Так попробуй, может это то, что тебе нужно:

AutoHotKey:

#Include SAMP-UDF.ahk ;подключаешь SAMP-UDF (создаёшь рядом со своим скриптом файлик SAMP-UDF.ahk, после переходишь в тему "https://blast.hk/threads/20318/"(без кавычек) и копируешь в данный файл код)

save(chatlog) {
   static logschat:=A_MyDocuments "\GTA San Andreas User Files\SAMP\ChatLogs\"
   static chat:=A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
   FileCreateDir, % logschat A_MM "-" A_YYYY
   FileAppend, % chatlog, % logschat A_MM "-" A_YYYY "\" A_DD "." A_MM "." A_YYYY ".txt"
   FileDelete, % chat
   return
}

global file_chat := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"

$~NumpadEnter::
$~Enter::
if (!isInChat()) || (isDialogOpen() && (getDialogStyle() == 1 || getDialogStyle() == 3))
   Return
Sleep 250
tempText := readString(hGTA, dwSAMP + 0x12D8F8, 256)
tempCmd := StrSplit(tempText, " ")[1]
if (tempCmd == "/in")
{
    if (RegExMatch(tempText, "^" tempCmd "\s(\d{1,3})$", out_pars)) ;out_pars1 - id введённый пользователем
    {
        nick_name := getPlayerNameById(out_pars1) ;выводим из ID никнейм игрока
        RegExMatch(nick_name, "(\w+)_(\w+)", out_name) ;выводим из Ника игрока фамилию. out_name1 - Имя, out_name2 - фамилия
        save(chatlog) ;сохраняем чатлог и удаляем его, после скрипт будет ждать паспорт
        SendChat("Ваш паспорт и цель прибытия.")
        Sleep, 500
        addChatMessageEx("{228b22}", "[AHK] {F5F5DC}Скрипт ожидает предоставления паспорта от {996633}" nick_name ".")
        Loop
        {
            FileRead, chatlog, % file_chat ;читаем чатлог
            if (RegExMatch(chatlog, "Фракция\:\s+(.*)\s+Должность\:\s+([А-я]+)", chattext))
            {
                RegExMatch(chatlog, "Имя\:\s(\w+_\w+)", nicks)
                if (nicks1 == nick_name) ;сверяем, паспорт показан от игрока, чей ID мы ввели, либо нет
                {
                    save(chatlog)
                    StringLower, chattext2, chattext2
                    chattext2 := chattext2 "а"
                    break
                }
                Else
                    Sleep, 50
            }
        }
        SendChat("/r Пропустил на территорию части " chattext2 " " out_name2 ".") ;отправляем сообщение в рацию
        Return
    }
    Else
        addChatMessage("Используй: " tempCmd " [Ид]")
}
Return

Там где должность.. Разве так можно писать? У меня постоянно какие-либо ошибки..

AutoHotKey:

"[А-я]"
ErrorLevel = Compile error 8 at offset 3: range out of order in character class

Так же лучше исправить

AutoHotKey:

"Фракция\:\s+(.*)\s+Должность\:\s+([А-я]+" ; это

"Фракция\:\s+(.*)\s+Должность\:\s+([А-яA-z ]+" ; на это

так как ранг может иметь и на английском, + в нём могут быть пробелы)
Ну ето по мелочи.. А так вроде всё красиво, мне нравится)

Harold_Sandstorm · 22 Дек 2018

#darksoor написал(а):

Зачем? Можно и так..

Так попробуй, может это то, что тебе нужно:

AutoHotKey:

#Include SAMP-UDF.ahk ;подключаешь SAMP-UDF (создаёшь рядом со своим скриптом файлик SAMP-UDF.ahk, после переходишь в тему "https://blast.hk/threads/20318/"(без кавычек) и копируешь в данный файл код)

save(chatlog) {
   static logschat:=A_MyDocuments "\GTA San Andreas User Files\SAMP\ChatLogs\"
   static chat:=A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"
   FileCreateDir, % logschat A_MM "-" A_YYYY
   FileAppend, % chatlog, % logschat A_MM "-" A_YYYY "\" A_DD "." A_MM "." A_YYYY ".txt"
   FileDelete, % chat
   return
}

global file_chat := A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"

$~NumpadEnter::
$~Enter::
if (!isInChat()) || (isDialogOpen() && (getDialogStyle() == 1 || getDialogStyle() == 3))
   Return
Sleep 250
tempText := readString(hGTA, dwSAMP + 0x12D8F8, 256)
tempCmd := StrSplit(tempText, " ")[1]
if (tempCmd == "/in")
{
    if (RegExMatch(tempText, "^" tempCmd "\s(\d{1,3})$", out_pars)) ;out_pars1 - id введённый пользователем
    {
        nick_name := getPlayerNameById(out_pars1) ;выводим из ID никнейм игрока
        RegExMatch(nick_name, "(\w+)_(\w+)", out_name) ;выводим из Ника игрока фамилию. out_name1 - Имя, out_name2 - фамилия
        save(chatlog) ;сохраняем чатлог и удаляем его, после скрипт будет ждать паспорт
        SendChat("Ваш паспорт и цель прибытия.")
        Sleep, 500
        addChatMessageEx("{228b22}", "[AHK] {F5F5DC}Скрипт ожидает предоставления паспорта от {996633}" nick_name ".")
        Loop
        {
            FileRead, chatlog, % file_chat ;читаем чатлог
            if (RegExMatch(chatlog, "Фракция\:\s+(.*)\s+Должность\:\s+([А-я]+)", chattext))
            {
                RegExMatch(chatlog, "Имя\:\s(\w+_\w+)", nicks)
                if (nicks1 == nick_name) ;сверяем, паспорт показан от игрока, чей ID мы ввели, либо нет
                {
                    save(chatlog)
                    StringLower, chattext2, chattext2
                    chattext2 := chattext2 "а"
                    break
                }
                Else
                    Sleep, 50
            }
        }
        SendChat("/r Пропустил на территорию части " chattext2 " " out_name2 ".") ;отправляем сообщение в рацию
        Return
    }
    Else
        addChatMessage("Используй: " tempCmd " [Ид]")
}
Return

Всё отлично работает, но надо подкоректировать код, который ищет в чатлоге должность. Дело в том, что некоторые звания пишутся в паспорте как "Мл. Лейтенант", "Ст. Мичман", "Капитан 1го ранга" и тд. код сохраняет в переменную chattext2 только мл/ст/капитан.

Kvisk написал(а):
Там где должность.. Разве так можно писать? У меня постоянно какие-либо ошибки..

AutoHotKey:

"[А-я]" ErrorLevel = Compile error 8 at offset 3: range out of order in character class

Так же лучше исправить

AutoHotKey:

"Фракция\:\s+(.*)\s+Должность\:\s+([А-я]+" ; это "Фракция\:\s+(.*)\s+Должность\:\s+([А-яA-z ]+" ; на это

так как ранг может иметь и на английском, + в нём могут быть пробелы)
Ну ето по мелочи.. А так вроде всё красиво, мне нравится)

Не, все ранги на русском, а вот точки, пробелы и даже цифры это проблема.

darksoor · 22 Дек 2018

AutoHotKey:

if (RegExMatch(chatlog, "Фракция\:\s+(.*)\s+Должность\:\s+([А-я.]+)", chattext))

Vladislav25 · 5 Июн 2019

Нифига она не работает, только пишет "Ожидает паспорт от игрока" по сто раз показал 0 реакции

Поиск

Поиск

Помогите написать овер простой АХК.

Harold_Sandstorm

Новичок

darksoor

Известный

Harold_Sandstorm

Новичок

darksoor

Известный

Harold_Sandstorm

Новичок

darksoor

Известный

Kvisk

Известный

darksoor

Известный

Harold_Sandstorm

Новичок

Kvisk

Известный

darksoor

Известный

Kvisk

Известный

Harold_Sandstorm

Новичок

darksoor

Известный

Vladislav25

Известный

Похожие темы