alias set {
if (- == $left($1,1)) {
if ($len($1) > 1) {
if (c isin $1) {
var %i 1 | while (%i <= $numtok($2-,44)) {
var %t $gettok($2-,%i,44), %v $gettok(%t,1,32), %m $gettok(%t,2-,32)
if (%m != $null) var %m $calc(%m) | else var %m $null
if (s !isin $1) set $eval(%v,1) %m | inc %i
}
}
if (s isin $1) {
var %i 1 | while (%i <= $numtok($2-,44)) {
var %t $gettok($2-,%i,44), %v $gettok(%t,1,32), %m $gettok(%t,2-,32)
if (c isin $1) { if (%m != $null) var %m $calc(%m) | else var %m $null }
set -s $eval(%v,1) %m | inc %i
}
}
}
else echo $color(info) -a * ERROR: required letter for switches are missing.
}
else { var %i 1 | while (%i <= $numtok($1-,44)) { set $eval($gettok($1,%i,44),1) $gettok($2-,%i,44) | inc %i } }
}