{\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
}