Необходима помощь с AHK

[DarkHawk]

Всем привет. Необходима помощь с написанием скрипта. Вернее его ДОписанием. Не знаю как сделать следующую вещь:
Мне необходимо надеть наручники на преступника командой /cuff. Но для этого мне нужна полная рп отыгровка, типа "/me взял наручники в руку , /do наручники в руках" и т.д. так вот, мне необходимо ввести команду /cuf [id] (не /cuff), чтобы сначала происходила отыгровка, а только потом прописывалось /cuff с указанным id в начале, в /cuf [id]. Прошу помочь, ибо не знаю как это сделать.
Так же у меня есть sampUDF и API.

 

[AIMP]

Всем привет. Необходима помощь с написанием скрипта. Вернее его ДОписанием. Не знаю как сделать следующую вещь:
Мне необходимо надеть наручники на преступника командой /cuff. Но для этого мне нужна полная рп отыгровка, типа "/me взял наручники в руку , /do наручники в руках" и т.д. так вот, мне необходимо ввести команду /cuf [id] (не /cuff), чтобы сначала происходила отыгровка, а только потом прописывалось /cuff с указанным id в начале, в /cuf [id]. Прошу помочь, ибо не знаю как это сделать.
Так же у меня есть sampUDF и API.

Функция получения текста из чата (нужен SAMPUDF)

ChatInput()
{
if !isInChat()
    return ""
While isInChat()
    sleep 1
dwAddress := dwSAMP + 0x12D8F8
chatInput := readString(hGTA, dwAddress, 256)
return chatInput
}

Функцию вызывай через $~Enter::

StrSplit в помощь - что бы узнать айди

 

[DarkHawk]

Функция получения текста из чата (нужен SAMPUDF)

ChatInput()
{
if !isInChat()
    return ""
While isInChat()
    sleep 1
dwAddress := dwSAMP + 0x12D8F8
chatInput := readString(hGTA, dwAddress, 256)
return chatInput
}

Функцию вызывай через $~Enter::

StrSplit в помощь - что бы узнать айди

Можешь написать пример кода? Вот отыгровка к примеру:
/cuf [id] (ид будет использоваться в последней строчке (/cuff)
/me взял наручники
/do наручники в руках
/me надел на преступника наручники
/do наручники на преступнике
/cuff [id] (id указываемый в начале)

 

[zhas]

Работает 100%. Все исправил. Активация клавиша: P.

{$CLEO}
0000: NOP
    gosub @OnOff
:OnOff
wait 0
if 0AB0: 80
jf @OnOff
jump @start

:pause
wait 2000
jump @OnOff



:start
wait 0
0B3B: samp show_dialog id 16 caption "Меню наручников" text "Введите id нарушителя" button_1 "Заковать" button_2 "Пощадить" style 1
0AC8: 2@ = allocate_memory_size 128
:ifzone
wait 0
if
0B3C: samp is_dialog_responded id 16 button 1@ list_item 0 input_text 2@
then
if
1@ == 1
then
0AF9: samp say_msg "/me взял наручники"
wait 1000
0AF9: samp say_msg "/do наручники в руках"
wait 1000
0AF9: samp say_msg "/me надел на преступника наручники"
wait 1000
0AF9: samp say_msg "/do наручники на преступнике"
wait 1000
0AF9: "/cuff %s" 2@
0AC9: free_allocated_memory 2@
jump @pause
else
0AC9: free_allocated_memory 2@
jump @pause
end
else
jump @ifzone
end
0AC9: free_allocated_memory 2@
jump @pause

 

[DarkHawk]

Работает 100%. Есть баг при выходе, могут быть еще баги, отлажу как нить потом. Активация клавиша: P.

{$CLEO}
0000: NOP
    gosub @OnOff
:OnOff
wait 0
if 0AB0: 80
jf @OnOff
jump @start

:pause
wait 2000
jump @OnOff



:start
wait 0
0B3B: samp show_dialog id 16 caption "Меню наручников" text "Введите id нарушителя" button_1 "Заковать" button_2 "Пощадить" style 1
0AC8: 2@ = allocate_memory_size 128
:ifzone
wait 0
if
0B3C: samp is_dialog_responded id 16 button 1@ list_item 0 input_text 2@
then
if
1@ == 1
then
0AF9: samp say_msg "/me взял наручники"
wait 1000
0AF9: samp say_msg "/do наручники в руках"
wait 1000
0AF9: samp say_msg "/me надел на преступника наручники"
wait 1000
0AF9: samp say_msg "/do наручники на преступнике"
wait 1000
0AF9: "/cuff %s" 2@
0AC9: free_allocated_memory 2@
jump @pause
else
0AC9: free_allocated_memory 2@
jump @pause
end
else
jump @ifzone
end
0AC9: free_allocated_memory 2@
jump @pause

Спасибо конечно, но это клео, а не АХК. Я собираюсь писать несколько скриптов АХК по тому типу, что указал, поэтому мне нужен именно АХК и БЕЗ ДИАЛОГОВ.

 

[serhiyrubin]

Все намного проще чем вы думаете. Пример кода на Правую кнопку мыши + С
Чтобы сработало надо навести прицел на преступника и нажать С и пойдет РП отыгровка
Если прицел наведен не на человека, и была нажата С, то ничего не произойдет

~RButton & vk43::
id:=getIdByPed(getTargetPed())
If (id > -1) {
    SendChat("/do Наручники на поясе")
    Sleep 1010
    SendChat("/me Снял наручники с пояса")
    Sleep 1010
    SendChat("cuff "id)
}
Return

 

[DarkHawk]

Все намного проще чем вы думаете. Пример кода на Правую кнопку мыши + С
Чтобы сработало надо навести прицел на преступника и нажать С и пойдет РП отыгровка
Если прицел наведен не на человека, и была нажата С, то ничего не произойдет

~RButton & vk43::
id:=getIdByPed(getTargetPed())
If (id > -1) {
    SendChat("/do Наручники на поясе")
    Sleep 1010
    SendChat("/me Снял наручники с пояса")
    Sleep 1010
    SendChat("cuff "id)
}
Return

А есть такой же, только без активации ПКМ+С, без прицела, а просто с команды /cuf [id]?

 

[AIMP]

А есть такой же, только без активации ПКМ+С, без прицела, а просто с команды /cuf [id]?

Буду дома - помогу :)

 

