@verb #2992:"@isend" none none none rxd #562
@program #2992:"@isend" none none none
"This verb was programmed by Killeen on Wednesday, March 26, 1997."
"The code may be used by any who'd like to use it.  A small note of"
"thanks would be appriciated, or a note in your code that it came"
"from me, or whatever.  Enjoy."
""
"This will send mail to those in your interesting list."
"Usage:  @isend"
this:update_usage("@isend")
if (player == caller)
  this:update_usage("@iwho")
  idx = $list_utils:iassoc(player, this.inter)
  if (!idx)
    player:tell("You don't have an interesting list.")
    return
  endif
  WhosInteresting = this.inter[idx][3]
  nonplayers = {}
  if (length(WhosInteresting))
    for dude in (WhosInteresting)
      if (!is_player(dude))
        nonplayers = {@nonplayers, dude}
      endif
    endfor
    if (nonplayers)
      player:tell("Removing nonplayer object", length(nonplayers) == 1 ? ": " | "s: ", $string_utils:english_list(nonplayers), " from your interesting list.")
      this.inter[idx][3] = $set_utils:difference(this.inter[idx][3], nonplayers)
    endif
  else
    player:tell("You don't have an interesting list.")
  endif
  $mail_editor:invoke(WhosInteresting, "@send")
endif
.