Try this but I don't know if it works I just edited the Lotti Gurl of Mr. Euphy
prontera,150,50,5 script Piercing Expert 968,{
mes "[Piercing Expert]";
mes "I've been researching ways to use Auger of Spirit to put a socket on Elven Ears and Black Devil Mask";
next;
mes "[Piercing Expert]";
menu "Auger of Spirit for Elven Ears [1]",-,"Auger of Spirit for Black Devil Mask [1]",bdm;
if (countitem(.Cost[0]) < .Cost[1]) close;
next;
if(select("Deal me in!:No way...")==2) close;
mes "[Piercing Expert]";
mes "Here we go...";
progressbar "",2;
delitem .Cost[0], .Cost[1];
set .@i, rand(1,.Total);
if (rand(1,100) > getd(".P"+.@i+"[0]")) {
for(set .@j,0; .@j<getarraysize(.Default); set .@j,.@j+2) {
getitem .Default[.@j], .Default[.@j+1];
if (!.@k[0]) setarray .@k[0], .Default[.@j], .Default[.@j+1]; } }
else {
for(set .@j,1; .@j<getarraysize(getd(".P"+.@i)); set .@j,.@j+2) {
getitem getd(".P"+.@i+"["+.@j+"]"), getd(".P"+.@i+"["+(.@j+1)+"]");
if (!.@k[0]) setarray .@k[0], getd(".P"+.@i+"["+.@j+"]"), getd(".P"+.@i+"["+(.@j+1)+"]"); } }
announce "Congratulations to "+strcharinfo(0)+" for getting "+.@k[1]+"x "+getitemname(.@k[0])+"!",0;
specialeffect2 248;
close;
OnInit:
// Format: <%>,<item ID>,<count>{,...};
setarray .P1[0],70,607,1; //607 = YGG change to you Black Devil Mask Id
setarray .Default[0],0,0;
setarray .Cost[0],6396,1;//6396 = Auger of Spirit
set .Total,1;
end;
bdm:
if (countitem(.Cost[0]) < .Cost[1]) close;
next;
if(select("Deal me in!:No way...")==2) close;
mes "[Piercing Expert]";
mes "Here we go...";
progressbar "",2;
delitem .Cost[0], .Cost[1];
set .@i, rand(1,.Total);
if (rand(1,100) > getd(".P"+.@i+"[0]")) {
for(set .@j,0; .@j<getarraysize(.Default); set .@j,.@j+2) {
getitem .Default[.@j], .Default[.@j+1];
if (!.@k[0]) setarray .@k[0], .Default[.@j], .Default[.@j+1]; } }
else {
for(set .@j,1; .@j<getarraysize(getd(".P"+.@i)); set .@j,.@j+2) {
getitem getd(".P"+.@i+"["+.@j+"]"), getd(".P"+.@i+"["+(.@j+1)+"]");
if (!.@k[0]) setarray .@k[0], getd(".P"+.@i+"["+.@j+"]"), getd(".P"+.@i+"["+(.@j+1)+"]"); } }
announce "Congratulations to "+strcharinfo(0)+" for getting "+.@k[1]+"x "+getitemname(.@k[0])+"!",0;
specialeffect2 248;
close;
OnInit:
// Format: <%>,<item ID>,<count>{,...};
setarray .P1[0],70,607,1; //607 = YGG change to you Black Devil Mask Id
setarray .Default[0],0,0;
setarray .Cost[0],6396,1;//6396 = Auger of Spirit
set .Total,1;
end;
}
}