Вопросы по AHK-скриптингу

7

7jizzle

Участник
238
14
#darksoor написал(а):
Подключи SAMP-UDF:
создаёшь рядом со своим скриптом файлик SAMP-UDF.ahk, после переходишь в тему копируешь в данный файл код.
Нажмите для раскрытия...
Он у меня подключен всегда, я все скрипты в папке с samp udf создаю.
Ты лучше не мучайся, я сам сделаю. Мне просто нужно было понять правильно я делаю, какие у меня ошибки. Потому что в ахк не силён.
 
darksoor

darksoor

Известный
674
353
7jizzle написал(а):
Он у меня подключен всегда, я все скрипты в папке с samp udf создаю.
Ты лучше не мучайся, я сам сделаю. Мне просто нужно было понять правильно я делаю, какие у меня ошибки. Потому что в ахк не силён.
Нажмите для раскрытия...
У тебя SAMP-UDF старой версии видимо.
Данная ошибка вызвана тем, что скрипт не может при запуске найти функцию, которая используется в коде.
 
darksoor

darksoor

Известный
674
353
7jizzle написал(а):
Для него нужна новая версия ахк? Меня крашит в сампе.
Нажмите для раскрытия...
Крашит, значит не ту версию скинул. Если у тебя версия клиента SAMP 0.3.7 R2, то качай соответствующую.
Там больше функций. И это не версия AHK, а всего-лишь инклуд для работы с памятью игры.
 
Kev1H

Kev1H

Новичок
19
0
Можете, подсказать. Как в диалоге добавить выбор мышкой, а не только на стрелочки. Чтобы клацая по строке, она открывалась.
 
7

7jizzle

Участник
238
14
#darksoor написал(а):
Крашит, значит не ту версию скинул. Если у тебя версия клиента SAMP 0.3.7 R2, то качай соответствующую.
Там больше функций. И это не версия AHK, а всего-лишь инклуд для работы с памятью игры.
Нажмите для раскрытия...
Я захожу с самым новым инклуидом(версию инклуида перепроверил), в самп. Как только я ввожу команду у меня вылетает самп.
 
darksoor

darksoor

Известный
674
353
7jizzle написал(а):
Я захожу с самым новым инклуидом(версию инклуида перепроверил), в самп. Как только я ввожу команду у меня вылетает самп.
Нажмите для раскрытия...
АХК установи в модификации Ansi-32, отключи антивирус. Перепроверь версию своего клиента (в названии окна клиента можно увидеть версию).
 
7

7jizzle

Участник
238
14
#darksoor написал(а):
АХК установи в модификации Ansi-32, отключи антивирус. Перепроверь версию своего клиента (в названии окна клиента можно увидеть версию).
Нажмите для раскрытия...
У меня и так ansi-32, антивирус винды отключен, версия клиента проверена.
 
G

George

Новичок
5
0
Диалоговые окна. Помогите настроить адекватный сценарий нажатия кнопки "Выбор" (кликом мыши; дабы не срабатывал обычный сброс). Также, при вводе своего имени нужно, чтобы я сразу мог переходить на диалоговое окно с функциями. Брал пример с SAMPTest.ahk. Расширенная версия SAMP.ahk.
Код: 
SendMode Input
SetWorkingDir %A_ScriptDir%
#UseHook
#NoEnv
#SingleInstance force
#include %A_ScriptDir%\SAMP.ahk

global uName := ""

NumPadEnter::

SendMessage, 0x50,, 0x4190419,, A

#If !IsInChat()

if (uName != "" && uName != -1) {
    ShowDialog(2, "Функции", "Лекции`nИмя {00FF7F}[" uName "]", "Выбор", "Отмена")
} else {
    ShowDialog(1, "Имя", "Введите свое имя:", "Выбор", "Отмена")
}
return

#If IsDialogOpen() && WinActive("GTA:SA:MP")
Enter::
    OnDialogResponse(true)
return

Esc::
    OnDialogResponse(false)
return

#If
OnDialogResponse(response) {
    caption := GetDialogCaption()
    if (response) {
        if (caption == "Функции") {
            line := GetDialogLine__(GetDialogIndex())
            if (line == "Лекции") {
                ShowDialog(2, "Лекции", "Дресс-код`nСубординация", "Выбор", "Отмена")
            } else {
                ShowDialog(1, "Имя", "Введите свое имя:", "Выбор", "Отмена")
            }
        } else if (caption == "Лекции") {
            line := GetDialogLine__(GetDialogIndex())
            AddChatMessage("line := " line " + " uName)
            Send, {enter}
        } else if (caption == "Имя") {
            ClipboardBuffer := ClipboardAll
            Clipboard := ""
            Send, ^{A}
            Send, ^{X}
            sleep 250
            if (Clipboard != "" && Clipboard != -1) {
                uName := Clipboard
                Clipboard := ClipboardBuffer
                AddChatMessage("uName := " uName)
            }
            Send, {enter}
        } else {
            Send, {enter}
        }
    } else {
        if (caption == "Лекции") {
            ShowDialog(2, "Функции", "Лекции`nИмя {00FF7F}[" uName "]", "Выбор", "Отмена")
        } else {
            Send, {esc}
        }
    }
    return
}
https://cdn1.imggmi.com/uploads/2019/2/24/469cd9ebdd6c30be70338cf17fb5f878-full.png
https://cdn1.imggmi.com/uploads/2019/2/24/b906dd250d366527eff8146885956b78-full.png
 
