@verb #8043:"addpal killpal pals onpals" any none none rdo #8043
@program #8043:"addpal killpal pals onpals" any none none
if (verb == "addpal")
  per = `$su:match_player(dobjstr) ! ANY => #-3'
  if (per == #-3)
    player:tell("No match found for `", argstr, "'.")
  elseif (per in this.pals)
    player:Tell($su:nn(per), " is already in your pals-list.")
  else
    this.pals = listappend(this.pals, per)
    player:tell($su:nn(per), " added!")
  endif
elseif (verb == "killpal")
  per = `$su:match_player(dobjstr) ! ANY => #-3'
  if (per == #-3)
    player:tell("No match found for `", argstr, "'.")
  elseif (!(per in this.pals))
    player:Tell($su:nn(per), " isn't in your pals-list.")
  else
    this.pals = listappend(this.pals, per)
    player:tell($su:nn(per), " removed!")
  endif
elseif (verb == "pals")
  set_task_perms(player)
  dudes = this.pals
  connected = connected_players()
  key = {}
  lines = {}
  for dude in (dudes)
    last = dude in connected ? "*** Connected ***" | player:ctime(dude.last_disconnect_time)
    pnum = dude
    plocnum = dude.location
    rank = dude:rank(6)
    lines = {@lines, {dude.name, pnum, dude:rank(6), last, dude.location:msg_who_location(dude), plocnum}}
    key = {@key, $object_utils:connected(dude) ? $maxint - idle_seconds(dude) | dude.last_disconnect_time}
  endfor
  lines = $list_utils:reverse($list_utils:sort(lines, key))
  player:tellColumns("lrlllr", {1, 1, 1, 1, 1, 1}, {"Name", "", "Rank", "Last disconnect", "Location", ""}, @lines)
elseif (verb == "onpals")
  set_task_perms(player)
  dudes = $set_utils:intersection(this.pals, connected_players())
  connected = dudes
  key = {}
  lines = {}
  for dude in (dudes)
    last = `$time_utils:english_time(dude:idle_seconds()) ! ANY => "Error"'
    pnum = dude
    plocnum = dude.location
    rank = dude:rank(6)
    lines = {@lines, {dude.name, pnum, dude:rank(6), last, dude.location:msg_who_location(dude), plocnum}}
    key = {@key, $object_utils:connected(dude) ? $maxint - idle_seconds(dude) | dude.last_disconnect_time}
  endfor
  lines = $list_utils:reverse($list_utils:sort(lines, key))
  player:tellColumns("lrlllr", {1, 1, 1, 1, 1, 1}, {"Name", "", "Rank", "Idle", "Location", ""}, @lines)
endif
"Last modified by Russ (#8043) on Fri Sep 24 16:59:30 1999 MDT."
.