on ^*:text:*:#:{
hadd -m ontext text $1-
echo -i2tml # $+(<,$nick(#,$nick).pnick,>) $regsubex(test,$hget(ontext,text),/\B(#[^ \x2c\x07]+)/g,04\1 $+ $controlat($hget(ontext,text),$regml(test,\n).pos))
haltdef
hfree ontext
}
alias colorat {
if ($prop == set) {
if ($1 != $chr(15)) {
var %i $iif($2,$2,$gettok(%colorat,2,44))
%colorat = $1 $+ $iif($1,$iif(%i,$chr(44) $+ %i))
}
else %colorat =
}
else {
set -u %colorat
var %r /(?:\x03(?:(\d+)(?:,(\d+))?)?|(\x0F))/g,%r $regsubex($left($1,$2),%r,$colorat(\1,\2).set)
%r = %colorat
unset %colorat
return $iif(%r != $null,$chr(3) $+ %r)
}
}
alias controlat {
if ($prop == set) {
if ($1 != $chr(15)) {
if ($1 isin %controlat) %controlat = $remove(%controlat,$1)
else %controlat = %controlat $+ $1
}
else %controlat =
}
else {
set -u %controlat
var %c $iif($3,$3,kubir),%r $+(/,$chr(40),$left($regsubex($remove(%c,k),/(.)/g,\x $+ $base($replace(\1,u,31,b,2,i,29,r,22),10,16,2) $+ |),-1),|\x0F,$chr(41),/g),%r $regsubex($left($1,$2),%r,$controlat(\1).set)
%r = %controlat
unset %controlat
return %r $+ $iif(k isin %c,$colorat($1,$2))
}
}