[RO] Enchant - Armor

// https://rathena.org/board/messenger/34912/?tab=comments#comment-142576

prontera,155,181,5  script  Enchant 4_F_SE_SUN,{
    mes "^0055FF[ "+strnpcinfo(0)+" ]^000000";
    mes "Do you want to enchant your equipment?";
    getinventorylist;
    for (.@i = 0; .@i < @inventorylist_count; .@i++) {
        if (@inventorylist_equip[.@i] > 0 && @inventorylist_equip[.@i] == EQP_ARMOR)
            .@menu$ = .@menu$ + getitemname(@inventorylist_id[.@i]);
        .@menu$ = .@menu$ + ":";
    }
    next;
    .@i = select(.@menu$) - 1;
    mes "^0055FF[ "+strnpcinfo(0)+" ]^000000";
    if (@inventorylist_card1[.@i] == 455 || @inventorylist_card1[.@i] == 255) {
        mes "I can't enchant a signed equipment";
    }
    else if (@inventorylist_expire[.@i] > 0) {
        mes "I can't enchant a rental equipment";
    }
    else {
        .@item = select(.menu_item_type$) - 1;

        if (.item_id[.@item] > 0) {
            if (countitem(.item_id[.@item]) <= 0) {
                mes "Sorry, you need "+ getitemname(.item_id[.@item]) +" to enchant this armor.";
            }
            else {
                mes "^777777In progress...^000000";
                specialeffect2 EF_MAPPILLAR;
                progressbar "FFFF00",5;
                specialeffect2 EF_WATERBALL3;

                delitem .item_id[.@item], 1;
                delitem2 @inventorylist_id[.@i], 1, @inventorylist_identify[.@i], @inventorylist_refine[.@i], @inventorylist_attribute[.@i], @inventorylist_card1[.@i], @inventorylist_card2[.@i], @inventorylist_card3[.@i], @inventorylist_card4[.@i], @inventorylist_bound[.@i];

                if (.item_id[.@item] == 4771) {
                    @inventorylist_card4[.@i] = .item_id[.@item];
                }
                else {
                    .@rand = rand(.totalchance);
                    while ((.@rand = .@rand - .rate[.@r]) >= 0) .@r++;
                    .@o = rand(1); // orb of str/int/dex ....
                    @inventorylist_card4[.@i] = 4766 + .@o * 6 + .@r;
                }

                if (@inventorylist_bound[.@i]) {
                    getitembound2 @inventorylist_id[.@i], 1, @inventorylist_identify[.@i], @inventorylist_refine[.@i], @inventorylist_attribute[.@i], @inventorylist_card1[.@i], @inventorylist_card2[.@i], @inventorylist_card3[.@i], @inventorylist_card4[.@i], @inventorylist_bound[.@i];
                }
                else {
                    getitem2 @inventorylist_id[.@i], 1, @inventorylist_identify[.@i], @inventorylist_refine[.@i], @inventorylist_attribute[.@i], @inventorylist_card1[.@i], @inventorylist_card2[.@i], @inventorylist_card3[.@i], @inventorylist_card4[.@i];
                }
                equip @inventorylist_id[.@i];
                announce "<SYSTEM> "+strcharinfo(0)+" - "+.item_type$[.@item]+" Enchantment Success!", bc_self;
            }
        }
    }
    close;

    OnInit:
        setarray .item_type$, "VIP", "Bound";
        setarray .item_id, 4771, 26686;

        setarray .rate, 80,50,15,10,5,2; // rate of getting +1 is 55%, +2 is 50% .... +10 is 10% ...

        .@rate_size = getarraysize(.rate);
        for (.@i = 0; .@i < .@rate_size; .@i++)
            .totalchance = .totalchance + .rate[.@i];
        .@item_id_size = getarraysize(.item_id);
        for (.@i = 0; .@i < .@item_id_size; .@i++)
            .menu_item_type$ = .menu_item_type$ + .item_type$[.@i] + ":";
        end;
}