new color script

#replace any coloron script with this one instead

on ^*:TEXT:*:*: {
  echo -trlmbf # $+(<, $chr(3), $calc(($left($regsubex($nick,/(.)/g,$asc(\1) $chr(32) $chr(43)),-3)) % 16), $nick($chan, $nick).pnick, $chr(3), >) $1-
  haltdef
}

on *:INPUT:*: {
  if ( $left($1,1) != / ) {
    if ( $left($active,1) == $chr(35) ) {
      if (%color) && ($left($1,1) !isin /!) && (c !isincs $chan(#).mode) {
        echo -t $active < $+  $+ $nick($active,$me).color $+ $bob_pnick($active,$me) $+ > $+($chr(3),%color,$1-)
      }
      else echo -t $active < $+  $+ $nick($active,$me).color $+ $bob_pnick($active,$me) $+ > $1-
    }
    if (%color) && ($left($1,1) !isin /!) && (c !isincs $chan(#).mode) {
      .msg $active $+($chr(3),%color,$1-)
    }
    else .msg $active $1-
    haltdef
  }
}

alias -l bob_pnick {
  var %upnck $2
  var %upnckp $nick($1,$2).pnick
  var %pnckt $remove(%upnckp,%upnck)
  return $left(%pnckt,1) $+ %upnck
}

alias coloron { set -n %color $1 }
alias coloroff { unset %color }

# source https://dev.adiirc.com/boards/5/topics/167; https://crrpg.com/forums/mirc-scripts/(bobbold)-bold-nicks-(ingame-nicks-and-irc-nicks)/; http://hawkee.com/snippet/5875/; all with some modification