alias mpnick { return $iif($remove($nick(%chan,$me).pnick,$me) != $null, $+($chr(3),$nick(%chan,$me).color,$left($v1,1),$chr(3))) }
alias ame { 
  var %x = $comchan($me,0) 
  while (%x) { 
    .ame $1- 
    set %chan $comchan($me,%x) 
    echo $comchan($me,%x) $ts $str($chr(160),5) 4* $+($npnick,$me)  $1- 
    dec %x
  }
}