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
}
}
}