viewing paste 1 Click Refiner by Euphy | Athena

Posted on the | Last edited on
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
<header> {
setarray .@pos$[1],"Upper Headgear","Armor","Left hand","Right hand","Garment","Footgear","Left Accessory","Right Accessory","Mid Headgear","Lower Headgear";
set .@menu$,"";
for (set .@i,1; .@i <= 10; set .@i,.@i+1)
{
        if (getequipisequiped(.@i))
                set .@menu$, .@menu$+.@pos$[.@i]+" [^0055FF"+getequipname(.@i)+"^000000]";
                set .@menu$, .@menu$+":";
}
set @i, select(.@menu$);
{
        message strcharinfo(0),"Nothing is equipped there!";
        close;
}
if (getarg(0))
{
        if (!getequipisenableref(@i))
        {
                message strcharinfo(0),getequipname(@i)+" cannot be refined.";
                close;
        }
        if (getequiprefinerycnt(@i) >= 10 )
        {
                message strcharinfo(0),"+"+getequiprefinerycnt(@i)+" "+getequipname(@i)+" cannot be refined any further.";
        close;
        }
}
while (getequiprefinerycnt(@i) < 10)
        successrefitem @i;
message strcharinfo(0),"All done!";
}
Viewed 1365 times, submitted by Streusel.