@verb #4980:"@annlist" any any any rxd #9223
@program #4980:"@annlist" any any any
r = {}
target = "all"
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...  html go (enter).  If you have done this, and the buttons command still doesn't work for you, contact Wingy.")
  player:tell()
else
  roomies = $set_utils:intersection(connected_players(), player.location.contents)
  this.owner:tell("annlist roomies: ", toliteral(roomies))
  hyperlist = $list_utils:assoc(player, this.hyperpeople, 1)[2]
  this.owner:tell("annlist hyperlist: ", toliteral(hyperlist))
  t = {argstr}
  r = {"<xmp>" + argstr + "</xmp>"}
  for person in (roomies)
    if (person in hyperlist)
      person:tell(player.name, " (", player, ") shows html source: ", $string_utils:from_list(r))
    else
      person:tell(player.name, " (", player, ") shows html source: ", $string_utils:from_list(t))
    endif
  endfor
endif
"Last modified by Wingy (#9223) on Sun Feb  2 15:30:37 2003 MST."
.