Anonymous

;Visualise

on ^*:OPEN:?:*:{
  var %c $chan(0)
  var %i 1
  var %a 0
  while (%i <= %c) {
    if ($nick ison $chan(%i)) {
      var %a 1
      break
    }
    inc %i
  }
  if (!%a) { halt }
}