@verb #9090:"@addmember @delmember" any any any rdo #7446
@program #9090:"@addmember @delmember" any any any
if (!this:leader(player))
  return player:tell("You do not have a team.")
endif
team = this:leader(player)
todo = $string_utils:match_player(argstr)
if (todo in {#-1, #-2, #-3})
  return player:tell("Bad match.")
endif
if (verb == "@addmember")
  if (todo in this.members[team])
    return player:tell("That person is already a member.")
  elseif (todo in this.tstats[team][4])
    return player:tell("You have already allowed ", todo.name, " to join.")
  else
    this.tstats[team][4] = listappend(this.tstats[team][4], todo)
    return player:tell(todo.name, " now has your permission to join your team.")
  endif
elseif (verb == "@delmember")
  if (todo in this.tstats[team][4])
    this.tstats[team][4] = listdelete(this.tstats[team][4], todo)
    return player:tell(todo.name, " no longer has your permission to join your team.")
  elseif (todo in this.members[team])
    this.members[team] = listdelete(this.members[team], todo)
    return player:Tell(todo.name, " is no longer a member of your team.")
  else
    return player:tell("Nobody by that name is in your team (or has permission to join).")
  endif
endif
.