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
  }
}