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

[Warklot123]

[QUOTE = "_ Senya_, post: 394999, member: 102899"]
You want to mute was given by id?
[/ QUOTE]

i will explain what this script all about like this" i go fish and after i catch a fish server sends this message [18:25:13] Pagavai þuvá, tai {37DB45}Raudë 310 g.! Pasiþiûrëk pagautas þuvis /laimikis to chatlog and if i get this message i mean if in chatlog i find word "laimikis" it goes fish again with command /zvejoti"

 

[CaJlaT]

[18:25:13] Pagavai þuvá, tai {37DB45}Raudë 310 g.! Pasiþiûrëk pagautas þuvis /laimikis

If I understood correctly...

#IfWinActive GTA: SA: MP
#NoEnv
#SingleInstance, force
#include SAMP.ahk
#UseHook

SetTimer, Update, 50


ChatLog = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt

Update:
lastline := GetNewLine(ChatLog)
if(RegExMatch(lastline, "laimikis", var))
{
    SendChat("/zvejoti")
}
return


GetNewLine(filename)
{
static old
static new
if !old
    {
        FileGetSize, old, %filename%
        new := old
    }
while old = new
    {
        sleep 100 ;Delay
        FileGetSize, new, %filename%
    }
old := new
Loop, read, %filename%
if A_LoopReadLine
    {
        last := A_LoopReadLine
    }
return last
}

!end::ExitApp ;alt+end = exit
end::Reload ;end = reload

 

[Warklot123]

tried like you with script on didnt work like what?: D my chatlog is in C:\Users\donce\OneDrive\Dokumentai\GTA San Andreas User Files\SAMP maybe thats why or no?

 

[CaJlaT]

Посмотреть вложение 39085
tried like you with script on didnt work like what?: D my chatlog is in C:\Users\donce\OneDrive\Dokumentai\GTA San Andreas User Files\SAMP maybe thats why or no?

drop SAMP.ahk to folder with your script and modify AutoHotKey in ansi

 

[Warklot123]

oh it fixed holy shit you are god:D

 

[NOOBPAndA]

#IfWinActive GTA:SA:MP
#NoEnv
#SingleInstance, force
#include SAMP.ahk


cl = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt

while(true)
{
    FileRead, clog, % cl
    if (RegExMatch(clog, "bitch"))
    {
        FileDelete, % cl
        SendChat("/mute")
    }
Return
}

Объяснишь как это работает?
Explain how it works?

 

[CaJlaT]

Объяснишь как это работает?
Explain how it works?

Скрин битый, перезалей

 

[NOOBPAndA]

Скрин битый, перезалей

Не, я про твой код

cl = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt

while(true)
{
    FileRead, clog, % cl
    if (RegExMatch(clog, "bitch"))
    {
        FileDelete, % cl
        SendChat("/mute")
    }
Return
}

 

[CaJlaT]

Не, я про твой код

cl = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt

while(true)
{
    FileRead, clog, % cl
    if (RegExMatch(clog, "bitch"))
    {
        FileDelete, % cl
        SendChat("/mute")
    }
Return
}

cl = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ;Путь до чат лога

while(true);вечный цикл
{
    FileRead, clog, % cl ;цикл постоянно читает чатлог
    if (RegExMatch(clog, "bitch"));если скрипт найдёт в какой-то строке слово bitch, то дальше идёт действие в скобках ниже, а именно УДАЛИТСЯ чатолог, чтобы не срабатывало повторно и отправляется в чат "/mute"
    {
        FileDelete, % cl
        SendChat("/mute")
    }
Return
}

P.s: писал с телефона, если что пардон

 

[NOOBPAndA]

cl = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt ;Путь до чат лога

while(true);вечный цикл
{
    FileRead, clog, % cl ;цикл постоянно читает чатлог
    if (RegExMatch(clog, "bitch"));если скрипт найдёт в какой-то строке слово bitch, то дальше идёт действие в скобках ниже, а именно УДАЛИТСЯ чатолог, чтобы не срабатывало повторно и отправляется в чат "/mute"
    {
        FileDelete, % cl
        SendChat("/mute")
    }
Return
}

P.s: писал с телефона, если что пардон

Благодарочка

 

[клешь рояль]

взял основу от сюда https://blast.hk/threads/31713/
и чуть переделал под майн, но не работает. Должен показывать msg box но нечего не происходит.

#SingleInstance force

#Persistent

#UseHook



SetTimer, Update, 50





ChatLog = C:\Users\Ivan\AppData\Roaming\.vimeworld\minigames\logs\latest.txt



Update:

lastline := GetNewLine(ChatLog)

if(RegExMatch(lastline, "\[([0-9]*):([0-9]*):[0-9]*\] \[Client thread\/INFO\]: \[CHAT\] Королевский зомби был повержен!.*", var))

{

    hour := var1

    minute := var2

    

    minute += 20

    if(minute > 59)

    {

        hour++

        minute := minute-60

        hour := format("{:02d}", hour)

        minute := format("{:02d}", minute)

    }

    msgbox, Founded time in chatlog: %var1%:%var2%`nNew time: %hour%:%minute%

}

return





GetNewLine(filename)

{

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

}



!end::ExitApp

end::Reload

 

[CaJlaT]

взял основу от сюда https://blast.hk/threads/31713/
и чуть переделал под майн, но не работает. Должен показывать msg box но нечего не происходит.

#SingleInstance force

#Persistent

#UseHook



SetTimer, Update, 50





ChatLog = C:\Users\Ivan\AppData\Roaming\.vimeworld\minigames\logs\latest.txt



Update:

lastline := GetNewLine(ChatLog)

if(RegExMatch(lastline, "\[([0-9]*):([0-9]*):[0-9]*\] \[Client thread\/INFO\]: \[CHAT\] Королевский зомби был повержен!.*", var))

{

    hour := var1

    minute := var2

   

    minute += 20

    if(minute > 59)

    {

        hour++

        minute := minute-60

        hour := format("{:02d}", hour)

        minute := format("{:02d}", minute)

    }

    msgbox, Founded time in chatlog: %var1%:%var2%`nNew time: %hour%:%minute%

}

return





GetNewLine(filename)

{

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

}



!end::ExitApp

end::Reload

я с майна пытался чатлог читать, но скрипт не работал... Мб помогут, но не я

 

[Enrico23235]

Не работает, можете подсказать в чем проблема?
$~Enter::
{
if (isInChat() && !isDialogOpen()) {

sleep 200
dwAddress := dwSAMP + 0x12D8F8
chat := readString(hGTA, dwAddress, 256)
return

if chat contains /gg
{
sendchat("test")
return
}
}
return
}

 

[meowprd]

Не работает, можете подсказать в чем проблема?
$~Enter::
{
if (isInChat() && !isDialogOpen()) {

sleep 200
dwAddress := dwSAMP + 0x12D8F8
chat := readString(hGTA, dwAddress, 256)
return

if chat contains /gg
{
sendchat("test")
return
}
}
return
}

Оформи код правильно, ну и не парься так.
Ответ на подобный вопрос давал тут:

Помогите с активацией через команду

Почему не работает? #Include samp.ahk #IfWinActive GTA:SA:MP #NoEnv #UseHook #SingleInstance, force $~NumpadEnter:: $~Enter:: if (!isInChat()) || (isDialogOpen() && (getDialogStyle() == 1 || getDialogStyle() == 3)) Return sleep 200 dwAddress := dwSAMP + 0x12D8F8 tempText := readString(hGTA...

blast.hk

 

[Antonidze]

Как сделать такой текст?