alias santa {
  var %list = santaslist.txt
  while (%i < $nick($chan,0)) { 
    inc %i  
    write %list $nick($chan,%i) $level($ial($nick($chan,%i),5)) 
  } 
  if ($exists(%list) && $exists(%list)) { 
    window -l @nice       | filter -gfw %list @presents /nice/ 
    window -l @nopresents | filter -gfw %list @nopresents /naughty/ 
  }
  amsg Santa Claus is coming to #Town | join #Town
}

alias timerwm { 
  if ($isid) {
    var %wm = $$1, %index = $iif($2 != $null,$2,1), %n = $timer(0), %i = 1 
    var %bCount = $iif(%index == 0,$true,$false), %count = 0

    while (%i <= %n) { 
      var %timername = $timer(%i) 
      if (%wm iswm %timername) { 
        if (%bcount) { 
          inc %count 
        }
        else {
          dec %index 
          if (%index == 0) { 
            return %timername 
          }
        }
      }
      inc %i
    } 
    if (%bCount) { return %count }
    return $null
  }
}