$ieifbug

;Bug: $v1/$v2 don't evaluate properly.

alias ieif {
  var %c 1, %v 2, %t 0, %f 0
  while (%v <= $0) {
    var %x $regsubex($ [ $+ [ %c ] ] ,/(\$)(\S+)/g,\1!\2), %y $ [ $+ [ %v ] ]
    $iif( [ %x ] && !$prop,return %y,$iif( [ %x ] ,inc %t,inc %f))
    inc %c 2
    inc %v 2
  }
  if ($istok(true false,$prop,32)) return $replace($prop,true,%t,false,%f)
  else return $iif(2 \\ $0 && $2,$ [ $+ [ $0 ] ] )
}