@verb #9090:"@addteam" any any any rdo #7446
@program #9090:"@addteam" any any any
if (!(player in this.ppl))
  return
endif
teamname = $cmd_utils:read("in the name of the team")
leader = $cmd_utils:read("in the name of the leader")
leader = $string_utils:match_player(leader)
if (leader == #-3)
  return player:tell("Nobody by that name found.")
elseif (!(leader in this.p))
  return player:tell("That person is not a paintballer.")
elseif (leader in this:allmembers())
  return player:Tell("That person is already in a team.")
elseif (teamname in this.teams)
  return player:Tell("Already a team using that name.")
endif
this.teams = listappend(this.teams, teamname)
this.members = listappend(this.members, {leader})
player:tell("Team \"", teamname, "\" Added. Leader: ", leader.name, " (", leader, ")")
this.tstats = listappend(this.tstats, {0, 0, 0, {}})
.