Последнее редактирование:
Cod

Cod

Участник
117
15
George написал(а):
Я не силен в программировании. Как мне вывести переменную uName, дабы использовать ее за пределами (например: по нажатию кнопки NumPadMult)
Код: 
SendMode Input
SetWorkingDir %A_ScriptDir%
#UseHook
#NoEnv
#SingleInstance force
#include %A_ScriptDir%\SAMP.ahk

uName := ""

#If !IsInChat()
NumPadEnter::
    ShowDialog(2, "Functions", "Lectures`nName", "Okay", "Exit")
return
#If IsDialogOpen() && WinActive("GTA:SA:MP")
Enter::
    OnDialogResponse(true)
return
ESC::
    OnDialogResponse(false)
return
#If
OnDialogResponse(response) {
    caption := GetDialogCaption()
    if (response) {
        if (caption == "Functions") {
            line := GetDialogLine__(GetDialogIndex())
            if (line == "Lectures") {
                ShowDialog(2, "Lectures", "Dress-code`nSubordination", "Okay", "Exit")
            }
            else if (line == "Name") {
                ShowDialog(1, "Name", "Enter your name:", "Okay", "Exit")
            }
        } else if (caption == "Lectures") {
            line := GetDialogLine__(GetDialogIndex())
            AddChatMessage(line)
            Send, {Enter}
        } else if (caption == "Name") {
            clipboardBuffer := ClipboardAll
            clipboard := ""
            Send, ^{A}
            Send, ^{X}
            sleep, 100
            uName := clipboard
            clipboard := clipboardBuffer
            if (uName != -1 && uName != "") {
                AddChatMessage("Your name: " uName)
            }
            Send, {Enter}
        } else {
            Send, {Enter}
        }
    } else {
        if (caption == "Functions") {
            ShowDialog(2, "Functions", "Lectures`nName", "Okay", "Exit")
        }
        else {
            Send, {ESC}
        }
    }
}

NumPadMult::
AddChatMessage("uName := " uName)
return
Нажмите для раскрытия...
Для начала, создай глобальную переменную
C++: 
global uName
Потом можешь просто присваивать ей значение, в любом месте кода.
Код: 
uName := Hello World
Потом можешь её использовать в любом месте кода.

George написал(а):
Я не силен в программировании. Как мне вывести переменную uName, дабы использовать ее за пределами (например: по нажатию кнопки NumPadMult)
Код: 
SendMode Input
SetWorkingDir %A_ScriptDir%
#UseHook
#NoEnv
#SingleInstance force
#include %A_ScriptDir%\SAMP.ahk

uName := ""

#If !IsInChat()
NumPadEnter::
    ShowDialog(2, "Functions", "Lectures`nName", "Okay", "Exit")
return
#If IsDialogOpen() && WinActive("GTA:SA:MP")
Enter::
    OnDialogResponse(true)
return
ESC::
    OnDialogResponse(false)
return
#If
OnDialogResponse(response) {
    caption := GetDialogCaption()
    if (response) {
        if (caption == "Functions") {
            line := GetDialogLine__(GetDialogIndex())
            if (line == "Lectures") {
                ShowDialog(2, "Lectures", "Dress-code`nSubordination", "Okay", "Exit")
            }
            else if (line == "Name") {
                ShowDialog(1, "Name", "Enter your name:", "Okay", "Exit")
            }
        } else if (caption == "Lectures") {
            line := GetDialogLine__(GetDialogIndex())
            AddChatMessage(line)
            Send, {Enter}
        } else if (caption == "Name") {
            clipboardBuffer := ClipboardAll
            clipboard := ""
            Send, ^{A}
            Send, ^{X}
            sleep, 100
            uName := clipboard
            clipboard := clipboardBuffer
            if (uName != -1 && uName != "") {
                AddChatMessage("Your name: " uName)
            }
            Send, {Enter}
        } else {
            Send, {Enter}
        }
    } else {
        if (caption == "Functions") {
            ShowDialog(2, "Functions", "Lectures`nName", "Okay", "Exit")
        }
        else {
            Send, {ESC}
        }
    }
}

