Hello Guys, Ive found the Enchanter from Skorm and would like to use it for Shadow Gear :
Im not quite sure whats happening here, befor the eq array way scrambled - it doesnt recognize the shadow Armor, garment etc.
Works fine with Costume Mid etc.
(Smokie Card is just for a test)
prontera,156,191,0 script Special Enchanter 4_PORING,{
mes .npc$;
mes "Hello there!";
mes "I can enchant your items,";
mes "for a small fee of "+.pric+"z.";
emotion e_no1,0; next;
if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; }
if(Zeny<.pric) { mes .npc$; mes "I'm sorry you don't have enough Zeny, please come back later."; close; }
mes .npc$;
mes "Which item would you like to enchant?"; next;
while(set(.@a,.@a+1)<=.e_len) {
if(getequipid(.@a)>-1)
set .@menu$, .@menu$+.eqp$[.@a-1]+"- [^0000FF"+getitemname(getequipid(.@a))+"^000000]:";
else set .@menu$, .@menu$+"^adb4be"+.eqp$[.@a-1]+"- [Empty]^000000:";
}
select(.@menu$);
set .@eq_loc, @menu;
set .@eq_itm, getequipid(.@eq_loc);
if(.@eq_itm<0) {
mes .npc$;
mes "Hmm, I don't think you have anything equipped there.";
close;
}
set .@menu$, "";
set .@a, .en_orb[0];
while((set(.@a,.@a+1)-1)<=.en_orb[1])
if(getiteminfo(.@a-1,2)>-1)
if(set(.@c,countitem(.@a-1))) {
set .@menu$, .@menu$+getitemname(.@a-1)+" x"+.@c+":";
set .@b,.@b+1; set .@item[.@b], .@a-1;
}
if(.@menu$=="") {
mes .npc$;
mes "Hmm, you don't seem to have any enchantment orbs.";
close;
}
mes .npc$;
mes "Please, select an enchantment from the menu."; next;
select(.@menu$);
set .@itm, .@item[@menu];
set .@menu$, ""; set .@a, 0;
while((set(.@a,.@a+1)-1)<4) {
setd(".@crd"+.@a, getequipcardid(.@eq_loc,.@a-1));
if(getequipcardid(.@eq_loc,.@a-1))
set .@menu$, .@menu$+.@a+.crd_c$[.@a-1]+" Slot- [^a92435"+getitemname(getequipcardid(.@eq_loc,.@a-1))+"^000000]:";
else set .@menu$, .@menu$+.@a+.crd_c$[.@a-1]+" Slot- [^30ad25Empty^000000]:";
}
mes .npc$;
mes "Select a slot."; next;
select(.@menu$);
set .@eqrf, getequiprefinerycnt(.@eq_loc);
if(getequipcardid(.@eq_loc,@menu-1)) {
mes .npc$;
mes "Would you like me to remove this card?"; next;
if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; }
getitem getequipcardid(.@eq_loc,@menu-1),1;
delitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@crd1, .@crd2, .@crd3, .@crd4;
setd(".@crd"+@menu, 0);
getitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@crd1, .@crd2, .@crd3, .@crd4;
}
if(rand(100)>.perc) {
mes .npc$;
mes "I'm sorry but I've failed you!";
misceffect 155; emotion e_sob,0;
set Zeny,Zeny-.pric;
close;
}
set Zeny,Zeny-.pric;
delitem .@itm,1;
delitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@crd1, .@crd2, .@crd3, .@crd4;
setd(".@crd"+@menu, .@itm);
getitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@crd1, .@crd2, .@crd3, .@crd4;
misceffect .efet;
emotion e_no1,0;
mes .npc$;
mes "All done!";
equip .@eq_itm;
close;
//NPC Constants
OnInit:
//=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=
set .npc$ , "[^0000FFEnchant Expert^000000]"; // NPC Name
set .pric , 1000000; // Price
set .efet , 154; // Effect Number
set .perc , rand(50,80); // Percent
setarray .crd_c$, "st", "nd", "rd", "th"; // Count
setarray .en_orb, 4044, 4044; // Range of IDs selected for enchanting.
setarray .eqp$ , "Shadow Armor", "Shadow Shoes", "Shadow Garment";
set .e_len , getarraysize(.eqp$);
//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}
Question
trickerytrickery
Hello Guys, Ive found the Enchanter from Skorm and would like to use it for Shadow Gear :
Im not quite sure whats happening here, befor the eq array way scrambled - it doesnt recognize the shadow Armor, garment etc.
Works fine with Costume Mid etc.
(Smokie Card is just for a test)
prontera,156,191,0 script Special Enchanter 4_PORING,{ mes .npc$; mes "Hello there!"; mes "I can enchant your items,"; mes "for a small fee of "+.pric+"z."; emotion e_no1,0; next; if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; } if(Zeny<.pric) { mes .npc$; mes "I'm sorry you don't have enough Zeny, please come back later."; close; } mes .npc$; mes "Which item would you like to enchant?"; next; while(set(.@a,.@a+1)<=.e_len) { if(getequipid(.@a)>-1) set .@menu$, .@menu$+.eqp$[.@a-1]+"- [^0000FF"+getitemname(getequipid(.@a))+"^000000]:"; else set .@menu$, .@menu$+"^adb4be"+.eqp$[.@a-1]+"- [Empty]^000000:"; } select(.@menu$); set .@eq_loc, @menu; set .@eq_itm, getequipid(.@eq_loc); if(.@eq_itm<0) { mes .npc$; mes "Hmm, I don't think you have anything equipped there."; close; } set .@menu$, ""; set .@a, .en_orb[0]; while((set(.@a,.@a+1)-1)<=.en_orb[1]) if(getiteminfo(.@a-1,2)>-1) if(set(.@c,countitem(.@a-1))) { set .@menu$, .@menu$+getitemname(.@a-1)+" x"+.@c+":"; set .@b,.@b+1; set .@item[.@b], .@a-1; } if(.@menu$=="") { mes .npc$; mes "Hmm, you don't seem to have any enchantment orbs."; close; } mes .npc$; mes "Please, select an enchantment from the menu."; next; select(.@menu$); set .@itm, .@item[@menu]; set .@menu$, ""; set .@a, 0; while((set(.@a,.@a+1)-1)<4) { setd(".@crd"+.@a, getequipcardid(.@eq_loc,.@a-1)); if(getequipcardid(.@eq_loc,.@a-1)) set .@menu$, .@menu$+.@a+.crd_c$[.@a-1]+" Slot- [^a92435"+getitemname(getequipcardid(.@eq_loc,.@a-1))+"^000000]:"; else set .@menu$, .@menu$+.@a+.crd_c$[.@a-1]+" Slot- [^30ad25Empty^000000]:"; } mes .npc$; mes "Select a slot."; next; select(.@menu$); set .@eqrf, getequiprefinerycnt(.@eq_loc); if(getequipcardid(.@eq_loc,@menu-1)) { mes .npc$; mes "Would you like me to remove this card?"; next; if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; } getitem getequipcardid(.@eq_loc,@menu-1),1; delitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@crd1, .@crd2, .@crd3, .@crd4; setd(".@crd"+@menu, 0); getitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@crd1, .@crd2, .@crd3, .@crd4; } if(rand(100)>.perc) { mes .npc$; mes "I'm sorry but I've failed you!"; misceffect 155; emotion e_sob,0; set Zeny,Zeny-.pric; close; } set Zeny,Zeny-.pric; delitem .@itm,1; delitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@crd1, .@crd2, .@crd3, .@crd4; setd(".@crd"+@menu, .@itm); getitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@crd1, .@crd2, .@crd3, .@crd4; misceffect .efet; emotion e_no1,0; mes .npc$; mes "All done!"; equip .@eq_itm; close; //NPC Constants OnInit: //=-=-=-=-=-=-=Configuration=-=-=-=-=-=-= set .npc$ , "[^0000FFEnchant Expert^000000]"; // NPC Name set .pric , 1000000; // Price set .efet , 154; // Effect Number set .perc , rand(50,80); // Percent setarray .crd_c$, "st", "nd", "rd", "th"; // Count setarray .en_orb, 4044, 4044; // Range of IDs selected for enchanting. setarray .eqp$ , "Shadow Armor", "Shadow Shoes", "Shadow Garment"; set .e_len , getarraysize(.eqp$); //=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-= }
Found out that if you extend the Array
setarray .eqp$ , "1", "2", "3", "4", "5", "6", "7", "8","9", "10", "11", "12","13","14","15","16","17","18";
It shows the Shadow Armor etc.
Howevery does anyone have a quick fix to only display Shadow Armor/Manteau/Boots in the Menu ?
The array needs to Start at 15, somehow.
Edited by trickerytrickery2 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.