526
@verb #16:"@add-second @addsecond" any at/to any rdo #55
@program #16:"@add-second @addsecond" any at/to any
if (player != this)
  return $msg:mtell("huh")
endif
primary = $string_utils:match_player(iobjstr)
second = $string_utils:match_player(dobjstr)
"Start by registering it."
if (second.primary_character != #-1)
  return player:tell($string_utils:nn(second), " is already a registered second of ", $string_utils:nn(second.primary_character), ".")
endif
if (n = length(primary.second_characters) != 0)
  player:tell($string_utils:nn(primary), " already has ", n, " registered seconds (", $string_utils:nn_list(primary.second_characters), ").")
  while (`a = $command_utils:y_or_n("Do you want to continue?") ! E_INVARG' == E_INVARG)
  endwhile
  if (!a)
    return
  endif
endif
"Now, nuke the quota of the secondary character."
second.max_vm = 0
second.max_obj = 0
second.max_fs = 0
second.primary_character = primary
primary.second_characters = setadd(primary.second_characters, second)
player:tell("Secondary character registered.")
"Last modified by Dax (#789) on Mon Dec 10 21:09:54 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.

0