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

test

СообщениеДобавлено: 19 авг 2008 19:17
anaesthesia
тест

Re: test

СообщениеДобавлено: 20 авг 2008 17:31
Adium
тест пройден

Re: test

СообщениеДобавлено: 31 авг 2008 17:08
tvrsh
Еще нет!

Re: test

СообщениеДобавлено: 23 мар 2009 12:36
tvrsh
йцукен

Re: test

СообщениеДобавлено: 23 мар 2009 16:05
Kein
Нет квикответа.
Userinfo field с правой стороны.
Унылая визуальная тема.

УжасЪ.

Re: test

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

Re: test

СообщениеДобавлено: 04 апр 2009 18:34
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

Re: test

СообщениеДобавлено: 04 апр 2009 20:29
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]]"]
}
}

Re: test

СообщениеДобавлено: 11 май 2009 22:21
tvrsh
Добавил дополнительное поле с версией бота в профили пользователей. Убрал выделение жирным в подсветке кода, вроде стало покрасивше.

Re: test

СообщениеДобавлено: 29 янв 2010 00:55
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
}
 

Re: test

СообщениеДобавлено: 08 дек 2010 16:22
tvrsh