Unnamed

alias timerwm { 
  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
}