From 28a9fec0916db3d92629ae6e6cd62b5777b09e73 Mon Sep 17 00:00:00 2001 From: j-tkay Date: Thu, 4 Jul 2013 05:15:48 +0800 Subject: Merged/Updated/Added scripts from rAthena. - Fixed Bug #7400 Signed-off-by: j-tkay --- npc/re/merchants/refine.txt | 420 +++++++++++++++++++++++++------------------- 1 file changed, 240 insertions(+), 180 deletions(-) (limited to 'npc/re/merchants/refine.txt') diff --git a/npc/re/merchants/refine.txt b/npc/re/merchants/refine.txt index 27a09fce7..b1493e12d 100644 --- a/npc/re/merchants/refine.txt +++ b/npc/re/merchants/refine.txt @@ -3,7 +3,7 @@ //===== By: ================================================== //= Hercules Dev Team //===== Current Version: ===================================== -//= 1.0a +//= 1.2 //===== Compatible With: ===================================== //= Hercules //===== Description: ========================================= @@ -11,20 +11,23 @@ //===== Additional Comments: ================================= //= 1.0 Moved some scripts to Renewal file, optimized "Austry" NPC. [Euphy] //= 1.0a Added 'disable_items' command. [Euphy] +//= 1.1 Added Malangdo Refiner "Clink". [Euphy] +//= 1.2 Added official success calculation, thanks to Helvetica. +//= The safe/multiple refine feature is now functional. [Euphy] //============================================================ // +11 and above Refiners //============================================================ prt_in,90,72,5 script Bestry#prt 826,{ - callfunc "refinenew","Bestry",0,0; + callfunc "refinenew","Bestry",0; end; } morocc_in,64,41,5 script Bestry#moc 826,{ - callfunc "refinenew","Bestry",0,0; + callfunc "refinenew","Bestry",0; end; } payon_in01,18,132,3 script Bestry#pay 826,{ - callfunc "refinenew","Bestry",0,0; + callfunc "refinenew","Bestry",0; end; } @@ -36,10 +39,8 @@ payon_in01,18,132,3 script Bestry#pay 826,{ //= If you enable this function, be sure to edit the value of //= .@safe to the max safe refine in refine_db.txt as well. //= -//= The official script uses a command which seems to generate a -//= random result upon refining: success, downgrade, or failure. -//= To enable that feature, set the third argument to '1' in the -//= function call. Otherwise, the chance in refine_db.txt is used. +//= On official servers, if an item is unsuccessfully refined +//= it will break at a 20% rate and downgrade at an 80% rate. //============================================================ function script refinenew { disable_items; @@ -76,16 +77,6 @@ function script refinenew { mes "refine this item at all..."; close; } - //Check if the item is identified... (Don't know why this is in here... but kept it anyway) - if(!getequipisidentify(.@part)) { - mes "[" + getarg(0) + "]"; - mes "You can't refine this"; - mes "if you haven't appraised"; - mes "it first. Make sure your"; - mes "stuff is identified before"; - mes "I can refine it."; - close; - } //Check to see if the items is at least +10 if(getequiprefinerycnt(.@part) < 10) { mes "["+ getarg(0) +"]"; @@ -104,7 +95,12 @@ function script refinenew { if ((getequipweaponlv(.@part) >= 1) && (getequipweaponlv(.@part) <= 4)) { set .@material,6224; set .@price,100000; - set .@safe,10; + switch(getequipweaponlv(.@part)) { + case 1: set .@safe,17; break; + case 2: set .@safe,16; break; + case 3: set .@safe,15; break; + case 4: set .@safe,14; break; + } mes "["+ getarg(0) +"]"; mes "Hmm a weapon, is that ok?"; mes "If you want to refine this weapon,"; @@ -113,7 +109,7 @@ function script refinenew { } else { set .@material,6223; set .@price,100000; - set .@safe,10; + set .@safe,14; mes "["+ getarg(0) +"]"; mes "Hmm an armor, is that ok?"; mes "If you want to refine this armor,"; @@ -179,19 +175,17 @@ function script refinenew { mes "You switched the item while I wasn't looking! Get out of here!"; close; } - if(getarg(2) == 1){ - set .@rand,rand(1,3); - if (.@rand == 1) { - mes "Clang! Clang! Clang! Clang!"; - successrefitem .@part; - next; - emotion e_no1; - mes "["+ getarg(0) +"]"; - mes "Good! Succes!!!"; - mes "I am the best Blacksmith."; - close; - } - if (.@rand == 2) { + if (getequippercentrefinery(.@part) > rand(100)) { + mes "Clang! Clang! Clang! Clang!"; + successrefitem .@part; + next; + emotion e_no1; + mes "["+ getarg(0) +"]"; + mes "Good! Succes!!!"; + mes "I am the best Blacksmith."; + close; + } else { + if (rand(100) < 80) { mes "["+ getarg(0) +"]"; mes "Clang! Clang! Clang! Clang!"; downrefitem .@part; @@ -209,72 +203,26 @@ function script refinenew { mes "["+ getarg(0) +"]"; mes "I will do a better job next time! Don't worry!"; close; + } else { + mes "["+ getarg(0) +"]"; + mes "Clang! Clang! Clang!"; + failedrefitem .@part; + next; + emotion (!rand(5))?e_cash:e_omg; + mes "["+ getarg(0) +"]"; + mes "Hmmm!"; + next; + mes "["+ getarg(0) +"]"; + mes "Oh my! I've failed to refine stuff..."; + mes "I didn't mean it!"; + mes "There could've been made an mistake even though I am the best ever."; + mes "It was out of my hands."; + next; + mes "["+ getarg(0) +"]"; + mes "I will do a better job next time! Don't worry!"; + close; } - mes "["+ getarg(0) +"]"; - mes "Clang! Clang! Clang!"; - failedrefitem .@part; - next; - emotion (!rand(5))?e_cash:e_omg; - mes "["+ getarg(0) +"]"; - mes "Hmmm!"; - next; - mes "["+ getarg(0) +"]"; - mes "Oh my! I've failed to refine stuff..."; - mes "I didn't mean it!"; - mes "There could've been made an mistake even though I am the best ever."; - mes "It was out of my hands."; - next; - mes "["+ getarg(0) +"]"; - mes "I will do a better job next time! Don't worry!"; - close; } - set .@rand,rand(100); - if (getequippercentrefinery(.@part) > .@rand) { - mes "Clang! Clang! Clang! Clang!"; - successrefitem .@part; - next; - emotion e_no1; - mes "["+ getarg(0) +"]"; - mes "Good! Succes!!!"; - mes "I am the best Blacksmith."; - close; - } - if (getequippercentrefinery(.@part) < .@rand) { - mes "["+ getarg(0) +"]"; - mes "Clang! Clang! Clang! Clang!"; - downrefitem .@part; - next; - emotion (!rand(5))?e_cash:e_omg; - mes "["+ getarg(0) +"]"; - mes "Ahhh!!!"; - next; - mes "["+ getarg(0) +"]"; - mes "Oh my!"; - mes "The upgrade level has dropped..."; - mes "There could've been made an mistake even though I am the best ever."; - mes "It was out of my hands."; - next; - mes "["+ getarg(0) +"]"; - mes "I will do a better job next time! Don't worry!"; - close; - } - mes "["+ getarg(0) +"]"; - mes "Clang! Clang! Clang!"; - failedrefitem .@part; - next; - emotion (!rand(5))?e_cash:e_omg; - mes "["+ getarg(0) +"]"; - mes "Hmmm!"; - next; - mes "["+ getarg(0) +"]"; - mes "Oh my! I've failed to refine stuff..."; - mes "I didn't mean it!"; - mes "There could've been made an mistake even though I am the best ever."; - mes "It was out of my hands."; - next; - mes "["+ getarg(0) +"]"; - mes "I will do a better job next time! Don't worry!"; - close; } // New +11 and above Refining Functions ======================== if(getequiprefinerycnt(.@part) < .@safe) { @@ -289,13 +237,12 @@ function script refinenew { set .@refinecnt,.@safe - getequiprefinerycnt(.@part); break; case 2: - next; mes "[" + getarg(0) + "]"; mes "How many times would you like me to refine your item?"; next; input .@refinecnt; set .@refinecheck,.@refinecnt + getequiprefinerycnt(.@part); - if (.@refinecnt < 1 || .@refinecheck > 10) { + if (.@refinecnt < 1 || .@refinecheck > 20) { mes "[" + getarg(0) + "]"; mes "I can't refine this item that many times."; close; @@ -313,7 +260,6 @@ function script refinenew { } break; case 3: - next; mes "[" + getarg(0) + "]"; mes "You said so... So be it."; close; @@ -347,20 +293,13 @@ function script refinenew { mes "Get out before I stun you with my Hammer!!"; close; } - if(getarg(2) == 1){ - set .@rand,rand(1,3); - if (.@rand == 1) { - mes "["+ getarg(0) +"]"; - mes "Clang! Clang! Clang! Clang!"; - successrefitem .@part; - next; - emotion e_no1; - mes "["+ getarg(0) +"]"; - mes "Good! Succes!!!"; - mes "I am the best Blacksmith."; - close; - } - if (.@rand == 2) { + if (getequippercentrefinery(.@part) > rand(100)) { + mes "Clang! Clang! Clang! Clang!"; + successrefitem .@part; + set .@refinecnt,.@refinecnt - 1; + next; + } else { + if (rand(100) < 80) { mes "["+ getarg(0) +"]"; mes "Clang! Clang! Clang! Clang!"; downrefitem .@part; @@ -378,75 +317,31 @@ function script refinenew { mes "["+ getarg(0) +"]"; mes "I will do a better job next time! Don't worry!"; close; + } else { + mes "["+ getarg(0) +"]"; + mes "Clang! Clang! Clang!"; + failedrefitem .@part; + next; + emotion (!rand(5))?e_cash:e_omg; + mes "["+ getarg(0) +"]"; + mes "Hmmm!"; + next; + mes "["+ getarg(0) +"]"; + mes "Oh my! I've failed to refine stuff..."; + mes "I didn't mean it!"; + mes "There could've been made an mistake even though I am the best ever."; + mes "It was out of my hands."; + next; + mes "["+ getarg(0) +"]"; + mes "I will do a better job next time! Don't worry!"; + close; } - mes "["+ getarg(0) +"]"; - mes "Clang! Clang! Clang!"; - failedrefitem .@part; - next; - emotion (!rand(5))?e_cash:e_omg; - mes "["+ getarg(0) +"]"; - mes "Hmmm!"; - next; - mes "["+ getarg(0) +"]"; - mes "Oh my! I've failed to refine stuff..."; - mes "I didn't mean it!"; - mes "There could've been made an mistake even though I am the best ever."; - mes "It was out of my hands."; - next; - mes "["+ getarg(0) +"]"; - mes "I will do a better job next time! Don't worry!"; - close; - } - set .@rand,rand(100); - if (getequippercentrefinery(.@part) > .@rand) { - mes "Clang! Clang! Clang! Clang!"; - successrefitem .@part; - next; - emotion e_no1; - mes "["+ getarg(0) +"]"; - mes "Good! Succes!!!"; - mes "I am the best Blacksmith."; - close; } - if (getequippercentrefinery(.@part) < .@rand) { - mes "["+ getarg(0) +"]"; - mes "Clang! Clang! Clang! Clang!"; - downrefitem .@part; - next; - emotion (!rand(5))?e_cash:e_omg; - mes "["+ getarg(0) +"]"; - mes "Ahhh!!!"; - next; - mes "["+ getarg(0) +"]"; - mes "Oh my!"; - mes "The upgrade level has dropped..."; - mes "There could've been made an mistake even though I am the best ever."; - mes "It was out of my hands."; - next; - mes "["+ getarg(0) +"]"; - mes "I will do a better job next time! Don't worry!"; - close; - } - mes "["+ getarg(0) +"]"; - mes "Clang! Clang! Clang!"; - failedrefitem .@part; - next; - emotion (!rand(5))?e_cash:e_omg; - mes "["+ getarg(0) +"]"; - mes "Hmmm!"; - next; - mes "["+ getarg(0) +"]"; - mes "Oh my! I've failed to refine stuff..."; - mes "I didn't mean it!"; - mes "There could've been made an mistake even though I am the best ever."; - mes "It was out of my hands."; - next; - mes "["+ getarg(0) +"]"; - mes "I will do a better job next time! Don't worry!"; - close; } - mes "[" + getarg(0) + "]"; - mes "All finished... Come again soon."; + emotion e_no1; + mes "["+ getarg(0) +"]"; + mes "Good! Succes!!!"; + mes "I am the best Blacksmith."; close; } @@ -499,3 +394,168 @@ function script refinenew { prt_in,85,71,5 duplicate(Austry#ref) Austry#prt 826 payon_in01,14,125,5 duplicate(Austry#ref) Austry#pay 826 morocc_in,60,38,5 duplicate(Austry#ref) Austry#moc 826 + +// Malangdo Refiner +//============================================================ +malangdo,224,172,6 script Clink#mal_normal 544,{ + disable_items; + mes "[Clink]"; + mes "My cool dad Holink said I have the world's greatest refine hammer!!"; + mes "Meow Meow~"; + mes "Who do you think I am?"; + mes "Yes!!! You!! 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) + set .@menu$, .@menu$+((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Empty]")+":"; + set .@part, select(.@menu$); + if (!getequipisequiped(.@part)) { + mes "[Clink]"; + switch(.@part) { + case 1: + mes "Dad said. There's no cure for stupidity..."; + break; + case 2: + mes "There's nothing to see here!!"; + break; + case 3: + mes "What an arrogant left hand this is!"; + break; + case 4: + mes "What an arrogant right hand this is!"; + break; + case 5: + mes "Get that dirty thing off my face!!"; + break; + case 6: + mes "Kyaong~! Do not provoke me."; + break; + case 7: + case 8: + mes "Where is the accessory?"; + break; + case 9: + case 10: + mes "Are you talking about the other head part?"; + break; + } + close; + } + if (!getequipisenableref(.@part)) { + mes "[Clink]"; + mes "This can't be refined!!"; + close; + } + if (getequiprefinerycnt(.@part) >= 10) { + mes "[Clink]"; + mes "Perfect refining. Did I do this for you?"; + close; + } + mes "[Clink]"; + switch(getequipweaponlv(.@part)) { + default: + case 0: // Armor + set .@price,2000; + set .@material,985; //Elunium + set .@type$,"armor"; + mes "Hmm, an armor refine? Someone like you?"; + break; + case 1: // Level 1 Weapon + set .@price,50; + set .@material,1010; //Phracon + set .@type$,"weapon"; + mes "A level 1 weapon?"; + mes "Urr... Annoying... Okay, let's try..."; + break; + case 2: // Level 2 Weapon + set .@price,200; + set .@material,1011; //Emveretarcon + set .@type$,"weapon"; + mes "A level 2 weapon?"; + break; + case 3: // Level 3 Weapon + set .@price,20000; + set .@material,984; //Oridecon + set .@type$,"weapon"; + mes "Woot!! A level 3 weapon? Impressive~"; + break; + case 4: // Level 4 Weapon + set .@price,50000; + set .@material,984; //Oridecon + set .@type$,"weapon"; + mes "Wow!... A level 4 weapon~!!"; + break; + } + mes "You need ^ff9999"+getitemname(.@material)+"^000000 and ^ff9999"+.@price+"^000000 Zeny. Do you have them?"; + next; + if(select("Yes, I do!!:Forget about it!!") == 2) { + mes "[Clink]"; + mes "I knew it!!"; + mes "I knew you were not worth trying my magical refining hammer for."; + close; + } + if (getequippercentrefinery(.@part) < 100) { + mes "[Clink]"; + mes "Wow!!"; + mes "This "+.@type$+" has been refined quite a bit, huh?"; + mes "You do know that this might break, right?"; + next; + mes "[Clink]"; + mes "If you break the "+.@type$+", you can never use it again."; + mes "Cards and enchant effects..."; + mes "the ^ff0000whole thing will disappear^000000."; + mes "You still up for this~?"; + next; + if(select("Yes, I am!!:Forget about it!!") == 2) { + mes "[Clink]"; + mes "I knew it!!"; + mes "You can't even take this big step. Don't think about refining..."; + close; + } + } + if (countitem(.@material) == 0 || Zeny < .@price) { + mes "[Clink]"; + mes "Hey you!! Didn't I tell you"; + mes "that you need ^ff9999"+getitemname(.@material)+"^000000 and ^ff9999"+.@price+"^000000 Zeny??!!"; + close; + } + delitem .@material,1; + set Zeny, Zeny-.@price; + if (getequippercentrefinery(.@part) <= rand(100)) { + failedrefitem .@part; + mes "[Clink]"; + mes "Cry Hammer!! Cry!!!"; + next; + switch(rand(1,5)) { + case 1: emotion e_sob; break; + case 2: emotion e_swt2; break; + case 3: emotion e_wah; break; + case 4: emotion e_hmm; break; + case 5: emotion e_lv2; break; + } + mes "[Clink]"; + mes "Huh?! I failed?!"; + next; + mes "[Clink]"; + mes "Arrgg~ It's all~ Broken...? What a pity~"; + next; + mes "[Clink]"; + mes "Hey...!! Get me another one."; + mes "This is not possible."; + mes "How can my hammer fail from refining?"; + close; + } + successrefitem .@part; + mes "[Clink]"; + mes "Cry Hammer!! Cry!!!"; + next; + emotion e_kis; + mes "[Clink]"; + mes "Ok!! Perfect!!"; + mes "There's nothing I can't refine"; + mes "with this special hammer."; + mes "You can praise me!!"; + mes "What a day!!"; + close; +} -- cgit v1.2.3-60-g2f50