Forums Scripts & Popups Command with switches

[color:green]; detect if $2 is the switches[/color]
if ($left($2,1) == 1) {
  [color:green]; detect switch and act on it[/color]
  if (d isin $2) { do stuff }
  if (r isin $2) { do stuff }
}

alias test {
  if ($left($1,1) == -) {
    if (d isin $1) {
      if ($isfile($mircdirtemp.log)) { 
        .remove $shortfn($mircdirtemp.log)
      } 
    }
    if (r isin $1) {
      exit
      run $mircexe
    }
  }
}  

alias test {
  if -*d* iswm $1 { .remove temp.log }
  if -*r* iswm $1 { run $mircexe | exit }
}

ALIAS PARSEFLAGS {
  var %switch,%chars,%count,%list,%length,%char

  if ($left($1,1) !isin +-) { return }
  %switch = $left($1,1)

  if ($2 != $null) { %chars = $2 }
  else { %chars = abcdefghijklmnopqrstuvwxyz }

  %length = $len($1)
  %count = 0

  while (%count < %length) {
    inc %count
    %char = $mid($1,%count,1)
    if (%char isin +-) { var %switch = %char }
    elseif (%char isletter %chars) { %list = %list %switch $+ %char }
    elseif ((%char isnum) && (%list != $null)) { %list = %list $+ %char }
  }
  return %list
}