Just some custom events i strung together

ON *:JOIN:#: {
  if ($nick == $me) { halt }
  echo $chan $timestamp [7JOIN] $upper($nick) 4( $+ $address($nick,1) $+ 4)7 has joined the channel 4- $+(,$nick($chan,0),,$chr(32),users)
}
ON *:PART:#: {
  if ($nick == $me) { halt }
  echo $chan $timestamp [5PART] $upper($nick) 4( $+ $address($nick,1) $+ 4)5 has parted the channel 4- $+(,$calc($nick($chan,0)-1),,$chr(32),users)
}
ON *:QUIT: {
  if ($nick == $me) { halt }
  var %i = 1
  while %i <= $comchan($nick,0) {
    echo $comchan($nick,%i) $timestamp [5QUIT] $upper($nick) $+  $iif($address($nick,1),4( $address($nick,1) 4)) 5has quit $iif($1,4( $1- 4))
    inc %i
  }
}
ON *:NICK: {
  if ($nick == $me) {
    var %i = 1
    while %i <= $comchan($newnick,0) {
      echo $comchan($newnick,%i) $timestamp [13NICK] $upper($nick) 13You just changed your nickname 4( $upper($newnick) 4)
      inc %i
    }
  }
  else {
    var %i = 1
    while %i <= $comchan($newnick,0) {
      echo $comchan($newnick,%i) $timestamp [13NICK] $upper($nick) 13has changed nickname 4( $upper($newnick) 4)
      inc %i
    }
  }
}
ON *:OP:#: {
  echo $chan $timestamp [12MODE] $upper($opnick) 12has been granted $1 for the channel 4( $upper($nick) 4)
}
ON *:DEOP:#: {
  echo $chan $timestamp [12MODE] $upper($opnick) 12has had $1 taken from the the channel 4( $upper($nick) 4)
}
ON *:VOICE:#: {
  echo $chan $timestamp [12MODE] $upper($vnick) 12has been granted $1 for the channel 4( $upper($nick) 4)
}
ON *:DEVOICE:#: {
  echo $chan $timestamp [12MODE] $upper($vnick) 12has had $1 taken from the channel 4( $upper($nick) 4)
}
ON *:MODE:#: {
  echo $chan $timestamp [12MODE] $upper($nick) 12has just set mode $1- for the channel
}
ON *:TOPIC:#: {
  echo $chan $timestamp [3TOPIC] $upper($nick) 3has changed the topic for the channel -> $1-
}
ON *:BAN:#: {
  echo $chan $timestamp [4BAN] $upper($bnick) 4(  $banmask  4) 4has been banned from the channel 4( $upper($nick) 4)
}
ON *:UNBAN:#: {
  echo $chan $timestamp [4BAN] $upper($bnick) 4(  $banmask  4) 4has been removed from the channel 4( $upper($nick) 4)
}
ON *:KICK:#: {
  echo $chan $timestamp [4KICK] $upper($knick) 4( $address($knick,1) 4) 4has been kicked from the channel 4( $upper($nick) 4) $iif($1-,4( $iif($1 ison $chan, $1-, $1-) 4))
}