Posted to tcl by mjanssen at Wed Jan 12 19:22:40 GMT 2011view pretty
proc hello {chan nick} {
putquick "PRIVMSG $chan :hallo $nick"
}
bind join - * jmsg
proc jmsg {nick host hand chan text} {
after 60000 [list hello $chan $nick]
}
proc hello {chan nick} {
putquick "PRIVMSG $chan :hallo $nick"
}
bind join - * jmsg
proc jmsg {nick host hand chan text} {
after 60000 [list hello $chan $nick]
}