Switch to edit mode.
Name(s): tell_www_setup1: "Copied from Generic Room (#6):tell_www_setup by Hacker (#60)Apr 14 15:10:01 2001"
2: caller == this || raise(E_PERM)
3: player:isa($webber) || raise(E_PERM)
4: pass(@args)
5: player:tell("<HR><H3>Room setup</H3>")
6: if (exits = this:exits(1))
7: player:tell("<UL>")
8: msg = "<LI><A HREF=\"/%1~#/setup\">Setup %1</A> (#%1~#). Goes to %2 (#%2~#). <A HREF=\"/recycler?recycle=%1~#\">Recycle</A> the exit."
9: msg_bad = "<LI><I><A HREF=\"/%1~#/setup\">Setup %1</A> (#%1~#). Goes nowhere, does nothing. <A HREF=\"/recycler?recycle=%1~#\">Recycle</A> the exit.</I>"
10: for exit in (exits)
11: $command_utils:suspend_if_needed()
12: good_exit_p = this:is_exit(exit)
13: player:sub_tell(good_exit_p ? msg | msg_bad, exit, good_exit_p && `$call_verb(exit, "real_dest", {}) ! E_VERBNF => $get_property(exit, "dest")')
14: endfor
15: player:tell("</UL>")
16: else
17: player:tell("<P>This room has no conventional exits.")
18: endif
19: if (player.user:controls(this) && player.user:isa($builder))
20: generic = $exit
21: for x in (player.user.digwith)
22: if (x:isa($exit))
23: generic = x
24: endif
25: endfor
26: player:tell("<FORM ACTION=\"/", toint(this), "/setup/build\"><INPUT TYPE=\"hidden\" NAME=\"exit\" VALUE=\"", toint(generic), "\"><INPUT TYPE=\"submit\" VALUE=\"Create new exit\"></FORM>")
27: endif
28: "Last modified by Dax (#789) on Tue May 3 14:09:33 2005 MDT."