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

D

Dexide

Новичок
45
1
vk11::
targerEnemy := getClosestPlayerId()
if (getDist(getCoordinates(), getPlayerPosById(targerEnemy)) < 2.8)
{
SendChat("/команда " targerEnemy)
}
return


; vk11 - кнопка
; не забудь подключить самп удф
; 2.8 расстояние от ближнего персонажа ( на котором будет вводится команда и ид)
 
RTD

RTD

Нестандартное звание
Модератор
391
413
Tiva написал(а):
Выбивает ошибка Unexpected "}" помогите что тут не так?
Код: 
#Include samp.ahk

F2::
Showdialog("1", "{FFFAFA}Выберите пункт", "{FFFAFA}[1] - RolePlay`n[2] - Лекции`n[3] - Наказание", "Ok")
input, text, V, {Enter}
Keywait, Enter, D
sleep 300

if (text = 1) {
Showdialog("1", "{FFFAFA}Выберите пункт", "[1]RolePlay`n[2]RolePlay`n[3]RolePlay`n[4]RolePlay`n[5]RolePlay`n[6]RolePlay`n[7]RolePlay`n[8]RolePlay`n[9]RolePlay", "Ok")
} else if (text = 2) {
addchatmessage("{FFFAFA}Привет")
sleep 1100
addchatmessage("Добрый день")
sleep 1100 }
addchatmessage ("/invite")
} else if (text = 3) {
addchatmessage ("/invite")
} else {
addChatMessage("[AHK]: Ошибка. Выберите пункт с помощью цифр 1-3"
}
return
Нажмите для раскрытия...
Строки 15 и 20 смотри...
 
T

Tanaka

Участник
41
10
Danila_Demidow написал(а):
Такая проблема, есть два скрипта. Но при запуске пишет, что тип две разные команды на одной клавише. Помогите совместить, надеюсь поняли, что хочу сделать.
Нажмите для раскрытия...
Зачем один и тот же код на 2 команды?
C++: 
#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%
#SingleInstance, Force
#Include, SUD.ahk


CommandProcessor := new CommandProcessor()
CommandProcessor.SetStatusProcessor(true)

CommandProcessor.RegisterCommand("/lic", "Lic")
CommandProcessor.RegisterCommand("/lis", "Lis")
return

Lic:

Nick := getPlayerNameById(CommandProcessor.TempText)
Nick := RegExReplace(Nick, "_", " ")

SendChat("/me достал чистый бланк для лицензий")
Sleep 4000
SendChat("/me заполнил бланк по паспортным данным: " Nick)
Sleep 3000
SendChat("/do в бланке стоит печать: ''With love from Driving School'' ")
Sleep 2000
SendChat("/do Лицензия оформлена на имя: " Nick)
Sleep 1100
SendChat("/givelicense " CommanProcessor.TempText)
return

Lis:

Nick := getPlayerNameById(CommandProcessor.TempText)
Nick := RegExReplace(Nick, "_", " ")

SendChat("/do На плече сумка с документами ")
Sleep 3000
SendChat("/me достал из сумки чистый бланк для лицензий ")
Sleep 4500
SendChat("/me заполнил бланк по паспортным данным: " Nick)
Sleep 3000
SendChat("/do в бланке стоит печать: ''With love from Driving School''")
Sleep 2000
SendChat("/do Лицензия оформлена на имя: " Nick)
Sleep 1100
SendChat("/givelicense " CommandProcessor.TempText)
return

#Include, CP.ahk

C++: 
/*
    Разработчик: Александр Тумаш (tumkin)
    Компания: Tumkin Project
    Спонсор: cheat-master.ru
 
    CommandProcessor := new CommandProcessor()
    CommandProcessor.SetStatusProcessor(true)
    CommandProcessor.RegisterCommand("/mycmd", "cmdMyCMD")
    Msgbox % "Текст после команды: " CommandProcessor.TempText
    Msgbox % "Команда которую мы ввели: "CommandProcessor.TempCmd
 
    Данные строки не рекомендуется удалять, дабы соблюдать авторские права.
    v0.1
*/

class CommandProcessor {
    StatusProcessor := false
    CommandArray := {}
 
    TempText := ""
    TempCmd := ""
 
    SetStatusProcessor(status) {
        this.StatusProcessor := status
    }
 
    RegisterCommand(cmd, metka) {
        ObjRawSet(this.CommandArray, cmd, metka)
    }
 
    DeleteCommand(cmd) {
        this.CommandArray.Delete(cmd)
    }
}

~Enter::
if(CommandProcessor.StatusProcessor) {
    if(IsChatActive()) {
        if(isDialogOpen())
            return
     
        blockChatInput()
        while(IsChatActive())
            continue
     
        unBlockChatInput()
     
        TextChat := GetChatText()
     
        if(SubStr(TextChat, 1, 1) = "/") { ; Определено что введена команда
            InputCMD := StrSplit(TextChat, A_Space)
            InputCMD := InputCMD[1]
            CommandProcessor.TempCmd  := InputCMD
            RegExMatch(TextChat, "^\/\w+\s(.*)", var)
            CommandProcessor.TempText := var1
         
            if(CommandProcessor.CommandArray.HasKey(InputCMD)) { ; Если команда определена в скрипте
                ClearTextDialog()
                SetTimer, % CommandProcessor.CommandArray[InputCMD], -1
            } else { ; Если команда не определена
                SendChat(TextChat)
                ClearTextDialog()
            }
        } else { ; Определено что вводиться обычный текст
            if(TextChat != "") {
                CommandProcessor.TempText := TextChat
                SendChat(TextChat)
                ClearTextDialog()
            }
        }
    }
}
return
P.S SUD.txt переименовать в .ahk
 

Вложения

  • SUD.txt
    221.3 KB · Просмотры: 14
Последнее редактирование:
Pakulichev

Pakulichev

Software Developer & System Administrator
Друг
1,789
2,130
Добрый день, форумчане. Возможно есть те у кого возникает проблема при использовании Samp UDF. А именно при попытке получить свой ID по следующему коды вы получите ответ: "-1".

Код:
F2::
pid:= getPlayerIdByName(getUsername())
AddChatMessage("Ваш ID: " pid)
Return
Нажмите для раскрытия...

А при попытки получить cам nickname вы получаете пустую строку, а то есть такой код тоже не работает:

Код:
F2::
pid:= getPlayerIdByName(getUsername())
pname = getUsername()
AddChatMessage("Ваш ID: " pid " | " pname)
Return
Нажмите для раскрытия...

UDF подключен, AHK запущен от имени администратора. Помогите решить проблему. Буду благодарен =)
 
