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

[DmitRex]

Название: linkchan.tcl
Автор: DmitRex
Версия: 1.1
Описание: Простой скрипт линковки каналов в одной сети без всяких Botnet'ов и т.д.
Поддержка Suzi: Да
Команды: нету

Пример работы:

# Канал номер 1:
[18:35:18] <DiM> всё видит )
[18:35:26] <DmitRex> конечно.
[18:35:43] <DiM> он может логировать в файл?
[18:36:14] <DmitRex> нет, но зачем это?
[18:36:19] <DiM> !kick weber
[18:36:19] weber [egg@intellect] кикнут на #dreamterra by bober [Zverrr@dreamterra.Simvol]: Requested
[18:36:20] weber [egg@intellect] зашел на #dreamterra
[18:36:21] <dreamterra> weber: уровень - 4 (215 слов), ранг - Пионер.

# Канал номер 2:
18:35:19] <BitxPatch> <DiM@#dreamterra> всё видит )
[18:35:26] <BitxPatch> <DmitRex@#dreamterra> конечно.
[18:35:44] <BitxPatch> <DiM@#dreamterra> он может логировать в файл?
[18:36:15] <BitxPatch> <DmitRex@#dreamterra> нет, но зачем это?
[18:36:19] <BitxPatch> <DiM@#dreamterra> !kick weber
[18:36:19] <BitxPatch> * weber кикнут на #dreamterra by bober (Requested)
[18:36:21] <BitxPatch> * weber зашел на #dreamterra
[18:36:21] <BitxPatch> <dreamterra@#dreamterra> weber: уровень - 4 (215 слов), ранг - Пионер.

И тоже самое наоборот.

Добавлено спустя 19 минут 29 секунд:
Только не знаю как сделат выходы из IRC.
Думал, что есть тип события quit и создать что-о похожее на bind quit .

[Vertigo]

смотри в сторону bind sign

ну и мимо темы - зачем скрипты в архивы кладешь? у них не такой огромный вес, чтоб их архивировать. особенно когда всего один файл.

[tvrsh]

Зачем одинаковые процедуры

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

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

proc linkmsg {nick uhost hand chan text} {
   global chan1 chan2
   if { [string match $chan1 $chan] } {
       putserv "PRIVMSG $chan2 :<$nick@$chan1> $text"
   }
}

proc linkmsg1 {nick host hand chan text} {
   global chan1 chan2
   if { [string match $chan2 $chan] } {
       putserv "PRIVMSG $chan1 :<$nick@$chan2> $text"
   }
}
 

если можно

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

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

proc linkmsg {nick uhost hand chan text} {
   global chan1 chan2
   if {[string match $chan1 $chan]} {
       putserv "PRIVMSG $chan2 :<$nick@$chan1> $text"
   } elseif {[string match $chan2 $chan]} {
       putserv "PRIVMSG $chan1 :<$nick@$chan2> $text"
   }
}

Добавлено спустя 2 минуты 20 секунд:
И ты там вставляешь квадратики из мирки что ли? Это очень дурной тон. Используй контрольные коды тикля.

[Spoofing]

Добавлено спустя 2 минуты 20 секунд:
И ты там вставляешь квадратики из мирки что ли? Это очень дурной тон. Используй контрольные коды тикля.

расскажите? интересно почему)..
отбросив красоту/читабельность кода. просто я еще не встречал текстовых редакторов, которые бы просто удаляли аски символы меньше 32, и не знаю почему вы говорите, что это плохо. т.е. с технической стороны не вижу проблем.

в редакторе скриптов мирка все поголовно пишут именно аски символы, а не используют $chr(3) $+ 04текст $+ $chr(03) (как аналог в тикле \00304текст\003), но там это удобно т.к. клавиши ctrl + <контрольный код> остаются рабочими. я думаю, если бы у eggdrop/tcl кодеров была бы возможность также легко печатать контрольные коды мирка используя комбинации клавиш, вы бы это делали

[tvrsh]

Потому что это TCL а не mIRC.
Потому что при просмотре кода не понятно что это за квадрат.
Потому что неудобно при написании скрипта вместо \003 лезть в мирку и копировать оттуда квадрат.

[Sparkle]

Очень хороший скрипт. но у меня он не работает почему-то...

Tcl error [linktopic]: extra characters after close-quote

[tvrsh]

Очень хороший скрипт. но у меня он не работает почему-то...

Tcl error [linktopic]: extra characters after close-quote

Прочитай внимательно Правила оформления топиков. Особенно второй пункт.
Пока от показа твоей ошибки мало толку, так как не понятно, где именно не хватает кавычек.

Добавлено спустя 4 минуты 10 секунд:
Скорее всего ошибка в строке

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

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

       putserv "PRIVMSG $chan2 : * $nick  изменил тему на "$topic""

Надо экранировать кавычки, обрамляющие топик канала:

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

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

       putserv "PRIVMSG $chan2 : * $nick  изменил тему на \"$topic\""

Так как первая кавычка топика воспринимается как кавычка окончания строки вывода.

[Sparkle]

Сделала так же в

putserv "PRIVMSG $chan1 : * $nick изменил тему на \"$topic\""

Теперь в патилайне нет ошибок, но бот все ровно не кикает с канала по команде !kick nick