Перейти к содержимому


Фотография

uhelp.tcl


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 3

#1 tvrsh

tvrsh

    Активный участник

  • Администратор
  • 389 сообщений
  • Пол:Мужчина
  • Город:Russian Federation, Podolsk
  • Ник в сети:tvrsh
  • Каналы:#egghelp, #3hauka, #bash.org

Отправлено 22 декабря 2007 - 15:06

# Описание:  Структурированный хелп для бота. Идея DNK@IrcNet.ru

Прикрепленные файлы

  • Прикрепленный файл  uhelp1.0.tcl   7,87К   32 Количество загрузок:

http://ircnet.su/
#egghelp @ IrcNet.Ru

#2 dnk

dnk

    Новичок

  • Пользователи
  • 4 сообщений

Отправлено 23 декабря 2007 - 09:28

[12:20:04] <rio> !help LBTorvalds
[12:26] Tcl error [uhelp_msg]: can't read "data": no such variable

[12:34] #DNK# set errorInfo
Currently: invalid timerID
Currently:    while executing
Currently: "killtimer $svs(lock_timers,$what) "

#3 tvrsh

tvrsh

    Активный участник

  • Администратор
  • 389 сообщений
  • Пол:Мужчина
  • Город:Russian Federation, Podolsk
  • Ник в сети:tvrsh
  • Каналы:#egghelp, #3hauka, #bash.org

Отправлено 23 декабря 2007 - 11:15

Не знаю с чем это связано, та ошибка, которую вы показали при .set errorInfo с этим скриптом не связана. это ошибка services.tcl
Попробуйте этот скрипт, я потестил его насколько мог и никаких ошибок не наблюдалось.

Прикрепленные файлы

  • Прикрепленный файл  uhelp1.0.tcl   7,96К   1 Количество загрузок:

http://ircnet.su/
#egghelp @ IrcNet.Ru

#4 tvrsh

tvrsh

    Активный участник

  • Администратор
  • 389 сообщений
  • Пол:Мужчина
  • Город:Russian Federation, Podolsk
  • Ник в сети:tvrsh
  • Каналы:#egghelp, #3hauka, #bash.org

Отправлено 23 декабря 2007 - 11:31

Выяснилось, что ошибка возникает когда в ключевом слове присутствуют буквы в верхнем регистре. Чтобы исправить ее надо в процедуре uhelp_proc заменить
        if {[string tolower [lindex $text 0]] == [lindex [split $trig " "] 0]} {
на
        if {[string tolower [lindex $text 0]] == [string tolower [lindex [split $trig " "] 0]]} {
Исправленный скрипт приложен к этому сообщению.

Прикрепленные файлы

  • Прикрепленный файл  uhelp1.0.tcl   7,99К   27 Количество загрузок:

http://ircnet.su/
#egghelp @ IrcNet.Ru




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных