View/Edit #6565:@AddTeam

Switch to edit mode.

Name(s): @AddTeam
1:  if (!(player in this.trusts))
2:    return player:tell("Sorry, only ", $su:name_list(this.trusts), " may add teams.")
3:  endif
4:  perm = $cmd_utils:yes_or_no("Is this a permanent team? ") ? 1 | 0
5:  if ($cmd_utils:yes_or_no(tostr("Add \"", argstr, "\" ", perm ? "Permanent" | "Temporary", " team? ")))
6:    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}}
7:    ".teams: {name, {fish caught}, weight, 0, 0}"
8:    player:tell("Team \"", argstr, "\" added.")
9:  else
10:   return player:tell("Team not added.")
11: endif
12: "Last modified by James (#6397) on Tue May 26 11:33:07 1998 EDT."

Verb arguments: any any any
Verb perms: Readable NOT-Debug
Verb owned by: James (#6397)

You are not logged in.

[home | help | who | search | setup | code]