@verb #4980:"menu" none none none rxd #9223
@program #4980:"menu" none none none
"same as bert, but newer"
r = {}
target = ""
baseUrl = $web.url
this:update_hyperlist()
if (!$list_utils:assoc(player, this.hyperpeople, 1))
  player:tell()
  player:tell("You are in TELNET TEXT MODE!  You must first, be using Moozilla, and you must then type...  hyper go (enter).  If you have done this, and the buttons command still doesn't work for you, contact Wingy.")
  player:tell()
else
  target = player
  bannerStyle = "style='display: block; margin: 0; font-size: 100%; font-weight: bold; line-height: 1.1em; text-align: center; position: fixed; top: 1em; left: auto; width: 90px; right: 1em;'"
  pStyle = "style='display: block; margin: 0; padding: 0.5em 0em .5em 0em; font-family: \"Arial\", \"sans-serif\"; background: #222288; border: thick outset #227744; color: white;'"
  aStyle = "style='display: block; font-size: 1em; background-color: black; color: #5555ff; margin: 0em 0em .2em .5em; width: 80%; padding: 1pt; border: 1pt groove #ff0066;'"
  cmdStyle = "style=\"margin: 4pt; border: red solid 1pt; font-size: .9em ; font-weight: bold ; font-style: normal ; color: #ffff00 ;\""
  lineStyle = "style='display: block; margin: 0em; padding: .2em; line-height: .3em; color: red;'"
  hrStyle = "style='display: block; width: 80%; margin: 0em; margin-left: .8em; padding: 0em; line-height: .2em; color: white;'"
  r = {@r, "<div " + bannerStyle + ">"}
  r = {@r, "<p " + pStyle + ">"}
  r = {@r, "<a " + aStyle + " href=\"" + baseUrl + tostr(toint(this.owner)) + "\">" + this.owner.name + "</a>"}
  r = {@r, "<a " + aStyle + " href=\"http://www.stompstompstomp.com/software.html#moozilla\">Moozilla</a>"}
  r = {@r, "<a " + aStyle + " href=\"http://www.google.com\">Google</a>"}
  r = {@r, "<em " + lineStyle + " > ---------- </em>"}
  r = {@r, "<a " + aStyle + " xch_cmd=\"buttons\" href=\"\"><div " + cmdStyle + "> BUTTONS </div></a>"}
  r = {@r, "<em " + lineStyle + " > ---------- </em>"}
  r = {@r, "<a " + aStyle + " xch_cmd=\"look me\" href=\"\"><div " + cmdStyle + "> LOOK ME </div></a>"}
  r = {@r, "<em " + lineStyle + " > ---------- </em>"}
  r = {@r, "<a " + aStyle + " xch_cmd=\"look here\" href=\"\"><div " + cmdStyle + "> LOOK HERE </div></a>"}
  r = {@r, "<em " + lineStyle + " > ---------- </em>"}
  r = {@r, "<a " + aStyle + " xch_cmd=\"who\" href=\"\"><div " + cmdStyle + "> WHO </div></a>"}
  r = {@r, "<em " + lineStyle + " > ---------- </em>"}
  r = {@r, "<a " + aStyle + " xch_cmd=\"where\" href=\"\"><div " + cmdStyle + "> WHERE </div></a>"}
  r = {@r, "<em " + lineStyle + " > ---------- </em>"}
  r = {@r, "<a " + aStyle + " xch_cmd=\"@quit\" href=\"\"><div " + cmdStyle + "> @QUIT </div></a>"}
  r = {@r, "<hr " + hrStyle + "></p>"}
  r = {@r, "</div>"}
  player:tell($string_utils:from_list(r))
endif
"Last modified by Dax (#789) on Tue May  3 14:11:58 2005 MDT."
.