Tiva

Tiva

Известный
76
1
Artur_iOS написал(а):
Строки 15 и 20 смотри...
Нажмите для раскрытия...
Исправил все равно не работает)
Код: 
#Include samp.ahk

F2::
Showdialog("1", "{FFFAFA}Выберите пункт", "{FFFAFA}[1] - RolePlay`n[2] - Лекции`n[3] - Наказание", "Ok")
input, text, V, {Enter}
Keywait, Enter, D
sleep 300

if (text = 1) {
Showdialog("1", "{FFFAFA}Выберите пункт", "[1]RolePlay`n[2]RolePlay`n[3]RolePlay`n[4]RolePlay`n[5]RolePlay`n[6]RolePlay`n[7]RolePlay`n[8]RolePlay`n[9]RolePlay", "Ok")
} else if (text = 2) {
SendChat("{FFFAFA}Привет")
sleep 1100
SendChat("Добрый день")
} sleep 1100 {
SendChat("/invite")
} else if (text = 3) {
SendChat("/invite")
} else {
addChatMessage("[AHK]: Ошибка. Выберите пункт с помощью цифр 1-3")
}
return
 
RTD

RTD

Нестандартное звание
Модератор
391
413
Tiva написал(а):
Исправил все равно не работает)
Код: 
#Include samp.ahk

F2::
Showdialog("1", "{FFFAFA}Выберите пункт", "{FFFAFA}[1] - RolePlay`n[2] - Лекции`n[3] - Наказание", "Ok")
input, text, V, {Enter}
Keywait, Enter, D
sleep 300

if (text = 1) {
Showdialog("1", "{FFFAFA}Выберите пункт", "[1]RolePlay`n[2]RolePlay`n[3]RolePlay`n[4]RolePlay`n[5]RolePlay`n[6]RolePlay`n[7]RolePlay`n[8]RolePlay`n[9]RolePlay", "Ok")
} else if (text = 2) {
SendChat("{FFFAFA}Привет")
sleep 1100
SendChat("Добрый день")
} sleep 1100 {
SendChat("/invite")
} else if (text = 3) {
SendChat("/invite")
} else {
addChatMessage("[AHK]: Ошибка. Выберите пункт с помощью цифр 1-3")
}
return
Нажмите для раскрытия...
Это не исправил, а сделал еще хуже...
 
RTD

RTD

Нестандартное звание
Модератор
391
413
Danila_Demidow написал(а):
Такая проблема, есть два скрипта. Но при запуске пишет, что тип две разные команды на одной клавише. Помогите совместить, надеюсь поняли, что хочу сделать.
$~Enter::
if (isInChat() && !isDialogOpen())
{
Sleep, 200
dwAddress := dwSAMP + 0x12D8F8
chatText := readString(hGTA, dwAddress, 256)
if (RegExMatch(chatText, "^\/lic (.*)", var))
{
Nick := RegExReplace(getPlayerNameById(var1), "_", " ")
Sleep 2500
SendChat("/me достал чистый бланк для лицензий ")
Sleep 4000
SendChat("/me заполнил бланк по паспортным данным: " Nick " ")
Sleep 3000
SendChat("/do в бланке стоит печать: ''With love from Driving School'' ")
Sleep 2000
SendChat("/do Лицензия оформлена на имя: " Nick " ")
Sleep 1100
SendChat("/givelicense " var1 )
}
}
Return

