Headgear Hidden Enchant

[MukkiesftKies]

Can help me to modify this script.

 

make list for heagear to slot only. 

example :-

Upper Headgear List:
 - 5105

 - 5106

 - 5107

 

after you select one of them which is in list.
you can put orb inside headgear.

 

prontera,151,166,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;
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] ) ){
    mes "You didnt have this Equipment with you.";
    close;
}
    select(.@EquipMenu$);
    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 .@EquipMenu$, "";
    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 .@EquipMenu$, .@EquipMenu$+getitemname(.@a-1)+" x"+.@c+":";
                set .@b,.@b+1; set .@item[.@b], .@a-1;
            }
            
    if(.@EquipMenu$=="") {
        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(.@EquipMenu$);
    set .@itm, .@item[@menu];
 
    set .@EquipMenu$, ""; set .@a, 0;
    while((set(.@a,.@a+1))<4) {
        if(getequipcardid(.@eq_loc,.@a))
            set .@EquipMenu$, .@EquipMenu$+(.@a+1)+.crd_c$[.@a]+" Slot- [^a92435"+getitemname(getequipcardid(.@eq_loc,.@a))+"^000000]:";
        else set .@EquipMenu$, .@EquipMenu$+(.@a+1)+.crd_c$[.@a]+" Slot- [^30ad25Empty^000000]:";
    }
    
    setarray .@card, getequipcardid(.@eq_loc,0), getequipcardid(.@eq_loc,1), getequipcardid(.@eq_loc,2), getequipcardid(.@eq_loc,3);
    
    mes .npc$;
    mes "Select a slot."; next;
    set .@men, select(.@EquipMenu$);
    set .@eqrf,    getequiprefinerycnt(.@eq_loc);
    if(getequipcardid(.@eq_loc,@menu)) {
        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,.@men),1;
        unequip(.@eq_loc);
        delitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@card[0], .@card[1], .@card[2], .@card[3];
        set .@card[.@men], 0;
        getitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@card[0], .@card[1], .@card[2], .@card[3];
    }
 
    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, .@card[0], .@card[1], .@card[2], .@card[3];
    set .@card[.@men], .@itm;
    getitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@card[0], .@card[1], .@card[2], .@card[3];
    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,    4700, 4862; // Range of IDs selected for enchanting.
     setarray .EquipID[0],      2220,2221,2226,2227,2224,2225,2222,2223,2264,5170;
        //=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}

 

Edited October 10, 2013 by MukkiesftKies

[MukkiesftKies]

bump

[MukkiesftKies]

bumpp

[MukkiesftKies]

bumpss!