## BINDS ## bind notc |o * notc:log ## CONFIGS ## set canal "#World" set arquivo $logs/$botnick/$canal.onotice.log1 ## PROCS ## proc notc:log {n u h a d} { set msg [lrange $a 0 end] logon [strftime "%H:%M"] $n $msg } proc logon {t n m} { global botnick arquivo set tmp [open $arquivo a+] puts $tmp "\[$t\] <$n> $m" close $tmp }