# ïğîöåäóğà î÷èñòêè îòâåòîâ îò ìóñîğà ïåğåä ñğàâíåíèåì 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 }