on ^*:text:*:#: {
haltdef
set -u4 %tnick $nick
set -u4 %tmsg1 $1-
set -u4 %ttchn $chan
stcolo
echo $chan $tmsg
}
alias stcolo {
if ($regex(%tmsg1,$iif($len($color(background)) == 1,$+(/,$chr(3),$chr(40),0,$color(background),$chr(124),$color(background),$chr(40),(?=[^\d]),$chr(41),$chr(41),/g),$+(/,$chr(3),$color(background),/g)))) { set %tmsg $regsubex(%tmsg1,$iif($len($color(background)) == 1,$+(/,$chr(3),$chr(40),0,$color(background),$chr(124),$color(background),$chr(40),(?=[^\d]),$chr(41),$chr(41),/g),$+(/,$chr(3),$color(background),/g)),$chr(3) $+ $color(normal text)) }
else { set %tmsg %tmsg1 }
}
alias tmsg {
return $nnick %tmsg
}
alias nnick_ {
if (%metheme == Close) { return $tstmp $lef $+ $opv_ $+ %tnick $+ $rig }
else if (%metheme != Close) { return $tstmp $lef $opv_ $+ %tnick $rig }
}
alias lef {
return $chr(3) $+ %bcp $+ $readini($mircdirsystem/theme.ini, nbrackets, left) $+ $chr(3)
}
alias rig {
return $chr(3) $+ %bcp $+ $readini($mircdirsystem/theme.ini, nbrackets, right) $+ $chr(3)
}
alias tstmp {
if (%tstmp == 1) { return $chr(3) $+ %bcp $+ $readini($mircdirsystem/theme.ini, tbrackets, left) $+ $chr(3) $+ $chr(015) $+ $time( $+ %tsform $+ ) $+ $chr(3) $+ %bcp $+ %tright $+ $chr(3) }
}