Switch to edit mode.
Name(s): _render_page1: "*** DON'T TOUCH THIS CODE *** AUTOMATICALLY GENERATED ***"
2: caller == this || raise(E_PERM)
3: player:tell("<HTML><HEAD>")
4: this:tell_www_head(@args)
5: player:tell("</HEAD>")
6: player:tell("<BODY ", this.www_body_args, ">")
7: player:tell()
8: player:tell("<H1>", this.name, " (", this, ")</H1>")
9: player:tell({"", "<p>This is a list of the most interesting Moo objects on the web. If you are a Moo user and you have created a cool web object, send <a href=\"/feedback\">the Wizzen</a> some mail if you want your object included on this list.", "", "<img src=\"http://files.moo.ca/pics/cbuild.jpg\" WIDTH=244 HEIGHT=322 align=\"right\" alt=\"[Candice building...Something]\">", ""})
10: desc = hit = {}
11: for y in (properties(this))
12: if ($recycler:valid(x = toobj(y)) && x != #0)
13: desc = {@desc, tostr("<DT>", $www:link(x), "<DD>", this.(y), " <I>(", x.www_counter, " hits)</I>")}
14: hit = {@hit, -x.www_counter}
15: endif
16: endfor
17: $tcm || (desc = $list_utils:sort(desc, hit))
18: player:tell("<DL>")
19: player:tell(desc)
20: player:tell("</DL>")
21: player:tell(this.tools)
22: player:tell("<B>This page has been visted ", $su:group_number(this.www_counter), " times.</B>")
23: this:tell_www_tail(@args)
24: player:tell("</BODY></HTML>")
25: "Last modified by Dax (#789) on Thu Aug 1 12:16:59 2002 MDT."