View/Edit #2030:go_path

Switch to edit mode.

1:  "Receives a room number; requests path from here to destination; moves vehicle along path (if path exists); returns if path exists."
2:  if (path = `$room_db:path_between(this.location, dest = args[1], this) ! ANY')
3:    for exit in (path)
4:      this:go_exit(exit)
5:      if (this.location != dest)
6:        this:jabber_shout(this.location:title(), this)
7:        this:jabber_quiet(this.location:title())
8:        suspend(this.speed)
9:      endif
10:   endfor
11:   this:look_out()
12: endif
13: return typeof(path) == $LIST
14: "Last modified by Dax (#789) on Tue May  3 13:59:08 2005 MDT."

[home | help | who | search | setup | code]