@verb Hellenic Hillside:"http_request" this none this rxd
@program Hellenic Hillside:http_request
lines = {"<HTML><HEAD><TITLE>RiverMOO Room: " + this.name + "</TITLE></HEAD>"};
lines = {@lines, "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" ALINK=\"#990033\" VLINK=\"#990033\"><P><CENTER><H1> " + this.name + "</H1></CENTER><BR>"};
insert = this.html ? this.html | this:description();
if (typeof(insert) != LIST)
insert = {insert};
endif
for insloop in (insert)
lines = {@lines, $http:text_to_html(insloop)};
lines = {@lines, "<br>"};
endfor
lines = {@lines, "<p><h2><I>Exits:</I></h2>"};
exits = {};
if ($object_utils:has_verb(this, "obvious_exits"))
exits = this:obvious_exits();
endif
for e in (exits)
ename = tostr(e.name, " (", $string_utils:from_list(e.aliases, "/"), ")");
lines = {@lines, ename + "<br>"};
edest = tostr("=> ", " <a href=\"/" + tostr(tonum(e.dest)) + "\">" + e.dest.name + " (" + tostr(e.dest) + ")</a><br>");
lines = {@lines, edest};
if ($object_utils:has_property(e, "look_msg"))
sayline = e.look_msg;
if (sayline)
lines = {@lines, tostr(" ", sayline, "<p>")};
endif
endif
endfor
if (this.virtual_exits)
for n in (this.virtual_exits)
ename = $string_utils:from_list(n[1], ", ");
lines = {@lines, ename + "<br>"};
edest = " <a href=\"/" + tostr(tonum(n[2])) + "\">" + $string_utils:nn(n[2]) + "</a><br>";
lines = {@lines, edest};
endfor
endif
kids = this.contents;
if (kids)
lines = {@lines, "<h2><I>Contents:</I></h2>"};
for n in (kids)
lines = {@lines, " <a href=\"/" + tostr(tonum(n)) + "\">" + n.name + " (" + tostr(n) + ")</a><br>"};
endfor
endif
lines = {@lines, "<h2><I>Links:</I></h2>"};
lines = {@lines, "<p>"};
lines = {@lines, "<a href=\"http://dilos.com/region/index.html\">Dilos.Com: Regions of Greece</a>"};
lines = {@lines, "<p>"};
lines = {@lines, "<CENTER><P><A HREF=\"http://rivermoo.com:8889/428\">Return to the Core Geography Map</A></CENTER>"};
lines = {@lines, "<P><HR>"};
this.hits = this.hits + 1;
lines = {@lines, "<B><CENTER>There have been ", tostr(this.hits), " visitors to this Web Page.</CENTER></B>"};
lines = {@lines, "<P><BR><CENTER><TABLE BORDER=2><TR><TD><map name=\"navmap\"><area shape=\"rect\" coords=\"71,8,134,30\" href=\"http://rivermoo.com:8889/\"><area shape=\"rect\" coords=\"150,7,248,32\" href=\"http://rivermoo.com:8889/wizards\"><area shape=\"rect\" coords=\"265,6,349,34\" href=\"http://rivermoo.com:8889/userpages\"><area shape=\"rect\" coords=\"368,7,435,31\" href=\"http://rivermoo.com:8889/news\"><area shape=\"rect\" coords=\"452,7,506,31\" href=\"http://rivermoo.com:8889/mail\"></map><img src=\"http://rivermoo.com/~rivermoo/players/html/graphics/navbar.jpg\" border=0 usemap=\"#navmap\" ALT=\"RiverMOO Navigator\"></td></tr></table></center>"};
lines = {@lines, "<P><CENTER><A HREF=\"http://rivermoo.com:8889/6440\"><IMG SRC=\"http://rivermoo.com/~rivermoo/players/html/graphics/logo.gif \" ALT=\"RiverMOO Copyright Statement\" BORDER=0></A></CENTER></HTML>"};
lines = {@lines, "</BODY>"};
return lines;
.