AHK Помощь с АНК.

Тема в разделе "Другое", создана пользователем Portal oJ, 10 дек 2016.

  1. Portal oJ

    Portal oJ Новичок

    Регистрация:
    03.10.16
    Сообщения:
    4
    Лайки:
    0
    Репутация:
    0
    Здравствуйте, нужна помощь.
    На днях пытался снубировать скрипт для бота-рекламщика в /ad.
    Объясню суть:
    - Нужно, что бы при активации 1-2 команд был бесконечный цикл объявлений на Advance RP.
    ну, типо, пишешь команду - оно кидает /ad и скринит, далее ахк читает чат и если ловит "Отправил Nick_Name" - оно ещё раз кидает и скринит, и так нужно до бесконечности.

    Что то типо такого, только проблема - /checkad не ловит ник и кидает объявы до бесконечности.

    Код (Text):
    #Include SAMP.ahk
    :?:/piar::
    addMessageToChatWindow("{FFFFFF}Автоматический пиар для Advance RP: {04B431}Активирован.")
    addMessageToChatWindow("{FFFFFF}Для паузы скрипта, нажмите кнопку END, для закрытия - Del.")
    sendChatMessage("/ad LC | В „СТО ЖДСФ“ завезли качественную зимнюю резину. GPS 8>17")
    Sleep 500
    sendChatMessage("/c 60")
    Send {F8}
    return
    :?:/checkad::
    fileread, txt, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    SelectedFile = %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    Piar:
    Loop, Read, %SelectedFile%
    {
        IfInString, A_LoopReadLine, Lucas_Caparelli
    {
        Goto, rekl
    }
    }
    goto, Piar
    rekl:
    filedelete, %SelectedFile%
    fileappend, %SelectedFile%
    sendChatMessage("/ad LC | В „СТО ЖДСФ“ завезли качественную зимнюю резину. GPS 8>17")
    Sleep 500
    sendChatMessage("/c 60")
    Sleep 500
    Send {F8}
    goto Piar
     
    #1
  2. Brakeoff

    Brakeoff Новичок

    Регистрация:
    17.12.16
    Сообщения:
    1
    Лайки:
    1
    Репутация:
    0
    Опробовал разок на реде, вроде работает.

    Код (Text):
    #Include SAMP.ahk
    :?:/piar::
    addMessageToChatWindow("{FFFFFF}Автоматический пиар для Advance RP: {04B431}Активирован.")
    addMessageToChatWindow("{FFFFFF}Для паузы скрипта, нажмите кнопку END, для закрытия - Del.")
    filedelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    sendChatMessage("/ad В „СТО ЖДСФ“ завезли качественную зимнюю резину. GPS 8-33")
    Sleep 500
    sendChatMessage("/c 60")
    Sleep 500
    Send {F8}
    loop
    {
    fileread, chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    IfInString, chatlog, Отправил Brian_Patterson
    {
    filedelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
    sendChatMessage("/ad В „СТО ЖДСФ“ завезли качественную зимнюю резину. GPS 8>17")
    Sleep 500
    sendChatMessage("/c 60")
    Sleep 500
    Send {F8}
    }
    }

    END:: Pause

    Delete:: Exitapp
     
    #2
    Последнее редактирование: 17 дек 2016
    Portal oJ нравится это.