//===== eAthena Script =======================================
//= Guarantee Refine Ticket
//===== By: ==================================================
//= Euphy / GM Takumirai
//===== Current Version: =====================================
//= 1.1a
//===== Description: =========================================
//= Uses [Guarantee Refine Ticket] to refine weapons/armor.
//============================================================
 
function    script  GuaranteeRefine {
 
    set .@CleanEquip,1; // Only refine +0 equipment? (1:yes / 0:no)
 
    if (!getarg(1)) {
        message strcharinfo(0)," ~~ Guarantee Refine Ticket +"+getarg(0)+" ~~ ";
        for(set .@i,1; .@i<=10; set .@i,.@i+1) {
            if (getequipisequiped(.@i) && !getiteminfo(getequipid(.@i),13)) set .@menu$, .@menu$+getequipname(.@i);
            set .@menu$, .@menu$+":"; }
        set .@s, select(.@menu$); }
    else set .@s, getarg(1);
    if (!getequipisequiped(.@s)) {
        dispbottom "Nothing is equipped!"; close; }
    if (!getequipisenableref(.@s)) {
        dispbottom getequipname(.@s)+" cannot be refined."; close; }
    if (getequiprefinerycnt(.@s) >= 20 || (.@CleanEquip && getequiprefinerycnt(.@s))) {
        dispbottom "+"+getequiprefinerycnt(.@s)+" "+getequipname(.@s)+" cannot be refined any further."; close; }
    if (getarg(1)) message strcharinfo(0)," ~~ Guarantee Refine Ticket +"+getarg(0)+" ~~ ";
    if(select("^0055FFRefine +"+getequiprefinerycnt(.@s)+" "+getequipname(.@s)+":^777777Cancel^000000")==2) close;
//  pcblockmove getcharid(3),1;
    specialeffect2 348;
    progressbar "",2;
    if (!countitem(getarg(2))) {
        dispbottom "Refine failed. Ticket not found."; close; }
    for(set .@i,0; .@i<getarg(0); set .@i,.@i+1) {
        if (getequiprefinerycnt(.@s) >= 20) break;
        successrefitem .@s; }
    delitem getarg(2),1;
//  pcblockmove getcharid(3),0;
    close;
}