tkchat bot

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 https://wiki.tcl-lang.org/16656"
 
     set nick_seen($nick) $timestamp
 }

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

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

Category Uncategorized