скрипт ахк

[bogdanads2018]

Доброго времени суток! Помогите ребята пожалуйста сделать скрипт на AHK, т.к. никак не получается.
Хочу сделать следующее:
У меня запущен SAMP
Когда в чат вылетает строка например: Тестировение 1, Autotkey автоматически пишет в чат определенную команду, например:/sms.
Желательно и я думаю по факту, что это должно считываться с чатлога. Буду очень благодарен, кто поможет написать данный скрипт!

 

[CaJlaT]

Доброго времени суток! Помогите ребята пожалуйста сделать скрипт на AHK, т.к. никак не получается.
Хочу сделать следующее:
У меня запущен SAMP
Когда в чат вылетает строка например: Тестировение 1, Autotkey автоматически пишет в чат определенную команду, например:/sms.
Желательно и я думаю по факту, что это должно считываться с чатлога. Буду очень благодарен, кто поможет написать данный скрипт!

#NoEnv
#SingleInstance force
#Include SAMP.ahk ; Подключение САМП-ЮДФ
#IfWinActive GTA:SA:MP
cl = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ; переменная с путём к чат-логу
SetTimer, ch ,50 ; Каждые 50мс таймер будет выполнсять метку ch (В данном случае это считывание чат-лога)
ch:
{
    FileRead, chatlog, % cl
    if (RegExMatch(chatlog, "Триггер")) ; Вместо слова триггер введи нужный триггер из чата (например как у тебя "Тестирование 1")
    {
        FileDelete, % cl ; ОБЯЗАТЕЛЬНОЕ удаление чатлога
        sendchat("/sms")
        return
    }
}

 

[Adam_Rockwell]

#NoEnv
#SingleInstance force
#Include SAMP.ahk ; Подключение САМП-ЮДФ
#IfWinActive GTA:SA:MP
cl = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ; переменная с путём к чат-логу
SetTimer, ch ,50 ; Каждые 50мс таймер будет выполнсять метку ch (В данном случае это считывание чат-лога)
ch:
{
    FileRead, chatlog, % cl
    if (RegExMatch(chatlog, "Триггер")) ; Вместо слова триггер введи нужный триггер из чата (например как у тебя "Тестирование 1")
    {
        FileDelete, % cl ; ОБЯЗАТЕЛЬНОЕ удаление чатлога
        sendchat("/sms")
        return
    }
}

#NoEnv
#SingleInstance force
#Include SAMP.ahk ; Подключение САМП-ЮДФ
#IfWinActive GTA:SA:MP
cl = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ; переменная с путём к чат-логу
SetTimer, ch ,50 ; Каждые 50мс таймер будет выполнсять метку ch (В данном случае это считывание чат-лога)
ch:
{
    FileRead, chatlog, % cl
    if (RegExMatch(chatlog, "Триггер")) ; Вместо слова триггер введи нужный триггер из чата (например как у тебя "Тестирование 1")
    {
        FileDelete, % cl ; ОБЯЗАТЕЛЬНОЕ удаление чатлога
        sendchat("/sms")
        return
    }
}

Какой ужас, зачем учить молодых бойцов быдлокоду.

Доброго времени суток! Помогите ребята пожалуйста сделать скрипт на AHK, т.к. никак не получается.
Хочу сделать следующее:
У меня запущен SAMP
Когда в чат вылетает строка например: Тестировение 1, Autotkey автоматически пишет в чат определенную команду, например:/sms.
Желательно и я думаю по факту, что это должно считываться с чатлога. Буду очень благодарен, кто поможет написать данный скрипт!

Если тебе нужен ещё нормальный код, отпишешь.

 

[Randewoo]

#NoEnv
#SingleInstance force
#Include SAMP.ahk ; Подключение САМП-ЮДФ
#IfWinActive GTA:SA:MP
cl = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ; переменная с путём к чат-логу
SetTimer, ch ,50 ; Каждые 50мс таймер будет выполнсять метку ch (В данном случае это считывание чат-лога)
ch:
{
    FileRead, chatlog, % cl
    if (RegExMatch(chatlog, "Триггер")) ; Вместо слова триггер введи нужный триггер из чата (например как у тебя "Тестирование 1")
    {
        FileDelete, % cl ; ОБЯЗАТЕЛЬНОЕ удаление чатлога
        sendchat("/sms")
        return
    }
}

Зачем использовать RegExMatch без регулярных выражений? Что ща быдлокод?

 

[Adam_Rockwell]

