Страница 1 из 1

Пару примеров.

СообщениеДобавлено: 01 окт 2010 01:08
ssd
Доброй ночи уважаемые. Может быть я ошибся темой, но все же напишу, так что не ругайте. :)
Не могли бы вы показать пару примеров.
1. как сделать с помощью скрипт что бы бот при выходи с указанного канала заходил на другой канал который можно указать?
2. Как сделать с помощью скрипта что бы бот заходил на канал который указан в скрипте при подключение к серверу?
Буду вам очень благодарен!

Re: Пару примеров.

СообщениеДобавлено: 01 окт 2010 19:26
tvrsh
1.
TCL: [ Скачать ] [ Скрыть ]
# Биндим команду удаления канала.
bind pub n|n !delchan delchan

# Начинаем процедуру.
proc delchan {nick uhost hand chan text} {

# Если выходим с этого ...
set ch1 "#egghelp"
# ... то заходим сюда.
set ch2 "#eggdrop"

# Если успользовать команду без параметров то удалим текущий канал.
if {$text == "" } {
    set channel $chan
} else {
    set channel $text
}

# Проверяем существует ли указанный канал в ченфайле бота.
if {![validchan channel] } {
    putserv "PRIVMSG $chan :Канала $channel нет в моем ченфайле."
    return 0
}

# Удаляем канал и сообщаем об этом юзеру.
channel remove $chan
putserv "PRIVMSG $chan :Канал $channel удален из ченфайла."

# При удалении первого указанного добавляем второй.
if {$channel == $ch1} {
    channel add $ch2
    putserv "PRIVMSG $chan :... и добавлен канал $ch2."
    return 0
}

# Конец.
}
Не тестировал. По идее все должно работать.

2.
channel add #chan
Вот и весь скрипт. Зачем он нужен если можно просто добавить канал боту через патилайн .+chan и все, бот будет туда заходить при каждом коннекте.

Re: Пару примеров.

СообщениеДобавлено: 03 окт 2010 23:41
ssd
Спасибо tvrsh.