- script Piercing Expert -1,{
mes .@npc_name$ = "[Piercing Expert]";
mes "I have been researching ways to use ^0000FF"+getitemname(.item_cost)+"^000000 to put a socket on some headgear";
next;
switch(select("Headgear List:Piercing:Guide")) {
case 1:
callsub OnMenuGen;
close;
case 2:
break;
case 3:
.@rate$ = ((.rate_setting == 1) ? "but only at "+.success_rate[0]+"%" : "on different");
mes .@npc_name$;
mes "It was successful, "+.@rate$+" success rate.If you are willing to risk it,+" " just bring me an ^0000FF"+getitemname(.itemc_cost)+"^000000 and the headgear.";
next;
mes .@npc_name$;
mes "You can use "+getitemname(.protection)+", it will prevent you lossing item if failed.";
next;
mes .@npc_name$;
mes "You can use "+getitemname(.inc_chance[0])+", it will increase your success chance by "+.inc_chance[1]+"%."; close; }
callsub OnMenuGen;
next;
mes .@npc_name$;
mes "If I fail your "+getitemname(.headgear_list[.@s])+" will be destroyed."+ "Do you still want to have it pierced ?";
next;
if (select("Yes:No") == 2) { mes .@npc_name$;
mes "All right, "+callfunc("F_Bye");
close; }
if (countitem(.protection)) {
mes .@npc_name$;
mes "Do you want to use "+getitemname(.protection)+" ?, it will prevent you lossing item.";
next;
.@p = select("No:Yes") -1; }
if (countitem(.inc_chance[0])) { mes .@npc_name$; mes "Do you want to use "+getitemname(.inc_chance[0])+" ?, it increase your success chance by "+.inc_chance[1]+"%."; next; .@c = select("No:Yes") -1; } .@rate = ((.rate_setting == 1) ? .success_rate[0] : .success_rate[.@s]); .@rate$ = ((.rate_setting == 1) ? .success_rate[0]+"%" : .success_rate[.@s]+"%"); if (.@c) { delitem .inc_chance[0], 1; .@rate += .inc_chance[2]; } if (rand(99) > .@rate) { if (!.@p) delitem .headgear_list[.@s], 1; mes .@npc_name$; mes "Oh, my... I failed."; mes "I todl you it was only "+.@rate$+" chance."; mes "There's always next time!"; close; } if (.@p) delitem .protection, 1; delitem .headgear_list[.@s], 1; getitem .headgear_list2[.@s], 1; mes .@npc_name$; mes "Wow, It was success"; close;OnMenuGen: .@menu$ = ""; for (.@i = 0; .@i < getarraysize(.headgear_list); .@i++) { .@menu$ += getitemname(.headgear_list[.@i])+":"; } mes .@npc_name$; mes "Select a headgear to see different before and after piercing "+((.rate_setting == 2) ? "and Rate" : "")+"."; next; .@s = select(.@menu$) -1; explode(.@item_diff$, .diff_change$[.@s], "|"); mes .@npc_name$; mes getitemname(.headgear_list[.@s])+" Change:"; if (.rate_setting == 2) { mes "Rate: "+.success_rate[.@s]; } mes "Before: "+.@item_diff$[0]; mes "After: "+.@item_diff$[1]; mes "But at least it will now have a socket"; return;OnInit: // rate_setting: // 1 = Chance will only use the first value of .success_rate. // 2 = All headgear will have different chance, set the chance on .success_rate array. .rate_setting = 1; .item_cost = 6396; // item that will be used as piercing price .protection = 501; // item that will be used as portection that will prevent lossing headgear if failed setarray .inc_chance, 502, 10; // <item_id>, <increase chance> setarray .headgear_list, 2286, 18599; // Headgear list that can be pierced setarray .headgear_list2, 18507, 18603; // Headgear list exchange of the pierced headgear setarray .success_rate, 20, 20; setarray .diff_change$, "Have no slot|Have a slot", "All Stats +2, Have no slot|All Stats +1, Have a slot"; // Do not touch it from here, insanity check; if (getarraysize(.headgear_list) != getarraysize(.headgear_list2)) { logmes "Piercing Expert: Error! Different array size on Headgear List."; disablenpc "Piercing Expert;"; end; } if (.rate_setting < 1 || .rate_setting > 2) .rate_setting = 1; if (.rate_setting == 2) { if (getarraysize(.headgear_list) != getarraysize(.success_rate)) { logmes "Piercing Expert: Error! Different size on headgear list ["+getarraysize(.headgear_list)+"] and success rate ["+getarraysize(.succes_rate)+"]"; disablenpc "Piercing Expert"; } } end;}