$~Enter::
if (isInChat() && !isDialogOpen())
{
Sleep, 200
dwAddress := dwSAMP + 0x12D8F8
chatText := readString(hGTA, dwAddress, 256)
if (RegExMatch(chatText, "^\/lis (.*)", var))
{
Nick := RegExReplace(getPlayerNameById(var1), "_", " ")
Sleep 1100
SendChat("/do На плече сумка с документами ")
Sleep 3000
SendChat("/me достал из сумки чистый бланк для лицензий ")
Sleep 4500
SendChat("/me заполнил бланк по паспортным данным: " Nick " ")
Sleep 3000
SendChat("/do в бланке стоит печать: ''With love from Driving School'' ")
Sleep 2000
SendChat("/do Лицензия оформлена на имя: " Nick " ")
Sleep 1100
SendChat("/givelicense " var1 )
}
}
Return
Нажмите для раскрытия...
Код: 
$~Enter::
if (isInChat() && !isDialogOpen()) {
    Sleep, 200
    dwAddress := dwSAMP + 0x12D8F8
    chatText  := readString(hGTA, dwAddress, 256)
    if (RegExMatch(chatText, "^\/lic (.*)", var)) {
        Nick := RegExReplace(getPlayerNameById(var1), "_", " ")
        Sleep 2500
        SendChat("/me достал чистый бланк для лицензий ")
        Sleep 4000
        SendChat("/me заполнил бланк по паспортным данным: " Nick " ")
        Sleep 3000
        SendChat("/do в бланке стоит печать: ''With love from Driving School'' ")
        Sleep 2000
        SendChat("/do Лицензия оформлена на имя: " Nick "  ")
        Sleep 1100
        SendChat("/givelicense " var1 )
    }else if (RegExMatch(chatText, "^\/lis (.*)", var)) {
        Nick := RegExReplace(getPlayerNameById(var1), "_", " ")
        Sleep 1100
        SendChat("/do На плече сумка с документами ")
        Sleep 3000
        SendChat("/me достал из сумки чистый бланк для лицензий ")
        Sleep 4500
        SendChat("/me заполнил бланк по паспортным данным: " Nick " ")
        Sleep 3000
        SendChat("/do в бланке стоит печать: ''With love from Driving School'' ")
        Sleep 2000
        SendChat("/do Лицензия оформлена на имя: " Nick "  ")
        Sleep 1100
        SendChat("/givelicense " var1 )
    }
}
Return
 
JEEMBО

JEEMBО

Известный
Друг
1,240
581
yuy111 написал(а):
Напишите пример кода для автоответчика в sms samp
Нажмите для раскрытия...
Код: 
way = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt

!1::
FileDelete, %way%
Loop
{
   FileRead, file, %way%
   IfInString, file, ]: {FFCD00}
   {
    RegExMatch(file, "\w*\[([0-9]*)\]: {FFCD00}", var)
    SendInput, {f6}/sms %var1% Здравствуйте{enter}
    FileDelete, %way%
   }
}
return

Или так
Код: 
FileCLog:=% A_MyDocuments "\GTA San Andreas User Files\SAMP\chatlog.txt"

loop
{

lastline := GetNewLine(FileCLog)

If lastline contains привет,здрав,здаров
{
RegExMatch(lastline, "i).*\[([0-9]*)\]: \{FFCD00\}.*", idPl)
Sendinput {F6}/sms %idPl1% Здравствуйте{ENTER}
}

}

GetNewLine(filename)
{ ;функция чтения последней строки, если файл изменен каждыее 100 мс
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
}
 
Последнее редактирование модератором:
S

Sadriev12

Новичок
10
0
Помогите, когда нажимаю ALT+4, то вводиться первые 2-3 сообщения, а потом игра переходит в оконный режим. Что делать ?

Код: 
!4::
SendInput, {F6}Сэр, пожалуйста, ведите себя адекватно ..{Enter}
Sleep, 1000 ;
SendInput, {F6}...Ведь ваша неадекватность к хорошему не приведет...{Enter}
Sleep, 1000 ;
SendInput, {F6}.. в ином случае мне придется применить к вам силу ...{Enter}
Sleep, 1000 ;
SendInput, {F6}... и вывести из здания банка!{Enter}
SendInput, {F6}/me грозно взглянув на нарушителя покоя{Enter}
Return
 
Tiva

Tiva

Известный
76
1
Сделал свой скрипт. после чего захожу в сам самп нажимаю F2 - активация и у меня происходят лаги после чего игра полностью крашит.
 
JEEMBО

JEEMBО

Известный
Друг
1,240
581
Tiva написал(а):
Сделал свой скрипт. после чего захожу в сам самп нажимаю F2 - активация и у меня происходят лаги после чего игра полностью крашит.
Нажмите для раскрытия...
Ну так ты может код предоставишь или мы все тут на битве экстрасенсов?
 
  • Нравится
Реакции: Dr_lesbow и user116675
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  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
    Просмотры
    671
    Вопросы
    Pizduk2277
    Pizduk2277
  5. SuperArs
    [AHK] [Arizona V] Авто игра на игровых автоматах
    Ответы
    0
    Просмотры
    1K
    Читы
    SuperArs
    SuperArs
Сверху Снизу