Archangel Wing Enchant

[Frhysthia]

someone have script that enchants Archangel wing that can enchant up to 3 times. 

like iRO. http://irowiki.org/wiki/Fallen_Angel_Wing_Enchants

thanks to those will help.

[Winz]

function    script    success    {
    set.@zeny, getarg(0);
    set zeny, zeny - .@zeny;
    successrefitem 5;
    emotion e_gg;
    set .@win,rand(1,3);
    if (.@win == 1) {
        mes "Perfect!";
        mes "Heh heh!";
        mes "Once again,";
        mes "flawless work";
        mes "from the master~";
    } else if(.@win == 2) {
        mes "Success...!";
        mes "Yet again, my amazing";
        mes "talent truly dazzles";
        mes "and shines today.";
    } else {
        mes "Heh heh!";
        mes "I'm all done.";
        mes "No doubt, my work is";
        mes "to your satisfaction.";
        mes "Sheer, utter perfection~";
    }
    return;
}

function    script    failed    {
    set.@zeny, getarg(0);
    set zeny, zeny - .@zeny;
    downrefitem 5;
    emotion (!rand(5))?e_cash:e_omg;
    set .@lose,rand(1,3);
    if (.@lose == 1) {
        mes "OH! MY GOD!";
        mes "Damn it! Not again!";
        mes "I'm terribly sorry, but you know practice does make perfect.";
        mes "Um, right? Heh heh...";
    } else if(.@lose == 2) {
        mes "Nooooooo!";
        mes "It broke!";
        mes "I-I'm sorry!";
    } else {
        mes "Crap!";
        mes "It couldn't take";
        mes "much more tempering!";
        mes "Sorry about this...";
    }
    return;
}

prontera,156,145,4    script    Refine    58,{
    if(countitem(2589)==0){
    mes "You don't have the Fallen Angel Wing right?";
    mes "Sorry I can't help you";
    close;
    }
    
    set .@zeny, 5000;
    set .@needzen, .@zeny*7;
    
    mes "Refining your Fallen Angel Wing?";
    mes "I can do it for you for ^FF0000"+.@zeny+"^000000 Z!";
    next;
    
    
    if (zeny < 35000) {
        mes "For this process, I need around ^FF0000"+.@needzen+"^000000 Z.";
        mes "Seems like you don't have it. please get them first.";
        close;
    }
    
    set .@i,2589;
    
    if((getequipid(EQI_GARMENT)!=2589)){
        mes "Please put on those wings first";
        close;
    }
    
    if(getequipisenableref(.@i)) {
        mes "I don't think I can";
        mes "refine this item at all...";
        close;
    }
    //Check to see if the items is already +10
    if(getequiprefinerycnt(.@if) >= 10) {
        mes "I can't refine this";
        mes "any more. This is as";
        mes "refined as it gets!";
        close;
    }
    
    callfunc "success", .@zeny,.@zeny;
    next;
    callfunc "success", .@zeny;
    next;
    mes "One more refining to go...";
    next;
    callfunc "failed", .@zeny;
    next;
    callfunc "failed", .@zeny;
    next;
    mes "DARN! If I failed again this time, say goodbye, SAY GOODBYE~~";
    next;
    mes "So, will you still continue doing this? What if it broke again? It will lose forever.";
    if(select("Let it go:STAHP! Please stop this!") == 1) {
        next;
        mes "Le.. Le.. Let it go~";
        mes "Let it go~";
        mes "LET IT GO~";
        emotion e_sob,1;
    } else {
        next;
        mes "What are you talking about?";
        mes "There's no going back.";
        mes "AND I SHALL CONTINUE THIS!!!";
        emotion e_omg,1;
        emotion e_slur,0;
    }
    
    next;
    callfunc "success", .@zeny;
    emotion e_gg,0;
    emotion e_omg,1;
    next;
    callfunc "success", .@zeny;
    emotion e_gg,0;
    emotion e_omg,1;
    next;
    callfunc "success", .@zeny;
    emotion e_gg,0;
    emotion e_omg,1;
    next;
    
    mes "Done. LOL";
    close2;
    specialeffect 154, SELF;
    specialeffect 154, SELF;
    specialeffect 154, SELF;
    specialeffect 154, SELF;
    specialeffect 154, SELF;
    end;
}

just run it, bring 35000 zeny or 7*(required zeny per "smash") and equip the item (2859)

oh btw, since I got more free time, I added some well, entertainment.

Edited October 13, 2014 by Winz