Jump to content
  • 0

Shadow Enchanter, Need a Quick Hand

trickerytrickery

Asked by trickerytrickery,

 Share

Question

trickerytrickery Poring

trickerytrickery

Posted
Posted (edited)

Hello Guys, Ive found the Enchanter from Skorm and would like to use it for Shadow Gear :

 

Im not quite sure whats happening here, befor the eq array way scrambled - it doesnt recognize the shadow Armor, garment etc.

Works fine with Costume Mid etc.

 

(Smokie Card is just for a test) 

prontera,156,191,0      script  Special Enchanter       4_PORING,{
        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,       4044, 4044;                       // Range of IDs selected for enchanting.
                setarray .eqp$  ,       "Shadow Armor", "Shadow Shoes", "Shadow Garment";
                set      .e_len ,       getarraysize(.eqp$);
                //=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}

 

 

Found out that if you extend the Array 

setarray .eqp$  ,    "1", "2", "3", "4", "5", "6", "7", "8","9", "10", "11", "12","13","14","15","16","17","18";
 

It shows the Shadow Armor etc.

Howevery does anyone have a quick fix to only display Shadow Armor/Manteau/Boots in the Menu ?

The array needs to Start at 15, somehow.

Edited by trickerytrickery

2 answers to this question

Recommended Posts

  • 0
hendra814 Ghostring

hendra814

Posted
Posted
20 hours ago, trickerytrickery said:

Hello Guys, Ive found the Enchanter from Skorm and would like to use it for Shadow Gear :

 

Im not quite sure whats happening here, befor the eq array way scrambled - it doesnt recognize the shadow Armor, garment etc.

Works fine with Costume Mid etc.

 

(Smokie Card is just for a test) 


prontera,156,191,0      script  Special Enchanter       4_PORING,{
        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,       4044, 4044;                       // Range of IDs selected for enchanting.
                setarray .eqp$  ,       "Shadow Armor", "Shadow Shoes", "Shadow Garment";
                set      .e_len ,       getarraysize(.eqp$);
                //=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}

 

 

Found out that if you extend the Array 

setarray .eqp$  ,    "1", "2", "3", "4", "5", "6", "7", "8","9", "10", "11", "12","13","14","15","16","17","18";
 

It shows the Shadow Armor etc.

Howevery does anyone have a quick fix to only display Shadow Armor/Manteau/Boots in the Menu ?

The array needs to Start at 15, somehow.

Maybe this could help you to set the array 

//EQI_COMPOUND_ON (-1)      - Item slot that calls this script (In context of item script)
//EQI_ACC_L (0)             - Accessory 1
//EQI_ACC_R (1)             - Accessory 2
//EQI_SHOES (2)             - Footgear (shoes, boots)
//EQI_GARMENT (3)           - Garment (mufflers, hoods, manteaux)
//EQI_HEAD_LOW (4)          - Lower Headgear (beards, some masks)
//EQI_HEAD_MID (5)          - Middle Headgear (masks, glasses)
//EQI_HEAD_TOP (6)          - Upper Headgear
//EQI_ARMOR (7)             - Armor (jackets, robes)
//EQI_HAND_L (8)            - Left hand (weapons, shields)
//EQI_HAND_R (9)            - Right hand (weapons)
//EQI_COSTUME_HEAD_TOP (10) - Upper Costume Headgear
//EQI_COSTUME_HEAD_MID (11) - Middle Costume Headgear
//EQI_COSTUME_HEAD_LOW (12) - Lower Costume Headgear
//EQI_COSTUME_GARMENT (13)  - Costume Garment
//EQI_AMMO (14)    		  - Arrow/Ammunition
//EQI_SHADOW_ARMOR (15)     - Shadow Armor
//EQI_SHADOW_WEAPON (16)    - Shadow Weapon
//EQI_SHADOW_SHIELD (17)    - Shadow Shield
//EQI_SHADOW_SHOES (18)     - Shadow Shoes
//EQI_SHADOW_ACC_R (19)     - Shadow Accessory 2
//EQI_SHADOW_ACC_L (20)     - Shadow Accessory 1

 

  • 0
trickerytrickery Poring

trickerytrickery

Posted
  • Author
Posted (edited)

Not Really, since the Array is not extended in a Static way.

However, i did find a way though.

So, all good.

./close plox

 

Its not all good.

It looks all fine and dandy at first glance, but doesnt work

 

Can anybody help out make the Enchanter from the first Post only for Shadow Armor, Shadow Weapon and Shadow Boots?

Edited by trickerytrickery

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...