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

[anaesthesia]

тест

[Adium]

тест пройден

[tvrsh]

Еще нет!

[tvrsh]

йцукен

[Kein]

Нет квикответа.
Userinfo field с правой стороны.
Унылая визуальная тема.

УжасЪ.

[tvrsh]

Все в процессе.
Шаблон будет изменен как только будут установлены все необходимые моды.
Сейчас занимаюсь добавления вики ббкода чтобы в скриптах делать ссылки на команды из http://wiki.egghelp.ru/
После этого добавлю быстрый ответ.
С изменением положения с правого на левое до этого возникли некоторые проблемы, отложу на попозже.

[tvrsh]

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

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

bind msgm - * prc
 proc prc {n u h t} {
  if {[string first "!" "$t"] != 0} {
   utimer [rand 10] [list putserv "PRIVMSG $n :[lindex {{чо?} {датычо!} {ну ты дятел.. }} [rand 3]]"]
  }
}

Теперь вроде работает раскраска кода.
Еще добавлен быстрый ответ.

111

[tvrsh]

А вот так в идеале должен выглядеть код, но что-то ссылки в вику и раскраска не пашут вместе.
Сработали только последние линдекс и ранд.

bind msgm - * prc
proc prc {nick uhost hand text} {
if {[string first "!" "$t"] != 0} {
utimer [rand 10] [list putserv "PRIVMSG $nick :[lindex {{чо?} {датычо!} {ну ты дятел.. }} [rand 3]]"]
}
}

[tvrsh]

Добавил дополнительное поле с версией бота в профили пользователей. Убрал выделение жирным в подсветке кода, вроде стало покрасивше.

[tvrsh]

Новая подсветка синтаксиса:

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

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

proc existstitle {query} {
    set file [open file.txt r]
    set data [read $file]
    close $file
        foreach line [split $data \n] {
            if {![string match -nocase "*$query*" "*$line*"]} {
                continue
             }
             if {[string match -nocase "*$query*" "*$line*"]} {
                 catch {unset data}
                 return 1
             }
        }
    catch {unset data}
    return 0
}
 

[tvrsh]

Re: test
topic2.html