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

#Rin · 19 Фев 2018

Kolya_Kortez написал(а):
Мог бы помочь с AHK - Вопросы по AHK-скриптингу^{(https://blast.hk/threads/18040/page-20#post-184354)} ?)

AutoHotKey:

if (RegExMatch(chatInput, "^\/fakeuval\s(.*)\s(.*)", out))
; out1 = Ник
; out2 = Причина

Sparkyo · 19 Фев 2018

Rinat_Namazov написал(а):
Через 4 часика буду, щяс занят.

Свободен, можешь помочь с моим скриптом?

Kolya_Kortez · 19 Фев 2018

Vlad Horii написал(а):
Наверное есть и другое решение твоей пробелемы, но лично я бы вводил не ник причина , а ид причина, и потом уже узнавать ник по ид. Ну и в регулировке читаешь цифры, потом остальное уже причину
(Надеюсь понял)

это фейк увольнение с организации, человек даже в игре может не находится)

#Rin · 19 Фев 2018

gTheSparky написал(а):
Свободен, можешь помочь с моим скриптом?

AutoHotKey:

Pause
Loop
{
    Send, {WheelDown}
    Sleep, 370
    Send, {WheelDown}
    Sleep, 370
    Send, {WheelDown}
    Sleep, 370
    Send, {WheelDown}
    Sleep, 370
    Send, {RButton}
    Sleep, 20
    MouseGetPos, X_Pos, Y_Pos
    MouseClick, Left, X_Pos - 10, Y_Pos
    Sleep, 26000 
}
return
F11::
Pause
return

Sparkyo · 19 Фев 2018

Rinat_Namazov написал(а):

AutoHotKey:

Pause
Loop
{
    If (stat != 1)
        return
    Send, {WheelDown}
    Sleep, 370
    Send, {WheelDown}
    Sleep, 370
    Send, {WheelDown}
    Sleep, 370
    Send, {WheelDown}
    Sleep, 370
    Send, {RButton}
    Sleep, 20
    MouseGetPos, X_Pos, Y_Pos
    MouseClick, Left, X_Pos - 10, Y_Pos - 10
    Sleep, 26000
}
return
F11::
Pause
stat := (stat ? "0":"1")
return

Спасибо тебе огромное.

Adam_Rockwell · 19 Фев 2018

Делать было как всегда нечего, решил написать скриптик, чтобы ставил ставку в казино рулетка (шанс 1 к 3) на серваке Samp-DM.

Принцип работы:
Если проигрыш, то ставка увеличивается в полтора раза. И так до тех пор, пока не выиграешь. В итоге после нескольких проигрышей подряд всё-таки наступает выигрыш, и мы всегда в плюсе на фиксированную сумму.

Код я значительно сократил, чтобы было удобней понять принцип работы. В общем... Спустя 15-20 минут работы - скрипт тупо аварийно завершает работу. (Работа ansi-32 была прекращена, что-то типо такого)
Вопрос. Почему? Как исправить?

C++:

#SingleInstance Force
#Persistent
#Include udf.ahk
#IfWinActive GTA:SA:MP

;=========================
global startmoney = 2 ; Начальная ставка.
global maxrate = 25000 ; Максимальная сумма ставки в казино.
;=========================
global step = 0

F11::
Rate(startmoney)
return

F12::
PrintLow("~g~Script Reload", "500")
Reload
Return
 
Rate(money)
{
    SendChat("/rulet")
    sleep 300
    SendInput {down 3}{enter}
    sleep 500
    SendInput %money%{enter}
    Loop 1000
    {
        if (RegExMatch(getChatLineEx(0), "Вы выиграли {FFFFFF}.*{FFFF00} На барабане:"))
        or (RegExMatch(getChatLineEx(1), "Вы выиграли {FFFFFF}.*{FFFF00} На барабане:"))
        or (RegExMatch(getChatLineEx(2), "Вы выиграли {FFFFFF}.*{FFFF00} На барабане:"))
        {
            money := startmoney
            step++
            break
        }
        else if (RegExMatch(getChatLineEx(0), "Вы проиграли! На барабане"))
             or (RegExMatch(getChatLineEx(1), "Вы проиграли! На барабане"))
             or (RegExMatch(getChatLineEx(2), "Вы проиграли! На барабане"))
        {
            money := Round(money*1.5)
            step++
            break
        }
    }
    addchatmessage("")
    addchatmessage("")
    addchatmessage("")
    addchatmessage(step)
    sleep 200
    Rate(money)
}

P.S: Могу ответить на вопросы по поводу любой строчки кода. (Вроде быдлокода сильного нет)

Adam_Rockwell · 19 Фев 2018

Vlad Horii написал(а):
Хз, мб из-за переполнения памяти, ибо если изначально скрипт работает нормально, а спустя какое-то время вылетает, то я не знаю что тут ещё сказать

Как эту память высвободить? Мы же ничего не запоминаем, кроме step. (номера игры)

#Rin · 19 Фев 2018

AdamRockwell написал(а):
Как эту память высвободить? Мы же ничего не запоминаем, кроме step. (номера игры)

Это не C++ чтобы контролировать все, даже кол-во занимаемых байтов переменой не можем определить.

AdamRockwell написал(а):
Делать было как всегда нечего, решил написать скриптик, чтобы ставил ставку в казино рулетка (шанс 1 к 3) на серваке Samp-DM.

Принцип работы:
Если проигрыш, то ставка увеличивается в полтора раза. И так до тех пор, пока не выиграешь. В итоге после нескольких проигрышей подряд всё-таки наступает выигрыш, и мы всегда в плюсе на фиксированную сумму.

Код я значительно сократил, чтобы было удобней понять принцип работы. В общем... Спустя 15-20 минут работы - скрипт тупо аварийно завершает работу. (Работа ansi-32 была прекращена, что-то типо такого)
Вопрос. Почему? Как исправить?

C++:

#SingleInstance Force #Persistent #Include udf.ahk #IfWinActive GTA:SA:MP ;========================= global startmoney = 2 ; Начальная ставка. global maxrate = 25000 ; Максимальная сумма ставки в казино. ;========================= global step = 0 F11:: Rate(startmoney) return F12:: PrintLow("~g~Script Reload", "500") Reload Return Rate(money) { SendChat("/rulet") sleep 300 SendInput {down 3}{enter} sleep 500 SendInput %money%{enter} Loop 1000 { if (RegExMatch(getChatLineEx(0), "Вы выиграли {FFFFFF}.*{FFFF00} На барабане:")) or (RegExMatch(getChatLineEx(1), "Вы выиграли {FFFFFF}.*{FFFF00} На барабане:")) or (RegExMatch(getChatLineEx(2), "Вы выиграли {FFFFFF}.*{FFFF00} На барабане:")) { money := startmoney step++ break } else if (RegExMatch(getChatLineEx(0), "Вы проиграли! На барабане")) or (RegExMatch(getChatLineEx(1), "Вы проиграли! На барабане")) or (RegExMatch(getChatLineEx(2), "Вы проиграли! На барабане")) { money := Round(money*1.5) step++ break } } addchatmessage("") addchatmessage("") addchatmessage("") addchatmessage(step) sleep 200 Rate(money) }

P.S: Могу ответить на вопросы по поводу любой строчки кода. (Вроде быдлокода сильного нет)

Зачем тут Loop 1000 ?
getChatLineEx(0) - возвращает последнюю строчку в чате, зачем чекать еще другие 2 строчки

StenMarsh · 20 Фев 2018

Можете сделать скрипт, отправил доклад с поста, и после 9мин. скрипт в чат пишет "Через 1мин. нужно кинуть доклад". Т.е таймер 9мин. после отправки доклада

sswsx · 20 Фев 2018

StenMarsh написал(а):
Можете сделать скрипт, отправил доклад с поста, и после 9мин. скрипт в чат пишет "Через 1мин. нужно кинуть доклад". Т.е таймер 9мин. после отправки доклада

Цикл, который сначала отправит доклад, а потом каждые 9 минут будет сообщать тебе о том что через минуту скрипт кинет доклад, активация на клавишу 1

C++:

1:: ; Активация на клавишу 1
Loop
{
  SendChat(”СЮДА ПИШИ ДОКЛАД")
  Sleep 540000
  AddChatMessage("{FF00FF}[AHK] {FFFFFF}Через минуту будет доклад")
 Sleep 60000
}
Return

После того как ты сделал нужное кол-во докладов,скрипт нужно отключить

C++:

F11::                 ; Приостановка на F11.
  If not Stop
  {
    Stop := True
    Pause
  }
Return

F12::                 ; Возобновление на F12.
  If Stop
  {
    Stop := False
    Pause
  }
Return

Выключить скрипт на F11, возобновить работу после остановки на F12
Обязательно иметь SAMP UDF!
По желанию можно убрать {}

Adam_Rockwell · 20 Фев 2018

Rinat_Namazov написал(а):
Это не C++ чтобы контролировать все, даже кол-во занимаемых байтов переменой не можем определить.

Зачем тут Loop 1000 ?
getChatLineEx(0) - возвращает последнюю строчку в чате, зачем чекать еще другие 2 строчки

Потому что в чате чёртов флуд от других игроков. И последнюю строку скрипт не всегда успевал взять.

Loop 1000, из-за того, что цикл начинает чекать последнюю строку в чате на доли секунды раньше, чем эта строка выходит.

TopMo3 · 20 Фев 2018

Хочу создать для своей семьи подсказки, а именно.
Когда кто-то например пишет !khelp выдает, потом /k пишется автоматически без клавиш, от моего лица, доступные команды, потом другой человек/или тот же, пишет !fflood например, и флудит, то что я настроил по данной команде.
Буду благодарен.

Adam_Rockwell · 20 Фев 2018

Misha Kolashnikov написал(а):
Хочу создать для своей семьи подсказки, а именно.
Когда кто-то например пишет !khelp выдает, потом /k пишется автоматически без клавиш, от моего лица, доступные команды, потом другой человек/или тот же, пишет !fflood например, и флудит, то что я настроил по данной команде.
Буду благодарен.

Ну думаю по коду всё понятно. Если скрипт увидит в чате !help , то делает одно. Если !ewechototo , то что-то ещё.
Если надо сделать, чтобы реагировало конкретно на чат семьи, то добавь нужный цвет (Т.е конкретную форму выдачи сообщения в чат возьми из чат-лога)

C++:

SetTimer, ProstoMetka, On
return

ProstoMetka:
GetChatLine(0, Output)
if (!isDialogOpen() && RegExMatch(Output, "!help"))
{
   SendChat("/k Доступные команды: ...")
}
else (!isDialogOpen() && RegExMatch(Output, "!ewechototo"))
{
   SendChat("/k Ещё что-то.")
}
return

TopMo3 · 20 Фев 2018

AdamRockwell написал(а):
Ну думаю по коду всё понятно. Если скрипт увидит в чате !help , то делает одно. Если !ewechototo , то что-то ещё.
Если надо сделать, чтобы реагировало конкретно на чат семьи, то добавь нужный цвет (Т.е конкретную форму выдачи сообщения в чат возьми из чат-лога)

C++:

SetTimer, ProstoMetka, On return ProstoMetka: GetChatLine(0, Output) if (!isDialogOpen() && RegExMatch(Output, "!help")) { SendChat("/k Доступные команды: ...") } else (!isDialogOpen() && RegExMatch(Output, "!ewechototo")) { SendChat("/k Ещё что-то.") } return

А что делать если скрипт не запускается, нет ошибок, просто не запускается.

#Rin · 20 Фев 2018

Misha Kolashnikov написал(а):
А что делать если скрипт не запускается, нет ошибок, просто не запускается.

#Persistent

Поиск

Поиск

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

#Rin

Известный

Sparkyo

Известный

Kolya_Kortez

Участник

#Rin

Известный

Sparkyo

Известный

Adam_Rockwell

Активный

Adam_Rockwell

Активный

#Rin

Известный

StenMarsh

Новичок

sswsx

Участник

Adam_Rockwell

Активный

TopMo3

Участник

Adam_Rockwell

Активный

TopMo3

Участник

#Rin

Известный

Похожие темы