Version 1 of tkchat bot

Updated 2006-12-22 14:58:46

Jos Decoster 22-dec-2006

To automatically redirect Eggdrop questions from #tcl to #eggtcl, I added this proc to tkchat:

 proc ::tkchat::Bot { nick msg msgtype mark timestamp } {

     variable nick_seen

     if { ![string equal $msgtype NORMAL] } {
          return
     }

     if { [info exists nick_seen($nick)] &&
          [expr {$timestamp - $nick_seen($nick)}] < 3600 } {
         return
     }

     if { ![string match -nocase "*eggdrop*" $msg] } {
         return
     }

     tkjabber::msgSend "$nick, for more information about eggdrop, also take a look at \#eggtcl or http://mini.net/tcl/16656"

     set nick_seen($nick) $timestamp
 }

and called it from ::tkchat::addMessage like this:

 tkchat::Bot $nick $msg $msgtype $mark $timestamp