Jump to content
  • Sign Up
n0tm3

Fallen Angel Wing Enchanment

By n0tm3, in Quest, Shops, Functions & Algorithms Releases

Recommended Posts

n0tm3    1

n0tm3
Posted (edited)

Hi there! I've tried to make a Fallen Angel Wing Enchanment NPC as similar to iROwiki's definition

 

http://irowiki.org/wiki/Fallen_Angel_Wing_Enchants

 

Features:

  • I moved the npc to prontera.
  • Removed the ASPD and Critical from the categories, because I can't find the items needed to enchant it.
  • It automatically enchants the slots from the first to the third slot.
  • Randomly put enchanment on slot 1 and 2 according to iroWiki, and fixed enchantment on the 3rd slot instead of adding possible enchants, I made it 100% chance of enchanting the enchants listed in the additional enchants.
  • Has reset enchantment which requires Silvervine Fruite - ID6417.

 

 

this is my first time to code in C, so feel free to post any bugs or suggestions here. :D

fallenangelenchant.txt

Edited by n0tm3
bhaskara. reacted to this

Share this post

Link to post
Share on other sites

ajibasket32    0

ajibasket32
Posted (edited)

sir can you re-ad the aspd and critical? because i wanted it XD

owh i see your problem. you cant find the fatal thing and delayafter attack right? XD

hope hercules will add it later :3

Edited by ajibasket32

Share this post

Link to post
Share on other sites

monkeydlufy    0

monkeydlufy
Posted

Hi, how to enchant the Fallen Angel Wing backwards like the official.

When i enchant the wing it goes like this

[1] [x] [0] [0] first enchant

[1] [x] [x] [0] second enchant

[1] [x] [x] [x] third enchant

I want it to enchant like this

[1] [0] [0] [x]
[1] [0] [x] [x]
[1] [x] [x] [x]
 

Can help me with this?


 I Edited some lines to suit for my server.

