#ALIAS travel {firstcoord=0;secondcoord=0;thirdcoord=0;#prompt from {Where are you?};#prompt to {Where are you going?};#IF (%copy("@from",1,1)>%copy("@to",1,1)) {firstcoord=%eval(10-(%copy(@from,1,1)-%copy(@to,1,1)))};#IF (%copy("@from",2,1)>%copy("@to",2,1)) {secondcoord=%eval(10-(%copy(@from,2,1)-%copy(@to,2,1)))};#IF (%copy("@from",3,1)>%copy("@to",3,1)) {thirdcoord=%abs(%eval(%copy(@from,3,1)-%copy(@to,3,1)))};#IF (%copy("@from",1,1)<%copy("@to",1,1)) {firstcoord=%abs(%eval(%copy(@from,1,1)-%copy(@to,1,1)))};#IF (%copy("@from",2,1)<%copy("@to",2,1)) {secondcoord=%abs(%eval(%copy(@from,2,1)-%copy(@to,2,1)))};#IF (%copy("@from",3,1)<%copy("@to",3,1)) {thirdcoord=%eval(10-(%abs(%eval(%copy(@from,3,1)-%copy(@to,3,1)))))};#while @firstcoord>0 {east;#add firstcoord (-1)};#while @secondcoord>0 {south;#add secondcoord (-1)};#while @thirdcoord>0 {up;#add thirdcoord (-1)}}