{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}} {\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 CEDIT( cedit_delete )\par \{\par CLAN_DATA *pClan;\par DESCRIPTOR_DATA *d;\par int i, j, location;\par bool found = FALSE;\par \par EDIT_CLAN (ch, pClan);\par \par for (d = descriptor_list; d; d = d->next)\par \{\par if (d->editor == ED_CLAN && pClan == d->pEdit)\par edit_done (d->character);\par \}\par \par for (i = 0; i < (1 + top_clan); i++)\par \{\par if (clan_table[i].name == pClan->name)\par \{\par found = TRUE;\par location = i;\par break;\par \}\par \}\par \par if (!found)\par \{\par logstr (LOG_BUG, "cedit_delete: clan '%s' not found", pClan->name);\par sendch ("Clan has already been deleted.\\n\\r", ch);\par return FALSE;\par \}\par \par for (i = location; i < (1 + top_clan); ++i)\par \{\par clan_table[i] = clan_table[i + 1];\par clan_table[i].name = clan_table[i + 1].name;\par clan_table[i].who_name = clan_table[i + 1].who_name;\par clan_table[i].leader = clan_table[i + 1].leader;\par \par for (j = 0; j < MAX_RANK; j++)\par clan_table[i].c_rank[j].rankname = clan_table[i + 1].c_rank[j].rankname;\par \par clan_table[i].flags = clan_table[i + 1].flags;\par \}\par \par clan_table[top_clan] = clan_table[0];\par top_clan--;\par \par save_clans(ch, argument); //Updating file\par sendch ("Clan deleted.\\n\\r", ch);\par return TRUE;\par \}\par }