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

Статус
В этой теме нельзя размещать новые ответы.

WarGko

Известный
Автор темы
276
96
16940

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

JEEMBО

Известный
Друг
1,241
579
Код:
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_

Известный
Всефорумный модератор
625
593
ахк в очко
CLEO:
{$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
 
Последнее редактирование:
  • Нравится
Реакции: Lord

™ ChipFamily

По ту сторону надежды.
5,144
1,980
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
CLEO:
{$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" - это активация скрипта?
 

D3.Pheonix

🎹
Модератор
2,813
1,592
ахк в очко
CLEO:
{$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

#saniwe

глаза пофикси
218
107
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Смысл от "Вы тут". Они по разному могут написать. Просто надо, чтобы он читал "Администратор xzxz ответил вам:"
 
  • Нравится
Реакции: sаnеk

WarGko

Известный
Автор темы
276
96
ахк в очко
CLEO:
{$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

глаза пофикси
218
107
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Только что проверил - не работает
он читает чат, если увидит "вы тут" - ответит /b Да. Дальше как тебе надо, изменишь.

Lua:
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

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

Lua:
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

глаза пофикси
218
107
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Какая активация? И прочитает ли он если он напишет "Вы тут?" с большой буквы?
с какой буквы итд ты сам можешь написать. Активация: автоматическая, как запускаешь ахк
 

The Spark

Известный
654
666
ахк в очко
CLEO:
{$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
Через жопу, не работает!
 
Статус
В этой теме нельзя размещать новые ответы.