alias ame {
var %+c, %-c, %i = 1
while ($chan(%i)) {
var %chan = $ifmatch
if (c isin $chan(%i).mode) %+c = $addtok(%+c,%chan,44)
else %-c = $addtok(%-c,%chan,44)
echo $color(action) -bflmnqrti2 %chan * $me $1-
if ($numtok(%+c,44) == 4) {
.raw PRIVMSG %+c $+(:,$chr(1),ACTION $strip($1-),$chr(1))
unset %+c
}
elseif ($numtok(%-c,44) == 4) {
.raw PRIVMSG %-c $+(:,$chr(1),ACTION $1-,$chr(1))
unset %-c
}
inc %i
}
if (%+c) .raw PRIVMSG %+c $+(:,$chr(1),ACTION $strip($1-),$chr(1))
if (%-c) .raw PRIVMSG %-c $+(:,$chr(1),ACTION $1-,$chr(1))
}
alias amsg {
var %+c, %-c, %i = 1
while ($chan(%i)) {
var %chan = $ifmatch
if (c isin $chan(%i).mode) %+c = $addtok(%+c,%chan,44)
else %-c = $addtok(%-c,%chan,44)
echo $color(own) -bflmnqrti2 %chan $+(<,$chr(3),$nick($chan,$me).color,$me,$chr(3),>) $1-
if ($numtok(%+c,44) == 4) {
.raw PRIVMSG %+c $+(:,$strip($1-))
unset %+c
}
elseif ($numtok(%-c,44) == 4) {
.raw PRIVMSG %-c $+(:,$1-)
unset %-c
}
inc %i
}
if (%+c) .raw PRIVMSG %+c $+(:,$strip($1-))
if (%-c) .raw PRIVMSG %-c $+(:,$1-)
}