Utility: Enchant Equip

[DarthGabriel]

File Name: Enchant Equip

File Submitter: DarthGabriel

File Submitted: 08/08/2017

File Category: Utilities

Content Author: DarthGabriel

 

 

Taking a npc that hung on the forum, was improved and edited to make it work in a special way for all of you.

Spoiler

//===== rAthena Script =======================================
//= Enchant Equipaments
//===== By: ==================================================
//= ZadKiel
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
//= rAthena Project
//===== Description: =========================================
//I Take idea of players of rathena forum and enchant arms npc
//This NPC Use Muscovite to move the npc.
//= Enchant your equipments
//===== Additional Comments: =================================
//= 1.1 Release Script
//= 1.2 Solved Problem with Shield 
//============================================================
prontera,149,263,5    script    Enchant Augmentation    100,{
    disable_items;
    mes "If Do you want to enchant your equipment ?";
    mes "Requeriments:";
    mes "1. Muscovite";
    next;
    if(countitem(7292) >= 1) goto L_ITEM_1c;
    mes "Muscovite is dropped by Tirfing / Ogretooth";
    mes "Tirfing / Ogretooth is spawned on:";
    mes "Clock Tower B4";
    mes "Geffenia Maps";
    mes "Geffen Dungeon F2";
    mes "Glast Heim 1F";
    mes "Glast Heim 2F";
    close;
L_ITEM_1c:
    next;
    [email protected] = select( .menu$ ) -1;
    if ( !getequipisequiped( .const_equip[[email protected]] )) {
L_ITEM_3c:
        mes "you did not equip an "+ .menu_name$[[email protected]] +" at the moment";
        close;
    }
    if (.const_equip[[email protected]] == EQI_HAND_L) {
        switch (getequipweaponlv(EQI_HAND_L)) {
            case 0: goto L_ITEM_2c; break;
            default: goto L_ITEM_3c; break;
        }
    }
L_ITEM_2c:
    [email protected] = getequipid( .const_equip[[email protected]] );
    [email protected] = getequiprefinerycnt( .const_equip[[email protected]] );
    [email protected] = getequipcardid( .const_equip[[email protected]], 0 );
    [email protected] = getequipcardid( .const_equip[[email protected]], 1 );
    [email protected] = getequipcardid( .const_equip[[email protected]], 2 );
    [email protected] = getequipcardid( .const_equip[[email protected]], 3 );
    if ( [email protected] == 255 || [email protected] == 254 ) {
        mes "I can't enchant a signed equipment";
        close;
    }
    if ( [email protected] ) {
        mes "this armor has already been enchanted";
        close;
    }
    
    [email protected] = rand(4700,4767);
    delitem 7292,1;
    delitem2 [email protected], 1,1, [email protected], 0, [email protected], [email protected], [email protected], 0;
    getitem2 [email protected], 1,1, [email protected], 0, [email protected], [email protected], [email protected], [email protected];
    close;
OnInit:
    set [email protected],4700;
    setarray .const_equip, EQI_ARMOR, EQI_HAND_L, EQI_GARMENT, EQI_SHOES;
    setarray .menu_name$, "Armor", "Shield", "Garment", "Shoes";
    .menu$ = implode( .menu_name$,":" );
    end;
}

 

enchant_equip.txt

enchant_equip 1-2.txt

Edited August 9, 2017 by DarthGabriel