mIRC Text event

alias nickcolors { return 3 4 5 6 7 10 12 13 }
raw 352:*: { cline $r(1,15) $2 $6 }
on ^:join:#: { cline $r(1,15) # $nick }

on ^*:text:*:#: {
  if ($readini(nicks.ini,$nick,color) == $null) {
    var %color = $gettok($nickcolors,$calc($base($left($md5($address),8),16,10) % 10), 32)
  }
  if ($readini(nicks.ini,$nick,color) != $null) {
    var %color = $readini(nicks.ini,$nick,color)
  }
  echo -tlm # < $+ $chr(3) $+ %color $+ $iif($nick isreg #,$null,$left($nick(#,$nick).pnick,1)) $+ $nick $+ $chr(15) $+ > $1- | haltdef
}
on ^*:text:*:?: {
  if ($readini(nicks.ini,$nick,color) == $null) {
    var %color = $gettok($nickcolors,$calc($base($left($md5($address),8),16,10) % 10), 32)
  }
  if ($readini(nicks.ini,$nick,color) != $null) {
    var %color = $readini(nicks.ini,$nick,color)
  }
  echo -tlm $nick < $+ $chr(3) $+ %color $+ $iif($nick isreg #,$null,$left($nick(#,$nick).pnick,1)) $+ $nick $+ $chr(15) $+ > $1- | haltdef
}
alias color {
  if ($1 != $null) {
    if ($2 != $null) {
      writeini nicks.ini $1 color $2
      echo $1 $+ 's color has been set to $2 $+ .
    }
  }
}