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

Black_Bird

Участник
59
4
Как сделать, что бы когда офицер сообщил о коде-1 (Пример: говорит Блэк Бирд, нахожусь...... код-1) проиграла мелодия
 

bh.cheat

Известный
13
0
Крашит (иногда зависает) самп, когда вызываю диалог. Иногда работает стабильно, а иногда крашит (рандомно). Вместе с этим скриптом использую еще два. В чем проблема может быть? Мб в коде че-то не так?

Код:
#IfWinActive, GTA:SA:MP
#Include SAMP1.ahk

F3::
ShowDialog(2, "Выдать розыск", "{ff6345}ук:`n1 - Чистосердечное`n3 - Член ОПГ", "Ок")
Result := LineResult()
if (!Result)
    return
Gosub, Label%Result%
Label1:
return
Label2:
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}/su  1 Чистосердечное{space}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}
return
Label3:
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}/su  3 Член ОПГ{space}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}
return
LineResult() {
    if (!isDialogOpen() || getDialogStyle() = 0 || getDialogStyle() = 1 || getDialogStyle() = 3)
        return false
    while (isDialogOpen())
        continue
    if(GetKeyState("Esc", "P"))
        return false
    return getDialogLineNumber()
}
 

CyberSuslik

Участник
88
12
Доброго времени суток господа ! Такая проблема делаю скрипт для друга, у меня скрипт работает, у друга не активируется на эти же кнопки. В чем может быть дело ? Как исправить
 

DeMoN3D

Известный
366
76
Крашит (иногда зависает) самп, когда вызываю диалог. Иногда работает стабильно, а иногда крашит (рандомно). Вместе с этим скриптом использую еще два. В чем проблема может быть? Мб в коде че-то не так?

Код:
#IfWinActive, GTA:SA:MP
#Include SAMP1.ahk

F3::
ShowDialog(2, "Выдать розыск", "{ff6345}ук:`n1 - Чистосердечное`n3 - Член ОПГ", "Ок")
Result := LineResult()
if (!Result)
    return
Gosub, Label%Result%
Label1:
return
Label2:
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}/su  1 Чистосердечное{space}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}
return
Label3:
SendMessage, 0x50,, 0x4190419,, A
SendInput, {F6}/su  3 Член ОПГ{space}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}
return
LineResult() {
    if (!isDialogOpen() || getDialogStyle() = 0 || getDialogStyle() = 1 || getDialogStyle() = 3)
        return false
    while (isDialogOpen())
        continue
    if(GetKeyState("Esc", "P"))
        return false
    return getDialogLineNumber()
}
насчёт твоей ошибки не знаю, но насчет твоего бесконечного "лефт лефт лефт" лучше используй {left 5} - нажмёт кнопку 5 раз
 

CyberSuslik

Участник
88
12
Lua:
#IfWinActive GTA:SA:MP

; Бомба с часовым механизмом

1::
SendMessage, 0x50,, 0x4190419,, A
Send, {F6}/me достал(а) саперный набор{enter}
Sleep, 7500
Send, {F6}/me открыл(а) саперный набор{enter}
Sleep, 7500
Send, {F6}/me осмотрел(а) взрывное устройство{enter}
Sleep, 7500
Send, {F6}/do Определил(а) тип взрывного устройства "Бомба с часовым механизмом"{enter}
Sleep, 7500
Send, {F6}/do Увидел(а) провод выходящий с механизма{enter}
Sleep, 7500
Send, {F6}/me достал(а) нож из саперного набора{enter}
Sleep, 7500
Send, {F6}/me аккуратно зачистил(а) провод{enter}
Sleep, 7500
Send, {F6}/me перерезал(а) проводок{enter}
Sleep 7500
Send, {F6}/do Механизм перестал издавать тикающие звуки{enter}
Sleep, 7500
Send, {F6}/do Бомба обезврежена{enter}
Sleep, 7500
Send, {F6}/me сложил(а) инструменты обратно в саперный набор{enter}
Sleep, 7500
Send, {F6}/me достал(а) бронированный кейс и аккуратно сложил туда бомбу{enter}
return
 

Overseas

Новичок
16
1
Есть код, нужно что бы он активировался после того как определенная клавиша была зажата определенное количество времени, например когда клавиша Numpad0 была зажата в течении 5 секунд. Как это осуществить, поможет кто?
Код:
Numpad0::
SendMessage, 0x50,, 0x4190419,, A
SendChat("/time")
sleep, 300
Sendinput, {F2}
Return
 

Black_Bird

Участник
59
4
Lua:
#IfWinActive GTA:SA:MP

; Бомба с часовым механизмом

