R> Refine Scroll item.

[vijay30393]

Hello rAthena.
I'm requesting for a item script.
It should be a usable item, when we consume, it much show the refineable items such as:

 

Only these items.

Head gear.
Top gear.
Left/Right hand.
Boots.
Armors.
Mufflers.
 
The usable scroll item must refine +1 until the item is +10.

 

If anyone knows a way, please do comment.
Thanks!

I found a way myself!

function    script    RefineScroll    {
            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)) {
        getitem 542,1;
        dispbottom "You're not wearing anything there that refines!";
        close;
    }
    //Check if the item is refinable...
    if(!getequipisenableref(.@part)) {
        getitem 542,1;
        dispbottom "There is no way that this item could be refined!";
        close;
    }
    //Check if the item is identified... (Don't know why this is in here... but kept it anyway)
    if(!getequipisidentify(.@part)) {
        getitem 542,1;
        dispbottom "You can't refine this if you haven't appraised it first. Make sure your stuff is identified before refining it.";
        close;
    }
    //Check to see if the items is already +10
    if(getequiprefinerycnt(.@part) >= 10) {
        getitem 542,1;
        dispbottom "I can't refine this any more. This is as refined as it gets!";
        close;
    }
        
        successrefitem .@part;
        dispbottom "There you go, Refine Scroll works like a charm :D";
        close;
    }
}

Edited July 20, 2015 by vijay30393