R>2 TCG PER +10 REFINE

[iTribal]

IM REQUESTING FOR 2 TCG PER +10 REFINE

[Joseph]

<header>,{
for (set .@i,1; .@i <= 10; set .@i,.@i + 1)
set .@m$,.@m$+((getequipisequiped(.@i)&&getequipisenableref(.@i)&&getequiprefinerycnt(.@i)<10)?getequipname(.@i):"")+":";
set .@m,select(.@m$); setarray .@r,7227,2;
if (countitem(.@r)<.@r[1]) dispbottom .@r[1]+" x "+getitemname(.@r)+" per +10 refine!";
else { delitem .@r,.@r[1]; while (getequiprefinerycnt(.@m)<10) successrefitem .@m; }
close;
}