splendide,181,172,5 script  Athena  640,{
 
while(1) {
    mes "[ Athena ]";
    mes callfunc("F_Hi")+" "+(Sex?"Mr.":"Mrs.")+" "+ strcharinfo(0);
    mes "How can i help you ?";
    next;
    set .@menu$, "- Explanation:- Awakening";
    switch( select( .@menu$ ) ) {
        case 1:
            mes "[ Athena ]";
            mes "Awakening process will cost you ^0000FF"+.cost_amt+"x "+getitemname(.cost_ids)+"^000000 and now you can chose your desired effect.";
            next;
            mes "[ Athena ]";
            mes "^FF0000WARNING!!^000000.";
            mes "Refine Level & Card Exist,";
            mes "In awakened item will be lost.";
            next;
            mes "[ Athena ]";
            mes "Effect List";
            mes "~ Shield: Reduce Damage from Demi Human";
            mes "~ Blade: Increase Physical Damage";
            mes "~ Energy: Increase MaxHP Rate";
            mes "~ Fierce: Increase Long Range Damage";
            mes "~ Mystical: Increase MATK";
            next;
            mes "[ Athena ]"; 
            mes "Upper Headgear Effect";
            mes "~ Single Stats +3";
            mes "~ Reduce Damage from Demi Human by 10%";
            mes "~ Increase Damage to Demi Human by 15%";
            mes "~ Increase Max Hp by 10%";
            mes "~ Increase Long Range Damage by 15%";
            mes "~ Increase Magic Attack by 15%";
            next;
            mes "[ Athena ]";
            mes "Midle Headgear Effect";
            mes "~ Single Stats +3";
            mes "~ Reduce Damage from Demi Human by 7%";
            mes "~ Increase Damage to Demi Human by 10%";
            mes "~ Increase Max Hp by 7%";
            mes "~ Increase Long Range Damage by 10%";
            mes "~ Increase Magic Attack by 10%";
            next;
            mes "[ Athena ]";
            mes "Lower Headgear Effect";
            mes "~ Single Stats +3";
            mes "~ Reduce Damage from Demi Human by 3%";
            mes "~ Increase Damage to Demi Human by 5%";
            mes "~ Increase Max Hp by 3%";
            mes "~ Increase Long Range Damage by 5%";
            mes "~ Increase Magic Attack by 5%";
            next;
            break;
        case 2:
            mes "[ Athena ]";
            if ( getgroupid() < .gm_pass ) {
                if ( countitem(.cost_ids) < .cost_amt ) {
                    mes "At least you should have";
                    mes "^0000FF"+.cost_amt+"x "+getitemname(.cost_ids)+"^000000";
                    mes "to begin awakening process.";
                    close;
                }
            }
            mes "Select headgear category";
            next;
            .@s = select ("Top Headgear:Mid Headgear:Low Headgear");
            set .@menu$,"";
            for(.@i = 0; .@i < getarraysize( getd( ".pos_"+ .@s ) );.@i++)
                set .@menu$, .@menu$+"~ "+getitemname( getd( ".pos_"+ .@s +"["+ .@i +"]" ) )+":";
            .@j = select(.@menu$) - 1;
            .@item_id = getd( ".pos_"+ .@s +"["+ .@j +"]" );
            
            mes "[ Athena ]";
            mes "Select stats type of awakening";
            next;
            .@k = select ("~ STR:~ INT:~ DEX:~ AGI:~ VIT:~ LUK");
            .@stats = getd( ".stats_"+ .@s +"["+ .@k +"]" );
            
            mes "[ Athena ]";
            mes "Select effect type of awakening";
            next;
            .@l = select ("~ Shield:~ Blade:~ Energy:~ Fierce:~ Mystical");
            .@effect = getd( ".effect_"+ .@s +"["+ .@l +"]" );
            
            mes "[ Athena ]";
            mes "Are you sure you want to awaken "+ getitemname( .@item_id ) +" with "+ getitemname(.@stats) +" and "+ getitemname(.@effect) +", Success Chance: "+.rate[ .@s ]+"% ?";
            next;
            if ( select( "Yes", "No" ) == 2 ) {
                mes "[ Athena ]";
                mes "Too bad then, but you were wise save it for any time you see favor you.";
                close;
            }
            close2;
            
            if ( getgroupid() >= .gm_pass ) {
                getitem2 .@item_id, 1, 1, 0, 0, 0, 0, .@stats, .@effect;
                end;
            }
            
            if ( !countitem(.@item_id) ) {
                mes "[ Athena ]";
                mes "Hmm? There's nothing to be awaken!";
                mes "Please bring item you wanna awaken";
                close;
            }
            delitem .cost_ids, .cost_amt;
            message strcharinfo(0), "Awakening in process...";
            progressbar "ffff00",3;
            if ( rand(100) < .rate[ .@s ] ) {
                specialeffect2 EF_REFINEOK;
                specialeffect2 EF_LORD;
                specialeffect2 EF_SANCTUARY;
                delitem .@item_id, 1;
                getitem2 .@item_id, 1, 1, 0, 0, 0, 0, .@stats, .@effect;
            } else
                specialeffect2 EF_REFINEFAIL;
                specialeffect2 EF_SUI_EXPLOSION;
            end;
    }
}
    
OnInit:
    set .gm_pass, 99;
    set .cost_ids, 32001;
    set .cost_amt, 10;
    
    setarray .rate[1], 15, 45, 30;
    
    setarray .pos_1,29943;
    setarray .pos_2,29953;
    setarray .pos_3,29102;
    
    setarray .stats_1[1],4702,4712,4722,4732,4742,4752;
    setarray .stats_2[1],4702,4712,4722,4732,4742,4752;
    setarray .stats_3[1],4702,4712,4722,4732,4742,4752;
    
    setarray .effect_1[1],31951,31952,31953,31954,31955;
    setarray .effect_2[1],31956,31957,31958,31959,31960;
    setarray .effect_3[1],31961,31962,31963,31964,31965;
    end;
}