Something

## BINDS ##

bind notc -|- * notc:log

## CONFIGS ##

set arquivo "logs/$botnick/"

## PROCS ##

proc notc:log {n u h a d} {
        global botnick arquivo
        set arquivo $arquivo/@#$d.log.[strftime "%d-%m-%y"]
        set msg [lrange $a 0 end]
        set tmp [open $arquivo a+]
        puts $tmp "[strftime "%HH:MM"] <$n> $msg"
        close $tmp
}

putlog "\[h\] onoticelog.tcl carregada com sucesso"