ok, this isn't 100% great, but its just a 2 minute job, to help other people learn TCL

load in remotes type /m2t

alias m2t {
  if ($dialog(m2t)) { dialog -x m2t m2t }
  else { dialog -m m2t m2t }
}
dialog m2t {
  title "mIRC To TCL"
  size -1 -1 171 181
  option dbu
  edit "Trigger", 1, 2 4 58 12
  edit "msg/notice/privmsg", 4, 54 4 58 12
  edit "$nick/$chan", 5, 112 4 59 12
  edit "Do what?", 6, 4 19 160 60, multi return autovs
  button "Make my Script", 7, 7 82 155 12
  box "Completed Script", 2, 3 97 162 81
  edit "", 3, 5 103 155 72, multi return autovs
}
on *:DIALOG:m2t:SCLICK:*: {
  if ($did == 7) {
    if (!$did(1)) { echo -a 04Error: No Trigger given }
    if (!$did(4)) { echo -a 04Error: No action taken }
    if (!$did(5)) { echo -a 04Error: No Nickname/Channel Given }
    if (!$did(6)) { echo -a 04Error: Nothing to do }
    else {
      did -a m2t 3 bind pub -|- " $+ $did(1) $+ " $did(1) $crlf
      did -a m2t 3 proc $did(1) $chr(123) nick host hand chan text $chr(125) $chr(123) $crlf
      did -a m2t 3 putserv " $+ $did(4) $did(5) : $+ $did(6) $+ " $crlf
      did -a m2t 3 $chr(125) $crlf
    }
  }
}