Someone help me

[- Mariel 2]

Can someone help me with this ? I just want it to enchant armors and in the 4th slot of it.

 

prontera,111,75,4	script	Enchant Expert	712,{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 ConstantsOnInit://=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=set      .npc$  , "[^0000FFEnchant Expert^000000]"; // NPC Nameset      .pric  , 1000000;                          // Priceset      .efet  , 154;                              // Effect Numberset      .perc  , rand(100,100);                      // Percentsetarray .crd_c$, "st", "nd", "rd", "th";            // Countsetarray .en_orb, 4702,4732,4742,4712,4722,4752;                   // Range of IDs selected for enchanting.setarray .eqp$  , "Upper Headgear", "Armor", "Left Hand","Garment",                "Shoes";set      .e_len , getarraysize(.eqp$);//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=}

 

Solved. Configured it myself. 

[- Mariel 2]

Hello,

 

It will be awesome if you will share your solution here and please take time to read our Hercules Forum Rules.

Thank you. Did I violate any specific rule ? 

 

invek,109,184,5	script	Armor Enchant	430,{mes "Which Armor you want to Enchant?";mes "Make sure there is no Card/Rune in it.";next;switch(select("Non Slotted Armor.:Slotted Armor.:High Grade Armor.:Maybe next time.")) {		case 1:			setarray .EquipID[0],2307,2309,2314,2316,2321,2325,2327,2328,2330,2332,2334,2335,2341,2344,2346,2348,2350,2337,2386,2394,2395,2396;			break;		case 2:			setarray .EquipID[0],2311,2318,2319,2320,2308,2310,2315,2317,2322,2324,2326,2331,2333,2336,2342,2345,2347,2349,2351;			break;		case 3:			setarray .EquipID[0],2364,2365,2391,2374,2375,2376,2377,2378,2379,2380,2381,2382,2387,2388,2389,2390;			break;		case 4:			mes "[Armor Enchanter]";			mes "Please come back when you have any interest in enchanting your armor.";			close;		}for( set .@i,0; .@i < getarraysize( .EquipID ); set .@i,.@i + 1 ){set .@EquipMenu$,.@EquipMenu$ + getitemname( .EquipID[.@i] )+( !getitemslots(.EquipID[.@i])?"":"["+getitemslots(.EquipID[.@i])+"]" )+":";}set .@Equip,select( .@EquipMenu$ ) - 1;if( !countitem( .EquipID[.@Equip] ) || countitem( 7227 ) < 5 ){mes "You didnt have this Equipment with you or you didnt have enough of 5 "+getitemname( 7227 );close;}mes "Equipment : ^FF0000"+getitemname( .EquipID[.@Equip] )+"^000000";switch( select( "Strength:Intelligent:Dexterity:Agility:Vitality:Luck" )){case 1: setarray .RuneID[0],4700,4701,4702; break;case 2: setarray .RuneID[0],4710,4711,4712; break;case 3: setarray .RuneID[0],4720,4721,4722; break;case 4: setarray .RuneID[0],4730,4731,4732; break;case 5: setarray .RuneID[0],4740,4741,4742; break;case 6: setarray .RuneID[0],4750,4751,4752; break;}for( set .@i,0; .@i < getarraysize( .RuneID ); set .@i,.@i + 1 ){set .@RuneMenu$,.@RuneMenu$ + getitemname( .RuneID[.@i] )+":";}set .@Rune,select( .@RuneMenu$ ) - 1;mes "Rune : ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";mes "Cost : ^FF0000"+( 5 )+"^000000 TCG";if( countitem( .RuneID[.@Rune] ) < 1 ){mes "You didnt have the said orb.";close;}next;if( select("Confirm:Cancel") == 1 ){getitem2 .EquipID[.@Equip],1,1,0,0,0,0,0,.RuneID[.@Rune];delitem .EquipID[.@Equip],1;delitem 7227,5;delitem (.RuneID[.@Rune]),1;mes "Done.";mes "^0000FF"+getitemname( .EquipID[.@Equip] )+"^000000";mes "Enchanted with ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";close;}}

Solved

[Mhalicot 392]

Hello,

 

It will be awesome if you will share your solution here and please take time to read our Hercules Forum Rules.