AHK Password

Vladislav25

Известный
Автор темы
18
0
Нашел из тем https://blast.hk/threads/18040/page-74

Так че она не работает? я понять не могу, когда водишь команду /in id,
отписывает в чат действия:
1.SendChat("Ваш паспорт и цель прибытия.")
2.ddChatMessageEx("{228b22}", "[AHK] {F5F5DC}Скрипт ожидает предоставления паспорта от {996633}" nick_name ".")

А дальше то не реагирует ничего... Помогите кто сможет

Код:
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
 

Vladislav25

Известный
Автор темы
18
0
Всё должно работать.
Проверь свой UDF, запусти скрипт от имени администратора.
Скинь свой UDF
https://imgur.com/a/3KwQL3U - Скрины.
Gg5pV7P
2BZQBO9
 
Последнее редактирование: