Code:

#Start Of nickproc epub_nick {nick host handle chan testes} {global botnick cmdchar owner keepnick keep-nick personset person [lindex $testes 0]if {[matchattr $handle n] && ([string match -nocase "*$handle*" "$owner"])} {if {$person == ""} {putserv "NOTICE $nick :Usage: ${cmdchar}nick <new nick>." -nextreturn 0 }unbind pub - ${botnick} epub_commandcatch {unbind pub - ${botnick} epub_command}if {${keep-nick} != "0"} {keepnick 0 }utimer 3 { putserv "NICK :$person" } return 1 }}#End Of nick#Keepnick Procproc keepnick { keeparg } {global configif {[info exists keeparg]} {set fp [open $config r]set lines [split [read $fp] \n]close $fpset idx [lsearch -glob $lines "set keep-nick *"]set newline [list set keep-nick $keeparg]if {$idx != -1} {  set lines [lreplace $lines $idx $idx $newline]} else {  lappend lines $newline}set fp [open $config w]puts -nonewline $fp [join $lines \n]close $fp }rehash }#End proc