20 files changed, 6442 insertions, 6442 deletions

diff --git a/npc/merchants/alchemist.txt b/npc/merchants/alchemist.txt
index a3085aa4f..9d813fcaf 100644
--- a/npc/merchants/alchemist.txt
+++ b/npc/merchants/alchemist.txt
@@ -1,129 +1,129 @@
-//===== eAthena Script ======================================= 

-//= Alchemist Shop

-//===== By: ================================================== 

-//= eAthena Team

-//===== Current Version: ===================================== 

-//= 1.3

-//===== Compatible With: ===================================== 

-//= eAthena 1.0+

-//===== Description: ========================================= 

-//= Selling Alchemist Materials and Manuals

-//===== Additional Comments: ================================= 

-//= 1.1 fixed Medicine Bowl issue, thanx 2 MasterOfMuppets

-//= 1.2 Reddozen's fixes of typos. added optional Elemental

-//= Potion Guide. [Lupus]

-//= 1.3 Deleted Elemental Potions Guide due to original quest [Lupus]

-//============================================================ 

-

-

-alde_alche.gat,24,188,3	script	Gever AI Sharp	740,{

-	mes "[Gever AI Sharp]";

-	mes "Welcome to the Alchemist Union.";

-	mes "How can I assist you today?";

-	next;

-	menu "Purchase materials.",M_Material, "Purchase a production manual.",M_Manual, "Cancel Deal.", M_Bye;

-

-	M_Material:

-		mes "[Gever AI Sharp]";

-		mes "What would you like?";

-		next;

-		menu "Medicine Bowl - 8z",-,"Cancel.",M_Bye;

-

-			mes "[Gever AI Sharp]";

-			mes "How many do you want?";	

-			mes "Enter '0' if you want to quit.";

-			next;

-			input @num;

-			if((@num < 1) || (@num > 1000)) goto M_Bye;

-			set @price,@num * 8;

-			mes "[Gever AI Sharp]";

-			if(Zeny < @price) goto sL_NoZeny;

-			if (checkweight(7134,@num) == 0) goto sL_OverW;

-			set Zeny,Zeny-@price;

-			getitem 7134,@num;//Items: Medicine_Bowl,

-			goto L_Bye;

-	M_Manual:

-		mes "[Gever AI Sharp]";

-		mes "What do you need?";

-		mes "Manuals are generally 100,000 zeny.";

-		mes "Except for a couple of special manuals.";

-		next;

-		menu 	"Potion Creation Guide",sM_Pot,	"Alcohol Creation Guide",sM_Alc, "Bottle Grenade Creation Guide",sM_Gren, 

-			"Acid Bottle Creation Guide",sM_Acid,	"Plant Bottle Creation Guide",sM_Plant, "Marine Sphere Bottle Creation Guide",sM_Mar,

-			"Glistening Coat Creation Guide",sM_Coat, "Condensed Potion Creation Guide",sM_Con, "Cancel Deal.",M_Bye;

-		sM_Pot:

-			set @itemid,7144;

-			set @price,100000;

-			set @itemname$,"Potion";

-			goto L_Choice;

-		sM_Alc:

-			set @itemid,7127;

-			set @price,100000;

-			set @itemname$,"Alchohol";

-			goto L_Choice;

-		sM_Gren:

-			set @itemid,7128;

-			set @price,100000;

-			set @itemname$,"Bottle Grenade";

-			goto L_Choice;

-		sM_Acid:

-			set @itemid,7129;

-			set @price,100000;

-			set @itemname$,"Acid Bottle";

-			goto L_Choice;

-		sM_Plant:

-			set @itemid,7130;

-			set @price,100000;

-			set @itemname$,"Plant Bottle";

-			goto L_Choice;

-		sM_Mar:

-			set @itemid,7131;

-			set @price,100000;

-			set @itemname$,"Marine Sphere Bottle";

-			goto L_Choice;

-		sM_Coat:

-			set @itemid,7132;

-			set @price,100000;

-			set @itemname$,"Glistening Coat";

-			goto L_Choice;

-		sM_Con:

-			set @itemid,7133;

-			set @price,240000;

-			set @itemname$,"Condensed Potion";

-			goto L_Choice;

-//		sM_Ele:

-//			set @itemid,7434;

-//			set @price,240000;

-//			set @itemname$,"Elemental Potion";

-//			goto L_Choice;

-

-	L_Choice:

-		mes "[Gever AI Sharp]";

-		mes "An " + @itemname$ + " Creation Guide??";

-		mes "That will be "+@price/1000+",000 zeny.";

-		next;

-		menu "Purchase.",-,"Quit.",M_Bye;

-

-			mes "[Gever AI Sharp]";

-			if(Zeny < @price) goto sL_NoZeny;	

-			if (checkweight(@itemid,1) == 0) goto sL_OverW;

-			set Zeny,Zeny-@price;

-			getitem @itemid,1;			

-		L_Bye:

-			mes "Thank you for buying!";

-			mes "Come again.";

-			close;

-

-			sL_NoZeny:

-				mes "You don't seem to have enough money.";

-				close;

-			sL_OverW:

-				mes "Hmm.... it seems that you are overweight...";

-				close;

-

-

-	M_Bye:

-		mes "[Gever AI Sharp]";

-		mes "Then come again next time.";

-		close;

-}

+//===== eAthena Script ======================================= 
+//= Alchemist Shop
+//===== By: ================================================== 
+//= eAthena Team
+//===== Current Version: ===================================== 
+//= 1.3
+//===== Compatible With: ===================================== 
+//= eAthena 1.0+
+//===== Description: ========================================= 
+//= Selling Alchemist Materials and Manuals
+//===== Additional Comments: ================================= 
+//= 1.1 fixed Medicine Bowl issue, thanx 2 MasterOfMuppets
+//= 1.2 Reddozen's fixes of typos. added optional Elemental
+//= Potion Guide. [Lupus]
+//= 1.3 Deleted Elemental Potions Guide due to original quest [Lupus]
+//============================================================ 
+
+
+alde_alche.gat,24,188,3	script	Gever AI Sharp	740,{
+	mes "[Gever AI Sharp]";
+	mes "Welcome to the Alchemist Union.";
+	mes "How can I assist you today?";
+	next;
+	menu "Purchase materials.",M_Material, "Purchase a production manual.",M_Manual, "Cancel Deal.", M_Bye;
+
+	M_Material:
+		mes "[Gever AI Sharp]";
+		mes "What would you like?";
+		next;
+		menu "Medicine Bowl - 8z",-,"Cancel.",M_Bye;
+
+			mes "[Gever AI Sharp]";
+			mes "How many do you want?";	
+			mes "Enter '0' if you want to quit.";
+			next;
+			input @num;
+			if((@num < 1) || (@num > 1000)) goto M_Bye;
+			set @price,@num * 8;
+			mes "[Gever AI Sharp]";
+			if(Zeny < @price) goto sL_NoZeny;
+			if (checkweight(7134,@num) == 0) goto sL_OverW;
+			set Zeny,Zeny-@price;
+			getitem 7134,@num;//Items: Medicine_Bowl,
+			goto L_Bye;
+	M_Manual:
+		mes "[Gever AI Sharp]";
+		mes "What do you need?";
+		mes "Manuals are generally 100,000 zeny.";
+		mes "Except for a couple of special manuals.";
+		next;
+		menu 	"Potion Creation Guide",sM_Pot,	"Alcohol Creation Guide",sM_Alc, "Bottle Grenade Creation Guide",sM_Gren, 
+			"Acid Bottle Creation Guide",sM_Acid,	"Plant Bottle Creation Guide",sM_Plant, "Marine Sphere Bottle Creation Guide",sM_Mar,
+			"Glistening Coat Creation Guide",sM_Coat, "Condensed Potion Creation Guide",sM_Con, "Cancel Deal.",M_Bye;
+		sM_Pot:
+			set @itemid,7144;
+			set @price,100000;
+			set @itemname$,"Potion";
+			goto L_Choice;
+		sM_Alc:
+			set @itemid,7127;
+			set @price,100000;
+			set @itemname$,"Alchohol";
+			goto L_Choice;
+		sM_Gren:
+			set @itemid,7128;
+			set @price,100000;
+			set @itemname$,"Bottle Grenade";
+			goto L_Choice;
+		sM_Acid:
+			set @itemid,7129;
+			set @price,100000;
+			set @itemname$,"Acid Bottle";
+			goto L_Choice;
+		sM_Plant:
+			set @itemid,7130;
+			set @price,100000;
+			set @itemname$,"Plant Bottle";
+			goto L_Choice;
+		sM_Mar:
+			set @itemid,7131;
+			set @price,100000;
+			set @itemname$,"Marine Sphere Bottle";
+			goto L_Choice;
+		sM_Coat:
+			set @itemid,7132;
+			set @price,100000;
+			set @itemname$,"Glistening Coat";
+			goto L_Choice;
+		sM_Con:
+			set @itemid,7133;
+			set @price,240000;
+			set @itemname$,"Condensed Potion";
+			goto L_Choice;
+//		sM_Ele:
+//			set @itemid,7434;
+//			set @price,240000;
+//			set @itemname$,"Elemental Potion";
+//			goto L_Choice;
+
+	L_Choice:
+		mes "[Gever AI Sharp]";
+		mes "An " + @itemname$ + " Creation Guide??";
+		mes "That will be "+@price/1000+",000 zeny.";
+		next;
+		menu "Purchase.",-,"Quit.",M_Bye;
+
+			mes "[Gever AI Sharp]";
+			if(Zeny < @price) goto sL_NoZeny;	
+			if (checkweight(@itemid,1) == 0) goto sL_OverW;
+			set Zeny,Zeny-@price;
+			getitem @itemid,1;			
+		L_Bye:
+			mes "Thank you for buying!";
+			mes "Come again.";
+			close;
+
+			sL_NoZeny:
+				mes "You don't seem to have enough money.";
+				close;
+			sL_OverW:
+				mes "Hmm.... it seems that you are overweight...";
+				close;
+
+
+	M_Bye:
+		mes "[Gever AI Sharp]";
+		mes "Then come again next time.";
+		close;
+}
diff --git a/npc/merchants/ammo_boxes.txt b/npc/merchants/ammo_boxes.txt
index 036bfd2bb..c51157a87 100644
--- a/npc/merchants/ammo_boxes.txt
+++ b/npc/merchants/ammo_boxes.txt
@@ -1,116 +1,116 @@
-//===== eAthena Script ========================================

-//= Ammo Box Event

-//===== By: ==================================================

-//= Playtester

-//===== Current Version: =====================================

-//= 1.0

-//===== Compatible With: =====================================

-//= eAthena 1.0+

-//===== Description: =========================================

-//= Turns bullets into ammo boxes.

-//===== Additional Comments: =================================

-//= 1.0 Added the first 8 ammo boxes [Playtester]

-//============================================================

-

-que_ng.gat,187,149,3	script	Kenny	83,{

-	mes "[Kenny]";

-	mes "My name is Kenny.";

-	mes "I can create ^0000FFbullet casings^000000";

-	mes "and ^0000FFsphere packs^000000.";

-	next;

-	mes "[Kenny]";

-	mes "Would you like to try using one of";

-	mes "my bullet bullet casings or sphere";

-	mes "packs?";

-	mes "Select the one you want me to make!";

-	next;

-

-	menu "Bullet Casing",-,"Silver Bullet Casing",Q2,"Shell of Blood Casing",Q3,"Lightning Sphere Pack",Q4,"Blind Sphere Pack",Q5,"Poison Sphere Pack",Q6,"Freezing Sphere Pack",Q7,"Flare Sphere Pack",Q8;

-

-// Arguments

-//===========

-		callsub sF_Make, 13200,500,12149, "Bullet Casings";

-			goto M_Menu;

-Q2:

-		callsub sF_Make, 13201,500,12151, "Silver Bullet Casings";

-			goto M_Menu;

-Q3:

-		callsub sF_Make, 13202,500,12150, "Shell of Blood Casings";

-			goto M_Menu;

-Q4:

-		callsub sF_Make, 13204,500,12144, "Lightning Sphere Packs";

-			goto M_Menu;

-Q5:

-		callsub sF_Make, 13206,500,12145, "Blind Sphere Packs";

-			goto M_Menu;

-Q6:

-		callsub sF_Make, 13205,500,12146, "Poison Sphere Packs";

-			goto M_Menu;

-Q7:

-		callsub sF_Make, 13207,500,12147, "Freezing Sphere Packs";

-			goto M_Menu;

-Q8:

-		callsub sF_Make, 13203,500,12148, "Flare Sphere Packs";

-			goto M_Menu;

-

-// Subfunction for making ammo boxes

-//==================================

-sF_Make:

-	set @ammonum,500;

-	if(countitem(getarg(0)) < @ammonum) goto L_NdAmmo;

-	if(Zeny < getarg(1)) goto L_NdZeny;

-	mes "[Kenny]";

-	mes "What do you want me to do?";

-	next;

-	menu "Give me as many as you can.",-, "I want to set the amount.",sM_0b, "Nevermind",M_End;

-

-		set @amount,50;

-		if(zeny/getarg(1) < @amount) set @amount, zeny/getarg(1);

-		if(countitem(getarg(0))/@ammonum < @amount) set @amount, countitem(getarg(0))/@ammonum;

-		if(@amount > 0) goto L_End;

-		mes "[Kenny]";

-		mes "Dude, you don't even have the right items...";

-		close;

-		

-	sM_0b:

-		input @amount;

-		if(@amount<1 || @amount>50) goto L_BadAmnt;

-		if(countitem(getarg(0))/@ammonum < @amount) goto L_NdAmmo;

-		if(Zeny < (getarg(1)*@amount)) goto L_NdZeny;

-

-	L_End:

-		set Zeny, Zeny - (getarg(1)*@amount);

-		delitem getarg(0), (@amount*@ammonum);

-		getitem getarg(2), @amount;

-		mes "[Kenny]";

-		mes "There you go~!";

-		mes "Here are your " +getarg(3)+ ".";

-		close;

-

-	L_NdAmmo:

-		mes "[Kenny]";

-		mes "Sorry, but you need 500 bullets or"; 

-		mes "spheres and 500 zeny to make";

-		mes "1 bullet casing or 1 sphere pack.";

-		close;

-		

-	L_NdZeny:

-		mes "[Kenny]";

-		mes "You don't have enough zeny for that many.";

-		close;

-

-	L_BadAmnt:

-		mes "[Kenny]";

-		mes "Please choose a number between 1 and 50.";	

-		close;

-

-L_Come:

-	mes "[Kenny]";

-	mes "Please, come again whenever you want too.";

-	close;

-M_End:

-	mes "[Kenny]";

-	mes "Sure, no problem.";

-	mes "Come back any time.";

-	close;

+//===== eAthena Script ========================================
+//= Ammo Box Event
+//===== By: ==================================================
+//= Playtester
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena 1.0+
+//===== Description: =========================================
+//= Turns bullets into ammo boxes.
+//===== Additional Comments: =================================
+//= 1.0 Added the first 8 ammo boxes [Playtester]
+//============================================================
+
+que_ng.gat,187,149,3	script	Kenny	83,{
+	mes "[Kenny]";
+	mes "My name is Kenny.";
+	mes "I can create ^0000FFbullet casings^000000";
+	mes "and ^0000FFsphere packs^000000.";
+	next;
+	mes "[Kenny]";
+	mes "Would you like to try using one of";
+	mes "my bullet bullet casings or sphere";
+	mes "packs?";
+	mes "Select the one you want me to make!";
+	next;
+
+	menu "Bullet Casing",-,"Silver Bullet Casing",Q2,"Shell of Blood Casing",Q3,"Lightning Sphere Pack",Q4,"Blind Sphere Pack",Q5,"Poison Sphere Pack",Q6,"Freezing Sphere Pack",Q7,"Flare Sphere Pack",Q8;
+
+// Arguments
+//===========
+		callsub sF_Make, 13200,500,12149, "Bullet Casings";
+			goto M_Menu;
+Q2:
+		callsub sF_Make, 13201,500,12151, "Silver Bullet Casings";
+			goto M_Menu;
+Q3:
+		callsub sF_Make, 13202,500,12150, "Shell of Blood Casings";
+			goto M_Menu;
+Q4:
+		callsub sF_Make, 13204,500,12144, "Lightning Sphere Packs";
+			goto M_Menu;
+Q5:
+		callsub sF_Make, 13206,500,12145, "Blind Sphere Packs";
+			goto M_Menu;
+Q6:
+		callsub sF_Make, 13205,500,12146, "Poison Sphere Packs";
+			goto M_Menu;
+Q7:
+		callsub sF_Make, 13207,500,12147, "Freezing Sphere Packs";
+			goto M_Menu;
+Q8:
+		callsub sF_Make, 13203,500,12148, "Flare Sphere Packs";
+			goto M_Menu;
+
+// Subfunction for making ammo boxes
+//==================================
+sF_Make:
+	set @ammonum,500;
+	if(countitem(getarg(0)) < @ammonum) goto L_NdAmmo;
+	if(Zeny < getarg(1)) goto L_NdZeny;
+	mes "[Kenny]";
+	mes "What do you want me to do?";
+	next;
+	menu "Give me as many as you can.",-, "I want to set the amount.",sM_0b, "Nevermind",M_End;
+
+		set @amount,50;
+		if(zeny/getarg(1) < @amount) set @amount, zeny/getarg(1);
+		if(countitem(getarg(0))/@ammonum < @amount) set @amount, countitem(getarg(0))/@ammonum;
+		if(@amount > 0) goto L_End;
+		mes "[Kenny]";
+		mes "Dude, you don't even have the right items...";
+		close;
+		
+	sM_0b:
+		input @amount;
+		if(@amount<1 || @amount>50) goto L_BadAmnt;
+		if(countitem(getarg(0))/@ammonum < @amount) goto L_NdAmmo;
+		if(Zeny < (getarg(1)*@amount)) goto L_NdZeny;
+
+	L_End:
+		set Zeny, Zeny - (getarg(1)*@amount);
+		delitem getarg(0), (@amount*@ammonum);
+		getitem getarg(2), @amount;
+		mes "[Kenny]";
+		mes "There you go~!";
+		mes "Here are your " +getarg(3)+ ".";
+		close;
+
+	L_NdAmmo:
+		mes "[Kenny]";
+		mes "Sorry, but you need 500 bullets or"; 
+		mes "spheres and 500 zeny to make";
+		mes "1 bullet casing or 1 sphere pack.";
+		close;
+		
+	L_NdZeny:
+		mes "[Kenny]";
+		mes "You don't have enough zeny for that many.";
+		close;
+
+	L_BadAmnt:
+		mes "[Kenny]";
+		mes "Please choose a number between 1 and 50.";	
+		close;
+
+L_Come:
+	mes "[Kenny]";
+	mes "Please, come again whenever you want too.";
+	close;
+M_End:
+	mes "[Kenny]";
+	mes "Sure, no problem.";
+	mes "Come back any time.";
+	close;
 }
\ No newline at end of file
diff --git a/npc/merchants/ammo_dealer.txt b/npc/merchants/ammo_dealer.txt
index 00053d171..5a2947928 100644
--- a/npc/merchants/ammo_dealer.txt
+++ b/npc/merchants/ammo_dealer.txt
@@ -1,100 +1,100 @@
-//===== eAthena Script =======================================

-//= Ammo Dealer

-//===== By: ==================================================

-//= Playtester

-//===== Current Version: =====================================

-//= 1.0

-//===== Compatible With: =====================================

-//= eAthena

-//===== Description: =========================================

-//= trades items for spheres

-//===== Additional Comments: =================================

-//= 1.0 first version [Playtester]

-//============================================================

-

-// Ammo Dealer Tony

-que_ng.gat,187,156,3	script	Tony	86,{

-	mes "[Tony]";

-	mes "I can make spheres for you.";

-	mes "Spheres are the ammunition for";

-	mes "grenade launchers.";

-	next;

-	mes "[Tony]";

-	mes "For 30 spheres, I need";

-	mes "^FF00001 Phracon^000000";

-	mes "and";

-	mes "^FF00001 Emveretarcon^000000.";

-	next;

-	mes "[Tony]";

-	mes "I also need another material,";

-	mes "depending on which sphere type";

-	mes "you want to create.";

-	next;

-	mes "[Tony]";

-	mes "Here's a list:";

-	mes "Flare Sphere - ^FF00002 Burning Hearts^000000";

-	mes "Lightning Sphere - ^FF00003 Cyfars^000000";

-	mes "Poison Sphere - ^FF000010 Venom Canines^000000";

-	mes "Blind Sphere - ^FF00005 Squid Inks^000000";

-	mes "Freezing Sphere - ^FF00002 Brigans^000000";

-	next;

-	mes "[Tony]";

-	mes "So which ones do you want me";

-	mes "to create?";

-	next;

-	menu "Flare Sphere",-,"Lightning Sphere",S2,"Poison Sphere",S3,"Blind Sphere",S4,"Freezing Sphere",S5;

-

-	callsub sF_Make,13203,7097,2;

-S2:

-	callsub sF_Make,13204,7053,3;

-S3:

-	callsub sF_Make,13205,937,10;

-S4:

-	callsub sF_Make,13206,1024,5;

-S5:

-	callsub sF_Make,13207,7054,2;

-

-//Subfunction, getarg(0):created sphere, getarg(1):special material, getarg(2):number needed

-sF_Make:

-	if( (countitem(1010)<1) || (countitem(1011)<1) || (countitem(getarg(1))<getarg(2)) ) goto L_NoMat;

-	mes "[Tony]";

-	mes "So how many ^0000FF30x packages^000000 do";

-	mes "you want me to make?";

-	next;

-	menu "-Exchange as many as possible.",M_0, "-Let me set the amount.",M_1, "-Cancel",M_End;

-

-	M_0:

-		set @amount, 500;

-		if(countitem(1010) < @amount) set @amount,countitem(1010);

-		if(countitem(1011) < @amount) set @amount,countitem(1011);

-		if(countitem(getarg(1))/getarg(2) < @amount) set @amount,countitem(getarg(1))/getarg(2);

-		if(@amount > 0) goto L_Make;

-		mes "[Tony]";

-		mes "Are you trying to make a fool of me...?";

-		close;

-

-	M_1:

-		input @amount;

-		if(@amount < 1 || @amount > 500) goto M_End;

-		if(countitem(1010) < @amount) goto L_NoMat;

-		if(countitem(1011) < @amount) goto L_NoMat;

-		if(countitem(getarg(1))/getarg(2) < @amount) goto L_NoMat;

-

-	L_Make:

-		delitem 1010,@amount;

-		delitem 1011,@amount;

-		delitem getarg(1),@amount*getarg(2);

-		getitem getarg(0),@amount*30;

-

-	M_End:

-		mes "[Tony]";

-		mes "Come back anytime.";

-		close;

-

-	L_NoMat:

-		mes "[Tony]";

-		mes "I'm sorry but you don't have";

-		mes "enough materials to create the";

-		mes "spheres.";

-		close;

-}

+//===== eAthena Script =======================================
+//= Ammo Dealer
+//===== By: ==================================================
+//= Playtester
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena
+//===== Description: =========================================
+//= trades items for spheres
+//===== Additional Comments: =================================
+//= 1.0 first version [Playtester]
+//============================================================
+
+// Ammo Dealer Tony
+que_ng.gat,187,156,3	script	Tony	86,{
+	mes "[Tony]";
+	mes "I can make spheres for you.";
+	mes "Spheres are the ammunition for";
+	mes "grenade launchers.";
+	next;
+	mes "[Tony]";
+	mes "For 30 spheres, I need";
+	mes "^FF00001 Phracon^000000";
+	mes "and";
+	mes "^FF00001 Emveretarcon^000000.";
+	next;
+	mes "[Tony]";
+	mes "I also need another material,";
+	mes "depending on which sphere type";
+	mes "you want to create.";
+	next;
+	mes "[Tony]";
+	mes "Here's a list:";
+	mes "Flare Sphere - ^FF00002 Burning Hearts^000000";
+	mes "Lightning Sphere - ^FF00003 Cyfars^000000";
+	mes "Poison Sphere - ^FF000010 Venom Canines^000000";
+	mes "Blind Sphere - ^FF00005 Squid Inks^000000";
+	mes "Freezing Sphere - ^FF00002 Brigans^000000";
+	next;
+	mes "[Tony]";
+	mes "So which ones do you want me";
+	mes "to create?";
+	next;
+	menu "Flare Sphere",-,"Lightning Sphere",S2,"Poison Sphere",S3,"Blind Sphere",S4,"Freezing Sphere",S5;
+
+	callsub sF_Make,13203,7097,2;
+S2:
+	callsub sF_Make,13204,7053,3;
+S3:
+	callsub sF_Make,13205,937,10;
+S4:
+	callsub sF_Make,13206,1024,5;
+S5:
+	callsub sF_Make,13207,7054,2;
+
+//Subfunction, getarg(0):created sphere, getarg(1):special material, getarg(2):number needed
+sF_Make:
+	if( (countitem(1010)<1) || (countitem(1011)<1) || (countitem(getarg(1))<getarg(2)) ) goto L_NoMat;
+	mes "[Tony]";
+	mes "So how many ^0000FF30x packages^000000 do";
+	mes "you want me to make?";
+	next;
+	menu "-Exchange as many as possible.",M_0, "-Let me set the amount.",M_1, "-Cancel",M_End;
+
+	M_0:
+		set @amount, 500;
+		if(countitem(1010) < @amount) set @amount,countitem(1010);
+		if(countitem(1011) < @amount) set @amount,countitem(1011);
+		if(countitem(getarg(1))/getarg(2) < @amount) set @amount,countitem(getarg(1))/getarg(2);
+		if(@amount > 0) goto L_Make;
+		mes "[Tony]";
+		mes "Are you trying to make a fool of me...?";
+		close;
+
+	M_1:
+		input @amount;
+		if(@amount < 1 || @amount > 500) goto M_End;
+		if(countitem(1010) < @amount) goto L_NoMat;
+		if(countitem(1011) < @amount) goto L_NoMat;
+		if(countitem(getarg(1))/getarg(2) < @amount) goto L_NoMat;
+
+	L_Make:
+		delitem 1010,@amount;
+		delitem 1011,@amount;
+		delitem getarg(1),@amount*getarg(2);
+		getitem getarg(0),@amount*30;
+
+	M_End:
+		mes "[Tony]";
+		mes "Come back anytime.";
+		close;
+
+	L_NoMat:
+		mes "[Tony]";
+		mes "I'm sorry but you don't have";
+		mes "enough materials to create the";
+		mes "spheres.";
+		close;
+}
diff --git a/npc/merchants/clothes_dyer.txt b/npc/merchants/clothes_dyer.txt
index 976d96dcb..8f179ae80 100644
--- a/npc/merchants/clothes_dyer.txt
+++ b/npc/merchants/clothes_dyer.txt
@@ -1,388 +1,388 @@
-//===== eAthena Script ======================================= 

-//= Clothes Dyer

-//===== By: ================================================== 

-//= Usnul

-//===== Current Version: ===================================== 

-//= 2.4

-//===== Compatible With: ===================================== 

-//= eAthena 1.0+

-//===== Description: ========================================= 

-//= Clothes dyer with standard palletes

-//===== Additional Comments: ================================= 

-//= Fully working

-//= 2.1 Shortened some labels to make this script loading,

-//= Added Black+White Colors desc [Lupus]

-//= 2.1a - added adv classes + abby class support [Lupus]

-//= 2.2 – Spell checked. [Nexon]

-//= 2.3 - Fixed dis $hit! [Poki#3]

-//= 2.4 - Disabled cloth dyeing since it's not implemented

-//	  on official servers and cause your client to crash

-//	  [Playtester]

-//============================================================

-//Note: To enable it, replace L_Busy with L_Dye

-//============================================================ 

-

-

-// Dyer Ginedin Rephere ---------------------------------------------------

-prt_in.gat,284,168,2	script	Dyer Ginedin Rephere	55,{

-	mes "[Dyer Ginedin Rephere]";

-	mes "11... 12... Mmm... good. I think I'll be able to finish before tonight’s party. Oh! I didn't notice that you were here. Anyway how may I assist you?";

-M_Menu:

-	next;

-	menu "-Talk",L_Talk,"-Dye Clothing",L_Busy,"-Price list",L_PriceList,"-Cancel",L_End;

-	

-L_Talk:

-	mes "[Dyer Ginedin Rephere]";

-	mes "Life may have gotten a little better.... but when I look at all of the orders I've received... Whew!";

-	mes "It seems that the young women of Rune Midgard must be very well off these days.";

-	next;

-	mes "[Dyer Ginedin Rephere]";

-	mes "Not that I think that they are indulging in anything luxurious mind you.";

-	mes "I don't think there is anything wrong with the pursuit of beauty and being fashionable.";

-	next;

-	mes "[Dyer Ginedin Rephere]";

-	mes "For us humans, who have no colorful fur or decorative scales, clothes are one of the few ways we have to display our personality, style, and beauty.";

-	next;

-	mes "[Dyer Ginedin Rephere]";

-	mes "Haha... When I think about it, I really feel that my job is worthwhile.  I believe that I provide a service that the people desire.";

-	next;

-	mes "[Dyer Ginedin Rephere]";

-	mes "Can you feel it too? The energy that is released when rough fabric and leather are brought to life with color?.....";

-	next;

-	mes "[Dyer Ginedin Rephere]";

-	mes "Although the process is very tedious and time consuming, the joy and happiness I feel when a dress is finished.....";

-	mes "more than makes up for all of the hard work!!";

-	goto M_Menu;

-

-L_Dye:

-	mes "[Dyer Ginedin Rephere]";

-	mes "Oh... you need my work? Well... okay sounds good.";

-	next;

-	mes "[Dyer Ginedin Rephere]";

-	mes "Please choose a color that suits you.";

-	next;

-	if(Sex==0) goto Female_dye;

-//=================================

-// Clothing Dyeing for Males

-//=================================

-

-Male_dye:

-	if(BaseJob==Job_Novice || BaseJob==Job_Novice_High || BaseJob==Job_Baby) goto L_Novice_M;

-	if(BaseJob==Job_Swordman || BaseJob==Job_Swordman_High || BaseJob==Job_Baby_Swordman) goto L_Swordman_M;

-	if(BaseJob==Job_Mage || BaseJob==Job_Mage_High || BaseJob==Job_Baby_Mage) goto L_Mage_M;

-	if(BaseJob==Job_Archer || BaseJob==Job_Archer_High || BaseJob==Job_Baby_Archer) goto L_Archer_M;

-	if(BaseJob==Job_Acolyte || BaseJob==Job_Acolyte_High || BaseJob==Job_Baby_Acolyte) goto L_Acolyte_M;

-	if(BaseJob==Job_Merchant || BaseJob==Job_Merchant_High || BaseJob==Job_Baby_Merchant) goto L_Merchant_M;

-	if(BaseJob==Job_Thief || BaseJob==Job_Thief_High || BaseJob==Job_Baby_Thief) goto L_Thief_M;

-	if(BaseJob==Job_Knight || BaseJob==Job_Knight2 || BaseJob==Job_Crusader || BaseJob==Job_Crusader2 || BaseJob==Job_Lord_Knight || BaseJob==Job_Lord_Knight2 || BaseJob==Job_Paladin || BaseJob==Job_Paladin2 || BaseJob==Job_Stalker || BaseJob==Job_Baby_Knight || BaseJob==Job_Baby_Knight2 || BaseJob==Job_Baby_Crusader || BaseJob==Job_Baby_Crusader2) goto L_Swordman2_M;

-	if(BaseJob==Job_Priest || BaseJob==Job_Monk || BaseJob==Job_High_Priest || BaseJob==Job_Champion || BaseJob==Job_Baby_Priest || BaseJob==Job_Baby_Monk) goto L_Acolyte2_M;

-	if(BaseJob==Job_Wizard || BaseJob==Job_High_Wizard || BaseJob==Job_Baby_Wizard) goto L_Mage2_M;

-	if(BaseJob==Job_Blacksmith || BaseJob==Job_Alchem || BaseJob==Job_Whitesmith || BaseJob==Job_Creator || BaseJob==Job_Baby_Blacksmith || BaseJob==Job_Baby_Alchem) goto L_Merchant2_M;

-	if(BaseJob==Job_Hunter || BaseJob==Job_Bard || BaseJob==Job_Sniper || BaseJob==Job_Clown || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Bard) goto L_Archer2_M;

-	if(BaseJob==Job_Assassin || BaseJob==Job_Rogue || BaseJob==Job_Assassin_Cross || BaseJob==Job_Baby_Assassin || BaseJob==Job_Baby_Rogue) goto L_Thief2_M;

-	if(BaseJob==Job_SuperNovice || BaseJob==Job_Super_Baby) goto L_Super_Novice_M;

-	goto sL_Sorry;

-//NOTE: Although Sages have pellets, they color non existent piece's of clothing. They are not listed, so players won't waste their items and zeny.

-//Professors also have a problem <.< The only thing that changes is a part of there Fox scarf. The Stalker Placement is not a bug!

-

-L_Novice_M:

-	set @black, 1;

-	set @blue, 2;

-	set @green, 3;

-	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;

-L_Swordman_M:

-	set @black, 1;

-	set @blue, 2;

-	set @green, 3;

-	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;

-L_Mage_M:

-	set @red, 1;

-	set @violet, 2;

-	set @orange, 3;

-	set @white, 4;

-	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Violet",L_Dye_Violet,"- Orange",L_Dye_Orange,"- White",L_Dye_White,"- Cancel",L_End;

-L_Archer_M:

-	set @black, 1;

-	set @violet, 2;

-	set @green, 3;

-	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Violet",L_Dye_Violet,"- Green",L_Dye_Green,"- Cancel",L_End;

-L_Acolyte_M:

-	set @blue, 1;

-	set @red, 2;

-	set @white, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Merchant_M:

-	set @black, 1;

-	set @blue, 2;

-	set @green, 3;

-	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;

-L_Thief_M:

-	set @green, 1;

-	set @red, 2;

-	set @white, 4;

-	menu "- Default",L_Dye_Default,"- Green",L_Dye_Green,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Cancel",L_End;

-L_Swordman2_M:

-	set @violet, 1;

-	set @red, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Red",L_Dye_Red,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Acolyte2_M:

-	set @blue, 1;

-	set @green, 2;

-	set @red, 3;

-	set @white, 4;

-	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Cancel",L_End;

-L_Mage2_M:

-	set @blue, 1;

-	set @green, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Merchant2_M:

-	set @black, 1;

-	set @green, 2;

-	set @white, 3;

-	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Cancel",L_End;

-L_Archer2_M:

-	set @black, 1;

-	set @blue, 2;

-	set @green, 3;

-	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;

-L_Thief2_M:

-	set @blue, 1;

-	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Cancel",L_End;

-L_Super_Novice_M:

-	set @violet, 1;

-	set @blue, 2;

-	set @green, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;

-

-

-//=================================

-// Clothing Dyeing for Females

-//=================================	

-Female_dye:

-	if(BaseJob==Job_Novice || BaseJob==Job_Novice_High || BaseJob==Job_Baby) goto L_Novice_F;

-	if(BaseJob==Job_Swordman || BaseJob==Job_Swordman_High || BaseJob==Job_Baby_Swordman) goto L_Swordman_F;

-	if(BaseJob==Job_Mage || BaseJob==Job_Mage_High || BaseJob==Job_Baby_Mage) goto L_Mage_F;

-	if(BaseJob==Job_Archer || BaseJob==Job_Archer_High || BaseJob==Job_Baby_Archer) goto L_Archer_F;

-	if(BaseJob==Job_Acolyte || BaseJob==Job_Acolyte_High || BaseJob==Job_Baby_Acolyte) goto L_Acolyte_F;

-	if(BaseJob==Job_Merchant || BaseJob==Job_Merchant_High || BaseJob==Job_Baby_Merchant) goto L_Merchant_F;

-	if(BaseJob==Job_Thief || BaseJob==Job_Thief_High || BaseJob==Job_Baby_Thief) goto L_Thief_F;

-	if(BaseJob==Job_Knight || BaseJob==Job_Knight2 || BaseJob==Job_Crusader || BaseJob==Job_Crusader2 || BaseJob==Job_Lord_Knight || BaseJob==Job_Lord_Knight2 || BaseJob==Job_Paladin || BaseJob==Job_Paladin2 || BaseJob==Job_Stalker || BaseJob==Job_Baby_Knight || BaseJob==Job_Baby_Knight2 || BaseJob==Job_Baby_Crusader || BaseJob==Job_Baby_Crusader2) goto L_Swordman2_F;

-	if(BaseJob==Job_Priest || BaseJob==Job_Baby_Priest) goto L_Acolyte2_F;

-	if(BaseJob==Job_Wizard || BaseJob==Job_Sage || BaseJob==Job_High_Wizard || BaseJob==Job_Professor || BaseJob==Job_Baby_Wizard || BaseJob==Job_Baby_Sage) goto L_Mage2_F;

-	if(BaseJob==Job_Blacksmith || BaseJob==Job_Alchem || BaseJob==Job_Whitesmith || BaseJob==Job_Creator || BaseJob==Job_Baby_Blacksmith || BaseJob==Job_Baby_Alchem) goto L_Merchant2_F;

-	if(BaseJob==Job_Hunter || BaseJob==Job_Dancer || BaseJob==Job_Sniper || BaseJob==Job_Gypsy || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Dancer) goto L_Archer2_F;

-	if(BaseJob==Job_Assassin || BaseJob==Job_Baby_Assassin) goto L_Thief2_F;

-	if(BaseJob==Job_Rogue || BaseJob==Job_Assassin_Cross || BaseJob==Job_Baby_Rogue) goto L_Thief3_F;

-	if(BaseJob==Job_SuperNovice || BaseJob==Job_Super_Baby) goto L_Super_Novice_F;

-	goto sL_Sorry;

-//NOTE: Same problems as with Males. This time: Monk, High Priest, Champion.

-//Rogue and Assassin Cross have her own check, because the default dye is black <.< The Stalker Placement is not a bug!

-

-L_Novice_F:

-	set @blue, 1;

-	set @red, 2;

-	set @green, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Swordman_F:

-	set @red, 1;

-	set @green, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Mage_F:

-	set @red, 1;

-	set @violet, 2;

-	set @white, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Violet",L_Dye_Violet,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Archer_F:

-	set @red, 1;

-	set @green, 2;

-	set @white, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Acolyte_F:

-	set @red, 1;

-	set @green, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Merchant_F:

-	set @violet, 1;

-	set @green, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Thief_F:

-	set @red, 1;

-	set @white, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Swordman2_F:

-	set @blue, 1;

-	set @white, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Acolyte2_F:

-	set @red, 1;

-	set @green, 2;

-	set @white, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Mage2_F:

-	set @red, 1;

-	set @blue, 2;

-	set @white, 3;

-	set @green, 4;

-	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Blue",L_Dye_Blue,"- White",L_Dye_White,"- Green",L_Dye_Green,"- Cancel",L_End;

-L_Merchant2_F:

-	set @red, 1;

-	set @green, 2;

-	set @violet, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Violet",L_Dye_Violet,"- Black",L_Dye_Black,"- Cancel",L_End;

-L_Archer2_F:

-	set @blue, 1;

-	set @green, 3;

-	set @violet, 4;

-	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Violet",L_Dye_Violet,"- Cancel",L_End;

-L_Thief2_F:

-	set @black, 1;

-	set @yellow, 2;

-	set @white, 3;

-	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Yellow",L_Dye_Yellow,"- White",L_Dye_White,"- Cancel",L_End;

-L_Thief3_F:

-	set @yellow, 2;

-	set @white, 3;

-	menu "- Default",L_Dye_Default,"- Yellow",L_Dye_Yellow,"- White",L_Dye_White,"- Cancel",L_End;

-L_Super_Novice_F:

-	set @blue, 1;

-	set @red, 2;

-	set @green, 3;

-	set @black, 4;

-	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;

-

-//=================================

-// Rest of the script

-//=================================

-

-L_Dye_Default:

-	mes "[Dyer Ginedin Rephere]";

-	mes "I can change your dye to the default one for free.";

-	mes "Are you sure?";

-	next;

-	menu "Yes",-,"No",L_End;

-	mes "[Dyer Ginedin Rephere]";

-	mes "OK. Here goes nothing.";

-	setlook 7,0;

-	close;

-L_Dye_Orange:

-	mes "[Dyer Ginedin Rephere]";

-	if(countitem(980) < 1) goto sL_NoDye;

-	if(Zeny < 10000) goto sL_Zeny;

-	delitem 980,1;

-	set Zeny, Zeny - 10000;

-	mes "Ok. I will dye you clothes orange.";

-	setlook 7,@orange;

-	close;

-L_Dye_Violet:

-	mes "[Dyer Ginedin Rephere]";

-	if(countitem(981) < 1) goto  sL_NoDye;

-	if(Zeny < 10000) goto sL_Zeny;

-	delitem 981,1;

-	set Zeny, Zeny - 10000;

-	mes "Ok. I will dye you clothes Violet.";

-	setlook 7,@violet;

-	close;

-L_Dye_Red:

-	mes "[Dyer Ginedin Rephere]";

-	if(countitem(975) < 1) goto sL_NoDye;

-	if(Zeny < 10000) goto sL_Zeny;

-	delitem 975,1;

-	set Zeny, Zeny - 10000;

-	mes "Ok. I will dye you clothes red.";

-	setlook 7,@red;

-	close;

-L_Dye_Black:

-	mes "[Dyer Ginedin Rephere]";

-	if(countitem(983) < 1) goto sL_NoDye;

-	if(Zeny < 10000) goto sL_Zeny;

-	delitem 983,1;

-	set Zeny, Zeny - 10000;

-	mes "Ok. I will dye you clothes black.";

-	setlook 7,@black;

-	close;

-L_Dye_Green:

-	mes "[Dyer Ginedin Rephere]";

-	if(countitem(979) < 1) goto sL_NoDye;

-	if(Zeny < 10000) goto sL_Zeny;

-	delitem 979,1;

-	set Zeny, Zeny - 10000;

-	mes "Ok. I will dye you clothes green.";

-	setlook 7,@green;

-	close;

-L_Dye_Blue:

-	mes "[Dyer Ginedin Rephere]";

-	if(countitem(978) < 1) goto sL_NoDye;

-	if(Zeny < 10000) goto sL_Zeny;

-	delitem 978,1;

-	set Zeny, Zeny - 10000;

-	mes "Ok. I will dye you clothes blue.";

-	setlook 7,@blue;

-	close;

-L_Dye_White:

-	mes "[Dyer Ginedin Rephere]";

-	if(countitem(982) < 1) goto sL_NoDye;

-	if(Zeny < 10000) goto sL_Zeny;

-	delitem 982,1;

-	set Zeny, Zeny - 10000;

-	mes "Ok. I will dye you clothes white.";

-	setlook 7,@white;

-	close;

-L_Dye_Yellow:

-	mes "[Dyer Ginedin Rephere]";

-	if(countitem(976) < 1) goto sL_NoDye;

-	if(Zeny < 10000) goto sL_Zeny;

-	delitem 976,1;

-	set Zeny, Zeny - 10000;

-	mes "Ok. I will dye you clothes yellow.";

-	setlook 7,@yellow;

-	close;

-

-sL_Sorry:

-	mes "Wow, your clothes is very strange, I haven't seen anything like it before. Hmmm... I'm sorry, but there is no way I can paint it.";

-	close;

-

-sL_Zeny:

-	mes "I'm sorry but you don't have enough money.";

-	close;

-

-sL_NoDye:

-	mes "For me to dye your clothes, I'll need the appropriate Dyestuff. Please check my price list for the information.";

-	next;

-

-L_Busy:

-	mes "Sorry, I'm too busy with other jobs to dye your clothes.";

-	goto M_Menu;

-

-L_PriceList:

-	mes "[Dyer Ginedin Rephere]";

-	mes "Here is the list of colors you can choose from and their prices:";

-	mes " ";

-	mes " - ^FF4422Red^000000: 10000 zeny, 1 Scarlet Dyestuff";

-	mes " - ^D5A500Yellow^000000: 10000 zeny, 1 Lemon Dyestuff";

-	mes " - ^AA00AAViolet^000000: 10000 zeny, 1 Violet Dyestuff";

-	mes " - ^FF8800Orange^000000: 10000 zeny, 1 Orange Dyestuff";

-	mes " - ^4422FFBlue^000000: 10000 zeny, 1 CobaltBlue Dyestuff";

-	mes " - ^009500Green^000000: 10000 zeny, 1 DarkGreen Dyestuff";

-	mes " - Black: 10000 zeny, 1 Black Dyestuff";

-	mes " - White: 10000 zeny, 1 White Dyestuff";

-	goto M_Menu;

-

-L_End:

-	mes "[Dyer Ginedin Rephere]";

-	mes "Make yourself at home. Even though I don't have time for you.";

-	close;

-}

+//===== eAthena Script ======================================= 
+//= Clothes Dyer
+//===== By: ================================================== 
+//= Usnul
+//===== Current Version: ===================================== 
+//= 2.4
+//===== Compatible With: ===================================== 
+//= eAthena 1.0+
+//===== Description: ========================================= 
+//= Clothes dyer with standard palletes
+//===== Additional Comments: ================================= 
+//= Fully working
+//= 2.1 Shortened some labels to make this script loading,
+//= Added Black+White Colors desc [Lupus]
+//= 2.1a - added adv classes + abby class support [Lupus]
+//= 2.2 – Spell checked. [Nexon]
+//= 2.3 - Fixed dis $hit! [Poki#3]
+//= 2.4 - Disabled cloth dyeing since it's not implemented
+//	  on official servers and cause your client to crash
+//	  [Playtester]
+//============================================================
+//Note: To enable it, replace L_Busy with L_Dye
+//============================================================ 
+
+
+// Dyer Ginedin Rephere ---------------------------------------------------
+prt_in.gat,284,168,2	script	Dyer Ginedin Rephere	55,{
+	mes "[Dyer Ginedin Rephere]";
+	mes "11... 12... Mmm... good. I think I'll be able to finish before tonight’s party. Oh! I didn't notice that you were here. Anyway how may I assist you?";
+M_Menu:
+	next;
+	menu "-Talk",L_Talk,"-Dye Clothing",L_Busy,"-Price list",L_PriceList,"-Cancel",L_End;
+	
+L_Talk:
+	mes "[Dyer Ginedin Rephere]";
+	mes "Life may have gotten a little better.... but when I look at all of the orders I've received... Whew!";
+	mes "It seems that the young women of Rune Midgard must be very well off these days.";
+	next;
+	mes "[Dyer Ginedin Rephere]";
+	mes "Not that I think that they are indulging in anything luxurious mind you.";
+	mes "I don't think there is anything wrong with the pursuit of beauty and being fashionable.";
+	next;
+	mes "[Dyer Ginedin Rephere]";
+	mes "For us humans, who have no colorful fur or decorative scales, clothes are one of the few ways we have to display our personality, style, and beauty.";
+	next;
+	mes "[Dyer Ginedin Rephere]";
+	mes "Haha... When I think about it, I really feel that my job is worthwhile.  I believe that I provide a service that the people desire.";
+	next;
+	mes "[Dyer Ginedin Rephere]";
+	mes "Can you feel it too? The energy that is released when rough fabric and leather are brought to life with color?.....";
+	next;
+	mes "[Dyer Ginedin Rephere]";
+	mes "Although the process is very tedious and time consuming, the joy and happiness I feel when a dress is finished.....";
+	mes "more than makes up for all of the hard work!!";
+	goto M_Menu;
+
+L_Dye:
+	mes "[Dyer Ginedin Rephere]";
+	mes "Oh... you need my work? Well... okay sounds good.";
+	next;
+	mes "[Dyer Ginedin Rephere]";
+	mes "Please choose a color that suits you.";
+	next;
+	if(Sex==0) goto Female_dye;
+//=================================
+// Clothing Dyeing for Males
+//=================================
+
+Male_dye:
+	if(BaseJob==Job_Novice || BaseJob==Job_Novice_High || BaseJob==Job_Baby) goto L_Novice_M;
+	if(BaseJob==Job_Swordman || BaseJob==Job_Swordman_High || BaseJob==Job_Baby_Swordman) goto L_Swordman_M;
+	if(BaseJob==Job_Mage || BaseJob==Job_Mage_High || BaseJob==Job_Baby_Mage) goto L_Mage_M;
+	if(BaseJob==Job_Archer || BaseJob==Job_Archer_High || BaseJob==Job_Baby_Archer) goto L_Archer_M;
+	if(BaseJob==Job_Acolyte || BaseJob==Job_Acolyte_High || BaseJob==Job_Baby_Acolyte) goto L_Acolyte_M;
+	if(BaseJob==Job_Merchant || BaseJob==Job_Merchant_High || BaseJob==Job_Baby_Merchant) goto L_Merchant_M;
+	if(BaseJob==Job_Thief || BaseJob==Job_Thief_High || BaseJob==Job_Baby_Thief) goto L_Thief_M;
+	if(BaseJob==Job_Knight || BaseJob==Job_Knight2 || BaseJob==Job_Crusader || BaseJob==Job_Crusader2 || BaseJob==Job_Lord_Knight || BaseJob==Job_Lord_Knight2 || BaseJob==Job_Paladin || BaseJob==Job_Paladin2 || BaseJob==Job_Stalker || BaseJob==Job_Baby_Knight || BaseJob==Job_Baby_Knight2 || BaseJob==Job_Baby_Crusader || BaseJob==Job_Baby_Crusader2) goto L_Swordman2_M;
+	if(BaseJob==Job_Priest || BaseJob==Job_Monk || BaseJob==Job_High_Priest || BaseJob==Job_Champion || BaseJob==Job_Baby_Priest || BaseJob==Job_Baby_Monk) goto L_Acolyte2_M;
+	if(BaseJob==Job_Wizard || BaseJob==Job_High_Wizard || BaseJob==Job_Baby_Wizard) goto L_Mage2_M;
+	if(BaseJob==Job_Blacksmith || BaseJob==Job_Alchem || BaseJob==Job_Whitesmith || BaseJob==Job_Creator || BaseJob==Job_Baby_Blacksmith || BaseJob==Job_Baby_Alchem) goto L_Merchant2_M;
+	if(BaseJob==Job_Hunter || BaseJob==Job_Bard || BaseJob==Job_Sniper || BaseJob==Job_Clown || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Bard) goto L_Archer2_M;
+	if(BaseJob==Job_Assassin || BaseJob==Job_Rogue || BaseJob==Job_Assassin_Cross || BaseJob==Job_Baby_Assassin || BaseJob==Job_Baby_Rogue) goto L_Thief2_M;
+	if(BaseJob==Job_SuperNovice || BaseJob==Job_Super_Baby) goto L_Super_Novice_M;
+	goto sL_Sorry;
+//NOTE: Although Sages have pellets, they color non existent piece's of clothing. They are not listed, so players won't waste their items and zeny.
+//Professors also have a problem <.< The only thing that changes is a part of there Fox scarf. The Stalker Placement is not a bug!
+
+L_Novice_M:
+	set @black, 1;
+	set @blue, 2;
+	set @green, 3;
+	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Swordman_M:
+	set @black, 1;
+	set @blue, 2;
+	set @green, 3;
+	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Mage_M:
+	set @red, 1;
+	set @violet, 2;
+	set @orange, 3;
+	set @white, 4;
+	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Violet",L_Dye_Violet,"- Orange",L_Dye_Orange,"- White",L_Dye_White,"- Cancel",L_End;
+L_Archer_M:
+	set @black, 1;
+	set @violet, 2;
+	set @green, 3;
+	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Violet",L_Dye_Violet,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Acolyte_M:
+	set @blue, 1;
+	set @red, 2;
+	set @white, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Merchant_M:
+	set @black, 1;
+	set @blue, 2;
+	set @green, 3;
+	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Thief_M:
+	set @green, 1;
+	set @red, 2;
+	set @white, 4;
+	menu "- Default",L_Dye_Default,"- Green",L_Dye_Green,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Cancel",L_End;
+L_Swordman2_M:
+	set @violet, 1;
+	set @red, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Red",L_Dye_Red,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Acolyte2_M:
+	set @blue, 1;
+	set @green, 2;
+	set @red, 3;
+	set @white, 4;
+	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Cancel",L_End;
+L_Mage2_M:
+	set @blue, 1;
+	set @green, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Merchant2_M:
+	set @black, 1;
+	set @green, 2;
+	set @white, 3;
+	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Cancel",L_End;
+L_Archer2_M:
+	set @black, 1;
+	set @blue, 2;
+	set @green, 3;
+	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Thief2_M:
+	set @blue, 1;
+	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Cancel",L_End;
+L_Super_Novice_M:
+	set @violet, 1;
+	set @blue, 2;
+	set @green, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+
+
+//=================================
+// Clothing Dyeing for Females
+//=================================	
+Female_dye:
+	if(BaseJob==Job_Novice || BaseJob==Job_Novice_High || BaseJob==Job_Baby) goto L_Novice_F;
+	if(BaseJob==Job_Swordman || BaseJob==Job_Swordman_High || BaseJob==Job_Baby_Swordman) goto L_Swordman_F;
+	if(BaseJob==Job_Mage || BaseJob==Job_Mage_High || BaseJob==Job_Baby_Mage) goto L_Mage_F;
+	if(BaseJob==Job_Archer || BaseJob==Job_Archer_High || BaseJob==Job_Baby_Archer) goto L_Archer_F;
+	if(BaseJob==Job_Acolyte || BaseJob==Job_Acolyte_High || BaseJob==Job_Baby_Acolyte) goto L_Acolyte_F;
+	if(BaseJob==Job_Merchant || BaseJob==Job_Merchant_High || BaseJob==Job_Baby_Merchant) goto L_Merchant_F;
+	if(BaseJob==Job_Thief || BaseJob==Job_Thief_High || BaseJob==Job_Baby_Thief) goto L_Thief_F;
+	if(BaseJob==Job_Knight || BaseJob==Job_Knight2 || BaseJob==Job_Crusader || BaseJob==Job_Crusader2 || BaseJob==Job_Lord_Knight || BaseJob==Job_Lord_Knight2 || BaseJob==Job_Paladin || BaseJob==Job_Paladin2 || BaseJob==Job_Stalker || BaseJob==Job_Baby_Knight || BaseJob==Job_Baby_Knight2 || BaseJob==Job_Baby_Crusader || BaseJob==Job_Baby_Crusader2) goto L_Swordman2_F;
+	if(BaseJob==Job_Priest || BaseJob==Job_Baby_Priest) goto L_Acolyte2_F;
+	if(BaseJob==Job_Wizard || BaseJob==Job_Sage || BaseJob==Job_High_Wizard || BaseJob==Job_Professor || BaseJob==Job_Baby_Wizard || BaseJob==Job_Baby_Sage) goto L_Mage2_F;
+	if(BaseJob==Job_Blacksmith || BaseJob==Job_Alchem || BaseJob==Job_Whitesmith || BaseJob==Job_Creator || BaseJob==Job_Baby_Blacksmith || BaseJob==Job_Baby_Alchem) goto L_Merchant2_F;
+	if(BaseJob==Job_Hunter || BaseJob==Job_Dancer || BaseJob==Job_Sniper || BaseJob==Job_Gypsy || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Dancer) goto L_Archer2_F;
+	if(BaseJob==Job_Assassin || BaseJob==Job_Baby_Assassin) goto L_Thief2_F;
+	if(BaseJob==Job_Rogue || BaseJob==Job_Assassin_Cross || BaseJob==Job_Baby_Rogue) goto L_Thief3_F;
+	if(BaseJob==Job_SuperNovice || BaseJob==Job_Super_Baby) goto L_Super_Novice_F;
+	goto sL_Sorry;
+//NOTE: Same problems as with Males. This time: Monk, High Priest, Champion.
+//Rogue and Assassin Cross have her own check, because the default dye is black <.< The Stalker Placement is not a bug!
+
+L_Novice_F:
+	set @blue, 1;
+	set @red, 2;
+	set @green, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Swordman_F:
+	set @red, 1;
+	set @green, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Mage_F:
+	set @red, 1;
+	set @violet, 2;
+	set @white, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Violet",L_Dye_Violet,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Archer_F:
+	set @red, 1;
+	set @green, 2;
+	set @white, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Acolyte_F:
+	set @red, 1;
+	set @green, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Merchant_F:
+	set @violet, 1;
+	set @green, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Thief_F:
+	set @red, 1;
+	set @white, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Swordman2_F:
+	set @blue, 1;
+	set @white, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Acolyte2_F:
+	set @red, 1;
+	set @green, 2;
+	set @white, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Mage2_F:
+	set @red, 1;
+	set @blue, 2;
+	set @white, 3;
+	set @green, 4;
+	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Blue",L_Dye_Blue,"- White",L_Dye_White,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Merchant2_F:
+	set @red, 1;
+	set @green, 2;
+	set @violet, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Violet",L_Dye_Violet,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Archer2_F:
+	set @blue, 1;
+	set @green, 3;
+	set @violet, 4;
+	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Violet",L_Dye_Violet,"- Cancel",L_End;
+L_Thief2_F:
+	set @black, 1;
+	set @yellow, 2;
+	set @white, 3;
+	menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Yellow",L_Dye_Yellow,"- White",L_Dye_White,"- Cancel",L_End;
+L_Thief3_F:
+	set @yellow, 2;
+	set @white, 3;
+	menu "- Default",L_Dye_Default,"- Yellow",L_Dye_Yellow,"- White",L_Dye_White,"- Cancel",L_End;
+L_Super_Novice_F:
+	set @blue, 1;
+	set @red, 2;
+	set @green, 3;
+	set @black, 4;
+	menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+
+//=================================
+// Rest of the script
+//=================================
+
+L_Dye_Default:
+	mes "[Dyer Ginedin Rephere]";
+	mes "I can change your dye to the default one for free.";
+	mes "Are you sure?";
+	next;
+	menu "Yes",-,"No",L_End;
+	mes "[Dyer Ginedin Rephere]";
+	mes "OK. Here goes nothing.";
+	setlook 7,0;
+	close;
+L_Dye_Orange:
+	mes "[Dyer Ginedin Rephere]";
+	if(countitem(980) < 1) goto sL_NoDye;
+	if(Zeny < 10000) goto sL_Zeny;
+	delitem 980,1;
+	set Zeny, Zeny - 10000;
+	mes "Ok. I will dye you clothes orange.";
+	setlook 7,@orange;
+	close;
+L_Dye_Violet:
+	mes "[Dyer Ginedin Rephere]";
+	if(countitem(981) < 1) goto  sL_NoDye;
+	if(Zeny < 10000) goto sL_Zeny;
+	delitem 981,1;
+	set Zeny, Zeny - 10000;
+	mes "Ok. I will dye you clothes Violet.";
+	setlook 7,@violet;
+	close;
+L_Dye_Red:
+	mes "[Dyer Ginedin Rephere]";
+	if(countitem(975) < 1) goto sL_NoDye;
+	if(Zeny < 10000) goto sL_Zeny;
+	delitem 975,1;
+	set Zeny, Zeny - 10000;
+	mes "Ok. I will dye you clothes red.";
+	setlook 7,@red;
+	close;
+L_Dye_Black:
+	mes "[Dyer Ginedin Rephere]";
+	if(countitem(983) < 1) goto sL_NoDye;
+	if(Zeny < 10000) goto sL_Zeny;
+	delitem 983,1;
+	set Zeny, Zeny - 10000;
+	mes "Ok. I will dye you clothes black.";
+	setlook 7,@black;
+	close;
+L_Dye_Green:
+	mes "[Dyer Ginedin Rephere]";
+	if(countitem(979) < 1) goto sL_NoDye;
+	if(Zeny < 10000) goto sL_Zeny;
+	delitem 979,1;
+	set Zeny, Zeny - 10000;
+	mes "Ok. I will dye you clothes green.";
+	setlook 7,@green;
+	close;
+L_Dye_Blue:
+	mes "[Dyer Ginedin Rephere]";
+	if(countitem(978) < 1) goto sL_NoDye;
+	if(Zeny < 10000) goto sL_Zeny;
+	delitem 978,1;
+	set Zeny, Zeny - 10000;
+	mes "Ok. I will dye you clothes blue.";
+	setlook 7,@blue;
+	close;
+L_Dye_White:
+	mes "[Dyer Ginedin Rephere]";
+	if(countitem(982) < 1) goto sL_NoDye;
+	if(Zeny < 10000) goto sL_Zeny;
+	delitem 982,1;
+	set Zeny, Zeny - 10000;
+	mes "Ok. I will dye you clothes white.";
+	setlook 7,@white;
+	close;
+L_Dye_Yellow:
+	mes "[Dyer Ginedin Rephere]";
+	if(countitem(976) < 1) goto sL_NoDye;
+	if(Zeny < 10000) goto sL_Zeny;
+	delitem 976,1;
+	set Zeny, Zeny - 10000;
+	mes "Ok. I will dye you clothes yellow.";
+	setlook 7,@yellow;
+	close;
+
+sL_Sorry:
+	mes "Wow, your clothes is very strange, I haven't seen anything like it before. Hmmm... I'm sorry, but there is no way I can paint it.";
+	close;
+
+sL_Zeny:
+	mes "I'm sorry but you don't have enough money.";
+	close;
+
+sL_NoDye:
+	mes "For me to dye your clothes, I'll need the appropriate Dyestuff. Please check my price list for the information.";
+	next;
+
+L_Busy:
+	mes "Sorry, I'm too busy with other jobs to dye your clothes.";
+	goto M_Menu;
+
+L_PriceList:
+	mes "[Dyer Ginedin Rephere]";
+	mes "Here is the list of colors you can choose from and their prices:";
+	mes " ";
+	mes " - ^FF4422Red^000000: 10000 zeny, 1 Scarlet Dyestuff";
+	mes " - ^D5A500Yellow^000000: 10000 zeny, 1 Lemon Dyestuff";
+	mes " - ^AA00AAViolet^000000: 10000 zeny, 1 Violet Dyestuff";
+	mes " - ^FF8800Orange^000000: 10000 zeny, 1 Orange Dyestuff";
+	mes " - ^4422FFBlue^000000: 10000 zeny, 1 CobaltBlue Dyestuff";
+	mes " - ^009500Green^000000: 10000 zeny, 1 DarkGreen Dyestuff";
+	mes " - Black: 10000 zeny, 1 Black Dyestuff";
+	mes " - White: 10000 zeny, 1 White Dyestuff";
+	goto M_Menu;
+
+L_End:
+	mes "[Dyer Ginedin Rephere]";
+	mes "Make yourself at home. Even though I don't have time for you.";
+	close;
+}
diff --git a/npc/merchants/dye_maker.txt b/npc/merchants/dye_maker.txt
index ecfdce186..02c5ddaae 100644
--- a/npc/merchants/dye_maker.txt
+++ b/npc/merchants/dye_maker.txt
@@ -1,277 +1,277 @@
-//===== eAthena Script ======================================= 

-//= Dye Maker

-//===== By: ================================================== 

-//= kobra_k88

-//===== Current Version: ===================================== 

-//= 1.1 

-//===== Compatible With: ===================================== 

-//= eAthena 7.15 +

-//===== Description: ========================================= 

-//=

-//===== Additional Comments: ================================= 

-//= Fully working

-//= 1.1 Spell Checked [Nexon] 

-//============================================================ 

-

-

-

-// Dye Maker JavaDullihan =======================

-morocc_in.gat,146,99,2	script	Dye Maker JavaDullihan	122,{

-	mes "[Dye Maker JavaDullihan]";

-	mes "Oh... What a Beautiful day today.";

-	mes "This is a perfect day to make Dyestuffs";

-	next;

-	menu "-Talk",M_Talk,"-Make Dyestuffs",M_Make,"-Cancel",M_End;

-	

-	M_Talk:

-		mes "[Dye Maker JavaDullihan]";

-		mes "I don't have much to say...";

-		next;

-		mes "[Dye Maker JavaDullihan]";

-		mes "But if you want to know about my past, I'm sure I have a few stories to tell.";

-		next;

-		mes "[Dye Maker JavaDullihan]";

-		mes "Would you like to here some?";

-		next;

-		menu "-Sure, why not.",sM_0a,"-Maybe some other time.",sM_0b;

-		

-		sM_0a:

-			mes "[Dye Maker JavaDullihan]";

-			mes "My father had been making dyestuffs since I was young... ..";

-			mes "I can still picture him making dyestuffs all day long.";

-			next;

-			mes "[Dye Maker JavaDullihan]";

-			mes "Even during the time of my mother's passing, my father kept making dyestuffs without end.";

-			mes "This made me angry at him.  How could he keep making dyestuffs at a time like that?";

-			next;

-			mes "[Dye Maker JavaDullihan]";

-			mes "I just couldn't understand what my father was thinking.  I became very disappointed in him.";

-			mes "My fathers actions made me despise Dye Making, so I ran away from home.  I survived by doing a variety of odd jobs.";

-			next;

-			mes "[Dye Maker JavaDullihan]";

-			mes "However, as you can see, I ended up becoming a Dye Maker just like my father.";

-			mes "It's been 15 years since I first started making these goddamn things...";

-			next;

-			mes "[Dye Maker JavaDullihan]";

-			mes "Now that I've been doing this for as long as I have... I think I can finally understand why my father fell in love with his job.";

-			next;

-			mes "[Dye Maker JavaDullihan]";

-			mes "Why he sacrificed everything he had for this job...";

-			next;

-			mes "[Dye Maker JavaDullihan]";

-			mes "Maybe it was because of how the colors got more and more beautiful each time...";

-			mes "Maybe he wanted to find his own perfect color...";

-			next;

-			mes "[Dye Maker JavaDullihan]";

-			mes "I now have his feel for the colors... because... I am working with the same passion he had when he was living.";

-			mes "I am able to feel the colors from within my soul.  I know it's hard to understand, but you will see what I mean.";

-			next;

-			mes "[Dye Maker JavaDullihan]";

-			mes "Father, I make these dyes for you....";

-			close;

-

-		sM_0b:

-			mes "[Dye Maker JavaDullihan]";

-			mes "Hahahaha... I guess I can't blame ya, who wants to here about a plain old dye maker's life anyhow.... Hahahaha...";

-			close;

-

-	M_Make:

-		mes "[Dye Maker JavaDullihan]";

-		mes "Alright! I will make the exact color you want.  The cost of the dyestuff will depend on its quality.";

-		mes "Don't not be itimitaded by the prices, they are all my Masterpieces.";

-		next;

-		mes "[Dye Maker JavaDullihan]";

-		mes "So what color do you want?";

-		next;

-		menu 	"-Scarlet Dyestuffs",sM_Scarlet, "-Lemon Dyestuffs",sM_Lemon, "-Cobaltblue Dyestuffs",sM_Cobaltblue,

-			"-Darkgreen Dyestuffs",sM_Darkgreen, "-Orange Dyestuffs",sM_Orange, "-Violet Dyestuffs",sM_Violet,

-			"-White Dyestuffs",sM_White, "-Black Dyestuffs",sM_Black;

-		

-		sM_Scarlet:

-			mes "[Dye Maker JavaDullihan]";

-			mes "Hmm... To make a Scarlet Dyestuffs, I need ^0000ff30 Red Herbs, 1 Counteragent and 1 Empty Bottle^000000.";

-			mes "The cost of labor will be 3000 Zeny.  Are you still interested?";

-			next;

-			menu "Make Dyestuffs",sm_Make0, "Cancel",sm_Cancel;

-			

-			sm_Make0:

-				mes "[Dye Maker JavaDullihan]";

-				if((countitem(507) < 30) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;

-				if(Zeny < 3000) goto sl_LowZeny;

-				set Zeny, Zeny - 3000;

-				delitem 507,30;

-				delitem 973,1;

-				delitem 713,1;

-				getitem 975,1;

-				mes "Missing text.";

-				mes "Under development";

-				close;

-

-		sM_Lemon:

-			mes "[Dye Maker JavaDullihan]";

-			mes "Um... to make a Lemon Dyestuffs I need ^0000ff30 Yellow Herbs, 1 Counteragent, and 1 Empty Bottle^000000.";

-			mes "The cost of labor will be 3000 Zeny.  Are you still interested?";

-			next;

-			menu "Make Dyestuffs",sm_Make1,"Cancel",sm_Cancel;

-			

-			sm_Make1:

-				mes "[Dye Maker JavaDullihan]";

-				if((countitem(508) < 30) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;

-				if(Zeny < 3000) goto sl_LowZeny;

-				mes "Missing text.";

-				mes "Under development";

-				delitem 508,30;

-				delitem 973,1;

-				delitem 713,1;

-				set Zeny, Zeny - 3000;

-				getitem 976,1;

-				close;

-

-		sM_Cobaltblue:

-			mes "[Dye Maker JavaDullihan]";

-			mes "Hmm... To make a Cobaltblue Dyestuffs, I need ^0000ff20 Blue Herbs, 1 Counteragent, and 1 Empty Bottle^000000.";

-			mes "Blue Herbs are a little bit difficult to work with, so the cost of labor will be 3500 Zeny.  Are you still interested?";

-			next;

-			menu "Make Dyestuffs",sm_Make2,"Cancel",sm_Cancel;

-			

-			sm_Make2:

-				mes "[Dye Maker JavaDullihan]";

-				if((countitem(510) < 20) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;

-				if(Zeny < 3500) goto sl_LowZeny;

-				mes "Missing text.";

-				mes "Under development";

-				delitem 510,20;

-				delitem 973,1;

-				delitem 713,1;

-				set Zeny, Zeny - 3500;

-				getitem 978,1;

-				close;

-

-		sM_Darkgreen:

-			mes "[Dye Maker JavaDullihan]";

-			mes "Hmm... To make a Darkgreen Dyestuffs, I need ^0000ff5 Blue Herbs, 20 Green Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";

-			mes "There are a lot of ingredients so please try to remember them all.  The cost of labore will be 5000 Zeny.  Are you still interested?";

-			mes "Ok are you ready?";

-			next;

-			menu "Make Dyestuffs",sm_Make3,"Cancel",sm_Cancel;

-

-			sm_Make3:

-				mes "[Dye Maker JavaDullihan]";

-				if((countitem(510) < 5) || (countitem(511) < 20) || (countitem(508) < 20) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713)<1)) goto sl_LowItems;

-				if(Zeny < 5000) goto sl_LowZeny;

-				mes "Missing text.";

-				mes "Under development";

-				delitem 510,5;

-				delitem 511,20;

-				delitem 508,20;

-				delitem 973,1;

-				delitem 974,1;

-				delitem 713,1;

-				set Zeny, Zeny - 5000;

-				getitem 979,1;

-				close;

-

-		sM_Orange:

-			mes "[Dye Maker JavaDullihan]";

-			mes "Hmm... To make a Orange Dyestuffs, I need ^0000ff20 Red Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";

-			mes "The cost of labor is 5000 Zeny.  Are you still interested?";

-			next;

-			menu "Make Dyestuffs",sm_Make4,"Cancel",sm_Cancel;

-

-			sm_Make4:

-				mes "[Dye Maker JavaDullihan]";

-				if((countitem(507) < 20) || (countitem(508) < 20) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713) < 1)) goto sl_LowItems;

-				if(Zeny < 5000) goto sl_LowZeny;

-				mes "Missing text.";

-				mes "Under development";

-				delitem 507,20;

-				delitem 508,20;

-				delitem 973,1;

-				delitem 974,1;

-				delitem 713,1;

-				set Zeny, Zeny - 5000;

-				getitem 980,1;

-				close;

-

-		sM_Violet:

-			mes "[Dye Maker JavaDullihan]";

-			mes "Hmm... To make a Violet Dyestuffs, I need ^0000ff10 Blue Herbs, 30 Red Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";

-			mes "The cost of labor will be 5000 Zeny.  Are you still interested?";

-			next;

-			menu "Make Dyestuffs",sm_Make5,"Cancel",sm_Cancel;

-

-			sm_Make5:

-				mes "[Dye Maker JavaDullihan]";

-				if((countitem(510) < 10) || (countitem(507) < 20) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713) < 1)) goto sl_LowItems;

-				if(Zeny < 5000) goto sl_LowZeny;

-				mes "Missing text.";

-				mes "Under development";

-				delitem 510,10;

-				delitem 507,20;

-				delitem 973,1;

-				delitem 974,1;

-				delitem 713,1;

-				set Zeny, Zeny - 5000;

-				getitem 981,1;

-				close;

-

-		sM_White:

-			mes "[Dye Maker JavaDullihan]";

-			mes "Umm... To make a White Dyestuffs, I need ^0000ff30 White Herbs, 1 Counteragent, and 1 Empty Bottle^000000.";

-			mes "The cost of labor will be 3000 Zeny.  Are you still interested?";

-			next;

-			menu "Make Dyestuffs",sm_Make6,"Cancel",sm_Cancel;

-

-			sm_Make6:

-				mes "[Dye Maker JavaDullihan]";

-				if((countitem(509) < 30) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;

-				if(Zeny < 3000) goto sl_LowZeny;

-				mes "Missing text.";

-				mes "Under development";

-				delitem 509,30;

-				delitem 973,1;

-				delitem 713,1;

-				set Zeny, Zeny - 3000;

-				getitem 982,1;

-				close;

-

-		sM_Black:

-			mes "[Dye Maker JavaDullihan]";

-			mes "Hmm... To make a Black Dyestuffs, I need ^0000ff30 Red, Yellow, and Green Herbs, 5 Blue Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";

-			mes "This is the most difficult and time consuming dye to make, so I will have to charge a 7000 Zeny labor fee.  Are you still interested?";

-			next;

-			menu "Make Dyestuffs",sm_Make7,"Cancel",sm_Cancel;

-

-			sm_Make7:

-				mes "[Dye Maker JavaDullihan]";

-				if((countitem(507) < 30) || (countitem(508) < 30) || (countitem(511) < 30) || (countitem(510) < 5) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713)<1)) goto sl_LowItems;

-				if(Zeny < 7000) goto sl_LowZeny;

-				mes "Missing text.";

-				mes "Under development";

-				delitem 507,30;

-				delitem 508,30;

-				delitem 511,30;

-				delitem 510,5;

-				delitem 973,1;

-				delitem 974,1;

-				delitem 713,1;

-				set Zeny, Zeny - 7000;

-				getitem 983,1;

-				close;

-

-

-			sl_LowItems:

-				mes "Hmm... you don't have enough of the items needed for the dyestuffs.  Come back when you do.";

-				close;

-

-			sl_LowZeny:

-				mes "You don't have enough zeny.  I need to make a living ya know....";

-				close;

-

-			sm_Cancel:

-				mes "[Dye Maker JavaDullihan]";

-				mes "How could you have change your mind so quickly?... oh boy...";

-				close;

-	M_End:

-		close;

-}

+//===== eAthena Script ======================================= 
+//= Dye Maker
+//===== By: ================================================== 
+//= kobra_k88
+//===== Current Version: ===================================== 
+//= 1.1 
+//===== Compatible With: ===================================== 
+//= eAthena 7.15 +
+//===== Description: ========================================= 
+//=
+//===== Additional Comments: ================================= 
+//= Fully working
+//= 1.1 Spell Checked [Nexon] 
+//============================================================ 
+
+
+
+// Dye Maker JavaDullihan =======================
+morocc_in.gat,146,99,2	script	Dye Maker JavaDullihan	122,{
+	mes "[Dye Maker JavaDullihan]";
+	mes "Oh... What a Beautiful day today.";
+	mes "This is a perfect day to make Dyestuffs";
+	next;
+	menu "-Talk",M_Talk,"-Make Dyestuffs",M_Make,"-Cancel",M_End;
+	
+	M_Talk:
+		mes "[Dye Maker JavaDullihan]";
+		mes "I don't have much to say...";
+		next;
+		mes "[Dye Maker JavaDullihan]";
+		mes "But if you want to know about my past, I'm sure I have a few stories to tell.";
+		next;
+		mes "[Dye Maker JavaDullihan]";
+		mes "Would you like to here some?";
+		next;
+		menu "-Sure, why not.",sM_0a,"-Maybe some other time.",sM_0b;
+		
+		sM_0a:
+			mes "[Dye Maker JavaDullihan]";
+			mes "My father had been making dyestuffs since I was young... ..";
+			mes "I can still picture him making dyestuffs all day long.";
+			next;
+			mes "[Dye Maker JavaDullihan]";
+			mes "Even during the time of my mother's passing, my father kept making dyestuffs without end.";
+			mes "This made me angry at him.  How could he keep making dyestuffs at a time like that?";
+			next;
+			mes "[Dye Maker JavaDullihan]";
+			mes "I just couldn't understand what my father was thinking.  I became very disappointed in him.";
+			mes "My fathers actions made me despise Dye Making, so I ran away from home.  I survived by doing a variety of odd jobs.";
+			next;
+			mes "[Dye Maker JavaDullihan]";
+			mes "However, as you can see, I ended up becoming a Dye Maker just like my father.";
+			mes "It's been 15 years since I first started making these goddamn things...";
+			next;
+			mes "[Dye Maker JavaDullihan]";
+			mes "Now that I've been doing this for as long as I have... I think I can finally understand why my father fell in love with his job.";
+			next;
+			mes "[Dye Maker JavaDullihan]";
+			mes "Why he sacrificed everything he had for this job...";
+			next;
+			mes "[Dye Maker JavaDullihan]";
+			mes "Maybe it was because of how the colors got more and more beautiful each time...";
+			mes "Maybe he wanted to find his own perfect color...";
+			next;
+			mes "[Dye Maker JavaDullihan]";
+			mes "I now have his feel for the colors... because... I am working with the same passion he had when he was living.";
+			mes "I am able to feel the colors from within my soul.  I know it's hard to understand, but you will see what I mean.";
+			next;
+			mes "[Dye Maker JavaDullihan]";
+			mes "Father, I make these dyes for you....";
+			close;
+
+		sM_0b:
+			mes "[Dye Maker JavaDullihan]";
+			mes "Hahahaha... I guess I can't blame ya, who wants to here about a plain old dye maker's life anyhow.... Hahahaha...";
+			close;
+
+	M_Make:
+		mes "[Dye Maker JavaDullihan]";
+		mes "Alright! I will make the exact color you want.  The cost of the dyestuff will depend on its quality.";
+		mes "Don't not be itimitaded by the prices, they are all my Masterpieces.";
+		next;
+		mes "[Dye Maker JavaDullihan]";
+		mes "So what color do you want?";
+		next;
+		menu 	"-Scarlet Dyestuffs",sM_Scarlet, "-Lemon Dyestuffs",sM_Lemon, "-Cobaltblue Dyestuffs",sM_Cobaltblue,
+			"-Darkgreen Dyestuffs",sM_Darkgreen, "-Orange Dyestuffs",sM_Orange, "-Violet Dyestuffs",sM_Violet,
+			"-White Dyestuffs",sM_White, "-Black Dyestuffs",sM_Black;
+		
+		sM_Scarlet:
+			mes "[Dye Maker JavaDullihan]";
+			mes "Hmm... To make a Scarlet Dyestuffs, I need ^0000ff30 Red Herbs, 1 Counteragent and 1 Empty Bottle^000000.";
+			mes "The cost of labor will be 3000 Zeny.  Are you still interested?";
+			next;
+			menu "Make Dyestuffs",sm_Make0, "Cancel",sm_Cancel;
+			
+			sm_Make0:
+				mes "[Dye Maker JavaDullihan]";
+				if((countitem(507) < 30) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+				if(Zeny < 3000) goto sl_LowZeny;
+				set Zeny, Zeny - 3000;
+				delitem 507,30;
+				delitem 973,1;
+				delitem 713,1;
+				getitem 975,1;
+				mes "Missing text.";
+				mes "Under development";
+				close;
+
+		sM_Lemon:
+			mes "[Dye Maker JavaDullihan]";
+			mes "Um... to make a Lemon Dyestuffs I need ^0000ff30 Yellow Herbs, 1 Counteragent, and 1 Empty Bottle^000000.";
+			mes "The cost of labor will be 3000 Zeny.  Are you still interested?";
+			next;
+			menu "Make Dyestuffs",sm_Make1,"Cancel",sm_Cancel;
+			
+			sm_Make1:
+				mes "[Dye Maker JavaDullihan]";
+				if((countitem(508) < 30) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+				if(Zeny < 3000) goto sl_LowZeny;
+				mes "Missing text.";
+				mes "Under development";
+				delitem 508,30;
+				delitem 973,1;
+				delitem 713,1;
+				set Zeny, Zeny - 3000;
+				getitem 976,1;
+				close;
+
+		sM_Cobaltblue:
+			mes "[Dye Maker JavaDullihan]";
+			mes "Hmm... To make a Cobaltblue Dyestuffs, I need ^0000ff20 Blue Herbs, 1 Counteragent, and 1 Empty Bottle^000000.";
+			mes "Blue Herbs are a little bit difficult to work with, so the cost of labor will be 3500 Zeny.  Are you still interested?";
+			next;
+			menu "Make Dyestuffs",sm_Make2,"Cancel",sm_Cancel;
+			
+			sm_Make2:
+				mes "[Dye Maker JavaDullihan]";
+				if((countitem(510) < 20) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+				if(Zeny < 3500) goto sl_LowZeny;
+				mes "Missing text.";
+				mes "Under development";
+				delitem 510,20;
+				delitem 973,1;
+				delitem 713,1;
+				set Zeny, Zeny - 3500;
+				getitem 978,1;
+				close;
+
+		sM_Darkgreen:
+			mes "[Dye Maker JavaDullihan]";
+			mes "Hmm... To make a Darkgreen Dyestuffs, I need ^0000ff5 Blue Herbs, 20 Green Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";
+			mes "There are a lot of ingredients so please try to remember them all.  The cost of labore will be 5000 Zeny.  Are you still interested?";
+			mes "Ok are you ready?";
+			next;
+			menu "Make Dyestuffs",sm_Make3,"Cancel",sm_Cancel;
+
+			sm_Make3:
+				mes "[Dye Maker JavaDullihan]";
+				if((countitem(510) < 5) || (countitem(511) < 20) || (countitem(508) < 20) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713)<1)) goto sl_LowItems;
+				if(Zeny < 5000) goto sl_LowZeny;
+				mes "Missing text.";
+				mes "Under development";
+				delitem 510,5;
+				delitem 511,20;
+				delitem 508,20;
+				delitem 973,1;
+				delitem 974,1;
+				delitem 713,1;
+				set Zeny, Zeny - 5000;
+				getitem 979,1;
+				close;
+
+		sM_Orange:
+			mes "[Dye Maker JavaDullihan]";
+			mes "Hmm... To make a Orange Dyestuffs, I need ^0000ff20 Red Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";
+			mes "The cost of labor is 5000 Zeny.  Are you still interested?";
+			next;
+			menu "Make Dyestuffs",sm_Make4,"Cancel",sm_Cancel;
+
+			sm_Make4:
+				mes "[Dye Maker JavaDullihan]";
+				if((countitem(507) < 20) || (countitem(508) < 20) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+				if(Zeny < 5000) goto sl_LowZeny;
+				mes "Missing text.";
+				mes "Under development";
+				delitem 507,20;
+				delitem 508,20;
+				delitem 973,1;
+				delitem 974,1;
+				delitem 713,1;
+				set Zeny, Zeny - 5000;
+				getitem 980,1;
+				close;
+
+		sM_Violet:
+			mes "[Dye Maker JavaDullihan]";
+			mes "Hmm... To make a Violet Dyestuffs, I need ^0000ff10 Blue Herbs, 30 Red Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";
+			mes "The cost of labor will be 5000 Zeny.  Are you still interested?";
+			next;
+			menu "Make Dyestuffs",sm_Make5,"Cancel",sm_Cancel;
+
+			sm_Make5:
+				mes "[Dye Maker JavaDullihan]";
+				if((countitem(510) < 10) || (countitem(507) < 20) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+				if(Zeny < 5000) goto sl_LowZeny;
+				mes "Missing text.";
+				mes "Under development";
+				delitem 510,10;
+				delitem 507,20;
+				delitem 973,1;
+				delitem 974,1;
+				delitem 713,1;
+				set Zeny, Zeny - 5000;
+				getitem 981,1;
+				close;
+
+		sM_White:
+			mes "[Dye Maker JavaDullihan]";
+			mes "Umm... To make a White Dyestuffs, I need ^0000ff30 White Herbs, 1 Counteragent, and 1 Empty Bottle^000000.";
+			mes "The cost of labor will be 3000 Zeny.  Are you still interested?";
+			next;
+			menu "Make Dyestuffs",sm_Make6,"Cancel",sm_Cancel;
+
+			sm_Make6:
+				mes "[Dye Maker JavaDullihan]";
+				if((countitem(509) < 30) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+				if(Zeny < 3000) goto sl_LowZeny;
+				mes "Missing text.";
+				mes "Under development";
+				delitem 509,30;
+				delitem 973,1;
+				delitem 713,1;
+				set Zeny, Zeny - 3000;
+				getitem 982,1;
+				close;
+
+		sM_Black:
+			mes "[Dye Maker JavaDullihan]";
+			mes "Hmm... To make a Black Dyestuffs, I need ^0000ff30 Red, Yellow, and Green Herbs, 5 Blue Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";
+			mes "This is the most difficult and time consuming dye to make, so I will have to charge a 7000 Zeny labor fee.  Are you still interested?";
+			next;
+			menu "Make Dyestuffs",sm_Make7,"Cancel",sm_Cancel;
+
+			sm_Make7:
+				mes "[Dye Maker JavaDullihan]";
+				if((countitem(507) < 30) || (countitem(508) < 30) || (countitem(511) < 30) || (countitem(510) < 5) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713)<1)) goto sl_LowItems;
+				if(Zeny < 7000) goto sl_LowZeny;
+				mes "Missing text.";
+				mes "Under development";
+				delitem 507,30;
+				delitem 508,30;
+				delitem 511,30;
+				delitem 510,5;
+				delitem 973,1;
+				delitem 974,1;
+				delitem 713,1;
+				set Zeny, Zeny - 7000;
+				getitem 983,1;
+				close;
+
+
+			sl_LowItems:
+				mes "Hmm... you don't have enough of the items needed for the dyestuffs.  Come back when you do.";
+				close;
+
+			sl_LowZeny:
+				mes "You don't have enough zeny.  I need to make a living ya know....";
+				close;
+
+			sm_Cancel:
+				mes "[Dye Maker JavaDullihan]";
+				mes "How could you have change your mind so quickly?... oh boy...";
+				close;
+	M_End:
+		close;
+}
diff --git a/npc/merchants/grandpa_pharmacist.txt b/npc/merchants/grandpa_pharmacist.txt
index 67ff9e02a..869ef036e 100644
--- a/npc/merchants/grandpa_pharmacist.txt
+++ b/npc/merchants/grandpa_pharmacist.txt
@@ -1,162 +1,162 @@
-//===== eAthena Script =======================================

-//= Grandpa Pharmacist

-//===== By: ==================================================

-//= kobra_k88

-//===== Current Version: =====================================

-//= 1.2

-//===== Compatible With: =====================================

-//= eAthena 7.15 +

-//===== Description: =========================================

-//= Trade in items for potions

-//===============================

-//= Breakdown of arguments used

-//= arg(0): first item id#

-//= arg(1): 2nd item id# if needed, or else use 0

-//= arg(2): zeny cost

-//= arg(3): potion id#

-//= arg(4): potion name

-//===== Additional Comments: =================================

-//= Fully working

-//= 1.1 Negative input bug fixed [Lupus]

-//= 1.2 Created a subfunc for the potion making part.  Added more

-//= input/zeny exploit checks. Added Lupus's "loopless" technique.[kobra_k88]

-//============================================================

-

-

-alberta_in.gat,16,28,4	script	Grampa Pharmacist	61,{

-	mes "[Grampa Pharmacist]";

-	mes "Hmmm... what do you want...?";

-	next;

-	menu "Make Potion",M_Make, "Talk",M_Talk, "Information",M_Info, "Cancel",M_End;

-	

-	M_Make:

-		mes "[Grampa Pharmacist]";

-		mes "Did you prepare all the items needed? If so what potion do you want?";

-		M_Menu:

-		next;

-		menu "Red Potion",M_0, "Orange Potion",M_1, "Yellow Potion",M_2,

-			 "White Potion",M_3, "Blue Potion",M_4, "Green Potion",M_5,

-			 "Nah, I change my mind.",M_End;

-		

-		M_0:

-			callsub sF_Make, 507, 0, 2, 501, "red";

-			goto M_Menu;

-		M_1:

-			callsub sF_Make, 507, 508, 5, 502, "orange";

-			goto M_Menu;

-		M_2:

-			callsub sF_Make, 508, 0, 10, 503, "yellow";

-			goto M_Menu;

-		M_3:

-			callsub sF_Make, 509, 0, 20, 504, "white";

-			goto M_Menu;

-		M_4:

-			callsub sF_Make, 510, 0, 30, 505, "blue";

-			goto M_Menu;

-		M_5:

-			callsub sF_Make, 511, 0, 3, 506, "green";

-			goto M_Menu;

-

-	M_Talk:

-		mes "[Grampa Pharmacist]";

-		mes "The right type of medicinal Herbs can replenish a person's HP or SP";

-		mes ". ~Sigh~ I'm starting to reminisce about my youth.... a sign that I";

-		mes "must be getting old.....";

-		next;

-		mes "[Grampa Pharmacist]";

-		mes "... A potion is merely an, 'easy to use', form of medicinal  Herbs";

-		mes "..... nothing more and nothing less.";

-		close;

-	M_Info:

-		mes "[Grampa Pharmacist]";

-		mes "~Sigh~... you young ones can be quite bothersome.. Fine, I will";

-		mes "explain to you how potions work....";

-		next;

-		mes "[Grampa Pharmacist]";

-		mes "Though the bennefits from consuming the various Herbs found around";

-		mes "Rune-Midgard are great... by refining them into potions, the";

-		mes "effects of the Herbs are dramatically enhanced.";

-		next;

-		mes "[Grampa Pharmacist]";

-		mes "The process of refining herbs into potions is a special one that I";

-		mes "created.  For a small fee I can make any potion you desire.";

-		next;

-		mes "[Grampa Pharmacist]";

-		mes "^FF5533Red Potion^000000 - 2 Red Herbs, 1 Empty Bottle, 2 Zeny fee.";

-		mes "^FF8000Orange Potion^000000 - 1 Red Herb, 1 Yellow Herb, 1 Empty Bottle, 5 Zeny fee.";

-		mes "^E8CF20Yellow Potion^000000 - 2 Yellow Herbs, 1 Empty Bottle, 10 Zeny fee.";

-		next;

-		mes "[Grampa Pharmacist]";

-		mes "^999999White Potion^000000 -  2 White Herbs, 1 Empty Bottle, 20 Zeny fee.";

-		mes "^3355FFBlue Potion^000000 - 2 Blue Herbs, 1 Empty Bottle, 30 Zeny fee.";

-		mes "^00B000Green Potion^000000 - 2 Green Herbs, 1 Empty Bottle, 3 Zeny fee.";

-		close;

-	M_End:

-		mes "[Grampa Pharmacist]";

-		mes "Didn't you have something to say?!";

-		close;

-

-// Subfunction for making potions

-//================================

-sF_Make:

-	set @herbnum, 2;

-	if(getarg(1) != 0) set @herbnum, 1;

-	if(countitem(getarg(0)) < @herbnum) goto L_NdHerbs;

-	if(getarg(1) != 0) if(countitem(getarg(1)) < @herbnum) goto L_NdHerbs;

-	if(countitem(713) < 1) goto L_NdBottle;

-	if(Zeny < getarg(2)) goto L_NdZeny;

-

-	mes "[Grampa Pharmacist]";

-	mes "How many?";

-	next;

-	menu "As many as possible.",sM_0a, "I will set the amount.",sM_0b, "Nah, forget about it",M_End;

-

-	sM_0a:

-		set @amount, 1000;

-		if(zeny/getarg(2) < @amount) set @amount, zeny/getarg(2);

-		if(countitem(getarg(0))/@herbnum < @amount) set @amount, countitem(getarg(0))/@herbnum;

-		if(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) set @amount, countitem(getarg(1))/@herbnum;

-		if(countitem(713) < @amount) set @amount, countitem(713);

-		if(@amount > 0) goto L_End;

-		mes "[Grampa Pharmacist]";

-		mes "Jeez... you don't even have the right items.....";

-		close;

-		

-	sM_0b:

-		input @amount;

-		if(@amount<1 || @amount>1000) goto L_BadAmnt;

-		if(countitem(getarg(0))/@herbnum < @amount) goto L_NdHerbs;

-		if(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) goto L_NdHerbs;

-		if(countitem(713) < @amount) goto L_NdBottle;

-		if(Zeny < (getarg(2)*@amount)) goto L_NdZeny;

-

-	L_End:

-		set Zeny, Zeny - (getarg(2)*@amount);

-		delitem getarg(0), (@amount*@herbnum);

-		if(getarg(1) != 0) delitem getarg(1), (@amount*@herbnum);

-		delitem 713, @amount;

-		getitem getarg(3), @amount;

-		mes "[Grampa Pharmacist]";

-		mes "Here are your " +getarg(4)+ " potions.";

-		close;

-

-	L_NdBottle:

-		mes "[Grampa Pharmacist]";

-		mes "You don't have enough empty bottles to put the medicine in you idiot!!";

-		return;

-

-	L_NdHerbs:

-		mes "[Grampa Pharmacist]";

-		mes "You rascal! What did you expect from me? You didn't even bring all of the right herbs!";

-		return;

-

-	L_NdZeny:

-		mes "[Grampa Pharmacist]";

-		mes "You don't have enough zeny for that many potions.";

-		return;

-

-	L_BadAmnt:

-		mes "[Grampa Pharmacist]";

-		mes "What?! That's not a valid amount!";	

-		return;

-}

+//===== eAthena Script =======================================
+//= Grandpa Pharmacist
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.2
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Trade in items for potions
+//===============================
+//= Breakdown of arguments used
+//= arg(0): first item id#
+//= arg(1): 2nd item id# if needed, or else use 0
+//= arg(2): zeny cost
+//= arg(3): potion id#
+//= arg(4): potion name
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Negative input bug fixed [Lupus]
+//= 1.2 Created a subfunc for the potion making part.  Added more
+//= input/zeny exploit checks. Added Lupus's "loopless" technique.[kobra_k88]
+//============================================================
+
+
+alberta_in.gat,16,28,4	script	Grampa Pharmacist	61,{
+	mes "[Grampa Pharmacist]";
+	mes "Hmmm... what do you want...?";
+	next;
+	menu "Make Potion",M_Make, "Talk",M_Talk, "Information",M_Info, "Cancel",M_End;
+	
+	M_Make:
+		mes "[Grampa Pharmacist]";
+		mes "Did you prepare all the items needed? If so what potion do you want?";
+		M_Menu:
+		next;
+		menu "Red Potion",M_0, "Orange Potion",M_1, "Yellow Potion",M_2,
+			 "White Potion",M_3, "Blue Potion",M_4, "Green Potion",M_5,
+			 "Nah, I change my mind.",M_End;
+		
+		M_0:
+			callsub sF_Make, 507, 0, 2, 501, "red";
+			goto M_Menu;
+		M_1:
+			callsub sF_Make, 507, 508, 5, 502, "orange";
+			goto M_Menu;
+		M_2:
+			callsub sF_Make, 508, 0, 10, 503, "yellow";
+			goto M_Menu;
+		M_3:
+			callsub sF_Make, 509, 0, 20, 504, "white";
+			goto M_Menu;
+		M_4:
+			callsub sF_Make, 510, 0, 30, 505, "blue";
+			goto M_Menu;
+		M_5:
+			callsub sF_Make, 511, 0, 3, 506, "green";
+			goto M_Menu;
+
+	M_Talk:
+		mes "[Grampa Pharmacist]";
+		mes "The right type of medicinal Herbs can replenish a person's HP or SP";
+		mes ". ~Sigh~ I'm starting to reminisce about my youth.... a sign that I";
+		mes "must be getting old.....";
+		next;
+		mes "[Grampa Pharmacist]";
+		mes "... A potion is merely an, 'easy to use', form of medicinal  Herbs";
+		mes "..... nothing more and nothing less.";
+		close;
+	M_Info:
+		mes "[Grampa Pharmacist]";
+		mes "~Sigh~... you young ones can be quite bothersome.. Fine, I will";
+		mes "explain to you how potions work....";
+		next;
+		mes "[Grampa Pharmacist]";
+		mes "Though the bennefits from consuming the various Herbs found around";
+		mes "Rune-Midgard are great... by refining them into potions, the";
+		mes "effects of the Herbs are dramatically enhanced.";
+		next;
+		mes "[Grampa Pharmacist]";
+		mes "The process of refining herbs into potions is a special one that I";
+		mes "created.  For a small fee I can make any potion you desire.";
+		next;
+		mes "[Grampa Pharmacist]";
+		mes "^FF5533Red Potion^000000 - 2 Red Herbs, 1 Empty Bottle, 2 Zeny fee.";
+		mes "^FF8000Orange Potion^000000 - 1 Red Herb, 1 Yellow Herb, 1 Empty Bottle, 5 Zeny fee.";
+		mes "^E8CF20Yellow Potion^000000 - 2 Yellow Herbs, 1 Empty Bottle, 10 Zeny fee.";
+		next;
+		mes "[Grampa Pharmacist]";
+		mes "^999999White Potion^000000 -  2 White Herbs, 1 Empty Bottle, 20 Zeny fee.";
+		mes "^3355FFBlue Potion^000000 - 2 Blue Herbs, 1 Empty Bottle, 30 Zeny fee.";
+		mes "^00B000Green Potion^000000 - 2 Green Herbs, 1 Empty Bottle, 3 Zeny fee.";
+		close;
+	M_End:
+		mes "[Grampa Pharmacist]";
+		mes "Didn't you have something to say?!";
+		close;
+
+// Subfunction for making potions
+//================================
+sF_Make:
+	set @herbnum, 2;
+	if(getarg(1) != 0) set @herbnum, 1;
+	if(countitem(getarg(0)) < @herbnum) goto L_NdHerbs;
+	if(getarg(1) != 0) if(countitem(getarg(1)) < @herbnum) goto L_NdHerbs;
+	if(countitem(713) < 1) goto L_NdBottle;
+	if(Zeny < getarg(2)) goto L_NdZeny;
+
+	mes "[Grampa Pharmacist]";
+	mes "How many?";
+	next;
+	menu "As many as possible.",sM_0a, "I will set the amount.",sM_0b, "Nah, forget about it",M_End;
+
+	sM_0a:
+		set @amount, 1000;
+		if(zeny/getarg(2) < @amount) set @amount, zeny/getarg(2);
+		if(countitem(getarg(0))/@herbnum < @amount) set @amount, countitem(getarg(0))/@herbnum;
+		if(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) set @amount, countitem(getarg(1))/@herbnum;
+		if(countitem(713) < @amount) set @amount, countitem(713);
+		if(@amount > 0) goto L_End;
+		mes "[Grampa Pharmacist]";
+		mes "Jeez... you don't even have the right items.....";
+		close;
+		
+	sM_0b:
+		input @amount;
+		if(@amount<1 || @amount>1000) goto L_BadAmnt;
+		if(countitem(getarg(0))/@herbnum < @amount) goto L_NdHerbs;
+		if(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) goto L_NdHerbs;
+		if(countitem(713) < @amount) goto L_NdBottle;
+		if(Zeny < (getarg(2)*@amount)) goto L_NdZeny;
+
+	L_End:
+		set Zeny, Zeny - (getarg(2)*@amount);
+		delitem getarg(0), (@amount*@herbnum);
+		if(getarg(1) != 0) delitem getarg(1), (@amount*@herbnum);
+		delitem 713, @amount;
+		getitem getarg(3), @amount;
+		mes "[Grampa Pharmacist]";
+		mes "Here are your " +getarg(4)+ " potions.";
+		close;
+
+	L_NdBottle:
+		mes "[Grampa Pharmacist]";
+		mes "You don't have enough empty bottles to put the medicine in you idiot!!";
+		return;
+
+	L_NdHerbs:
+		mes "[Grampa Pharmacist]";
+		mes "You rascal! What did you expect from me? You didn't even bring all of the right herbs!";
+		return;
+
+	L_NdZeny:
+		mes "[Grampa Pharmacist]";
+		mes "You don't have enough zeny for that many potions.";
+		return;
+
+	L_BadAmnt:
+		mes "[Grampa Pharmacist]";
+		mes "What?! That's not a valid amount!";	
+		return;
+}
diff --git a/npc/merchants/hair_dyer.txt b/npc/merchants/hair_dyer.txt
index f684138a2..c4e10f2ca 100644
--- a/npc/merchants/hair_dyer.txt
+++ b/npc/merchants/hair_dyer.txt
@@ -1,159 +1,159 @@
-//===== eAthena Script ======================================= 

-//= Hair Dyer

-//===== By: ================================================== 

-//= kobra_k88

-//===== Current Version: ===================================== 

-//= 1.1

-//===== Compatible With: ===================================== 

-//= eAthena 7.15 +

-//===== Description: ========================================= 

-//= Hair Dyer with standard palletes

-//===== Additional Comments: ================================= 

-//= Fully working

-//= 1.1 Bugfix: fixed missing menu label LEnd->M_End [Lupus]

-//============================================================ 

-

-

-

-

-// HairDyer Jovovich -----------------------------------------------------

-prt_in.gat,243,168,4	script	HairDyer Jovovich	91,{

-	mes "[HairDyer Jovovich]";

-	mes "Welcome to my Hair Dying shop.";

-	next;

-	mes "[HairDyer Jovovich]";

-	mes "Oh my..... your hair does not look like it's in good condition.  I think it needs some special care.  Come have a seat.";

-	qMenu0:

-	next;

-	menu "-Dye Hair.",M_0, "-Price List",M_1, "-Hair Tips",M_2, "-Cancel",M_End;

-

-	M_0:

-		mes "[HairDyer Jovovich]";

-		mes "Hohoho~ That's a good choice~~ Any time is a good time to change your hair color.";

-		next;

-		mes "[HairDyer Jovovich]";

-		mes "Please choose a color that suits you";

-		next;

-		menu	"-Red please.",sM_a, "-Yellow please.",sM_b,  "-Violet please.",sM_c, "-Orange please.",sM_d, "-Green please.",sM_e,

-			"-Blue please.",sM_f, "-White please.",sM_g, "-Black please.",sM_h, "-Sorry, I changed my mind.",M_End;

-

-		sM_a:

-			mes "[HairDyer Jovovich]";

-			if(countitem(975) < 1) goto sL_NoDye;

-			if(Zeny < 1000) goto sL_Zeny;

-			set Zeny, Zeny - 1000;

-			delitem 975,1;

-			mes "Ok. I will dye you hair red.";

-			setlook 6,8;

-

-			close;

-

-		sM_b:

-			mes "[HairDyer Jovovich]";

-			if(countitem(976) < 1) goto sL_NoDye;

-			if(Zeny < 1000) goto sL_Zeny;

-			mes "Ok. I will dye you hair yellow.";

-			setlook 6,1;

-			delitem 976,1;

-			set Zeny, Zeny - 1000;

-			close;

-

-		sM_c:

-			mes "[HairDyer Jovovich]";

-			if(countitem(981) < 1) goto  sL_NoDye;

-			if(Zeny < 1000) goto sL_Zeny;

-			mes "Ok. I will dye you hair Violet.";

-			setlook 6,2;

-			delitem 981,1;

-			set Zeny, Zeny - 1000;

-			close;

-

-		sM_d:

-			mes "[HairDyer Jovovich]";

-			if(countitem(980) < 1) goto sL_NoDye;

-			if(Zeny < 1000) goto sL_Zeny;

-			mes "Ok. I will dye you hair Orange.";

-			setlook 6,3;

-			delitem 980,1;

-			set Zeny, Zeny - 1000;

-			close;

-

-		sM_e:

-			mes "[HairDyer Jovovich]";

-			if(countitem(979) < 1) goto sL_NoDye;

-			if(Zeny < 1000) goto sL_Zeny;

-			mes "Ok. I will dye you hair Green.";

-			setlook 6,4;

-			delitem 979,1;

-			set Zeny, Zeny - 1000;

-			close;

-

-		sM_f:

-			mes "[HairDyer Jovovich]";

-			if(countitem(978) < 1) goto sL_NoDye;

-			if(Zeny < 1000) goto sL_Zeny;

-			mes "Ok. I will dye you hair blue.";

-			setlook 6,5;

-			delitem 978,1;

-			set Zeny, Zeny - 1000;

-			close;

-

-		sM_g:

-			mes "[HairDyer Jovovich]";

-			if(countitem(982) < 1) goto sL_NoDye;

-			if(Zeny < 1000) goto sL_Zeny;

-			mes "Ok. I will dye you hair white.";

-			setlook 6,6;

-			delitem 982,1;

-			set Zeny, Zeny - 1000;

-			close;

-

-		sM_h:

-			mes "[HairDyer Jovovich]";

-			if(countitem(983) < 1) goto sL_NoDye;

-			if(Zeny < 1000) goto sL_Zeny;

-			mes "Ok. I will dye you hair black.";

-			setlook 6,7;

-			delitem 983,1;

-			set Zeny, Zeny - 1000;

-			close;

-

-		sL_NoDye:

-			mes "For me to dye your hair, I'll need the appropriate Dyestuff.  Please check my price list for the information.";

-			close;

-

-		sL_Zeny:

-			mes "I'm sorry but you don't have enough money.";

-			close;

-

-	M_1:

-		mes "[HairDyer Jovovich]";

-		mes "Here is the list of colors you can choose from and their prices:";

-		mes " - Red: 1000 zeny, 1 Scarlet Dyestuff";

-		mes " - Yellow: 1000 zeny, 1 Lemon Dyestuff";

-		mes " - Violet: 1000 zeny, 1 Violet Dyestuff";

-		mes " - Orange: 1000 zeny, 1 Orange Dyestuff";

-		mes " - Green: 1000 zeny, 1 DarkGreen Dyestuff";

-		mes " - Blue: 1000 zeny, 1 CobaltBlue Dyestuff";

-		mes " - White: 1000 zeny, 1 White Dyestuff";

-		mes " - Black: 1000 zeny, 1 Black Dyestuff";

-		goto qMenu0;

-

-	M_2:

-		mes "[HairDyer Jovovich]";

-		mes "When your just feeling gloomy, of if you just got dumped... if you want to look hot, or when you just need to look better.....";

-		next;

-		mes "[HairDyer Jovovich]";

-		mes "Change the color of your hair and your bound to regain your confidence and add an extra bounce to your step!!";

-		next;

-		mes "[HairDyer Jovovich]";

-		mes "For the small price of 1000 zeny and a Dyestuff, I can give you the haircolor you've been dreaming of!";

-		next;

-		goto qMenu0;

-

-	M_End:

-		mes "[HairDyer Jovovich]";

-		mes "I think... every human being has the right to become beautiful......";

-		close;

-}

-

+//===== eAthena Script ======================================= 
+//= Hair Dyer
+//===== By: ================================================== 
+//= kobra_k88
+//===== Current Version: ===================================== 
+//= 1.1
+//===== Compatible With: ===================================== 
+//= eAthena 7.15 +
+//===== Description: ========================================= 
+//= Hair Dyer with standard palletes
+//===== Additional Comments: ================================= 
+//= Fully working
+//= 1.1 Bugfix: fixed missing menu label LEnd->M_End [Lupus]
+//============================================================ 
+
+
+
+
+// HairDyer Jovovich -----------------------------------------------------
+prt_in.gat,243,168,4	script	HairDyer Jovovich	91,{
+	mes "[HairDyer Jovovich]";
+	mes "Welcome to my Hair Dying shop.";
+	next;
+	mes "[HairDyer Jovovich]";
+	mes "Oh my..... your hair does not look like it's in good condition.  I think it needs some special care.  Come have a seat.";
+	qMenu0:
+	next;
+	menu "-Dye Hair.",M_0, "-Price List",M_1, "-Hair Tips",M_2, "-Cancel",M_End;
+
+	M_0:
+		mes "[HairDyer Jovovich]";
+		mes "Hohoho~ That's a good choice~~ Any time is a good time to change your hair color.";
+		next;
+		mes "[HairDyer Jovovich]";
+		mes "Please choose a color that suits you";
+		next;
+		menu	"-Red please.",sM_a, "-Yellow please.",sM_b,  "-Violet please.",sM_c, "-Orange please.",sM_d, "-Green please.",sM_e,
+			"-Blue please.",sM_f, "-White please.",sM_g, "-Black please.",sM_h, "-Sorry, I changed my mind.",M_End;
+
+		sM_a:
+			mes "[HairDyer Jovovich]";
+			if(countitem(975) < 1) goto sL_NoDye;
+			if(Zeny < 1000) goto sL_Zeny;
+			set Zeny, Zeny - 1000;
+			delitem 975,1;
+			mes "Ok. I will dye you hair red.";
+			setlook 6,8;
+
+			close;
+
+		sM_b:
+			mes "[HairDyer Jovovich]";
+			if(countitem(976) < 1) goto sL_NoDye;
+			if(Zeny < 1000) goto sL_Zeny;
+			mes "Ok. I will dye you hair yellow.";
+			setlook 6,1;
+			delitem 976,1;
+			set Zeny, Zeny - 1000;
+			close;
+
+		sM_c:
+			mes "[HairDyer Jovovich]";
+			if(countitem(981) < 1) goto  sL_NoDye;
+			if(Zeny < 1000) goto sL_Zeny;
+			mes "Ok. I will dye you hair Violet.";
+			setlook 6,2;
+			delitem 981,1;
+			set Zeny, Zeny - 1000;
+			close;
+
+		sM_d:
+			mes "[HairDyer Jovovich]";
+			if(countitem(980) < 1) goto sL_NoDye;
+			if(Zeny < 1000) goto sL_Zeny;
+			mes "Ok. I will dye you hair Orange.";
+			setlook 6,3;
+			delitem 980,1;
+			set Zeny, Zeny - 1000;
+			close;
+
+		sM_e:
+			mes "[HairDyer Jovovich]";
+			if(countitem(979) < 1) goto sL_NoDye;
+			if(Zeny < 1000) goto sL_Zeny;
+			mes "Ok. I will dye you hair Green.";
+			setlook 6,4;
+			delitem 979,1;
+			set Zeny, Zeny - 1000;
+			close;
+
+		sM_f:
+			mes "[HairDyer Jovovich]";
+			if(countitem(978) < 1) goto sL_NoDye;
+			if(Zeny < 1000) goto sL_Zeny;
+			mes "Ok. I will dye you hair blue.";
+			setlook 6,5;
+			delitem 978,1;
+			set Zeny, Zeny - 1000;
+			close;
+
+		sM_g:
+			mes "[HairDyer Jovovich]";
+			if(countitem(982) < 1) goto sL_NoDye;
+			if(Zeny < 1000) goto sL_Zeny;
+			mes "Ok. I will dye you hair white.";
+			setlook 6,6;
+			delitem 982,1;
+			set Zeny, Zeny - 1000;
+			close;
+
+		sM_h:
+			mes "[HairDyer Jovovich]";
+			if(countitem(983) < 1) goto sL_NoDye;
+			if(Zeny < 1000) goto sL_Zeny;
+			mes "Ok. I will dye you hair black.";
+			setlook 6,7;
+			delitem 983,1;
+			set Zeny, Zeny - 1000;
+			close;
+
+		sL_NoDye:
+			mes "For me to dye your hair, I'll need the appropriate Dyestuff.  Please check my price list for the information.";
+			close;
+
+		sL_Zeny:
+			mes "I'm sorry but you don't have enough money.";
+			close;
+
+	M_1:
+		mes "[HairDyer Jovovich]";
+		mes "Here is the list of colors you can choose from and their prices:";
+		mes " - Red: 1000 zeny, 1 Scarlet Dyestuff";
+		mes " - Yellow: 1000 zeny, 1 Lemon Dyestuff";
+		mes " - Violet: 1000 zeny, 1 Violet Dyestuff";
+		mes " - Orange: 1000 zeny, 1 Orange Dyestuff";
+		mes " - Green: 1000 zeny, 1 DarkGreen Dyestuff";
+		mes " - Blue: 1000 zeny, 1 CobaltBlue Dyestuff";
+		mes " - White: 1000 zeny, 1 White Dyestuff";
+		mes " - Black: 1000 zeny, 1 Black Dyestuff";
+		goto qMenu0;
+
+	M_2:
+		mes "[HairDyer Jovovich]";
+		mes "When your just feeling gloomy, of if you just got dumped... if you want to look hot, or when you just need to look better.....";
+		next;
+		mes "[HairDyer Jovovich]";
+		mes "Change the color of your hair and your bound to regain your confidence and add an extra bounce to your step!!";
+		next;
+		mes "[HairDyer Jovovich]";
+		mes "For the small price of 1000 zeny and a Dyestuff, I can give you the haircolor you've been dreaming of!";
+		next;
+		goto qMenu0;
+
+	M_End:
+		mes "[HairDyer Jovovich]";
+		mes "I think... every human being has the right to become beautiful......";
+		close;
+}
+
diff --git a/npc/merchants/hair_style.txt b/npc/merchants/hair_style.txt
index 4a4daff36..f79966894 100644
--- a/npc/merchants/hair_style.txt
+++ b/npc/merchants/hair_style.txt
@@ -1,2054 +1,2054 @@
-//===== Athena Script ========================================

-//= Hair Dresser

-//===== By: ==================================================

-//= [Muad_Dib] 1.0 (The Prometheus Project)

-//===== Current Version: =====================================

-//= 1.1

-//===== Compatible With: =====================================

-//= Any Athena Version; RO Episode 6+

-//===== Description: =========================================

-//= Allows you to change your hairstyle.

-//===== Additional Comments: =================================

-//= 07/06/05 : Added 1st Version. [Muad_Dib]

-//= Converted to eAthena format by Dr.Evil

-//= Change NPC coords according to 

-//= http://www.nattsumi.com/roquest/miscellaneousquest.html

-//= Fixed typos [Nexon]

-//= TODO: Fix exploits V_V [Lupus]

-//= 1.1 Removed Duplicates [Silent]

-//============================================================

-

-alberta.gat,137,37,6	script	Stylist#01	91,{

-	mes "[Veronica]";

-	mes "Welcome~~Welcome~~";

-	mes "Welcome to the one of the best Hair shop, Veronicas Beauty Saloon!!";

-	mes "HoHoHo";

-	mes "Come here for new hair, right?";

-	mes "How may I help you?";

-	next;

-	menu "Look through the Hair Styles.",Look,"Change Hair Style",Change,"Stop talking.",Cancel;

-Look:

-	set @hair,0;

-	mes "[Veronica]";

-	mes "There are 19 Hair Styles, 1~19!!!";

-	mes "Which number do you want to look at first?";

-	mes "If you want to stop looking, please choose 0.";

-	next;

-		if(sex==0) goto LookF;

-		input @hair_in;

-		if (@hair_in > 19) goto hairtohigh;

-		set @hair,@hair_in;

-	goto ShowPicM;

-	close;

-LookF:

-	set @hairf,0; 

-	input @hairf_in;

-	if (@hairf_in > 19) goto hairtohigh;

-	set @hairf,@hairf_in;

-	goto ShowPicF;

-	close;

-ShowPicM:

-		if (@hair == 0) goto hairnothing;

-		if (@hair == 1) goto mhair1show;

-		if (@hair == 2) goto mhair2show;

-		if (@hair == 3) goto mhair3show;

-		if (@hair == 4) goto mhair4show;

-		if (@hair == 5) goto mhair5show;

-		if (@hair == 6) goto mhair6show;

-		if (@hair == 7) goto mhair7show;

-		if (@hair == 8) goto mhair8show;

-		if (@hair == 9) goto mhair9show;

-		if (@hair == 10) goto mhair10show;

-		if (@hair == 11) goto mhair11show;

-		if (@hair == 12) goto mhair12show;

-		if (@hair == 13) goto mhair13show;

-		if (@hair == 14) goto mhair14show;

-		if (@hair == 15) goto mhair15show;

-		if (@hair == 16) goto mhair16show;

-		if (@hair == 17) goto mhair17show;

-		if (@hair == 18) goto mhair18show;

-		if (@hair == 19) goto mhair19show;

-

-mhair1show:

-		cutin "hair_m_01",4;

-	mes "[Veronica]";

-	mes "Oh~ 'Trickdead' style!";

-	mes "It is very neat feature and comfortable.";

-	mes "How do you think? Do you like it?";

-	close;

-mhair2show:

-		cutin "hair_m_02",4;

-	mes "[Veronica]";

-	mes "Oh~'Two-Handed Sword Mastery' style!";

-	mes "It's style is very similar to one of the famous Swordsman.";

-	mes "How do you think? Do you like it?";

-	close;

-mhair3show:

-		cutin "hair_m_03",4;

-	mes "[Veronica]";

-	mes "Oh~'Napalm Beat' style!";

-	mes "It makes feeling there is unknown power...";

-	mes "How do you think? Do you like it?";

-	close;

-mhair4show:

-		cutin "hair_m_04",4;

-	mes "[Veronica]";

-	mes "Oh~'Double Strafe' style!";

-	mes "It will make your mind is very clear.";

-	mes "How do you think? Do you like it?";

-	close;

-mhair5show:

-		cutin "hair_m_05",4;

-	mes "[Veronica]";

-	mes "Oh~'Angelus' style!";

-	mes "It feels calm your reference.";

-	mes "How do you think? Do you like it?";

-	close;

-mhair6show:

-		cutin "hair_m_06",4;

-	mes "[Veronica]";

-	mes "Oh~'Pushcart' style!";

-	mes "This is the style based on motive of string cart..";

-	mes "How do you think? Do you like it?";

-	close;

-mhair7show:

-		cutin "hair_m_07",4;

-	mes "[Veronica]";

-	mes "Oh~'Envenom' style!";

-	mes "It makes feel addicting into something..";

-	mes "How do you think? Do you like it?";

-	close;

-mhair8show:

-		cutin "hair_m_08",4;

-	mes "[Veronica]";

-	mes "Oh~'Bowling Bash' style!";

-	mes "Once people sees it, they will fall for it.";

-	mes "How do you think? Do you like it?";

-	close;

-mhair9show:

-		cutin "hair_m_09",4;

-	mes "[Veronica]";

-	mes "Oh~'Venom Dust' style!";

-	mes "It is the style gives feeling deadly charm.";

-	mes "How do you think? Do you like it?";

-	close;

-mhair10show:

-		cutin "hair_m_10",4;

-	mes "[Veronica]";

-	mes "Oh~'Turn Undead' style!";

-	mes "It gives feeling one attack can make Devils disappear!";

-	mes "How do you think? Do you like it?";

-	close;

-mhair11show:

-		cutin "hair_m_11",4;

-	mes "[Veronica]";

-	mes "Oh~'Dragnology' style!";

-	mes "This is the style bases on motive of mysterious Dragon...";

-	mes "How do you think? Do you like it?";

-	close;

-mhair12show:

-		cutin "hair_m_12",4;

-	mes "[Veronica]";

-	mes "Oh~'Mace Mastery' style!";

-	mes "It looks very hard and attractive.";

-	mes "How do you think? Do you like it?";

-	close;

-mhair13show:

-		cutin "hair_m_13",4;

-	mes "[Veronica]";

-	mes "Oh~'Thunderstorm' style!";

-	mes "It feels hit by Thunderstorm!!";

-	mes "How do you think? Do you like it?";

-	close;

-mhair14show:

-		cutin "hair_m_14",4;

-	mes "[Veronica]";

-	mes "Oh~'Encore' style!";

-	mes "It is the style make people feels like asking you to sing~";

-	mes "How do you think? Do you like it?";

-	close;

-mhair15show:

-		cutin "hair_m_15",4;

-	mes "[Veronica]";

-	mes "Oh~'Grommtooht' style!";

-	mes "It feels like you will be picked by hair!";

-	mes "How do you think? Do you like it?";

-	close;

-mhair16show:

-		cutin "hair_m_16",4;

-	mes "[Veronica]";

-	mes "Oh~'Blitz Beat' style!";

-	mes "It feels it will attack 5 times...?";

-	mes "How do you think? Do you like it?";

-	close;

-mhair17show:

-		cutin "hair_m_17",4;

-	mes "[Veronica]";

-	mes "Oh~'Ore Discovery' style!";

-	mes "It feels like picking up things while walking.";

-	mes "How do you think? Do you like it?";

-	close;

-mhair18show:

-		cutin "hair_m_18",4;

-	mes "[Veronica]";

-	mes "Oh~'Fire Pillar' style!";

-	mes "It has been a great style over the one generation...!";

-	mes "How do you think? Do you like it?";

-	close;

-mhair19show:

-		cutin "hair_m_19",4;

-	mes "[Veronica]";

-	mes "Oh~'Guillotine Fist' style!";

-	mes "It feels like betting all at once!!";

-	mes "How do you think? Do you like it?";

-	close;	

-ShowPicF:

-		if (@hairf == 0) goto hairnothing;

-		if (@hairf == 1) goto fhair1show;

-		if (@hairf == 2) goto fhair2show;

-		if (@hairf == 3) goto fhair3show;

-		if (@hairf == 4) goto fhair4show;

-		if (@hairf == 5) goto fhair5show;

-		if (@hairf == 6) goto fhair6show;

-		if (@hairf == 7) goto fhair7show;

-		if (@hairf == 8) goto fhair8show;

-		if (@hairf == 9) goto fhair9show;

-		if (@hairf == 10) goto fhair10show;

-		if (@hairf == 11) goto fhair11show;

-		if (@hairf == 12) goto fhair12show;

-		if (@hairf == 13) goto fhair13show;

-		if (@hairf == 14) goto fhair14show;

-		if (@hairf == 15) goto fhair15show;

-		if (@hairf == 16) goto fhair16show;

-		if (@hairf == 17) goto fhair17show;

-		if (@hairf == 18) goto fhair18show;

-		if (@hairf == 19) goto fhair19show;

-fhair1show:

-		cutin "hair_f_01",4;

-	mes "[Veronica]";

-	mes "Oh~ 'Trickdead' style!";

-	mes "It is the style people wants to stroke your hair.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair2show:

-		cutin "hair_f_02",4;

-	mes "[Veronica]";

-	mes "Oh~'Bash' style!";

-	mes "It feels unrevealed strong power is hidden inside of....";

-	mes "How do you think? Do you like it?";

-	close;

-fhair3show:

-		cutin "hair_f_03",4;

-	mes "[Veronica]";

-	mes "Oh~'Frost Diver' style!";

-	mes "It feels cold, but also warm....";

-	mes "How do you think? Do you like it?";

-	close;

-fhair4show:

-		cutin "hair_f_04",4;

-	mes "[Veronica]";

-	mes "Oh~'Arrow Shower' style!";

-	mes "It feels very refreshed~";

-	mes "How do you think? Do you like it?";

-	close;

-fhair5show:

-		cutin "hair_f_05",4;

-	mes "[Veronica]";

-	mes "Oh~'Heal' style!";

-	mes "It feels mind in cured.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair6show:

-		cutin "hair_f_06",4;

-	mes "[Veronica]";

-	mes "Oh~'Vending' style!";

-	mes "It seems like making lots of money.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair7show:

-		cutin "hair_f_07",4;

-	mes "[Veronica]";

-	mes "Oh~'Double Strafe' style!";

-	mes "It makes whomever dash twice.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair8show:

-		cutin "hair_f_08",4;

-	mes "[Veronica]";

-	mes "Oh~'Gloria' style!";

-	mes "Its nobleness and holiness moods are great.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair9show:

-		cutin "hair_f_09",4;

-	mes "[Veronica]";

-	mes "Oh~'Increase Sp Recovery' style!";

-	mes "It makes fell like recovering spirit fully.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair10show:

-		cutin "hair_f_10",4;

-	mes "[Veronica]";

-	mes "Oh~'Prepare Potion' style!";

-	mes "It feels a wound is healed already.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair11show:

-		cutin "hair_f_11",4;

-	mes "[Veronica]";

-	mes "Oh~'Grand Cross' style!";

-	mes "It feels like a firm faith.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair12show:

-		cutin "hair_f_12",4;

-	mes "[Veronica]";

-	mes "Oh~'Intimidate' style!";

-	mes "It seems you saw this style somewhere...?";

-	mes "How do you think? Do you like it?";

-	close;

-fhair13show:

-	cutin "hair_f_13",4;

-	mes "[Veronica]";

-	mes "Oh~'Spiritual Sphere Absorption' style!";

-	mes "Its catch people's spirits.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair14show:

-		cutin "hair_f_14",4;

-	mes "[Veronica]";

-	mes "Oh~'Gypsy's Kiss' style!";

-	mes "It makes people think you are very kind to all...";

-	mes "How do you think? Do you like it?";

-	close;

-fhair15show:

-		cutin "hair_f_15",4;

-	mes "[Veronica]";

-	mes "Oh~'Counter Attack' style!";

-	mes "It feels it will kick when someone is near.";

-	mes "How do you think? Do you like it?";

-	close;				

-fhair16show:

-		cutin "hair_f_16",4;

-	mes "[Veronica]";

-	mes "Oh~'Ankle Snare' style!";

-	mes "This is the style hardly moved";

-	mes "How do you think? Do you like it?";

-	close;

-fhair17show:

-		cutin "hair_f_17",4;

-	mes "[Veronica]";

-	mes "Oh~'Hammer Fall' style!";

-	mes "It will make feeling dizzy.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair18show:

-		cutin "hair_f_18",4;

-	mes "[Veronica]";

-	mes "Oh~'Jupiter Thunder' style!";

-	mes "It feels very neat.";

-	mes "How do you think? Do you like it?";

-	close;

-fhair19show:

-		cutin "hair_f_19",4;

-	mes "[Veronica]";

-	mes "Oh~'Whirlwind' style!";

-	mes "It feels very refreshed like wind.";

-	mes "How do you think? Do you like it?";

-	close;

-hairnothing:

-	mes "[Veronica]";

-	mes "Did you find a style you like?";

-	mes "If you want to change your hair style at anytime, I will do my best!!";

-	close;

-hairtohigh:

-	mes "[Veronica]";

-	mes "Sorry, there aren't any Hairstyles with that number.";

-	mes "Please choose a number from 1 to 19.";

-	close;

-Change:

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-

-		set @hairch,0;

-	mes "[Veronica]";

-	mes "Well, then... Please choose Hair Style you like most.";

-	mes "I will do my best";

-	mes "There are 19 different Hair Styles.";

-	mes "Numbers from 1 to 19~";

-	next;

-		if(sex==0) goto iffemale;

-		input @hairchange_in;

-		if (@hairchange_in > 19) goto tohighchange;

-		set @hairch,@hairchange_in;

-		if (@hairch == 1) goto mhair1;

-		if (@hairch == 2) goto mhair2;

-		if (@hairch == 3) goto mhair3;

-		if (@hairch == 4) goto mhair4;

-		if (@hairch == 5) goto mhair5;

-		if (@hairch == 6) goto mhair6;

-		if (@hairch == 7) goto mhair7;

-		if (@hairch == 8) goto mhair8;

-		if (@hairch == 9) goto mhair9;

-		if (@hairch == 10) goto mhair10;

-		if (@hairch == 11) goto mhair11;

-		if (@hairch == 12) goto mhair12;

-		if (@hairch == 13) goto mhair13;

-		if (@hairch == 14) goto mhair14;

-		if (@hairch == 15) goto mhair15;

-		if (@hairch == 16) goto mhair16;

-		if (@hairch == 17) goto mhair17;

-		if (@hairch == 18) goto mhair18;

-		if (@hairch == 19) goto mhair19;

-mhair1:

-		cutin "hair_m_01",4;

-	mes "[Veronica]";

-	mes "This is the (1) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO1;

-	cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,1;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (1) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO1:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;					

-mhair2:

-		cutin "hair_m_02",4;

-	mes "[Veronica]";

-	mes "This is the (2) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yaeh~ I'd love to.",-,"No..I don't like it..",M_NO2;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,2;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (2) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vitis me anytime~ HoHoHo";

-	close;

-M_NO2:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;							

-mhair3:

-		cutin "hair_m_03",4;

-	mes "[Veronica]";

-	mes "This is the (3) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO3;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,3;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (3) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO3:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;						

-mhair4:

-		cutin "hair_m_04",4;

-	mes "[Veronica]";

-	mes "This is the (4) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO4;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,4;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (4) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO4:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair5:

-		cutin "hair_m_05",4;

-	mes "[Veronica]";

-	mes "This is the (5) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO5;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,5;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (5) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO5:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair6:

-		cutin "hair_m_06",4;

-	mes "[Veronica]";

-	mes "This is the (6) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO6;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,6;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (6) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO6:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair7:

-		cutin "hair_m_07",4;

-	mes "[Veronica]";

-	mes "This is the (7) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO7;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,7;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (7) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO7:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair8:

-		cutin "hair_m_08",4;

-	mes "[Veronica]";

-	mes "This is the (8) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO8;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,8;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (8) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO8:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair9:

-		cutin "hair_m_09",4;

-	mes "[Veronica]";

-	mes "This is the (9) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO9;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,9;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (9) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO9:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair10:

-		cutin "hair_m_10",4;

-	mes "[Veronica]";

-	mes "This is the (10) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO10;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,10;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (10) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO10:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair11:

-		cutin "hair_m_11",4;

-	mes "[Veronica]";

-	mes "This is the (11) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO11;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,11;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (11) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO11:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair12:

-		cutin "hair_m_12",4;

-	mes "[Veronica]";

-	mes "This is the (12) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,12;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (12) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO12:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair13:

-		cutin "hair_m_13",4;

-	mes "[Veronica]";

-	mes "This is the (13) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO13;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,13;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (13) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO13:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;	

-mhair14:

-		cutin "hair_m_14",4;

-	mes "[Veronica]";

-	mes "This is the (14) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO14;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,14;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (14) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO14:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;	

-mhair15:

-		cutin "hair_m_15",4;

-	mes "[Veronica]";

-	mes "This is the (15) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO15;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,15;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (15) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO15:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair16:

-		cutin "hair_m_16",4;

-	mes "[Veronica]";

-	mes "This is the (16) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO16;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,16;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (16) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO16:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair17:

-		cutin "hair_m_17",4;

-	mes "[Veronica]";

-	mes "This is the (17) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,17;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (17) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO17:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair18:

-		cutin "hair_m_18",4;

-	mes "[Veronica]";

-	mes "This is the (18) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,18;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (18) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO18:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-mhair19:

-		cutin "hair_m_19",4;

-	mes "[Veronica]";

-	mes "This is the (19) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO19;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,19;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (19) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-M_NO19:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-iffemale:

-		input @hairchange_in;

-		if (@hairchange_in > 19) goto tohighchange;

-		set @hairch,@hairchange_in;

-		if (@hairch == 1) goto fhair1;

-		if (@hairch == 2) goto fhair2;

-		if (@hairch == 3) goto fhair3;

-		if (@hairch == 4) goto fhair4;

-		if (@hairch == 5) goto fhair5;

-		if (@hairch == 6) goto fhair6;

-		if (@hairch == 7) goto fhair7;

-		if (@hairch == 8) goto fhair8;

-		if (@hairch == 9) goto fhair9;

-		if (@hairch == 10) goto fhair10;

-		if (@hairch == 11) goto fhair11;

-		if (@hairch == 12) goto fhair12;

-		if (@hairch == 13) goto fhair13;

-		if (@hairch == 14) goto fhair14;

-		if (@hairch == 15) goto fhair15;

-		if (@hairch == 16) goto fhair16;

-		if (@hairch == 17) goto fhair17;

-		if (@hairch == 18) goto fhair18;

-		if (@hairch == 19) goto fhair19;

-

-fhair1:

-		cutin "hair_f_01",4;

-	mes "[Veronica]";

-	mes "This is the (1) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yaeh~ I'd love to.",-,"No..I don't like it..",F_NO1;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,1;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (1) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO1:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair2:

-		cutin "hair_f_02",4;

-	mes "[Veronica]";

-	mes "This is the (2) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO2;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,2;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (2) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO2:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair3:

-		cutin "hair_f_03",4;

-	mes "[Veronica]";

-	mes "This is the (3) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO3;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,3;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (3) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO3:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair4:

-		cutin "hair_f_04",4;

-	mes "[Veronica]";

-	mes "This is the (4) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO4;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,4;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (4) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO4:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair5:

-		cutin "hair_f_05",4;

-	mes "[Veronica]";

-	mes "This is the (5) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO5;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,5;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (5) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO5:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair6:

-		cutin "hair_f_06",4;

-	mes "[Veronica]";

-	mes "This is the (6) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO6;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,6;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (6) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO6:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair7:

-		cutin "hair_f_07",4;

-	mes "[Veronica]";

-	mes "This is the (7) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO7;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,7;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (7) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO7:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair8:

-		cutin "hair_f_08",4;

-	mes "[Veronica]";

-	mes "This is the (8) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO8;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,8;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (8) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO8:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair9:

-		cutin "hair_f_09",4;

-	mes "[Veronica]";

-	mes "This is the (9) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO9;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,9;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (9) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO9:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair10:

-		cutin "hair_f_10",4;

-	mes "[Veronica]";

-	mes "This is the (10) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO10;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,10;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (10) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO10:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair11:

-		cutin "hair_f_11",4;

-	mes "[Veronica]";

-	mes "This is the (11) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO11;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,11;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (11) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO11:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair12:

-		cutin "hair_f_12",4;

-	mes "[Veronica]";

-	mes "This is the (12) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO12;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,12;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (12) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO12:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair13:

-		cutin "hair_f_13",4;

-	mes "[Veronica]";

-	mes "This is the (13) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO13;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,13;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (13) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO13:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;	

-fhair14:

-		cutin "hair_f_14",4;

-	mes "[Veronica]";

-	mes "This is the (14) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO14;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,14;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (14) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO14:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;	

-fhair15:

-		cutin "hair_f_15",4;

-	mes "[Veronica]";

-	mes "This is the (15) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO15;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,15;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (15) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO15:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair16:

-		cutin "hair_f_16",4;

-	mes "[Veronica]";

-	mes "This is the (16) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO16;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,16;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (16) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO16:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair17:

-		cutin "hair_f_17",4;

-	mes "[Veronica]";

-	mes "This is the (17) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO17;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,17;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (17) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO17:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair18:

-		cutin "hair_f_18",4;

-	mes "[Veronica]";

-	mes "This is the (18) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO18;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,18;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (18) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO18:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-fhair19:

-		cutin "hair_f_19",4;

-	mes "[Veronica]";

-	mes "This is the (19) style.";

-	mes "I will change your Hair with this Again.";

-	mes "Is that OK for you??";

-	next;

-	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO19;

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Now it begins~. Hold still~";

-	mes "If you move, you will have very bad style.";

-	mes "Just trust me on this!!";

-	next;

-	mes "[Veronica]";

-	mes "- Clip clip Clip clip -";

-	mes "- Klit klit Klit klit -";

-	mes "- Snap snap Snap snap -";

-	next;

-		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;

-		set Zeny,Zeny-99800;

-		delitem 973,3;

-		delitem 974,3;

-		delitem 901,100;

-		delitem 1094,100;

-		delitem 1020,100;

-		delitem 1060,100;

-		delitem 7152,100;

-		setlook 1,19;

-	mes "[Veronica]";

-	mes "Wow~ it came out very well~~";

-	mes "I hope you like this (19) style.";

-	mes "If you'd like to have another hair style,";

-	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";

-	close;

-F_NO19:

-		cutin "",255;

-	mes "[Veronica]";

-	mes "Well~ choose again please~";

-	mes "There should be a style you like.";

-	mes "Just remember the number you like the most and tell me.";

-	close;

-tohighchange:

-	mes "[Veronica]";

-	mes "There are no such numbers like that!";

-	mes "Please check your number~";

-	close;

-NOItem:

-	mes "[Veronica]";

-	mes "If you want to change your hairstyle, you need several items.";

-	mes "Since, you need many items....";

-	mes "I think you should write those down.";

-	next;

-	mes "[Veronica]";

-	mes "3 Counteragents,";

-	mes "3 Mixtures,";

-	mes "100 Daenggies,";

-	mes "100 Short Daenggies,";

-	mes "100 Black Hairs,";

-	mes "100 Golden Hairs,";

-	mes "100 Glossy Hair.";

-	next;

-	mes "[Veronica]";

-	mes "And also you need 99,800zeny.";

-	mes "If you gather them all...";

-	mes "I will show you what I can do~!!";

-	mes "HoHoHo.";

-	close;

-Cancel:

-	mes "[Veronica]";

-	mes "Everyone has rights to become beautiful...";

-	mes "I wish you can find your hair style which fits on you well~";

-	mes "I really do~";

-	close;

+//===== Athena Script ========================================
+//= Hair Dresser
+//===== By: ==================================================
+//= [Muad_Dib] 1.0 (The Prometheus Project)
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= Any Athena Version; RO Episode 6+
+//===== Description: =========================================
+//= Allows you to change your hairstyle.
+//===== Additional Comments: =================================
+//= 07/06/05 : Added 1st Version. [Muad_Dib]
+//= Converted to eAthena format by Dr.Evil
+//= Change NPC coords according to 
+//= http://www.nattsumi.com/roquest/miscellaneousquest.html
+//= Fixed typos [Nexon]
+//= TODO: Fix exploits V_V [Lupus]
+//= 1.1 Removed Duplicates [Silent]
+//============================================================
+
+alberta.gat,137,37,6	script	Stylist#01	91,{
+	mes "[Veronica]";
+	mes "Welcome~~Welcome~~";
+	mes "Welcome to the one of the best Hair shop, Veronicas Beauty Saloon!!";
+	mes "HoHoHo";
+	mes "Come here for new hair, right?";
+	mes "How may I help you?";
+	next;
+	menu "Look through the Hair Styles.",Look,"Change Hair Style",Change,"Stop talking.",Cancel;
+Look:
+	set @hair,0;
+	mes "[Veronica]";
+	mes "There are 19 Hair Styles, 1~19!!!";
+	mes "Which number do you want to look at first?";
+	mes "If you want to stop looking, please choose 0.";
+	next;
+		if(sex==0) goto LookF;
+		input @hair_in;
+		if (@hair_in > 19) goto hairtohigh;
+		set @hair,@hair_in;
+	goto ShowPicM;
+	close;
+LookF:
+	set @hairf,0; 
+	input @hairf_in;
+	if (@hairf_in > 19) goto hairtohigh;
+	set @hairf,@hairf_in;
+	goto ShowPicF;
+	close;
+ShowPicM:
+		if (@hair == 0) goto hairnothing;
+		if (@hair == 1) goto mhair1show;
+		if (@hair == 2) goto mhair2show;
+		if (@hair == 3) goto mhair3show;
+		if (@hair == 4) goto mhair4show;
+		if (@hair == 5) goto mhair5show;
+		if (@hair == 6) goto mhair6show;
+		if (@hair == 7) goto mhair7show;
+		if (@hair == 8) goto mhair8show;
+		if (@hair == 9) goto mhair9show;
+		if (@hair == 10) goto mhair10show;
+		if (@hair == 11) goto mhair11show;
+		if (@hair == 12) goto mhair12show;
+		if (@hair == 13) goto mhair13show;
+		if (@hair == 14) goto mhair14show;
+		if (@hair == 15) goto mhair15show;
+		if (@hair == 16) goto mhair16show;
+		if (@hair == 17) goto mhair17show;
+		if (@hair == 18) goto mhair18show;
+		if (@hair == 19) goto mhair19show;
+
+mhair1show:
+		cutin "hair_m_01",4;
+	mes "[Veronica]";
+	mes "Oh~ 'Trickdead' style!";
+	mes "It is very neat feature and comfortable.";
+	mes "How do you think? Do you like it?";
+	close;
+mhair2show:
+		cutin "hair_m_02",4;
+	mes "[Veronica]";
+	mes "Oh~'Two-Handed Sword Mastery' style!";
+	mes "It's style is very similar to one of the famous Swordsman.";
+	mes "How do you think? Do you like it?";
+	close;
+mhair3show:
+		cutin "hair_m_03",4;
+	mes "[Veronica]";
+	mes "Oh~'Napalm Beat' style!";
+	mes "It makes feeling there is unknown power...";
+	mes "How do you think? Do you like it?";
+	close;
+mhair4show:
+		cutin "hair_m_04",4;
+	mes "[Veronica]";
+	mes "Oh~'Double Strafe' style!";
+	mes "It will make your mind is very clear.";
+	mes "How do you think? Do you like it?";
+	close;
+mhair5show:
+		cutin "hair_m_05",4;
+	mes "[Veronica]";
+	mes "Oh~'Angelus' style!";
+	mes "It feels calm your reference.";
+	mes "How do you think? Do you like it?";
+	close;
+mhair6show:
+		cutin "hair_m_06",4;
+	mes "[Veronica]";
+	mes "Oh~'Pushcart' style!";
+	mes "This is the style based on motive of string cart..";
+	mes "How do you think? Do you like it?";
+	close;
+mhair7show:
+		cutin "hair_m_07",4;
+	mes "[Veronica]";
+	mes "Oh~'Envenom' style!";
+	mes "It makes feel addicting into something..";
+	mes "How do you think? Do you like it?";
+	close;
+mhair8show:
+		cutin "hair_m_08",4;
+	mes "[Veronica]";
+	mes "Oh~'Bowling Bash' style!";
+	mes "Once people sees it, they will fall for it.";
+	mes "How do you think? Do you like it?";
+	close;
+mhair9show:
+		cutin "hair_m_09",4;
+	mes "[Veronica]";
+	mes "Oh~'Venom Dust' style!";
+	mes "It is the style gives feeling deadly charm.";
+	mes "How do you think? Do you like it?";
+	close;
+mhair10show:
+		cutin "hair_m_10",4;
+	mes "[Veronica]";
+	mes "Oh~'Turn Undead' style!";
+	mes "It gives feeling one attack can make Devils disappear!";
+	mes "How do you think? Do you like it?";
+	close;
+mhair11show:
+		cutin "hair_m_11",4;
+	mes "[Veronica]";
+	mes "Oh~'Dragnology' style!";
+	mes "This is the style bases on motive of mysterious Dragon...";
+	mes "How do you think? Do you like it?";
+	close;
+mhair12show:
+		cutin "hair_m_12",4;
+	mes "[Veronica]";
+	mes "Oh~'Mace Mastery' style!";
+	mes "It looks very hard and attractive.";
+	mes "How do you think? Do you like it?";
+	close;
+mhair13show:
+		cutin "hair_m_13",4;
+	mes "[Veronica]";
+	mes "Oh~'Thunderstorm' style!";
+	mes "It feels hit by Thunderstorm!!";
+	mes "How do you think? Do you like it?";
+	close;
+mhair14show:
+		cutin "hair_m_14",4;
+	mes "[Veronica]";
+	mes "Oh~'Encore' style!";
+	mes "It is the style make people feels like asking you to sing~";
+	mes "How do you think? Do you like it?";
+	close;
+mhair15show:
+		cutin "hair_m_15",4;
+	mes "[Veronica]";
+	mes "Oh~'Grommtooht' style!";
+	mes "It feels like you will be picked by hair!";
+	mes "How do you think? Do you like it?";
+	close;
+mhair16show:
+		cutin "hair_m_16",4;
+	mes "[Veronica]";
+	mes "Oh~'Blitz Beat' style!";
+	mes "It feels it will attack 5 times...?";
+	mes "How do you think? Do you like it?";
+	close;
+mhair17show:
+		cutin "hair_m_17",4;
+	mes "[Veronica]";
+	mes "Oh~'Ore Discovery' style!";
+	mes "It feels like picking up things while walking.";
+	mes "How do you think? Do you like it?";
+	close;
+mhair18show:
+		cutin "hair_m_18",4;
+	mes "[Veronica]";
+	mes "Oh~'Fire Pillar' style!";
+	mes "It has been a great style over the one generation...!";
+	mes "How do you think? Do you like it?";
+	close;
+mhair19show:
+		cutin "hair_m_19",4;
+	mes "[Veronica]";
+	mes "Oh~'Guillotine Fist' style!";
+	mes "It feels like betting all at once!!";
+	mes "How do you think? Do you like it?";
+	close;	
+ShowPicF:
+		if (@hairf == 0) goto hairnothing;
+		if (@hairf == 1) goto fhair1show;
+		if (@hairf == 2) goto fhair2show;
+		if (@hairf == 3) goto fhair3show;
+		if (@hairf == 4) goto fhair4show;
+		if (@hairf == 5) goto fhair5show;
+		if (@hairf == 6) goto fhair6show;
+		if (@hairf == 7) goto fhair7show;
+		if (@hairf == 8) goto fhair8show;
+		if (@hairf == 9) goto fhair9show;
+		if (@hairf == 10) goto fhair10show;
+		if (@hairf == 11) goto fhair11show;
+		if (@hairf == 12) goto fhair12show;
+		if (@hairf == 13) goto fhair13show;
+		if (@hairf == 14) goto fhair14show;
+		if (@hairf == 15) goto fhair15show;
+		if (@hairf == 16) goto fhair16show;
+		if (@hairf == 17) goto fhair17show;
+		if (@hairf == 18) goto fhair18show;
+		if (@hairf == 19) goto fhair19show;
+fhair1show:
+		cutin "hair_f_01",4;
+	mes "[Veronica]";
+	mes "Oh~ 'Trickdead' style!";
+	mes "It is the style people wants to stroke your hair.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair2show:
+		cutin "hair_f_02",4;
+	mes "[Veronica]";
+	mes "Oh~'Bash' style!";
+	mes "It feels unrevealed strong power is hidden inside of....";
+	mes "How do you think? Do you like it?";
+	close;
+fhair3show:
+		cutin "hair_f_03",4;
+	mes "[Veronica]";
+	mes "Oh~'Frost Diver' style!";
+	mes "It feels cold, but also warm....";
+	mes "How do you think? Do you like it?";
+	close;
+fhair4show:
+		cutin "hair_f_04",4;
+	mes "[Veronica]";
+	mes "Oh~'Arrow Shower' style!";
+	mes "It feels very refreshed~";
+	mes "How do you think? Do you like it?";
+	close;
+fhair5show:
+		cutin "hair_f_05",4;
+	mes "[Veronica]";
+	mes "Oh~'Heal' style!";
+	mes "It feels mind in cured.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair6show:
+		cutin "hair_f_06",4;
+	mes "[Veronica]";
+	mes "Oh~'Vending' style!";
+	mes "It seems like making lots of money.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair7show:
+		cutin "hair_f_07",4;
+	mes "[Veronica]";
+	mes "Oh~'Double Strafe' style!";
+	mes "It makes whomever dash twice.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair8show:
+		cutin "hair_f_08",4;
+	mes "[Veronica]";
+	mes "Oh~'Gloria' style!";
+	mes "Its nobleness and holiness moods are great.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair9show:
+		cutin "hair_f_09",4;
+	mes "[Veronica]";
+	mes "Oh~'Increase Sp Recovery' style!";
+	mes "It makes fell like recovering spirit fully.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair10show:
+		cutin "hair_f_10",4;
+	mes "[Veronica]";
+	mes "Oh~'Prepare Potion' style!";
+	mes "It feels a wound is healed already.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair11show:
+		cutin "hair_f_11",4;
+	mes "[Veronica]";
+	mes "Oh~'Grand Cross' style!";
+	mes "It feels like a firm faith.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair12show:
+		cutin "hair_f_12",4;
+	mes "[Veronica]";
+	mes "Oh~'Intimidate' style!";
+	mes "It seems you saw this style somewhere...?";
+	mes "How do you think? Do you like it?";
+	close;
+fhair13show:
+	cutin "hair_f_13",4;
+	mes "[Veronica]";
+	mes "Oh~'Spiritual Sphere Absorption' style!";
+	mes "Its catch people's spirits.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair14show:
+		cutin "hair_f_14",4;
+	mes "[Veronica]";
+	mes "Oh~'Gypsy's Kiss' style!";
+	mes "It makes people think you are very kind to all...";
+	mes "How do you think? Do you like it?";
+	close;
+fhair15show:
+		cutin "hair_f_15",4;
+	mes "[Veronica]";
+	mes "Oh~'Counter Attack' style!";
+	mes "It feels it will kick when someone is near.";
+	mes "How do you think? Do you like it?";
+	close;				
+fhair16show:
+		cutin "hair_f_16",4;
+	mes "[Veronica]";
+	mes "Oh~'Ankle Snare' style!";
+	mes "This is the style hardly moved";
+	mes "How do you think? Do you like it?";
+	close;
+fhair17show:
+		cutin "hair_f_17",4;
+	mes "[Veronica]";
+	mes "Oh~'Hammer Fall' style!";
+	mes "It will make feeling dizzy.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair18show:
+		cutin "hair_f_18",4;
+	mes "[Veronica]";
+	mes "Oh~'Jupiter Thunder' style!";
+	mes "It feels very neat.";
+	mes "How do you think? Do you like it?";
+	close;
+fhair19show:
+		cutin "hair_f_19",4;
+	mes "[Veronica]";
+	mes "Oh~'Whirlwind' style!";
+	mes "It feels very refreshed like wind.";
+	mes "How do you think? Do you like it?";
+	close;
+hairnothing:
+	mes "[Veronica]";
+	mes "Did you find a style you like?";
+	mes "If you want to change your hair style at anytime, I will do my best!!";
+	close;
+hairtohigh:
+	mes "[Veronica]";
+	mes "Sorry, there aren't any Hairstyles with that number.";
+	mes "Please choose a number from 1 to 19.";
+	close;
+Change:
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+
+		set @hairch,0;
+	mes "[Veronica]";
+	mes "Well, then... Please choose Hair Style you like most.";
+	mes "I will do my best";
+	mes "There are 19 different Hair Styles.";
+	mes "Numbers from 1 to 19~";
+	next;
+		if(sex==0) goto iffemale;
+		input @hairchange_in;
+		if (@hairchange_in > 19) goto tohighchange;
+		set @hairch,@hairchange_in;
+		if (@hairch == 1) goto mhair1;
+		if (@hairch == 2) goto mhair2;
+		if (@hairch == 3) goto mhair3;
+		if (@hairch == 4) goto mhair4;
+		if (@hairch == 5) goto mhair5;
+		if (@hairch == 6) goto mhair6;
+		if (@hairch == 7) goto mhair7;
+		if (@hairch == 8) goto mhair8;
+		if (@hairch == 9) goto mhair9;
+		if (@hairch == 10) goto mhair10;
+		if (@hairch == 11) goto mhair11;
+		if (@hairch == 12) goto mhair12;
+		if (@hairch == 13) goto mhair13;
+		if (@hairch == 14) goto mhair14;
+		if (@hairch == 15) goto mhair15;
+		if (@hairch == 16) goto mhair16;
+		if (@hairch == 17) goto mhair17;
+		if (@hairch == 18) goto mhair18;
+		if (@hairch == 19) goto mhair19;
+mhair1:
+		cutin "hair_m_01",4;
+	mes "[Veronica]";
+	mes "This is the (1) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO1;
+	cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,1;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (1) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO1:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;					
+mhair2:
+		cutin "hair_m_02",4;
+	mes "[Veronica]";
+	mes "This is the (2) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yaeh~ I'd love to.",-,"No..I don't like it..",M_NO2;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,2;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (2) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vitis me anytime~ HoHoHo";
+	close;
+M_NO2:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;							
+mhair3:
+		cutin "hair_m_03",4;
+	mes "[Veronica]";
+	mes "This is the (3) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO3;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,3;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (3) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO3:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;						
+mhair4:
+		cutin "hair_m_04",4;
+	mes "[Veronica]";
+	mes "This is the (4) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO4;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,4;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (4) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO4:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair5:
+		cutin "hair_m_05",4;
+	mes "[Veronica]";
+	mes "This is the (5) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO5;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,5;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (5) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO5:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair6:
+		cutin "hair_m_06",4;
+	mes "[Veronica]";
+	mes "This is the (6) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO6;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,6;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (6) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO6:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair7:
+		cutin "hair_m_07",4;
+	mes "[Veronica]";
+	mes "This is the (7) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO7;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,7;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (7) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO7:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair8:
+		cutin "hair_m_08",4;
+	mes "[Veronica]";
+	mes "This is the (8) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO8;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,8;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (8) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO8:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair9:
+		cutin "hair_m_09",4;
+	mes "[Veronica]";
+	mes "This is the (9) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO9;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,9;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (9) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO9:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair10:
+		cutin "hair_m_10",4;
+	mes "[Veronica]";
+	mes "This is the (10) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO10;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,10;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (10) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO10:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair11:
+		cutin "hair_m_11",4;
+	mes "[Veronica]";
+	mes "This is the (11) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO11;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,11;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (11) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO11:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair12:
+		cutin "hair_m_12",4;
+	mes "[Veronica]";
+	mes "This is the (12) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,12;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (12) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO12:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair13:
+		cutin "hair_m_13",4;
+	mes "[Veronica]";
+	mes "This is the (13) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO13;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,13;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (13) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO13:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;	
+mhair14:
+		cutin "hair_m_14",4;
+	mes "[Veronica]";
+	mes "This is the (14) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO14;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,14;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (14) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO14:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;	
+mhair15:
+		cutin "hair_m_15",4;
+	mes "[Veronica]";
+	mes "This is the (15) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO15;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,15;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (15) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO15:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair16:
+		cutin "hair_m_16",4;
+	mes "[Veronica]";
+	mes "This is the (16) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO16;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,16;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (16) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO16:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair17:
+		cutin "hair_m_17",4;
+	mes "[Veronica]";
+	mes "This is the (17) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,17;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (17) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO17:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair18:
+		cutin "hair_m_18",4;
+	mes "[Veronica]";
+	mes "This is the (18) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,18;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (18) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO18:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+mhair19:
+		cutin "hair_m_19",4;
+	mes "[Veronica]";
+	mes "This is the (19) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO19;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,19;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (19) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+M_NO19:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+iffemale:
+		input @hairchange_in;
+		if (@hairchange_in > 19) goto tohighchange;
+		set @hairch,@hairchange_in;
+		if (@hairch == 1) goto fhair1;
+		if (@hairch == 2) goto fhair2;
+		if (@hairch == 3) goto fhair3;
+		if (@hairch == 4) goto fhair4;
+		if (@hairch == 5) goto fhair5;
+		if (@hairch == 6) goto fhair6;
+		if (@hairch == 7) goto fhair7;
+		if (@hairch == 8) goto fhair8;
+		if (@hairch == 9) goto fhair9;
+		if (@hairch == 10) goto fhair10;
+		if (@hairch == 11) goto fhair11;
+		if (@hairch == 12) goto fhair12;
+		if (@hairch == 13) goto fhair13;
+		if (@hairch == 14) goto fhair14;
+		if (@hairch == 15) goto fhair15;
+		if (@hairch == 16) goto fhair16;
+		if (@hairch == 17) goto fhair17;
+		if (@hairch == 18) goto fhair18;
+		if (@hairch == 19) goto fhair19;
+
+fhair1:
+		cutin "hair_f_01",4;
+	mes "[Veronica]";
+	mes "This is the (1) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yaeh~ I'd love to.",-,"No..I don't like it..",F_NO1;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,1;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (1) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO1:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair2:
+		cutin "hair_f_02",4;
+	mes "[Veronica]";
+	mes "This is the (2) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO2;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,2;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (2) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO2:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair3:
+		cutin "hair_f_03",4;
+	mes "[Veronica]";
+	mes "This is the (3) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO3;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,3;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (3) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO3:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair4:
+		cutin "hair_f_04",4;
+	mes "[Veronica]";
+	mes "This is the (4) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO4;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,4;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (4) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO4:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair5:
+		cutin "hair_f_05",4;
+	mes "[Veronica]";
+	mes "This is the (5) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO5;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,5;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (5) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO5:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair6:
+		cutin "hair_f_06",4;
+	mes "[Veronica]";
+	mes "This is the (6) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO6;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,6;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (6) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO6:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair7:
+		cutin "hair_f_07",4;
+	mes "[Veronica]";
+	mes "This is the (7) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO7;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,7;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (7) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO7:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair8:
+		cutin "hair_f_08",4;
+	mes "[Veronica]";
+	mes "This is the (8) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO8;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,8;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (8) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO8:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair9:
+		cutin "hair_f_09",4;
+	mes "[Veronica]";
+	mes "This is the (9) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO9;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,9;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (9) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO9:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair10:
+		cutin "hair_f_10",4;
+	mes "[Veronica]";
+	mes "This is the (10) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO10;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,10;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (10) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO10:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair11:
+		cutin "hair_f_11",4;
+	mes "[Veronica]";
+	mes "This is the (11) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO11;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,11;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (11) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO11:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair12:
+		cutin "hair_f_12",4;
+	mes "[Veronica]";
+	mes "This is the (12) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO12;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,12;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (12) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO12:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair13:
+		cutin "hair_f_13",4;
+	mes "[Veronica]";
+	mes "This is the (13) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO13;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,13;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (13) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO13:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;	
+fhair14:
+		cutin "hair_f_14",4;
+	mes "[Veronica]";
+	mes "This is the (14) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO14;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,14;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (14) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO14:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;	
+fhair15:
+		cutin "hair_f_15",4;
+	mes "[Veronica]";
+	mes "This is the (15) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO15;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,15;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (15) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO15:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair16:
+		cutin "hair_f_16",4;
+	mes "[Veronica]";
+	mes "This is the (16) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO16;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,16;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (16) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO16:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair17:
+		cutin "hair_f_17",4;
+	mes "[Veronica]";
+	mes "This is the (17) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO17;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,17;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (17) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO17:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair18:
+		cutin "hair_f_18",4;
+	mes "[Veronica]";
+	mes "This is the (18) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO18;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,18;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (18) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO18:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+fhair19:
+		cutin "hair_f_19",4;
+	mes "[Veronica]";
+	mes "This is the (19) style.";
+	mes "I will change your Hair with this Again.";
+	mes "Is that OK for you??";
+	next;
+	menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO19;
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Now it begins~. Hold still~";
+	mes "If you move, you will have very bad style.";
+	mes "Just trust me on this!!";
+	next;
+	mes "[Veronica]";
+	mes "- Clip clip Clip clip -";
+	mes "- Klit klit Klit klit -";
+	mes "- Snap snap Snap snap -";
+	next;
+		if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+		set Zeny,Zeny-99800;
+		delitem 973,3;
+		delitem 974,3;
+		delitem 901,100;
+		delitem 1094,100;
+		delitem 1020,100;
+		delitem 1060,100;
+		delitem 7152,100;
+		setlook 1,19;
+	mes "[Veronica]";
+	mes "Wow~ it came out very well~~";
+	mes "I hope you like this (19) style.";
+	mes "If you'd like to have another hair style,";
+	mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+	close;
+F_NO19:
+		cutin "",255;
+	mes "[Veronica]";
+	mes "Well~ choose again please~";
+	mes "There should be a style you like.";
+	mes "Just remember the number you like the most and tell me.";
+	close;
+tohighchange:
+	mes "[Veronica]";
+	mes "There are no such numbers like that!";
+	mes "Please check your number~";
+	close;
+NOItem:
+	mes "[Veronica]";
+	mes "If you want to change your hairstyle, you need several items.";
+	mes "Since, you need many items....";
+	mes "I think you should write those down.";
+	next;
+	mes "[Veronica]";
+	mes "3 Counteragents,";
+	mes "3 Mixtures,";
+	mes "100 Daenggies,";
+	mes "100 Short Daenggies,";
+	mes "100 Black Hairs,";
+	mes "100 Golden Hairs,";
+	mes "100 Glossy Hair.";
+	next;
+	mes "[Veronica]";
+	mes "And also you need 99,800zeny.";
+	mes "If you gather them all...";
+	mes "I will show you what I can do~!!";
+	mes "HoHoHo.";
+	close;
+Cancel:
+	mes "[Veronica]";
+	mes "Everyone has rights to become beautiful...";
+	mes "I wish you can find your hair style which fits on you well~";
+	mes "I really do~";
+	close;
 }
\ No newline at end of file
diff --git a/npc/merchants/icecream.txt b/npc/merchants/icecream.txt
index 9dcaa6425..ca5f72011 100644
--- a/npc/merchants/icecream.txt
+++ b/npc/merchants/icecream.txt
@@ -1,61 +1,61 @@
-//===== eAthena Script =======================================

-//= Ice Cream Maker

-//===== By: ==================================================

-//= KOOK SWU

-//===== Current Version: =====================================

-//= 1.2

-//===== Compatible With: =====================================

-//= eAthena 1.0

-//===== Description: =========================================

-//= A man makes you ice-cream

-//===== Additional Comments: =================================

-//= 1.1 Optimized, changed overlapping coords in Alberta [Lupus]

-//= 1.2 According to the patch, IceCream seller has been removed from Morocc [Lupus]

-//============================================================

-

-//ALBERTA

-alberta.gat,120,45,2	script	Ice Cream Maker::IceCreamer	85,{

-	mes "[Ice Cream Maker]";

-	mes "Fresh Ice Cream made with snow from Lutie!";

-	mes "Enjoy it now, it won't be on sale for long!";

-	mes "^0000FF100 Zeny^000000 Ice Cream,";

-	mes "Ice Cream!";

-	next;

-	menu "Gimme Ice Cream!",-,"Cancel Trade",L_End;

-	

-		mes "[Ice Cream Maker]";

-		mes "Fresh Ice Cream made with snow from Lutie!";

-		mes "Everyone wants our delicious ice cream, but we have limited amount,";

-		mes "so you can only purchase 5 at a time!!";

-		next;

-		input @input;

-		mes "[Ice Cream Maker]";

-		if(@input<1) goto L_inpC;

-		if(@input>5) goto L_inpM;

-		if(Zeny< @input*100) goto L_NoZ;

-		set Zeny,Zeny-100*@input;

-		getitem 536,@input;

-		mes "Here you go  " +@input+ "  Ice Cream for you.";

-		close;

-		

-		L_inpC:

-			mes "Deal is canceled.";

-			close;

-		L_inpM:

-			mes "Sorry, but you can only buy 5 at a time.";

-			close;

-		L_NoZ:

-			mes "Sorry, but you need more money.";

-			close;

-	L_End:

-		mes "[Ice Cream Maker]";

-		mes "Are you sure you don't want any?";

-		mes "I won't be selling it for long, and once I run out, there won't be anymore!!!";

-		close;

-}

-

-//MORROC FIELD

-moc_fild16.gat,88,304,4	duplicate(IceCreamer)	Ice Cream Maker#2	85

-

-//MORROC

-//morocc.gat,160,144,4	duplicate(IceCreamer)	Ice Cream Maker#3	85

+//===== eAthena Script =======================================
+//= Ice Cream Maker
+//===== By: ==================================================
+//= KOOK SWU
+//===== Current Version: =====================================
+//= 1.2
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= A man makes you ice-cream
+//===== Additional Comments: =================================
+//= 1.1 Optimized, changed overlapping coords in Alberta [Lupus]
+//= 1.2 According to the patch, IceCream seller has been removed from Morocc [Lupus]
+//============================================================
+
+//ALBERTA
+alberta.gat,120,45,2	script	Ice Cream Maker::IceCreamer	85,{
+	mes "[Ice Cream Maker]";
+	mes "Fresh Ice Cream made with snow from Lutie!";
+	mes "Enjoy it now, it won't be on sale for long!";
+	mes "^0000FF100 Zeny^000000 Ice Cream,";
+	mes "Ice Cream!";
+	next;
+	menu "Gimme Ice Cream!",-,"Cancel Trade",L_End;
+	
+		mes "[Ice Cream Maker]";
+		mes "Fresh Ice Cream made with snow from Lutie!";
+		mes "Everyone wants our delicious ice cream, but we have limited amount,";
+		mes "so you can only purchase 5 at a time!!";
+		next;
+		input @input;
+		mes "[Ice Cream Maker]";
+		if(@input<1) goto L_inpC;
+		if(@input>5) goto L_inpM;
+		if(Zeny< @input*100) goto L_NoZ;
+		set Zeny,Zeny-100*@input;
+		getitem 536,@input;
+		mes "Here you go  " +@input+ "  Ice Cream for you.";
+		close;
+		
+		L_inpC:
+			mes "Deal is canceled.";
+			close;
+		L_inpM:
+			mes "Sorry, but you can only buy 5 at a time.";
+			close;
+		L_NoZ:
+			mes "Sorry, but you need more money.";
+			close;
+	L_End:
+		mes "[Ice Cream Maker]";
+		mes "Are you sure you don't want any?";
+		mes "I won't be selling it for long, and once I run out, there won't be anymore!!!";
+		close;
+}
+
+//MORROC FIELD
+moc_fild16.gat,88,304,4	duplicate(IceCreamer)	Ice Cream Maker#2	85
+
+//MORROC
+//morocc.gat,160,144,4	duplicate(IceCreamer)	Ice Cream Maker#3	85
diff --git a/npc/merchants/inn.txt b/npc/merchants/inn.txt
index 1f30e8078..494ed8b14 100644
--- a/npc/merchants/inn.txt
+++ b/npc/merchants/inn.txt
@@ -1,138 +1,138 @@
-//===== eAthena Script ======================================= 

-//= Inn Npcs

-//===== By: ================================================== 

-//= Darkchild (1.1)

-//= Playtester (1.2)

-//===== Current Version: ===================================== 

-//= 1.4

-//===== Compatible With: ===================================== 

-//= eAthena 1.0+

-//===== Description: ========================================= 

-//= Inn Npcs, Save and Heal

-//=====================================================

-//= variables:

-//= arg0 - name of npc

-//= arg1 - name of the inn

-//= arg2 - map to save at

-//= arg3, arg4 - x and y cord. to save at

-//= @cost - cost of renting a room

-//===== Additional Comments: ================================= 

-//= 1.1 Blind Effect By Kobra_k88 (Taken from his old script)

-//= I added it to all of them though [Darkchild]

-//= 1.1a Minor bug fixes and optimizations. Switched from @variables 

-//= to arguments.[kobra_k88]

-//= 1.2 Rewrote inn script [Playtester]

-//= 1.3 Added (finally) Rachel Inn Maid. Official warp

-//=	  and save points[erKURITA]

-//= 1.4 Added Hugel inn [erKurita]

-//============================================================ 

-

-

-//======================== Prontera ===================================

-// West Side Inn -------------------

-prt_in.gat,244,135,2	script	Inn Maid::Sammy	53,{

-

-	callfunc "F_InnMaid","[Sammy]","West Inn","prt_in.gat",238,130;

-	warp "prt_in.gat",237,102;

-}

-// East Side Inn ------------------

-prt_in.gat,61,141,2	script	Inn Maid::Ahlma#01	53,{

-

-	callfunc "F_InnMaid","[Ahlma]","East Inn","prt_in.gat",64,136;

-	warp "prt_in.gat",49,173;

-}

-

-//======================== Alberta ====================================

-// North --------------------------

-alberta_in.gat,32,142,5	script	Inn Maid::Moira	53,{

-

-	callfunc "F_InnMaid","[Moira]","North Inn","alberta_in.gat",26,138;

-	warp "alberta_in.gat",18,188;

-}

-// South -----------------------------

-alberta_in.gat,55,142,8	script	Inn Maid::Tina	53,{

-

-	callfunc "F_InnMaid","[Tina]","South Inn","alberta_in.gat",60,140;

-	warp "alberta_in.gat",68,188;

-}

-

-//====================== Geffen ======================================

-geffen_in.gat,70,64,5	script	Inn Maid::Betty	53,{

-

-	callfunc "F_InnMaid","[Betty]","Geffen Inn","geffen_in.gat",74,60;

-	warp "geffen_in.gat",106,106;

-}

-

-//======================= Payon ======================================

-payon_in01.gat,131,62,5	script	Inn Maid::SunHee	53,{

-

-	callfunc "F_InnMaid","[Sun Hee]","Payon Inn","payon_in01.gat",132,56;

-	warp "payon_in01.gat",140,15;

-}

-

-//======================== Morocc ====================================

-// North East --------------------------

-morocc_in.gat,147,138,5	script	Inn Maid::Suzie	53,{

-

-	callfunc "F_InnMaid","[Suzie]","North East Inn","morocc_in.gat",142,140;

-	warp "morocc_in.gat",174,144;

-}

-// South --------------------------------

-morocc_in.gat,80,100,5	script	Inn Maid::Shala	53,{

-

-	callfunc "F_InnMaid","[Shala]","South Inn","morocc_in.gat",78,95;

-	warp "morocc_in.gat",74,128;

-}

-

-//======================== Rachel ====================================

-ra_in01.gat,376,69,4	script	Inn Keeper	931,{

-

-	callfunc "F_InnMaid","[Annie]","Rachel Inn","ra_in01.gat",375,58;

-	warp "ra_in01.gat",384,128;

-}

-

-//======================== Hugel ====================================

-hu_in01.gat,246,107,3	script	Inn Maid::Receptionist	53,{

-

-	callfunc "F_InnMaid","[Receptionist]","Hugel Inn","hu_in01.gat",263,95;

-	warp "hu_in01",267,5;

-}

-

-//======================= Inn Function ==============================

-function	script	F_InnMaid	{

-	mes getarg(0);

-	mes "Welcome to '" + getarg(1) + "'.";

-	mes "How may I help you?";

-	next;

-	menu "Save",Msave, "Take a Rest -> 5000 zeny",Mrent, "Cancel",Mend;

-

-	Msave:

-		mes getarg(0);

-		mes "Your respawn point";

-		mes "has been saved.";

-		mes "Thank you,";

-		mes "please come again.";

-		savepoint getarg(2),getarg(3),getarg(4);

-		close;

-	Mrent:

-		mes getarg(0);

-		if(Zeny < 5000){

-			mes "I'm sorry, but the service charge";

-			mes "is 5,000 zeny. Please make sure";

-			mes "that you have enough money to check";

-			mes "in next time, okay?";

-			close;

-		}

-		set Zeny,Zeny - 5000;

-		percentheal 100,100;

-		mes "Thank you.";

-		mes "I hope you";

-		mes "enjoy your rest~";

-		close2;

-		return;

-

-	Mend:

-		mes getarg(0);

-		mes "I am waiting for a job to do.";

-		close;

-}

+//===== eAthena Script ======================================= 
+//= Inn Npcs
+//===== By: ================================================== 
+//= Darkchild (1.1)
+//= Playtester (1.2)
+//===== Current Version: ===================================== 
+//= 1.4
+//===== Compatible With: ===================================== 
+//= eAthena 1.0+
+//===== Description: ========================================= 
+//= Inn Npcs, Save and Heal
+//=====================================================
+//= variables:
+//= arg0 - name of npc
+//= arg1 - name of the inn
+//= arg2 - map to save at
+//= arg3, arg4 - x and y cord. to save at
+//= @cost - cost of renting a room
+//===== Additional Comments: ================================= 
+//= 1.1 Blind Effect By Kobra_k88 (Taken from his old script)
+//= I added it to all of them though [Darkchild]
+//= 1.1a Minor bug fixes and optimizations. Switched from @variables 
+//= to arguments.[kobra_k88]
+//= 1.2 Rewrote inn script [Playtester]
+//= 1.3 Added (finally) Rachel Inn Maid. Official warp
+//=	  and save points[erKURITA]
+//= 1.4 Added Hugel inn [erKurita]
+//============================================================ 
+
+
+//======================== Prontera ===================================
+// West Side Inn -------------------
+prt_in.gat,244,135,2	script	Inn Maid::Sammy	53,{
+
+	callfunc "F_InnMaid","[Sammy]","West Inn","prt_in.gat",238,130;
+	warp "prt_in.gat",237,102;
+}
+// East Side Inn ------------------
+prt_in.gat,61,141,2	script	Inn Maid::Ahlma#01	53,{
+
+	callfunc "F_InnMaid","[Ahlma]","East Inn","prt_in.gat",64,136;
+	warp "prt_in.gat",49,173;
+}
+
+//======================== Alberta ====================================
+// North --------------------------
+alberta_in.gat,32,142,5	script	Inn Maid::Moira	53,{
+
+	callfunc "F_InnMaid","[Moira]","North Inn","alberta_in.gat",26,138;
+	warp "alberta_in.gat",18,188;
+}
+// South -----------------------------
+alberta_in.gat,55,142,8	script	Inn Maid::Tina	53,{
+
+	callfunc "F_InnMaid","[Tina]","South Inn","alberta_in.gat",60,140;
+	warp "alberta_in.gat",68,188;
+}
+
+//====================== Geffen ======================================
+geffen_in.gat,70,64,5	script	Inn Maid::Betty	53,{
+
+	callfunc "F_InnMaid","[Betty]","Geffen Inn","geffen_in.gat",74,60;
+	warp "geffen_in.gat",106,106;
+}
+
+//======================= Payon ======================================
+payon_in01.gat,131,62,5	script	Inn Maid::SunHee	53,{
+
+	callfunc "F_InnMaid","[Sun Hee]","Payon Inn","payon_in01.gat",132,56;
+	warp "payon_in01.gat",140,15;
+}
+
+//======================== Morocc ====================================
+// North East --------------------------
+morocc_in.gat,147,138,5	script	Inn Maid::Suzie	53,{
+
+	callfunc "F_InnMaid","[Suzie]","North East Inn","morocc_in.gat",142,140;
+	warp "morocc_in.gat",174,144;
+}
+// South --------------------------------
+morocc_in.gat,80,100,5	script	Inn Maid::Shala	53,{
+
+	callfunc "F_InnMaid","[Shala]","South Inn","morocc_in.gat",78,95;
+	warp "morocc_in.gat",74,128;
+}
+
+//======================== Rachel ====================================
+ra_in01.gat,376,69,4	script	Inn Keeper	931,{
+
+	callfunc "F_InnMaid","[Annie]","Rachel Inn","ra_in01.gat",375,58;
+	warp "ra_in01.gat",384,128;
+}
+
+//======================== Hugel ====================================
+hu_in01.gat,246,107,3	script	Inn Maid::Receptionist	53,{
+
+	callfunc "F_InnMaid","[Receptionist]","Hugel Inn","hu_in01.gat",263,95;
+	warp "hu_in01",267,5;
+}
+
+//======================= Inn Function ==============================
+function	script	F_InnMaid	{
+	mes getarg(0);
+	mes "Welcome to '" + getarg(1) + "'.";
+	mes "How may I help you?";
+	next;
+	menu "Save",Msave, "Take a Rest -> 5000 zeny",Mrent, "Cancel",Mend;
+
+	Msave:
+		mes getarg(0);
+		mes "Your respawn point";
+		mes "has been saved.";
+		mes "Thank you,";
+		mes "please come again.";
+		savepoint getarg(2),getarg(3),getarg(4);
+		close;
+	Mrent:
+		mes getarg(0);
+		if(Zeny < 5000){
+			mes "I'm sorry, but the service charge";
+			mes "is 5,000 zeny. Please make sure";
+			mes "that you have enough money to check";
+			mes "in next time, okay?";
+			close;
+		}
+		set Zeny,Zeny - 5000;
+		percentheal 100,100;
+		mes "Thank you.";
+		mes "I hope you";
+		mes "enjoy your rest~";
+		close2;
+		return;
+
+	Mend:
+		mes getarg(0);
+		mes "I am waiting for a job to do.";
+		close;
+}
diff --git a/npc/merchants/kunai_maker.txt b/npc/merchants/kunai_maker.txt
index f836befdf..9e1d3459c 100644
--- a/npc/merchants/kunai_maker.txt
+++ b/npc/merchants/kunai_maker.txt
@@ -1,97 +1,97 @@
-//===== eAthena Script =======================================

-//= Kunai "Trader" @ que_ng.gat

-//===== By: ==================================================

-//= erKURITA

-//===== Current Version: =====================================

-//= 1.0

-//===== Compatible With: =====================================

-//= eAthena 1.0

-//===== Description: =========================================

-//= NPC that trades you a few shurikens + ninja stones for 

-//= elemental kunais.

-//===== Additional Comments: =================================

-//= 1.0 Added the npc. It uses a function that sends the item 

-//=	  id of the 2 required items plus the amount. Can trade

-//= 	  up to 500 units (5,000 kunais) at once. [erKURITA]

-//============================================================

-que_ng.gat,72,29,3	script	Kunai Seller	83,{

-mes "[Jin]";

-mes "Hi, I sell elemental enchanted kunais. I'll trade you some elemental stones and one kind of shuriken for a determined elemental Kunai";

-next;

-mes "[Jin]";

-mes "What would you like to trade some? It's free";

-switch(select("10 Poison Kunais:10 Icycle Kunais:10 Rough Wind Kunais:10 Black Soil Kunai:10 Explosion Kunai:Nothing at the Moment")) {

-//Callfunc usage: callfunc "Kunai_Trade",itemreqid1,itemreqct1,itemreqid2,itemreqct2,itemidtrade;

-	case 1:

-		callfunc "Kunai_Trade",13250,20,7524,1,13259;

-		goto L_Bye;

-	case 2:

-		callfunc "Kunai_Trade",13251,8,7522,2,13255;

-		goto L_Bye;

-	case 3:

-		callfunc "Kunai_Trade",13252,4,7523,2,13257;

-		goto L_Bye;

-	case 4:

-		callfunc "Kunai_Trade",13253,2,7524,1,13256;

-		goto L_Bye;

-	case 5:

-		callfunc "Kunai_Trade",13254,1,7521,2,13258;

-		goto L_Bye;

-	case 6:

-		goto L_Bye;

-	}

-L_Bye:

-	next;

-	mes "[Jin]";

-	mes "Good bye and hope to see you again then";

-	close;

-}

-

-function	script	Kunai_Trade	{

-	next;

-	mes "[Jin]";

-	if (MaxWeight*50/100 < Weight) {

-		if (MaxWeight*90/100 < Weight) {

-			mes "Sorry but you have more than 90% weight. Your kunais might drop. I can't give you anything.";

-			return;

-		}

-		mes "You have 50% or more weight, do you still want to continue?";

-		menu "Yes",-,"No, thanks",L_Return;

-	}

-

-	mes "Would you like to trade my 10 "+getitemname(getarg(4))+" for your "+getarg(1)+" "+getitemname(getarg(0))+" and "+getarg(3)+" "+getitemname(getarg(2))+" ?";

-	switch(select("Yes:I'll think about it")) {

-		case 1:

-			next; 

-			mes "[Jin]";

-			if (countitem(getarg(0)) < getarg(1) || countitem(getarg(2)) < getarg(3)) {

-				mes "Sorry but you're missing one of the required items. Please get them";

-				close;

-			} else

-			mes "How many do you want to trade? I can only trade you ^FF0000500^000000 units at once.";

-			mes "^00FF001 Unit^000000 ^FF0000=^000000 ^0000FF10 Kunais^000000 of your desire";

-			input @trade;

-			next;

-			mes "[Jin]";

-			if (@trade > 500) {

-				mes "Sorry, but I told you I could only trade you 500 units at once. Try again";

-				close;

-			} else if (@trade < 1) {

-				mes "Sorry, but 1 unit is the minimun I can trade. Try again please.";

-				close;

-			} else if ((countitem(getarg(0)) < @trade*getarg(1)) || (countitem(getarg(2)) < @trade*getarg(3))) {

- 				mes "Sorry, but you don't have enough items to trade "+@trade+" unit(s). Get more please";

-				close;

-			} else

-			mes "Here you go, enjoy them";

-			delitem getarg(0),getarg(1)*@trade;

-			delitem getarg(2),getarg(3)*@trade;

-			getitem getarg(4),10*@trade;

-			next;

-			return;

-		case 2:

-			return;

-		}

-L_Return:

-	return;

-}

+//===== eAthena Script =======================================
+//= Kunai "Trader" @ que_ng.gat
+//===== By: ==================================================
+//= erKURITA
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= NPC that trades you a few shurikens + ninja stones for 
+//= elemental kunais.
+//===== Additional Comments: =================================
+//= 1.0 Added the npc. It uses a function that sends the item 
+//=	  id of the 2 required items plus the amount. Can trade
+//= 	  up to 500 units (5,000 kunais) at once. [erKURITA]
+//============================================================
+que_ng.gat,72,29,3	script	Kunai Seller	83,{
+mes "[Jin]";
+mes "Hi, I sell elemental enchanted kunais. I'll trade you some elemental stones and one kind of shuriken for a determined elemental Kunai";
+next;
+mes "[Jin]";
+mes "What would you like to trade some? It's free";
+switch(select("10 Poison Kunais:10 Icycle Kunais:10 Rough Wind Kunais:10 Black Soil Kunai:10 Explosion Kunai:Nothing at the Moment")) {
+//Callfunc usage: callfunc "Kunai_Trade",itemreqid1,itemreqct1,itemreqid2,itemreqct2,itemidtrade;
+	case 1:
+		callfunc "Kunai_Trade",13250,20,7524,1,13259;
+		goto L_Bye;
+	case 2:
+		callfunc "Kunai_Trade",13251,8,7522,2,13255;
+		goto L_Bye;
+	case 3:
+		callfunc "Kunai_Trade",13252,4,7523,2,13257;
+		goto L_Bye;
+	case 4:
+		callfunc "Kunai_Trade",13253,2,7524,1,13256;
+		goto L_Bye;
+	case 5:
+		callfunc "Kunai_Trade",13254,1,7521,2,13258;
+		goto L_Bye;
+	case 6:
+		goto L_Bye;
+	}
+L_Bye:
+	next;
+	mes "[Jin]";
+	mes "Good bye and hope to see you again then";
+	close;
+}
+
+function	script	Kunai_Trade	{
+	next;
+	mes "[Jin]";
+	if (MaxWeight*50/100 < Weight) {
+		if (MaxWeight*90/100 < Weight) {
+			mes "Sorry but you have more than 90% weight. Your kunais might drop. I can't give you anything.";
+			return;
+		}
+		mes "You have 50% or more weight, do you still want to continue?";
+		menu "Yes",-,"No, thanks",L_Return;
+	}
+
+	mes "Would you like to trade my 10 "+getitemname(getarg(4))+" for your "+getarg(1)+" "+getitemname(getarg(0))+" and "+getarg(3)+" "+getitemname(getarg(2))+" ?";
+	switch(select("Yes:I'll think about it")) {
+		case 1:
+			next; 
+			mes "[Jin]";
+			if (countitem(getarg(0)) < getarg(1) || countitem(getarg(2)) < getarg(3)) {
+				mes "Sorry but you're missing one of the required items. Please get them";
+				close;
+			} else
+			mes "How many do you want to trade? I can only trade you ^FF0000500^000000 units at once.";
+			mes "^00FF001 Unit^000000 ^FF0000=^000000 ^0000FF10 Kunais^000000 of your desire";
+			input @trade;
+			next;
+			mes "[Jin]";
+			if (@trade > 500) {
+				mes "Sorry, but I told you I could only trade you 500 units at once. Try again";
+				close;
+			} else if (@trade < 1) {
+				mes "Sorry, but 1 unit is the minimun I can trade. Try again please.";
+				close;
+			} else if ((countitem(getarg(0)) < @trade*getarg(1)) || (countitem(getarg(2)) < @trade*getarg(3))) {
+ 				mes "Sorry, but you don't have enough items to trade "+@trade+" unit(s). Get more please";
+				close;
+			} else
+			mes "Here you go, enjoy them";
+			delitem getarg(0),getarg(1)*@trade;
+			delitem getarg(2),getarg(3)*@trade;
+			getitem getarg(4),10*@trade;
+			next;
+			return;
+		case 2:
+			return;
+		}
+L_Return:
+	return;
+}
diff --git a/npc/merchants/milk_trader.txt b/npc/merchants/milk_trader.txt
index 42be03f63..559c1cc0d 100644
--- a/npc/merchants/milk_trader.txt
+++ b/npc/merchants/milk_trader.txt
@@ -1,61 +1,61 @@
-//===== eAthena Script =======================================

-//= Milk Trader

-//===== By: ==================================================

-//= kobra_k88

-//===== Current Version: =====================================

-//= 1.2a

-//===== Compatible With: =====================================

-//= eAthena 7.15 +

-//===== Description: =========================================

-//= trades bottles for milk

-//===== Additional Comments: =================================

-//= Fully working

-//= 1.1 Negative input bug fixed [Lupus]

-//= 1.2 Raised the price to close zeny exploit [Lupus]

-//= 1.2a Switched to Lupus's "loopless" technique.[kobra_k88]

-//============================================================

-

-

-// Milk Trader -------------------------------------------------------------

-prontera.gat,71,131,7	script	Milk Trader	86,{

-	mes "[Milk Trader]";

-	mes "If you bring me an empty bottle and 20 Zeny, I will exchange it for 1 bottle of milk.";

-	next;

-	menu "-Exchange as many as possible.",M_0, "-Let me set the amount.",M_1, "-Cancel",M_End;

-

-	M_0:

-		set @amount, 1000;

-		if(zeny/20 < @amount) set @amount, zeny/20;

-		if(countitem(713) < @amount) set @amount, countitem(713);

-		if(@amount > 0) goto L_Milk;

-		mes "[Milk Trader]";

-		mes "..... Are you trying to make a fool of me.... ?";

-		close;

-

-	M_1:

-		input @amount;

-		if(@amount < 1 || @amount > 1000) goto M_End;

-		if(countitem(713) < @amount) goto L_NoBottle;

-		if(zeny < (@amount*20)) goto L_NoZeny;

-

-	L_Milk:

-		set zeny, zeny - (@amount*20);

-		delitem 713, @amount;

-		getitem 519, @amount;

-

-	M_End:

-		mes "[Milk Trader]";

-		mes "Come back anytime.";

-		close;

-

-	L_NoBottle:

-		mes "[Milk Trader]";

-		mes "Ok, empty bottle please! Empty Bottle!!";

-		mes "... Aww.. you don't have enough...?";

-		close;

-

-	L_NoZeny:

-		mes "[Milk Trader]";

-		mes "You need more zeny.";

-		close;

-}

+//===== eAthena Script =======================================
+//= Milk Trader
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.2a
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= trades bottles for milk
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Negative input bug fixed [Lupus]
+//= 1.2 Raised the price to close zeny exploit [Lupus]
+//= 1.2a Switched to Lupus's "loopless" technique.[kobra_k88]
+//============================================================
+
+
+// Milk Trader -------------------------------------------------------------
+prontera.gat,71,131,7	script	Milk Trader	86,{
+	mes "[Milk Trader]";
+	mes "If you bring me an empty bottle and 20 Zeny, I will exchange it for 1 bottle of milk.";
+	next;
+	menu "-Exchange as many as possible.",M_0, "-Let me set the amount.",M_1, "-Cancel",M_End;
+
+	M_0:
+		set @amount, 1000;
+		if(zeny/20 < @amount) set @amount, zeny/20;
+		if(countitem(713) < @amount) set @amount, countitem(713);
+		if(@amount > 0) goto L_Milk;
+		mes "[Milk Trader]";
+		mes "..... Are you trying to make a fool of me.... ?";
+		close;
+
+	M_1:
+		input @amount;
+		if(@amount < 1 || @amount > 1000) goto M_End;
+		if(countitem(713) < @amount) goto L_NoBottle;
+		if(zeny < (@amount*20)) goto L_NoZeny;
+
+	L_Milk:
+		set zeny, zeny - (@amount*20);
+		delitem 713, @amount;
+		getitem 519, @amount;
+
+	M_End:
+		mes "[Milk Trader]";
+		mes "Come back anytime.";
+		close;
+
+	L_NoBottle:
+		mes "[Milk Trader]";
+		mes "Ok, empty bottle please! Empty Bottle!!";
+		mes "... Aww.. you don't have enough...?";
+		close;
+
+	L_NoZeny:
+		mes "[Milk Trader]";
+		mes "You need more zeny.";
+		close;
+}
diff --git a/npc/merchants/novice_exchange.txt b/npc/merchants/novice_exchange.txt
index 6c2dda72b..a0e6535b2 100644
--- a/npc/merchants/novice_exchange.txt
+++ b/npc/merchants/novice_exchange.txt
@@ -1,159 +1,159 @@
-//===== eAthena Script ========================================

-//= Novice Goods Exchanger

-//===== By: ==================================================

-//= ???, eAthena Team

-//===== Current Version: =====================================

-//= 1.1a

-//===== Compatible With: =====================================

-//= eAthena 1.0+

-//===== Description: =========================================

-//= Exchanges your cheap loot to Red Potions.

-//= Official NPC.

-//===== Additional Comments: =================================

-//= 1.1 Made it as a function. U can add your own Merchs [Lupus]

-//= 1.1a Fixed item select [KarLaeda]

-//============================================================

-

-function	script	F_NMerch	{

-	mes "["+getarg(0)+"]";

-	if((Weight*100)/MaxWeight >= 90){

-		mes "You will exceed your weight limit if you exchange for the Red Potions.";

-		close;

-	}

-	mes "Good day!";

-	mes "Do you have any collection items such as "+getitemname(getarg(1))+" or "+getitemname(getarg(3))+"?";

-	if(getarg(5))

-		mes "...how about "+getitemname(getarg(5))+"?..";

-	mes "Oh, yeah, I need those for something.";

-	next;

-	mes "["+getarg(0)+"]";

-	mes "Of course I am not asking you to give those for free!";

-	mes "How about... if I give you 1 Red";

-	mes "Potion for "+getarg(2)+" "+getitemname(getarg(1))+" or "+getarg(4)+" "+getitemname(getarg(3))+"?";

-	if(getarg(5))

-		mes "Or "+getarg(6)+" "+getitemname(getarg(5))+"?";

-	next;

-	switch (select("Sure!:Think you're ripping me off...:No, thanks")) {

-	case 1:

-		mes "["+getarg(0)+"]";

-		mes "So which item do you bring me?";

-		mes ""+getitemname(getarg(1))+"?  "+getitemname(getarg(3))+"?";

-		if(getarg(5))

-			mes "Or "+getitemname(getarg(5))+"?";

-		next;

-		if(getarg(5))

-			set @i,select(""+getitemname(getarg(1))+"",""+getitemname(getarg(3))+"",""+getitemname(getarg(5))+"","Cancel");

-		else

-			set @i,select(""+getitemname(getarg(1))+"",""+getitemname(getarg(3))+"","Cancel");

-		if(@i==4 || (@i==3 && !getarg(5))) {

-			mes "["+getarg(0)+"]";

-			mes "Sure, no problem.";

-			close;

-		}

-		set @item,getarg(@i*2-1);

-		set @amount,getarg(@i*2);

-		set @have,countitem(@item);

-		if(@have < @amount) {

-			mes "["+getarg(0)+"]";

-			mes "Hey, where are all those";

-			mes getitemname(@item)+" you promised?";

-			close;

-		}

-		mes "["+getarg(0)+"]";

-		mes "Okay, let me take a look at the stuff you brought.";

-		next;

-		set @max,@have / @amount;

-		mes "["+getarg(0)+"]";

-		mes "You have total "+@have+" "+getitemname(@item)+"...";

-		mes "I can give you";

-		mes "total "+@max+" Red Potion for those.";

-		next;

-		mes "["+getarg(0)+"]";

-		mes "What do you say? Deal?";

-		next;

-		if(select("Deal.:No deal.")==2) {

-			mes "["+getarg(0)+"]";

-			mes "Bah~ whatever.";

-			mes "Bah!";

-			close;

-		}

-		mes "["+getarg(0)+"]";

-		mes "You know the exact number of Red Potions";

-		mes "you can receive for "+getitemname(@item)+", don't you?";

-		next;

-		mes "["+getarg(0)+"]";

-		mes "You can get Red Potions";

-		mes "from minimum 1 to maximum 100 at once.";

-		mes "If you change your mind, enter '0'";

-		mes "to cancel.";

-		while(1) {

-			next;

-			input @val;

-			if(@val<0 || @val>100) {

-				mes "["+getarg(0)+"]";

-				mes "Uh oh, the number you entered";

-				mes "seemed incorrect.";

-				mes "You'd better check how many Red";

-				mes "Potions you can get.";

-				continue;

-			}

-			break;

-		}

-		mes "["+getarg(0)+"]";

-		if(@val == 0) {

-			mes "What...how the hell did you even";

-			mes "bother to talk to me?";

-			mes "Leave, I don't deal with whimsical";

-			mes "people.";

-			close;

-		}

-		if(@val > @max) {

-			mes "Uh oh, the number you entered";

-			mes "seemed incorrect.";

-			mes "You'd better check how many Red";

-			mes "Potions you can get.";

-			close;

-		}

-		delitem @item,@amount*@val;

-		getitem 501,@val;

-		mes "There you go!";

-		mes "Thanks, it was a good deal.";

-		close;

-	case 2:

-		mes "["+getarg(0)+"]";

-		mes "Did you say I am ripping you off?!";

-		mes "You got to know how ignorant that comment was!";

-		next;

-		mes "["+getarg(0)+"]";

-		mes "When you check the price of each item,";

-		mes "I am doing a losing business.";

-		mes "If you don't want to do then, fine!";

-		close;

-	case 3:

-		mes "["+getarg(0)+"]";

-		mes "Hah, no problem.";

-		mes "Bah!";

-		close;

-	}

-}

-

-prontera.gat,123,102,5	script	Merchant#1	85,{

-	callfunc "F_NMerch","Merchant",935,5,914,10,909,10;

-}

-

-geffen.gat,173,88,5	script	Merchant#2	85,{

-	callfunc "F_NMerch","Merchant",935,5,915,6,909,10;

-}

-

-morocc.gat,180,259,3	script	Merchant#3	85,{

-	callfunc "F_NMerch","Merchant",935,5,916,7,909,10;

-}

-

-aldebaran.gat,152,63,5	script	Merchant#4	85,{

-	callfunc "F_NMerch","Merchant",955,1,916,7,909,10;

-}

-

-payon.gat,200,134,5	script	Merchant#5	85,{

-	//we remove 3rd item, by adding 0,0

-	callfunc "F_NMerch","Merchant",902,6,909,10,0,0;

+//===== eAthena Script ========================================
+//= Novice Goods Exchanger
+//===== By: ==================================================
+//= ???, eAthena Team
+//===== Current Version: =====================================
+//= 1.1a
+//===== Compatible With: =====================================
+//= eAthena 1.0+
+//===== Description: =========================================
+//= Exchanges your cheap loot to Red Potions.
+//= Official NPC.
+//===== Additional Comments: =================================
+//= 1.1 Made it as a function. U can add your own Merchs [Lupus]
+//= 1.1a Fixed item select [KarLaeda]
+//============================================================
+
+function	script	F_NMerch	{
+	mes "["+getarg(0)+"]";
+	if((Weight*100)/MaxWeight >= 90){
+		mes "You will exceed your weight limit if you exchange for the Red Potions.";
+		close;
+	}
+	mes "Good day!";
+	mes "Do you have any collection items such as "+getitemname(getarg(1))+" or "+getitemname(getarg(3))+"?";
+	if(getarg(5))
+		mes "...how about "+getitemname(getarg(5))+"?..";
+	mes "Oh, yeah, I need those for something.";
+	next;
+	mes "["+getarg(0)+"]";
+	mes "Of course I am not asking you to give those for free!";
+	mes "How about... if I give you 1 Red";
+	mes "Potion for "+getarg(2)+" "+getitemname(getarg(1))+" or "+getarg(4)+" "+getitemname(getarg(3))+"?";
+	if(getarg(5))
+		mes "Or "+getarg(6)+" "+getitemname(getarg(5))+"?";
+	next;
+	switch (select("Sure!:Think you're ripping me off...:No, thanks")) {
+	case 1:
+		mes "["+getarg(0)+"]";
+		mes "So which item do you bring me?";
+		mes ""+getitemname(getarg(1))+"?  "+getitemname(getarg(3))+"?";
+		if(getarg(5))
+			mes "Or "+getitemname(getarg(5))+"?";
+		next;
+		if(getarg(5))
+			set @i,select(""+getitemname(getarg(1))+"",""+getitemname(getarg(3))+"",""+getitemname(getarg(5))+"","Cancel");
+		else
+			set @i,select(""+getitemname(getarg(1))+"",""+getitemname(getarg(3))+"","Cancel");
+		if(@i==4 || (@i==3 && !getarg(5))) {
+			mes "["+getarg(0)+"]";
+			mes "Sure, no problem.";
+			close;
+		}
+		set @item,getarg(@i*2-1);
+		set @amount,getarg(@i*2);
+		set @have,countitem(@item);
+		if(@have < @amount) {
+			mes "["+getarg(0)+"]";
+			mes "Hey, where are all those";
+			mes getitemname(@item)+" you promised?";
+			close;
+		}
+		mes "["+getarg(0)+"]";
+		mes "Okay, let me take a look at the stuff you brought.";
+		next;
+		set @max,@have / @amount;
+		mes "["+getarg(0)+"]";
+		mes "You have total "+@have+" "+getitemname(@item)+"...";
+		mes "I can give you";
+		mes "total "+@max+" Red Potion for those.";
+		next;
+		mes "["+getarg(0)+"]";
+		mes "What do you say? Deal?";
+		next;
+		if(select("Deal.:No deal.")==2) {
+			mes "["+getarg(0)+"]";
+			mes "Bah~ whatever.";
+			mes "Bah!";
+			close;
+		}
+		mes "["+getarg(0)+"]";
+		mes "You know the exact number of Red Potions";
+		mes "you can receive for "+getitemname(@item)+", don't you?";
+		next;
+		mes "["+getarg(0)+"]";
+		mes "You can get Red Potions";
+		mes "from minimum 1 to maximum 100 at once.";
+		mes "If you change your mind, enter '0'";
+		mes "to cancel.";
+		while(1) {
+			next;
+			input @val;
+			if(@val<0 || @val>100) {
+				mes "["+getarg(0)+"]";
+				mes "Uh oh, the number you entered";
+				mes "seemed incorrect.";
+				mes "You'd better check how many Red";
+				mes "Potions you can get.";
+				continue;
+			}
+			break;
+		}
+		mes "["+getarg(0)+"]";
+		if(@val == 0) {
+			mes "What...how the hell did you even";
+			mes "bother to talk to me?";
+			mes "Leave, I don't deal with whimsical";
+			mes "people.";
+			close;
+		}
+		if(@val > @max) {
+			mes "Uh oh, the number you entered";
+			mes "seemed incorrect.";
+			mes "You'd better check how many Red";
+			mes "Potions you can get.";
+			close;
+		}
+		delitem @item,@amount*@val;
+		getitem 501,@val;
+		mes "There you go!";
+		mes "Thanks, it was a good deal.";
+		close;
+	case 2:
+		mes "["+getarg(0)+"]";
+		mes "Did you say I am ripping you off?!";
+		mes "You got to know how ignorant that comment was!";
+		next;
+		mes "["+getarg(0)+"]";
+		mes "When you check the price of each item,";
+		mes "I am doing a losing business.";
+		mes "If you don't want to do then, fine!";
+		close;
+	case 3:
+		mes "["+getarg(0)+"]";
+		mes "Hah, no problem.";
+		mes "Bah!";
+		close;
+	}
+}
+
+prontera.gat,123,102,5	script	Merchant#1	85,{
+	callfunc "F_NMerch","Merchant",935,5,914,10,909,10;
+}
+
+geffen.gat,173,88,5	script	Merchant#2	85,{
+	callfunc "F_NMerch","Merchant",935,5,915,6,909,10;
+}
+
+morocc.gat,180,259,3	script	Merchant#3	85,{
+	callfunc "F_NMerch","Merchant",935,5,916,7,909,10;
+}
+
+aldebaran.gat,152,63,5	script	Merchant#4	85,{
+	callfunc "F_NMerch","Merchant",955,1,916,7,909,10;
+}
+
+payon.gat,200,134,5	script	Merchant#5	85,{
+	//we remove 3rd item, by adding 0,0
+	callfunc "F_NMerch","Merchant",902,6,909,10,0,0;
 }
\ No newline at end of file
diff --git a/npc/merchants/quivers.txt b/npc/merchants/quivers.txt
index f54aa884d..0d7eba5b3 100644
--- a/npc/merchants/quivers.txt
+++ b/npc/merchants/quivers.txt
@@ -1,151 +1,151 @@
-//===== eAthena Script ========================================

-//= Arrow Quiver Event

-//===== By: ==================================================

-//= Muad_Dib (Prometheus Project)

-//===== Current Version: =====================================

-//= 1.1

-//===== Compatible With: =====================================

-//= eAthena 1.0+

-//===== Description: =========================================

-//= Turns arrows into Arrow Quivers.

-//===== Additional Comments: =================================

-//= 07/06/05 : Added 1st Version. [Muad_Dib]

-//= Converted to eAthena format by Dr.Evil

-//= added prize to quest - 500 Zeny

-//= Fixed a few spelling errors. [Nexon]

-//= 1.1 Added Holy Arrow Quivers [Playtester]

-//============================================================

-

-

-payon_in01.gat,5,134,4	script	Inventor Jaax	89,{

-	mes "[Inventor Jaax]";

-	mes "My name is Jaax.";

-	mes "Without ego, I can";

-	mes "sat that I am perhaps the";

-	mes "^996600greatest inventor of our time.^000000";

-	next;

-	mes "[Inventor Jaax]";

-	mes "This time, I've";

-	mes "created something";

-	mes "truly extraordinary. I call them...";

-	mes "^996600Magic Quivers^000000 !! This will be";

-	mes "remembered in history as an";

-	mes "arrow revolution!";

-	next;

-	mes "[Inventor Jaax]";

-	mes "I've studied magic and quivers for";

-	mes "years, working night and day until";

-	mes "I finally figured out how to condense";

-	mes "arrows with magic! With magic";

-	mes "quivers, you'll be carrying more";

-	mes "arrows, but with less weight!";

-	next;

-	mes "[Inventor Jaax]";

-	mes "Would you like to try using one of";

-	mes "my arrow quivers? I have no doubt";

-	mes "that someone like you can";

-	mes "appreciate my genius!";

-	next;

-

-	menu "Arrow Quiver",-,"Iron Arrow Quiver",Q2,"Steel Arrow Quiver",Q3,"Oridecon Arrow Quiver",Q4,"Fire Arrow Quiver",Q5,"Silver Arrow Quiver",Q6,"Wind Arrow Quiver",Q7,"Stone Arrow Quiver",Q8,"Crystal Arrow Quiver",Q9,"Shadow Arrow Quiver",Q10,"Immaterial Arrow Quiver",Q11,"Rusty Arrow Quiver",Q12,"Holy Arrow Quiver",Q13;

-

-// Arguments

-//===========

-		callsub sF_Make, 1750,500,12004, "Arrow Quiver";

-			goto M_Menu;

-Q2:

-		callsub sF_Make, 1770,500,12005, "Iron Arrow Quiver";

-			goto M_Menu;

-Q3:

-		callsub sF_Make, 1753,500,12006, "Steel Arrow Quiver";

-			goto M_Menu;

-Q4:

-		callsub sF_Make, 1765,500,12007, "Oridecon Arrow Quiver";

-			goto M_Menu;

-Q5:

-		callsub sF_Make, 1752,500,12008, "Fire Arrow Quiver";

-			goto M_Menu;

-Q6:

-		callsub sF_Make, 1751,500,12009, "Silver Arrow Quiver";

-			goto M_Menu;

-Q7:

-		callsub sF_Make, 1755,500,12010, "Wind Arrow Quiver";

-			goto M_Menu;

-Q8:

-		callsub sF_Make, 1756,500,12011, "Stone Arrow Quiver";

-			goto M_Menu;

-Q9:

-		callsub sF_Make, 1754,500,12012, "Crystal Arrow Quiver";

-			goto M_Menu;

-Q10:

-		callsub sF_Make, 1767,500,12013, "Shadow Arrow Quiver";

-			goto M_Menu;

-Q11:

-		callsub sF_Make, 1757,500,12014, "Immaterial Arrow Quiver";

-			goto M_Menu;

-Q12:

-		callsub sF_Make, 1762,500,12015, "Rusty Arrow Quiver";

-			goto M_Menu;

-Q13:

-		callsub sF_Make, 1772,500,12183, "Holy Arrow Quiver";

-			goto M_Menu;

-

-// Subfunction for making quivers

-//================================

-sF_Make:

-	set @arrownum,500;

-	if(countitem(getarg(0)) < @arrownum) goto L_NdArrows;

-	if(Zeny < getarg(1)) goto L_NdZeny;

-	mes "[Inventor Jaax]";

-	mes "What do you want me to do?";

-	next;

-	menu "Give me as many as you can.",-, "I want to set the amount.",sM_0b, "Nevermind",M_End;

-

-		set @amount,100;

-		if(zeny/getarg(1) < @amount) set @amount, zeny/getarg(1);

-		if(countitem(getarg(0))/@arrownum < @amount) set @amount, countitem(getarg(0))/@arrownum;

-		if(@amount > 0) goto L_End;

-		mes "[Inventor Jaax]";

-		mes "Jeez... you don't even have the right items.....";

-		close;

-		

-	sM_0b:

-		input @amount;

-		if(@amount<1 || @amount>100) goto L_BadAmnt;

-		if(countitem(getarg(0))/@arrownum < @amount) goto L_NdArrows;

-		if(Zeny < (getarg(1)*@amount)) goto L_NdZeny;

-

-	L_End:

-		set Zeny, Zeny - (getarg(1)*@amount);

-		delitem getarg(0), (@amount*@arrownum);

-		getitem getarg(2), @amount;

-		mes "[Inventor Jaax]";

-		mes "There you go~!";

-		mes "Here are your " +getarg(3)+ ".";

-		close;

-

-	L_NdArrows:

-		mes "[Inventor Jaax]";

-		mes "Sorry, but you need 500 Arrows and 500 Zeny to make 1 Arrow Quiver.";

-		close;

-		

-	L_NdZeny:

-		mes "[Inventor Jaax]";

-		mes "You don't have enough zeny for that many.";

-		close;

-

-	L_BadAmnt:

-		mes "[Inventor Jaax]";

-		mes "Please choose a number between 1 and 100.";	

-		close;

-

-L_Come:

-	mes "[Inventor Jaax]";

-	mes "Please, come again whenever you want too.";

-	close;

-M_End:

-	mes "[Inventor Jaax]";

-	mes "Sure, no problem.";

-	mes "Come back any time.";

-	close;

+//===== eAthena Script ========================================
+//= Arrow Quiver Event
+//===== By: ==================================================
+//= Muad_Dib (Prometheus Project)
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena 1.0+
+//===== Description: =========================================
+//= Turns arrows into Arrow Quivers.
+//===== Additional Comments: =================================
+//= 07/06/05 : Added 1st Version. [Muad_Dib]
+//= Converted to eAthena format by Dr.Evil
+//= added prize to quest - 500 Zeny
+//= Fixed a few spelling errors. [Nexon]
+//= 1.1 Added Holy Arrow Quivers [Playtester]
+//============================================================
+
+
+payon_in01.gat,5,134,4	script	Inventor Jaax	89,{
+	mes "[Inventor Jaax]";
+	mes "My name is Jaax.";
+	mes "Without ego, I can";
+	mes "sat that I am perhaps the";
+	mes "^996600greatest inventor of our time.^000000";
+	next;
+	mes "[Inventor Jaax]";
+	mes "This time, I've";
+	mes "created something";
+	mes "truly extraordinary. I call them...";
+	mes "^996600Magic Quivers^000000 !! This will be";
+	mes "remembered in history as an";
+	mes "arrow revolution!";
+	next;
+	mes "[Inventor Jaax]";
+	mes "I've studied magic and quivers for";
+	mes "years, working night and day until";
+	mes "I finally figured out how to condense";
+	mes "arrows with magic! With magic";
+	mes "quivers, you'll be carrying more";
+	mes "arrows, but with less weight!";
+	next;
+	mes "[Inventor Jaax]";
+	mes "Would you like to try using one of";
+	mes "my arrow quivers? I have no doubt";
+	mes "that someone like you can";
+	mes "appreciate my genius!";
+	next;
+
+	menu "Arrow Quiver",-,"Iron Arrow Quiver",Q2,"Steel Arrow Quiver",Q3,"Oridecon Arrow Quiver",Q4,"Fire Arrow Quiver",Q5,"Silver Arrow Quiver",Q6,"Wind Arrow Quiver",Q7,"Stone Arrow Quiver",Q8,"Crystal Arrow Quiver",Q9,"Shadow Arrow Quiver",Q10,"Immaterial Arrow Quiver",Q11,"Rusty Arrow Quiver",Q12,"Holy Arrow Quiver",Q13;
+
+// Arguments
+//===========
+		callsub sF_Make, 1750,500,12004, "Arrow Quiver";
+			goto M_Menu;
+Q2:
+		callsub sF_Make, 1770,500,12005, "Iron Arrow Quiver";
+			goto M_Menu;
+Q3:
+		callsub sF_Make, 1753,500,12006, "Steel Arrow Quiver";
+			goto M_Menu;
+Q4:
+		callsub sF_Make, 1765,500,12007, "Oridecon Arrow Quiver";
+			goto M_Menu;
+Q5:
+		callsub sF_Make, 1752,500,12008, "Fire Arrow Quiver";
+			goto M_Menu;
+Q6:
+		callsub sF_Make, 1751,500,12009, "Silver Arrow Quiver";
+			goto M_Menu;
+Q7:
+		callsub sF_Make, 1755,500,12010, "Wind Arrow Quiver";
+			goto M_Menu;
+Q8:
+		callsub sF_Make, 1756,500,12011, "Stone Arrow Quiver";
+			goto M_Menu;
+Q9:
+		callsub sF_Make, 1754,500,12012, "Crystal Arrow Quiver";
+			goto M_Menu;
+Q10:
+		callsub sF_Make, 1767,500,12013, "Shadow Arrow Quiver";
+			goto M_Menu;
+Q11:
+		callsub sF_Make, 1757,500,12014, "Immaterial Arrow Quiver";
+			goto M_Menu;
+Q12:
+		callsub sF_Make, 1762,500,12015, "Rusty Arrow Quiver";
+			goto M_Menu;
+Q13:
+		callsub sF_Make, 1772,500,12183, "Holy Arrow Quiver";
+			goto M_Menu;
+
+// Subfunction for making quivers
+//================================
+sF_Make:
+	set @arrownum,500;
+	if(countitem(getarg(0)) < @arrownum) goto L_NdArrows;
+	if(Zeny < getarg(1)) goto L_NdZeny;
+	mes "[Inventor Jaax]";
+	mes "What do you want me to do?";
+	next;
+	menu "Give me as many as you can.",-, "I want to set the amount.",sM_0b, "Nevermind",M_End;
+
+		set @amount,100;
+		if(zeny/getarg(1) < @amount) set @amount, zeny/getarg(1);
+		if(countitem(getarg(0))/@arrownum < @amount) set @amount, countitem(getarg(0))/@arrownum;
+		if(@amount > 0) goto L_End;
+		mes "[Inventor Jaax]";
+		mes "Jeez... you don't even have the right items.....";
+		close;
+		
+	sM_0b:
+		input @amount;
+		if(@amount<1 || @amount>100) goto L_BadAmnt;
+		if(countitem(getarg(0))/@arrownum < @amount) goto L_NdArrows;
+		if(Zeny < (getarg(1)*@amount)) goto L_NdZeny;
+
+	L_End:
+		set Zeny, Zeny - (getarg(1)*@amount);
+		delitem getarg(0), (@amount*@arrownum);
+		getitem getarg(2), @amount;
+		mes "[Inventor Jaax]";
+		mes "There you go~!";
+		mes "Here are your " +getarg(3)+ ".";
+		close;
+
+	L_NdArrows:
+		mes "[Inventor Jaax]";
+		mes "Sorry, but you need 500 Arrows and 500 Zeny to make 1 Arrow Quiver.";
+		close;
+		
+	L_NdZeny:
+		mes "[Inventor Jaax]";
+		mes "You don't have enough zeny for that many.";
+		close;
+
+	L_BadAmnt:
+		mes "[Inventor Jaax]";
+		mes "Please choose a number between 1 and 100.";	
+		close;
+
+L_Come:
+	mes "[Inventor Jaax]";
+	mes "Please, come again whenever you want too.";
+	close;
+M_End:
+	mes "[Inventor Jaax]";
+	mes "Sure, no problem.";
+	mes "Come back any time.";
+	close;
 }
\ No newline at end of file
diff --git a/npc/merchants/refine.txt b/npc/merchants/refine.txt
index 1ea743dc3..bb15ccb4e 100644
--- a/npc/merchants/refine.txt
+++ b/npc/merchants/refine.txt
@@ -1,821 +1,821 @@
-//===== Freya Script =========================================

-//= Refining NPCs

-//===== By: ==================================================

-//= Syrus22 (1.1) dafide18 (1.4) Skotlex (1.5)

-//===== Current Version: =====================================

-//= 2.1

-//===== Compatible With: =====================================

-//= Any Freya 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 exploit. Need to check sources

-//=        to fully fix bug [Shinigami]

-//=        Fixed repairman prices [shadowlady]

-//=        Fixed bug that skips requirements thanks to sir_loon [massdriller]

-//=        Fixed itemid error thanks to -Vitamin- [massdriller]

-//= 1.4 - check again item in refining procedure to avoid

-//=        hacker that can change item [dafide18]

-//= 1.5 - Fixed crashing due to badly used callfunc's [Skotlex]

-//        Lupus, don't rollback this important fix again! >.<

-//= 1.5a - Corrected an unneeded callfunc, fixed the anti-bot 

-//=       exploit ruining the safe refine loop. [Skotlex]

-//= 1.5b - Fixed Spelling mistakes. [Nexon] 

-//= 1.6	- Replaced all breaks for ends as per the new script engine [Skotlex]

-//= 1.7 - Added Einbroch Refiners (Custom names ^^;) and a duplicated BS Shop. [Poki#3]

-//= 1.8 - Added Lighthalzen Refiners (Custom names again ^^;) [Poki#3]

-//= 1.8a - Fixed wrong indication thanks to NeoSaro [Lupus]

-//= 1.9 - Rewrote repairman, removed the Steel from repair cost [DracoRPG]

-//= 2.0 - Fixed missed equppment presence check. Thx2 Coltaro [Lupus]

-//= 2.0a - Added weight checks thanks to Neouni [Playtester]

-//= 2.0b - Fixed the names of Lighthalzen and Einbroch refiners thanks to Maud_Dib [Kargha]

-//= 2.1 - Removed Duplicates [Silent]

-//============================================================

-

-

-//=========================================================

-// Christopher: Geffen Blacksmith

-//=========================================================

-geffen_in.gat,110,172,2	script	Christopher#1::Chris	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;

-			if(checkweight(986,1) == 0 ) goto L_OverWeight;

-			set Zeny, Zeny - 30000;

-			getitem 986,1;

-			mes "[Christopher Guillenrow]";

-			mes "This is the cheapest one but it's very efficient.";

-			next;

-			goto L_Thanks;

-		sM_OriAnvil:

-			if(Zeny < 120000) goto L_NoZeny;

-			if(checkweight(987,1) == 0 ) goto L_OverWeight;

-			set Zeny, Zeny - 120000;

-			getitem 987,1;

-			mes "[Christopher Guillenrow]";

-			mes "Ah! Ye have a good eye for anvils. This here is the proper anvil for a Blacksmith.";

-			next;

-			goto L_Thanks;

-		sM_GolAnvil:

-			if(Zeny < 300000) goto L_NoZeny;

-			if(checkweight(988,1) == 0 ) goto L_OverWeight;

-			set Zeny, Zeny - 300000;

-			mes "[Christopher Guillenrow]";

-			mes "This is the best anvil in my workshop! With this ye'll be the best Blasksmith in no time.";

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

-			if(checkweight(612,@input) == 0 ) goto L_OverWeight;

-			set Zeny, Zeny - (150 * @input);

-			getitem 612, @input;

-			goto L_Thanks;

-		sM_IrHam:

-			if(Zeny < 1000) goto L_NoZeny;

-			if(checkweight(613,1) == 0 ) goto L_OverWeight;

-			set Zeny, Zeny - 1000;

-			getitem 613,1;

-			goto L_Thanks;

-		sM_GldHam:

-			if(Zeny < 3000) goto L_NoZeny;

-			if(checkweight(614,1) == 0 ) goto L_OverWeight;

-			set Zeny, Zeny - 3000;

-			getitem 614,1;

-			goto L_Thanks;

-		sM_OriHam:

-			if(Zeny < 5000) goto L_NoZeny;

-			if(checkweight(615,1) == 0 ) goto L_OverWeight;

-			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_OverWeight:

-		mes "[Christopher Guillenrow]";

-		mes "You don't seem to have enough strength to carry this.";

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

-}

-

-ein_in01,38,29,6	duplicate(Chris)	Christopher#2	63

-

-//=====================================================================================

-// Weapon/Armor Refiners

-//=====================================================================================

-prt_in.gat,63,60,4	script	Hollengrhen	85,{

-	set @name$,"Hollengrhen";

-	callfunc "refinemain";

-	end;

-}

-morocc_in.gat,73,38,4	script	Aragham	99,{

-	set @name$,"Aragham";

-	callfunc "refinemain";

-	end;

-}

-payon.gat,144,173,4	script	Antonio	88,{

-	set @name$,"Antonio";

-	callfunc "refinemain";

-	end;

-}

-alberta_in.gat,28,58,4	script	Fredrik	85,{

-	set @name$,"Fredrik";

-	callfunc "refinemain";

-	end;

-}

-yuno_in01.gat,164,26,6	script	Disturb	88,{

-	set @name$,"Disturb";

-	callfunc "refinemain";

-	end;

-}

-ein_in01.gat,24,87,6	script	Manthasman	826,{

-	set @name$,"Manthasman Pruhag";

-	callfunc "refinemain";

-	end;

-}

-lhz_in02.gat,282,20,7	script	Fulerr	869,{

-	set @name$,"Fulerr";

-	callfunc "refinemain";

-	end;

-}

-

-//============================================================

-//= 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 definitely 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 equipped 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 equipped 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 already at its maximum level and can no longer be refined.";

-	close;

-

-//Refine Armor

-REFINE0:

-	set @refineitemid, getequipid(@part); // save id of the item

-	set @refinerycnt, getequiprefinerycnt(@part); //save refinery count

-	if(getequipweaponlv(@part) > 0) goto REFINE1;

-	set @matname$,"Elunium";

-	set @material,985;

-	set @price,2000;

-	set @safe,4;

-	if(@features == 1) goto L_refinefeatures;

-	goto L_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) goto L_refinefeatures;

-	goto L_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) goto L_refinefeatures;

-	goto L_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) goto L_refinefeatures;

-	goto L_refinenormal;

-//Refine Level 4 Weapon

-REFINE4:

-	set @matname$,"Oridecon";

-	set @material,984;

-	set @price,20000;

-	set @safe,4;

-	if(@features == 1) goto L_refinefeatures;

-	goto L_refinenormal;

-

-L_refinenormal:

-	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 guarantee my work...";

-		next;

-		menu "Yes",-,"No",Lcancel1;

-

-		L_Sub:

-			if ((countitem(@material) < 1) || (Zeny < @price)) goto Lcancel2;

-			set Zeny,Zeny-@price;

-			delitem @material,1;

-

-Lrefine:

-	if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (not changed, why?)

-	if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item

-	if (getequiprefinerycnt(@part) != @refinerycnt) goto LNoFake; // hacker has changed the item

-	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 process ^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;

-

-LNoItem:

-	mes "[" + @name$ + "]";

-	mes "Look here... you don't have any Items on...";

-	close;

-

-LNoFake:

-	mes "[" + @name$ + "]";

-	mes "Clan... No, but Did you imagine I could be so stupid !?!";

-	mes "You have changed it...";

-	mes "Go out before I stun you with my Hammer!!!";

-	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 awful 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 ========================

-L_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;

-	set Zeny,Zeny - @fullprice;

-	delitem @material,@refinecnt;

-	goto L_refinesafe;

-

-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 " + @fullprice + " Zeny... Is that ok?";

-	next;

-	menu "Yes...",-,"No...",Lcancel;

-		if(@refinecheck > @safe) goto Lwarn;

-		if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;

-		set Zeny,Zeny - @fullprice;

-		delitem @material,@refinecnt;

-		goto L_refinenumber;

-		end;

-

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

-				set Zeny,Zeny - @fullprice;

-				delitem @material,@refinecnt;

-				goto L_refinenumber;

-

-Lcancel3:

-	mes "[" + @name$ + "]";

-	mes "I can't refine this item that many times.";

-	close;

-

-// SubFunction: Safe Refine ---------------------

-L_refinesafe:

-	if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (no changed, why?)

-	if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item

-	if (getequippercentrefinery(@part) < 100) goto LNoFake; // hacker has changed the item (it is not safe anymore)

-	mes "Clang, clang!!!";

-	successrefitem @part;

-	emotion 21;

-	set @refinecnt,@refinecnt - 1;

-	next;

-	if(@refinecnt == 0) goto Lend;

-	goto L_refinesafe;

-

-	Lend:

-		mes "[" + @name$ + "]";

-		mes "All finished... Come again soon.";

-		close;

-		

-// SubFunction: Refine 

-L_refinenumber:

-	if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (no changed, why?)

-	if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item

-	mes "Clang, clang!!!";

-	if (getequippercentrefinery(@part)<=rand(100)) goto Lfail_number;

-	successrefitem @part;

-	emotion 21;

-	set @refinecnt,@refinecnt - 1;

-	next;

-	if(@refinecnt == 0) goto Lend;

-	goto L_refinenumber;

-

-	Lfail_number:

-		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";

-	end;

-}

-payon.gat,145,178,4	script	Begnahd	88,{

-	set @name$,"Begnahd";

-	callfunc "phramain";

-	end;

-}

-morocc_in.gat,65,37,4	script	Sade	99,{

-	set @name$,"Sade";

-	callfunc "phramain";

-	end;

-}

-alberta_in.gat,18,59,5	script	Kahlamanlith	86,{

-	set @name$,"Kahlamanlith";

-	callfunc "phramain";

-	end;

-}

-yuno_in01.gat,171,26,6	script	Dillemat	88,{

-	set @name$,"Dillemat";

-	callfunc "phramain";

-	end;

-}

-ein_in01.gat,15,87,7	script	Tirehaus	86,{

-	set @name$,"Tirehaus";

-	callfunc "phramain";

-	end;

-}

-lhz_in02.gat,278,24,3	script	Krugg	86,{

-	set @name$,"Krugg";

-	callfunc "phramain";

-	end;

-}

-

-//============================================================

-//= 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,"Emvertacon - 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(@itemid,@ammount) == 0) goto L_WEIGHT;

-	set Zeny,Zeny-@value*@ammount;

-	getitem @itemid,@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";

-	end;

-}

-payon.gat,137,178,4	script	Hakhim	88,{

-	set @name$,"Hakhim";

-	callfunc "orimain";

-	end;

-}

-morocc_in.gat,72,32,4	script	Abdul	99,{

-	set @name$,"Abdul";

-	callfunc "orimain";

-	end;

-}

-alberta_in.gat,21,63,5	script	Xenophon	84,{

-	set @name$,"Xenophon";

-	callfunc "orimain";

-	end;

-}

-yuno_in01.gat,171,22,6	script	Delayt	88,{

-	set @name$,"Delayt";

-	callfunc "orimain";

-	end;

-}

-ein_in01.gat,18,82,6	script	Matestein	84,{

-	set @name$,"Matestein";

-	callfunc "orimain";

-	end;

-}

-lhz_in02.gat,281,24,5	script	Fruel	84,{

-	set @name$,"Fruel";

-	callfunc "orimain";

-	end;

-}

-

-//============================================================

-//= 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 stone smith 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 during the refining process, that weapon will possess the same property as the stone.";

-		next;

-		mes "[" + @name$ + "]";

-		mes "Of course, that person needs to be skillful enough to work on it.";

-		goto M_Menu;

-}

-

-

-

-//=====================================================================================

-// Equipment Repairmen

-//=====================================================================================

-prt_in.gat,62,54,2	script	Grendal	84,{

-	set @name$,"Grendal";

-	callfunc "repairmain";

-	end;

-}

-//Temp Spot, Not Sure Where To place

-payon.gat,149,182,2	script	Repairman#01	88,{

-	set @name$,"Repairman";

-	callfunc "repairmain";

-	end;

-}

-morocc_in.gat,71,40,2	script	Repairman#02	99,{

-	set @name$,"Repairman";

-	callfunc "repairmain";

-	end;

-}

-lhz_in02.gat,284,14,3	script	Repairman#03	86,{

-	set @name$,"Repairman";

-	callfunc "repairmain";

-	end;

-}

-

-//============================================================

-//= Equipment Repair Function

-//============================================================

-function	script	repairmain	{

-	set @repairprice,5000;

-	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.";

-	next;

-	if(getbrokenid(1)==NULL) {

-		mes "[" + @name$ + "]";

-		mes "Looks like you don't need anything repaired today...";

-		close;

-	}

-	set @choice,select(getitemname(getbrokenid(1)),getitemname(getbrokenid(2)),

-		getitemname(getbrokenid(3)),getitemname(getbrokenid(4)),getitemname(getbrokenid(5)),

-		getitemname(getbrokenid(6)),getitemname(getbrokenid(7)),getitemname(getbrokenid(8)),

-		getitemname(getbrokenid(9)),getitemname(getbrokenid(10)));

-	mes "[" + @name$ + "]";

-	mes "You're gonna repair " + getitemname(getbrokenid(@choice)) + ".";

-	mes "To repair this, I need " + @repairprice + " Zeny.";

-	mes "Continue?";

-	next;

-	if(select("Yes","No") == 2) {

-		mes "[" + @name$ + "]";

-		mes "Ok, but don't expect to be using that...";

-		close;

-	}

-	if (Zeny < @repairprice) {

-		mes "[" + @name$ + "]";

-		mes "Is it all you got?";

-		mes "Unfortunately, I have kids to feed...";

-		close;

-	}

-	set Zeny,Zeny-@repairprice;

-	repair(@choice);

-	close;

-

-}

+//===== Freya Script =========================================
+//= Refining NPCs
+//===== By: ==================================================
+//= Syrus22 (1.1) dafide18 (1.4) Skotlex (1.5)
+//===== Current Version: =====================================
+//= 2.1
+//===== Compatible With: =====================================
+//= Any Freya 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 exploit. Need to check sources
+//=        to fully fix bug [Shinigami]
+//=        Fixed repairman prices [shadowlady]
+//=        Fixed bug that skips requirements thanks to sir_loon [massdriller]
+//=        Fixed itemid error thanks to -Vitamin- [massdriller]
+//= 1.4 - check again item in refining procedure to avoid
+//=        hacker that can change item [dafide18]
+//= 1.5 - Fixed crashing due to badly used callfunc's [Skotlex]
+//        Lupus, don't rollback this important fix again! >.<
+//= 1.5a - Corrected an unneeded callfunc, fixed the anti-bot 
+//=       exploit ruining the safe refine loop. [Skotlex]
+//= 1.5b - Fixed Spelling mistakes. [Nexon] 
+//= 1.6	- Replaced all breaks for ends as per the new script engine [Skotlex]
+//= 1.7 - Added Einbroch Refiners (Custom names ^^;) and a duplicated BS Shop. [Poki#3]
+//= 1.8 - Added Lighthalzen Refiners (Custom names again ^^;) [Poki#3]
+//= 1.8a - Fixed wrong indication thanks to NeoSaro [Lupus]
+//= 1.9 - Rewrote repairman, removed the Steel from repair cost [DracoRPG]
+//= 2.0 - Fixed missed equppment presence check. Thx2 Coltaro [Lupus]
+//= 2.0a - Added weight checks thanks to Neouni [Playtester]
+//= 2.0b - Fixed the names of Lighthalzen and Einbroch refiners thanks to Maud_Dib [Kargha]
+//= 2.1 - Removed Duplicates [Silent]
+//============================================================
+
+
+//=========================================================
+// Christopher: Geffen Blacksmith
+//=========================================================
+geffen_in.gat,110,172,2	script	Christopher#1::Chris	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;
+			if(checkweight(986,1) == 0 ) goto L_OverWeight;
+			set Zeny, Zeny - 30000;
+			getitem 986,1;
+			mes "[Christopher Guillenrow]";
+			mes "This is the cheapest one but it's very efficient.";
+			next;
+			goto L_Thanks;
+		sM_OriAnvil:
+			if(Zeny < 120000) goto L_NoZeny;
+			if(checkweight(987,1) == 0 ) goto L_OverWeight;
+			set Zeny, Zeny - 120000;
+			getitem 987,1;
+			mes "[Christopher Guillenrow]";
+			mes "Ah! Ye have a good eye for anvils. This here is the proper anvil for a Blacksmith.";
+			next;
+			goto L_Thanks;
+		sM_GolAnvil:
+			if(Zeny < 300000) goto L_NoZeny;
+			if(checkweight(988,1) == 0 ) goto L_OverWeight;
+			set Zeny, Zeny - 300000;
+			mes "[Christopher Guillenrow]";
+			mes "This is the best anvil in my workshop! With this ye'll be the best Blasksmith in no time.";
+			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;
+			if(checkweight(612,@input) == 0 ) goto L_OverWeight;
+			set Zeny, Zeny - (150 * @input);
+			getitem 612, @input;
+			goto L_Thanks;
+		sM_IrHam:
+			if(Zeny < 1000) goto L_NoZeny;
+			if(checkweight(613,1) == 0 ) goto L_OverWeight;
+			set Zeny, Zeny - 1000;
+			getitem 613,1;
+			goto L_Thanks;
+		sM_GldHam:
+			if(Zeny < 3000) goto L_NoZeny;
+			if(checkweight(614,1) == 0 ) goto L_OverWeight;
+			set Zeny, Zeny - 3000;
+			getitem 614,1;
+			goto L_Thanks;
+		sM_OriHam:
+			if(Zeny < 5000) goto L_NoZeny;
+			if(checkweight(615,1) == 0 ) goto L_OverWeight;
+			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_OverWeight:
+		mes "[Christopher Guillenrow]";
+		mes "You don't seem to have enough strength to carry this.";
+		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;
+}
+
+ein_in01,38,29,6	duplicate(Chris)	Christopher#2	63
+
+//=====================================================================================
+// Weapon/Armor Refiners
+//=====================================================================================
+prt_in.gat,63,60,4	script	Hollengrhen	85,{
+	set @name$,"Hollengrhen";
+	callfunc "refinemain";
+	end;
+}
+morocc_in.gat,73,38,4	script	Aragham	99,{
+	set @name$,"Aragham";
+	callfunc "refinemain";
+	end;
+}
+payon.gat,144,173,4	script	Antonio	88,{
+	set @name$,"Antonio";
+	callfunc "refinemain";
+	end;
+}
+alberta_in.gat,28,58,4	script	Fredrik	85,{
+	set @name$,"Fredrik";
+	callfunc "refinemain";
+	end;
+}
+yuno_in01.gat,164,26,6	script	Disturb	88,{
+	set @name$,"Disturb";
+	callfunc "refinemain";
+	end;
+}
+ein_in01.gat,24,87,6	script	Manthasman	826,{
+	set @name$,"Manthasman Pruhag";
+	callfunc "refinemain";
+	end;
+}
+lhz_in02.gat,282,20,7	script	Fulerr	869,{
+	set @name$,"Fulerr";
+	callfunc "refinemain";
+	end;
+}
+
+//============================================================
+//= 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 definitely 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 equipped 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 equipped 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 already at its maximum level and can no longer be refined.";
+	close;
+
+//Refine Armor
+REFINE0:
+	set @refineitemid, getequipid(@part); // save id of the item
+	set @refinerycnt, getequiprefinerycnt(@part); //save refinery count
+	if(getequipweaponlv(@part) > 0) goto REFINE1;
+	set @matname$,"Elunium";
+	set @material,985;
+	set @price,2000;
+	set @safe,4;
+	if(@features == 1) goto L_refinefeatures;
+	goto L_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) goto L_refinefeatures;
+	goto L_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) goto L_refinefeatures;
+	goto L_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) goto L_refinefeatures;
+	goto L_refinenormal;
+//Refine Level 4 Weapon
+REFINE4:
+	set @matname$,"Oridecon";
+	set @material,984;
+	set @price,20000;
+	set @safe,4;
+	if(@features == 1) goto L_refinefeatures;
+	goto L_refinenormal;
+
+L_refinenormal:
+	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 guarantee my work...";
+		next;
+		menu "Yes",-,"No",Lcancel1;
+
+		L_Sub:
+			if ((countitem(@material) < 1) || (Zeny < @price)) goto Lcancel2;
+			set Zeny,Zeny-@price;
+			delitem @material,1;
+
+Lrefine:
+	if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (not changed, why?)
+	if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item
+	if (getequiprefinerycnt(@part) != @refinerycnt) goto LNoFake; // hacker has changed the item
+	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 process ^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;
+
+LNoItem:
+	mes "[" + @name$ + "]";
+	mes "Look here... you don't have any Items on...";
+	close;
+
+LNoFake:
+	mes "[" + @name$ + "]";
+	mes "Clan... No, but Did you imagine I could be so stupid !?!";
+	mes "You have changed it...";
+	mes "Go out before I stun you with my Hammer!!!";
+	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 awful 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 ========================
+L_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;
+	set Zeny,Zeny - @fullprice;
+	delitem @material,@refinecnt;
+	goto L_refinesafe;
+
+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 " + @fullprice + " Zeny... Is that ok?";
+	next;
+	menu "Yes...",-,"No...",Lcancel;
+		if(@refinecheck > @safe) goto Lwarn;
+		if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
+		set Zeny,Zeny - @fullprice;
+		delitem @material,@refinecnt;
+		goto L_refinenumber;
+		end;
+
+		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;
+				set Zeny,Zeny - @fullprice;
+				delitem @material,@refinecnt;
+				goto L_refinenumber;
+
+Lcancel3:
+	mes "[" + @name$ + "]";
+	mes "I can't refine this item that many times.";
+	close;
+
+// SubFunction: Safe Refine ---------------------
+L_refinesafe:
+	if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (no changed, why?)
+	if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item
+	if (getequippercentrefinery(@part) < 100) goto LNoFake; // hacker has changed the item (it is not safe anymore)
+	mes "Clang, clang!!!";
+	successrefitem @part;
+	emotion 21;
+	set @refinecnt,@refinecnt - 1;
+	next;
+	if(@refinecnt == 0) goto Lend;
+	goto L_refinesafe;
+
+	Lend:
+		mes "[" + @name$ + "]";
+		mes "All finished... Come again soon.";
+		close;
+		
+// SubFunction: Refine 
+L_refinenumber:
+	if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (no changed, why?)
+	if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item
+	mes "Clang, clang!!!";
+	if (getequippercentrefinery(@part)<=rand(100)) goto Lfail_number;
+	successrefitem @part;
+	emotion 21;
+	set @refinecnt,@refinecnt - 1;
+	next;
+	if(@refinecnt == 0) goto Lend;
+	goto L_refinenumber;
+
+	Lfail_number:
+		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";
+	end;
+}
+payon.gat,145,178,4	script	Begnahd	88,{
+	set @name$,"Begnahd";
+	callfunc "phramain";
+	end;
+}
+morocc_in.gat,65,37,4	script	Sade	99,{
+	set @name$,"Sade";
+	callfunc "phramain";
+	end;
+}
+alberta_in.gat,18,59,5	script	Kahlamanlith	86,{
+	set @name$,"Kahlamanlith";
+	callfunc "phramain";
+	end;
+}
+yuno_in01.gat,171,26,6	script	Dillemat	88,{
+	set @name$,"Dillemat";
+	callfunc "phramain";
+	end;
+}
+ein_in01.gat,15,87,7	script	Tirehaus	86,{
+	set @name$,"Tirehaus";
+	callfunc "phramain";
+	end;
+}
+lhz_in02.gat,278,24,3	script	Krugg	86,{
+	set @name$,"Krugg";
+	callfunc "phramain";
+	end;
+}
+
+//============================================================
+//= 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,"Emvertacon - 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(@itemid,@ammount) == 0) goto L_WEIGHT;
+	set Zeny,Zeny-@value*@ammount;
+	getitem @itemid,@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";
+	end;
+}
+payon.gat,137,178,4	script	Hakhim	88,{
+	set @name$,"Hakhim";
+	callfunc "orimain";
+	end;
+}
+morocc_in.gat,72,32,4	script	Abdul	99,{
+	set @name$,"Abdul";
+	callfunc "orimain";
+	end;
+}
+alberta_in.gat,21,63,5	script	Xenophon	84,{
+	set @name$,"Xenophon";
+	callfunc "orimain";
+	end;
+}
+yuno_in01.gat,171,22,6	script	Delayt	88,{
+	set @name$,"Delayt";
+	callfunc "orimain";
+	end;
+}
+ein_in01.gat,18,82,6	script	Matestein	84,{
+	set @name$,"Matestein";
+	callfunc "orimain";
+	end;
+}
+lhz_in02.gat,281,24,5	script	Fruel	84,{
+	set @name$,"Fruel";
+	callfunc "orimain";
+	end;
+}
+
+//============================================================
+//= 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 stone smith 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 during the refining process, that weapon will possess the same property as the stone.";
+		next;
+		mes "[" + @name$ + "]";
+		mes "Of course, that person needs to be skillful enough to work on it.";
+		goto M_Menu;
+}
+
+
+
+//=====================================================================================
+// Equipment Repairmen
+//=====================================================================================
+prt_in.gat,62,54,2	script	Grendal	84,{
+	set @name$,"Grendal";
+	callfunc "repairmain";
+	end;
+}
+//Temp Spot, Not Sure Where To place
+payon.gat,149,182,2	script	Repairman#01	88,{
+	set @name$,"Repairman";
+	callfunc "repairmain";
+	end;
+}
+morocc_in.gat,71,40,2	script	Repairman#02	99,{
+	set @name$,"Repairman";
+	callfunc "repairmain";
+	end;
+}
+lhz_in02.gat,284,14,3	script	Repairman#03	86,{
+	set @name$,"Repairman";
+	callfunc "repairmain";
+	end;
+}
+
+//============================================================
+//= Equipment Repair Function
+//============================================================
+function	script	repairmain	{
+	set @repairprice,5000;
+	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.";
+	next;
+	if(getbrokenid(1)==NULL) {
+		mes "[" + @name$ + "]";
+		mes "Looks like you don't need anything repaired today...";
+		close;
+	}
+	set @choice,select(getitemname(getbrokenid(1)),getitemname(getbrokenid(2)),
+		getitemname(getbrokenid(3)),getitemname(getbrokenid(4)),getitemname(getbrokenid(5)),
+		getitemname(getbrokenid(6)),getitemname(getbrokenid(7)),getitemname(getbrokenid(8)),
+		getitemname(getbrokenid(9)),getitemname(getbrokenid(10)));
+	mes "[" + @name$ + "]";
+	mes "You're gonna repair " + getitemname(getbrokenid(@choice)) + ".";
+	mes "To repair this, I need " + @repairprice + " Zeny.";
+	mes "Continue?";
+	next;
+	if(select("Yes","No") == 2) {
+		mes "[" + @name$ + "]";
+		mes "Ok, but don't expect to be using that...";
+		close;
+	}
+	if (Zeny < @repairprice) {
+		mes "[" + @name$ + "]";
+		mes "Is it all you got?";
+		mes "Unfortunately, I have kids to feed...";
+		close;
+	}
+	set Zeny,Zeny-@repairprice;
+	repair(@choice);
+	close;
+
+}
diff --git a/npc/merchants/renters.txt b/npc/merchants/renters.txt
index 2bd71a844..0c530710c 100644
--- a/npc/merchants/renters.txt
+++ b/npc/merchants/renters.txt
@@ -1,182 +1,182 @@
-//===== eAthena Script ======================================= 

-//= Renters

-//===== By: ================================================== 

-//= kobra_k88, mod by Lupus

-//===== Current Version: ===================================== 

-//= 1.6a

-//===== Compatible With: ===================================== 

-//= eAthena 7.15 +

-//===== Description: ========================================= 

-//= PecoPeco Breeder, Grand PecoPeco Breeder, Falcon tamer scripts

-//===== Additional Comments: ================================= 

-//= Fully working

-//= Added another Falcon Master into the Hunters Guild [Lupus]

-//= 1.2: replaced checkoption(x) with checkriding,checkfalcon [Lupus]

-//= 1.3: Added support Adv Classes + Baby Class [Lupus]

-//= 1.4: Added different prices for normal, advanced and baby classes

-//= but you could set them to the same [Lupus]

-//= 1.5: Fixed spelling mistakes [Nexon]

-//= 1.5a: Small fix (Falcon Taming -> Falcon Mastery) [Komurka]

-//= 1.6: Moved the Falcon Master to Hugel [Poki#3]

-//============================================================ 

-

-// PecoPeco Breeder (for Knights)-------------------------------------------

-prontera.gat,61,338,3	script	PecoPeco Breeder	86,{

-	if(Upper==0) set @price,2500; //Normal Peco - default price

-	if(Upper==1) set @price,4000; //Armored Peco

-	if(Upper==2) set @price,2000; //Baby Peco

-

-	mes "[PecoPeco Breeder]";

-	if(BaseJob == Job_Knight || BaseJob == Job_Knight2 ) goto L_Start;

-	if(Upper==0)mes "I'm a PecoPeco breeder and I rent out PecoPecos for ^4444FF Knights ^000000 to ride on.";

-	if(Upper==1)mes "I'm a PecoPeco breeder and I rent out Armored PecoPecos for ^4444FF Lord Knights ^000000 to ride on.";

-	if(Upper==2)mes "I'm a PecoPeco breeder and I rent out Baby PecoPecos for ^4444FF Baby Knights ^000000 to ride on.";

-	close;

-

-L_Start:

-	if(Upper==0)mes "Good day.  Would you like to ride a PecoPeco?";

-	if(Upper==1)mes "Good day.  Would you like to ride an Armored PecoPeco?";

-	if(Upper==2)mes "Good day.  Would you like to ride a Baby PecoPeco?";

-	next;

-	mes "[PecoPeco Breeder]";

-	mes "You can rent one PecoPeco for "+@price+" Zeny, provided that you have the PecoPeco Riding skill.";

-	next;

-	menu "Lend me a trusty steed!... err... bird!",M_0,"Hmm...It's a bit too expensive.",M_1;

-

-	M_0:

-		if(getskilllv(63) == 0) goto sL_NeedSkill;

-		if(Zeny < @price) goto sL_Zeny;

-		if(checkriding(0) != 0) goto sL_GotPeco;

-		set Zeny, Zeny - @price;

-		setriding;

-		mes "Thank you and good day.";

-		emotion 15;

-		close;

-

-		sL_NeedSkill:

-			mes "[PecoPeco Breeder]";

-			mes  "As I mentioned earlier, you need the ^3333FFRiding^000000 skill in order to rent a PecoPeco.";

-			close;

-		sL_Zeny:

-			mes "[PecoPeco Breeder]";

-			mes "As I said before it will be "+@price+"z. Come back when you have enough zeny.";

-			close;

-		sL_GotPeco:

-			mes "[PecoPeco Breeder]";

-			mes "Umm... aren't you already riding a PecoPeco??....";

-			emotion 20;

-			close;

-	M_1:

-		mes "[PecoPeco Breeder]";

-		mes "Alright.  Good day to you.";

-		close;

-

-}

-

-// Grand PecoPeco Breeder (for Crusaders)-------------------------------------------

-prontera.gat,238,312,5	script	Grand PecoPeco Breeder	86,{

-	if(Upper==0) set @price,3000; //Normal Peco - default price

-	if(Upper==1) set @price,5000; //Armored Peco

-	if(Upper==2) set @price,2500; //Baby Peco

-

-	mes "[Grand PecoPeco Breeder]";

-	if(BaseJob == Job_Crusader || BaseJob == Job_Crusader2 ) goto L_Start;

-	if(Upper==0)mes "I'm a Grand PecoPeco breeder and I rent out Grand PecoPecos for ^4444FF Crusaders^000000 to ride on.";

-	if(Upper==1)mes "I'm a Grand PecoPeco breeder and I rent out Armored Grand PecoPecos for ^4444FF Paladins^000000 to ride on.";

-	if(Upper==2)mes "I'm a Grand PecoPeco breeder and I rent out Baby Grand PecoPecos for ^4444FF Baby Crusaders^000000 to ride on.";

-	close;

-

-L_Start:

-	if(Upper==0)mes "Good day.  Would you like to ride a Grand PecoPeco?";

-	if(Upper==1)mes "Good day.  Would you like to ride an Armored Grand PecoPeco?";

-	if(Upper==2)mes "Good day.  Would you like to ride a Baby Grand PecoPeco?";

-	next;

-	mes "[Grand PecoPeco Breeder]";

-	mes "You can rent one Grand PecoPeco for "+@price+" Zeny, provided that you have the PecoPeco Riding skill.";

-	next;

-	menu "Lend me a trusty steed!... err... bird!",M_0,"Hmm...It's a bit too expensive.",M_1;

-

-	M_0:

-		if(getskilllv(63) == 0) goto sL_NeedSkill;

-		if(Zeny < @price) goto sL_Zeny;

-		if(checkriding(0) != 0) goto sL_GotPeco;

-		set Zeny, Zeny - @price;

-		setriding;

-		mes "Thank you and good day.";

-		emotion 15;

-		close;

-

-		sL_NeedSkill:

-			mes "[Grand PecoPeco Breeder]";

-			mes  "As I mentioned earlier, you need the ^3333FFRiding^000000 skill in order to rent a Grand PecoPeco.";

-			close;

-		sL_Zeny:

-			mes "[Grand PecoPeco Breeder]";

-			mes "As I said before it will be "+@price+"z. Come back when you have enough zeny.";

-			close;

-		sL_GotPeco:

-			mes "[Grand PecoPeco Breeder]";

-			mes "Umm... aren't you already riding a Grand PecoPeco??....";

-			emotion 20;

-			close;

-	M_1:

-		mes "[Grand PecoPeco Breeder]";

-		mes "Alright.  Good day to you.";

-		close;

-

-}

-

-// Falcon Master--------------------------------------------------------------

-hu_in01.gat,375,318,5	script	Falcon Master	59,{

-	if(Upper==0) set @price,800; //Normal Falcon - default price

-	if(Upper==1) set @price,1000; //Scarf Falcon

-	if(Upper==2) set @price,600; //Baby Falcon

-

-	mes "[Falcon Master]";

-	mes "Hellooooo, I am the Falcon Master.";

-	next;

-	menu "Speak with him",M_0, "Politely back away",M_End;

-

-	M_0:

-		mes "[Falcon Master]";

-		if(Upper==0)mes "I can train a Falcon for you, but you need "+@price+"z and be a Hunter with mastered ^5555FF'Falcon Mastery'^000000 skill.";

-		if(Upper==1)mes "I can train a Scarf Falcon for you, but you need "+@price+"z and be a Sniper with mastered ^5555FF'Falcon Mastery'^000000 skill.";

-		if(Upper==2)mes "I can train a Baby Falcon for you, but you need "+@price+"z and be a Baby Hunter with mastered ^5555FF'Falcon Mastery'^000000 skill.";

-		next;

-		menu "Ok",sM_0, "No thanks",M_End;

-

-		sM_0:

-			if(BaseJob != Job_Hunter) goto sL_NotHunter;

-			if(checkfalcon(0) != 0) goto sL_GotFalc;

-			if(Zeny < @price) goto sL_Zeny;

-			if(getskilllv(127)==0) goto sL_NoSkill;

-			set Zeny, Zeny - @price;

-			mes "[Falcon Master]";

-			mes "It looks like you meet all the requirements to handle a Falcon.  Here you are";

-			setfalcon;

-			next;

-			mes "[Falcon Master]";

-			mes "Please take very good care of it.  It will prove to be a valuable companion.";

-			close;

-			

-			sL_NotHunter:

-				mes "[Falcon Master]";

-				mes "As I said, Falcons can only be given to Hunters.  Falcons are very picky about who they travel with you know.";

-				close;

-			sL_GotFalc:

-				mes "[Falcon Master]";

-				mes "You can only have 1 Falcon at a time.";

-				close;

-			sL_NoSkill:

-				mes "[Falcon Master]";

-				mes "I'm sorry but you do not have the Falcon Mastery skill.  Please come back when you have learned it.";

-				close;

-			sL_Zeny:

-				mes "[Falcon Master]";

-				mes "As I said before it will be "+@price+"z. Come back when you aquire enough zeny.";

-				close;

-	M_End:

-		mes "[Falcon Master]";

-		mes "Have a nice day.";

-		close;

-}

+//===== eAthena Script ======================================= 
+//= Renters
+//===== By: ================================================== 
+//= kobra_k88, mod by Lupus
+//===== Current Version: ===================================== 
+//= 1.6a
+//===== Compatible With: ===================================== 
+//= eAthena 7.15 +
+//===== Description: ========================================= 
+//= PecoPeco Breeder, Grand PecoPeco Breeder, Falcon tamer scripts
+//===== Additional Comments: ================================= 
+//= Fully working
+//= Added another Falcon Master into the Hunters Guild [Lupus]
+//= 1.2: replaced checkoption(x) with checkriding,checkfalcon [Lupus]
+//= 1.3: Added support Adv Classes + Baby Class [Lupus]
+//= 1.4: Added different prices for normal, advanced and baby classes
+//= but you could set them to the same [Lupus]
+//= 1.5: Fixed spelling mistakes [Nexon]
+//= 1.5a: Small fix (Falcon Taming -> Falcon Mastery) [Komurka]
+//= 1.6: Moved the Falcon Master to Hugel [Poki#3]
+//============================================================ 
+
+// PecoPeco Breeder (for Knights)-------------------------------------------
+prontera.gat,61,338,3	script	PecoPeco Breeder	86,{
+	if(Upper==0) set @price,2500; //Normal Peco - default price
+	if(Upper==1) set @price,4000; //Armored Peco
+	if(Upper==2) set @price,2000; //Baby Peco
+
+	mes "[PecoPeco Breeder]";
+	if(BaseJob == Job_Knight || BaseJob == Job_Knight2 ) goto L_Start;
+	if(Upper==0)mes "I'm a PecoPeco breeder and I rent out PecoPecos for ^4444FF Knights ^000000 to ride on.";
+	if(Upper==1)mes "I'm a PecoPeco breeder and I rent out Armored PecoPecos for ^4444FF Lord Knights ^000000 to ride on.";
+	if(Upper==2)mes "I'm a PecoPeco breeder and I rent out Baby PecoPecos for ^4444FF Baby Knights ^000000 to ride on.";
+	close;
+
+L_Start:
+	if(Upper==0)mes "Good day.  Would you like to ride a PecoPeco?";
+	if(Upper==1)mes "Good day.  Would you like to ride an Armored PecoPeco?";
+	if(Upper==2)mes "Good day.  Would you like to ride a Baby PecoPeco?";
+	next;
+	mes "[PecoPeco Breeder]";
+	mes "You can rent one PecoPeco for "+@price+" Zeny, provided that you have the PecoPeco Riding skill.";
+	next;
+	menu "Lend me a trusty steed!... err... bird!",M_0,"Hmm...It's a bit too expensive.",M_1;
+
+	M_0:
+		if(getskilllv(63) == 0) goto sL_NeedSkill;
+		if(Zeny < @price) goto sL_Zeny;
+		if(checkriding(0) != 0) goto sL_GotPeco;
+		set Zeny, Zeny - @price;
+		setriding;
+		mes "Thank you and good day.";
+		emotion 15;
+		close;
+
+		sL_NeedSkill:
+			mes "[PecoPeco Breeder]";
+			mes  "As I mentioned earlier, you need the ^3333FFRiding^000000 skill in order to rent a PecoPeco.";
+			close;
+		sL_Zeny:
+			mes "[PecoPeco Breeder]";
+			mes "As I said before it will be "+@price+"z. Come back when you have enough zeny.";
+			close;
+		sL_GotPeco:
+			mes "[PecoPeco Breeder]";
+			mes "Umm... aren't you already riding a PecoPeco??....";
+			emotion 20;
+			close;
+	M_1:
+		mes "[PecoPeco Breeder]";
+		mes "Alright.  Good day to you.";
+		close;
+
+}
+
+// Grand PecoPeco Breeder (for Crusaders)-------------------------------------------
+prontera.gat,238,312,5	script	Grand PecoPeco Breeder	86,{
+	if(Upper==0) set @price,3000; //Normal Peco - default price
+	if(Upper==1) set @price,5000; //Armored Peco
+	if(Upper==2) set @price,2500; //Baby Peco
+
+	mes "[Grand PecoPeco Breeder]";
+	if(BaseJob == Job_Crusader || BaseJob == Job_Crusader2 ) goto L_Start;
+	if(Upper==0)mes "I'm a Grand PecoPeco breeder and I rent out Grand PecoPecos for ^4444FF Crusaders^000000 to ride on.";
+	if(Upper==1)mes "I'm a Grand PecoPeco breeder and I rent out Armored Grand PecoPecos for ^4444FF Paladins^000000 to ride on.";
+	if(Upper==2)mes "I'm a Grand PecoPeco breeder and I rent out Baby Grand PecoPecos for ^4444FF Baby Crusaders^000000 to ride on.";
+	close;
+
+L_Start:
+	if(Upper==0)mes "Good day.  Would you like to ride a Grand PecoPeco?";
+	if(Upper==1)mes "Good day.  Would you like to ride an Armored Grand PecoPeco?";
+	if(Upper==2)mes "Good day.  Would you like to ride a Baby Grand PecoPeco?";
+	next;
+	mes "[Grand PecoPeco Breeder]";
+	mes "You can rent one Grand PecoPeco for "+@price+" Zeny, provided that you have the PecoPeco Riding skill.";
+	next;
+	menu "Lend me a trusty steed!... err... bird!",M_0,"Hmm...It's a bit too expensive.",M_1;
+
+	M_0:
+		if(getskilllv(63) == 0) goto sL_NeedSkill;
+		if(Zeny < @price) goto sL_Zeny;
+		if(checkriding(0) != 0) goto sL_GotPeco;
+		set Zeny, Zeny - @price;
+		setriding;
+		mes "Thank you and good day.";
+		emotion 15;
+		close;
+
+		sL_NeedSkill:
+			mes "[Grand PecoPeco Breeder]";
+			mes  "As I mentioned earlier, you need the ^3333FFRiding^000000 skill in order to rent a Grand PecoPeco.";
+			close;
+		sL_Zeny:
+			mes "[Grand PecoPeco Breeder]";
+			mes "As I said before it will be "+@price+"z. Come back when you have enough zeny.";
+			close;
+		sL_GotPeco:
+			mes "[Grand PecoPeco Breeder]";
+			mes "Umm... aren't you already riding a Grand PecoPeco??....";
+			emotion 20;
+			close;
+	M_1:
+		mes "[Grand PecoPeco Breeder]";
+		mes "Alright.  Good day to you.";
+		close;
+
+}
+
+// Falcon Master--------------------------------------------------------------
+hu_in01.gat,375,318,5	script	Falcon Master	59,{
+	if(Upper==0) set @price,800; //Normal Falcon - default price
+	if(Upper==1) set @price,1000; //Scarf Falcon
+	if(Upper==2) set @price,600; //Baby Falcon
+
+	mes "[Falcon Master]";
+	mes "Hellooooo, I am the Falcon Master.";
+	next;
+	menu "Speak with him",M_0, "Politely back away",M_End;
+
+	M_0:
+		mes "[Falcon Master]";
+		if(Upper==0)mes "I can train a Falcon for you, but you need "+@price+"z and be a Hunter with mastered ^5555FF'Falcon Mastery'^000000 skill.";
+		if(Upper==1)mes "I can train a Scarf Falcon for you, but you need "+@price+"z and be a Sniper with mastered ^5555FF'Falcon Mastery'^000000 skill.";
+		if(Upper==2)mes "I can train a Baby Falcon for you, but you need "+@price+"z and be a Baby Hunter with mastered ^5555FF'Falcon Mastery'^000000 skill.";
+		next;
+		menu "Ok",sM_0, "No thanks",M_End;
+
+		sM_0:
+			if(BaseJob != Job_Hunter) goto sL_NotHunter;
+			if(checkfalcon(0) != 0) goto sL_GotFalc;
+			if(Zeny < @price) goto sL_Zeny;
+			if(getskilllv(127)==0) goto sL_NoSkill;
+			set Zeny, Zeny - @price;
+			mes "[Falcon Master]";
+			mes "It looks like you meet all the requirements to handle a Falcon.  Here you are";
+			setfalcon;
+			next;
+			mes "[Falcon Master]";
+			mes "Please take very good care of it.  It will prove to be a valuable companion.";
+			close;
+			
+			sL_NotHunter:
+				mes "[Falcon Master]";
+				mes "As I said, Falcons can only be given to Hunters.  Falcons are very picky about who they travel with you know.";
+				close;
+			sL_GotFalc:
+				mes "[Falcon Master]";
+				mes "You can only have 1 Falcon at a time.";
+				close;
+			sL_NoSkill:
+				mes "[Falcon Master]";
+				mes "I'm sorry but you do not have the Falcon Mastery skill.  Please come back when you have learned it.";
+				close;
+			sL_Zeny:
+				mes "[Falcon Master]";
+				mes "As I said before it will be "+@price+"z. Come back when you aquire enough zeny.";
+				close;
+	M_End:
+		mes "[Falcon Master]";
+		mes "Have a nice day.";
+		close;
+}
diff --git a/npc/merchants/scrolls_arrows.txt b/npc/merchants/scrolls_arrows.txt
index 97f645e41..163de45f7 100644
--- a/npc/merchants/scrolls_arrows.txt
+++ b/npc/merchants/scrolls_arrows.txt
@@ -1,38 +1,38 @@
-//===== eAthena Script ======================================= 

-//= Magic Scrolls & Arrows + Arrow Quivers

-//===== By: ================================================== 

-//= Lupus

-//===== Current Version: ===================================== 

-//= 1.4

-//===== Compatible With: ===================================== 

-//= eAthena 7.15 +

-//===== Description: ========================================= 

-//=

-//===== Additional Comments: ================================= 

-//= Some shops that sells Magic Scrolls, Arrow Quivers

-//= Temp shops, made in kRO to test some effects (they stay next to Geffen Tower entrance)

-//= Note: Coords and prices aren't right yet

-//= 	  I made Scrolls cost 2x more in Prontera (uncomment extra shops if u want)

-//=

-//= Correct coords and Sprites if you have more info

-//= 1.1 Added Arrow Quivers (removed rare arrows from the shops)

-//= 1.2 Removed Horse Crest from this temp shop. Because this item has been added to Sohee/Grtst General drops [Lupus]

-//= TODO: Arrows shop should be transformed to Quivers Maker NPC

-//= 1.3 Removed Quivers Shop due to Quiver Maker NPC Jaax [Lupus]

-//= 1.4 Due to added Magic Scrolls drops... removed the temp shop [Lupus]

-//============================================================ 

-

-

-//=======================================================

-// All Magic Scrolls + Crest of the Horse

-//=======================================================

-// don't lower the price

-geffen.gat,125,91,2	shop	Magic Scrolls	735, 686:650, 687:1300, 688:500, 689:1000, 690:500, 691:1000, 692:500, 693:1000, 694:500, 695:1000, 696:500, 697:1000, 698:350, 699:700, 700:350, 12000:700, 12001:1000, 12002:2000, 12003:100

-//prt_in.gat,121,65,3	shop	Magic Scrolls	735, 686:1300, 687:2600, 688:1000, 689:2000, 690:1000, 691:2000, 692:1000, 693:2000, 694:1000, 695:2000, 696:1000, 697:2000, 698:700, 699:1400, 700:700, 12000:1700, 12001:2000, 12002:4000, 12003:110

-

-//=======================================================

-// Arrows

-//=======================================================

-//payon_in03.gat,159,10,4	shop	Arrow Quivers	727, 12004:-1, 12005:-1, 12006:-1, 12007:-1, 12008:-1, 12009:-1, 12010:-1, 12011:-1, 12012:-1, 12013:-1, 12014:-1, 12015:-1, 1750:-1, 1770:-1, 1753:-1, 1765:-1, 1751:-1, 1752:-1, 1751:-1, 1755:-1, 1756:-1, 1754:-1, 1767:-1, 1757:-1, 1762:-1

-//geffen.gat,123,107,4	shop	Arrow Quivers	727, 12004:-1, 12005:-1, 12006:-1, 12007:-1, 12008:-1, 12009:-1, 12010:-1, 12011:-1, 12012:-1, 12013:-1, 12014:-1, 12015:-1, 1750:-1, 1770:-1, 1753:-1, 1765:-1, 1751:-1, 1752:-1, 1751:-1, 1755:-1, 1756:-1, 1754:-1, 1767:-1, 1757:-1, 1762:-1

-//prt_in.gat,163,141,5	shop	Arrow Quivers	727, 12004:-1, 12005:-1, 12006:-1, 12007:-1, 12008:-1, 12009:-1, 12010:-1, 12011:-1, 12012:-1, 12013:-1, 12014:-1, 12015:-1, 1750:-1, 1770:-1, 1753:-1, 1765:-1, 1751:-1, 1752:-1, 1751:-1, 1755:-1, 1756:-1, 1754:-1, 1767:-1, 1757:-1, 1762:-1

+//===== eAthena Script ======================================= 
+//= Magic Scrolls & Arrows + Arrow Quivers
+//===== By: ================================================== 
+//= Lupus
+//===== Current Version: ===================================== 
+//= 1.4
+//===== Compatible With: ===================================== 
+//= eAthena 7.15 +
+//===== Description: ========================================= 
+//=
+//===== Additional Comments: ================================= 
+//= Some shops that sells Magic Scrolls, Arrow Quivers
+//= Temp shops, made in kRO to test some effects (they stay next to Geffen Tower entrance)
+//= Note: Coords and prices aren't right yet
+//= 	  I made Scrolls cost 2x more in Prontera (uncomment extra shops if u want)
+//=
+//= Correct coords and Sprites if you have more info
+//= 1.1 Added Arrow Quivers (removed rare arrows from the shops)
+//= 1.2 Removed Horse Crest from this temp shop. Because this item has been added to Sohee/Grtst General drops [Lupus]
+//= TODO: Arrows shop should be transformed to Quivers Maker NPC
+//= 1.3 Removed Quivers Shop due to Quiver Maker NPC Jaax [Lupus]
+//= 1.4 Due to added Magic Scrolls drops... removed the temp shop [Lupus]
+//============================================================ 
+
+
+//=======================================================
+// All Magic Scrolls + Crest of the Horse
+//=======================================================
+// don't lower the price
+geffen.gat,125,91,2	shop	Magic Scrolls	735, 686:650, 687:1300, 688:500, 689:1000, 690:500, 691:1000, 692:500, 693:1000, 694:500, 695:1000, 696:500, 697:1000, 698:350, 699:700, 700:350, 12000:700, 12001:1000, 12002:2000, 12003:100
+//prt_in.gat,121,65,3	shop	Magic Scrolls	735, 686:1300, 687:2600, 688:1000, 689:2000, 690:1000, 691:2000, 692:1000, 693:2000, 694:1000, 695:2000, 696:1000, 697:2000, 698:700, 699:1400, 700:700, 12000:1700, 12001:2000, 12002:4000, 12003:110
+
+//=======================================================
+// Arrows
+//=======================================================
+//payon_in03.gat,159,10,4	shop	Arrow Quivers	727, 12004:-1, 12005:-1, 12006:-1, 12007:-1, 12008:-1, 12009:-1, 12010:-1, 12011:-1, 12012:-1, 12013:-1, 12014:-1, 12015:-1, 1750:-1, 1770:-1, 1753:-1, 1765:-1, 1751:-1, 1752:-1, 1751:-1, 1755:-1, 1756:-1, 1754:-1, 1767:-1, 1757:-1, 1762:-1
+//geffen.gat,123,107,4	shop	Arrow Quivers	727, 12004:-1, 12005:-1, 12006:-1, 12007:-1, 12008:-1, 12009:-1, 12010:-1, 12011:-1, 12012:-1, 12013:-1, 12014:-1, 12015:-1, 1750:-1, 1770:-1, 1753:-1, 1765:-1, 1751:-1, 1752:-1, 1751:-1, 1755:-1, 1756:-1, 1754:-1, 1767:-1, 1757:-1, 1762:-1
+//prt_in.gat,163,141,5	shop	Arrow Quivers	727, 12004:-1, 12005:-1, 12006:-1, 12007:-1, 12008:-1, 12009:-1, 12010:-1, 12011:-1, 12012:-1, 12013:-1, 12014:-1, 12015:-1, 1750:-1, 1770:-1, 1753:-1, 1765:-1, 1751:-1, 1752:-1, 1751:-1, 1755:-1, 1756:-1, 1754:-1, 1767:-1, 1757:-1, 1762:-1
diff --git a/npc/merchants/shops.txt b/npc/merchants/shops.txt
index 67bbff1cb..4a2d2b1ca 100644
--- a/npc/merchants/shops.txt
+++ b/npc/merchants/shops.txt
@@ -1,351 +1,351 @@
-//===== eAthena Script ======================================= 

-//= Shops

-//===== By: ================================================== 

-//= eAthena Dev Team

-//===== Current Version: ===================================== 

-//= 1.9a

-//===== Compatible With: ===================================== 

-//= eAthena 7.15 +

-//===== Description: ========================================= 

-//=

-//===== Additional Comments: ================================= 

-//= For earlier update notes see the bottom.

-//= 1.22 Thx8) Removed Berserk Potions from all shops but Comodo [Lupus]

-//= 1.3 Added Gunslinger shops. Credits goes to RockmanEXE for the info [erKURITA]

-//=	Added Bucket Hat to Flu Mask dealer and modified it's name to a more logical one :P [erKURITA]

-//= 1.4 Added an ingredient seller to Morroc, thanks to Muad_Dib [MasterOfMuppets]

-//= a Removed doubled Morocc Ing.Seller, arranged the rest Ing.Sellers according to the city names [Lupus]

-//= 1.4b Commented out temp Gunslinger shops. [Lupus]

-//= 1.5 Removed Temp gunslinger shops and moved up the official ones. [erKURITA]

-//=	  Added Official Ninja shops in their correct location and commented a few

-//=	  shops. Thanks to RockmanEXE and Muad_Dib [erKURITA]

-//= 1.6 Implemented a missing Tool Shop in Lighthalzen [MasterOfMuppets]

-//= 1.7 Added some missing iRO - Lighthalzen NPCs [Musashiden]

-//= 1.8 Added Rachel Official shops. Special Thanks to RockmanEXE. [erKURITA]

-//= 1.9 Uncommented Homunculus shop, since Homunculus is working on trunk now. [Evera]

-//= 1.9a Pet Merchant -> Lighthalzen [erKURITA]

-//============================================================ 

-

-

-//=======================================================

-//ALBERTA

-//=======================================================

-alb2trea.gat,87,65,1	shop	Tool Dealer	83,1750:-1,1751:-1,1752:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1

-alberta_in.gat,94,56,4	shop	Tool Dealer	83,501:-1,502:-1,503:-1,504:-1,506:-1,601:-1,602:-1,611:-1,610:-1,645:-1,656:-1

-alberta_in.gat,165,96,1	shop	Item Collector	74,909:-1,528:-1

-alberta_in.gat,182,96,1	shop	Tool Dealer	73,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1750:-1,2243:-1,645:-1,656:-1

-alberta_in.gat,180,15,1	shop	Armor Dealer	101,2101:-1,2103:-1,2401:-1,2403:-1,2405:-1,2501:-1,2503:-1,2505:-1,2203:-1,2201:-1,2205:-1,2226:-1,2301:-1,2303:-1,2305:-1,2321:-1,2328:-1,2332:-1,2307:-1,2309:-1,2312:-1,2314:-1

-alberta_in.gat,188,21,1	shop	Weapon Dealer	49,1750:-1,1751:-1,1101:-1,1104:-1,1107:-1,1201:-1,1204:-1,1207:-1,1601:-1,1701:-1,1301:-1,1351:-1,1354:-1,1357:-1,1360:-1,1771:-1

-alberta_in.gat,175,97,4	shop	Weapon Dealer	82,1146:-1,1245:-1

-//alberta_in.gat,18,59,5	shop	Miner	48,1010:-1,1011:-1

-alberta.gat,167,135,4	shop	Ingredient Seller	712,579:-1

-

-//=======================================================

-//AL DE BARAN

-//=======================================================

-aldeba_in.gat,20,60,5	shop	Armor Dealer	101,2228:-1,2103:-1,2105:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1,2505:-1,2405:-1,2627:-1

-aldeba_in.gat,28,54,5	shop	Weapon Dealer	85,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1771:-1

-aldeba_in.gat,22,47,4	shop	Weapon Dealer	713,1146:-1,1245:-1

-aldeba_in.gat,94,56,5	shop	Tool Dealer	83,501:-1,502:-1,503:-1,504:-1,506:-1,601:-1,602:-1,611:-1,610:-1,645:-1,656:-1

-//Uncommented for homunculus on trunk

-alde_alche.gat,38,184,2	shop	Homunculus Supplies	755,7143:-1,7141:-1,7140:-1,12040:-1

-aldebaran.gat,166,109,7	shop	Ingredient Seller	750,580:-1,7482:-1	//temp goods

-

-//=======================================================

-//AMATSU

-//=======================================================

-//|Removed the following shops according to RockmanEXe's info. Some were removed anyway.

-//amatsu.gat,176,126,4	shop	Fruit Merchant	53,512:-1,513:-1,515:-1,516:-1

-//amatsu.gat,169,111,6	shop	Tool Dealer	83,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,2239:-1

-//amatsu.gat,180,102,3	shop	Flower Girl	96,712:-1,744:-1,2612:-1

-//amatsu.gat,189,99,7	shop	Butcher	49,517:-1,528:-1,540:-1,541:-1

-//amatsu.gat,169,119,6	shop	Gift Merchant	91,734:-1,735:-1,736:-1,737:-1,746:-1

-//amatsu.gat,183,127,5	shop	Milk Merchant	90,519:-1

-//ama_in01.gat,96,28,4	shop	Weapon Dealer	54,1750:-1,1751:-1,1701:-1,1201:-1,1204:-1,1207:-1,1601:-1,1101:-1,1104:-1,1107:-1,1110:-1,1113:-1,1122:-1,1119:-1,1123:-1,1126:-1,1157:-1,1129:-1,1116:-1,1301:-1,1771:-1

-//ama_in01.gat,103,24,1	shop	Armor Dealer	48,2101:-1,2103:-1,2401:-1,2403:-1,2501:-1,2503:-1,2220:-1,2226:-1,2301:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1

-//ama_in01.gat,101,18,8	shop	Weapon Dealer	47,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1

-//2nd set

-//|<= end of removed shops

-ama_in01.gat,89,28,4	shop	Armor Dealer	757,2211:-1,2401:-1,2403:-1,2501:-1,2503:-1,2101:-1,2103:-1,2305:-1,2321:-1,2332:-1,2314:-1,2627:-1

-ama_in01.gat,102,28,4	shop	Weapon Dealer	766,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1

-ama_in01.gat,24,30,4	shop	Tool Dealer	763,1750:-1,1770:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1

-amatsu.gat,205,150,2	shop	Ingredient Seller	83,7453:-1,579:-1

-//| Official Ninja Shops

-que_ng.gat,72,31,2	shop	Shuriken Dealer	83,13250:-1,13251:-1,13252:-1,13253:-1,13254:-1

-que_ng.gat,73,26,5	shop	Tool Dealer	83,2117:-1,7521:-1,7522:-1,7523:-1,7524:-1

-

-//=======================================================

-//AYOTHAYA

-//=======================================================

-ayo_in01.gat,18,182,8	shop	Tool Dealer	840,1750:-1,1753:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1

-ayo_in01.gat,90,192,3	shop	Weapon Dealer	843,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1

-ayo_in01.gat,90,160,1	shop	Armor Dealer	842,2211:-1,2401:-1,2403:-1,2501:-1,2503:-1,2101:-1,2103:-1,2305:-1,2321:-1,2332:-1,2328:-1,2627:-1

-ayothaya.gat,202,178,4	shop	Food Seller	750,7456:-1,577:-1

-

-//=======================================================

-//COMODO

-//=======================================================

-cmd_in01.gat,117,165,4	shop	Armor Dealer	101,2226:-1,2228:-1,2103:-1,2105:-1,2405:-1,2503:-1,2505:-1,2305:-1,2321:-1,2307:-1,2309:-1,2335:-1,2312:-1,2314:-1,2316:-1

-cmd_in01.gat,131,165,4	shop	Weapon Dealer	49,1901:-1,1903:-1,1905:-1,1907:-1,1950:-1,1952:-1,1954:-1,1956:-1,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1

-cmd_in01.gat,79,182,4	shop	Tool Dealer	83,1753:-1,501:-1,502:-1,503:-1,504:-1,645:-1,656:-1,657:-1,601:-1,602:-1,611:-1,1065:-1

-comodo.gat,296,125,4	shop	Souvenir Merchant	101,965:-1,964:-1

-comodo.gat,244,296,7	shop	Item Collector	74,909:-1

-comodo.gat,224,164,4	shop	Food Seller	750,7455:-1

-

-cmd_fild07.gat,257,126,5	shop	Tool Dealer	83,1770:-1,501:-1,502:-1,503:-1,504:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1

-cmd_fild07.gat,250,98,2	shop	Weapon Dealer	49,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1

-cmd_fild07.gat,277,85,4	shop	Armor Dealer	101,2226:-1,2228:-1,2103:-1,2105:-1,2405:-1,2503:-1,2505:-1,2305:-1,2321:-1,2307:-1,2309:-1,2335:-1,2312:-1,2314:-1,2316:-1

-

-//=======================================================

-//EINBECH

-//=======================================================

-ein_in01.gat,189,15,0	shop	Tool Dealer	850,1750:-1,1752:-1,1751:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1

-

-//=======================================================

-//EINBROCH

-//=======================================================

-ein_in01.gat,106,27,4	shop	One-Hand Weapon Dealer	850,1101:-1,1104:-1,1107:-1,1110:-1,1113:-1,1119:-1,1122:-1,1123:-1,1126:-1,1129:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1301:-1,1401:-1,1404:-1,1407:-1,1501:-1,1504:-1,1507:-1,1510:-1,1513:-1,1516:-1,1519:-1,1522:-1,1801:-1,1803:-1,1805:-1,1807:-1,1809:-1,1811:-1,1771:-1

-ein_in01.gat,109,27,4	shop	Two-Hand Weapon Dealer	850,1116:-1,1151:-1,1154:-1,1157:-1,1160:-1,1351:-1,1354:-1,1357:-1,1360:-1,1410:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1250:-1,1252:-1,1254:-1

-ein_in01.gat,119,26,4	shop	Weapon Dealer	855,1247:-1,1248:-1,1249:-1,13000:-1

-einbroch.gat,138,66,3	shop	Head Gear Dealer	850,5114:-1,2218:-1

-einbroch.gat,82,199,3	shop	Paddler	855,512:-1,645:-1,1750:-1,501:-1

-//Official Gunslingers shops.

-que_ng.gat,179,91,4	shop	Gunner#Gun Seller	900,13150:-1,13102:-1,13151:-1,13154:-1,13155:-1

-que_ng.gat,180,79,4	shop	Gunner#Ammo Seller	900,13200:-1,13201:-1,13202:-1

-//=======================================================

-//GEFFEN

-//=======================================================

-geffen_in.gat,25,177,1	shop	Armor Dealer	66,2101:-1,2107:-1,2401:-1,2501:-1,2230:-1,2301:-1,2303:-1,2305:-1,2321:-1,2332:-1

-geffen_in.gat,29,177,1	shop	Weapon Dealer	47,1750:-1,1751:-1,1101:-1,1701:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1601:-1,1604:-1,1607:-1,1610:-1,1771:-1

-geffen_in.gat,22,171,6	shop	Weapon Dealer	84,1146:-1,1245:-1

-geffen_in.gat,74,144,1	shop	Trader	66,909:-1,911:-1,910:-1,912:-1

-geffen_in.gat,77,167,1	shop	Tool Dealer	68,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,2241:-1,645:-1,656:-1

-geffen_in.gat,77,173,1	shop	Magical Tool Trader	64,717:-1,1601:-1,1604:-1,1607:-1,1610:-1,2232:-1,2321:-1,2332:-1

-geffen_in.gat,171,123,1	shop	Tool Dealer	64,1092:-1,1093:-1

-geffen.gat,193,152,3	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1

-geffen.gat,135,64,3	shop	Ingredient Seller	750,580:-1,7482:-1	//temp coords, temp goods

-

-//=======================================================

-//GONRYUN

-//=======================================================

-gonryun.gat,147,84,4	shop	Tool Dealer	777,1750:-1,1751:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1

-gonryun.gat,174,101,4	shop	Weapon Dealer	774,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1

-gonryun.gat,173,84,4	shop	Armor Dealer	770,2211:-1,2401:-1,2403:-1,2501:-1,2503:-1,2101:-1,2103:-1,2305:-1,2321:-1,2332:-1,2328:-1,2627:-1

-gonryun.gat,148,101,4	shop	Food Seller	750,580:-1,7452:-1

-

-//=======================================================

-//HUGEL

-//=======================================================

-hugel.gat,105,169,5	shop	Milk Merchant	53,519:-1

-hugel.gat,77,167,3	shop	Food Seller	892,522:-1,512:-1,513:-1,515:-1,516:-1,535:-1

-hu_in01.gat,241,368,2	shop	Tool Dealer	53,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1

-hu_in01.gat,252,368,2	shop	Tool Trader	90,717:-1,2201:-1,910:-1,528:-1

-hu_in01.gat,100,390,2	shop	Bow Dealer	86,1701:-1,1707:-1,1718:-1,1714:-1

-hu_in01.gat,94,390,2	shop	Weapon Dealer	898,1116:-1,1154:-1,1354:-1,1201:-1

-hu_in01.gat,94,313,2	shop	Armor Dealer	86,2224:-1,2232:-1,2226:-1,2101:-1,2103:-1,2401:-1,2501:-1,2307:-1,2105:-1

-

-//=======================================================

-//IZLUDE

-//=======================================================

-izlude_in.gat,60,127,4	shop	Weapon Dealer	98,1750:-1,1751:-1,1701:-1,1601:-1,1201:-1,1204:-1,1207:-1,1101:-1,1104:-1,1107:-1,1116:-1,1151:-1,1154:-1,1157:-1,1160:-1,1301:-1,1771:-1

-izlude_in.gat,70,127,4	shop	Armor Dealer	101,2103:-1,2105:-1,2403:-1,2405:-1,2503:-1,2505:-1,2226:-1,2228:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1

-izlude_in.gat,115,61,1	shop	Tool Dealer	47,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1750:-1,1065:-1,645:-1,656:-1

-izlude.gat,121,138,1 	shop	Butcher	54,517:-1

-izlude.gat,127,120,1	shop	Fruit Merchant	72,512:-1,513:-1,515:-1,516:-1

-izlude.gat,137,126,3	shop	Milk Merchant	701,519:-1

-izlude.gat,164,138,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1

-

-//=======================================================

-//LOUYANG

-//=======================================================

-lou_in02.gat,121,181,5	shop	Armor Dealer	818,2101:-1,2103:-1,2401:-1,2403:-1,2501:-1,2503:-1,2211:-1,2305:-1,2328:-1,2332:-1,2321:-1

-lou_in02.gat,130,182,5	shop	Weapon Dealer	774,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1

-lou_in02.gat,239,176,5	shop	Tool Dealer	818,1750:-1,1753:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1

-louyang.gat,255,123,4	shop	Food Seller	750,7454:-1,577:-1

-

-//=======================================================

-//LIGHTHALZEN

-//=======================================================

-lighthalzen.gat,69,75,5 	shop	Fruit Gardener	102,512:-1,513:-1

-lighthalzen.gat,112,44,8	shop	Flower Girl	90,712:-1,744:-1,748:-1

-lighthalzen.gat,126,126,4	shop	Food Seller	83,7456:-1,7452:-1

-lighthalzen.gat,124,129,8	shop	Vegetable Gardener	91,515:-1,516:-1,535:-1

-lighthalzen.gat,222,191,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1

-lhz_in02.gat,286,95,4	shop	Begginer's Merchant	62,1621:-1,5112:-1,2416:-1,2113:-1,2512:-1

-lhz_in02.gat,271,99,4	shop	Armor Dealer	851,2101:-1,2103:-1,2403:-1,2405:-1,2503:-1,2321:-1,2314:-1,2309:-1,2335:-1,2628:-1

-lhz_in02.gat,276,99,4	shop	Weapon Dealer	851,1201:-1,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1,13003:-1,1771:-1

-lhz_in02.gat,273,35,4	shop	Wand Dealer	854,1601:-1,1604:-1,1607:-1,1617:-1,1619:-1

-lhz_in02.gat,105,21,3	shop	Jewel Seller	91,721:-1,723:-1,726:-1,728:-1,729:-1,730:-1,2613:-1

-lhz_in02.gat,17,220,4	shop	Vegetable Merchant	91,515:-1,516:-1,535:-1

-lhz_in02.gat,21,220,5	shop	Fruit Merchant	102,512:-1,513:-1

-lhz_in02.gat,32,218,6	shop	Butcher	54,517:-1

-lhz_in02.gat,38,145,4	shop	Gift Merchant	91,734:-1,735:-1,736:-1,737:-1,746:-1

-lhz_in02.gat,47,148,5	shop	Wedding Goods Merchant	71,744:-1,745:-1,2338:-1,2206:-1,7170:-1

-lhz_in02.gat,31,145,4	shop	Tool Dealer	90,611:-1,503:-1,504:-1,506:-1,656:-1,601:-1,602:-1,1065:-1,610:-1,1750:-1

-lhz_in02.gat,85,215,4	shop	Doll Merchant	91,740:-1,741:-1,742:-1

-lhz_in02.gat,87,208,2	shop	Eyewear Merchant	715,2243:-1,2212:-1,2242:-1,2241:-1

-lhz_in03.gat,239,106,4	shop	Tool Dealer	850,501:-1,502:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1,611:-1

-

-//=======================================================

-//LUTIE

-//=======================================================

-xmas_in.gat,39,38,4	shop	Tool Dealer	83,501:-1,502:-1,503:-1,504:-1,506:-1,611:-1,601:-1,602:-1,610:-1

-xmas_in.gat,168,104,4	shop	Armor Dealer	101,2228:-1,2103:-1,2105:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1,2505:-1,2405:-1

-xmas_in.gat,169,34,2	shop	Gift Merchant	702,2612:-1,744:-1,748:-1,736:-1,746:-1,740:-1,2613:-1

-xmas_in.gat,174,98,2	shop	Weapon Dealer	49,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1771:-1

-xmas.gat,144,207,4	shop	Tool Dealer	83,601:-1,602:-1

-

-//=======================================================

-//MORROC

-//=======================================================

-morocc_in.gat,141,67,1	shop	Weapon Dealer	58,1750:-1,1751:-1,1701:-1,1601:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1250:-1,1252:-1,1254:-1,1771:-1

-morocc_in.gat,141,60,1	shop	Armor Dealer	58,2101:-1,2103:-1,2401:-1,2403:-1,2405:-1,2501:-1,2503:-1,2218:-1,2301:-1,2303:-1,2305:-1,2321:-1,2328:-1,2332:-1,2307:-1,2309:-1,2335:-1

-morocc.gat,35,69,1	shop	Trader	89,2609:-1,1516:-1,1522:-1

-morocc.gat,139,92,1	shop	Trader	99,513:-1,513:-1,513:-1,513:-1,513:-1,513:-1

-morocc.gat,145,44,1	shop	Jewel Seller	99,730:-1,2613:-1

-morocc.gat,147,102,5	shop	Tool Dealer	93,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,645:-1,656:-1

-morocc.gat,151,243,1	shop	Tool Dealer	99,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,2242:-1,645:-1,656:-1

-morocc.gat,157,72,6	shop	Butcher	49,517:-1

-morocc.gat,166,51,1	shop	Jewel Seller	102,721:-1,723:-1,726:-1,728:-1,729:-1

-morocc.gat,170,101,3	shop	Tool Dealer	85,911:-1,528:-1,919:-1,925:-1

-morocc.gat,206,250,1	shop	Tool Dealer	85,911:-1,528:-1,919:-1,925:-1

-morocc.gat,244,134,1	shop	Trader	93,2612:-1

-morocc.gat,259,193,1	shop	Trader	99,747:-1

-morocc.gat,268,193,1	shop	Trader	93,748:-1

-morocc.gat,269,167,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1

-morocc.gat,120,97,5	shop	Ingredient Seller	86,7452:-1,7453:-1,7454:-1,7455:-1,7456:-1

-//morocc_in.gat,65,37,4	shop	Miner	48,1010:-1,1011:-1

-morocc_in.gat,132,57,0	shop	Weapon Dealer	99,1146:-1,1245:-1

-

-//=======================================================

-//NIFLHEIM

-//=======================================================

-nif_in.gat,35,84,3	shop	Weapon Dealer	795,1301:-1,1351:-1,1354:-1,1357:-1,1360:-1

-nif_in.gat,35,91,3	shop	Armor Dealer	796,2501:-1,2501:-1,2503:-1,2503:-1,2505:-1,2505:-1

-nif_in.gat,154,21,3	shop	Tool Dealer	798,535:-1,1062:-1,902:-1,7106:-1,537:-1,7154:-1,1052:-1,934:-1

-//nif_in.gat,35,84,3	shop	Weapon Dealer	795,1750:-1,1751:-1,1101:-1,1701:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1601:-1,1604:-1,1607:-1,1610:-1

-//nif_in.gat,35,91,3	shop	Armor Dealer	796,2101:-1,2107:-1,2401:-1,2501:-1,2230:-1,2301:-1,2303:-1,2305:-1,2321:-1,2332:-1

-//nif_in.gat,154,21,3	shop	Tool Dealer	798,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,2239:-1,645:-1,656:-1

-//niflheim.gat,201,209,3	shop	Milk Merchant	794,519:-1 

-//niflheim.gat,224,185,3	shop	Fruit Merchant	795,512:-1,513:-1 

-//niflheim.gat,209,161,3	shop	Butcher	794,517:-1,528:-1 

-//niflheim.gat,205,152,3	shop	Gift Merchant	795,734:-1,735:-1,736:-1,737:-1,746:-1

-niflheim.gat,205,158,1	shop	Ingredient Seller	795,581:-1	//temp coords, temp spr ID

-

-//=======================================================

-//PAYON

-//=======================================================

-payon_in01.gat,7,119,4	shop	Weapon Dealer	76,1750:-1,1751:-1,1101:-1,1104:-1,1107:-1,1201:-1,1204:-1,1207:-1,1601:-1,1701:-1,1704:-1,1707:-1,1710:-1,1713:-1,1714:-1,1718:-1,1771:-1

-payon_in01.gat,5,129,6	shop	Weapon Dealer	703,1146:-1,1245:-1

-payon_in01.gat,15,119,4	shop	Armor Dealer	77,2401:-1,2403:-1,2405:-1,2501:-1,2503:-1,2505:-1,2208:-1,2211:-1,2212:-1,2301:-1,2303:-1,2305:-1,2321:-1,2328:-1,2332:-1,2309:-1,2330:-1,2628:-1

-payon_in01.gat,5,49,0	shop	Tool Dealer	88,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1

-payon_in02.gat,87,34,1	shop	Tool Dealer	98,1750:-1,1751:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,645:-1,656:-1

-payon.gat,159,96,5	shop	Tool Dealer	88,1750:-1,501:-1,645:-1,601:-1,602:-1

-payon.gat,205,119,4	shop	Food Seller	750,7455:-1

-//Not Shure About Pet Shop

-payon.gat,104,63,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1

-pay_arche.gat,125,108,1	shop	Milk Merchant	90,519:-1

-pay_arche.gat,132,101,1	shop	Vegetable Merchant	102,515:-1,516:-1

-pay_arche.gat,140,124,1	shop	Butcher	87,517:-1,528:-1

-

-//=======================================================

-//PRONTERA

-//=======================================================

-prontera.gat,73,134,1	shop	Milk Merchant	90,519:-1

-prontera.gat,104,49,1	shop	Fruit Merchant	102,512:-1,513:-1

-prontera.gat,64,125,1	shop	Butcher	87,517:-1,528:-1

-prontera.gat,58,182,1	shop	Flower Girl	96,712:-1,744:-1

-prontera.gat,113,42,1	shop	Flower Lady	90,712:-1,744:-1

-prontera.gat,105,87,1	shop	Gift Merchant	91,734:-1,735:-1,736:-1,737:-1,746:-1

-prontera.gat,218,211,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1

-prontera.gat,248,153,1	shop	Doll Merchant	85,740:-1,741:-1,742:-1

-prontera.gat,156,212,2	shop	Food Seller	700,7454:-1,7452:-1,7482:-1,580:-1

-prontera.gat,48,58,7	shop	Vegetable Gardener	91,515:-1,516:-1,535:-1

-prt_church.gat,108,124,1 	shop	Nun	79,2608:-1,2216:-1,2323:-1,2325:-1,1501:-1,1504:-1,1507:-1,1510:-1,1513:-1,1519:-1,5092:-1

-prt_fild05.gat,290,221,1	shop	Tool Dealer	83,1750:-1,611:-1,501:-1,502:-1,506:-1,601:-1,602:-1,645:-1,656:-1

-prt_in.gat,211,169,1	shop	Wedding Goods Merchant	71,744:-1,745:-1,2338:-1,2206:-1,7170:-1

-prt_in.gat,126,76,1	shop	Tool Dealer	53,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,2239:-1,645:-1,656:-1

-prt_in.gat,172,130,1	shop	Weapon Dealer	54,1750:-1,1751:-1,1701:-1,1201:-1,1204:-1,1207:-1,1601:-1,1101:-1,1104:-1,1107:-1,1110:-1,1113:-1,1122:-1,1119:-1,1123:-1,1126:-1,1157:-1,1129:-1,1116:-1,1301:-1,1771:-1

-prt_in.gat,172,132,1	shop	Armor Dealer	48,2101:-1,2103:-1,2401:-1,2403:-1,2501:-1,2503:-1,2220:-1,2226:-1,2301:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1,2627:-1

-prt_in.gat,171,140,1	shop	Weapon Dealer	47,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1

-//prt_in.gat,56,69,4	shop	Miner	48,1010:-1,1011:-1

-prt_in.gat,164,140,4	shop	Weapon Dealer	66,1146:-1,1245:-1

-

-//=======================================================

-//RACHEL

-//=======================================================

-ra_in01.gat,175,364,3	shop	Armor Dealer	919,2101:-1,2103:-1,2403:-1,2405:-1,2503:-1,2321:-1,2314:-1,2309:-1,2335:-1,2628:-1

-ra_in01.gat,254,300,3	shop	Tool Dealer	931,512:-1,513:-1

-ra_in01.gat,257,269,3	shop	Tool Dealer	919,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1,610:-1

-ra_in01.gat,176,389,3	shop	Weapon Dealer	931,1201:-1,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1,13003:-1,1601:-1,1604:-1,1607:-1

-rachel.gat,65,80,0	shop	Vegetable Gardener	919,515:-1,535:-1,516:-1

-

-//=======================================================

-//TURTLE ISLAND

-//=======================================================

-tur_dun01.gat,158,54,6	shop	Tool Dealer	99,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,645:-1,656:-1

-// Spectacles: missing as second item in list

-// Luxury Sunglases: not sure of item/price.

-

-//=======================================================

-//UMBALA

-//=======================================================

-um_in.gat,104,124,3	shop	Item Merchant	788,512:15,515:15,535:15,516:15,513:15,517:50,528:60,537:1000,601:60,602:300,645:800,656:1500,610:4000

-um_in.gat,160,125,3	shop	Weapon Merchant	789,1501:120,1504:1600,1507:9000,1510:16000,1513:41000,1519:23000,1807:53000,1811:58000,1809:67000

-um_in.gat,151,125,4	shop	Armor Merchant	49,2103:-1,2105:-1,2403:-1,2405:-1,2503:-1,2505:-1,2226:-1,2228:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1

-//um_in.gat,159,123,3	shop	Weapon Merchant	52,1750:-1,1751:-1,1701:-1,1601:-1,1201:-1,1204:-1,1207:-1,1101:-1,1104:-1,1107:-1,1116:-1,1151:-1,1154:-1,1157:-1,1160:-1,1301:-1

-//um_in.gat,98,124,3	shop	Tool Merchant	47,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1750:-1,1065:-1

-//um_in.gat,103,124,4	shop	Food Merchant	91,515:-1,516:-1,535:-1,519:-1,517:-1

-umbala.gat,101,154,4	shop	Food Seller	750,7456:-1,577:-1

-

-

-//=======================================================

-//YUNO

-//=======================================================

-yuno.gat,65,122,4	shop	Fruit Merchant	93,512:-1,513:-1,515:-1,516:-1

-yuno.gat,217,97,4	shop	Tool Dealer	83,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1

-yuno.gat,226,106,5	shop	Trader	97, 911:-1, 910:-1, 912:-1

-yuno.gat,197,115,4	shop	Pet Merchant	124, 537:-1, 643:-1, 10013:-1, 10014:-1

-yuno.gat,205,104,4	shop	Equip Dealer	84, 2340:-1, 2341:-1, 2411:-1, 2222:-1, 2230:-1, 1721:-1

-yuno.gat,163,187,5	shop	Magic Tool Dealer	90,717:-1,1601:-1,1604:-1,1607:-1,1610:-1,2232:-1,2321:-1,2332:-1

-yuno_in01.gat,25,34,4	shop	Tool Dealer	83,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1

-yuno_in01.gat,104,35,4	shop	Weapon Dealer	49,1750:-1,1751:-1,1101:-1,1701:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1601:-1,1604:-1,1607:-1,1610:-1,1771:-1

-yuno_in01.gat,112,25,5	shop	Armor Dealer	101,2628:-1,2101:-1,2107:-1,2401:-1,2501:-1,2230:-1,2301:-1,2303:-1,2305:-1,2321:-1,2332:-1

-yuno_in03.gat,176,22,3	shop	Scroll Seller	89,7433:-1	//Temp shop in Yuno that sells Blank Scrolls

-yuno.gat,133,171,2	shop	Ingredient Seller	750,7457:-1,7482:-1

-

-

-//=======================================================

-// ST. CAPITOLINA ABBEY

-//======================================

-//= Monk shop, sells Knuckle weapons)

-//=======================================================

-prt_monk.gat,135,263,3	shop	Blacksmith	726,1801:-1,1803:-1,1805:-1

-

-//===== Additional Comments(old): ================================= 

-//= swapped shop titles in GONRYUN, thanks to Kashy

-//= 1.3a Fixed Louyang map name. Added additional shops in Yuno. [kobra_k88]

-//= 1.4 Added Niflheim Shops

-//= 1.5 New Payon Locations [Darkchild]

-//= Moved shops in Umbala.txt here. Commented out the duplicate ones.[kobra_k88]

-//= 1.6 Removed GRAPE ID 514 from shops (caused exploits)

-//= 1.7 Removed juices from custom amatsu shops (it's a quest item + levelup exploit)

-//= 1.8 Corrected Niflheim Shops and Morroc Jewel Merchant [celest]

-//= 1.9 Updated Louyang shops thanks to MasterOfMuppets

-//= 1.10 Lutie Tools coords [Yor]

-//= 1.11 Added Belts to Prontera/Aldebaran shops, thanks to reddozen [Lupus]

-//= 1.12 official Ayothaya Shops, thanks to MasterOfMuppets [Lupus]

-//= 1.13 Added 5092 Coif into Prontera Church shop [Lupus]

-//= 1.14 Added Lighthalzen,Einbroch,Einbech shops. Updated Prontera,Morroc,Payon shops [Lupus]

-//= 1.15 Added Venom Knives into every Weapon Shop (that sells Knife[3]) [Lupus]

-//= 1.15a Fixed a small typo in alberta's weapon shop, thanks to reddozen for the fix [MasterOfMuppets]

-//= 1.16 Added a temp shop in Yuno to sell Blank scrolls, thanks to reddozen [MasterOfMuppets]

-//= 1.17 Added wand of hypnotist to the Lighthalzen weapon shop [MasterOfMuppets]

-//= 1.18 Fixed some shops based on kRO shots [Poki#3]

-//= 1.19 Added Hugel and fixed Payon shops based on kRO shots [Poki#3]

-//= 1.19a Added Food Seller selling Mastela Fruit in Hugel (Update item_db for the correct price!) [Poki#3]

-//= 1.20 Added 3 weapons shops, thx2 Muad_Dib [Lupus]

-//= 1.21 Added another weapon dealer to Einbroch, thanks to Muad_Dib [MasterOfMuppets]

-//=    - Fixed up the missing sprites for you Lupus :)

-//=   -  Guys, I suggest we crop these comments and put them at the bottom soon

+//===== eAthena Script ======================================= 
+//= Shops
+//===== By: ================================================== 
+//= eAthena Dev Team
+//===== Current Version: ===================================== 
+//= 1.9a
+//===== Compatible With: ===================================== 
+//= eAthena 7.15 +
+//===== Description: ========================================= 
+//=
+//===== Additional Comments: ================================= 
+//= For earlier update notes see the bottom.
+//= 1.22 Thx8) Removed Berserk Potions from all shops but Comodo [Lupus]
+//= 1.3 Added Gunslinger shops. Credits goes to RockmanEXE for the info [erKURITA]
+//=	Added Bucket Hat to Flu Mask dealer and modified it's name to a more logical one :P [erKURITA]
+//= 1.4 Added an ingredient seller to Morroc, thanks to Muad_Dib [MasterOfMuppets]
+//= a Removed doubled Morocc Ing.Seller, arranged the rest Ing.Sellers according to the city names [Lupus]
+//= 1.4b Commented out temp Gunslinger shops. [Lupus]
+//= 1.5 Removed Temp gunslinger shops and moved up the official ones. [erKURITA]
+//=	  Added Official Ninja shops in their correct location and commented a few
+//=	  shops. Thanks to RockmanEXE and Muad_Dib [erKURITA]
+//= 1.6 Implemented a missing Tool Shop in Lighthalzen [MasterOfMuppets]
+//= 1.7 Added some missing iRO - Lighthalzen NPCs [Musashiden]
+//= 1.8 Added Rachel Official shops. Special Thanks to RockmanEXE. [erKURITA]
+//= 1.9 Uncommented Homunculus shop, since Homunculus is working on trunk now. [Evera]
+//= 1.9a Pet Merchant -> Lighthalzen [erKURITA]
+//============================================================ 
+
+
+//=======================================================
+//ALBERTA
+//=======================================================
+alb2trea.gat,87,65,1	shop	Tool Dealer	83,1750:-1,1751:-1,1752:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1
+alberta_in.gat,94,56,4	shop	Tool Dealer	83,501:-1,502:-1,503:-1,504:-1,506:-1,601:-1,602:-1,611:-1,610:-1,645:-1,656:-1
+alberta_in.gat,165,96,1	shop	Item Collector	74,909:-1,528:-1
+alberta_in.gat,182,96,1	shop	Tool Dealer	73,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1750:-1,2243:-1,645:-1,656:-1
+alberta_in.gat,180,15,1	shop	Armor Dealer	101,2101:-1,2103:-1,2401:-1,2403:-1,2405:-1,2501:-1,2503:-1,2505:-1,2203:-1,2201:-1,2205:-1,2226:-1,2301:-1,2303:-1,2305:-1,2321:-1,2328:-1,2332:-1,2307:-1,2309:-1,2312:-1,2314:-1
+alberta_in.gat,188,21,1	shop	Weapon Dealer	49,1750:-1,1751:-1,1101:-1,1104:-1,1107:-1,1201:-1,1204:-1,1207:-1,1601:-1,1701:-1,1301:-1,1351:-1,1354:-1,1357:-1,1360:-1,1771:-1
+alberta_in.gat,175,97,4	shop	Weapon Dealer	82,1146:-1,1245:-1
+//alberta_in.gat,18,59,5	shop	Miner	48,1010:-1,1011:-1
+alberta.gat,167,135,4	shop	Ingredient Seller	712,579:-1
+
+//=======================================================
+//AL DE BARAN
+//=======================================================
+aldeba_in.gat,20,60,5	shop	Armor Dealer	101,2228:-1,2103:-1,2105:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1,2505:-1,2405:-1,2627:-1
+aldeba_in.gat,28,54,5	shop	Weapon Dealer	85,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1771:-1
+aldeba_in.gat,22,47,4	shop	Weapon Dealer	713,1146:-1,1245:-1
+aldeba_in.gat,94,56,5	shop	Tool Dealer	83,501:-1,502:-1,503:-1,504:-1,506:-1,601:-1,602:-1,611:-1,610:-1,645:-1,656:-1
+//Uncommented for homunculus on trunk
+alde_alche.gat,38,184,2	shop	Homunculus Supplies	755,7143:-1,7141:-1,7140:-1,12040:-1
+aldebaran.gat,166,109,7	shop	Ingredient Seller	750,580:-1,7482:-1	//temp goods
+
+//=======================================================
+//AMATSU
+//=======================================================
+//|Removed the following shops according to RockmanEXe's info. Some were removed anyway.
+//amatsu.gat,176,126,4	shop	Fruit Merchant	53,512:-1,513:-1,515:-1,516:-1
+//amatsu.gat,169,111,6	shop	Tool Dealer	83,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,2239:-1
+//amatsu.gat,180,102,3	shop	Flower Girl	96,712:-1,744:-1,2612:-1
+//amatsu.gat,189,99,7	shop	Butcher	49,517:-1,528:-1,540:-1,541:-1
+//amatsu.gat,169,119,6	shop	Gift Merchant	91,734:-1,735:-1,736:-1,737:-1,746:-1
+//amatsu.gat,183,127,5	shop	Milk Merchant	90,519:-1
+//ama_in01.gat,96,28,4	shop	Weapon Dealer	54,1750:-1,1751:-1,1701:-1,1201:-1,1204:-1,1207:-1,1601:-1,1101:-1,1104:-1,1107:-1,1110:-1,1113:-1,1122:-1,1119:-1,1123:-1,1126:-1,1157:-1,1129:-1,1116:-1,1301:-1,1771:-1
+//ama_in01.gat,103,24,1	shop	Armor Dealer	48,2101:-1,2103:-1,2401:-1,2403:-1,2501:-1,2503:-1,2220:-1,2226:-1,2301:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1
+//ama_in01.gat,101,18,8	shop	Weapon Dealer	47,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1
+//2nd set
+//|<= end of removed shops
+ama_in01.gat,89,28,4	shop	Armor Dealer	757,2211:-1,2401:-1,2403:-1,2501:-1,2503:-1,2101:-1,2103:-1,2305:-1,2321:-1,2332:-1,2314:-1,2627:-1
+ama_in01.gat,102,28,4	shop	Weapon Dealer	766,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1
+ama_in01.gat,24,30,4	shop	Tool Dealer	763,1750:-1,1770:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+amatsu.gat,205,150,2	shop	Ingredient Seller	83,7453:-1,579:-1
+//| Official Ninja Shops
+que_ng.gat,72,31,2	shop	Shuriken Dealer	83,13250:-1,13251:-1,13252:-1,13253:-1,13254:-1
+que_ng.gat,73,26,5	shop	Tool Dealer	83,2117:-1,7521:-1,7522:-1,7523:-1,7524:-1
+
+//=======================================================
+//AYOTHAYA
+//=======================================================
+ayo_in01.gat,18,182,8	shop	Tool Dealer	840,1750:-1,1753:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+ayo_in01.gat,90,192,3	shop	Weapon Dealer	843,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1
+ayo_in01.gat,90,160,1	shop	Armor Dealer	842,2211:-1,2401:-1,2403:-1,2501:-1,2503:-1,2101:-1,2103:-1,2305:-1,2321:-1,2332:-1,2328:-1,2627:-1
+ayothaya.gat,202,178,4	shop	Food Seller	750,7456:-1,577:-1
+
+//=======================================================
+//COMODO
+//=======================================================
+cmd_in01.gat,117,165,4	shop	Armor Dealer	101,2226:-1,2228:-1,2103:-1,2105:-1,2405:-1,2503:-1,2505:-1,2305:-1,2321:-1,2307:-1,2309:-1,2335:-1,2312:-1,2314:-1,2316:-1
+cmd_in01.gat,131,165,4	shop	Weapon Dealer	49,1901:-1,1903:-1,1905:-1,1907:-1,1950:-1,1952:-1,1954:-1,1956:-1,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1
+cmd_in01.gat,79,182,4	shop	Tool Dealer	83,1753:-1,501:-1,502:-1,503:-1,504:-1,645:-1,656:-1,657:-1,601:-1,602:-1,611:-1,1065:-1
+comodo.gat,296,125,4	shop	Souvenir Merchant	101,965:-1,964:-1
+comodo.gat,244,296,7	shop	Item Collector	74,909:-1
+comodo.gat,224,164,4	shop	Food Seller	750,7455:-1
+
+cmd_fild07.gat,257,126,5	shop	Tool Dealer	83,1770:-1,501:-1,502:-1,503:-1,504:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1
+cmd_fild07.gat,250,98,2	shop	Weapon Dealer	49,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1
+cmd_fild07.gat,277,85,4	shop	Armor Dealer	101,2226:-1,2228:-1,2103:-1,2105:-1,2405:-1,2503:-1,2505:-1,2305:-1,2321:-1,2307:-1,2309:-1,2335:-1,2312:-1,2314:-1,2316:-1
+
+//=======================================================
+//EINBECH
+//=======================================================
+ein_in01.gat,189,15,0	shop	Tool Dealer	850,1750:-1,1752:-1,1751:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+
+//=======================================================
+//EINBROCH
+//=======================================================
+ein_in01.gat,106,27,4	shop	One-Hand Weapon Dealer	850,1101:-1,1104:-1,1107:-1,1110:-1,1113:-1,1119:-1,1122:-1,1123:-1,1126:-1,1129:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1301:-1,1401:-1,1404:-1,1407:-1,1501:-1,1504:-1,1507:-1,1510:-1,1513:-1,1516:-1,1519:-1,1522:-1,1801:-1,1803:-1,1805:-1,1807:-1,1809:-1,1811:-1,1771:-1
+ein_in01.gat,109,27,4	shop	Two-Hand Weapon Dealer	850,1116:-1,1151:-1,1154:-1,1157:-1,1160:-1,1351:-1,1354:-1,1357:-1,1360:-1,1410:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1250:-1,1252:-1,1254:-1
+ein_in01.gat,119,26,4	shop	Weapon Dealer	855,1247:-1,1248:-1,1249:-1,13000:-1
+einbroch.gat,138,66,3	shop	Head Gear Dealer	850,5114:-1,2218:-1
+einbroch.gat,82,199,3	shop	Paddler	855,512:-1,645:-1,1750:-1,501:-1
+//Official Gunslingers shops.
+que_ng.gat,179,91,4	shop	Gunner#Gun Seller	900,13150:-1,13102:-1,13151:-1,13154:-1,13155:-1
+que_ng.gat,180,79,4	shop	Gunner#Ammo Seller	900,13200:-1,13201:-1,13202:-1
+//=======================================================
+//GEFFEN
+//=======================================================
+geffen_in.gat,25,177,1	shop	Armor Dealer	66,2101:-1,2107:-1,2401:-1,2501:-1,2230:-1,2301:-1,2303:-1,2305:-1,2321:-1,2332:-1
+geffen_in.gat,29,177,1	shop	Weapon Dealer	47,1750:-1,1751:-1,1101:-1,1701:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1601:-1,1604:-1,1607:-1,1610:-1,1771:-1
+geffen_in.gat,22,171,6	shop	Weapon Dealer	84,1146:-1,1245:-1
+geffen_in.gat,74,144,1	shop	Trader	66,909:-1,911:-1,910:-1,912:-1
+geffen_in.gat,77,167,1	shop	Tool Dealer	68,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,2241:-1,645:-1,656:-1
+geffen_in.gat,77,173,1	shop	Magical Tool Trader	64,717:-1,1601:-1,1604:-1,1607:-1,1610:-1,2232:-1,2321:-1,2332:-1
+geffen_in.gat,171,123,1	shop	Tool Dealer	64,1092:-1,1093:-1
+geffen.gat,193,152,3	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1
+geffen.gat,135,64,3	shop	Ingredient Seller	750,580:-1,7482:-1	//temp coords, temp goods
+
+//=======================================================
+//GONRYUN
+//=======================================================
+gonryun.gat,147,84,4	shop	Tool Dealer	777,1750:-1,1751:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+gonryun.gat,174,101,4	shop	Weapon Dealer	774,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1
+gonryun.gat,173,84,4	shop	Armor Dealer	770,2211:-1,2401:-1,2403:-1,2501:-1,2503:-1,2101:-1,2103:-1,2305:-1,2321:-1,2332:-1,2328:-1,2627:-1
+gonryun.gat,148,101,4	shop	Food Seller	750,580:-1,7452:-1
+
+//=======================================================
+//HUGEL
+//=======================================================
+hugel.gat,105,169,5	shop	Milk Merchant	53,519:-1
+hugel.gat,77,167,3	shop	Food Seller	892,522:-1,512:-1,513:-1,515:-1,516:-1,535:-1
+hu_in01.gat,241,368,2	shop	Tool Dealer	53,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+hu_in01.gat,252,368,2	shop	Tool Trader	90,717:-1,2201:-1,910:-1,528:-1
+hu_in01.gat,100,390,2	shop	Bow Dealer	86,1701:-1,1707:-1,1718:-1,1714:-1
+hu_in01.gat,94,390,2	shop	Weapon Dealer	898,1116:-1,1154:-1,1354:-1,1201:-1
+hu_in01.gat,94,313,2	shop	Armor Dealer	86,2224:-1,2232:-1,2226:-1,2101:-1,2103:-1,2401:-1,2501:-1,2307:-1,2105:-1
+
+//=======================================================
+//IZLUDE
+//=======================================================
+izlude_in.gat,60,127,4	shop	Weapon Dealer	98,1750:-1,1751:-1,1701:-1,1601:-1,1201:-1,1204:-1,1207:-1,1101:-1,1104:-1,1107:-1,1116:-1,1151:-1,1154:-1,1157:-1,1160:-1,1301:-1,1771:-1
+izlude_in.gat,70,127,4	shop	Armor Dealer	101,2103:-1,2105:-1,2403:-1,2405:-1,2503:-1,2505:-1,2226:-1,2228:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1
+izlude_in.gat,115,61,1	shop	Tool Dealer	47,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1750:-1,1065:-1,645:-1,656:-1
+izlude.gat,121,138,1 	shop	Butcher	54,517:-1
+izlude.gat,127,120,1	shop	Fruit Merchant	72,512:-1,513:-1,515:-1,516:-1
+izlude.gat,137,126,3	shop	Milk Merchant	701,519:-1
+izlude.gat,164,138,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1
+
+//=======================================================
+//LOUYANG
+//=======================================================
+lou_in02.gat,121,181,5	shop	Armor Dealer	818,2101:-1,2103:-1,2401:-1,2403:-1,2501:-1,2503:-1,2211:-1,2305:-1,2328:-1,2332:-1,2321:-1
+lou_in02.gat,130,182,5	shop	Weapon Dealer	774,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1
+lou_in02.gat,239,176,5	shop	Tool Dealer	818,1750:-1,1753:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1
+louyang.gat,255,123,4	shop	Food Seller	750,7454:-1,577:-1
+
+//=======================================================
+//LIGHTHALZEN
+//=======================================================
+lighthalzen.gat,69,75,5 	shop	Fruit Gardener	102,512:-1,513:-1
+lighthalzen.gat,112,44,8	shop	Flower Girl	90,712:-1,744:-1,748:-1
+lighthalzen.gat,126,126,4	shop	Food Seller	83,7456:-1,7452:-1
+lighthalzen.gat,124,129,8	shop	Vegetable Gardener	91,515:-1,516:-1,535:-1
+lighthalzen.gat,222,191,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1
+lhz_in02.gat,286,95,4	shop	Begginer's Merchant	62,1621:-1,5112:-1,2416:-1,2113:-1,2512:-1
+lhz_in02.gat,271,99,4	shop	Armor Dealer	851,2101:-1,2103:-1,2403:-1,2405:-1,2503:-1,2321:-1,2314:-1,2309:-1,2335:-1,2628:-1
+lhz_in02.gat,276,99,4	shop	Weapon Dealer	851,1201:-1,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1,13003:-1,1771:-1
+lhz_in02.gat,273,35,4	shop	Wand Dealer	854,1601:-1,1604:-1,1607:-1,1617:-1,1619:-1
+lhz_in02.gat,105,21,3	shop	Jewel Seller	91,721:-1,723:-1,726:-1,728:-1,729:-1,730:-1,2613:-1
+lhz_in02.gat,17,220,4	shop	Vegetable Merchant	91,515:-1,516:-1,535:-1
+lhz_in02.gat,21,220,5	shop	Fruit Merchant	102,512:-1,513:-1
+lhz_in02.gat,32,218,6	shop	Butcher	54,517:-1
+lhz_in02.gat,38,145,4	shop	Gift Merchant	91,734:-1,735:-1,736:-1,737:-1,746:-1
+lhz_in02.gat,47,148,5	shop	Wedding Goods Merchant	71,744:-1,745:-1,2338:-1,2206:-1,7170:-1
+lhz_in02.gat,31,145,4	shop	Tool Dealer	90,611:-1,503:-1,504:-1,506:-1,656:-1,601:-1,602:-1,1065:-1,610:-1,1750:-1
+lhz_in02.gat,85,215,4	shop	Doll Merchant	91,740:-1,741:-1,742:-1
+lhz_in02.gat,87,208,2	shop	Eyewear Merchant	715,2243:-1,2212:-1,2242:-1,2241:-1
+lhz_in03.gat,239,106,4	shop	Tool Dealer	850,501:-1,502:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1,611:-1
+
+//=======================================================
+//LUTIE
+//=======================================================
+xmas_in.gat,39,38,4	shop	Tool Dealer	83,501:-1,502:-1,503:-1,504:-1,506:-1,611:-1,601:-1,602:-1,610:-1
+xmas_in.gat,168,104,4	shop	Armor Dealer	101,2228:-1,2103:-1,2105:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1,2505:-1,2405:-1
+xmas_in.gat,169,34,2	shop	Gift Merchant	702,2612:-1,744:-1,748:-1,736:-1,746:-1,740:-1,2613:-1
+xmas_in.gat,174,98,2	shop	Weapon Dealer	49,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1771:-1
+xmas.gat,144,207,4	shop	Tool Dealer	83,601:-1,602:-1
+
+//=======================================================
+//MORROC
+//=======================================================
+morocc_in.gat,141,67,1	shop	Weapon Dealer	58,1750:-1,1751:-1,1701:-1,1601:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1250:-1,1252:-1,1254:-1,1771:-1
+morocc_in.gat,141,60,1	shop	Armor Dealer	58,2101:-1,2103:-1,2401:-1,2403:-1,2405:-1,2501:-1,2503:-1,2218:-1,2301:-1,2303:-1,2305:-1,2321:-1,2328:-1,2332:-1,2307:-1,2309:-1,2335:-1
+morocc.gat,35,69,1	shop	Trader	89,2609:-1,1516:-1,1522:-1
+morocc.gat,139,92,1	shop	Trader	99,513:-1,513:-1,513:-1,513:-1,513:-1,513:-1
+morocc.gat,145,44,1	shop	Jewel Seller	99,730:-1,2613:-1
+morocc.gat,147,102,5	shop	Tool Dealer	93,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,645:-1,656:-1
+morocc.gat,151,243,1	shop	Tool Dealer	99,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,2242:-1,645:-1,656:-1
+morocc.gat,157,72,6	shop	Butcher	49,517:-1
+morocc.gat,166,51,1	shop	Jewel Seller	102,721:-1,723:-1,726:-1,728:-1,729:-1
+morocc.gat,170,101,3	shop	Tool Dealer	85,911:-1,528:-1,919:-1,925:-1
+morocc.gat,206,250,1	shop	Tool Dealer	85,911:-1,528:-1,919:-1,925:-1
+morocc.gat,244,134,1	shop	Trader	93,2612:-1
+morocc.gat,259,193,1	shop	Trader	99,747:-1
+morocc.gat,268,193,1	shop	Trader	93,748:-1
+morocc.gat,269,167,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1
+morocc.gat,120,97,5	shop	Ingredient Seller	86,7452:-1,7453:-1,7454:-1,7455:-1,7456:-1
+//morocc_in.gat,65,37,4	shop	Miner	48,1010:-1,1011:-1
+morocc_in.gat,132,57,0	shop	Weapon Dealer	99,1146:-1,1245:-1
+
+//=======================================================
+//NIFLHEIM
+//=======================================================
+nif_in.gat,35,84,3	shop	Weapon Dealer	795,1301:-1,1351:-1,1354:-1,1357:-1,1360:-1
+nif_in.gat,35,91,3	shop	Armor Dealer	796,2501:-1,2501:-1,2503:-1,2503:-1,2505:-1,2505:-1
+nif_in.gat,154,21,3	shop	Tool Dealer	798,535:-1,1062:-1,902:-1,7106:-1,537:-1,7154:-1,1052:-1,934:-1
+//nif_in.gat,35,84,3	shop	Weapon Dealer	795,1750:-1,1751:-1,1101:-1,1701:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1601:-1,1604:-1,1607:-1,1610:-1
+//nif_in.gat,35,91,3	shop	Armor Dealer	796,2101:-1,2107:-1,2401:-1,2501:-1,2230:-1,2301:-1,2303:-1,2305:-1,2321:-1,2332:-1
+//nif_in.gat,154,21,3	shop	Tool Dealer	798,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,2239:-1,645:-1,656:-1
+//niflheim.gat,201,209,3	shop	Milk Merchant	794,519:-1 
+//niflheim.gat,224,185,3	shop	Fruit Merchant	795,512:-1,513:-1 
+//niflheim.gat,209,161,3	shop	Butcher	794,517:-1,528:-1 
+//niflheim.gat,205,152,3	shop	Gift Merchant	795,734:-1,735:-1,736:-1,737:-1,746:-1
+niflheim.gat,205,158,1	shop	Ingredient Seller	795,581:-1	//temp coords, temp spr ID
+
+//=======================================================
+//PAYON
+//=======================================================
+payon_in01.gat,7,119,4	shop	Weapon Dealer	76,1750:-1,1751:-1,1101:-1,1104:-1,1107:-1,1201:-1,1204:-1,1207:-1,1601:-1,1701:-1,1704:-1,1707:-1,1710:-1,1713:-1,1714:-1,1718:-1,1771:-1
+payon_in01.gat,5,129,6	shop	Weapon Dealer	703,1146:-1,1245:-1
+payon_in01.gat,15,119,4	shop	Armor Dealer	77,2401:-1,2403:-1,2405:-1,2501:-1,2503:-1,2505:-1,2208:-1,2211:-1,2212:-1,2301:-1,2303:-1,2305:-1,2321:-1,2328:-1,2332:-1,2309:-1,2330:-1,2628:-1
+payon_in01.gat,5,49,0	shop	Tool Dealer	88,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+payon_in02.gat,87,34,1	shop	Tool Dealer	98,1750:-1,1751:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,645:-1,656:-1
+payon.gat,159,96,5	shop	Tool Dealer	88,1750:-1,501:-1,645:-1,601:-1,602:-1
+payon.gat,205,119,4	shop	Food Seller	750,7455:-1
+//Not Shure About Pet Shop
+payon.gat,104,63,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1
+pay_arche.gat,125,108,1	shop	Milk Merchant	90,519:-1
+pay_arche.gat,132,101,1	shop	Vegetable Merchant	102,515:-1,516:-1
+pay_arche.gat,140,124,1	shop	Butcher	87,517:-1,528:-1
+
+//=======================================================
+//PRONTERA
+//=======================================================
+prontera.gat,73,134,1	shop	Milk Merchant	90,519:-1
+prontera.gat,104,49,1	shop	Fruit Merchant	102,512:-1,513:-1
+prontera.gat,64,125,1	shop	Butcher	87,517:-1,528:-1
+prontera.gat,58,182,1	shop	Flower Girl	96,712:-1,744:-1
+prontera.gat,113,42,1	shop	Flower Lady	90,712:-1,744:-1
+prontera.gat,105,87,1	shop	Gift Merchant	91,734:-1,735:-1,736:-1,737:-1,746:-1
+prontera.gat,218,211,4	shop	Pet Merchant	125,537:-1,643:-1,10013:-1,10014:-1
+prontera.gat,248,153,1	shop	Doll Merchant	85,740:-1,741:-1,742:-1
+prontera.gat,156,212,2	shop	Food Seller	700,7454:-1,7452:-1,7482:-1,580:-1
+prontera.gat,48,58,7	shop	Vegetable Gardener	91,515:-1,516:-1,535:-1
+prt_church.gat,108,124,1 	shop	Nun	79,2608:-1,2216:-1,2323:-1,2325:-1,1501:-1,1504:-1,1507:-1,1510:-1,1513:-1,1519:-1,5092:-1
+prt_fild05.gat,290,221,1	shop	Tool Dealer	83,1750:-1,611:-1,501:-1,502:-1,506:-1,601:-1,602:-1,645:-1,656:-1
+prt_in.gat,211,169,1	shop	Wedding Goods Merchant	71,744:-1,745:-1,2338:-1,2206:-1,7170:-1
+prt_in.gat,126,76,1	shop	Tool Dealer	53,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,2239:-1,645:-1,656:-1
+prt_in.gat,172,130,1	shop	Weapon Dealer	54,1750:-1,1751:-1,1701:-1,1201:-1,1204:-1,1207:-1,1601:-1,1101:-1,1104:-1,1107:-1,1110:-1,1113:-1,1122:-1,1119:-1,1123:-1,1126:-1,1157:-1,1129:-1,1116:-1,1301:-1,1771:-1
+prt_in.gat,172,132,1	shop	Armor Dealer	48,2101:-1,2103:-1,2401:-1,2403:-1,2501:-1,2503:-1,2220:-1,2226:-1,2301:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1,2627:-1
+prt_in.gat,171,140,1	shop	Weapon Dealer	47,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1
+//prt_in.gat,56,69,4	shop	Miner	48,1010:-1,1011:-1
+prt_in.gat,164,140,4	shop	Weapon Dealer	66,1146:-1,1245:-1
+
+//=======================================================
+//RACHEL
+//=======================================================
+ra_in01.gat,175,364,3	shop	Armor Dealer	919,2101:-1,2103:-1,2403:-1,2405:-1,2503:-1,2321:-1,2314:-1,2309:-1,2335:-1,2628:-1
+ra_in01.gat,254,300,3	shop	Tool Dealer	931,512:-1,513:-1
+ra_in01.gat,257,269,3	shop	Tool Dealer	919,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1,610:-1
+ra_in01.gat,176,389,3	shop	Weapon Dealer	931,1201:-1,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1,13003:-1,1601:-1,1604:-1,1607:-1
+rachel.gat,65,80,0	shop	Vegetable Gardener	919,515:-1,535:-1,516:-1
+
+//=======================================================
+//TURTLE ISLAND
+//=======================================================
+tur_dun01.gat,158,54,6	shop	Tool Dealer	99,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,645:-1,656:-1
+// Spectacles: missing as second item in list
+// Luxury Sunglases: not sure of item/price.
+
+//=======================================================
+//UMBALA
+//=======================================================
+um_in.gat,104,124,3	shop	Item Merchant	788,512:15,515:15,535:15,516:15,513:15,517:50,528:60,537:1000,601:60,602:300,645:800,656:1500,610:4000
+um_in.gat,160,125,3	shop	Weapon Merchant	789,1501:120,1504:1600,1507:9000,1510:16000,1513:41000,1519:23000,1807:53000,1811:58000,1809:67000
+um_in.gat,151,125,4	shop	Armor Merchant	49,2103:-1,2105:-1,2403:-1,2405:-1,2503:-1,2505:-1,2226:-1,2228:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1
+//um_in.gat,159,123,3	shop	Weapon Merchant	52,1750:-1,1751:-1,1701:-1,1601:-1,1201:-1,1204:-1,1207:-1,1101:-1,1104:-1,1107:-1,1116:-1,1151:-1,1154:-1,1157:-1,1160:-1,1301:-1
+//um_in.gat,98,124,3	shop	Tool Merchant	47,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1750:-1,1065:-1
+//um_in.gat,103,124,4	shop	Food Merchant	91,515:-1,516:-1,535:-1,519:-1,517:-1
+umbala.gat,101,154,4	shop	Food Seller	750,7456:-1,577:-1
+
+
+//=======================================================
+//YUNO
+//=======================================================
+yuno.gat,65,122,4	shop	Fruit Merchant	93,512:-1,513:-1,515:-1,516:-1
+yuno.gat,217,97,4	shop	Tool Dealer	83,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1
+yuno.gat,226,106,5	shop	Trader	97, 911:-1, 910:-1, 912:-1
+yuno.gat,197,115,4	shop	Pet Merchant	124, 537:-1, 643:-1, 10013:-1, 10014:-1
+yuno.gat,205,104,4	shop	Equip Dealer	84, 2340:-1, 2341:-1, 2411:-1, 2222:-1, 2230:-1, 1721:-1
+yuno.gat,163,187,5	shop	Magic Tool Dealer	90,717:-1,1601:-1,1604:-1,1607:-1,1610:-1,2232:-1,2321:-1,2332:-1
+yuno_in01.gat,25,34,4	shop	Tool Dealer	83,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1
+yuno_in01.gat,104,35,4	shop	Weapon Dealer	49,1750:-1,1751:-1,1101:-1,1701:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1601:-1,1604:-1,1607:-1,1610:-1,1771:-1
+yuno_in01.gat,112,25,5	shop	Armor Dealer	101,2628:-1,2101:-1,2107:-1,2401:-1,2501:-1,2230:-1,2301:-1,2303:-1,2305:-1,2321:-1,2332:-1
+yuno_in03.gat,176,22,3	shop	Scroll Seller	89,7433:-1	//Temp shop in Yuno that sells Blank Scrolls
+yuno.gat,133,171,2	shop	Ingredient Seller	750,7457:-1,7482:-1
+
+
+//=======================================================
+// ST. CAPITOLINA ABBEY
+//======================================
+//= Monk shop, sells Knuckle weapons)
+//=======================================================
+prt_monk.gat,135,263,3	shop	Blacksmith	726,1801:-1,1803:-1,1805:-1
+
+//===== Additional Comments(old): ================================= 
+//= swapped shop titles in GONRYUN, thanks to Kashy
+//= 1.3a Fixed Louyang map name. Added additional shops in Yuno. [kobra_k88]
+//= 1.4 Added Niflheim Shops
+//= 1.5 New Payon Locations [Darkchild]
+//= Moved shops in Umbala.txt here. Commented out the duplicate ones.[kobra_k88]
+//= 1.6 Removed GRAPE ID 514 from shops (caused exploits)
+//= 1.7 Removed juices from custom amatsu shops (it's a quest item + levelup exploit)
+//= 1.8 Corrected Niflheim Shops and Morroc Jewel Merchant [celest]
+//= 1.9 Updated Louyang shops thanks to MasterOfMuppets
+//= 1.10 Lutie Tools coords [Yor]
+//= 1.11 Added Belts to Prontera/Aldebaran shops, thanks to reddozen [Lupus]
+//= 1.12 official Ayothaya Shops, thanks to MasterOfMuppets [Lupus]
+//= 1.13 Added 5092 Coif into Prontera Church shop [Lupus]
+//= 1.14 Added Lighthalzen,Einbroch,Einbech shops. Updated Prontera,Morroc,Payon shops [Lupus]
+//= 1.15 Added Venom Knives into every Weapon Shop (that sells Knife[3]) [Lupus]
+//= 1.15a Fixed a small typo in alberta's weapon shop, thanks to reddozen for the fix [MasterOfMuppets]
+//= 1.16 Added a temp shop in Yuno to sell Blank scrolls, thanks to reddozen [MasterOfMuppets]
+//= 1.17 Added wand of hypnotist to the Lighthalzen weapon shop [MasterOfMuppets]
+//= 1.18 Fixed some shops based on kRO shots [Poki#3]
+//= 1.19 Added Hugel and fixed Payon shops based on kRO shots [Poki#3]
+//= 1.19a Added Food Seller selling Mastela Fruit in Hugel (Update item_db for the correct price!) [Poki#3]
+//= 1.20 Added 3 weapons shops, thx2 Muad_Dib [Lupus]
+//= 1.21 Added another weapon dealer to Einbroch, thanks to Muad_Dib [MasterOfMuppets]
+//=    - Fixed up the missing sprites for you Lupus :)
+//=   -  Guys, I suggest we crop these comments and put them at the bottom soon
 //============================================================
\ No newline at end of file
diff --git a/npc/merchants/shuriken_maker.txt b/npc/merchants/shuriken_maker.txt
index 1ae9583b1..2e09ff24a 100644
--- a/npc/merchants/shuriken_maker.txt
+++ b/npc/merchants/shuriken_maker.txt
@@ -1,161 +1,161 @@
-//===== eAthena Script ========================================

-//= Shuriken Blacksmith

-//===== By: ==================================================

-//= Au{R}oN

-//===== Current Version: =====================================

-//= 1.2c

-//===== Compatible With: =====================================

-//= eAthena 1.0+

-//===== Description: =========================================

-//= Shuriken Weapon Maker.

-//===== Additional Comments: =================================

-//= Converted from Aegis

-//= 1.0 Added the 4 Shuriken. [Au{R}oN]

-//= 1.1 Fix getitem bugs and add if ninja job check. [Au{R}oN]

-//= 1.2 more bugs fixed,wrong labels, missing stuf, etc[Lupus]

-//= 1.2a added missing next;

-//= 1.2b Thanks to $ephiroth, fixed wrong ingredient lists

-//============================================================

-

-que_ng.gat,22,62,3	script	Taitsu	709,{

-

-	mes "[Taitsu]";

-	if(Class!=Job_Ninja){

-		mes "Sorry, but I can use my ability only for Ninja Class.";

-		close;

-	}

-	mes "Hello";

-	mes "I'm Taitsu, the Blacksmith of Fuuma Ninja.";

-	next;

-	mes "[Taitsu]";

-	mes "Due to a burst of interest, my life became very miserable.";

-	mes "So, I'm taking everything from the beginning, but haven't made weapon in a long time...";

-	next;

-	mes "[Taitsu]";

-	mes "However, in terms of making Fuuma weapons, no one can make them any better then mine.";

-	mes "Here, take a look.";

-	next;

-	menu "Fuuma Shuriken Beneki",M_BENEKI,"Fuuma Shuriken Daisharin",M_DAIS,

-		"Fuuma Shuriken Daisharin [4]",M_DAIS4,"Fuuma Shuriken Rekka",M_REKKA;

-

-//=====================BENEKI========================

-M_BENEKI:

-	mes "[Taitsu]";

-	mes "For making ^FF0000Fuuma Shuriken Beneki^000000";

-	mes "you need these items:";

-	mes "50 Steel, 20 Harpy's Feathers, 5 Oridecon, and 90.000z.";

-	mes "Do you want it?";

-	next;

-	menu "Yes",-,"No Thanks",M_NOPE;

-

-	mes "[Taitsu]";

-	mes "So let me check for your items...";

-	set @z,90000;

-	if(Zeny < @z) goto L_NOZENY;

-	if(countitem(999)<50 || countitem(7115)<20 || countitem(984)<5) goto L_NOITEMS;

-	set Zeny,Zeny-@z;

-	delitem 999,50;

-	delitem 7115,20;

-	delitem 984,5;

-	next;

-	getitem 13300,1;

-	mes "[Taitsu]";

-	mes "Ok, enjoy with your new weapon.";

-	close;

-

-//=====================DAISHARIN========================

-M_DAIS:

-	mes "[Taitsu]";

-	mes "For making ^FF0000Fuuma Shuriken Daisharin^000000";

-	mes "you need these items:";

-	mes "30 Steel, 100 Tassels, 2 Oridecon, and 40.000z.";

-	mes "Do you want it?";

-	next;

-	menu "Yes",-,"No Thanks",M_NOPE;

-

-	mes "[Taitsu]";

-	mes "So let me check for your items...";

-	set @z,40000;

-	if(Zeny < @z) goto L_NOZENY;

-	if(countitem(999)<30 || countitem(7301)<100 || countitem(984)<2) goto L_NOITEMS;

-	set Zeny,Zeny-@z;

-	delitem 999,30;

-	delitem 7301,100;

-	delitem 984,2;

-	next;

-	getitem 13301,1;

-	mes "[Taitsu]";

-	mes "Ok, enjoy with your new weapon.";

-	close;

-

-//=====================DAISHARIN4========================

-M_DAIS4:

-	mes "[Taitsu]";

-	mes "For making ^FF0000Fuuma Shuriken Daisharin[4]^000000";

-	mes "you need these items:";

-	mes "20 Cracked Diamonds, 1 Fuuma Shuriken Daisharin, 3 Oridecon, and 40.000z.";

-	mes "Do you want it?";

-	next;

-	menu "Yes",-,"No Thanks",M_NOPE;

-

-	mes "[Taitsu]";

-	mes "So let me check for your items...";

-	set @z,40000;

-	if(Zeny < @z) goto L_NOZENY;

-	if(countitem(733)<20 || countitem(13301)<1 || countitem(984)<3) goto L_NOITEMS;

-	set Zeny,Zeny-@z;

-	delitem 733,20;

-	delitem 13301,1;

-	delitem 984,3;

-	next;

-	getitem 13302,1;

-	mes "[Taitsu]";

-	mes "Ok, enjoy with your new weapon.";

-	close;

-

-//=====================REKKA========================

-M_REKKA:

-	mes "[Taitsu]";

-	mes "For making ^FF0000Fuuma Shuriken Rekka^000000";

-	mes "you need these items:";

-	mes "50 Steel, 100 Live Coal, 100 Burning Heart, 50 Burning Stone and 78.000z.";

-	mes "Do you want it?";

-	next;

-	menu "Yes",-,"No Thanks",M_NOPE;

-

-	mes "[Taitsu]";

-	mes "So let me check for your items...";

-	set @z,78000;

-	if(Zeny < @z) goto L_NOZENY;

-	if(countitem(999)<50 || countitem(7098)<100 || countitem(7097)<100 || countitem(7521)<50) goto L_NOITEMS;

-	set Zeny,Zeny-@z;

-	delitem 999,50;

-	delitem 7098,100;

-	delitem 7097,100;

-	delitem 7521,50;

-	next;

-	getitem 13303,1;

-	mes "[Taitsu]";

-	mes "Ok, enjoy with your new weapon.";

-	close;

-

-//=====================I'M SORRY========================

-L_NOITEMS:

-	next;

-	mes "[Taitsu]";

-	mes "Sorry, but you don't have all the required items.";

-	emotion e_sry;

-	close;

-

-L_NOZENY:

-	next;

-	mes "[Taitsu]";

-	mes "I'm sorry, but you need "+@z+"z";

-	emotion e_cash;

-	close;

-

-M_NOPE:

-	mes "[Taitsu]";

-	mes "OK, came back when you want.";

-	close;

+//===== eAthena Script ========================================
+//= Shuriken Blacksmith
+//===== By: ==================================================
+//= Au{R}oN
+//===== Current Version: =====================================
+//= 1.2c
+//===== Compatible With: =====================================
+//= eAthena 1.0+
+//===== Description: =========================================
+//= Shuriken Weapon Maker.
+//===== Additional Comments: =================================
+//= Converted from Aegis
+//= 1.0 Added the 4 Shuriken. [Au{R}oN]
+//= 1.1 Fix getitem bugs and add if ninja job check. [Au{R}oN]
+//= 1.2 more bugs fixed,wrong labels, missing stuf, etc[Lupus]
+//= 1.2a added missing next;
+//= 1.2b Thanks to $ephiroth, fixed wrong ingredient lists
+//============================================================
+
+que_ng.gat,22,62,3	script	Taitsu	709,{
+
+	mes "[Taitsu]";
+	if(Class!=Job_Ninja){
+		mes "Sorry, but I can use my ability only for Ninja Class.";
+		close;
+	}
+	mes "Hello";
+	mes "I'm Taitsu, the Blacksmith of Fuuma Ninja.";
+	next;
+	mes "[Taitsu]";
+	mes "Due to a burst of interest, my life became very miserable.";
+	mes "So, I'm taking everything from the beginning, but haven't made weapon in a long time...";
+	next;
+	mes "[Taitsu]";
+	mes "However, in terms of making Fuuma weapons, no one can make them any better then mine.";
+	mes "Here, take a look.";
+	next;
+	menu "Fuuma Shuriken Beneki",M_BENEKI,"Fuuma Shuriken Daisharin",M_DAIS,
+		"Fuuma Shuriken Daisharin [4]",M_DAIS4,"Fuuma Shuriken Rekka",M_REKKA;
+
+//=====================BENEKI========================
+M_BENEKI:
+	mes "[Taitsu]";
+	mes "For making ^FF0000Fuuma Shuriken Beneki^000000";
+	mes "you need these items:";
+	mes "50 Steel, 20 Harpy's Feathers, 5 Oridecon, and 90.000z.";
+	mes "Do you want it?";
+	next;
+	menu "Yes",-,"No Thanks",M_NOPE;
+
+	mes "[Taitsu]";
+	mes "So let me check for your items...";
+	set @z,90000;
+	if(Zeny < @z) goto L_NOZENY;
+	if(countitem(999)<50 || countitem(7115)<20 || countitem(984)<5) goto L_NOITEMS;
+	set Zeny,Zeny-@z;
+	delitem 999,50;
+	delitem 7115,20;
+	delitem 984,5;
+	next;
+	getitem 13300,1;
+	mes "[Taitsu]";
+	mes "Ok, enjoy with your new weapon.";
+	close;
+
+//=====================DAISHARIN========================
+M_DAIS:
+	mes "[Taitsu]";
+	mes "For making ^FF0000Fuuma Shuriken Daisharin^000000";
+	mes "you need these items:";
+	mes "30 Steel, 100 Tassels, 2 Oridecon, and 40.000z.";
+	mes "Do you want it?";
+	next;
+	menu "Yes",-,"No Thanks",M_NOPE;
+
+	mes "[Taitsu]";
+	mes "So let me check for your items...";
+	set @z,40000;
+	if(Zeny < @z) goto L_NOZENY;
+	if(countitem(999)<30 || countitem(7301)<100 || countitem(984)<2) goto L_NOITEMS;
+	set Zeny,Zeny-@z;
+	delitem 999,30;
+	delitem 7301,100;
+	delitem 984,2;
+	next;
+	getitem 13301,1;
+	mes "[Taitsu]";
+	mes "Ok, enjoy with your new weapon.";
+	close;
+
+//=====================DAISHARIN4========================
+M_DAIS4:
+	mes "[Taitsu]";
+	mes "For making ^FF0000Fuuma Shuriken Daisharin[4]^000000";
+	mes "you need these items:";
+	mes "20 Cracked Diamonds, 1 Fuuma Shuriken Daisharin, 3 Oridecon, and 40.000z.";
+	mes "Do you want it?";
+	next;
+	menu "Yes",-,"No Thanks",M_NOPE;
+
+	mes "[Taitsu]";
+	mes "So let me check for your items...";
+	set @z,40000;
+	if(Zeny < @z) goto L_NOZENY;
+	if(countitem(733)<20 || countitem(13301)<1 || countitem(984)<3) goto L_NOITEMS;
+	set Zeny,Zeny-@z;
+	delitem 733,20;
+	delitem 13301,1;
+	delitem 984,3;
+	next;
+	getitem 13302,1;
+	mes "[Taitsu]";
+	mes "Ok, enjoy with your new weapon.";
+	close;
+
+//=====================REKKA========================
+M_REKKA:
+	mes "[Taitsu]";
+	mes "For making ^FF0000Fuuma Shuriken Rekka^000000";
+	mes "you need these items:";
+	mes "50 Steel, 100 Live Coal, 100 Burning Heart, 50 Burning Stone and 78.000z.";
+	mes "Do you want it?";
+	next;
+	menu "Yes",-,"No Thanks",M_NOPE;
+
+	mes "[Taitsu]";
+	mes "So let me check for your items...";
+	set @z,78000;
+	if(Zeny < @z) goto L_NOZENY;
+	if(countitem(999)<50 || countitem(7098)<100 || countitem(7097)<100 || countitem(7521)<50) goto L_NOITEMS;
+	set Zeny,Zeny-@z;
+	delitem 999,50;
+	delitem 7098,100;
+	delitem 7097,100;
+	delitem 7521,50;
+	next;
+	getitem 13303,1;
+	mes "[Taitsu]";
+	mes "Ok, enjoy with your new weapon.";
+	close;
+
+//=====================I'M SORRY========================
+L_NOITEMS:
+	next;
+	mes "[Taitsu]";
+	mes "Sorry, but you don't have all the required items.";
+	emotion e_sry;
+	close;
+
+L_NOZENY:
+	next;
+	mes "[Taitsu]";
+	mes "I'm sorry, but you need "+@z+"z";
+	emotion e_cash;
+	close;
+
+M_NOPE:
+	mes "[Taitsu]";
+	mes "OK, came back when you want.";
+	close;
 }
\ No newline at end of file
diff --git a/npc/merchants/socket_enchant.txt b/npc/merchants/socket_enchant.txt
index 6685231b9..ba61b71e0 100644
--- a/npc/merchants/socket_enchant.txt
+++ b/npc/merchants/socket_enchant.txt
@@ -1,844 +1,844 @@
-//===== eAthena Script =======================================

-//= Socket Enchant

-//===== By: ==================================================

-//= Sousuke_PL

-//===== Current Version: =====================================

-//= 0.3

-//===== Compatible With: =====================================

-//= eAthena SVN

-//===== Description: =========================================

-//= item loses all element refinement and upgrades but

-//= cards too?

-//===== Additional Comments: =================================

-//= 0.1a added missing L_No: to 2 funcs [Lupus]

-//= 0.1b Removed duplicates [Toms]

-//= 0.2	Added missing next;'s [Evera]

-//= 0.3 Fixed Zweihander[+] id [Lupus]

-//============================================================

-

-

-lhz_in02.gat,281,35,5	script	Socket Enchant	84,{

-

-  mes "[Socket Enchant]";

-  mes "Hello.";

-  mes "How can I help you?";

-  next;

-  menu "Upgrade my item",-,"Nothing",L_Not;

-

-  mes "[Socket Enchant]";

-  mes "This is weapon or armor?";

-  next;

-  menu "Weapon",L_Weapon1,"Armor",L_Armor1;

-

-

-//============================================================

-//= Weapon

-//============================================================

-

-  L_WaepJump:

-      mes "[Socket Enchant]";

-      mes "Choose the number of page. Type 1 to 5:";

-      next;

-      input @weapsite;

-      if(@weapsite > 5 || @weapsite < 1) goto L_WaepJump;

-

-      if(@weapsite == 1) goto L_Weapon1;

-      if(@weapsite == 2) goto L_Weapon2;

-      if(@weapsite == 3) goto L_Weapon3;

-      if(@weapsite == 4) goto L_Weapon4;

-      if(@weapsite == 5) goto L_Weapon5; 

-

-

-  L_Weapon1:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Trident[2]",Trident,"Rope[3]",Rope,"Violin[3]",Violin,"Chain[2]",Chain,"Gladius[2]",Gladius,"Gakkung Bow[1]",Gakkung_Bow,"Next",L_Weapon2,"Jump to page...",L_WaepJump;

-

-  L_Weapon2:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Pike[3]",Pike,"Haedonggum[1]",Haedonggum,"Lute[2]",Lute,"Wire Whip[2]",Wire_Whip,"Waghnak[3]",Waghnak,"Arbalest[1]",Arbalest,"Next",L_Weapon3,"Jump to page...",L_WaepJump;

-

-  L_Weapon3:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Hunter Bow",Hunter_Bow,"(Int) Survivor's Rod",Int_Survivors_Rod,"Zweihander",Zweihander,"Flamberge",Flamberge,"Infiltrator",Infiltrator,"Ballista",Ballista,"Next",L_Weapon4,"Jump to page...",L_WaepJump;

-

-  L_Weapon4:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Stunner",Stunner,"Berserk",Berserk,"Claymore",Claymore,"Gungnir",Gungnir,"Poison Knife",Poison_Knife,"Sucsamad",Sucsamad,"Next",L_Weapon5,"Jump to page...",L_WaepJump;

-

-  L_Weapon5:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Ginnungagap",Ginnungagap,"Cutlus",Cutlus,"Crescent Scythe",Crescent_Scythe,"Ice Pick",Ice_Pick,"(Dex) Survivor's Rod",Dex_Survivors_Rod,"Next",L_Weapon1,"Jump to page...",L_WaepJump;

-

-

-      Trident:

-           set @olditem,1460;

-           set @newitem,1461;

-           callfunc "f_weapon_c";

-

-      Rope:

-           set @olditem,1950;

-           set @newitem,1951;

-           callfunc "f_weapon_c";

-

-      Violin:

-           set @olditem,1901;

-           set @newitem,1902;

-           callfunc "f_weapon_c";

-

-      Chain:

-           set @olditem,1519;

-           set @newitem,1520;

-           callfunc "f_weapon_b";

-

-      Gladius:

-           set @olditem,1219;

-           set @newitem,1220;

-           callfunc "f_weapon_b";

-

-      Gakkung_Bow:

-           set @olditem,1714;

-           set @newitem,1716;

-           callfunc "f_weapon_b";

-

-      Pike:

-           set @olditem,1407;

-           set @newitem,1408;

-           callfunc "f_weapon_b";

-

-      Haedonggum:

-           set @olditem,1123;

-           set @newitem,1128;

-           callfunc "f_weapon_b";

-

-      Lute:

-           set @olditem,1905;

-           set @newitem,1906;

-           callfunc "f_weapon_b";

-

-      Wire_Whip:

-           set @olditem,1954;

-           set @newitem,1955;

-           callfunc "f_weapon_b";

-

-      Waghnak:

-           set @olditem,1801;

-           set @newitem,1802;

-           callfunc "f_weapon_b";

-

-      Arbalest:

-           set @olditem,1713;

-           set @newitem,1715;

-           callfunc "f_weapon_b";

-

-      Hunter_Bow:

-           set @olditem,1718;

-           set @newitem,1726;

-           callfunc "f_weapon_a";

-

-      Int_Survivors_Rod:

-           set @olditem,1619;

-           set @newitem,1620;

-           callfunc "f_weapon_a";

-

-      Zweihander:

-           set @olditem,1168;

-           set @newitem,1171;

-           callfunc "f_weapon_a3";

-

-      Flamberge:

-           set @olditem,1129;

-           set @newitem,1149;

-           callfunc "f_weapon_a";

-

-      Infiltrator:

-           set @olditem,1261;

-           set @newitem,1266;

-           callfunc "f_weapon_a2";

-

-      Ballista:

-           set @olditem,1722;

-           set @newitem,1727;

-           callfunc "f_weapon_a";

-

-      Stunner:

-           set @olditem,1522;

-           set @newitem,1532;

-           callfunc "f_weapon_a";

-

-      Berserk:

-           set @olditem,1814;

-           set @newitem,1816;

-           callfunc "f_weapon_a";

-

-      Claymore:

-           set @olditem,1163;

-           set @newitem,1172;

-           callfunc "f_weapon_a";

-

-      Gungnir:

-           set @olditem,1413;

-           set @newitem,1418;

-           callfunc "f_weapon_s";

-

-      Poison_Knife:

-           set @olditem,1239;

-           set @newitem,13016;

-           callfunc "f_weapon_s";

-

-      Sucsamad:

-           set @olditem,1236;

-           set @newitem,13018;

-           callfunc "f_weapon_s";

-

-      Ginnungagap:

-           set @olditem,13002;

-           set @newitem,13019;

-           callfunc "f_weapon_s";

-

-      Cutlus:

-           set @olditem,1135;

-           set @newitem,13400;

-           callfunc "f_weapon_s";

-

-      Crescent_Scythe:

-           set @olditem,1466;

-           set @newitem,1476;

-           callfunc "f_weapon_s";

-

-      Ice_Pick:

-           set @olditem,1230;

-           set @newitem,13017;

-           callfunc "f_weapon_s2";

-

-      Dex_Survivors_Rod:

-           set @olditem,1617;

-           set @newitem,1618;

-           callfunc "f_weapon_s2";

-

-	   

-

-//============================================================

-//= Armor

-//============================================================

-

-  L_ArmorJump:

-      mes "[Socket Enchant]";

-      mes "Choose the number of page. Type 1 to 6:";

-      next;

-      input @armorsite;

-      if(@armorsite > 6 || @armorsite < 1) goto L_ArmorJump;

-

-      if(@armorsite == 1) goto L_Armor1;

-      if(@armorsite == 2) goto L_Armor2;

-      if(@armorsite == 3) goto L_Armor3;

-      if(@armorsite == 4) goto L_Armor4;

-      if(@armorsite == 5) goto L_Armor5;

-      if(@armorsite == 6) goto L_Armor6;

-

-

-  L_Armor1:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Mantle",Mantle,"Coat",Coat,"Circlet",Circlet,"Biretta",Biretta,"Mirror Shield",Mirror_Shield,"Chain Mail",Chain_Mail,"Shield",Shield,"Bongun Hat",Bongun_Hat,"Next",L_Armor2,"Jump to page...",L_ArmorJump;

-

-  L_Armor2:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Saint's Robe",Saints_Robe,"Silk Robe",Silk_Robe,"Boots",Boots,"Shoes",Shoes,"Muffler",Muffler,"Guard",Guard,"Buckler",Buckler,"Munak Hat",Munak_Hat,"Next",L_Armor3,"Jump to page...",L_ArmorJump;

-

-  L_Armor3:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Gemmed Sallet",Gemmed_Sallet,"Bucket Hat",Bucket_Hat,"Memory Book",Memory_Book,"Tights",Tights,"Legion Plate Armor",Legion_Plate_Armor,"Full Plate",Full_Plate,"Thief Clothes",Thief_Clothes,"Next",L_Armor4,"Jump to page...",L_ArmorJump;

-

-  L_Armor4:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Greaves",Greaves,"Coif",Coif,"Manteau",Manteau,"Helm",Helm,"Ninja Suit",Ninja_Suit,"Orc Helm",Orc_Helm,"Ancient Cape",Ancient_Cape,"Next",L_Armor5,"Jump to page...",L_ArmorJump;

-

-  L_Armor5:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Monk Hat",Monk_Hat,"Golden Gear",Golden_Gear,"Brooch",Brooch,"Tiara",Tiara,"Sphinx Hat",Sphinx_Hat,"Robe of Cast",Robe_of_Cast,"Earring",Earring,"Next",L_Armor6,"Jump to page...",L_ArmorJump;

-

-  L_Armor6:

-

-      close2;

-      mes "[Socket Enchant]";

-      mes "Please choose your item:";

-      next;

-      menu "Ring",Ring,"Bow Thimble",Bow_Thimble,"Majestic Goat",Majestic_Goat,"Spiky Band",Spiky_Band,"Bone Helm",Bone_Helm,"Corsair",Corsair,"Crown",Crown,"Next",L_Armor1,"Jump to page...",L_ArmorJump;

-

-

-      Mantle:

-           set @olditem,2307;

-           set @newitem,2308;

-           callfunc "f_armor_c";

-

-      Coat:

-           set @olditem,2309;

-           set @newitem,2310;

-           callfunc "f_armor_c";

-

-      Circlet:

-           set @olditem,2232;

-           set @newitem,2233;

-           callfunc "f_armor_c";

-

-      Biretta:

-           set @olditem,2216;

-           set @newitem,2217;

-           callfunc "f_armor_c";

-

-      Mirror_Shield:

-           set @olditem,2107;

-           set @newitem,2108;

-           callfunc "f_armor_b";

-

-      Chain_Mail:

-           set @olditem,2314;

-           set @newitem,2315;

-           callfunc "f_armor_b";

-

-      Shield:

-           set @olditem,2105;

-           set @newitem,2106;

-           callfunc "f_armor_b";

-

-      Bongun_Hat:

-           set @olditem,5046;

-           set @newitem,5168;

-           callfunc "f_armor_b";

-

-      Saints_Robe:

-           set @olditem,2325;

-           set @newitem,2326;

-           callfunc "f_armor_b2";

-

-      Silk_Robe:

-           set @olditem,2321;

-           set @newitem,2322;

-           callfunc "f_armor_b2";

-

-      Boots:

-           set @olditem,2405;

-           set @newitem,2406;

-           callfunc "f_armor_b2";

-

-      Shoes:

-           set @olditem,2403;

-           set @newitem,2404;

-           callfunc "f_armor_b2";

-

-      Muffler:

-           set @olditem,2503;

-           set @newitem,2504;

-           callfunc "f_armor_b2";

-

-      Guard:

-           set @olditem,2101;

-           set @newitem,2102;

-           callfunc "f_armor_b2";

-

-      Buckler:

-           set @olditem,2103;

-           set @newitem,2104;

-           callfunc "f_armor_b2";

-

-      Munak_Hat:

-           set @olditem,2264;

-           set @newitem,5167;

-           callfunc "f_armor_a";

-

-      Gemmed_Sallet:

-           set @olditem,2230;

-           set @newitem,2231;

-           callfunc "f_armor_a2";

-

-      Bucket_Hat:

-           set @olditem,5114;

-           set @newitem,5120;

-           callfunc "f_armor_a2";

-

-      Memory_Book:

-           set @olditem,2109;

-           set @newitem,2121;

-           callfunc "f_armor_a2";

-

-      Tights:

-           set @olditem,2330;

-           set @newitem,2331;

-           callfunc "f_armor_a2";

-

-      Legion_Plate_Armor:

-           set @olditem,2341;

-           set @newitem,2342;

-           callfunc "f_armor_a2";

-

-      Full_Plate:

-           set @olditem,2316;

-           set @newitem,2317;

-           callfunc "f_armor_a2";

-

-      Thief_Clothes:

-           set @olditem,2335;

-           set @newitem,2336;

-           callfunc "f_armor_a2";

-

-      Greaves:

-           set @olditem,2411;

-           set @newitem,2412;

-           callfunc "f_armor_a2";

-

-      Coif:

-           set @olditem,5092;

-           set @newitem,5093;

-           callfunc "f_armor_a2";

-

-      Manteau:

-           set @olditem,2505;

-           set @newitem,2506;

-           callfunc "f_armor_a2";

-

-      Helm:

-           set @olditem,2228;

-           set @newitem,2229;

-           callfunc "f_armor_a2";

-

-      Ninja_Suit:

-           set @olditem,2337;

-           set @newitem,2359;

-           callfunc "f_armor_a2";

-

-      Orc_Helm:

-           set @olditem,2299;

-           set @newitem,5157;

-           callfunc "f_armor_a2";

-

-      Ancient_Cape:

-           set @olditem,2507;

-           set @newitem,2525;

-           callfunc "f_armor_a2";

-

-      Monk_Hat:

-           set @olditem,2251;

-           set @newitem,5158;

-           callfunc "f_armor_a2";

-

-      Golden_Gear:

-           set @olditem,2246;

-           set @newitem,5159;

-           callfunc "f_armor_a2";

-

-      Brooch:

-           set @olditem,2605;

-           set @newitem,2625;

-           callfunc "f_armor_a2";

-

-      Tiara:

-           set @olditem,2234;

-           set @newitem,5164;

-           callfunc "f_armor_s2";

-

-      Sphinx_Hat:

-           set @olditem,5053;

-           set @newitem,5166;

-           callfunc "f_armor_s";

-

-      Robe_of_Cast:

-           set @olditem,2343;

-           set @newitem,2360;

-           callfunc "f_armor_s";

-

-      Earring:

-           set @olditem,2602;

-           set @newitem,2622;

-           callfunc "f_armor_s";

-

-      Ring:

-           set @olditem,2601;

-           set @newitem,2621;

-           callfunc "f_armor_s";

-

-      Bow_Thimble:

-           set @olditem,2619;

-           set @newitem,2671;

-           callfunc "f_armor_s";

-

-      Majestic_Goat:

-           set @olditem,2256;

-           set @newitem,5160;

-           callfunc "f_armor_s2";

-

-      Spiky_Band:

-           set @olditem,2258;

-           set @newitem,5161;

-           callfunc "f_armor_s2";

-

-      Bone_Helm:

-           set @olditem,5017;

-           set @newitem,5162;

-           callfunc "f_armor_s2";

-

-      Corsair:

-           set @olditem,5019;

-           set @newitem,5163;

-           callfunc "f_armor_s2";

-

-      Crown:

-           set @olditem,2235;

-           set @newitem,5165;

-           callfunc "f_armor_s2";

-

-//============================================================

-//= Other

-//============================================================

-

-  L_Not:

-      mes "[Socket Enchant]";

-      mes "Bye~!";

-      close;

-

-}

-

-//============================================================

-//= Functions add slots

-//============================================================

-

-function	script	addslot	{

-

-      mes "[Socket Enchant]";

-      mes "Upgrade cost "+@addprice+" zeny and ^5533FF"+@itemupname$+"^000000.";

-      next;

-      mes "[Socket Enchant]";

-      mes "Are you sure? Remember that it can fail.";

-      mes "Do you want to continue?";

-      next;

-      menu "Yes",-,"No",L_No;

-

-

-           if(countitem(@olditem)<1) goto L_NoItem;

-           if(Zeny<@addprice) goto L_NoZeny;

-           if(countitem(@itemup)<@itemupiece) goto L_NoItemUp;

-

-           delitem @itemup,@itemupiece;

-           set Zeny,Zeny-@addprice;

-           delitem @olditem,1;

-           if(@rateit<rand(1,100))goto L_Fail;

-           misceffect 83;

-           getitem @newitem,1;

-

-      mes "[Socket Enchant]";

-      mes "Ok, take your item, Bye.";

-      close;

-

-

-  L_NoItem:

-      mes "[Socket Enchant]";

-      mes "You don't have this item.";

-      mes "Come back when you get it.";

-      close;

-

-  L_NoItemUp:

-      mes "[Socket Enchant]";

-      mes "You don't have all ingridients. Come back when you get it.";

-      close;

-

-  L_NoZeny:

-      mes "[Socket Enchant]";

-      mes "You don't have enough money. Come back later.";

-      close;

-

-  L_Fail:

-      misceffect 183;

-      mes "[Socket Enchant]";

-      mes "Sorry, but i could't upgrade it.";

-      close;

-

-  L_No:

-      mes "[Socket Enchant]";

-      mes "Ok, Bye.";

-      close;

-     

-}

-

-//============================================================

-

-function	script	addslot2	{

-

-      mes "[Socket Enchant]";

-      mes "Upgrade cost "+@addprice+" zeny and ^5533FF"+@itemupname1$+"^000000 and ^5533FF"+@itemupname2$+"^000000.";

-      next;

-      mes "[Socket Enchant]";

-      mes "Are you sure? Remember that it can fail.";

-      mes "Do you want to continue?";

-      next;

-      menu "Yes",-,"No",L_No;

-

-

-           if(countitem(@olditem)<1) goto L_NoItem;

-           if(Zeny<@addprice) goto L_NoZeny;

-           if((countitem(@itemup1)<@itemupiece1) && (countitem(@itemup2)<@itemupiece2)) goto L_NoItemUp;

-

-           delitem @itemup1,@itemupiece1;

-           delitem @itemup2,@itemupiece2;

-           set Zeny,Zeny-@addprice;

-           delitem @olditem,1;

-           if(@rateit<rand(1,100))goto L_Fail;

-           misceffect 83;

-           getitem @newitem,1;

-

-      mes "[Socket Enchant]";

-      mes "Ok, take your item, Bye.";

-      close;

-

-      

-  L_NoItem:

-      mes "[Socket Enchant]";

-      mes "You don't have this item.";

-      mes "Come back when you get it.";

-      close;

-

-  L_NoItemUp:

-      mes "[Socket Enchant]";

-      mes "You don't have all ingridients. Come back when you get it.";

-      close;

-

-  L_NoZeny:

-      mes "[Socket Enchant]";

-      mes "You don't have enough money. Come back later.";

-      close;

-

-  L_Fail:

-      misceffect 183;

-      mes "[Socket Enchant]";

-      mes "Sorry, but i could't upgrade it.";

-      close;

-

-  L_No:

-      mes "[Socket Enchant]";

-      mes "Ok, Bye.";

-      close;

-

-}

-

-

-//============================================================

-//= Functions

-//============================================================

-

-//= Weapon

-

-function	script	f_weapon_c	{

-  

-      set @rateit,50;  //success rate

-      set @addprice,200000;

-      set @itemup,1010;

-      set @itemupiece,10;

-      set @itemupname$,"10 Phracon";

-      callfunc "addslot";

-

-}

-

-function	script	f_weapon_b	{

-

-      set @rateit,25;  //success rate

-      set @addprice,300000;

-      set @itemup1,984;

-      set @itemupiece1,2;

-      set @itemupname1$,"2 Oridecon";

-      set @itemup2,999;

-      set @itemupiece2,5;

-      set @itemupname2$,"5 Steel";

-      callfunc "addslot2";

-

-}

-

-function	script	f_weapon_a	{

-

-      set @rateit,10;  //success rate

-      set @addprice,500000;

-      set @itemup1,984;

-      set @itemupiece1,2;

-      set @itemupname1$,"2 Oridecon";

-      set @itemup2,999;

-      set @itemupiece2,10;

-      set @itemupname2$,"10 Steel";

-      callfunc "addslot2";

-

-}

-

-function	script	f_weapon_a2	{

-

-      set @rateit,10;  //success rate

-      set @addprice,700000;

-      set @itemup1,984;

-      set @itemupiece1,2;

-      set @itemupname1$,"2 Oridecon";

-      set @itemup2,999;

-      set @itemupiece2,10;

-      set @itemupname2$,"10 Steel";

-      callfunc "addslot2";

-

-}

-

-function	script	f_weapon_a3	{

-

-      set @rateit,10;  //success rate

-      set @addprice,800000;

-      set @itemup1,984;

-      set @itemupiece1,2;

-      set @itemupname1$,"2 Oridecon";

-      set @itemup2,999;

-      set @itemupiece2,10;

-      set @itemupname2$,"10 Steel";

-      callfunc "addslot2";

-

-}

-

-function	script	f_weapon_s	{

-

-      set @rateit,4;  //success rate

-      set @addprice,1000000;

-      set @itemup1,984;

-      set @itemupiece1,5;

-      set @itemupname1$,"5 Oridecon";

-      set @itemup2,999;

-      set @itemupiece2,10;

-      set @itemupname2$,"10 Steel";

-      callfunc "addslot2";

-

-}

-

-function	script	f_weapon_s2	{

-

-      set @rateit,4;  //success rate

-      set @addprice,2000000;

-      set @itemup1,984;

-      set @itemupiece1,5;

-      set @itemupname1$,"5 Oridecon";

-      set @itemup2,999;

-      set @itemupiece2,10;

-      set @itemupname2$,"10 Steel";

-      callfunc "addslot2";

-

-}

-

-//= Armor

-

-function	script	f_armor_c	{

-

-      set @rateit,50;  //success rate

-      set @addprice,200000;

-      set @itemup,999;

-      set @itemupiece,3;

-      set @itemupname$,"3 Steel";

-      callfunc "addslot";

-

-}

-

-function	script	f_armor_b	{

-

-      set @rateit,25;  //success rate

-      set @addprice,250000;

-      set @itemup,999;

-      set @itemupiece,5;

-      set @itemupname$,"5 Steel";

-      callfunc "addslot";

-

-}

-

-function	script	f_armor_b2	{

-

-      set @rateit,25;  //success rate

-      set @addprice,300000;

-      set @itemup,999;

-      set @itemupiece,5;

-      set @itemupname$,"5 Steel";

-      callfunc "addslot";

-

-}

-

-function	script	f_armor_a	{

-

-      set @rateit,10;  //success rate

-      set @addprice,300000;

-      set @itemup,985;

-      set @itemupiece,1;

-      set @itemupname$,"1 Elunium";

-      callfunc "addslot";

-

-}

-

-function	script	f_armor_a2	{

-

-      set @rateit,10;  //success rate

-      set @addprice,400000;

-      set @itemup,985;

-      set @itemupiece,1;

-      set @itemupname$,"1 Elunium";

-      callfunc "addslot";

-

-}

-

-function	script	f_armor_s	{

-

-      set @rateit,4;  //success rate

-      set @addprice,1000000;

-      set @itemup,985;

-      set @itemupiece,2;

-      set @itemupname$,"2 Elunium";

-      callfunc "addslot";

-

-}

-

-function	script	f_armor_s2	{

-

-      set @rateit,4;  //success rate

-      set @addprice,2000000;

-      set @itemup,985;

-      set @itemupiece,2;

-      set @itemupname$,"2 Elunium";

-      callfunc "addslot";

-

-}

-

-

-prt_in.gat,33,70,5	duplicate(Socket Enchant)	Socket Enchant#2	84

-payon.gat,140,151,5	duplicate(Socket Enchant)	Socket Enchant#3	84

+//===== eAthena Script =======================================
+//= Socket Enchant
+//===== By: ==================================================
+//= Sousuke_PL
+//===== Current Version: =====================================
+//= 0.3
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= item loses all element refinement and upgrades but
+//= cards too?
+//===== Additional Comments: =================================
+//= 0.1a added missing L_No: to 2 funcs [Lupus]
+//= 0.1b Removed duplicates [Toms]
+//= 0.2	Added missing next;'s [Evera]
+//= 0.3 Fixed Zweihander[+] id [Lupus]
+//============================================================
+
+
+lhz_in02.gat,281,35,5	script	Socket Enchant	84,{
+
+  mes "[Socket Enchant]";
+  mes "Hello.";
+  mes "How can I help you?";
+  next;
+  menu "Upgrade my item",-,"Nothing",L_Not;
+
+  mes "[Socket Enchant]";
+  mes "This is weapon or armor?";
+  next;
+  menu "Weapon",L_Weapon1,"Armor",L_Armor1;
+
+
+//============================================================
+//= Weapon
+//============================================================
+
+  L_WaepJump:
+      mes "[Socket Enchant]";
+      mes "Choose the number of page. Type 1 to 5:";
+      next;
+      input @weapsite;
+      if(@weapsite > 5 || @weapsite < 1) goto L_WaepJump;
+
+      if(@weapsite == 1) goto L_Weapon1;
+      if(@weapsite == 2) goto L_Weapon2;
+      if(@weapsite == 3) goto L_Weapon3;
+      if(@weapsite == 4) goto L_Weapon4;
+      if(@weapsite == 5) goto L_Weapon5; 
+
+
+  L_Weapon1:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Trident[2]",Trident,"Rope[3]",Rope,"Violin[3]",Violin,"Chain[2]",Chain,"Gladius[2]",Gladius,"Gakkung Bow[1]",Gakkung_Bow,"Next",L_Weapon2,"Jump to page...",L_WaepJump;
+
+  L_Weapon2:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Pike[3]",Pike,"Haedonggum[1]",Haedonggum,"Lute[2]",Lute,"Wire Whip[2]",Wire_Whip,"Waghnak[3]",Waghnak,"Arbalest[1]",Arbalest,"Next",L_Weapon3,"Jump to page...",L_WaepJump;
+
+  L_Weapon3:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Hunter Bow",Hunter_Bow,"(Int) Survivor's Rod",Int_Survivors_Rod,"Zweihander",Zweihander,"Flamberge",Flamberge,"Infiltrator",Infiltrator,"Ballista",Ballista,"Next",L_Weapon4,"Jump to page...",L_WaepJump;
+
+  L_Weapon4:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Stunner",Stunner,"Berserk",Berserk,"Claymore",Claymore,"Gungnir",Gungnir,"Poison Knife",Poison_Knife,"Sucsamad",Sucsamad,"Next",L_Weapon5,"Jump to page...",L_WaepJump;
+
+  L_Weapon5:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Ginnungagap",Ginnungagap,"Cutlus",Cutlus,"Crescent Scythe",Crescent_Scythe,"Ice Pick",Ice_Pick,"(Dex) Survivor's Rod",Dex_Survivors_Rod,"Next",L_Weapon1,"Jump to page...",L_WaepJump;
+
+
+      Trident:
+           set @olditem,1460;
+           set @newitem,1461;
+           callfunc "f_weapon_c";
+
+      Rope:
+           set @olditem,1950;
+           set @newitem,1951;
+           callfunc "f_weapon_c";
+
+      Violin:
+           set @olditem,1901;
+           set @newitem,1902;
+           callfunc "f_weapon_c";
+
+      Chain:
+           set @olditem,1519;
+           set @newitem,1520;
+           callfunc "f_weapon_b";
+
+      Gladius:
+           set @olditem,1219;
+           set @newitem,1220;
+           callfunc "f_weapon_b";
+
+      Gakkung_Bow:
+           set @olditem,1714;
+           set @newitem,1716;
+           callfunc "f_weapon_b";
+
+      Pike:
+           set @olditem,1407;
+           set @newitem,1408;
+           callfunc "f_weapon_b";
+
+      Haedonggum:
+           set @olditem,1123;
+           set @newitem,1128;
+           callfunc "f_weapon_b";
+
+      Lute:
+           set @olditem,1905;
+           set @newitem,1906;
+           callfunc "f_weapon_b";
+
+      Wire_Whip:
+           set @olditem,1954;
+           set @newitem,1955;
+           callfunc "f_weapon_b";
+
+      Waghnak:
+           set @olditem,1801;
+           set @newitem,1802;
+           callfunc "f_weapon_b";
+
+      Arbalest:
+           set @olditem,1713;
+           set @newitem,1715;
+           callfunc "f_weapon_b";
+
+      Hunter_Bow:
+           set @olditem,1718;
+           set @newitem,1726;
+           callfunc "f_weapon_a";
+
+      Int_Survivors_Rod:
+           set @olditem,1619;
+           set @newitem,1620;
+           callfunc "f_weapon_a";
+
+      Zweihander:
+           set @olditem,1168;
+           set @newitem,1171;
+           callfunc "f_weapon_a3";
+
+      Flamberge:
+           set @olditem,1129;
+           set @newitem,1149;
+           callfunc "f_weapon_a";
+
+      Infiltrator:
+           set @olditem,1261;
+           set @newitem,1266;
+           callfunc "f_weapon_a2";
+
+      Ballista:
+           set @olditem,1722;
+           set @newitem,1727;
+           callfunc "f_weapon_a";
+
+      Stunner:
+           set @olditem,1522;
+           set @newitem,1532;
+           callfunc "f_weapon_a";
+
+      Berserk:
+           set @olditem,1814;
+           set @newitem,1816;
+           callfunc "f_weapon_a";
+
+      Claymore:
+           set @olditem,1163;
+           set @newitem,1172;
+           callfunc "f_weapon_a";
+
+      Gungnir:
+           set @olditem,1413;
+           set @newitem,1418;
+           callfunc "f_weapon_s";
+
+      Poison_Knife:
+           set @olditem,1239;
+           set @newitem,13016;
+           callfunc "f_weapon_s";
+
+      Sucsamad:
+           set @olditem,1236;
+           set @newitem,13018;
+           callfunc "f_weapon_s";
+
+      Ginnungagap:
+           set @olditem,13002;
+           set @newitem,13019;
+           callfunc "f_weapon_s";
+
+      Cutlus:
+           set @olditem,1135;
+           set @newitem,13400;
+           callfunc "f_weapon_s";
+
+      Crescent_Scythe:
+           set @olditem,1466;
+           set @newitem,1476;
+           callfunc "f_weapon_s";
+
+      Ice_Pick:
+           set @olditem,1230;
+           set @newitem,13017;
+           callfunc "f_weapon_s2";
+
+      Dex_Survivors_Rod:
+           set @olditem,1617;
+           set @newitem,1618;
+           callfunc "f_weapon_s2";
+
+	   
+
+//============================================================
+//= Armor
+//============================================================
+
+  L_ArmorJump:
+      mes "[Socket Enchant]";
+      mes "Choose the number of page. Type 1 to 6:";
+      next;
+      input @armorsite;
+      if(@armorsite > 6 || @armorsite < 1) goto L_ArmorJump;
+
+      if(@armorsite == 1) goto L_Armor1;
+      if(@armorsite == 2) goto L_Armor2;
+      if(@armorsite == 3) goto L_Armor3;
+      if(@armorsite == 4) goto L_Armor4;
+      if(@armorsite == 5) goto L_Armor5;
+      if(@armorsite == 6) goto L_Armor6;
+
+
+  L_Armor1:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Mantle",Mantle,"Coat",Coat,"Circlet",Circlet,"Biretta",Biretta,"Mirror Shield",Mirror_Shield,"Chain Mail",Chain_Mail,"Shield",Shield,"Bongun Hat",Bongun_Hat,"Next",L_Armor2,"Jump to page...",L_ArmorJump;
+
+  L_Armor2:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Saint's Robe",Saints_Robe,"Silk Robe",Silk_Robe,"Boots",Boots,"Shoes",Shoes,"Muffler",Muffler,"Guard",Guard,"Buckler",Buckler,"Munak Hat",Munak_Hat,"Next",L_Armor3,"Jump to page...",L_ArmorJump;
+
+  L_Armor3:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Gemmed Sallet",Gemmed_Sallet,"Bucket Hat",Bucket_Hat,"Memory Book",Memory_Book,"Tights",Tights,"Legion Plate Armor",Legion_Plate_Armor,"Full Plate",Full_Plate,"Thief Clothes",Thief_Clothes,"Next",L_Armor4,"Jump to page...",L_ArmorJump;
+
+  L_Armor4:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Greaves",Greaves,"Coif",Coif,"Manteau",Manteau,"Helm",Helm,"Ninja Suit",Ninja_Suit,"Orc Helm",Orc_Helm,"Ancient Cape",Ancient_Cape,"Next",L_Armor5,"Jump to page...",L_ArmorJump;
+
+  L_Armor5:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Monk Hat",Monk_Hat,"Golden Gear",Golden_Gear,"Brooch",Brooch,"Tiara",Tiara,"Sphinx Hat",Sphinx_Hat,"Robe of Cast",Robe_of_Cast,"Earring",Earring,"Next",L_Armor6,"Jump to page...",L_ArmorJump;
+
+  L_Armor6:
+
+      close2;
+      mes "[Socket Enchant]";
+      mes "Please choose your item:";
+      next;
+      menu "Ring",Ring,"Bow Thimble",Bow_Thimble,"Majestic Goat",Majestic_Goat,"Spiky Band",Spiky_Band,"Bone Helm",Bone_Helm,"Corsair",Corsair,"Crown",Crown,"Next",L_Armor1,"Jump to page...",L_ArmorJump;
+
+
+      Mantle:
+           set @olditem,2307;
+           set @newitem,2308;
+           callfunc "f_armor_c";
+
+      Coat:
+           set @olditem,2309;
+           set @newitem,2310;
+           callfunc "f_armor_c";
+
+      Circlet:
+           set @olditem,2232;
+           set @newitem,2233;
+           callfunc "f_armor_c";
+
+      Biretta:
+           set @olditem,2216;
+           set @newitem,2217;
+           callfunc "f_armor_c";
+
+      Mirror_Shield:
+           set @olditem,2107;
+           set @newitem,2108;
+           callfunc "f_armor_b";
+
+      Chain_Mail:
+           set @olditem,2314;
+           set @newitem,2315;
+           callfunc "f_armor_b";
+
+      Shield:
+           set @olditem,2105;
+           set @newitem,2106;
+           callfunc "f_armor_b";
+
+      Bongun_Hat:
+           set @olditem,5046;
+           set @newitem,5168;
+           callfunc "f_armor_b";
+
+      Saints_Robe:
+           set @olditem,2325;
+           set @newitem,2326;
+           callfunc "f_armor_b2";
+
+      Silk_Robe:
+           set @olditem,2321;
+           set @newitem,2322;
+           callfunc "f_armor_b2";
+
+      Boots:
+           set @olditem,2405;
+           set @newitem,2406;
+           callfunc "f_armor_b2";
+
+      Shoes:
+           set @olditem,2403;
+           set @newitem,2404;
+           callfunc "f_armor_b2";
+
+      Muffler:
+           set @olditem,2503;
+           set @newitem,2504;
+           callfunc "f_armor_b2";
+
+      Guard:
+           set @olditem,2101;
+           set @newitem,2102;
+           callfunc "f_armor_b2";
+
+      Buckler:
+           set @olditem,2103;
+           set @newitem,2104;
+           callfunc "f_armor_b2";
+
+      Munak_Hat:
+           set @olditem,2264;
+           set @newitem,5167;
+           callfunc "f_armor_a";
+
+      Gemmed_Sallet:
+           set @olditem,2230;
+           set @newitem,2231;
+           callfunc "f_armor_a2";
+
+      Bucket_Hat:
+           set @olditem,5114;
+           set @newitem,5120;
+           callfunc "f_armor_a2";
+
+      Memory_Book:
+           set @olditem,2109;
+           set @newitem,2121;
+           callfunc "f_armor_a2";
+
+      Tights:
+           set @olditem,2330;
+           set @newitem,2331;
+           callfunc "f_armor_a2";
+
+      Legion_Plate_Armor:
+           set @olditem,2341;
+           set @newitem,2342;
+           callfunc "f_armor_a2";
+
+      Full_Plate:
+           set @olditem,2316;
+           set @newitem,2317;
+           callfunc "f_armor_a2";
+
+      Thief_Clothes:
+           set @olditem,2335;
+           set @newitem,2336;
+           callfunc "f_armor_a2";
+
+      Greaves:
+           set @olditem,2411;
+           set @newitem,2412;
+           callfunc "f_armor_a2";
+
+      Coif:
+           set @olditem,5092;
+           set @newitem,5093;
+           callfunc "f_armor_a2";
+
+      Manteau:
+           set @olditem,2505;
+           set @newitem,2506;
+           callfunc "f_armor_a2";
+
+      Helm:
+           set @olditem,2228;
+           set @newitem,2229;
+           callfunc "f_armor_a2";
+
+      Ninja_Suit:
+           set @olditem,2337;
+           set @newitem,2359;
+           callfunc "f_armor_a2";
+
+      Orc_Helm:
+           set @olditem,2299;
+           set @newitem,5157;
+           callfunc "f_armor_a2";
+
+      Ancient_Cape:
+           set @olditem,2507;
+           set @newitem,2525;
+           callfunc "f_armor_a2";
+
+      Monk_Hat:
+           set @olditem,2251;
+           set @newitem,5158;
+           callfunc "f_armor_a2";
+
+      Golden_Gear:
+           set @olditem,2246;
+           set @newitem,5159;
+           callfunc "f_armor_a2";
+
+      Brooch:
+           set @olditem,2605;
+           set @newitem,2625;
+           callfunc "f_armor_a2";
+
+      Tiara:
+           set @olditem,2234;
+           set @newitem,5164;
+           callfunc "f_armor_s2";
+
+      Sphinx_Hat:
+           set @olditem,5053;
+           set @newitem,5166;
+           callfunc "f_armor_s";
+
+      Robe_of_Cast:
+           set @olditem,2343;
+           set @newitem,2360;
+           callfunc "f_armor_s";
+
+      Earring:
+           set @olditem,2602;
+           set @newitem,2622;
+           callfunc "f_armor_s";
+
+      Ring:
+           set @olditem,2601;
+           set @newitem,2621;
+           callfunc "f_armor_s";
+
+      Bow_Thimble:
+           set @olditem,2619;
+           set @newitem,2671;
+           callfunc "f_armor_s";
+
+      Majestic_Goat:
+           set @olditem,2256;
+           set @newitem,5160;
+           callfunc "f_armor_s2";
+
+      Spiky_Band:
+           set @olditem,2258;
+           set @newitem,5161;
+           callfunc "f_armor_s2";
+
+      Bone_Helm:
+           set @olditem,5017;
+           set @newitem,5162;
+           callfunc "f_armor_s2";
+
+      Corsair:
+           set @olditem,5019;
+           set @newitem,5163;
+           callfunc "f_armor_s2";
+
+      Crown:
+           set @olditem,2235;
+           set @newitem,5165;
+           callfunc "f_armor_s2";
+
+//============================================================
+//= Other
+//============================================================
+
+  L_Not:
+      mes "[Socket Enchant]";
+      mes "Bye~!";
+      close;
+
+}
+
+//============================================================
+//= Functions add slots
+//============================================================
+
+function	script	addslot	{
+
+      mes "[Socket Enchant]";
+      mes "Upgrade cost "+@addprice+" zeny and ^5533FF"+@itemupname$+"^000000.";
+      next;
+      mes "[Socket Enchant]";
+      mes "Are you sure? Remember that it can fail.";
+      mes "Do you want to continue?";
+      next;
+      menu "Yes",-,"No",L_No;
+
+
+           if(countitem(@olditem)<1) goto L_NoItem;
+           if(Zeny<@addprice) goto L_NoZeny;
+           if(countitem(@itemup)<@itemupiece) goto L_NoItemUp;
+
+           delitem @itemup,@itemupiece;
+           set Zeny,Zeny-@addprice;
+           delitem @olditem,1;
+           if(@rateit<rand(1,100))goto L_Fail;
+           misceffect 83;
+           getitem @newitem,1;
+
+      mes "[Socket Enchant]";
+      mes "Ok, take your item, Bye.";
+      close;
+
+
+  L_NoItem:
+      mes "[Socket Enchant]";
+      mes "You don't have this item.";
+      mes "Come back when you get it.";
+      close;
+
+  L_NoItemUp:
+      mes "[Socket Enchant]";
+      mes "You don't have all ingridients. Come back when you get it.";
+      close;
+
+  L_NoZeny:
+      mes "[Socket Enchant]";
+      mes "You don't have enough money. Come back later.";
+      close;
+
+  L_Fail:
+      misceffect 183;
+      mes "[Socket Enchant]";
+      mes "Sorry, but i could't upgrade it.";
+      close;
+
+  L_No:
+      mes "[Socket Enchant]";
+      mes "Ok, Bye.";
+      close;
+     
+}
+
+//============================================================
+
+function	script	addslot2	{
+
+      mes "[Socket Enchant]";
+      mes "Upgrade cost "+@addprice+" zeny and ^5533FF"+@itemupname1$+"^000000 and ^5533FF"+@itemupname2$+"^000000.";
+      next;
+      mes "[Socket Enchant]";
+      mes "Are you sure? Remember that it can fail.";
+      mes "Do you want to continue?";
+      next;
+      menu "Yes",-,"No",L_No;
+
+
+           if(countitem(@olditem)<1) goto L_NoItem;
+           if(Zeny<@addprice) goto L_NoZeny;
+           if((countitem(@itemup1)<@itemupiece1) && (countitem(@itemup2)<@itemupiece2)) goto L_NoItemUp;
+
+           delitem @itemup1,@itemupiece1;
+           delitem @itemup2,@itemupiece2;
+           set Zeny,Zeny-@addprice;
+           delitem @olditem,1;
+           if(@rateit<rand(1,100))goto L_Fail;
+           misceffect 83;
+           getitem @newitem,1;
+
+      mes "[Socket Enchant]";
+      mes "Ok, take your item, Bye.";
+      close;
+
+      
+  L_NoItem:
+      mes "[Socket Enchant]";
+      mes "You don't have this item.";
+      mes "Come back when you get it.";
+      close;
+
+  L_NoItemUp:
+      mes "[Socket Enchant]";
+      mes "You don't have all ingridients. Come back when you get it.";
+      close;
+
+  L_NoZeny:
+      mes "[Socket Enchant]";
+      mes "You don't have enough money. Come back later.";
+      close;
+
+  L_Fail:
+      misceffect 183;
+      mes "[Socket Enchant]";
+      mes "Sorry, but i could't upgrade it.";
+      close;
+
+  L_No:
+      mes "[Socket Enchant]";
+      mes "Ok, Bye.";
+      close;
+
+}
+
+
+//============================================================
+//= Functions
+//============================================================
+
+//= Weapon
+
+function	script	f_weapon_c	{
+  
+      set @rateit,50;  //success rate
+      set @addprice,200000;
+      set @itemup,1010;
+      set @itemupiece,10;
+      set @itemupname$,"10 Phracon";
+      callfunc "addslot";
+
+}
+
+function	script	f_weapon_b	{
+
+      set @rateit,25;  //success rate
+      set @addprice,300000;
+      set @itemup1,984;
+      set @itemupiece1,2;
+      set @itemupname1$,"2 Oridecon";
+      set @itemup2,999;
+      set @itemupiece2,5;
+      set @itemupname2$,"5 Steel";
+      callfunc "addslot2";
+
+}
+
+function	script	f_weapon_a	{
+
+      set @rateit,10;  //success rate
+      set @addprice,500000;
+      set @itemup1,984;
+      set @itemupiece1,2;
+      set @itemupname1$,"2 Oridecon";
+      set @itemup2,999;
+      set @itemupiece2,10;
+      set @itemupname2$,"10 Steel";
+      callfunc "addslot2";
+
+}
+
+function	script	f_weapon_a2	{
+
+      set @rateit,10;  //success rate
+      set @addprice,700000;
+      set @itemup1,984;
+      set @itemupiece1,2;
+      set @itemupname1$,"2 Oridecon";
+      set @itemup2,999;
+      set @itemupiece2,10;
+      set @itemupname2$,"10 Steel";
+      callfunc "addslot2";
+
+}
+
+function	script	f_weapon_a3	{
+
+      set @rateit,10;  //success rate
+      set @addprice,800000;
+      set @itemup1,984;
+      set @itemupiece1,2;
+      set @itemupname1$,"2 Oridecon";
+      set @itemup2,999;
+      set @itemupiece2,10;
+      set @itemupname2$,"10 Steel";
+      callfunc "addslot2";
+
+}
+
+function	script	f_weapon_s	{
+
+      set @rateit,4;  //success rate
+      set @addprice,1000000;
+      set @itemup1,984;
+      set @itemupiece1,5;
+      set @itemupname1$,"5 Oridecon";
+      set @itemup2,999;
+      set @itemupiece2,10;
+      set @itemupname2$,"10 Steel";
+      callfunc "addslot2";
+
+}
+
+function	script	f_weapon_s2	{
+
+      set @rateit,4;  //success rate
+      set @addprice,2000000;
+      set @itemup1,984;
+      set @itemupiece1,5;
+      set @itemupname1$,"5 Oridecon";
+      set @itemup2,999;
+      set @itemupiece2,10;
+      set @itemupname2$,"10 Steel";
+      callfunc "addslot2";
+
+}
+
+//= Armor
+
+function	script	f_armor_c	{
+
+      set @rateit,50;  //success rate
+      set @addprice,200000;
+      set @itemup,999;
+      set @itemupiece,3;
+      set @itemupname$,"3 Steel";
+      callfunc "addslot";
+
+}
+
+function	script	f_armor_b	{
+
+      set @rateit,25;  //success rate
+      set @addprice,250000;
+      set @itemup,999;
+      set @itemupiece,5;
+      set @itemupname$,"5 Steel";
+      callfunc "addslot";
+
+}
+
+function	script	f_armor_b2	{
+
+      set @rateit,25;  //success rate
+      set @addprice,300000;
+      set @itemup,999;
+      set @itemupiece,5;
+      set @itemupname$,"5 Steel";
+      callfunc "addslot";
+
+}
+
+function	script	f_armor_a	{
+
+      set @rateit,10;  //success rate
+      set @addprice,300000;
+      set @itemup,985;
+      set @itemupiece,1;
+      set @itemupname$,"1 Elunium";
+      callfunc "addslot";
+
+}
+
+function	script	f_armor_a2	{
+
+      set @rateit,10;  //success rate
+      set @addprice,400000;
+      set @itemup,985;
+      set @itemupiece,1;
+      set @itemupname$,"1 Elunium";
+      callfunc "addslot";
+
+}
+
+function	script	f_armor_s	{
+
+      set @rateit,4;  //success rate
+      set @addprice,1000000;
+      set @itemup,985;
+      set @itemupiece,2;
+      set @itemupname$,"2 Elunium";
+      callfunc "addslot";
+
+}
+
+function	script	f_armor_s2	{
+
+      set @rateit,4;  //success rate
+      set @addprice,2000000;
+      set @itemup,985;
+      set @itemupiece,2;
+      set @itemupname$,"2 Elunium";
+      callfunc "addslot";
+
+}
+
+
+prt_in.gat,33,70,5	duplicate(Socket Enchant)	Socket Enchant#2	84
+payon.gat,140,151,5	duplicate(Socket Enchant)	Socket Enchant#3	84
 morocc.gat,51,41,5	duplicate(Socket Enchant)	Socket Enchant#4	84
\ No newline at end of file