@verb #6565:"@AddTeam" any any any rdo #6397
@program #6565:"@AddTeam" any any any
if (!(player in this.trusts))
  return player:tell("Sorry, only ", $su:name_list(this.trusts), " may add teams.")
endif
perm = $cmd_utils:yes_or_no("Is this a permanent team? ") ? 1 | 0
if ($cmd_utils:yes_or_no(tostr("Add \"", argstr, "\" ", perm ? "Permanent" | "Temporary", " team? ")))
  this.teams = {@this.teams, {argstr, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 0, perm, 0}}
  ".teams: {name, {fish caught}, weight, 0, 0}"
  player:tell("Team \"", argstr, "\" added.")
else
  return player:tell("Team not added.")
endif
"Last modified by James (#6397) on Tue May 26 11:33:07 1998 EDT."
.