Something

menu channel,query,status {
  $iif(%speak == on,$style(1)) Text-To-Speech: $iif(%speak == on,set %speak off,set %speak on)
}
on *:text:*:#: {  if (%speak == on) && ($active == $chan) && ($len($1-) <= 100) && ($left($1,1) == $chr(15)) && ($right($1-,1) == $chr(2)) { speak $remove($1-,$chr(15),$chr(2)) }  }
alias fspeak { msg $active $+($chr(15),$1-,$chr(2)) | speak $1- }
alias speak { if (%speak == on) { .comopen x SAPI.SpVoice | .comclose x $com(x,Speak,1,bstr,$1-) } }