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

[tvrsh]

Небольшой скрипт в котором показан пример использования и подстановок переменных.
Ключевым тут является использование команды subst

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

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

        # Указываем тут тексты приветствий в которых используем $nick и $chan.
        # В дальнейшем они будут заменены на ник вошедшего и канал.
        set realmsgs {
            "Hi, how are you?"
            "Hi $nick!"
            "Hello $nick, welcome to $chan"
            "]]] WELCOME to $chan!!!11111 ^^ ^^ [[["
            "Hi [$nick], you have to pay 20$ to enter here"
        }
       
        bind join - * greet
        proc greet {nick host hand chan} {
            set greetmsg [lindex $::realmsgs [rand [llength $::realmsgs]]]
            set greetmsg [subst -nocommands $greetmsg]
            putserv "PRIVMSG $nick :$greetmsg"
        }

(c) http://tclhelp.net/unb/44

[xadmin]

Спасибо. Очень вовремя