NumPadMult::
AddChatMessage("uName := " uName)
return
Нажмите для раскрытия...
Для начала, создай глобальную переменную
C++: 
global uName
Потом можешь просто присваивать ей значение, в любом месте кода.
Код: 
uName := Hello World
Потом можешь её использовать в любом месте кода.

George написал(а):
Я не силен в программировании. Как мне вывести переменную uName, дабы использовать ее за пределами (например: по нажатию кнопки NumPadMult)
Код: 
SendMode Input
SetWorkingDir %A_ScriptDir%
#UseHook
#NoEnv
#SingleInstance force
#include %A_ScriptDir%\SAMP.ahk

uName := ""

#If !IsInChat()
NumPadEnter::
    ShowDialog(2, "Functions", "Lectures`nName", "Okay", "Exit")
return
#If IsDialogOpen() && WinActive("GTA:SA:MP")
Enter::
    OnDialogResponse(true)
return
ESC::
    OnDialogResponse(false)
return
#If
OnDialogResponse(response) {
    caption := GetDialogCaption()
    if (response) {
        if (caption == "Functions") {
            line := GetDialogLine__(GetDialogIndex())
            if (line == "Lectures") {
                ShowDialog(2, "Lectures", "Dress-code`nSubordination", "Okay", "Exit")
            }
            else if (line == "Name") {
                ShowDialog(1, "Name", "Enter your name:", "Okay", "Exit")
            }
        } else if (caption == "Lectures") {
            line := GetDialogLine__(GetDialogIndex())
            AddChatMessage(line)
            Send, {Enter}
        } else if (caption == "Name") {
            clipboardBuffer := ClipboardAll
            clipboard := ""
            Send, ^{A}
            Send, ^{X}
            sleep, 100
            uName := clipboard
            clipboard := clipboardBuffer
            if (uName != -1 && uName != "") {
                AddChatMessage("Your name: " uName)
            }
            Send, {Enter}
        } else {
            Send, {Enter}
        }
    } else {
        if (caption == "Functions") {
            ShowDialog(2, "Functions", "Lectures`nName", "Okay", "Exit")
        }
        else {
            Send, {ESC}
        }
    }
}

NumPadMult::
AddChatMessage("uName := " uName)
return
Нажмите для раскрытия...
Для начала, создай глобальную переменную
C++: 
global uName
Потом можешь просто присваивать ей значение, в любом месте кода.
Код: 
uName := Hello World
Потом можешь её использовать в любом месте кода.
 
Q

qwerrtyydkjfklsd

Новичок
9
0
Привет, помогите разобраться.Что здесь не так?
Dd6FO.png

Код:

#Include Samp.ahk
n:=0
number:
Loop
{
GetChatLine(0, OutPutFinder)
IfInString, OutPutFinder, Администратор Nick_Keyn
{
IfInString, OutPutFinder, ответил игроку
{
n:=n+1
addchatmessage("Счётчик репорта - " n)
goto, number
}
}
GetChatLine(Line, ByRef Output, timestamp=0, color=0){
chatindex := 0
FileRead, file, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
loop, Parse, file, `n, `r
{
if(A_LoopField)
chatindex := A_Index
}
loop, Parse, file, `n, `r
{
if(A_Index = chatindex - line){
output := A_LoopField
break
}
}
file := ""
if(!timestamp)
output := RegExReplace(output, "U)^\[\d{2}:\d{2}:\d{2}\]")
if(!color)
output := RegExReplace(output, "Ui)\{[a-f0-9]{6}\}")
return
}
Нажмите для раскрытия...

Нужно, чтобы ахк выводило в фейк чат кол-во отвеченного репорта
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. Revalto
    • Закрыта
    Гайд [AHK] Чтение чата
      • Нравится
    Ответы
    25
    Просмотры
    17K
    AutoHotKey
    Revalto
    Revalto
  2. meowprd
    Проверено Исполнитель LUA / WEB / AHK - Качественная разработка проектов
      • Нравится
      • Bug
    Ответы
    44
    Просмотры
    6K
    Работа и услуги
    #Tirack
    T
  3. PanSeek
    Интервью с Fomikus
      • Нравится
      • Влюблен
    Ответы
    3
    Просмотры
    1K
    Общение
    ChromiusJ
    ChromiusJ
  4. Nehozit
    • Вопрос
    Anim
    Ответы
    2
    Просмотры
    679
    Вопросы
    Pizduk2277
    Pizduk2277
  5. SuperArs
    [AHK] [Arizona V] Авто игра на игровых автоматах
    Ответы
    0
    Просмотры
    1K
    Читы
    SuperArs
    SuperArs
Сверху Снизу