namespace eval template2 {

setudef flag no[namespace tail [namespace current]]

variable timer 10
variable pbind 1
variable clock 0

foreach bind {тест} {bind pub - $::gprefix(1)$bind [namespace current]::pub; if {$pbind} {bind msg - $::gprefix(1)$bind [namespace current]::msg}}

proc msg {nick host hand text} {pub $nick $host $hand $nick $text; return}

proc pub {nick host hand chan text} {
variable timer; variable clock
if {$chan != $nick && [channel get $chan no[namespace tail [namespace current]]]} {return} else {set lastbind $::lastbind}

if {[expr [clock seconds]-$clock] < $timer} {putserv "[expr {$nick == $chan ? "PRIVMSG":"NOTICE"}] $nick :Команда недавно запрашивалась. Повтори попытку через [expr $timer-([clock seconds]-$clock)] сек."; return}; set clock [clock seconds]
set users [chanlist $chan]
foreach "*Митхун_Чакраборт*" [chanlist $chan] {
set test [lreplace $users [lsearch $users "*Митхун_Чакраборт*"] [lsearch $users "*Митхун_Чакраборт*"] "Митхун_Чакраборти"]
set files [open data/myfile.txt w+]
puts $files $test
close $files
}