Group Tanks

struct char_data* find_tank(struct char_data* ch)
{
 struct char_data *tch, *next_tch;
 
  /* Auto assist - Find out who the tank is in this room - if none, we just keep scanning */
  for (tch = world[IN_ROOM(ch)].people; tch; tch = next_tch) {
    next_tch = tch->next_in_room;
 
    /* If the person is not fighting, he is not a tank */
    if (!FIGHTING(tch))
      continue;

    /* We are not going to auto assist mobs tanking for us */
    if (IS_NPC(tch))
      continue;

    /* If the person is not in group, no need to find a tank for people to auto assist */
    if (!AFF_FLAGGED(tch, AFF_GROUP))
      continue;

    /* if person is not in a position to be a tank, skip them.  */
    if (GET_POS(tch) != POS_FIGHTING)
      continue;

    /* if you cannot see them, skip them */
    if (!CAN_SEE(tch, ch))
      continue;

    /* Do not want an immortal being the tank */
    if (GET_ADMLEVEL(tch) >= ADMLVL_IMMORT)
     continue;

    /* now find me the tank */
    if (!FIGHTING(FIGHTING(tch)))
     continue;

    if (FIGHTING(FIGHTING(tch)))
      return tch;
   }  
  return NULL;
}

if (!IS_NPC(ch)) {
     if ((tank = find_tank(ch)) != NULL) {
      if (!(master = tank->master))
       master = tank; 
    
    /* now we know the tank and the master, now find the follows and have them auto-assist */
    for (k = master->followers; k; k = k->next) {
     /* skip the person that is tanking for the group */ 
      if (k->follower == tank)
        continue;
      if (!CAN_SEE(k->follower, tank))
        continue;
      /* do not want unsuspecting immortals to auto assist */  
      if (GET_ADMLEVEL(k->follower) >= ADMLVL_IMMORT)
        continue;
      /* If we have an NPC follower or if the person is not flagged auto assist, skip them */
      if (IS_NPC(k->follower) || !PRF_FLAGGED(k->follower, PRF_AUTOASSIST))
        continue;
      /* Sanity check, if for some odd reason the follower is not in the same room now as the tank, skip them */
      if (IN_ROOM(tank) != IN_ROOM(k->follower))
        continue;
      /* if person is not in a position to assist, skip them.  */
      if (GET_POS(k->follower) != POS_STANDING)
        continue;
      /* skip if they are already fighting */
      if (FIGHTING(k->follower))
        continue;
      /* Now assist! */   
      do_assist(k->follower, GET_NAME(tank), 0, 0);
      k->follower->char_specials.timer = 0;
    }

    /* Auto assist the tank with the master of the group - if set for auto assist */
    if (!FIGHTING(master) && (master != tank)) {
      if (PRF_FLAGGED(master, PRF_AUTOASSIST))
       if (IN_ROOM(master) == IN_ROOM(tank))
        if (GET_POS(master) == POS_STANDING) {
          do_assist(master, GET_NAME(tank), 0, 0);
          master->char_specials.timer = 0;
        }
    }
   }
  } /* End of AutoAssist */
 } else
   stop_fighting(ch);

