@verb #2385:"@addpals @rmpals @pals" any any any rdo #2385
@program #2385:"@addpals @rmpals @pals" any any any
"This verb was made by Thoth (#9780)"
if (verb == "@addpal" || verb == "@rmpal")
  who = $su:match_player(argstr)
  if (verb == "@addpal")
    player.pals = setadd(player.pals, who)
    player:Tell(who:title() + " (" + tostr(who) + ") has been added to your pals list.")
  elseif (verb == "@rmpal")
    if (who in player.pals)
      player.pals = setremove(player.pals, who)
      player:Tell(who:title() + " (" + tostr(who) + ") has been removed from your pals list.")
    else
      player:tell("He's not even in your pals list!")
    endif
  endif
elseif (verb == "@pals")
  while (#-1 in this.pals || #-2 in this.pals || #-3 in this.pals)
    this.pals = setremove(this.pals, #-1)
    this.pals = setremove(this.pals, #-2)
    this.pals = setremove(this.pals, #-3)
    suspend(0)
  endwhile
  pals = {}
  for x in (this.pals)
    pals = {@pals, {x:title(), tostr(x), x:connected() ? "Awake" | "Asleep", x.location:title(), tostr(x.location)}}
  endfor
  player:tellColumns({20, 4, 6, 10, 4}, {"Pal", "#", "Status", "Location", "#"}, @pals)
endif
"Last modified by Slackeur (#55) on Mon Dec 28 16:19:12 1998 MST."
.