summaryrefslogtreecommitdiff
path: root/npc/pre-re/merchants/advanced_refiner.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/pre-re/merchants/advanced_refiner.txt')
-rw-r--r--npc/pre-re/merchants/advanced_refiner.txt159
1 files changed, 0 insertions, 159 deletions
diff --git a/npc/pre-re/merchants/advanced_refiner.txt b/npc/pre-re/merchants/advanced_refiner.txt
deleted file mode 100644
index 70b11c167..000000000
--- a/npc/pre-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