@verb #4980:"`* point" any any any rxd #9223
@program #4980:"`* point" any any any
""
" `red:20 hello!"
" `cyan:20 hello?"
" `violet:20 hello."
" `purple:20 hello. :)"
" `pink:20 hello! :)))"
" `#4444ff:30 *A frog ribits nearby."
" `rgb(255,255,0):10 \"*Bow Wow!"
" `lime:15 *\"Please come in. (same as last style)"
""
this.owner:tell("POINT command: ", verb + " " + argstr)
if (!argstr)
  player:tell("Misformed command! Got a space just before the message?")
  return
endif
r = {}
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 = ""
  myverb = verb
  wherecolon = length(myverb)
  this.owner:tell("POINT command: ", myverb + " " + argstr + "  wherecolon: " + tostr(wherecolon))
  if (length(verb) == 1)
    color = "lime"
    size = "50"
  else
    if (wherecolon = index(verb, ":"))
      size = myverb[wherecolon + 1..$]
      myverb = myverb[1..wherecolon - 1]
      color = myverb[2..$]
    else
      color = myverb[2..$]
      size = "50"
    endif
  endif
  myplayer = player.name
  outstr = argstr
  sep = ", "
  quote = "\""
  if (length(outstr) > 1 && outstr[1..2] == "\"*")
    myplayer = sep = does = ""
    outstr = outstr[3..$]
  elseif (length(outstr) > 1 && outstr[1..2] == "*\"")
    myplayer = sep = does = ""
    outstr = outstr[3..$]
  elseif (outstr[1] == "*")
    myplayer = sep = quote = does = ""
    outstr = outstr[2..$]
  elseif (outstr[$] == "!")
    does = " exclaims"
  elseif (length(outstr) > 1 && outstr[$ - 1..$] == "))")
    does = " laughs"
  elseif (outstr[$] == ")")
    does = " smiles"
  elseif (outstr[$] == "?")
    does = " asks"
  else
    does = " says"
  endif
  r = {@r, myplayer + does + sep + "<em style='letter-spacing: 2pt; line-height: .9em; max-width: 98%; font-size: " + size + "pt; font-weight: bold; font-style: normal; color: " + color + "; '>" + quote + outstr + quote + "</em>"}
  s = {myplayer + does + sep + quote + outstr + quote}
  roomies = $set_utils:intersection(connected_players(), player.location.contents)
  this.owner:tell(":point roomies: ", toliteral(roomies))
  hyperlist = $list_utils:assoc(player, this.hyperpeople, 1)[2]
  this.owner:tell(":point hyperlist: ", toliteral(hyperlist))
  for person in (roomies)
    if (person in hyperlist)
      person:tell($string_utils:from_list(r))
    else
      person:tell($string_utils:from_list(s))
    endif
  endfor
endif
"Last modified by Wingy (#9223) on Sun Feb  2 15:14:05 2003 MST."
.