@verb #5505:"n*orth northe*ast ne northw*est nw s*outh southe*ast se southw*est sw e*ast w*est u*p d*own" none none none rdo #7921
@program #5505:"n*orth northe*ast ne northw*est nw s*outh southe*ast se southw*est sw e*ast w*est u*p d*own" none none none
mod = verb[1]
if (verb in {"ne", "nw", "se", "sw"})
  mod = verb
elseif (length(verb) > 5)
  mod = tostr(mod, verb[6])
endif
rm = player in $list_utils:slice(this.people, 1)
if (!rm)
  return player:tell("You can't go that way.")
endif
exits = $su:explode(this.exits[this.people[rm][2]], ";")
for y in (exits)
  if ($su:explode(y, ":")[1] == mod)
    this.people[rm][2] = toint($su:explode(y, ":")[2])
    player:tell("You virtually move ", verb, ".")
    return player:tell(this:description())
  endif
endfor
return player:tell("You can't go that way.")
"Last modified by Dax (#789) on Tue May  3 14:09:35 2005 MDT."
.