[serhiyrubin]

Ну можно так

:B0?:/cuff::
Input, id ,V, {enter}
    SendChat("/do Наручники на поясе")
    Sleep 1010
    SendChat("/me Снял наручники с пояса")
    Sleep 1010
    SendChat("/cuff "id)
Return

 

[DarkHawk]

Ну можно так

:B0?:/cuff::
Input, id ,V, {enter}
    SendChat("/do Наручники на поясе")
    Sleep 1010
    SendChat("/me Снял наручники с пояса")
    Sleep 1010
    SendChat("/cuff "id)
Return

То что надо! Спс :3

 

[serhiyrubin]

Вот ещё вариант, но он отправляется к серверу почему то. По этому как ты сначала хотел команда /cuf
Тут добавлена проверка на то что вписаны ли цифры или нет, не будет ложных срабатываний.
Если у кого есть ещё способы активации, кидайте свои коды)

:B0?:/cuf::
Input, id ,V, {enter}
RegExMatch(id, "([0-9]*)", cuf)
   if (cuf1>-1) {
    SendChat("/do Наручники на поясе")
    Sleep 1010
    SendChat("/me Снял наручники с пояса")
    Sleep 1010
    SendChat("/cuff "id)
}
Return

 

[AIMP]

Добавляешь функцию

ChatInput()
{
if !isInChat()
    return ""
While isInChat()
    sleep 1
dwAddress := dwSAMP + 0x12D8F8
chatInput := readString(hGTA, dwAddress, 256)
return chatInput
}

В скрипте пишешь

$~Enter::
if isDialogOpen()
    return
else
    goto, GetChat
return

И

GetChat:
chatInput := StrSplit(ChatInput(), A_Space)
if (ChatInput[1] = "") or !(IsSAMPAvailable())
    return
if (ChatInput[1] = "/bsu")
{
if !(ChatInput[2] = "") and !(ChatInput[3] = "") and !(ChatInput[4] = "")
Su(ChatInput[2], ChatInput[3], ChatInput[4])
else
addChatMessage("{FF00FF}[MIA] {FF0000}Используйте /bsu [id игрока] [Уровень розыска] [Причина]")
}
return

Или можно айди брать из "Таргета". В данном случае на ПКМ + F1

vk02 & vk70::
Su(getIdByPed(getTargetPed()), "5", "УК 1.2")
return

И функция "Su" для удобства

Su(TargetID, Wanteds, Reason) {
if (TargetID = "-1") or (getPlayerNameById(TargetID) = "")
{
addChatMessage("{FF00FF}[MIA] {FF0000}Ошибка, не могу найти игрока.")
return false
}
TargetNickName := getPlayerNameById(TargetID)
TargetRpNickName := RegExReplace(TargetNickName, "_", A_Space)
SendChat("/me достал(а) КПК « MIA » из кармана")
SendChat("/me сообщил о " TargetRpNickName " диспетчеру.")
SendChat("/su " TargetID " " Wanteds " " Reason)
return true
}

 

[serhiyrubin]

У меня почему то вот с этим нифига не работает. Как я только не использовал
dwAddress := dwSAMP + 0x12D8F8
chatInput := readString(hGTA, dwAddress, 256)

 

[AIMP]

У меня почему то вот с этим нифига не работает. Как я только не использовал
dwAddress := dwSAMP + 0x12D8F8
chatInput := readString(hGTA, dwAddress, 256)

Самп Аддон может блочить ахк если включен античит

 

[serhiyrubin]

Самп Аддон может блочить ахк если включен античит

Аддона нет) Есть crashes.asi, только для того чтобы гта быстро запустилась