1::
SendMessage, 0x50,, 0x4190419,, A
Send, {F6}/me достал(а) саперный набор{enter}
Sleep, 7500
Send, {F6}/me открыл(а) саперный набор{enter}
Sleep, 7500
Send, {F6}/me осмотрел(а) взрывное устройство{enter}
Sleep, 7500
Send, {F6}/do Определил(а) тип взрывного устройства "Бомба с часовым механизмом"{enter}
Sleep, 7500
Send, {F6}/do Увидел(а) провод выходящий с механизма{enter}
Sleep, 7500
Send, {F6}/me достал(а) нож из саперного набора{enter}
Sleep, 7500
Send, {F6}/me аккуратно зачистил(а) провод{enter}
Sleep, 7500
Send, {F6}/me перерезал(а) проводок{enter}
Sleep 7500
Send, {F6}/do Механизм перестал издавать тикающие звуки{enter}
Sleep, 7500
Send, {F6}/do Бомба обезврежена{enter}
Sleep, 7500
Send, {F6}/me сложил(а) инструменты обратно в саперный набор{enter}
Sleep, 7500
Send, {F6}/me достал(а) бронированный кейс и аккуратно сложил туда бомбу{enter}
return
Скомпилируй его, и кинь другу

Что тут не так?
Код:
if (isInChat() && !isDialogOpen())
{
Sleep 200
dwAddress := dwSAMP + 0x12D8F8
chatInput := readString(hGTA, dwAddress, 256)
if (RegExMatch(chatInput, "^/r (.*)",rc))
{
If teg=
addChatMessageEx("FFFFFF", "Вы не выбрали тэг! /teg")
Return
}
{
ShowDialog(3, "Выберите тэг игрока которому вы пишите ", "all(Всем сотрудникам)`nCA(1-2 ранг)`nPO-I(3-5 ранг)`nPO-II(6-7 ранг)`nSTAFF-3(8 ранг)`nSTAFF-2(9 ранг)`nSTAFF-3(10 ранг)", "Закрыть")
Result := LineResult()
if (!Result)
return
Gosub, cteg%Result%
return
Cteg1:
{
Sendchat("/r " teg " to all: " rc1)
}
Return
Cteg2:
{
ShowDialog(1, "id сотрудника", "ID", "Закрыть")
while (isDialogOpen()) {
}
Sendchat("/r " teg " to CA №" readString(hGTA, dwSAMP + 0x12 D8F8, 256) ": " rc1)
}
Return
Cteg3:
{
ShowDialog(1, "id сотрудника", "ID", "Закрыть")
while (isDialogOpen()) {
}
Sendchat("/r " teg " to PO-I №" readString(hGTA, dwSAMP + 0x12D8F8, 256) ": " rc1)
}
Return
Cteg4:
{
ShowDialog(1, "id сотрудника", "ID", "Закрыть")
while (isDialogOpen()) {
}
Sendchat("/r " teg " to PO-II №" readString(hGTA, dwSAMP + 0x12D8F8, 256) ": " rc1)
}
Return
Cteg5:
{
ShowDialog(1, "id сотрудника", "ID", "Закрыть")
while (isDialogOpen()) {
}
Sendchat("/r " teg " to STAFF-3 №" readString(hGTA, dwSAMP + 0x12D8F8, 256) ": " rc1)
}
Return
Cteg6:
{
ShowDialog(1, "id сотрудника", "ID", "Закрыть")
while (isDialogOpen()) {
}
Sendchat("/r " teg " to STAFF-2 №" readString(hGTA, dwSAMP + 0x12D8F8, 256) ": " rc1)
}
Return
Cteg7:
{
ShowDialog(1, "id сотрудника", "ID", "Закрыть")
while (isDialogOpen()) {
}
Sendchat("/r " teg " to STAFF-1 №" readString(hGTA, dwSAMP + 0x12D8F8, 256) ": " rc1)
}
Return

}
}
Return
 
Последнее редактирование модератором:

Extraktoris

Новичок
5
1
Ребят, пожалуйста помогите. Я не могу сделать ахк которое сразу после пейдея напишет /capture . Я много уже пытаюсь - но не получается. Если кто-то знает как это сделать - то помогите.
Если кто-то сделает буду очень благодарен
 

DeMoN3D

Известный
366
76
Ребят, пожалуйста помогите. Я не могу сделать ахк которое сразу после пейдея напишет /capture . Я много уже пытаюсь - но не получается. Если кто-то знает как это сделать - то помогите.
Если кто-то сделает буду очень благодарен
напиши в вк vk.com/wtfinvoker , помогу, чем смогу