34e
@verb #2030:"go_exit" this none this rxdo #987
@program #2030:"go_exit" this none this
"Receives an exit number; moves vehicle to destination; returns '1' if successful."
if (!this:key())
  $msg:mtell("no_key")
  return
elseif (!((dest = args[1]) in this.location:exits()))
  return player:tell("ERROR: ", tostr(dest), " is not a valid exit from here!")
endif
this:jabber_shout(this:msg_driveout(), this.location, dest.name)
dest:move(this)
if (this.location != dest.dest && this.location != `dest:real_dest() ! ANY')
  this:jabber_shout(this:msg_no_drive(), this.location, dest.dest.name)
  player:tell("You have been denied entry to " + dest.dest:title() + ".")
else
  this:jabber_shout(this:msg_drivein(), this.location, dest.location.name)
  return 1
endif
"Last modified by Dax (#789) on Tue Aug  8 16:39:53 2000 MDT."
.

0