void char_from_room(struct char_data *ch)
{
  struct char_data *temp, *i;

  if (ch == NULL || !VALID_ROOM_RNUM(IN_ROOM(ch))) {
    log("SYSERR: Extracting char from room NOWHERE. (char_from_room)");
    exit(1);
  }

  if (GET_EQ(ch, WEAR_LIGHT))
    if (GET_OBJ_TYPE(GET_EQ(ch, WEAR_LIGHT)) == ITEM_LIGHT)
      if (GET_OBJ_VAL(GET_EQ(ch, WEAR_LIGHT), 2)) /* Light is ON */
        world[IN_ROOM(ch)].light--; 

 [b] if (ch == world[IN_ROOM(ch)].people)
    world[IN_ROOM(ch)].people = ch->next_in_room;
  else {
    if (world[IN_ROOM(ch)].people) {
      for (i = world[IN_ROOM(ch)].people; i != NULL && i->next_in_room != ch ; i = i->next_in_room)
        ;
        if (i != NULL) {
          i->next_in_room = ch->next_in_room;
        }
    }
  }[/b]

  if (FIGHTING(ch)) {
   if (FIGHTING(FIGHTING(ch)) == ch)
     stop_fighting(FIGHTING(ch));
   stop_fighting(ch);
  }
      
  if (AFF_FLAGGED(ch, AFF_GROUP))
   unaffect_group(ch, FALSE);

  REMOVE_FROM_LIST(ch, world[IN_ROOM(ch)].people, next_in_room);
  IN_ROOM(ch) = NOWHERE;
  ch->next_in_room = NULL;
}

} else if (is_abbrev(buf, "tank")) {
    skip_spaces(&argument);
    if (!GROUP(ch) ) {
      send_to_char(ch, "But you are not part of a group.\r\n");
      return;
    } else if (GROUP_LEADER(GROUP(ch)) != ch ) {
      send_to_char(ch, "Only the group's leader can designate the tank.\r\n");
      return;
    } else if (!*argument) {
      send_to_char(ch, "You have to specify the group TANK!\r\n");
      return;
    } else if (!(vict = get_char_vis(ch, argument, NULL, FIND_CHAR_ROOM))) {
      send_to_char(ch, "The tank role has been removed from your group.\r\n");
      GROUP_TANK(GROUP(ch)) = NULL;
      return;
    } else if (!vict) {
      send_to_char(ch, "There is no one by that name in this room!.\r\n");
      return;
    } else if (GROUP(vict) != GROUP(ch)) {
      act("$E$u is not a member of your group!", FALSE, ch, 0, vict, TO_CHAR);
      return;
    }
    send_to_group(vict, GROUP(ch), "%s has been designated as the tank.\r\n", GET_NAME(vict));
    send_to_char(vict, "You are the designated tank!\r\n"); 
    GROUP_TANK(GROUP(ch)) = vict;
//    set_tank_followers(ch);

if (GROUP(i)) {
    if (GROUP(i) == GROUP(ch))
      send_to_char(ch, "(%s%s%s) ", CBGRN(ch, C_NRM),
        GROUP_LEADER(GROUP(i)) == i ? "leader" : GROUP_TANK(GROUP(i)) ? "Tank" : "group",
        CCNRM(ch, C_NRM));
    else
      send_to_char(ch, "(%s%s%s) ", CBRED(ch, C_NRM),
        GROUP_LEADER(GROUP(i)) == i ? "leader" : GROUP_TANK(GROUP(i)) ? "Tank" : "group",
        CCNRM(ch, C_NRM));
  }
     
  if (IS_NPC(i) && i->player.long_descr && GET_POS(i) == GET_DEFAULT_POS(i)) {

void set_tank_followers(struct char_data *ch, struct char_data *victim)
{
  struct follow_type *f;
  struct char_data *Tank, *TempMoveChar;
  

  for (f = ch->followers; f; f = f->next) 
    Tank = f->follower;

  TempMoveChar = Tank;
  Tank = victim;

  if (ch->followers) {
    for (f = ch->followers; f; f = f->next) {
      if (f->follower == victim) {
         f->follower = 0;
      }
    }
  }

  if (ch->followers) {
    for (f = ch->followers; f; f = f->next) {
       if (f->follower == TempMoveChar)
          f->follower = victim;
       
       if (f->follower == 0) 
          f->follower = TempMoveChar;
   }
  }

  if (ch->followers) {
   for (f = ch->followers; f; f = f->next) {
      if (f->follower != ch) {
        act ("$N has reordered the follow list.", FALSE, f->follower, 0, ch, TO_CHAR);
        do_group (f->follower, "", 0, 0);
      } 
    }
  }   
  act ("You reorder the follow list.", FALSE, ch, 0, ch, TO_CHAR);

}

 } else if (is_abbrev(buf, "tank")) {
    skip_spaces(&argument);
    if (!GROUP(ch) ) {
      send_to_char(ch, "But you are not part of a group.\r\n");
      return;
    } else if (GROUP_LEADER(GROUP(ch)) != ch ) {
      send_to_char(ch, "Only the group's leader can designate the tank.\r\n");
      return;
    } else if (!*argument) {
      send_to_char(ch, "You have to specify the group TANK!\r\n");
      return;
    } else if (!(vict = get_char_vis(ch, argument, NULL, FIND_CHAR_ROOM))) {
      send_to_char(ch, "The tank role has been removed from your group.\r\n");
      GROUP_TANK(GROUP(ch)) = NULL;
      return;
    } else if (!vict) {
      send_to_char(ch, "There is no one by that name in this room!.\r\n");
      return;
    } else if (GROUP(vict) != GROUP(ch)) {
      act("$E$u is not a member of your group!", FALSE, ch, 0, vict, TO_CHAR);
      return;
    }
    send_to_group(vict, GROUP(ch), "%s has been designated as the tank.\r\n", GET_NAME(vict));
    send_to_char(vict, "You are the designated tank!\r\n"); 
    GROUP_TANK(GROUP(ch)) = vict;
    set_tank_followers(ch, vict);
  } else if (is_abbrev(buf, "leave")) {