bool spell_typematch(int which_spell, unsigned int which_discipline);
unsigned int get_spell_type( int which_spell ); //jmf: simplification of above

bool spell_typematch(spell_type which_spell, unsigned int which_discipline);
unsigned int get_spell_type( spell_type which_spell );

bool spell_typematch(int which_spell, unsigned int which_discipline)

bool spell_typematch(spell_type which_spell, unsigned int which_discipline)

unsigned int get_spell_type(int spell)

unsigned int get_spell_type(spell_type spell)

// this will probably be used often, so rather than use malloc/free
// (which may lead to memory fragmentation) I'll just use a static
// array of characters -- if/when the String changeover takes place,
// this will all shift, no doubt {dlb}
/*
  const char *spell_title( int which_spell )
  {
  static char this_title[41] = ""; // this is generous, to say the least {dlb}
  strncpy(this_title, seekspell(which_spell)->title, 41);
  // truncation better than overrun {dlb}
  return ( this_title );
  }         // end spell_title()
*/

            // Slight differece here over the basic algorithm...

            // Slight difference here over the basic algorithm...

            // chosen element can end up in are it's original

            // chosen element can end up in are its original

const char* spelltype_short_name( int which_spelltype ) {

const char* spelltype_short_name( int which_spelltype )
{

    static char bug_string[80];

        snprintf( bug_string, sizeof(bug_string), 
                  "invalid(%d)", which_spelltype );
        return (bug_string);

        return "Buggy";

    char buffer[80];

        snprintf( buffer, sizeof(buffer), 
                  "spell_type2skill: called with spelltype %d", spelltype );
        mpr( buffer );

#ifdef DEBUG_DIAGNOSTICS
        mprf(MSGCH_DIAGNOSTICS, "spell_type2skill: called with spelltype %u",
             spelltype );
#endif

static int apply_vehumet_wizardry_boost(int spell, int chance)

static int apply_vehumet_wizardry_boost(spell_type spell, int chance)

static bool spell_is_uncastable(int spell)

static bool spell_is_uncastable(spell_type spell)

    if (you.is_undead && spell_typematch( spell, SPTYP_HOLY ))

    if (you.is_undead && spell_typematch(spell, SPTYP_HOLY))

char book_rarity(unsigned char which_book);

int book_rarity(unsigned char which_book);

bool is_valid_spell_in_book( unsigned int splbook, int spell );

bool is_valid_spell_in_book( int splbook, int spell );

bool undead_cannot_memorise(unsigned char spell, unsigned char being);

bool undead_cannot_memorise(spell_type spell, char being);

char book_rarity(unsigned char which_book)

int book_rarity(unsigned char which_book)

bool is_valid_spell_in_book( unsigned int splbook, int spell )

bool is_valid_spell_in_book( int splbook, int spell )

bool undead_cannot_memorise(unsigned char spell, unsigned char being)

bool undead_cannot_memorise(spell_type spell, char being)

        default:
            return false;

        default:
            return false;

      create_book:

            if (book_rarity(mitm[p].sub_type) == 100)
                continue;

            if (mitm[p].sub_type != BOOK_DESTRUCTION &&
                mitm[p].sub_type != BOOK_MANUAL &&
                book_rarity(mitm[p].sub_type) != 100 &&
                one_chance_in(10))
            {
                mitm[p].sub_type = coinflip() ? BOOK_WIZARDRY : BOOK_POWER;
            }

            if (mitm[p].sub_type != BOOK_DESTRUCTION
                && mitm[p].sub_type != BOOK_MANUAL)

            if (!one_chance_in(100) &&
                random2(item_level+1) + 1 < book_rarity(mitm[p].sub_type))

                if (one_chance_in(10))
                {
                    if (coinflip())
                        mitm[p].sub_type = BOOK_WIZARDRY;
                    else
                        mitm[p].sub_type = BOOK_POWER;
                }
                if (random2(item_level + 1) + 1 >= book_rarity(mitm[p].sub_type)
                    || one_chance_in(100))
                {
                    break;
                }
                else
                {
                    mitm[p].sub_type = BOOK_DESTRUCTION;
                    continue;
                }

                mitm[p].sub_type = BOOK_DESTRUCTION; // continue trying

        while (mitm[p].sub_type == BOOK_DESTRUCTION
                   || mitm[p].sub_type == BOOK_MANUAL);
        if (book_rarity(mitm[p].sub_type) == 100)
            goto create_book;

        while (mitm[p].sub_type == BOOK_DESTRUCTION ||
               mitm[p].sub_type == BOOK_MANUAL ||
               book_rarity(mitm[p].sub_type) == 100);