on *:input:#: {
  if (/* !iswm $1) || (/me == $1) {
    if (/me != $1) {
      if (%talk == On) { set %type $1- | set %words %talk.mode | alias talk /return %words }
      if (%talk == Off) { set %words $1- | alias talk /return %words | set %first }
      if ($chan isin $read(t_halt.txt, w, * $+ $chan $+ *)) && (%halt == on) { set %words $1- | alias talk /return %words }
      .echo # $me %first $talk
      .msg $chan %first $talk
    }
    else {
      .echo # $me $remove($1-,/me)
      .describe $chan $2-
    }
    haltdef
  }
}

Menu menubar {
  Script Talker Options
  .Talker / %talk
  ..Toggle On/Off
  ...Active:/set %talk On
  ...Deactivate:/set %talk Off
  ..Halter / %halt
  ...Add~Channel:/write text/t_halt.txt $chan
  ...Open~Halt:/run text/t_halt.txt
  ...Toggle On/Off
  ....On:/set %halt On
  ....Off:/set %halt Off
  ..Change~Color
  ...Colors
  ....Green~And~Grey
  .....Ascii
  ......Plain:/set %talk.mode $!replace(%type,a,03à14,e,03è14,i,03ì14,o,03ø14,u,03ù14,y,03ÿ14) | set %first 14
  ......Bold:/set %talk.mode $!replace(%type,a,03à14,e,03è14,i,03ì14,o,03ø14,u,03ù14,y,03ÿ14) | set %first 14
  ......Underline:/set %talk.mode $!replace(%type,a,03à14,e,03è14,i,03ì14,o,03ø14,u,03ù14,y,03ÿ14) | set %first 14
  ......Bold && Underline:/set %talk.mode $!replace(%type,a,03à14,e,03è14,i,03ì14,o,03ø14,u,03ù14,y,03ÿ14) | set %first 14
  .....Plain
  ......Plain:/set %talk.mode $!replace(%type,a,03a14,e,03e14,i,03i14,o,03o14,u,03u14,y,03y14) | set %first 14
  ......Bold:/set %talk.mode $!replace(%type,a,03a14,e,03e14,i,03i14,o,03o14,u,03u14,y,03y14) | set %first 14
  ......Underline:/set %talk.mode $!replace(%type,a,03a14,e,03e14,i,03i14,o,03o14,u,03u14,y,03y14) | set %first 14
  ......Bold && Underline:/set %talk.mode $!replace(%type,a,03a14,e,03e14,i,03i14,o,03o14,u,03u14,y,03y14) | set %first 14
}