<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;
}