bind filt - "\001ACTION *\001" filt_act
proc filt_act {idx text} {
  regsub -all {\"|\}|\{|\]|\[|\\} $text "" text
  return ".me [string trim [lrange $text 1 end] \001]"
}

bind filt - "/me *" filt_telnet_act
proc filt_telnet_act {idx text} {
  return ".me [lrange $text 1 end]"
}

bind filt - "\001SOUND *\001" filt_sound
proc filt_sound {idx text} {
  if ![string match *pageaide.wav* $text] {
    foreach person [dcclist] {
      if {([lindex $person 3] == "CHAT")&&([getchan [lindex $person 0]] == [getchan $idx])&&([lindex $person 0] != $idx)} {
        putdcc [lindex $person 0] "\001SOUND [string range $text 7 [expr [string length $text] - 2]] ([idx2hand $idx]) \001"
      }
    }
  }
}