@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 = {"" + argstr + ""} 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." .