char list_spells( void );

int list_spells();

char list_spells()

int list_spells()

    int i;

    bool failed = false;

        goto failed_spell;

        failed = true;

    i = get_item_slot();

    int i = get_item_slot();

        goto failed_spell;

        failed = true;

    // cursed weapons become hostile
    if (item_cursed( you.inv[wpn] ) || force_hostile)
        behavi = BEH_HOSTILE; 

    if ( !failed )
    {

    summs = create_monster( MONS_DANCING_WEAPON, numsc, behavi, 
                            you.x_pos, you.y_pos, you.pet_target, 1 );

        // cursed weapons become hostile
        if (item_cursed( you.inv[wpn] ) || force_hostile)
            behavi = BEH_HOSTILE; 
        
        summs = create_monster( MONS_DANCING_WEAPON, numsc, behavi, 
                                you.x_pos, you.y_pos, you.pet_target, 1 );
        if ( summs == -1 )
            failed = true;            
    }

    if (summs < 0)

    if ( failed )

        // must delete the item before failing!
        mitm[i].base_type = OBJ_UNASSIGNED;
        mitm[i].quantity = 0;
        goto failed_spell;

        destroy_item(i);
        if ( wpn != -1 )
            mpr("Your weapon vibrates crazily for a second.");
        else
            msg::stream << "Your " << your_hand(true) << " twitch."
                        << std::endl;
        return;

    return;
failed_spell:
    if ( wpn != -1 )
        mpr("Your weapon vibrates crazily for a second.");
    else
        msg::stream <<"Your " << your_hand(true) << " twitch." << std::endl;

                        goto out_of_raise;

                        // Don't look for more corpses here
                        break;

              out_of_raise:
                objl = 1;

    snprintf(info, INFO_SIZE, "%s%s%s", you.your_name, title, race_class);
    text += info;
    int k = get_number_of_cols() - linelength -1;
    text += std::string(k, ' ');
    snprintf(info, INFO_SIZE, "%s", time_turns);
    text += info;

    text += you.your_name;
    text += title;
    text += race_class;
    text += std::string(get_number_of_cols() - linelength - 1, ' ');
    text += time_turns;

        char *name = new char();
        strcpy(name, you.your_name);

        const std::string old_name = you.your_name;

        strncpy(you.your_name, name, kNameLen);

        // Restore old name        
        strncpy(you.your_name, old_name.c_str(), kNameLen);

static void dart_trap(bool trap_known, int trapped, struct bolt &pbolt, bool poison);

static void dart_trap(bool trap_known, int trapped, bolt &pbolt, bool poison);

static void dart_trap( bool trap_known, int trapped, struct bolt &pbolt, 
                       bool poison )

