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$);
if (!getequipisequiped(@i))
{
    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!";
close;
}
Viewed 2041 times, submitted by Streusel.