void do_clans( CHAR_DATA *ch, char *argument ) { CLAN_DATA *clan; PLANET_DATA *planet; int count = 0; int pCount = 0; int support; long revenue; ch_printf( ch, "\n\r&G&B--------------------+------------+------------+-----------+---------+----------+" ); ch_printf( ch, "\n\r&G&CDivision &G&B|&C Leader &G&B|&G&C First &G&B|&G&C Second &G&B|&G&C Members &G&B|&G&C Funds\n\r" ); for ( clan = first_clan; clan; clan = clan->next ) { if ( clan->clan_type == CLAN_CRIME || clan->clan_type == CLAN_GUILD || clan->clan_type == CLAN_SUBCLAN ) continue; pCount = 0; support = 0; revenue = 0; for ( planet = first_planet ; planet ; planet = planet->next ) if ( clan == planet->governed_by ) { support += planet->pop_support; pCount++; revenue += get_taxes(planet); } if ( pCount > 1 ) support /= pCount; ch_printf( ch, "&G&B--------------------+------------+------------+-----------+---------+----------+\n\r" ); ch_printf( ch, "&G&W%-20s&G&B|&z %-10s &G&B|&z %-10s &G&B|&z %-9s &G&B|&z %-7d &G&B|&Y %ld&W&C\n\r", clan->name, clan->leader, clan->number1, clan->number2, clan->members, clan->funds ); if ( clan->first_subclan ) { CLAN_DATA *subclan; for ( subclan = clan->first_subclan ; subclan ; subclan = subclan->next_subclan ) ch_printf( ch, "&G&W%-20s&G&B|&z %-10s &G&B|&z %-10s &G&B|&z %-9s &G&B|&z %-7d &G&B|&Y %ld&W&C\n\r", subclan->name, subclan->leader, subclan->number1, subclan->number2, subclan->members, subclan->funds ); } count++; } ch_printf( ch, "&G&B--------------------+------------+------------+-----------+---------+----------+\n\r" ); for ( clan = first_clan; clan; clan = clan->next ) { if ( clan->clan_type != CLAN_CRIME && clan->clan_type != CLAN_GUILD ) continue; ch_printf( ch, "&G&W%-20s&G&B|&z %-10s &G&B|&z %-10s &G&B|&z %-9s &G&B|&z %-7d &G&B|&Y %ld&W&C", clan->name, clan->leader, clan->number1, clan->number2, clan->members, clan->funds ); ch_printf( ch, "\n\r&G&B--------------------+------------+------------+-----------+---------+----------+\n\r" ); count++; } if ( !count ) { set_char_color( AT_BLOOD, ch); send_to_char( "There are no organizations currently formed.\n\r", ch ); } }