//v 1.2prontera,147,59,5 script Goldberg#0878,{function ordinal_suffix;function f_itm_menu;set .npc$, "["+strnpcinfo(1)+"]"; //NPC Nameset .mode, atoi(strnpcinfo(2));if(!.mode){mes .npc$;mes"Hello there!";mes"I can enchant or remove enchantments";mes"from your 2012 RWC accessory items!"; next;}elseif(.mode<3){mes .npc$;mes"Hello there!";mes"I can add a slot to your RWC";mes"2012 accessory items!";mes"^FF0000Any enchantments over the first";mes"slot will be lost in the process!^000000"; next;}else{mes .npc$;mes"Hello there!";mes"I can slot or enchant your RWC";mes"2012 accessory items!";mes"^FF0000Any enchantments over the first";mes"slot will be lost in the process!^000000"; next;}switch(select(((.mode)?"Chamber Accessory"+((.mode>1)?":Enchant:Remove Enchantments":""):"Enchant:Remove Enchantments")+":Cancel")){case1:if(!.mode){mes .npc$;mes"Which RWC Accessory item would you like to enchant?"; next; f_itm_menu();goto L_Slots;}else{mes .npc$;mes"Which RWC Accessory do you want me to slot?"; next; f_itm_menu();break;}case2:if(!.mode){mes .npc$;mes"Select the RWC Accessory you would like me to remove the enchantments from."; next; f_itm_menu();goto L_RMV;}elseif(.mode>1){mes .npc$;mes"Which RWC Accessory item would you like to enchant?"; next; f_itm_menu();goto L_Slots;}case3:if(.mode>1){mes .npc$;mes"Select the RWC Accessory you would like me to remove the enchantments from."; next; f_itm_menu();goto L_RMV;}case4:goto L_Exit;}if(!compare(.slot$,""+@eq_id)){mes .npc$;mes"That item cannot be slotted.";close;}while(.@i++<=4)setd(".@o_crd"+.@i, getequipcardid(@eq_loc,.@i-1));mes .npc$;mes"Are you sure you wish to continue?";mes"^FF0000There is a "+.pert+"% chance that";mes"the slotting process will fail and";mes"your item will break.^000000"; next;if(select("Yes:No")&2)goto L_Exit;if(rand(100)>=.pert){delitem2 @eq_id, 1, 1, @eq_rf, 0, .@o_crd1, .@o_crd2, .@o_crd3, .@o_crd4;getitem2(@eq_id+1), 1, 1, @eq_rf, 0, 0, .@o_crd2, .@o_crd3, .@o_crd4;misceffect101;sleep21300;misceffect .efet;mes .npc$;mes"Perfection!!";emotione_no1,0;equip @eq_id;}else{delitem2 @eq_id, 1, 1, @eq_rf, 0, .@o_crd1, .@o_crd2, .@o_crd3, .@o_crd4;misceffect101;sleep21300;misceffect .afet;mes .npc$;mes"The metal was too weak and the drill went right through... I'm Sorry!";emotione_sob,0;}close;L_Slots:set .@menu$, ""; set .@a, 0;while(set(.@a,.@a+1)<=4){setd(".@o_crd"+.@a, getequipcardid(@eq_loc,.@a-1));if(getequipcardid(@eq_loc,.@a-1))set .@menu$, .@menu$+ ordinal_suffix(.@a)+" Slot - [^a92435"+getitemname(getequipcardid(@eq_loc,.@a-1))+"^000000]:";elseif(getitemslots(@eq_id)-.@a>=0)set .@menu$, .@menu$+ ordinal_suffix(.@a)+" Slot - [Chambered]:";elseset .@menu$, .@menu$+ ordinal_suffix(.@a)+" Slot - [^30ad25"+((getd(".@crd"+.@a))?"^800080"+getd(".@typ"+.@a+"$"):"Empty")+"^000000]:";}set .@menu$, .@menu$+"[^0000FFEnchant!^000000]";mes .npc$;mes"Select a slot.";mes"Choose '^0000FFEnchant^000000' when you're done!"; next;set .@menu, select(.@menu$)-1;if(getequipcardid(@eq_loc,.@menu)&&getitemslots(@eq_id)-(.@menu+1)<0){if(.remv){mes .npc$;mes"Would you like me to remove this enchantment?"; next;if(select("Yes:No")&2)goto L_Exit;delitem2 @eq_id, 1, 1, @eq_rf, 0, .@o_crd1, .@o_crd2, .@o_crd3, .@o_crd4;setd(".@o_crd"+(.@menu+1), 0);getitem2 @eq_id, 1, 1, @eq_rf, 0, .@o_crd1, .@o_crd2, .@o_crd3, .@o_crd4;equip @eq_id;goto L_Slots;}else{mes .npc$;mes"Sorry I can't do anything with this slot without a "+getitemname(.cure)+"."; next;goto L_Slots;}}elseif(getitemslots(@eq_id)-(.@menu+1)>=0){mes .npc$;mes"I cannot do anything with Chambered slots!"; next;goto L_Slots;}if((.@menu+1)>4){if(!(.@crd1+.@crd2+.@crd3+.@crd4)){mes .npc$;mes"You haven't done anything!";next;goto L_Slots;}mes .npc$;mes"Are you sure you wish to continue?";mes"^FF0000There is a "+.perc+"% chance that";mes"the enchantment will fail and";mes"your item will break.^000000"; next;if(select("Yes:No")&2)goto L_Exit;if(rand(100)>=.perc){delitem2 @eq_id, 1, 1, @eq_rf, 0, .@o_crd1, .@o_crd2, .@o_crd3, .@o_crd4;getitem2 @eq_id, 1, 1, @eq_rf, 0, .@crd1, .@crd2, .@crd3, .@crd4;misceffect101;sleep21300;misceffect .efet;mes .npc$;mes"Wow, that's one strong item!";equip @eq_id;}else{delitem2 @eq_id, 1, 1, @eq_rf, 0, .@o_crd1, .@o_crd2, .@o_crd3, .@o_crd4;misceffect101;sleep21300;misceffect .afet;mes .npc$;mes"I'm sorry, the item wasn't able to support the enchantment and broke!";}close;}set(.@g$,"");if(@eq_id!=2966&&.@menu>1&&@eq_id!=2967){set(.@g$,"1");}elseif(.@menu>1)set(.@g$,"0");select(getd(".menu"+.@g$+(.@menu+1)+"$"));set .itm, ((.@menu==1&&@menu>.t_len)?.itm04[rand(getarraysize(.itm04))]:4700+(((@menu-1)*10)+rand(.limi)));setd(".@crd"+(.@menu+1),getd(".itm"+.@g$+((.@menu>1)?@menu+"["+rand(getarraysize(getd(".itm"+.@g$+@menu)))+"]":"")));setd(".@typ"+(.@menu+1)+"$",getd(".ary"+.@g$+(.@menu+1)+"$["+(@menu-1)+"]"));goto L_Slots;L_RMV:if(!countitem(.cure)){mes .npc$;mes"I'm sorry but you need at least one "+getitemname(.cure)+" before we may continue.";close;}while(.@i++<=4)setd(".@o_crd"+.@i, getequipcardid(@eq_loc,.@i-1));if(!((getitemslots(@eq_id)?0:.@o_crd1)+.@o_crd2+.@o_crd3+.@o_crd4)){mes .npc$;mes"There isn't anything I can remove on that accessory.";close;}mes .npc$;mes"Are you sure that you want to remove your enchantments?";mes"^FF0000This option won't effect your chambered card slot.^000000"; next;if(select("Yes:No")&2)goto L_Exit;misceffect103;delitem(.cure,1);delitem2 @eq_id, 1, 1, @eq_rf, 0, .@o_crd1, .@o_crd2, .@o_crd3, .@o_crd4;getitem2 @eq_id, 1, 1, @eq_rf, 0, (getitemslots(@eq_id)?.@o_crd1:0), 0, 0, 0;mes .npc$;mes"Your enchantments where removed!";close;L_Exit:mes .npc$;mes .message$[rand(getarraysize(.message$))];close; function ordinal_suffix {set(.@i,getarg(0));set(.@j,.@i%10);if(.@j ==1&& .@i !=11)return .@i +"st";if(.@j ==2&& .@i !=12)return .@i +"nd";if(.@j ==3&& .@i !=13)return .@i +"rd";return .@i +"th";} function f_itm_menu {while(set(.@a,.@a+1)<=.e_len){if(compare(.e_itl$[.@a-1],""+getequipid(.e_loc[.@a-1])))set .@menu$, .@menu$+.eqp$[.@a-1]+"- [^0000FF"+getitemname(getequipid(.e_loc[.@a-1]))+"^000000]:";elseset .@menu$, .@menu$+"^adb4be"+.eqp$[.@a-1]+"- [Empty]^000000:";}set @menu, select(.@menu$)-1;set @eq_loc, .e_loc[@menu];set @eq_id, getequipid(@eq_loc);set @eq_rf, getequiprefinerycnt(@eq_loc);if(!compare(.e_itm$,""+@eq_id )){mes .npc$;mes"Sorry I don't recognize that equipment.";close;}}return;//NPC ConstantsOnInit://=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=set .perc , 25; //enchantment fail percentset .pert , 50; //slotting fail percentset .efet , 154; //Success Effect Numberset .afet , 155; //Fail Effect Numberset .remv , 0; //Allows the NPC to remove enchantments without Item. (1=On/0=Off)set .cure , 6665; //Item used to remove enchantmentsset .limi , 3; //Limit for status orb enchantments.setarray .message$, //List of random closing messages."Maybe next time then.","Alright, thanks anyway!","Alright maybe next time then.","Uhm, ok- See you around then.","Wise choice, although you'll probably"+"never get anywhere with that attitude.";set .slot$, "2966|2968"; //Items that can be slotted.setarray .ary1$, "Strength(STR)", "Intelligence(INT)", "Dexterity(DEX)", "Agility(AGI)", "Vitality(VIT)", "Luck(LUK)";copyarray .ary2$[0],.ary1$[0],128;set .t_len, getarraysize(.ary2$);set .ary2$[.t_len], "Health Points";setarray .ary03$, "Fighting Spirit", "Physical Attack Percent(ATK%)", "Maximum Health Points(MHP%)", "Health Points";setarray .itm01 , 4811, 4810, 4809; //Fighting Spiritsetarray .itm02 , 4819, 4766, 4767; //ATK(%)setarray .itm03 , 4861, 4862, 4867; //MHPsetarray .itm04 , 4795, 4796, 4797; //HPcopyarray .ary04$[0],.ary03$[0],128;setarray .ary13$, "Magic Attack Percent(MATK%)", "Casting Rate & Damage(Spell)", "Special Points(SP)";setarray .itm11 , 4760, 4761, 4806; //MATK(%)setarray .itm12 , 4815, 4814, 4813; //Spellsetarray .itm13 , 4870, 4800, 4871; //SPcopyarray .ary14$[0],.ary13$[0],128;setarray .eqp$ , "Accessory1", "Accessory2"; //Menu3set .e_len , getarraysize(.eqp$);setarray .e_itl$, "2966|2967|2968|2969","2966|2967|2968|2969"; //Equip Itemssetarray .e_loc , 7, 8; //Equip Locationsset .e_itm$, implode(.e_itl$,",");set .menu1$, implode(.ary1$,":");set .menu2$, .menu1$+":"+.ary03$[3];set .menu03$, implode(.ary03$,":");set .menu04$, .menu03$;set .menu13$, implode(.ary13$,":");set .menu14$, .menu13$;//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=}prontera,147,61,5 duplicate(Goldberg#0) Driller#187prontera,147,63,5 duplicate(Goldberg#0) Goldentheifberg#387