Зачем использовать RegExMatch без регулярных выражений? Что ща быдлокод?

а т.е тот ужас, который написал помимо этого тебя не смущает?)))
регулярка то тут как раз не помешает, ибо заместо триггера и подразумевается регулярное выражение.

 

[CaJlaT]

Какой ужас, зачем учить молодых бойцов быдлокоду.

Если тебе нужен ещё нормальный код, отпишешь.

Зачем использовать RegExMatch без регулярных выражений? Что ща быдлокод?

Я никогда не отрицаю, что я пишу быдлокод, но я помогаю людям

 

[Randewoo]

а т.е тот ужас, который написал помимо этого тебя не смущает?)))
регулярка то тут как раз не помешает, ибо заместо триггера и подразумевается регулярное выражение.

Про код на метках я уже молчу, нет смысла доказывать что-то кому-то
И да, подразумевается кем, я извиняюсь
Тут нет регулярных выражений, но используется функция для их воспроизведений

 

[Adam_Rockwell]

Я никогда не отрицаю, что я пишу быдлокод, но я помогаю людям

ты не помогаешь людям, ты выращиваешь новую партию таких же быдлокодеров xD
Ибо они будут использовать этот код и считать его адекватным

В чём проблема немного подумать и написать красиво? Например так

#SingleInstance Force
#Persistent
#NoEnv

FileRead, file, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Loop, Parse, file, `n, `r
   chatIndexTemp := A_Index-1
SetTimer, checkEvent, 250
return

checkEvent:
index := 0
FileRead, file, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
loop, Parse, file, `n, `r
{
   index := A_Index
   if (index > chatIndexTemp) and A_LoopField
   {
      chatIndexTemp := index
      string := RegExReplace(A_LoopField, "U)^\[\d{2}:\d{2}:\d{2}\] ")
      gosub parseEvent
   }
}
if (index < chatIndexTemp)
   chatIndexTemp := 0
return

parseEvent:
msgbox % string
return

 

[Randewoo]

ты не помогаешь людям, ты выращиваешь новую партию таких же быдлокодеров xD
Ибо они будут использовать этот код и считать его адекватным

В чём проблема немного подумать и написать красиво? Например так

#SingleInstance Force
#Persistent
#NoEnv

FileRead, file, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Loop, Parse, file, `n, `r
   chatIndexTemp := A_Index-1
SetTimer, checkEvent, 250
return

checkEvent:
index := 0
FileRead, file, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
loop, Parse, file, `n, `r
{
   index := A_Index
   if (index > chatIndexTemp) and A_LoopField
   {
      chatIndexTemp := index
      string := RegExReplace(A_LoopField, "U)^\[\d{2}:\d{2}:\d{2}\] ")
      gosub parseEvent
   }
}
if (index < chatIndexTemp)
   chatIndexTemp := 0
return

parseEvent:
msgbox % string
return

Хтьфу, опять быдлокод

 

[Adam_Rockwell]

Хтьфу, опять быдлокод

В каком месте ты увидел быдлокод то? Как по мне это самый идеальный вариант чтения чат-лога.
Умеешь лучше, так покажи, а не хатьфукай.

 

[Randewoo]

В каком месте ты увидел быдлокод то? Как по мне это самый идеальный вариант чтения чат-лога.
Умеешь лучше, так покажи, а не хатьфукай.

Нахуя объявлять 2 цикла, массивы хуивы, когда код делается в 3 строки.

 

[Adam_Rockwell]

Нахуя объявлять 2 цикла, массивы хуивы, когда код делается в 3 строки.

Первый цикл для определения последней строки в чат-логе, второй для парса чат лога на выход новой строки.
Где ты там массивы увидал остаётся загадкой. Скорее всего ты даже не понял, как оно всё работает.

Жду «супер эффективный» прозрачный код в 3 строки.

 

[Randewoo]

Первый цикл для определения последней строки в чат-логе, второй для парса чат лога на выход новой строки.
Где ты там массивы увидал остаётся загадкой. Скорее всего ты даже не понял, как оно всё работает.

Жду «супер эффективный» прозрачный код в 3 строки.

Ща жди днем скину

 

[Adam_Rockwell]

Ща жди днем скину

Скинь код. Очень хочется раскритиковать его также, как ты высказался по поводу моего) Только критика уже будет по факту, а не высер.

 

[CaJlaT]

Вы вообще понимаете, что человек не заходил на форум с того момента, как написал эту тему?