// -- Script by Emistry,
// -- 100% Success Per Refine NPC.
// -- Cost 10 Poring Coins [ Default ]

turbo_room,114,98,3     script  Poring Coin Refiner     421,{
set @npcname$,"[^FF0000 100% Refiner^000000 ]";
set @items,7539;                // Item ID
set @amount,10;                 // Amount
E_Refiner:
mes @npcname$;
mes "Which Equipments do you want me to refine for you ? ";
mes "10 Poring Coin is equivalent +1 for 100% refine";
mes "^FF0000100 poring coin = +10 Refine Equipment^000000";
mes " ";
mes "Cost : ^FF0000"+@amount+" "+getitemname(@items)+"^000000";
mes "For ^FF0000100% Succeed^000000 per Refine";
dispbottom "Only Refinable and below +10 EQUIPMENTS will be shown.";
next;
switch(select((getequiprefinerycnt(EQI_HEAD_TOP) == 10 || getequipisenableref(EQI_HEAD_TOP) == 0)?"":"Headgear [ ^0000FF"+getequipname(EQI_HEAD_TOP)+"^000000 ]",                               // Case 1:
                        (getequiprefinerycnt(EQI_ARMOR) == 10 || getequipisenableref(EQI_ARMOR) == 0)?"":"Armor [ ^0000FF"+getequipname(EQI_ARMOR)+"^000000 ]",                         // Case 2:
                        (getequiprefinerycnt(EQI_HAND_L) == 10 || getequipisenableref(EQI_HAND_L) == 0)?"":"Left Hand [ ^0000FF"+getequipname(EQI_HAND_L)+"^000000 ]",                          // Case 3:
                        (getequiprefinerycnt(EQI_HAND_R) == 10 || getequipisenableref(EQI_HAND_R) == 0)?"":"Right Hand [ ^0000FF"+getequipname(EQI_HAND_R)+"^000000 ]",                 // Case 4:
                        (getequiprefinerycnt(EQI_GARMENT) == 10 || getequipisenableref(EQI_GARMENT) == 0)?"":"Garment [ ^0000FF"+getequipname(EQI_GARMENT)+"^000000 ]",                         // Case 5:
                        (getequiprefinerycnt(EQI_SHOES) == 10 || getequipisenableref(EQI_SHOES) == 0)?"":"Footgear [ ^0000FF"+getequipname(EQI_SHOES)+"^000000 ]",                              // Case 6:
                        (getequiprefinerycnt(EQI_HEAD_MID) == 10 || getequipisenableref(EQI_HEAD_MID) == 0)?"":"Mid Headgear [ ^0000FF"+getequipname(EQI_HEAD_MID)+"^000000 ]",                         // Case 7:
                        "^RR0000Cancel^000000")) {
Case 1:
        mes @npcname$;
        if ( countitem(@items) < @amount){
                mes @npcname$;
                mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";
                close;
                }
        mes "Clang...Clang...Clang.....";
        successrefitem EQI_HEAD_TOP;
        delitem @items,@amount;
        next;
        goto E_Refiner;
Case 2:
        mes @npcname$;
        if ( countitem(@items) < @amount){
                mes @npcname$;
                mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";
                close;
                }
        mes "Clang...Clang...Clang.....";
        successrefitem EQI_ARMOR;
        delitem @items,@amount;
        next;
        goto E_Refiner;
Case 3:
        mes @npcname$;
        if ( countitem(@items) < @amount){
                mes @npcname$;
                mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";
                close;
                }
        mes "Clang...Clang...Clang.....";
        successrefitem EQI_HAND_L;
        delitem @items,@amount;
        next;
        goto E_Refiner;
Case 4:
        mes @npcname$;
        if ( countitem(@items) < @amount){
                mes @npcname$;
                mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";
                close;
                }
        mes "Clang...Clang...Clang.....";
        successrefitem EQI_HAND_R;
        delitem @items,@amount;
        next;
        goto E_Refiner;
Case 5:
        mes @npcname$;
        if ( countitem(@items) < @amount){
                mes @npcname$;
                mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";
                close;
                }
        mes "Clang...Clang...Clang.....";
        successrefitem EQI_GARMENT;
        delitem @items,@amount;
        next;
        goto E_Refiner;
Case 6:
        mes @npcname$;
        if ( countitem(@items) < @amount){
                mes @npcname$;
                mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";
                close;
                }
        mes "Clang...Clang...Clang.....";
        successrefitem EQI_SHOES;
        delitem @items,@amount;
        next;
        goto E_Refiner;
Case 7:
        mes @npcname$;
        if ( countitem(@items) < @amount){
                mes @npcname$;
                mes "You must have at least ^FF0000"+@amount+" "+getitemname(@items)+"^000000 to use my services..";
                close;
                }
        mes "Clang...Clang...Clang.....";
        successrefitem EQI_HEAD_MID;
        delitem @items,@amount;
        next;
        goto E_Refiner;
Case 8:
        mes @npcname$;
        mes "Come back again when you have changed your mind.";
        close;

}
}