300
@verb #1606:"go" any any any rdo #55
@program #1606:"go" any any any
"Copied from Generic Room (#6):go by Slacker (#55)Apr 14 14:56:30 2001"
"Go east west north north east down"
if (!args)
  $msg:mtell("wherego")
endif
for dir in (args)
  "  player:tell(\"> \", dir);"
  exit = player.location:match_exit(dir)
  if (`exit->isa($vexit) ! E_TYPE' || valid(exit))
    $call_verb(exit, "move", {player})
    if (length(args) > 1)
      "Now give objects in the room we just passed through a chance to act."
      suspend(0)
    endif
  elseif (exit == $failed_match)
    $msg:mtell("nogo", dir)
    break
  else
    $msg:mtell("ambiguous_go", dir)
    break
  endif
endfor
"Last modified by Lao-Tzu (#8084) on Sun Nov  3 13:26:30 2002 MST."
.

0