/*callfunc  "Refine_Scrolls",refineamount,itemid,0;
*/
 
function    script  Refine_Scrolls  {
    set .@name$,"^0000ff[Refine Scroll]^000000";
    
    mes .@name$;
    mes "Este Refine Scroll refinará lo que sea";
    mes "con una probabilidad del 100%";
    next;
    mes .@name$;
    mes "Quieres usarlo?";
    next;
    switch(select("Si:No:")){
    case 1:
        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 .@equipped,1;
        }
        set .@menu$, .@menu$ + ":";
    }
        if (.@equipped == 0) {
        mes "[" + getarg(0) + "]";
        mes "I don't think I can refine any items you have...";
        close;
    }
    set .@part, select(.@menu$);
    
    if(!getequipisequiped(.@part)) { //custom check
        mes .@name$;
        mes "You're not wearing";
        mes "anything there that";
        mes "I can refine.";
        emotion e_an;
        close;
    }
    set .@refineitemid, getequipid(.@part); // save id of the item
    set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count
    //Check if the item is refinable...
    if(!getequipisenableref(.@part)) {
        mes .@name$;
        mes "I don't think I can";
        mes "refine this item at all...";
        close;
    }
    //Check to see if the items is already +20
    if(getequiprefinerycnt(.@part) >= 20) {
        mes .@name$;
        mes "I can't refine this";
        mes "any more. This is as";
        mes "refined as it gets!";
        close;
    }
    //custom checks
    if(getequipisequiped(.@part) == 0) { // hacker has removed the item (not changed, why?)
        mes .@name$;
        mes "Look here... you don't have any Items on...";
        close;
        }
    if(getequiprefinerycnt(.@part) != .@refinerycnt || getequipid(.@part) != .@refineitemid) { // hacker has changed the item
        mes .@name$;
        emotion e_an;
        mes "Wait a second...";
        mes "Do you think I'm stupid?!";
        mes "You switched the item while I wasn't looking! Get out of here!";
        close;
        }
 
        mes .@name$;
        mes "En estos momentos sera refinado su ^ff0000"+getitemname(.@refineitemid)+"^000000 + "+getarg(0)+".";
        specialeffect2 96;
        progressbar "ffff00",5;
        //successrefitem .@refineitemid,getarg(1);
        delitem getarg(1),1;
        next;
        mes .@name$;
        mes "Refine Exitoso.";
        close;
    
case 2:
    mes .@name$;
    mes "Usalo cuando te sientas " + (Sex?"seguro":"segura") + "";
    close;
    }
}