Something

raw 353:*:{ 
  if (%rst == $null) { halt }
  if ($window(@raws) == $null) { window @raws }
  echo @raws $numeric $1- 
}
raw 366:*:{
  if (%rst != $null) { unset %rst }
}

on ^*:JOIN:#:{
  if ($nick == $me) {
    set %rst yes
    NAMES #
  }
  else { 
    if (# == $active) {
      ; add user to nick
    }
  }
}
;--------------------------------
;remove nick from list
;
on *:PART:#:{
  if (# == $active) {
    ; remove user from list
  }
}
on *:QUIT:{
  if ($nick != $me) {
    var %nx 1
    while (%nx <= $comchan($nick,0)) {
      if ($comchan($nick,%nx) == $active) {
        ; remove user from list
      }
    }
  }
  halt
}