summaryrefslogtreecommitdiff
path: root/npc/merchants/refine.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/merchants/refine.txt')
-rw-r--r--npc/merchants/refine.txt1760
1 files changed, 880 insertions, 880 deletions
diff --git a/npc/merchants/refine.txt b/npc/merchants/refine.txt
index cd69b55d9..bb2796357 100644
--- a/npc/merchants/refine.txt
+++ b/npc/merchants/refine.txt
@@ -1,880 +1,880 @@
-//===== eAthena Script =======================================
-//= Refining NPCs
-//===== By: ==================================================
-//= Syrus22 (1.1)
-//===== Current Version: =====================================
-//= 1.3
-//===== Compatible With: =====================================
-//= Any Athena Version
-//===== Description: =========================================
-//= Refining NPCs and Metal Salesmen.
-//===== Additional Comments: =================================
-//= 1.0 by A bunch of people!
-//= Syrus22 - Completely redid the script using functions... also
-//= added the option for auto safe refining and multiple refining.
-//= 1.1 Negative input bug fixed [Lupus]
-//= 1.2 Added additional reparimen in morroc and payon. Added
-//= Christopher the blacksmith in Geffen. Edited some dialogue [kobra_k88]
-//= 1.3 New Payon Locations [Darkchild]
-//= Corrected zeny subtraction thx to jpnmania77.[kobra_k88]
-//= 1.3a Temporary corrected an expliot. Need to check sources
-//= to fully fix bug [Shinigami]
-//============================================================
-
-
-//=========================================================
-// Christopher: Geffen Blacksmith
-//=========================================================
-geffen_in.gat,110,172,2 script Christopher 63,
-{
- mes "[Christopher Guillenrow]";
- mes "Welcome to Christopher's Workshop. Ye can find all yer forging equipment here. So what can I help ye with?";
- M_Menu:
- next;
- menu "Purchase Anvil",M_0, "Purchase Forging Item",M_1, "Purchase Metal",M_2, "Purify Rough Ores",M_3, "Cancel",M_End;
-
- M_0:
- mes "[Christopher Guillenrow]";
- mes "Higher quality Anvils gives ye a better chance ta make better weapons, ye know. But they cost more than yer typical ones.";
- next;
- menu "Anvil - 30000z.",sM_Anvil, "Oridecon Anvil - 120000z.",sM_OriAnvil, "Golden Anvil - 300000z.",sM_GolAnvil,
- "Better Anvil than others",sM_BetAnvil, "Cancel",M_Menu;
-
- sM_Anvil:
- if(Zeny < 30000) goto L_NoZeny;
- mes "[Christopher Guillenrow]";
- mes "This is the cheapest one but it's very efficient.";
- set Zeny, Zeny - 30000;
- getitem 986,1;
- next;
- goto L_Thanks;
- sM_OriAnvil:
- if(Zeny < 120000) goto L_NoZeny;
- mes "[Christopher Guillenrow]";
- mes "Ah! Ye have a good eye for anvils. This here is the proper anvil for a Blacksmith.";
- set Zeny, Zeny - 120000;
- getitem 987,1;
- next;
- goto L_Thanks;
- sM_GolAnvil:
- if(Zeny < 300000) goto L_NoZeny;
- mes "[Christopher Guillenrow]";
- mes "This is the best anvil in my workshop! With this ye'll be the best Blasksmith in no time.";
- set Zeny, Zeny - 300000;
- getitem 988,1;
- next;
- goto L_Thanks;
- sM_BetAnvil:
- mes "[Christopher Guillenrow]";
- mes "I'm sorry but I don't have anything better than a Golden Anvil.";
- mes "Maybe 'Ringgel' the legendary Anvil maker would have one... but he be a hard fellow ta find.";
- close;
-
- M_1:
- mes "[Christopher Guillenrow]";
- mes "A respectable Blacksmith uses fine tools. Ye will come ta know my tools as being the finest around!";
- mes "Choose anything you want.";
- sM_Menu1:
- next;
- menu "Mini-Furnace - 150z.",sM_Furn, "Iron Hammer - 1000z.",sM_IrHam, "Golden Hammer - 3000z.",sM_GldHam,
- "Oridecon Hammer - 5000z.",sM_OriHam, "Cancel",M_Menu;
-
- sM_Furn:
- mes "[Christopher Guillenrow]";
- mes "This is a prerequisite for Metal refining!!";
- mes "So, how many do ye wish to buy? If you want to quit, please input the number '0'. However, you the maximum amount you can buy is 1000";
- set @input, 0;
- input @input;
- next;
- if(@input < 1 ) goto sM_Menu1;
- if(@input > 1000 ) goto sM_Max;
- if(Zeny < 150 * @input) goto L_NoZeny;
- set Zeny, Zeny - (150 * @input);
- getitem 612, @input;
- goto L_Thanks;
- sM_IrHam:
- if(Zeny < 1000) goto L_NoZeny;
- set Zeny, Zeny - 1000;
- getitem 613,1;
- goto L_Thanks;
- sM_GldHam:
- if(Zeny < 3000) goto L_NoZeny;
- set Zeny, Zeny - 3000;
- getitem 614,1;
- goto L_Thanks;
- sM_OriHam:
- if(Zeny < 5000) goto L_NoZeny;
- set Zeny, Zeny - 5000;
- getitem 615,1;
- goto L_Thanks;
- sM_Max:
- mes "[Christopher Guillenrow]";
- mes "Sorry, you can't buy more than 1000 furnace at a time.";
- close;
-
- M_2:
- mes "[Christopher Guillenrow]";
- mes "I have 2 kinds of metals for sale. Which do ye like?";
- set @chris, 1;
- set @name$, "Christopher Guillenrow";
- callfunc "phramain";
-
- M_3:
- mes "[Christopher Guillenrow]";
- mes "I can purify yer rough Oridecon and rough Elunium ores. I'll need 5 rough ores to make 1 pure one.";
- mes "Well... which one do ye want ta make?";
- set @chris, 1;
- set @name$, "Christopher Guillenrow";
- callfunc "orimain";
-
- M_End:
- close;
-
- L_NoZeny:
- mes "[Christopher Guillenrow]";
- mes "I don't think I can let ye have this at a lower price. I can't afford ta loose profits because of ye.";
- emotion 4;
- close;
-
- L_Thanks:
- mes "[Christopher Guillenrow]";
- mes "Thank you for shopping at my workshop. Feel free to come anytime whenever you need.";
- emotion 15;
- close;
-
-}
-
-
-
-//=====================================================================================
-//= Weapon/Armor Refiners
-//=====================================================================================
-prt_in.gat,63,60,4 script Hollengrhen 85,{
- set @name$,"Hollengrhen";
- callfunc "refinemain";
- break;
-}
-morocc_in.gat,73,38,4 script Aragham 99,{
- set @name$,"Aragham";
- callfunc "refinemain";
- break;
-}
-payon.gat,144,173,4 script Antonio 88,{
- set @name$,"Antonio";
- callfunc "refinemain";
- break;
-}
-alberta_in.gat,28,58,4 script Fredrik 85,{
- set @name$,"Fredrik";
- callfunc "refinemain";
- break;
-}
-yuno_in01.gat,164,26,6 script Disturb 88,{
- set @name$,"Disturb";
- callfunc "refinemain";
- break;
-}
-
-//============================================================
-//= Main Refiner Function
-//============================================================
-//= To allow auto safe refining/multiple refining set the
-//= @features variable to 1
-//============================================================
-function script refinemain {
- set @features,0;
-
- mes "[" + @name$ + "]";
- mes "I am the Armsmith... I can refine any weapon or piece of armor you choose!";
- mes "Which piece of equipment do you want to refine?";
- M_Menu:
- next;
- menu getequipname(1),PART1,getequipname(2),PART2,getequipname(3),PART3,getequipname(4),PART4,getequipname(5),PART5,
- getequipname(6),PART6,getequipname(7),PART7,getequipname(8),PART8,getequipname(9),PART9,getequipname(10),PART10;
-
- //Head Gear
- PART1:
- set @part,1;
- if (getequipisequiped(1)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "Do you want me to refine your dumb brain?";
- emotion 6;
- goto M_Menu;
- //Armor
- PART2:
- set @part,2;
- if (getequipisequiped(2)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "Do you want me to melt your body with blazing heat...?";
- emotion 6;
- goto M_Menu;
- //Left Hand
- PART3:
- set @part,3;
- if (getequipisequiped(3)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "I can't make your left hand into an ultimate weapon...";
- emotion 4;
- goto M_Menu;
- //Right Hand
- PART4:
- set @part,4;
- if (getequipisequiped(4)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "I can't make your right hand into an ultimate weapon...";
- emotion 4;
- goto M_Menu;
- //Garment
- PART5:
- set @part,5;
- if (getequipisequiped(5)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "Look here... you don't have any Garments on....";
- goto M_Menu;
- //Foot Gear
- PART6:
- set @part,6;
- if (getequipisequiped(6)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "Ack!! Those are some stinky feet. I definately can't refine those.... uck!!";
- emotion 16;
- goto M_Menu;
- //Accessory1
- PART7:
- set @part,7;
- if (getequipisequiped(7)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "What do you mean by Accessory? Which One?";
- emotion 20;
- goto M_Menu;
- //Accessory2
- PART8:
- set @part,8;
- if (getequipisequiped(8)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "What do you mean by Accessory? Which One?";
- emotion 20;
- goto M_Menu;
- PART9:
- set @part,9;
- if (getequipisequiped(9)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "What do you want from me? There's nothing equiped there...";
- emotion 20;
- goto M_Menu;
- PART10:
- set @part,10;
- if (getequipisequiped(10)) goto CHECK1;
- mes "[" + @name$ + "]";
- mes "What do you want from me? There's nothing equiped there...";
- emotion 20;
- goto M_Menu;
-
-//Check if the item is refinable...
-CHECK1:
- if(getequipisenableref(@part)) goto CHECK2;
- mes "[" + @name$ + "]";
- mes "I can't work on this item...";
- close;
-//Check if the item is identified... (Don't know why this is in here... but kept it anyway)
-CHECK2:
- if(getequipisidentify(@part)) goto CHECK3;
- mes "[" + @name$ + "]";
- mes "You must appraise this item first.";
- close;
-//Check to see if the items is already +10
-CHECK3:
- if(getequiprefinerycnt(@part) < 10) goto REFINE0;
- mes "[" + @name$ + "]";
- mes "This weapon is allready at its maximum level and can no longer be refined.";
- close;
-
-//Refine Armor
-REFINE0:
- if(getequipweaponlv(@part) > 0) goto REFINE1;
- set @matname$,"Elunium";
- set @material,985;
- set @price,2000;
- set @safe,4;
- if(@features == 1) callfunc "refinefeatures";
- callfunc "refinenormal";
-//Refine Level 1 Weapon
-REFINE1:
- if(getequipweaponlv(@part) > 1) goto REFINE2;
- set @matname$,"Phracon";
- set @material,1010;
- set @price,50;
- set @safe,7;
- if(@features == 1) callfunc "refinefeatures";
- callfunc "refinenormal";
-//Refine Level 2 Weapon
-REFINE2:
- if(getequipweaponlv(@part) > 2) goto REFINE3;
- set @matname$,"Emveretarcon";
- set @material,1011;
- set @price,200;
- set @safe,6;
- if(@features == 1) callfunc "refinefeatures";
- callfunc "refinenormal";
-//Refine Level 3 Weapon
-REFINE3:
- if(getequipweaponlv(@part) > 3) goto REFINE4;
- set @matname$,"Oridecon";
- set @material,984;
- set @price,5000;
- set @safe,5;
- if(@features == 1) callfunc "refinefeatures";
- callfunc "refinenormal";
-//Refine Level 4 Weapon
-REFINE4:
- set @matname$,"Oridecon";
- set @material,984;
- set @price,20000;
- set @safe,4;
- if(@features == 1) callfunc "refinefeatures";
- callfunc "refinenormal";
-}
-
-// Normal Refining Functions =========================
-function script refinenormal -1,{
- mes "[" + @name$ + "]";
- mes "To refine this stuff,I need ^ff9999" + @matname$ + "^000000 and the fee " + @price + " Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",Lcancel;
-
- if (getequippercentrefinery(@part) == 100) goto L_Sub;
- mes "[" + @name$ + "]";
- mes "Hmm... Hold on! This piece of equipment has already been refined to its maximum safety level.";
- mes "I must warn you if it is refined ANYMORE, It could be DESTROYED and become USELESS!!";
- next;
- mes "["+@name$+"]";
- mes "Do you still wish you refine it? If so I will not be able to gaurantee my work...";
- next;
- menu "Yes",L_Sub,"No",Lcancel1;
-
- L_Sub:
- if ((countitem(@material) < 1) || (Zeny < @price)) goto Lcancel2;
- delitem @material,1;
- set Zeny,Zeny-@price;
-
-Lrefine:
- if (getequippercentrefinery(@part)<=rand(100)) goto Lfail;
- mes "["+@name$+"]";
- mes "Clang! Clang! Clang!";
- successrefitem @part;
- next;
- mes "["+@name$+"]";
- mes "HAHA! It seems my skills haven't gotten rusty yet! Splendid... just splendid...";
- emotion 21;
- close;
-
-Lfail:
- mes "[" + @name$ + "]";
- mes "Clang! Clang! Clang!";
- failedrefitem @part;
- next;
- mes "["+@name$+"]";
- mes "Aaahhh!! Oh no....!!";
- emotion 16;
- next;
- mes "["+@name$+"]";
- mes "Eh..Ehem... I'm sorry but the refining proccess ^ff0000failed^000000.";
- next;
- mes "["+@name$+"]";
- mes "I am deeply ashamed of what I've done... but I DID warn you earlier about the risks.";
- close;
-
-Lcancel:
- mes "[" + @name$ + "]";
- mes "You said so..Hmm so be it...";
- close;
-
-Lcancel1:
- mes "[" + @name$ + "]";
- mes "Good Choice.";
- mes "Ah... good choice. I'd feel awfull if I'd destroyed another persons piece of equipment with my own hands.";
- close;
-
-Lcancel2:
- mes "[" + @name$ + "]";
- mes "Is that all you got? Unfortunately I can't work for you at a lower price. Try putting yourself in my shoes.";
- close;
-}
-
-// New Refining Functions ========================
-function script refinefeatures {
- if(getequiprefinerycnt(@part) >= @safe) goto Lnosafe;
- mes "[" + @name$ + "]";
- mes "I can refine this to the safe limit or a desired number of times... it's your choice...";
- next;
- menu "To the safe limit please.",Lsafe,"I'll decide how many times.",Lnosafe,"I've changed my mind...",Lcancel;
-
-Lsafe:
- set @refinecnt,@safe - getequiprefinerycnt(@part);
- set @fullprice,@price * @refinecnt;
- mes "[" + @name$ + "]";
- mes "That will cost you " + @refinecnt + " " + @matname$ + " and " + @fullprice + " Zeny. Is that ok?";
- next;
- menu "Yes",-,"No...",Lcancel;
- if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
- delitem @material,@refinecnt;
- set Zeny,Zeny - @fullprice;
- callfunc "refinesafe";
- break;
-
-Lnosafe:
- mes "[" + @name$ + "]";
- mes "So how many times would you like me to refine your item?";
- next;
- input @refinecnt;
- if (@refinecnt<1) goto Lcancel3; //fixed by Lupus
- set @refinecheck,@refinecnt + getequiprefinerycnt(@part);
- if(@refinecheck > 10) goto Lcancel3;
- set @fullprice,@price * @refinecnt;
- mes "[" + @name$ + "]";
- mes "This will cost you " + @refinecnt + " " + @matname$ + " and " + @price + " Zeny... Is that ok?";
- next;
- menu "Yes...",-,"No...",Lcancel;
- if(@refinecheck > @safe) goto Lwarn;
- if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
- delitem @material,@refinecnt;
- set Zeny,Zeny - @fullprice;
- callfunc "refinenumber";
- break;
-
- Lwarn:
- set @refinecheck,@refinecheck - @safe;
- mes "[" + @name$ + "]";
- mes "This will try to refine the equipment " + @refinecheck + " times past the safe limit. Your equipment may be destroyed... is that ok?";
- next;
- menu "Yes",-,"No...",Lcancel1;
- if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
- delitem @material,@refinecnt;
- set Zeny,Zeny - @fullprice;
- callfunc "refinenumber";
- break;
-Lcancel:
- mes "[" + @name$ + "]";
- mes "If you say so... See you again soon I hope.";
- close;
-Lcancel1:
- mes "[" + @name$ + "]";
- mes "Good... I don't like to break people's equipment...";
- close;
-Lcancel2:
- mes "[" + @name$ + "]";
- mes "Sorry but you don't have everything I need...";
- close;
-Lcancel3:
- mes "[" + @name$ + "]";
- mes "I can't refine this item that many times.";
- close;
-}
-
-// Function: Safe Refine ---------------------
-function script refinesafe {
- mes "Clang, clang!!!";
- successrefitem @part;
- emotion 21;
- set @refinecnt,@refinecnt - 1;
- next;
- if(@refinecnt == 0) goto Lend;
- callfunc "refinesafe";
- break;
-
- Lend:
- mes "[" + @name$ + "]";
- mes "All finished... Come again soon.";
- close;
-}
-// Function: Refine
-function script refinenumber {
- mes "Clang, clang!!!";
- if (getequippercentrefinery(@part)<=rand(100)) goto Lfail;
- successrefitem @part;
- emotion 21;
- set @refinecnt,@refinecnt - 1;
- next;
- if(@refinecnt == 0) goto Lend;
- callfunc "refinenumber";
- break;
-
- Lend:
- mes "[" + @name$ + "]";
- mes "All finished... Come again soon.";
- close;
-
- Lfail:
- failedrefitem @part;
- emotion 23;
- mes "[" + @name$ + "]";
- mes "WAHHHH!!! I'm so sorry... I warned you this could happen...";
- set @refinecnt,@refinecnt - 1;
- if(@refinecnt == 0) goto Lend2;
- mes "Here's the unused Zeny and Material back...";
- getitem @material,@refinecnt;
- set @fullprice,@refinecnt * @price;
- set Zeny,Zeny + @fullprice;
-
- Lend2:
- close;
-}
-
-
-
-//==============================================================================
-//= Material Salesmen
-//==============================================================================
-prt_in.gat,56,69,4 script Vurewell 86,{
- set @name$,"Vurewell";
- callfunc "phramain";
- break;
-}
-payon.gat,145,178,4 script Begnahd 88,{
- set @name$,"Begnahd";
- callfunc "phramain";
- break;
-}
-morocc_in.gat,65,37,4 script Sade 99,{
- set @name$,"Sade";
- callfunc "phramain";
- break;
-}
-alberta_in.gat,18,59,5 script Kahlamanlith 86,{
- set @name$,"Kahlamanlith";
- callfunc "phramain";
- break;
-}
-yuno_in01.gat,171,26,6 script Dillemat 88,{
- set @name$,"Dillemat";
- callfunc "phramain";
- break;
-}
-
-//============================================================
-//= Material Salesmen Functions
-//============================================================
-function script phramain {
- if(@chris == 1) goto M_Menu;
- mes "[" + @name$ + "]";
- mes "Hello, Im selling metals I just mined.";
- mes "They are Pharacon and Emvertacon.";
- mes "Would you like to buy some?";
- M_Menu:
- set @chris, 0;
- next;
- menu"Pharacon - 200z",PHARA,"Emveretarcon - 1000z",EMVER;
-
- PHARA:
- set @itemid,1010;
- set @value,200;
- goto CONTINUE;
-
- EMVER:
- set @itemid,1011;
- set @value,1000;
-
-CONTINUE:
- mes "[" + @name$ + "]";
- mes "How many would you like?";
- next;
- input @ammount;
- if (@ammount <= 0) goto L_BELOW;
- if (@ammount > 999) goto L_ABOVE;
- if (zeny<@value*@ammount) goto L_NOZENY;
- if (checkweight(@item,@ammount) == 0) goto L_WEIGHT;
- getitem @itemid,@ammount;
- set Zeny,Zeny-@value*@ammount;
- mes "[" + @name$ + "]";
- mes "Here you go.";
- close;
-
-L_NOZENY:
- mes "You do not have enough zeny!";
- close;
-L_WEIGHT:
- mes "You cant hold that many of that item";
- close;
-L_BELOW:
- mes "You have to buy a POSITIVE amount of items!";
- close;
-L_ABOVE:
- mes "You cant buy this much of this item!";
- close;
-}
-
-
-
-//==============================================================================
-//= Ori/Elu Refiners
-//==============================================================================
-prt_in.gat,63,69,4 script Dietrich 84,{
- set @name$,"Dietrich";
- callfunc "orimain";
- break;
-}
-payon.gat,137,178,4 script Hakhim 88,{
- set @name$,"Hakhim";
- callfunc "orimain";
- break;
-}
-morocc_in.gat,72,32,4 script Abdul 99,{
- set @name$,"Abdul";
- callfunc "orimain";
- break;
-}
-alberta_in.gat,21,63,5 script Xenophon 84,{
- set @name$,"Xenophon";
- callfunc "orimain";
- break;
-}
-yuno_in01.gat,171,22,6 script Delayt 88,{
- set @name$,"Delayt";
- callfunc "orimain";
-break;
-}
-
-//============================================================
-//= Ori/Elu Functions
-//============================================================
-function script orimain {
- if(@chris == 1) goto M_Menu;
- mes "[" + @name$ + "]";
- mes "If you bring Rough Oridecons and";
- mes "Rough Eluniums to me,";
- mes "I can refine them for you.";
- mes "However, you must bring 5 of each.";
- M_Menu:
- set @chris, 0;
- next;
- menu "Make Oridecon",M_Ori, "Make Elunium",M_Elu, "Ask about enchanted stones",M_Stones;
-
- M_Ori:
- if ((countitem(756) < 5)) goto L_NoOri;
- delitem 756,5;
- getitem 984,1;
- mes "[" + @name$ + "]";
- mes "As promised, here's your oridecon.";
- mes "Come back again anytime.";
- close;
-
- L_NoOri:
- mes "[" + @name$ + "]";
- mes "Huh? You're kidding, right? Didn't I say I can't make you an Oridecon unless you bring me 5 rough ones?";
- close;
- M_Elu:
- if ((countitem(757) < 5)) goto L_NoElu;
- delitem 757,5;
- getitem 985,1;
- mes "[" + @name$ + "]";
- mes "As promised, here's your elunium.";
- mes "Come back again anytime.";
- close;
-
- L_NoElu:
- mes "[" + @name$ + "]";
- mes "Huh? You're kidding, right? Didn't I say I can't make you an Elunium unless you bring me 5 rough ones?";
- close;
- M_Stones:
- mes "[" + @name$ + "]";
- mes "Enchanted stones, huh ....";
- next;
- mes "[" + @name$ + "]";
- mes "Well, in the 20 years that I've been a stonesmith I've heard of them many times... though I've never actually seen them before.";
- next;
- mes "[" + @name$ + "]";
- mes "I've been told that enchanted stones possess different elemental properties such as ^5533FFWater, Earth, Fire, and Wind^000000.";
- next;
- mes "[" + @name$ + "]";
- mes "If someone combines an Enchanted Stone with a weapon durring the refining process, that weapon will possess the same property as the stone.";
- next;
- mes "[" + @name$ + "]";
- mes "Of course, that person needs to be skillfull enough to work on it.";
- goto M_Menu;
-}
-
-
-
-//=====================================================================================
-//= Equipment Repairmen
-//=====================================================================================
-prt_in.gat,62,54,2 script Grendal 84,{
- set @name$,"Grendal";
- callfunc "repairmain";
- break;
-}
-
-//Temp Spot, Not Shure Where To place
-payon.gat,149,182,2 script Repairman 88,{
- set @name$,"Repairman";
- callfunc "repairmain";
- break;
-}
-
-morocc_in.gat,71,40,2 script Repairman 99,{
- set @name$,"Repairman";
- callfunc "repairmain";
- break;
-}
-
-//============================================================
-//= Equipment Repair Function
-//============================================================
-function script repairmain {
- mes "[" + @name$ + "]";
- mes "I am the Repair Smith and I can repair any Arms you want.";
- mes "Tell me which Equipment you want to repair.";
- set @broken1,getbrokenid(1);
- set @broken2,getbrokenid(2);
- set @broken3,getbrokenid(3);
- set @broken4,getbrokenid(4);
- set @broken5,getbrokenid(5);
- set @broken6,getbrokenid(6);
- set @broken7,getbrokenid(7);
- set @broken8,getbrokenid(8);
- set @broken9,getbrokenid(9);
- set @broken10,getbrokenid(10);
- next;
- if(@broken1==NULL) goto L_CANCEL_3;
- menu getitemname(@broken1),REPAIR1,getitemname(@broken2),REPAIR2,getitemname(@broken3),REPAIR3,
- getitemname(@broken4),REPAIR4,getitemname(@broken5),REPAIR5,getitemname(@broken6),REPAIR6,
- getitemname(@broken7),REPAIR7,getitemname(@broken8),REPAIR8,getitemname(@broken9),REPAIR9,
- getitemname(@broken10),REPAIR10;
- REPAIR1:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(1);
- goto L_CLOSE;
- REPAIR2:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(2);
- goto L_CLOSE;
- REPAIR3:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(3);
- goto L_CLOSE;
- REPAIR4:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(4);
- goto L_CLOSE;
- REPAIR5:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(5);
- goto L_CLOSE;
- REPAIR6:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(6);
- goto L_CLOSE;
- REPAIR7:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(7);
- goto L_CLOSE;
- REPAIR8:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(8);
- goto L_CLOSE;
- REPAIR9:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(9);
- goto L_CLOSE;
- REPAIR10:
- mes "[" + @name$ + "]";
- mes "You're gonna repair " + getitemname(@broken1) + ".";
- mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
- mes "Continue?";
- next;
- menu "Yes",-,"No",L_CANCEL_2;
- if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
- delitem 999,1;
- set Zeny,Zeny-10000;
- repair(10);
- goto L_CLOSE;
-
-L_CANCEL_1:
- mes "[" + @name$ + "]";
- mes "Is it all you got?";
- mes "Unfortunately, I have kids to feed...";
- goto L_CLOSE;
-L_CANCEL_2:
- mes "[" + @name$ + "]";
- mes "Ok, but don't expect to be using that...";
- goto L_CLOSE;
-L_CANCEL_3:
- mes "[" + @name$ + "]";
- mes "Looks like you don't need anything repaired today...";
- goto L_CLOSE;
-L_CLOSE:
- close;
-}
+//===== eAthena Script =======================================
+//= Refining NPCs
+//===== By: ==================================================
+//= Syrus22 (1.1)
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= Any Athena Version
+//===== Description: =========================================
+//= Refining NPCs and Metal Salesmen.
+//===== Additional Comments: =================================
+//= 1.0 by A bunch of people!
+//= Syrus22 - Completely redid the script using functions... also
+//= added the option for auto safe refining and multiple refining.
+//= 1.1 Negative input bug fixed [Lupus]
+//= 1.2 Added additional reparimen in morroc and payon. Added
+//= Christopher the blacksmith in Geffen. Edited some dialogue [kobra_k88]
+//= 1.3 New Payon Locations [Darkchild]
+//= Corrected zeny subtraction thx to jpnmania77.[kobra_k88]
+//= 1.3a Temporary corrected an expliot. Need to check sources
+//= to fully fix bug [Shinigami]
+//============================================================
+
+
+//=========================================================
+// Christopher: Geffen Blacksmith
+//=========================================================
+geffen_in.gat,110,172,2 script Christopher 63,
+{
+ mes "[Christopher Guillenrow]";
+ mes "Welcome to Christopher's Workshop. Ye can find all yer forging equipment here. So what can I help ye with?";
+ M_Menu:
+ next;
+ menu "Purchase Anvil",M_0, "Purchase Forging Item",M_1, "Purchase Metal",M_2, "Purify Rough Ores",M_3, "Cancel",M_End;
+
+ M_0:
+ mes "[Christopher Guillenrow]";
+ mes "Higher quality Anvils gives ye a better chance ta make better weapons, ye know. But they cost more than yer typical ones.";
+ next;
+ menu "Anvil - 30000z.",sM_Anvil, "Oridecon Anvil - 120000z.",sM_OriAnvil, "Golden Anvil - 300000z.",sM_GolAnvil,
+ "Better Anvil than others",sM_BetAnvil, "Cancel",M_Menu;
+
+ sM_Anvil:
+ if(Zeny < 30000) goto L_NoZeny;
+ mes "[Christopher Guillenrow]";
+ mes "This is the cheapest one but it's very efficient.";
+ set Zeny, Zeny - 30000;
+ getitem 986,1;
+ next;
+ goto L_Thanks;
+ sM_OriAnvil:
+ if(Zeny < 120000) goto L_NoZeny;
+ mes "[Christopher Guillenrow]";
+ mes "Ah! Ye have a good eye for anvils. This here is the proper anvil for a Blacksmith.";
+ set Zeny, Zeny - 120000;
+ getitem 987,1;
+ next;
+ goto L_Thanks;
+ sM_GolAnvil:
+ if(Zeny < 300000) goto L_NoZeny;
+ mes "[Christopher Guillenrow]";
+ mes "This is the best anvil in my workshop! With this ye'll be the best Blasksmith in no time.";
+ set Zeny, Zeny - 300000;
+ getitem 988,1;
+ next;
+ goto L_Thanks;
+ sM_BetAnvil:
+ mes "[Christopher Guillenrow]";
+ mes "I'm sorry but I don't have anything better than a Golden Anvil.";
+ mes "Maybe 'Ringgel' the legendary Anvil maker would have one... but he be a hard fellow ta find.";
+ close;
+
+ M_1:
+ mes "[Christopher Guillenrow]";
+ mes "A respectable Blacksmith uses fine tools. Ye will come ta know my tools as being the finest around!";
+ mes "Choose anything you want.";
+ sM_Menu1:
+ next;
+ menu "Mini-Furnace - 150z.",sM_Furn, "Iron Hammer - 1000z.",sM_IrHam, "Golden Hammer - 3000z.",sM_GldHam,
+ "Oridecon Hammer - 5000z.",sM_OriHam, "Cancel",M_Menu;
+
+ sM_Furn:
+ mes "[Christopher Guillenrow]";
+ mes "This is a prerequisite for Metal refining!!";
+ mes "So, how many do ye wish to buy? If you want to quit, please input the number '0'. However, you the maximum amount you can buy is 1000";
+ set @input, 0;
+ input @input;
+ next;
+ if(@input < 1 ) goto sM_Menu1;
+ if(@input > 1000 ) goto sM_Max;
+ if(Zeny < 150 * @input) goto L_NoZeny;
+ set Zeny, Zeny - (150 * @input);
+ getitem 612, @input;
+ goto L_Thanks;
+ sM_IrHam:
+ if(Zeny < 1000) goto L_NoZeny;
+ set Zeny, Zeny - 1000;
+ getitem 613,1;
+ goto L_Thanks;
+ sM_GldHam:
+ if(Zeny < 3000) goto L_NoZeny;
+ set Zeny, Zeny - 3000;
+ getitem 614,1;
+ goto L_Thanks;
+ sM_OriHam:
+ if(Zeny < 5000) goto L_NoZeny;
+ set Zeny, Zeny - 5000;
+ getitem 615,1;
+ goto L_Thanks;
+ sM_Max:
+ mes "[Christopher Guillenrow]";
+ mes "Sorry, you can't buy more than 1000 furnace at a time.";
+ close;
+
+ M_2:
+ mes "[Christopher Guillenrow]";
+ mes "I have 2 kinds of metals for sale. Which do ye like?";
+ set @chris, 1;
+ set @name$, "Christopher Guillenrow";
+ callfunc "phramain";
+
+ M_3:
+ mes "[Christopher Guillenrow]";
+ mes "I can purify yer rough Oridecon and rough Elunium ores. I'll need 5 rough ores to make 1 pure one.";
+ mes "Well... which one do ye want ta make?";
+ set @chris, 1;
+ set @name$, "Christopher Guillenrow";
+ callfunc "orimain";
+
+ M_End:
+ close;
+
+ L_NoZeny:
+ mes "[Christopher Guillenrow]";
+ mes "I don't think I can let ye have this at a lower price. I can't afford ta loose profits because of ye.";
+ emotion 4;
+ close;
+
+ L_Thanks:
+ mes "[Christopher Guillenrow]";
+ mes "Thank you for shopping at my workshop. Feel free to come anytime whenever you need.";
+ emotion 15;
+ close;
+
+}
+
+
+
+//=====================================================================================
+//= Weapon/Armor Refiners
+//=====================================================================================
+prt_in.gat,63,60,4 script Hollengrhen 85,{
+ set @name$,"Hollengrhen";
+ callfunc "refinemain";
+ break;
+}
+morocc_in.gat,73,38,4 script Aragham 99,{
+ set @name$,"Aragham";
+ callfunc "refinemain";
+ break;
+}
+payon.gat,144,173,4 script Antonio 88,{
+ set @name$,"Antonio";
+ callfunc "refinemain";
+ break;
+}
+alberta_in.gat,28,58,4 script Fredrik 85,{
+ set @name$,"Fredrik";
+ callfunc "refinemain";
+ break;
+}
+yuno_in01.gat,164,26,6 script Disturb 88,{
+ set @name$,"Disturb";
+ callfunc "refinemain";
+ break;
+}
+
+//============================================================
+//= Main Refiner Function
+//============================================================
+//= To allow auto safe refining/multiple refining set the
+//= @features variable to 1
+//============================================================
+function script refinemain {
+ set @features,0;
+
+ mes "[" + @name$ + "]";
+ mes "I am the Armsmith... I can refine any weapon or piece of armor you choose!";
+ mes "Which piece of equipment do you want to refine?";
+ M_Menu:
+ next;
+ menu getequipname(1),PART1,getequipname(2),PART2,getequipname(3),PART3,getequipname(4),PART4,getequipname(5),PART5,
+ getequipname(6),PART6,getequipname(7),PART7,getequipname(8),PART8,getequipname(9),PART9,getequipname(10),PART10;
+
+ //Head Gear
+ PART1:
+ set @part,1;
+ if (getequipisequiped(1)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "Do you want me to refine your dumb brain?";
+ emotion 6;
+ goto M_Menu;
+ //Armor
+ PART2:
+ set @part,2;
+ if (getequipisequiped(2)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "Do you want me to melt your body with blazing heat...?";
+ emotion 6;
+ goto M_Menu;
+ //Left Hand
+ PART3:
+ set @part,3;
+ if (getequipisequiped(3)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "I can't make your left hand into an ultimate weapon...";
+ emotion 4;
+ goto M_Menu;
+ //Right Hand
+ PART4:
+ set @part,4;
+ if (getequipisequiped(4)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "I can't make your right hand into an ultimate weapon...";
+ emotion 4;
+ goto M_Menu;
+ //Garment
+ PART5:
+ set @part,5;
+ if (getequipisequiped(5)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "Look here... you don't have any Garments on....";
+ goto M_Menu;
+ //Foot Gear
+ PART6:
+ set @part,6;
+ if (getequipisequiped(6)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "Ack!! Those are some stinky feet. I definately can't refine those.... uck!!";
+ emotion 16;
+ goto M_Menu;
+ //Accessory1
+ PART7:
+ set @part,7;
+ if (getequipisequiped(7)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "What do you mean by Accessory? Which One?";
+ emotion 20;
+ goto M_Menu;
+ //Accessory2
+ PART8:
+ set @part,8;
+ if (getequipisequiped(8)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "What do you mean by Accessory? Which One?";
+ emotion 20;
+ goto M_Menu;
+ PART9:
+ set @part,9;
+ if (getequipisequiped(9)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "What do you want from me? There's nothing equiped there...";
+ emotion 20;
+ goto M_Menu;
+ PART10:
+ set @part,10;
+ if (getequipisequiped(10)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "What do you want from me? There's nothing equiped there...";
+ emotion 20;
+ goto M_Menu;
+
+//Check if the item is refinable...
+CHECK1:
+ if(getequipisenableref(@part)) goto CHECK2;
+ mes "[" + @name$ + "]";
+ mes "I can't work on this item...";
+ close;
+//Check if the item is identified... (Don't know why this is in here... but kept it anyway)
+CHECK2:
+ if(getequipisidentify(@part)) goto CHECK3;
+ mes "[" + @name$ + "]";
+ mes "You must appraise this item first.";
+ close;
+//Check to see if the items is already +10
+CHECK3:
+ if(getequiprefinerycnt(@part) < 10) goto REFINE0;
+ mes "[" + @name$ + "]";
+ mes "This weapon is allready at its maximum level and can no longer be refined.";
+ close;
+
+//Refine Armor
+REFINE0:
+ if(getequipweaponlv(@part) > 0) goto REFINE1;
+ set @matname$,"Elunium";
+ set @material,985;
+ set @price,2000;
+ set @safe,4;
+ if(@features == 1) callfunc "refinefeatures";
+ callfunc "refinenormal";
+//Refine Level 1 Weapon
+REFINE1:
+ if(getequipweaponlv(@part) > 1) goto REFINE2;
+ set @matname$,"Phracon";
+ set @material,1010;
+ set @price,50;
+ set @safe,7;
+ if(@features == 1) callfunc "refinefeatures";
+ callfunc "refinenormal";
+//Refine Level 2 Weapon
+REFINE2:
+ if(getequipweaponlv(@part) > 2) goto REFINE3;
+ set @matname$,"Emveretarcon";
+ set @material,1011;
+ set @price,200;
+ set @safe,6;
+ if(@features == 1) callfunc "refinefeatures";
+ callfunc "refinenormal";
+//Refine Level 3 Weapon
+REFINE3:
+ if(getequipweaponlv(@part) > 3) goto REFINE4;
+ set @matname$,"Oridecon";
+ set @material,984;
+ set @price,5000;
+ set @safe,5;
+ if(@features == 1) callfunc "refinefeatures";
+ callfunc "refinenormal";
+//Refine Level 4 Weapon
+REFINE4:
+ set @matname$,"Oridecon";
+ set @material,984;
+ set @price,20000;
+ set @safe,4;
+ if(@features == 1) callfunc "refinefeatures";
+ callfunc "refinenormal";
+}
+
+// Normal Refining Functions =========================
+function script refinenormal -1,{
+ mes "[" + @name$ + "]";
+ mes "To refine this stuff,I need ^ff9999" + @matname$ + "^000000 and the fee " + @price + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",Lcancel;
+
+ if (getequippercentrefinery(@part) == 100) goto L_Sub;
+ mes "[" + @name$ + "]";
+ mes "Hmm... Hold on! This piece of equipment has already been refined to its maximum safety level.";
+ mes "I must warn you if it is refined ANYMORE, It could be DESTROYED and become USELESS!!";
+ next;
+ mes "["+@name$+"]";
+ mes "Do you still wish you refine it? If so I will not be able to gaurantee my work...";
+ next;
+ menu "Yes",L_Sub,"No",Lcancel1;
+
+ L_Sub:
+ if ((countitem(@material) < 1) || (Zeny < @price)) goto Lcancel2;
+ delitem @material,1;
+ set Zeny,Zeny-@price;
+
+Lrefine:
+ if (getequippercentrefinery(@part)<=rand(100)) goto Lfail;
+ mes "["+@name$+"]";
+ mes "Clang! Clang! Clang!";
+ successrefitem @part;
+ next;
+ mes "["+@name$+"]";
+ mes "HAHA! It seems my skills haven't gotten rusty yet! Splendid... just splendid...";
+ emotion 21;
+ close;
+
+Lfail:
+ mes "[" + @name$ + "]";
+ mes "Clang! Clang! Clang!";
+ failedrefitem @part;
+ next;
+ mes "["+@name$+"]";
+ mes "Aaahhh!! Oh no....!!";
+ emotion 16;
+ next;
+ mes "["+@name$+"]";
+ mes "Eh..Ehem... I'm sorry but the refining proccess ^ff0000failed^000000.";
+ next;
+ mes "["+@name$+"]";
+ mes "I am deeply ashamed of what I've done... but I DID warn you earlier about the risks.";
+ close;
+
+Lcancel:
+ mes "[" + @name$ + "]";
+ mes "You said so..Hmm so be it...";
+ close;
+
+Lcancel1:
+ mes "[" + @name$ + "]";
+ mes "Good Choice.";
+ mes "Ah... good choice. I'd feel awfull if I'd destroyed another persons piece of equipment with my own hands.";
+ close;
+
+Lcancel2:
+ mes "[" + @name$ + "]";
+ mes "Is that all you got? Unfortunately I can't work for you at a lower price. Try putting yourself in my shoes.";
+ close;
+}
+
+// New Refining Functions ========================
+function script refinefeatures {
+ if(getequiprefinerycnt(@part) >= @safe) goto Lnosafe;
+ mes "[" + @name$ + "]";
+ mes "I can refine this to the safe limit or a desired number of times... it's your choice...";
+ next;
+ menu "To the safe limit please.",Lsafe,"I'll decide how many times.",Lnosafe,"I've changed my mind...",Lcancel;
+
+Lsafe:
+ set @refinecnt,@safe - getequiprefinerycnt(@part);
+ set @fullprice,@price * @refinecnt;
+ mes "[" + @name$ + "]";
+ mes "That will cost you " + @refinecnt + " " + @matname$ + " and " + @fullprice + " Zeny. Is that ok?";
+ next;
+ menu "Yes",-,"No...",Lcancel;
+ if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
+ delitem @material,@refinecnt;
+ set Zeny,Zeny - @fullprice;
+ callfunc "refinesafe";
+ break;
+
+Lnosafe:
+ mes "[" + @name$ + "]";
+ mes "So how many times would you like me to refine your item?";
+ next;
+ input @refinecnt;
+ if (@refinecnt<1) goto Lcancel3; //fixed by Lupus
+ set @refinecheck,@refinecnt + getequiprefinerycnt(@part);
+ if(@refinecheck > 10) goto Lcancel3;
+ set @fullprice,@price * @refinecnt;
+ mes "[" + @name$ + "]";
+ mes "This will cost you " + @refinecnt + " " + @matname$ + " and " + @price + " Zeny... Is that ok?";
+ next;
+ menu "Yes...",-,"No...",Lcancel;
+ if(@refinecheck > @safe) goto Lwarn;
+ if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
+ delitem @material,@refinecnt;
+ set Zeny,Zeny - @fullprice;
+ callfunc "refinenumber";
+ break;
+
+ Lwarn:
+ set @refinecheck,@refinecheck - @safe;
+ mes "[" + @name$ + "]";
+ mes "This will try to refine the equipment " + @refinecheck + " times past the safe limit. Your equipment may be destroyed... is that ok?";
+ next;
+ menu "Yes",-,"No...",Lcancel1;
+ if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
+ delitem @material,@refinecnt;
+ set Zeny,Zeny - @fullprice;
+ callfunc "refinenumber";
+ break;
+Lcancel:
+ mes "[" + @name$ + "]";
+ mes "If you say so... See you again soon I hope.";
+ close;
+Lcancel1:
+ mes "[" + @name$ + "]";
+ mes "Good... I don't like to break people's equipment...";
+ close;
+Lcancel2:
+ mes "[" + @name$ + "]";
+ mes "Sorry but you don't have everything I need...";
+ close;
+Lcancel3:
+ mes "[" + @name$ + "]";
+ mes "I can't refine this item that many times.";
+ close;
+}
+
+// Function: Safe Refine ---------------------
+function script refinesafe {
+ mes "Clang, clang!!!";
+ successrefitem @part;
+ emotion 21;
+ set @refinecnt,@refinecnt - 1;
+ next;
+ if(@refinecnt == 0) goto Lend;
+ callfunc "refinesafe";
+ break;
+
+ Lend:
+ mes "[" + @name$ + "]";
+ mes "All finished... Come again soon.";
+ close;
+}
+// Function: Refine
+function script refinenumber {
+ mes "Clang, clang!!!";
+ if (getequippercentrefinery(@part)<=rand(100)) goto Lfail;
+ successrefitem @part;
+ emotion 21;
+ set @refinecnt,@refinecnt - 1;
+ next;
+ if(@refinecnt == 0) goto Lend;
+ callfunc "refinenumber";
+ break;
+
+ Lend:
+ mes "[" + @name$ + "]";
+ mes "All finished... Come again soon.";
+ close;
+
+ Lfail:
+ failedrefitem @part;
+ emotion 23;
+ mes "[" + @name$ + "]";
+ mes "WAHHHH!!! I'm so sorry... I warned you this could happen...";
+ set @refinecnt,@refinecnt - 1;
+ if(@refinecnt == 0) goto Lend2;
+ mes "Here's the unused Zeny and Material back...";
+ getitem @material,@refinecnt;
+ set @fullprice,@refinecnt * @price;
+ set Zeny,Zeny + @fullprice;
+
+ Lend2:
+ close;
+}
+
+
+
+//==============================================================================
+//= Material Salesmen
+//==============================================================================
+prt_in.gat,56,69,4 script Vurewell 86,{
+ set @name$,"Vurewell";
+ callfunc "phramain";
+ break;
+}
+payon.gat,145,178,4 script Begnahd 88,{
+ set @name$,"Begnahd";
+ callfunc "phramain";
+ break;
+}
+morocc_in.gat,65,37,4 script Sade 99,{
+ set @name$,"Sade";
+ callfunc "phramain";
+ break;
+}
+alberta_in.gat,18,59,5 script Kahlamanlith 86,{
+ set @name$,"Kahlamanlith";
+ callfunc "phramain";
+ break;
+}
+yuno_in01.gat,171,26,6 script Dillemat 88,{
+ set @name$,"Dillemat";
+ callfunc "phramain";
+ break;
+}
+
+//============================================================
+//= Material Salesmen Functions
+//============================================================
+function script phramain {
+ if(@chris == 1) goto M_Menu;
+ mes "[" + @name$ + "]";
+ mes "Hello, Im selling metals I just mined.";
+ mes "They are Pharacon and Emvertacon.";
+ mes "Would you like to buy some?";
+ M_Menu:
+ set @chris, 0;
+ next;
+ menu"Pharacon - 200z",PHARA,"Emveretarcon - 1000z",EMVER;
+
+ PHARA:
+ set @itemid,1010;
+ set @value,200;
+ goto CONTINUE;
+
+ EMVER:
+ set @itemid,1011;
+ set @value,1000;
+
+CONTINUE:
+ mes "[" + @name$ + "]";
+ mes "How many would you like?";
+ next;
+ input @ammount;
+ if (@ammount <= 0) goto L_BELOW;
+ if (@ammount > 999) goto L_ABOVE;
+ if (zeny<@value*@ammount) goto L_NOZENY;
+ if (checkweight(@item,@ammount) == 0) goto L_WEIGHT;
+ getitem @itemid,@ammount;
+ set Zeny,Zeny-@value*@ammount;
+ mes "[" + @name$ + "]";
+ mes "Here you go.";
+ close;
+
+L_NOZENY:
+ mes "You do not have enough zeny!";
+ close;
+L_WEIGHT:
+ mes "You cant hold that many of that item";
+ close;
+L_BELOW:
+ mes "You have to buy a POSITIVE amount of items!";
+ close;
+L_ABOVE:
+ mes "You cant buy this much of this item!";
+ close;
+}
+
+
+
+//==============================================================================
+//= Ori/Elu Refiners
+//==============================================================================
+prt_in.gat,63,69,4 script Dietrich 84,{
+ set @name$,"Dietrich";
+ callfunc "orimain";
+ break;
+}
+payon.gat,137,178,4 script Hakhim 88,{
+ set @name$,"Hakhim";
+ callfunc "orimain";
+ break;
+}
+morocc_in.gat,72,32,4 script Abdul 99,{
+ set @name$,"Abdul";
+ callfunc "orimain";
+ break;
+}
+alberta_in.gat,21,63,5 script Xenophon 84,{
+ set @name$,"Xenophon";
+ callfunc "orimain";
+ break;
+}
+yuno_in01.gat,171,22,6 script Delayt 88,{
+ set @name$,"Delayt";
+ callfunc "orimain";
+break;
+}
+
+//============================================================
+//= Ori/Elu Functions
+//============================================================
+function script orimain {
+ if(@chris == 1) goto M_Menu;
+ mes "[" + @name$ + "]";
+ mes "If you bring Rough Oridecons and";
+ mes "Rough Eluniums to me,";
+ mes "I can refine them for you.";
+ mes "However, you must bring 5 of each.";
+ M_Menu:
+ set @chris, 0;
+ next;
+ menu "Make Oridecon",M_Ori, "Make Elunium",M_Elu, "Ask about enchanted stones",M_Stones;
+
+ M_Ori:
+ if ((countitem(756) < 5)) goto L_NoOri;
+ delitem 756,5;
+ getitem 984,1;
+ mes "[" + @name$ + "]";
+ mes "As promised, here's your oridecon.";
+ mes "Come back again anytime.";
+ close;
+
+ L_NoOri:
+ mes "[" + @name$ + "]";
+ mes "Huh? You're kidding, right? Didn't I say I can't make you an Oridecon unless you bring me 5 rough ones?";
+ close;
+ M_Elu:
+ if ((countitem(757) < 5)) goto L_NoElu;
+ delitem 757,5;
+ getitem 985,1;
+ mes "[" + @name$ + "]";
+ mes "As promised, here's your elunium.";
+ mes "Come back again anytime.";
+ close;
+
+ L_NoElu:
+ mes "[" + @name$ + "]";
+ mes "Huh? You're kidding, right? Didn't I say I can't make you an Elunium unless you bring me 5 rough ones?";
+ close;
+ M_Stones:
+ mes "[" + @name$ + "]";
+ mes "Enchanted stones, huh ....";
+ next;
+ mes "[" + @name$ + "]";
+ mes "Well, in the 20 years that I've been a stonesmith I've heard of them many times... though I've never actually seen them before.";
+ next;
+ mes "[" + @name$ + "]";
+ mes "I've been told that enchanted stones possess different elemental properties such as ^5533FFWater, Earth, Fire, and Wind^000000.";
+ next;
+ mes "[" + @name$ + "]";
+ mes "If someone combines an Enchanted Stone with a weapon durring the refining process, that weapon will possess the same property as the stone.";
+ next;
+ mes "[" + @name$ + "]";
+ mes "Of course, that person needs to be skillfull enough to work on it.";
+ goto M_Menu;
+}
+
+
+
+//=====================================================================================
+//= Equipment Repairmen
+//=====================================================================================
+prt_in.gat,62,54,2 script Grendal 84,{
+ set @name$,"Grendal";
+ callfunc "repairmain";
+ break;
+}
+
+//Temp Spot, Not Shure Where To place
+payon.gat,149,182,2 script Repairman 88,{
+ set @name$,"Repairman";
+ callfunc "repairmain";
+ break;
+}
+
+morocc_in.gat,71,40,2 script Repairman 99,{
+ set @name$,"Repairman";
+ callfunc "repairmain";
+ break;
+}
+
+//============================================================
+//= Equipment Repair Function
+//============================================================
+function script repairmain {
+ mes "[" + @name$ + "]";
+ mes "I am the Repair Smith and I can repair any Arms you want.";
+ mes "Tell me which Equipment you want to repair.";
+ set @broken1,getbrokenid(1);
+ set @broken2,getbrokenid(2);
+ set @broken3,getbrokenid(3);
+ set @broken4,getbrokenid(4);
+ set @broken5,getbrokenid(5);
+ set @broken6,getbrokenid(6);
+ set @broken7,getbrokenid(7);
+ set @broken8,getbrokenid(8);
+ set @broken9,getbrokenid(9);
+ set @broken10,getbrokenid(10);
+ next;
+ if(@broken1==NULL) goto L_CANCEL_3;
+ menu getitemname(@broken1),REPAIR1,getitemname(@broken2),REPAIR2,getitemname(@broken3),REPAIR3,
+ getitemname(@broken4),REPAIR4,getitemname(@broken5),REPAIR5,getitemname(@broken6),REPAIR6,
+ getitemname(@broken7),REPAIR7,getitemname(@broken8),REPAIR8,getitemname(@broken9),REPAIR9,
+ getitemname(@broken10),REPAIR10;
+ REPAIR1:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(1);
+ goto L_CLOSE;
+ REPAIR2:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(2);
+ goto L_CLOSE;
+ REPAIR3:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(3);
+ goto L_CLOSE;
+ REPAIR4:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(4);
+ goto L_CLOSE;
+ REPAIR5:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(5);
+ goto L_CLOSE;
+ REPAIR6:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(6);
+ goto L_CLOSE;
+ REPAIR7:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(7);
+ goto L_CLOSE;
+ REPAIR8:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(8);
+ goto L_CLOSE;
+ REPAIR9:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(9);
+ goto L_CLOSE;
+ REPAIR10:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and 10,000 Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < 10000) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-10000;
+ repair(10);
+ goto L_CLOSE;
+
+L_CANCEL_1:
+ mes "[" + @name$ + "]";
+ mes "Is it all you got?";
+ mes "Unfortunately, I have kids to feed...";
+ goto L_CLOSE;
+L_CANCEL_2:
+ mes "[" + @name$ + "]";
+ mes "Ok, but don't expect to be using that...";
+ goto L_CLOSE;
+L_CANCEL_3:
+ mes "[" + @name$ + "]";
+ mes "Looks like you don't need anything repaired today...";
+ goto L_CLOSE;
+L_CLOSE:
+ close;
+}
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2024-11-05 02:40:56 +0000