//============================================================
//= Fallen Angel Wing Enchantment
//===== By: ==================================================
//= n0tme
//===== Current Version: =====================================
//= 1.0
//===== Description: =========================================
//= An npc that will let you enchat your fallen angel wings with stats
//===== Additional Comments: =================================
//= Fully working.
//= 1.0 First release
//============================================================
prontera,181,215,3    script    Fallen Angel Wing    4_F_VALKYRIE2,{
    disable_items;
    if (checkweight(1201,1) == 0) {
        mes "You are carrying too many items, please reduce them and come back!";
        close;
    }
    if (MaxWeight - Weight < 10000) {
        mes "You have overweight, please reduce it and come back!";
        close;
    }
    if (getequipid(EQI_GARMENT) == 2589) {
        if(getequipcardid(EQI_GARMENT,1)){
            if (getequiprefinerycnt(EQI_GARMENT)>=7)  {
                if(getequipcardid(EQI_GARMENT,2)) {
                    if (getequiprefinerycnt(EQI_GARMENT)>=9) {
                        if(getequipcardid(EQI_GARMENT,3)) {
                            goto jExit;
                        }
                        else { // third slot array
                            set .@menu$, "Enchant Fallen Angel Wing";
                        }
                    } else
                        goto jExit;
                }
                else { //second slot array
                    set .@menu$, "Enchant Fallen Angel Wing";
                }
            }
            else {
jExit:            set .@menu$, "";
            }
        }
        else { // first slot array
        set .@menu$, "Enchant Fallen Angel Wing";
        }
    } else
        set .@menu$, "";
 
    mes "[Fallen Angel]";
    mes "If you have a Fallen Angel Wing, I can enchant its useless slots for 100 million zeny.";
    mes "*Note: Equip your Fallen Angel Wing to see the Enchant Menu!";
    next;
    
    switch(select("What is that?:"+.@menu$+":Clear Enchantment")) {
        case 1:
            switch(select("Stop speaking:What are you going to do?")) {
                case 1:
                    mes "[Fallen Angel]";
                    mes "What did you say?";
                    close;
                case 2:
                    mes "[Fallen Angel]";
                    mes "I can enchant special stats into your Fallen Angel Wing if you pay 100,000,000 zeny.";    
                    next;
                    mes "I can enchant it once if upgraded +6 or lower.";    
                    mes "twice if upgraded +7 or +8.";    
                    mes "and 3 times if upgraded +9 or higher.";    
                    mes "[Fallen Angel]";
                    close;
            }
        case 2:
            if (Zeny < 100000000) { //zeny amount
                mes "[Fallen Angel]";
                mes "I can't do it if you can't pay!";
                close;
            }
            mes "[Fallen Angel]";
            mes "Select enchant category";
            next;
            switch(select("Fighting:Magic:Archer:Sharp:Aspd:Max HP:Max SP:Str:Agi:Dex:Vit:Int:Luk")) {//dito tayo sir
                set .@i, rand(1,15);
                case 1: //Fighting
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4821;
                    else if (.@i < 4)   set .@enchant,4820;
                    else if (.@i < 8)   set .@enchant,4808;
                    else set .@enchant,4809;
                goto eStart;
                case 2: //Magic
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4828;
                    else if (.@i < 4)   set .@enchant,4827;
                    else if (.@i < 8)   set .@enchant,4826;
                    else set .@enchant,4812;
                goto eStart;
                case 3:// Archer
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4835;
                    else if (.@i < 4)   set .@enchant,4834;
                    else if (.@i < 8)   set .@enchant,4833;
                    else set .@enchant,4832;
                goto eStart;
                case 4://Sharp
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4843;
                    else if (.@i < 4)   set .@enchant,4816;
                    else if (.@i < 8)   set .@enchant,4817;
                    else set .@enchant,4818;
                goto eStart;
                case 5://Aspd
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4873;
                    else if (.@i < 4)   set .@enchant,4872;
                    else if (.@i < 8)   set .@enchant,4869;
                    else set .@enchant,4869;
                goto eStart;
                case 6:// MHP
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4868;
                    else if (.@i < 4)   set .@enchant,4867;
                    else if (.@i < 8)   set .@enchant,4862;
                    else set .@enchant,4861;
                goto eStart;
                case 7://MSP
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4801;
                    else if (.@i < 4)   set .@enchant,4871;
                    else if (.@i < 8)   set .@enchant,4800;
                    else set .@enchant,4870;
                goto eStart;
                case 8://STR
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4853;
                    else if (.@i < 4)   set .@enchant,4704;
                    else if (.@i < 8)   set .@enchant,4703;
                    else set .@enchant,4702;
                goto eStart;
                case 9://AGI
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4854;
                    else if (.@i < 4)   set .@enchant,4733;
                    else if (.@i < 8)   set .@enchant,4732;
                    else set .@enchant,4731;
                goto eStart;
                case 10://DEX
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4857;
                    else if (.@i < 4)   set .@enchant,4724;
                    else if (.@i < 8)   set .@enchant,4723;
                    else set .@enchant,4722;
                goto eStart;
                case 11:// VIT
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4855;
                    else if (.@i < 4)   set .@enchant,4744;
                    else if (.@i < 8)   set .@enchant,4743;
                    else set .@enchant,4742;
                goto eStart;
                case 12://INT
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4856;
                    else if (.@i < 4)   set .@enchant,4714;
                    else if (.@i < 8)   set .@enchant,4713;
                    else set .@enchant,4712;
                goto eStart;
                case 13://LUK
                    if(getequipcardid(EQI_GARMENT,2)) set .@enchant,4858;
                    else if (.@i < 4)   set .@enchant,4754;
                    else if (.@i < 8)   set .@enchant,4753;
                    else set .@enchant,4752;
                goto eStart;
                
eStart:            specialeffect2 EF_REPAIRWEAPON;
                progressbar "ffff00",2;
                if (getequipisequiped(EQI_GARMENT) == 0) {
                    mes "[Fallen Angel]";
                    mes "The Archangel Wing has been taken out!";
                    close;
                }
                if (getequipid(EQI_GARMENT) != 2589) {
                    mes "[Fallen Angel]";
                    mes "Don't take off the item!";
                    close;
                }
            Zeny -= 100000000;    
            // find slot to enchant
                if(getequipcardid(EQI_GARMENT,1)){
                        if(getequipcardid(EQI_GARMENT,2)) {
                                    set .@equip_refine, getequiprefinerycnt(EQI_GARMENT);
                                    setarray .@equip_card[0], getequipcardid(EQI_GARMENT,0),getequipcardid(EQI_GARMENT,1),getequipcardid(EQI_GARMENT,2);
                                    getitem2 2589,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@enchant; //Archangel_Wing
                            }
                        else { //second slot array
                            set .@equip_refine, getequiprefinerycnt(EQI_GARMENT);
                            setarray .@equip_card[0], getequipcardid(EQI_GARMENT,0),getequipcardid(EQI_GARMENT,1),getequipcardid(EQI_GARMENT,3);
                            getitem2 2589,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@enchant,.@equip_card[3]; //Archangel_Wing
                        }
                }
                else { // first slot array
                    set .@equip_refine, getequiprefinerycnt(EQI_GARMENT);
                    setarray .@equip_card[0], getequipcardid(EQI_GARMENT,0),getequipcardid(EQI_GARMENT,2),getequipcardid(EQI_GARMENT,3);
                    getitem2 2589,1,1,.@equip_refine,0,.@equip_card[0],.@enchant,.@equip_card[2],.@equip_card[3]; //Archangel_Wing
                }
            delequip EQI_GARMENT;
            mes "[Fallen Angel]";
            mes "Take it!";
            mes "I believe that you will become the dominator of the new world!";
            close;
            }
        case 3:
                mes "[Fallen Angel]";
                mes "Reset enchantment requires ^0000ff10 units of Silvervine Fruit^000000. The wing will not be damaged except for the enchanted capability.";
                next;
                if(select("Let me consider...:Ok, I want reset its enchanment.") == 1) {
                    mes "[Fallen Angel]";
                    mes "Ok! Take your time to consider!";
                    close;
                }
                specialeffect2 EF_REPAIRWEAPON;
                progressbar "ffff00",2;
                if (getequipisequiped(EQI_GARMENT) == 0) {
                    mes "[Fallen Angel]";
                    mes "The Fallen Angel Wing has been taken out!";
                    close;
                }
                if (getequipid(EQI_GARMENT) != 2589) {
                    mes "[Fallen Angel]";
                    mes "Oh... you have unequipped the Fallen Angel Wing!";
                    close;
                }
                if (countitem(6417) < 10) {
                    mes "[Fallen Angel]";
                    mes "I can't do it if you can't pay!";
                    close;
                }
                if ((getequipcardid(EQI_GARMENT,3) < 4700) && (getequipcardid(EQI_GARMENT,2) < 4700) && (getequipcardid(EQI_GARMENT,1) < 4700)) { // Armor Enchant System
                    mes "[Fallen Angel]";
                    mes "This equipment has not been enchanted, please check it again!";
                    close;
                }
                set .@equip_refine, getequiprefinerycnt(EQI_GARMENT);
                setarray .@equip_card[0], getequipcardid(EQI_GARMENT,0);//,getequipcardid(EQI_GARMENT,1),getequipcardid(EQI_GARMENT,2);
                delitem 6417,10; //Silvervine
                delequip EQI_GARMENT;
                getitem2 2589,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],0; //Archangel_Wing
                mes "[Fallen Angel]";
                mes "Take it!";
                close;
    }
}

Share this post

Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  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.

Loading...
×
Go To Topic Listing
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.

  I accept