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
}