@verb #4980:"@pic" any any any rxd #9223
@program #4980:"@pic" any any any
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
  if (!args)
    url = $command_utils:read("/ paste-in the URL of a gif/jpg/png picture.")
    if (!url)
      return
    endif
  else
    url = args[1]
  endif
  this.owner:tell("@pic! ", url)
  r = "<center><a href=\"" + url + "\"><img style='border: 4pt red groove; max-width: 95%; max-height: 95%; ' src=\"" + url + "\"></a>"
  roomies = $set_utils:intersection(connected_players(), player.location.contents)
  this.owner:tell("@pic roomies: ", toliteral(roomies))
  hyperlist = $list_utils:assoc(player, this.hyperpeople, 1)[2]
  this.owner:tell("@pic hyperlist: ", toliteral(hyperlist))
  for person in (roomies)
    if (person in hyperlist)
      person:tell(r)
    else
      person:tell(player, " displays a picture. ( " + url + " )")
    endif
  endfor
endif
"Last modified by Wingy (#9223) on Sun Feb  2 15:15:33 2003 MST."
.