Piercing Expert

[imajhaynation]

can i request a script that socket midgears like elven

link of sample

http://ragnarok.levelupgames.ph/main/piercing-npc-guide/

like this ?

[Sryx]

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

}

[imajhaynation]

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;

OnInit2:
// Format: <%>,<item ID>,<count>{,...};
setarray .P1[0],20,2204,1; // 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; 

still getting the slotted elven ears >.<

Edited December 23, 2012 by imajhaynation