179
@verb #7407:"@addfriend" any any any rdo #7407
@program #7407:"@addfriend" any any any
player != this && raise(E_PERM)
match = $string_utils:match_player(args[1])
if ($command_utils:player_match_failed(match, args[1]))
  return
else
  this.friendlies = setadd(this.friendlies, match)
  player:tell(match:title() + " has been added to your list of friends.")
endif
.

0