@verb #9090:"@jointeam" any any any rdo #7446
@program #9090:"@jointeam" any any any
if (player in this:allmembers())
  return player:tell("You're already in a team.")
endif
if (!args)
  return player:tell("Usage: @jointeam <team #>      (type \"teams\" for numbers)")
endif
tojoin = argstr
tojoin = toint(argstr)
if (tojoin < 1 || tojoin > length(this.teams))
  return player:tell("Selection must be valid. Type \"teams\" for a list of teams.")
endif
team = this.teams[tojoin]
player:tell("Attempting to join \"", team, "\".")
if (this.tstats[team in this.teams][1] == 1 || player in this.tstats[team in this.teams][4])
  this.members[team in this.teams] = listappend(this.members[team in this.teams], player)
  this.tstats[team in this.teams] = setremove(this.tstats[team in this.teams], player)
  player:tell("Welcome to the ", team, "!")
else
  return player:tell("Sorry, contact the ", team, "'s leader ", this.members[team in this.teams][1].name, " (", this.members[team in this.teams][1], ").")
endif
"Last modified by Dax (#789) on Tue May  3 14:09:37 2005 MDT."
.