@verb #2992:"@int*eresting @unint*eresting" any any any rxd #562
@program #2992:"@int*eresting @unint*eresting" any any any
"@intersting Person1 Person2 Person3 ... PersonN"
"@unintersting Person1 Person2 Person3 ... PersonN"
""
"Will add or remove people from your interesting list."
if (caller == player)
  this:update_usage(verb[2] == "i" ? "@inter" | "@uninter")
  this:check_list()
  idx = this:get_index()
  if (args)
    for l in (args)
      if (l[1] == "#")
        who = toobj(l)
      else
        who = $player_db:find(l)
      endif
      if (valid(who))
        if (verb[2] == "u")
          this.inter[idx][3] = setremove(this.inter[idx][3], who)
          player:tell(who.name, " removed from your interesting list.")
        else
          this.inter[idx][3] = setadd(this.inter[idx][3], who)
          player:tell(who.name, " added to your interesting list.")
        endif
      else
        player:tell(l, " returns ", who)
      endif
    endfor
  else
    "    player:tell(\"You find the following people interesting: \");"
    player:tell("You find the following ", length(this.inter[idx][3]), " people interesting: ")
    player:tell(this:nn_list(this.inter[idx][3]))
  endif
endif
"Last modified by killeen (#562) on Sat Aug 26 11:12:07 2000 MDT."
.