on *:join:* {
  if ($nick == $me) { set %ident $gettok($gettok($fulladdress,2,33),1,64) | echo # 14[15 $+ # $+ 14] | haltdef | return }
  var %clones
  var %i
  var %numcl
  var %uident = $gettok($gettok($fulladdress,2,33),1,64)
  var %cident = *! $+ $gettok($gettok($fulladdress,2,33),1,64) $+ @*
  %numcl = $ial(%cident,0)
  %i = 1
  while (%i <= %numcl) {
    %clones = $addtok(%clones,$ial($gettok($gettok($fulladdress,2,33),1,64),%i).nick,32)
    inc %i
  }
  %clones = $remtok(%clones,$nick,32)
  if (%numcl > 1) {
    echo # 0 4(15 $+ %uident $+ * $+ $nick $+ $chr(32)has left the conversation.4)4Clones14[15 $+ $calc(%numcl - 1) $+ 14]15 %clones
  }
  else { echo # 00 4(15 $+ %uident $+ * $+ $nick $+ $chr(32)has joined the conversation.4) | halt }
}
on ^*:part:#: { echo # 0 4(15 $+ %uident $+ * $+ $nick $+ $chr(32)has left the conversation.4) $iif($1,14[0 $+ $1- $+ 14]) | halt }
