View/Edit #7777:accept

Name(s): accept

1:  {what} = args
2:  r = what.location:isa($editor) && this == what.location.original[what in what.location.active] || pass(@args)
3:  callers = $code_utils:callers()
4:  try
5:    r = r || this:contains(what)
6:    r = r || (callers[2][2] == "@summon" && callers[2][4] == $guardian)
7:    r = r || callers[3][1..2] == {$transporter, "do_actual_transport"}
8:  except (E_RANGE)
9:    r = 0
10: endtry
11: if (!r)
12:   this:announce_all(args[1]:title(1), " bangs on the gate.")
13:   this.free_entry = 1
14:   fork (0)
15:     this.free_entry = 0
16:   endfork
17:   if (pass(@args))
18:     args[1]:tell("Sorry, you cannot teleport into ", this:title(), ".  However, you can walk there from the Administration building.  The method for doing so is left as an exercise for the reader.")
19:   endif
20: endif
21: return r
22: "Last modified by MadHatter (#8371) on Fri Jul 26 15:17:43 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: manta (#7165)

You are not logged in.