Fixed some file types

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/athena@172 54d463be-8e91-2dee-dedb-b68131a5f0ec

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;
+}