on &*:input:*:{
if (($me ison $active) && ($left($gettok(%IStr,1,32),1) != /) && ($right($gettok(%IStr,1,32),1) == :) && ($gettok(%IStr,1,32) != :)) {
if $ialchan( [ $remove($left($1,-1),$chr(40),$chr(41)) $+ *!*@* ] ,$active,1) != $null {
if $ctrlenter != $true {
var %saystr = [ [ $gettok(%IStr,2-,32) ] ]
say $resp2($ialchan( [ $remove($left($gettok(%IStr,1,32),-1),$chr(40),$chr(41)) $+ *!*@* ] ,$active,1).nick) $replace(%saystr,§¨©,$chr(36),§¨ª,$chr(37))
}
halt
}
}
}