//===== eAthena Script =======================================
//= Advanced Refiner
//===== By: ==================================================
//= L0ne_W0lf
//===== Current Version: =====================================
//= 1.4
//===== Compatible With: =====================================
//= Eathena SVN
//===== Description: =========================================
//= [Aegis Conversion]
//= Refiner that uses Enriched ores to increase upgrade success.
//= After a conversation with Doddler, it's been established that
//= the advanced refiner works similar the the "Bubble Gum" item.
//= The success percentage is not "increased" however, if it fails
//= You get a second try. This tries twice at the same time,
//= effectively giving you a re-roll on your attempt.
//= - Dialog is only partly official to iRO.
//= - Uses the iRO position for this NPC.
//===== Additional Comments: =================================
//= 1.0 First Version. [L0ne_W0lf]
//= 1.1 Fixed a weird carriage return. o_o [L0ne_W0lf]
//= 1.2 Optimizing refine method [Zephyrus]
//= 1.3 Typo fixes [Yommy]
//= 1.4 Removed unnecessary dialogs [Zephyrus]
//============================================================

payon,174,138,0 script  Suhnbi#cash 85,{
    mes "[Suhnbi]";
    mes "I am the Armsmith";
    mes "I can refine all kinds of weapons,";
    mes "armor and equipment, so let me";
    mes "know what you want to refine.";
    next;

    setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
    set .@menu$,"";
    for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
    {
        if( getequipisequiped(.@i) )
            set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";

        set .@menu$, .@menu$ + ":";
    }
    set .@part,select(.@menu$);

    if( !getequipisequiped(.@part) )
        close;

    if( !getequipisenableref(.@part) )
    {
        mes "[Suhnbi]";
        mes "I don't think I can refine this item at all.";
        close;
    }
    if( !getequipisidentify(.@part) )
    {
        mes "[Suhnbi]";
        mes "This has not been identified. So, it can't be refined...";
        close;
    }
    if( getequiprefinerycnt(.@part) >= 10 )
    {
        mes "[Suhnbi]";
        mes "This item cannot be refined because it has already reached its maximum level...";
        close;
    }

    // Make sure you have the neccessary items and Zeny to refine your items
    // Determines chance of failure and verifies that you want to continue.
    switch( getequipweaponlv(.@part) )
    {
        case 1: callsub S_RefineValidate,1,7620,50,.@part; break;
        case 2: callsub S_RefineValidate,2,7620,200,.@part; break;
        case 3: callsub S_RefineValidate,3,7620,5000,.@part; break;
        case 4: callsub S_RefineValidate,4,7620,20000,.@part; break;
        default: callsub S_RefineValidate,0,7619,2000,.@part; break;
    }

    if( getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100) )
    {
        mes "[Suhnbi]";
        mes "Clink! Clank! Clunk!";
        SuccessRefItem .@part;
        next;
        Emotion e_no1;
        mes "[Suhnbi]";
        mes "Here you are! It's done.";
        mes "It's been a while since I've made such a fine weapon. You must be happy because it has become stronger!";
        close;
    }
    else
    {
        mes "[Suhnbi]";
        mes "Clink! Clank! Clunk!";
        FailedRefItem .@part;
        next;
        if (rand(5) == 1)
            Emotion e_cash;
        else
            Emotion e_omg;
        mes "[Suhnbi]";
        mes "Cough!!!!";
        next;
        mes "[Suhnbi]";
        mes "Cough...Cough..";
        mes "What a shame...";
        mes "Your equipment broke during the refining process. I had told you earlier this might happen!";
        close;
    }

S_RefineValidate:
    mes "[Suhnbi]";
    if (getarg(0))
        mes "A level " + getarg(0) + " weapon...";
    mes "To refine this I need one ^ff9999" + getitemname(getarg(1)) + "^000000 and a service fee of " + getarg(2) + " Zeny.";
    mes "Do you wish to continue?";
    next;
    if( select("Yes:No") == 1 )
    {
        if( getequippercentrefinery(getarg(3)) < 100 )
        {
            mes "[Suhnbi]";
            mes "Wow!!";
            mes "This weapon, probably";
            mes "looks like it's been refined...";
            mes "many times...";
            mes "It may break if";
            mes "you refine it again.";
            next;
            mes "And if it breaks,";
            mes "you can't use it anymore!";
            mes "All the cards in it and the";
            mes "properties";
            mes "^ff0000will be lost^000000!!";
            mes "^ff0000 besides, the equipment will break!^000000";
            mes " ";
            mes "Are you sure you still want to continue?";
            next;
            if( select("Yes:No") == 2 )
            {
                mes "[Suhnbi]";
                mes "I completely agree...";
                mes "I might be a great refiner, but sometimes even I make mistakes.";
                close;
            }
        }
        if( countitem(getarg(1)) > 0 && Zeny > getarg(2) )
        {
            delitem getarg(1), 1;
            set Zeny, Zeny - getarg(2);
            return;
        }
        else
        {
            mes "[Suhnbi]";
            mes "You don't seem to have enough Zeny or " + getitemname(getarg(1)) + "...";
            mes "Go get some more. I'll be here all day if you need me.";
            close;
        }
    }
    else
    {
        mes "[Suhnbi]";
        mes "Yeah... There's no need to rush.";
        mes "Take your time.";
        close;
    }
}