Please edit yourself as you want

on ^*:QUIT:{
  var %i = 1
  while (%i <= $comchan($nick,0)) {
    if ($nick($comchan($nick,%i),$nick,~)) {
      echo $comchan($nick,%i) --> ~ $+ $nick quit irc $iif($1-,( $+ $1- $+ ))
    }
    elseif ($nick($comchan($nick,%i),$nick,&)) {
      echo $comchan($nick,%i) --> & $+ $nick quit irc $iif($1-,( $+ $1- $+ ))
    }
    elseif ($nick($comchan($nick,%i),$nick,@)) {
      echo $comchan($nick,%i) --> @ $+ $nick quit irc $iif($1-,( $+ $1- $+ ))
    }
    elseif ($nick($comchan($nick,%i),$nick,%)) {
      echo $comchan($nick,%i) --> % $+ $nick quit irc $iif($1-,( $+ $1- $+ ))
    }
    elseif ($nick($comchan($nick,%i),$nick,+)) {
      echo $comchan($nick,%i) --> + $+ $nick quit irc $iif($1-,( $+ $1- $+ ))
    }
    else {
      echo $comchan($nick,%i) --> $nick quit irc $iif($1-,( $+ $1- $+ ))
    }
    inc %i
  }
  haltdef
}
on ^*:NICK:{
  var %n = 1
  while (%n <= $comchan($newnick,0)) {
    if ($nick($comchan($newnick,%n),$newnick,~)) {
      echo $comchan($newnick,%n) --> ~ $+ $nick is now known as ~ $+ $newnick
    }
    elseif ($nick($comchan($newnick,%n),$newnick,&)) {
      echo $comchan($newnick,%n) --> & $+ $nick is now known as & $+ $newnick
    }
    elseif ($nick($comchan($newnick,%n),$newnick,@)) {
      echo $comchan($newnick,%n) --> @ $+ $nick is now known as @ $+ $newnick
    }
    elseif ($nick($comchan($newnick,%n),$newnick,%)) {
      echo $comchan($newnick,%n) --> % $+ $nick is now known as % $+ $newnick
    }
    elseif ($nick($comchan($newnick,%n),$newnick,+)) {
      echo $comchan($newnick,%n) --> + $+ $nick is now known as + $+ $newnick
    }
    else {
      echo $comchan($newnick,%n) --> $nick is now known as $newnick
    }
    inc %n
  }
  haltdef
}