View/Edit #733:tell_www_setup

Switch to edit mode.

1:  caller == this || raise(E_PERM)
2:  pass(@args)
3:  if (player.user:controls(this))
4:    msg = this:msg_setup()
5:    if (textarea = "*TEXTAREA*" in msg)
6:      names = {tostr("<TEXTAREA NAME=\"urls\" ROWS=\"", length(this.slide_URLs) + 5, "\" COLS=\"70\">"), @this.slide_URLs, "</TEXTAREA>"}
7:      "Get rid of that pesky blank line at the top."
8:      names[1..2] = {names[1] + names[2]}
9:      msg[textarea..textarea] = names
10:   endif
11:   player:sub_tell(msg, this.show_watch ? " CHECKED" | "", this.show_surf ? " CHECKED" | "", this.toollocation == "top" ? " CHECKED" | "", this.toollocation == "bottom" ? " CHECKED" | "")
12: else
13:   player:tell("<HR><H3>Config.</H3><UL>")
14:   player:tell("<LI>Users are ", this.show_watch ? "" | "not ", "allowed to watch a presentation of the slideshow.<LI>Users are ", this.show_surf ? "" | "not ", "allowed to surf through the slides on their own.<LI>When surfing and presenting the toolbar is at the ", this.toollocation, ".")
15:   player:tell("</UL><HR><H3>Slides.</H3>")
16:   if (!this.slide_URLs)
17:     player:tell("There are no URLs from which to load slides.")
18:   elseif (this.show_surf)
19:     player:tell("Slides are loaded from the following URLs:<OL>")
20:     for x in (this.slide_URLs)
21:       player:tell("<LI><A HREF=\"", x, "\">", x, "</A>")
22:     endfor
23:     player:tell("</OL>")
24:   else
25:     player:tell("Since surfing the slideshow isn't allowed, you may not see the list of slides.")
26:   endif
27: endif
28: "Last modified by manta (#7165) on Fri Sep 11 04:09:18 1998 EDT."

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