;===========
; Fast Walk
;===========
alias fw {
;Retreaving Information
;----------------------
%direct = $1
;North
;-----
%north = $wildtok(%direct, *n, 1, 32)
if (%findn != $null) { %north = $gettok(%direct,%findn) }
if (($len(%north) > 1) && (%north != $null)) { %nnum = $abs(%north) }
if (($len(%north) = 1) && (%north != $null)) { %nnum = 1 }
echo 4 %north
;East
;----
%east = $wildtok(%direct, *e, 1, 32)
if (($len(%east) > 1) && (%east != $null)) { %enum = $abs(%east) }
if (($len(%east) = 1) && (%east != $null)) { %enum = 1 }
;South
;-----
%south = $wildtok(%direct, *s, 1, 32)
if (($len(%south) > 1) && (%south != $null)) { %snum = $abs(%south) }
if (($len(%south) = 1) && (%south != $null)) { %snum = 1 }
;West
;----
%west = $wildtok(%direct, *w, 1, 32)
if (($len(%west) > 1) && (%west != $null)) { %wnum = $abs(%west) }
if (($len(%west) = 1) && (%west != $null)) { %wnum = 1 }
;Processing Information
;----------------------
if (%north != $null) {
%fwi = %nnum
%fdo = $remove(%north,%nnum)
while %fwi > 0 {
echo 4 %fdo
dec %fwi
}
}
if (%east != $null) {
%fwi = %enum
%fdo = $remove(%east,%enum)
while %fwi > 0 {
echo 4 %fdo
dec %fwi
}
}
if (%south != $null) {
%fwi = %snum
%fdo = $remove(%south,%snum)
while %fwi > 0 {
echo 4 %fdo
dec %fwi
}
}
if (%west != $null) {
%fwi = %wnum
%fdo = $remove(%west,%wnum)
while %fwi > 0 {
echo 4 %fdo
dec %fwi
}
}
unset %north %east %south %west
unset %nnum %enum %snum %wnum
}