Форум о ботах Eggdrop/Windrop

[NeiLL]

Вот сам скрипт он очень хорошо меняет режимы:

set chan "#suntar"

bind notc - * process
proc process {args} {
putserv "MODE $::chan +T"
after 180000 {putserv "MODE $::chan -T"}
}

Я еще раз прошу вас чтоб выводило сообщений между режимами, например:

вот скинул нотис:
•(18:14:38)• -Damascus:#hon- 10.162.135.21 -ah /q Damascus
•(18:14:39)• * HoN_BoT меняет режим: +T
•(18:14:39)• <HoN_BoT> ¤ ¤ ¤ Команда НОТИС запрещена на 3 минуты ¤ ¤ ¤

через 3 минуты результат:
•(18:17:39)• * HoN_BoT меняет режим: -T
•(18:17:39)• <HoN_BoT> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤

Спасибо за ранее Вам!!!

[tvrsh]

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

set chan "#suntar"     
bind notc - * process
proc process {args} {
putserv "MODE $::chan +T"
putserv "PRIVMSG $::chan :Команда НОТИС запрещена на 3 минуты"
after 180000 {
    putserv "MODE $::chan -T"
    putserv "PRIVMSG $::chan :Команда НОТИС разрешена"
}
}

Для размещения кода пользуйся подсветкой синтаксиса.
"заранее" пишется слитно.

[NeiLL]

Тут тоже что то не так!!!

•(08:45:04)• * BotNet меняет режим: -T
•(08:45:04)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:04)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:04)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:04)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:04)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:05)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:08)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:10)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:11)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:13)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤
•(08:45:21)• <BotNet> ¤ ¤ ¤ Команда НОТИС разрешена ¤ ¤ ¤

Почему так флудит?

[tvrsh]

Попробуй добавить

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

return 0

после

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

putserv "PRIVMSG $::chan :Команда НОТИС разрешена"

[NeiLL]

вот результат еще

•(14:40:45)• * Приходит: InformBoT (BotNet@88.82.178.32)
•(14:40:46)• * ChanServ меняет режим: +o InformBoT
•(14:40:47)• * InformBoT меняет режим: +T
•(14:40:47)• <InformBoT> Команда НОТИС запрещена на 3 минуты
•(14:40:52)• <InformBoT> Команда НОТИС запрещена на 3 минуты
•(14:40:57)• <InformBoT> Команда НОТИС запрещена на 3 минуты

Добавлено спустя 7 минут 59 секунд:
через 3 минуты:

•(14:43:35)• * InformBoT меняет режим: -T
•(14:43:35)• <InformBoT> Команда НОТИС разрешена
•(14:43:35)• <InformBoT> Команда НОТИС разрешена
•(14:43:35)• <InformBoT> Команда НОТИС разрешена
•(14:43:35)• <InformBoT> Команда НОТИС разрешена
•(14:43:35)• <InformBoT> Команда НОТИС разрешена
•(14:43:37)• <InformBoT> Команда НОТИС разрешена
•(14:43:43)• <InformBoT> Команда НОТИС разрешена
•(14:43:45)• <InformBoT> Команда НОТИС разрешена
•(14:43:46)• <InformBoT> Команда НОТИС разрешена

очень много еще

[tvrsh]

Не знаю почему у тебя эти сообщения сыпятся. В патилайне есть ошибки?
Такой вариант попробуй:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

set blockchan "#suntar"      
set blocktime "180"

bind notc - * block

proc block {nick uhost hand text dest} {
global blocked blockchan blocktime

    if {$dest != $blockchan} {
        return 0
    }

    if {$blocked == "0"} {
        putserv "MODE $blockchan +T"
        putserv "PRIVMSG $blockchan :Команда /NOTICE запрещена на $blocktime секунд."
        set blocked 1
        utimer 180 unblock
        return 0
    }
}


proc unblock {} {
global blocked blockchan blocktime
    putserv "MODE $blockchan -T"
    putserv "PRIVMSG $blockchan :Команда /NOTICE разрешена."
    set blocked 0
    return 0  
}

set blocked 0

[NeiLL]

Вот этот вариант очень хорош!!!!

[ayaal_86]

очень хороший скрипт для одного канал. Есть ли возможность переделать скрипт чтоб работала для более 1-го канала одновременно? и желательно с флагом, например: !set +notice !chanset #канал +notice для работы скрипта на канале

[tvrsh]

Будет работать везде, где стоит флаг +blocknotice.

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

setudef flag blocknotice
set blocktime "180"

bind notc - * block

proc block {nick uhost hand text dest} {
global blocked blocktime

    set blockchan $dest

    if {[string index $blockchan 0] == "#"} {
        if {![channel get $blockchan blocknotice]} {
            return 0
        }
    } else {
        return 0
    }

    if {$blocked == "0"} {
        putserv "MODE $blockchan +T"
        putserv "PRIVMSG $blockchan :Команда /NOTICE запрещена на $blocktime секунд."
        set blocked 1
        utimer 180 unblock $blockchan
        return 0
    }
}


proc unblock {blockchan} {
global blocked blocktime
    putserv "MODE $blockchan -T"
    putserv "PRIVMSG $blockchan :Команда /NOTICE разрешена."
    set blocked 0
    return 0  
}

set blocked 0

[ayaal_86]

Работает не так как надо, вот логи на патти не мог посмотреть:
начал с канала 2

•(00:00:14)• -TopicBot- Для канала #канал2 изменены значения флагов : blocknotice ("-" -> "+")
•(00:00:44)• -> -#канал2- privet vsem
•(00:00:44)• * TopicBot меняет режим: +T
•(00:00:45)• <TopicBot> Команда /NOTICE запрешена на 180 секунда.

далее на 1й канал сразу написал:

•(00:00:08)• <neill> !set +blocknotice
•(00:00:08)• -TopicBot- Для канала #канал1 изменены значения флагов : blocknotice ("-" -> "+")
•(00:01:06)• -> -#канал1- poka vsem

тут не вышло сообшение что " Команда /NOTICE запрешена на 180 секунда.".
и через 3 минуты на 1м канале вышло сообшение " •(00:03:47)• <TopicBot> Команда /NOTICE разрешена." т.е. это вышло с того канала где я написал нотис первым.

[tvrsh]

Надо было передавать канал в процедуру разблокировки напрямую, а не через глобальную переменную. Скрипт в предыдущем посте поправил.

[ayaal_86]

Все равно не пашет. такая же проблема )