on ^*:QUIT:{
  var %x = 1
  while ($comchan($nick,%x)) { 
    echo $v1 $ts $chr(27) $str($chr(160),5) $in2 $+ $qpnick $+ $replace($address($nick,5),!,4!,@,4@) $+ $out2  has Quit IRC $in2 $+ $1- $+ $out2
    inc %x 
  }
  halt
}
 alias qpnick { return $iif($remove($nick($comchan($nick,%x),$nick).pnick,$nick) != $null, $+($chr(3),$nick($comchan,$nick).color,$left($v1,1),$chr(3))) }