@verb #2030:"go_move" this none this rxdo #987
@program #2030:"go_move" this none this
"Receives a room number; moves vehicle to destination; returns '1' if successful."
if (!this:key())
  $msg:mtell("no_key")
  return
elseif (!$object_utils:isa(dest = args[1], $room))
  return player:tell("That is not a room.")
elseif (this.location == dest)
  return player:tell("You are already in " + dest:title() + ".")
elseif (!dest:accept(this))
  return player:tell(dest:title() + " has refused entry to your vehicle.")
endif
this:jabber_quiet(this:msg_beam_start())
this:jabber_shout(this:msg_beam_start(), this)
this:jabber_shout(this:msg_beam_start(), this.location)
suspend(1)
this:jabber_quiet(this:msg_beam_go())
this:jabber_shout(this:msg_beam_go(), this)
this:jabber_shout(this:msg_obeam_go(), this.location)
this:jabber_shout(this:msg_beam_start(), dest)
suspend(1)
this:jabber_shout(this:msg_beam_end(), this.location)
this:moveto(dest)
this:look_out()
this:jabber_quiet(this:msg_beam_come())
this:jabber_shout(this:msg_beam_come(), this)
this:jabber_shout(this:msg_obeam_come(), this.location)
suspend(1)
this:jabber_quiet(this:msg_beam_end())
this:jabber_shout(this:msg_beam_end(), this)
this:jabber_shout(this:msg_beam_end(), this.location)
return this.location == dest ? 1 | player:tell("You have been denied entry to " + dest:title() + ".")
"Last modified by Dax (#789) on Tue Aug  8 16:40:14 2000 MDT."
.