автоответчик

[WarGko]

Помогите сделать автоответ на эту шнягу с чатлога или еще откуда-то
c чат лога [00:58:02] Администратор Admin ответил вам:{FFFFFF} Вы тут? ответ в /b

 

[JEEMBО]

Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
Loop, read, %Filename%
nstroki=%A_Index%
start:
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, Администратор
{
if (InStr(stroka, "ответил Вам:"))
{
RegExMatch(stroka, ".*\[(.*)\]:", idigroka)
SendInput {F6}/pm %idigroka1% Автоответчик: AFK без ESC, буду позже.{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return

Вот пример
и вот еще

name2:
File = %A_MyDocuments%\Gta San Andreas User Files/SAMP/chatlog.txt ;
FileDelete, %file% ;
FileAppend, %file% ;
!vk4E:: ; Активация (Alt+N)
SendInput, {F6}/do Включен GPS.{Enter}
name1:
FileRead, read, %file% ;
if read contains Вы тут? ;
{
SendMessage, 0x50,, 0x4090409,, A ;
    Sleep,3000
    SendInput, {F6}/b Шо надо?{Enter}
    Sleep 400 ;
FileDelete, %file% ;
FileAppend, %file% ;
}
goto name1  ;
return  ;
NumPad9::goto name2  ;

 

[astap_]

ахк в очко

{$CLEO}
0000:
thread 'astap'

while not SAMP.Available()
    wait 228
end
0B34: "aans" label @act

while true
wait 0
    if
    31@ == 1
    then
    alloc 0@ 128
    0B75: samp get_chat_string 99 text_to 0@ prefix_to 0 color_to 0 prefix_color_to 0
        if 0C29: 1@ = string1 0@ string2 "вы тут?"
        then
        wait 1500 // задержка после того как условие сработало
        say "нет"
        wait 150 // задержка, чтобы не было флуда, зависит от пинга.
        free 0@
        end
    end
end

:act
    if 31@ == 0
        then
        31@ = 1
        print "activated" 1500
    
        else
        31@ = 0
        print "deactivated" 1500
    end
cmdret

 

[™ ChipFamily]

{$CLEO}
0000:
thread 'astap'

while not SAMP.Available()
    wait 228
end
0B34: "aans" label @act

while true
wait 0
    if
    31@ == 1
    then
    alloc 0@ 128
    0B75: samp get_chat_string 99 text_to 0@ prefix_to 0 color_to 0 prefix_color_to 0
        if 0C29: 1@ = string1 0@ string2 "вы тут?"
        then say "нет"
        free 0@
        end
    end
end

:act
    if 31@ == 0
        then
        31@ = 1
        print "activated" 1500
      
        else
        31@ = 0
        print "deactivated" 1500  
    end
cmdret

"aans" - это активация скрипта?

 

[astap_]

"aans" - это активация скрипта?

да, команда

 

[WarGko]

попробую

 

[D3.Pheonix]

ахк в очко

{$CLEO}
0000:
thread 'astap'

while not SAMP.Available()
    wait 228
end
0B34: "aans" label @act

while true
wait 0
    if
    31@ == 1
    then
    alloc 0@ 128
    0B75: samp get_chat_string 99 text_to 0@ prefix_to 0 color_to 0 prefix_color_to 0
        if 0C29: 1@ = string1 0@ string2 "вы тут?"
        then
        wait 1500 // задержка после того как условие сработало
        say "нет"
        wait 150 // задержка, чтобы не было флуда, зависит от пинга.
        free 0@
        end
    end
end

:act
    if 31@ == 0
        then
        31@ = 1
        print "activated" 1500
   
        else
        31@ = 0
        print "deactivated" 1500
    end
cmdret

Добавь на цвет проверку, для верности

 

[#saniwe]

Смысл от "Вы тут". Они по разному могут написать. Просто надо, чтобы он читал "Администратор xzxz ответил вам:"

 

[WarGko]

ахк в очко

{$CLEO}
0000:
thread 'astap'

while not SAMP.Available()
    wait 228
end
0B34: "aans" label @act

while true
wait 0
    if
    31@ == 1
    then
    alloc 0@ 128
    0B75: samp get_chat_string 99 text_to 0@ prefix_to 0 color_to 0 prefix_color_to 0
        if 0C29: 1@ = string1 0@ string2 "вы тут?"
        then
        wait 1500 // задержка после того как условие сработало
        say "нет"
        wait 150 // задержка, чтобы не было флуда, зависит от пинга.
        free 0@
        end
    end
end

:act
    if 31@ == 0
        then
        31@ = 1
        print "activated" 1500
   
        else
        31@ = 0
        print "deactivated" 1500
    end
cmdret

Только что проверил - не работает

 

[#saniwe]

Только что проверил - не работает

он читает чат, если увидит "вы тут" - ответит /b Да. Дальше как тебе надо, изменишь.

file = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileDelete, %file%
FileAppend, ,%file%
num = 0
lpp:
Loop
{
FileRead, read, %file%
sleep, 50
IfInString, read, вы тут?
{
sleep, 2000
SendInput, {F6}/b Да{enter}
FileDelete, %file%
FileAppend, ,%file%
}
num ++
sleep, 10
if num = 500
goto, clear
}
return
clear:
FileDelete, %file%
FileAppend, , %file%
goto, lpp

 

[WarGko]

он читает чат, если увидит "вы тут" - ответит /b Да. Дальше как тебе надо, изменишь.

file = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
FileDelete, %file%
FileAppend, ,%file%
num = 0
lpp:
Loop
{
FileRead, read, %file%
sleep, 50
IfInString, read, вы тут?
{
sleep, 2000
SendInput, {F6}/b Да{enter}
FileDelete, %file%
FileAppend, ,%file%
}
num ++
sleep, 10
if num = 500
goto, clear
}
return
clear:
FileDelete, %file%
FileAppend, , %file%
goto, lpp

Какая активация? И прочитает ли он если он напишет "Вы тут?" с большой буквы?

 

[#saniwe]

Какая активация? И прочитает ли он если он напишет "Вы тут?" с большой буквы?

с какой буквы итд ты сам можешь написать. Активация: автоматическая, как запускаешь ахк

 

[The Spark]

ахк в очко

{$CLEO}
0000:
thread 'astap'

while not SAMP.Available()
    wait 228
end
0B34: "aans" label @act

while true
wait 0
    if
    31@ == 1
    then
    alloc 0@ 128
    0B75: samp get_chat_string 99 text_to 0@ prefix_to 0 color_to 0 prefix_color_to 0
        if 0C29: 1@ = string1 0@ string2 "вы тут?"
        then
        wait 1500 // задержка после того как условие сработало
        say "нет"
        wait 150 // задержка, чтобы не было флуда, зависит от пинга.
        free 0@
        end
    end
end

:act
    if 31@ == 0
        then
        31@ = 1
        print "activated" 1500
   
        else
        31@ = 0
        print "deactivated" 1500
    end
cmdret

Через жопу, не работает!

 

[astap_]

Через жопу, не работает!

всё тут работает, не обманывай

 

[WarGko]

всё тут работает, не обманывай

не, у меня тоже не пашет, проверял