diff options
Diffstat (limited to 'npc/re/merchants/advanced_refiner.txt')
| -rw-r--r-- | npc/re/merchants/advanced_refiner.txt | 159 |
1 files changed, 0 insertions, 159 deletions
diff --git a/npc/re/merchants/advanced_refiner.txt b/npc/re/merchants/advanced_refiner.txt deleted file mode 100644 index 70b11c167..000000000 --- a/npc/re/merchants/advanced_refiner.txt +++ /dev/null @@ -1,159 +0,0 @@ -//===== rAthena Script ======================================= -//= Advanced Refiner -//===== By: ================================================== -//= L0ne_W0lf -//===== Current Version: ===================================== -//= 1.4 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= [Aegis Conversion] -//= Refiner that uses Enriched ores to increase upgrade success. -//= After a conversation with Doddler, it's been established that -//= the advanced refiner works similar the the "Bubble Gum" item. -//= The success percentage is not "increased" however, if it fails -//= You get a second try. This tries twice at the same time, -//= effectively giving you a re-roll on your attempt. -//= - Dialog is only partly official to iRO. -//= - Uses the iRO position for this NPC. -//===== Additional Comments: ================================= -//= 1.0 First Version. [L0ne_W0lf] -//= 1.1 Fixed a weird carriage return. o_o [L0ne_W0lf] -//= 1.2 Optimizing refine method [Zephyrus] -//= 1.3 Typo fixes [Yommy] -//= 1.4 Removed unnecessary dialogs [Zephyrus] -//============================================================ - -payon,174,138,0 script Suhnbi#cash 85,{ - mes "[Suhnbi]"; - mes "I am the Armsmith"; - mes "I can refine all kinds of weapons,"; - mes "armor and equipment, so let me"; - mes "know what you want to refine."; - next; - setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3"; - set .@menu$,""; - for( set .@i,1; .@i <= 10; set .@i,.@i+1 ) - { - if( getequipisequiped(.@i) ) - set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]"; - - set .@menu$, .@menu$ + ":"; - } - set .@part,select(.@menu$); - - if( !getequipisequiped(.@part) ) - close; - - if( !getequipisenableref(.@part) ) - { - mes "[Suhnbi]"; - mes "I don't think I can refine this item at all."; - close; - } - if( !getequipisidentify(.@part) ) - { - mes "[Suhnbi]"; - mes "This has not been identified. So, it can't be refined..."; - close; - } - if( getequiprefinerycnt(.@part) >= 10 ) - { - mes "[Suhnbi]"; - mes "This item cannot be refined because it has already reached its maximum level..."; - close; - } - - // Make sure you have the neccessary items and Zeny to refine your items - // Determines chance of failure and verifies that you want to continue. - switch( getequipweaponlv(.@part) ) - { - case 1: callsub S_RefineValidate,1,7620,50,.@part; break; - case 2: callsub S_RefineValidate,2,7620,200,.@part; break; - case 3: callsub S_RefineValidate,3,7620,5000,.@part; break; - case 4: callsub S_RefineValidate,4,7620,20000,.@part; break; - default: callsub S_RefineValidate,0,7619,2000,.@part; break; - } - - if( getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100) ) - { - mes "[Suhnbi]"; - mes "Clink! Clank! Clunk!"; - SuccessRefItem .@part; - next; - Emotion e_no1; - mes "[Suhnbi]"; - mes "Here you are! It's done."; - mes "It's been a while since I've made such a fine weapon. You must be happy because it has become stronger!"; - close; - } - mes "[Suhnbi]"; - mes "Clink! Clank! Clunk!"; - FailedRefItem .@part; - next; - if (rand(5) == 1){ - Emotion e_cash; - } else { - Emotion e_omg; - } - mes "[Suhnbi]"; - mes "Cough!!!!"; - next; - mes "[Suhnbi]"; - mes "Cough...Cough.."; - mes "What a shame..."; - mes "Your equipment broke during the refining process. I had told you earlier this might happen!"; - close; - -S_RefineValidate: - mes "[Suhnbi]"; - if (getarg(0)) - mes "A level " + getarg(0) + " weapon..."; - mes "To refine this I need one ^ff9999" + getitemname(getarg(1)) + "^000000 and a service fee of " + getarg(2) + " Zeny."; - mes "Do you wish to continue?"; - next; - if( select("Yes:No") == 1 ) - { - if( getequippercentrefinery(getarg(3)) < 100 ) - { - mes "[Suhnbi]"; - mes "Wow!!"; - mes "This weapon, probably"; - mes "looks like it's been refined..."; - mes "many times..."; - mes "It may break if"; - mes "you refine it again."; - next; - mes "And if it breaks,"; - mes "you can't use it anymore!"; - mes "All the cards in it and the"; - mes "properties"; - mes "^ff0000will be lost^000000!!"; - mes "^ff0000 besides, the equipment will break!^000000"; - mes " "; - mes "Are you sure you still want to continue?"; - next; - if( select("Yes:No") == 2 ) - { - mes "[Suhnbi]"; - mes "I completely agree..."; - mes "I might be a great refiner, but sometimes even I make mistakes."; - close; - } - } - if( countitem(getarg(1)) > 0 && Zeny > getarg(2) ) - { - delitem getarg(1), 1; - set Zeny, Zeny - getarg(2); - return; - } - mes "[Suhnbi]"; - mes "You don't seem to have enough Zeny or " + getitemname(getarg(1)) + "..."; - mes "Go get some more. I'll be here all day if you need me."; - close; - } - mes "[Suhnbi]"; - mes "Yeah... There's no need to rush."; - mes "Take your time."; - close; -}
\ No newline at end of file |