Someone

# ïğîöåäóğà î÷èñòêè îòâåòîâ îò ìóñîğà ïåğåä ñğàâíåíèåì
proc ::tpub::filter {text} {
	regsub -all {[;:()\[\]!?.,/\\{}]} [tolower $text] "" text;
	return [string trim $text]
}

### ğåàêöèÿ íà ïóáëè÷íûå êîìàíäû
bind pubm - * ::tpub::msg_pub
proc ::tpub::msg_pub {nick uhost hand chan text} { global botnick; variable conf
	# Ïğîâåğÿåì âîçìîæíîñòü èãğû íà ıòîì êàíàëå.
	if {[string range $chan 0 0] == "#" && ![playground exists $chan]} {
		return
	}

	# îãğàíè÷èâàåìñÿ îäíèì êàíàëîì
	if {![playground exists $chan]} {
		return
	}