How to edit this enchanting script?

[mtsqy]

I got this script from : 

https://rathena.org/board/topic/85047-enchanter-that-can-enchant-1st-to-4th-slot/

prontera,194,188,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 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 .eqp$ ,    "Upper Headgear", "Armor", "Left Hand", "Right Hand", "Garment",
             "Shoes", "Accessory1", "Accessory2", "Mid Headgear", "Low Headgear";
        set .e_len ,    getarraysize(.eqp$);
        //=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}

This script can enchant Headgear(top,mid,low),armor,garment,shield,footgear,acc.

How to edit that script, I want to make it just can enchant costume(top,mid,low)

 

Sorry for my bad english

I'm newbie here 

Thanks for the help