static void dart_trap(bool trap_known, int trapped, bolt &pbolt, bool poison)

    std::string msg;
    if (random2(10) < 2 || (trap_known && !one_chance_in(4)))

    if (one_chance_in(5) || (trap_known && !one_chance_in(4)))

    msg = "A";
    msg += pbolt.name;
    msg += " shoots out and ";

    std::string msg = "A" + pbolt.name + " shoots out and ";

        goto out_of_trap;

    // note that this uses full ( not random2limit(foo,40) ) player_evasion.
    trap_hit = (20 + (you.your_level * 2)) * random2(200) / 100;
    your_dodge = player_evasion() + random2(you.dex) / 3
                            - 2 + (you.duration[DUR_REPEL_MISSILES] * 10);
    if (trap_hit >= your_dodge && you.duration[DUR_DEFLECT_MISSILES] == 0)

    else

        msg += "hits you!";
        mpr(msg.c_str());

        // note that this uses full ( not random2limit(foo,40) )
        // player_evasion.
        trap_hit = (20 + (you.your_level * 2)) * random2(200) / 100;

        if (poison && random2(100) < 50 - (3 * player_AC()) / 2

        your_dodge = player_evasion() + random2(you.dex) / 3
            - 2 + (you.duration[DUR_REPEL_MISSILES] * 10);
        
        if (trap_hit >= your_dodge && you.duration[DUR_DEFLECT_MISSILES] == 0)
        {
            msg += "hits you!";
            mpr(msg.c_str());
            
            if (poison && random2(100) < 50 - (3 * player_AC()) / 2

            {
                poison_player( 1 + random2(3) );
            }
            
            damage_taken = roll_dice( pbolt.damage );
            damage_taken -= random2( player_AC() + 1 );
            
            if (damage_taken > 0)
                ouch( damage_taken, 0, KILLED_BY_TRAP, pbolt.name.c_str() );
        }
        else

            poison_player( 1 + random2(3) );

            msg += "misses you.";
            mpr(msg.c_str());

        damage_taken = roll_dice( pbolt.damage );
        damage_taken -= random2( player_AC() + 1 );
        if (damage_taken > 0)
            ouch( damage_taken, 0, KILLED_BY_TRAP, pbolt.name.c_str() );

        if (player_light_armour(true) && coinflip())
            exercise( SK_DODGING, 1 );

    else
    {
        msg += "misses you.";
        mpr(msg.c_str());
    }
    if (player_light_armour(true) && coinflip())
        exercise( SK_DODGING, 1 );
  out_of_trap:

    // this flags things to "goto give_armour" below ... {dlb}

        int answer = yesnoquit( info, true, 'n', false );

        const int answer = yesnoquit( info, true, 'n', false );

            // about special cases for carnivorous races (ie kobold)

            // about special cases for carnivorous races (e.g. kobolds)

            // If we have some regular rations, then we're probably be more

            // If we have some regular rations, then we're probably more

#define MAP_SIDE  GXM

#define MAP_SIDE ( (GXM) > (GYM) ? (GXM) : (GYM) )

    for ( int i = 0; i < 6; ++i )

    for ( int iteration = 0; iteration < 6; ++iteration )

    int i;

            i = get_item_slot();

            const int i = get_item_slot();

                goto finished_food;

                continue;

  finished_food:
    int queenx = sr.x1 + random2(sr.x2 - sr.x1);
    int queeny = sr.y1 + random2(sr.y2 - sr.y1);

    const int queenx = sr.x1 + random2(sr.x2 - sr.x1);
    const int queeny = sr.y1 + random2(sr.y2 - sr.y1);

        // If a mimic is on this square, we pretend its the first item -- bwr

        // If a mimic is on this square, we pretend it's the first item -- bwr

        const god_type gi = static_cast<god_type>(i);

        strncpy( name, god_name(static_cast<god_type>(i)), sizeof( name ) );

        strncpy(name, god_name(gi), sizeof(name));

            god = static_cast<god_type>(i);

            god = gi;

static void adjust_spells_cleanup(bool needs_redraw)
{
    if (needs_redraw)
        redraw_screen();
}

    unsigned char index_1, index_2;
    unsigned char nthing = 0;
    bool needs_redraw = false;

  query:

    // Select starting slot

    unsigned char keyin = get_ch();

    if (keyin == '?' || keyin == '*')

    int keyin = 0;
    if ( Options.auto_list )
        keyin = list_spells();
    else

        if (keyin == '*' || keyin == '?')
        {
            nthing = list_spells();
            needs_redraw = true;
        }
        if (isalpha( nthing ) || nthing == ESCAPE)
            keyin = nthing;
        else
        {
            mesclr( true );
            goto query;
        }

        keyin = get_ch();
        if (keyin == '?' || keyin == '*')
            keyin = list_spells();

    if (keyin == ESCAPE)

    
    if ( !isalpha(keyin) )

        adjust_spells_cleanup(needs_redraw);

        return;
    }
    int input_1 = keyin;
    if (!isalpha( input_1 ))
    {
        adjust_spells_cleanup(needs_redraw);
        mpr("You don't know that spell.");

    index_1 = letter_to_index( input_1 );
    spell_type spell = get_spell_by_letter( input_1 ); 

    const int input_1 = keyin;
    const int index_1 = letter_to_index( input_1 );
    spell_type spell = get_spell_by_letter( input_1 );

        adjust_spells_cleanup(needs_redraw);

    mprf( "%c - %s", input_1, spell_title( spell ) );
    mpr( "Adjust to which letter?", MSGCH_PROMPT );

    mprf( "%c - %s", keyin, spell_title( spell ) );

    keyin = get_ch();
    if (keyin == '?' || keyin == '*')

    // Select target slot
    keyin = 0;
    while ( !isalpha(keyin) )

        if (keyin == '*' || keyin == '?')
        {
            nthing = list_spells();
            needs_redraw = true;
        }
        if (isalpha( nthing ) || nthing == ESCAPE)
            keyin = nthing;
        else

        mpr( "Adjust to which letter?", MSGCH_PROMPT );
        keyin = get_ch();
        if (keyin == ESCAPE)

            mesclr( true );
            goto query;

            canned_msg( MSG_OK );
            return;

        if (keyin == '?' || keyin == '*')
            keyin = list_spells();

    if (keyin == ESCAPE)
    {
        adjust_spells_cleanup(needs_redraw);
        canned_msg( MSG_OK );
        return;
    }
    int input_2 = keyin;

    const int input_2 = keyin;
    const int index_2 = letter_to_index( keyin );

    if (!isalpha( input_2 ))
    {
        adjust_spells_cleanup(needs_redraw);
        mpr("What?");
        return;
    }
    adjust_spells_cleanup(needs_redraw);
    index_2 = letter_to_index( input_2 );

    int tmp = you.spell_letter_table[index_2];

    const int tmp = you.spell_letter_table[index_2];

    // print out spell in new slot (now at input_2)
    mprf("%c - %s", input_2, spell_title( get_spell_by_letter(input_2) ) );

    // print out spell in new slot
    mprf("%c - %s", input_2, spell_title(get_spell_by_letter(input_2)));