Added Complete Eclage NPCs,Quests and Instances

1 files changed, 296 insertions, 253 deletions

diff --git a/npc/re/merchants/coin_exchange.txt b/npc/re/merchants/coin_exchange.txt
index 4d69e2a61..5c3c69005 100644
--- a/npc/re/merchants/coin_exchange.txt
+++ b/npc/re/merchants/coin_exchange.txt
@@ -3,7 +3,7 @@
 //===== By: ==================================================
 //= Hercules Dev Team
 //===== Current Version: =====================================
-//= 1.2
+//= 1.2a
 //===== Description: =========================================
 //= [Official Conversion]
 //= Renewal coin redemption NPCs.
@@ -11,6 +11,7 @@
 //= 1.0 First version. [Euphy/Lemongrass]
 //= 1.1 Added remaining Malangdo traders. [Euphy/Lemongrass]
 //= 1.2 Added Eclage traders (not fully complete). [Euphy]
+//= 1.2a Completed Eclage Traders. [Dastgir]
 //============================================================
 
 // Malangdo
@@ -827,209 +828,270 @@ malangdo,150,135,5	script	Roving Merchant	4_M_MERCAT1,{
 
 // Eclage
 //============================================================
-ecl_in01,66,95,2	script	Armor Merchant Naphara	4_F_FAIRYKID,{
+ecl_in01,66,95,3	script	Armor Merchant Naphara#e	4_F_FAIRYKID,{
+	if (!checkweight(Axe,3)) {
+		mes "- Stop Here!! -";
+		mes "- You have too many items. -";
+		mes "- You cannot carry any more items. -";
+		mes "- Lighten your load and -";
+		mes "- try again. -";
+		close;
+	}
 	mes "[Armor Merchant]";
 	mes "Hello, this is Naphara's store, a place of high class goods.";
 	mes "What would you need?";
 	next;
-	.@i = select("Str Glove:Int Glove:Agi Glove:Vit Glove:Dex Glove:Luk Glove");
+	.@choice = select("Str Glove:Int Glove:Agi Glove:Vit Glove:Dex Glove:Luk Glove");
+	.@choice -= 1;
 	mes "[Armor Merchant]";
-	switch(.@i) {
-	case 1: // Str Glove
-		mes "^3131FFStr Glove^000000";
-		mes "^3131FFMHP + 100, MSP + 20^000000";
-		mes "^3131FFATK+1 increases for every STR+10^000000";
-		mes "^3131FFATK +1% added above STR 110^000000";
-		.@item = 2917; //Str_Glove
-		break;
-	case 2:
-		mes "^3131FFInt Glove^000000";
-		mes "^3131FFMHP + 100, MSP + 20^000000";
-		mes "^3131FFMATK+1 increases for every INT+10^000000";
-		mes "^3131FFMATK +1% added above INT 110^000000";
-		.@item = 2918; //Int_Glove
-		break;
-	case 3:
-		mes "^3131FFAgi Glove^000000";
-		mes "^3131FFMHP + 100, MSP + 20^000000";
-		mes "^3131FFFLEE+1 increases for every AGI+10^000000";
-		mes "^3131FFComplete Flee +1 added above AGI 110^000000";
-		.@item = 2919; //Agi_Glove
-		break;
-	case 4:
-		mes "^3131FFVit Glove^000000";
-		mes "^3131FFMHP + 100, MSP + 20^000000";
-		mes "^3131FFMHP+50 for every VIT+10^000000";
-		mes "^3131FFMHP+1% added above VIT 110^000000";
-		.@item = 2920; //Vit_Glove
-		break;
-	case 5:
-		mes "^3131FFDex Glove^000000";
-		mes "^3131FFMHP + 100, MSP + 20^000000";
-		mes "^3131FFHIT+1 increases for every DEX+10^000000";
-		mes "^3131FFRanged attack power +1% added above DEX 110^000000";
-		.@item = 2921; //Dex_Glove
-		break;
-	case 6:
-		mes "^3131FFLuk Glove^000000";
-		mes "^3131FFMHP + 100, MSP + 20^000000";
-		mes "^3131FFCRI+1 increases for every LUK+10^000000";
-		mes "^3131FFCritical damage +1% added above LUK 110^000000";
-		.@item = 2922; //Luk_Glove
-		break;
-	}
+	mes "^3131FF" + .name$[.@choice] + " For ^000000,";
+	mes "^3131FFMHP + 100, MSP + 20^000000";
+	mes "^3131FF" + .descript$[.@choice] + "^000000";
+	mes "^3131FF" + .descript2$[.@choice] + "^000000";
 	mes "^3131FFRequired Level: 100^000000";
-	mes "^3131FFSlot: 0^000000";
-	mes "^3131FFWeight: 10^000000";
+	mes "^3131FFSlot:0^000000";
+	mes "^3131FFWeight:10^000000";
 	mes "are the characteristic options.";
 	next;
 	mes "[Armor Merchant]";
 	mes "It costs 10 Splendide Coins.";
 	mes "Would you like to buy it?";
 	next;
-	if(select("Buy it.:Don't buy it.") == 2)
-		close;
-	if (countitem(6081) < 10) {
+	if (select("Buy it.:Don't buy it.")==1) {
+		if (countitem(Splendide_Coin) < 10) {
+			mes "[Armor Merchant]";
+			mes "It seems like you don't have enough coins.";
+			close;
+		}
+		delitem Splendide_Coin,10; //Splendide_Coin
+		getitem (.@choice+2917),1;
 		mes "[Armor Merchant]";
-		mes "It seems like you don't have enough coins.";
-		close;
+		mes "Great, it's yours. Thank you.";
 	}
-	mes "[Armor Merchant]";
-	mes "Here you go!"; //custom
-	delitem 6081,10; //Splendide_Coin
-	getitem .@item,1;
 	close;
+
+OnInit:
+	setarray .name$[0],"Str Glove","Int Glove","Agi Glove","Vit Glove","Dex Glove","Luk Glove";
+	setarray .descript$[0],"ATK+1 increases for every STR+10",
+							"MATK+1 increases for every INT+10",
+							"FLEE+1 increases for every AGI+10",
+							"MHP+50 for every VIT+10",
+							"HIT+1 increases for every DEX+10",
+							"CRI+1 increases for every LUK+10";
+	setarray .descript2$[0],"ATK +1% added above STR 110",
+							"MATK +1% added above INT 110",
+							"Complete Flee +1 added above AGI 110",
+							"MHP+1 added above VIT 110",
+							"Ranged attack power +1% added above DEX 110",
+							"Critical damage +1% added above LUK 110";
+	end;
 }
 
-ecl_in01,64,97,4	script	Slot Expert Nattuer#ecl	4_F_FAIRYKID,{
+ecl_in01,64,97,5	script	Slot Expert Nattuer#ecl	4_F_FAIRYKID,{
+	disable_items;
 	mes "[Slot Expert]";
 	mes "I am Slot Expert Nattuer.";
 	mes "If you bring me an item from my little brother Naphara along with 5 Splendide Coins, I will open up one Slot for you.";
 	next;
-	if(select("Activate a Slot.:Forget it.") == 2)
+	if (select("Activate a Slot.:Forget it.")==2){
 		close;
+	}
 	mes "[Slot Expert]";
 	mes "Slot activation is an extremely difficult procedure that can fail even with heightened care and the use of a magnifying lens.";
 	next;
 	mes "[Slot Expert]";
 	mes "Of course, if your heart were as big as that flower-filled land, you wouldn't mind. Right? Should I go for it?";
 	next;
-	if(select("Continue.:Forget it.") == 2)
+	if (select("Continue.:Forget it.")==2) {
 		close;
+	}
 	mes "[Slot Expert]";
 	mes "Which item would you like to activate with a Slot?";
 	next;
-	setarray .@noslots[0],2917,2918,2919,2920,2921,2922;
-	setarray .@slotted[0],2923,2924,2925,2926,2927,2928;
-	.@i = select("Str Glove:Int Glove:Ag Glove:Vit Glove:Dex Glove:Luk Glove")-1;
-	.@item = .@noslots[.@i];
-	.@new_item = .@slotted[.@i];
+	.@choice = select("Str Glove:Int Glove:Ag Glove:Vit Glove:Dex Glove:Luk Glove");
+	.@choice += 2916;
 	mes "[Slot Expert]";
-	mes "Let's confirm for the last time. Is the one you want "+getitemname(.@item)+"?";
+	mes "Let's confirm for the last time. Is the one you want " + getitemname(.@choice) + "?";
 	next;
-	if(select("Yes:No") == 2) {
+	if (select("Yes:No")==2) {
 		mes "[Slot Expert]";
 		mes "Why don't you talk to me when you know for sure.";
 		close;
 	}
-	if (countitem(.@item) == 0) {
+	if (countitem(.@choice) < 1) {
 		mes "[Slot Expert]";
 		mes "You don't have that item. Why don't you talk to me when you know for sure.";
 		close;
 	}
-	if (countitem(6081) < 5) {
+	if (countitem(Splendide_Coin) < 5) {
 		mes "[Slot Expert]";
-		mes "You don't have enough coins. Why don't you talk to me when you know for sure."; //custom
+		mes "You don't have enough coins. Why don't you talk to me when you know for sure.";
 		close;
 	}
-	delitem 6081,5; //Splendide_Coin
-	delitem .@item,1;
-	//custom to the end
-	if (rand(100) < 5) {
-		mes "[Slot Expert]";
-		mes "Oh no, it failed! I'm sorry, but I warned you this could happen. Better luck next time.";
+	progressbar "0xFFFF00",3;
+	mes "[Slot Expert]";
+	delitem Splendide_Coin,5; //Splendide_Coin
+	.@luckyday = rand(1,99);
+	if ( .@luckyday%20 ){
+		emotion e_dots;
+		delitem .@choice,1;
+		mes "Shoot, I'm sorry. It failed.";
+		mes "But I'm sure it will work next time. I have a feeling.";
 		close;
 	}
-	mes "[Slot Expert]";
-	mes "Success! I've activated the slot.";
-	getitem .@new_item,1;
+	emotion e_no1;
+	delitem .@choice,1;
+	getitem (.@choice+6),1;
+	mes "My eyes feel like they're gonna pop out.";
+	mes "Nonetheless, congratulations. Slot activation was successful.";
 	close;
 }
 
-ecl_in01,67,39,4	script	Replication Expert Palt	4_M_FAIRYKID4,{
+ecl_in01,33,98,5	script	Armor Merchant Naphara#ec	4_M_FAIRYKID2,{
+	if (checkweight(Axe,1)==0) {
+		mes "- Stop Here!! -";
+		mes "- You have too many items. -";
+		mes "- You cannot carry any more items. -";
+		mes "- Lighten your load and -";
+		mes "- try again. -";
+		close;
+	}
+	mes "[Herb Merchant]";
+	mes "Welcome, this is Plafina's Herb Store where only the freshest herbs are provided~!";
+	next;
+	.@item = select("Snow Flip:Peony Mommy:Slapping Herb:Yggdrasil Dust:End conversation")-1;
+	if (.@item==4){
+		mes "[Herb Merchant]";
+		mes "Come back anytime.";
+		close;
+	}
+	mes "[Herb Merchant]";
+	switch (.@item){
+		case 0:
+			mes "Snow Flip has special effects on ^3131FFBurning, Bleeding, Deep Sleep, Sleep^000000.";
+			break;
+		case 1:
+			mes "Peony Mamy has special effects on ^3131FFFrost, Frozen, Freezing^000000";
+			break;
+		case 2:
+			mes "Slapping Herb has special effects on ^3131FFStun, Fear, Chaos, Hallucination^000000";
+			break;
+		case 3:
+			mes "Yggdrasil Dust has special effects on ^3131FFBlind, Curse, Decrease Agility, Reverse Orcish^000000.";
+			break;
+	}
+	mes "Requires 5 seconds between uses.";
+	mes "It costs "+ .cost[.@item] +" Splendide Coins for each.";
+	next;
+	.@buy = select("Buy 1.:Buy 10.:Don't buy.");
+	if (.@buy==3){
+		close;
+	}
+	if (.@buy==2){
+		.@buy = 10;
+	}
+	mes "[Herb Merchant]";
+	mes "Would you like to buy "+ .@buy +" "+ getitemname(.items[.@item]) +"?";
+	next;
+	if (select("Buy.:Don't buy.")==2){
+		close;
+	}
+	if (countitem(Splendide_Coin) < (.cost[.@item]*.@buy) ) {
+		mes "[Herb Merchant]";
+		mes "You don't have enough coins.";
+		close;
+	}
+	mes "[Herb Merchant]";
+	mes "Thank you for your business.";
+	delitem Splendide_Coin,.cost[.@item]*.@buy; //Splendide_Coin
+	getitem Snow_Flip,.@buy;
+	close;
+	
+OnInit:
+	setarray .items[0],Snow_Flip,Peony_Mommy,Slapping_Herb,Yggdrasil_Dust;
+	setarray .cost[0],5,5,1,1;	//Splendide Coins
+	end;
+}
+
+ecl_in01,67,39,4	script	Replication Expert Paltu	4_M_FAIRYKID4,{
+	if (checkweight(Axe,3)==0) {
+		mes "You have too many items to continue.";
+		close;
+	}
 	emotion e_lv;
 	mes "[Paltu]";
 	mes "Woohoo- Greetings. What are you looking for? Lots of goods here.";
 	next;
-	switch(select("No thanks.:Replication?:I know you got lots up your sleeve!")) {
-	case 1:
-		emotion e_an;
-		mes "[Paltu]";
-		mes "Really? Hmm?";
-		close;
-	case 2:
-		mes "[Paltu]";
-		mes "One can say that there's no one better in Eclage than I at utilizing magic resistance.";
-		next;
-		mes "[Paltu]";
-		mes "I'll give you a good price whatever it is. Just trust me.";
-		next;
-		select("Could you do something for me?");
-		emotion e_no1;
-		mes "[Paltu]";
-		mes "Hey, I like your attitude.";
-		next;
-		mes "[Paltu]";
-		mes "Ah- you know the hat you're wearing?";
-		next;
-		emotion e_what;
-		mes "[Paltu]";
-		mes "Don't you have any of those hats lying around in storage that are solid but too ugly to wear? You do, right?";
-		next;
-		select(".........");
-		emotion e_dots,1;
-		emotion e_heh;
-		mes "[Paltu]";
-		mes "See! I knew it. I knew it from the first minute.";
-		next;
-		mes "[Paltu]";
-		mes "If you bring me ^ff0000 50 Splendide Coins and the ingredients^000000, I'll make you a new hat in the same shape but worn as a ^ff0000Costume^000000.";
-		next;
-		mes "[Paltu]";
-		mes "Hmm, what was it...?";
-		mes "I think you adventurers call them ^0571B0Costumes^000000? right?";
-		next;
-		select("Yes~ What do you need?");
-		mes "[Paltu]";
-		mes "I need 1 ^0571B0hat to replicate^000000 and";
-		mes "I need ^E1281E 4 Crystal Mirrors^000000 for magic resistance, ^E1281E 1 Fairy Magic Powder^000000 as the catalyst, and ^E1281E Emerald, Ruby, Sapphire, Topaz, and Zircon, 10 of each^000000, to be used for amplifying the magic power.";
-		next;
-		emotion e_no;
-		mes "[Paltu]";
-		mes "There's quite a lot of ingredients, right? Well, I can't do anything about that. Dealing with magic power is not a joke.";
-		next;
-		select("Which hats can be replicated?");
-		mes "[Paltu]";
-		mes "Oh! You're pretty sharp!";
-		mes "Almost forgot the most important thing.";
-		next;
-		mes "[Paltu]";
-		mes "Hats that I can replicate are:";
-		mes "^0571B0Frog Hat, Romantic Flower, Magestic Goat, Blush, Valkyrie Helm, Deviruchi Hat, Assassin Mask, Elven Ears, Hahoe Mask, and Boys Cap^000000 a total of 10 types.";
-		next;
-		mes "[Paltu]";
-		mes "What do you think? I'll make it happen as long as I have the ingredients and the compensation.";
-		next;
-		if(select("I'll do it later.:Show me what you got!") == 1) {
-			emotion e_dots;
+	switch (select("No thanks.:Replication?:I know you got lots up your sleeve!")) {
+		case 1:
+			emotion e_an;
 			mes "[Paltu]";
-			mes "What? Are you kidding me? Please tell me you are!";
+			mes "Really? Hmm?";
 			close;
-		}
-		break;
-	case 3:
-		break;
+			
+		case 2:
+			mes "[Paltu]";
+			mes "One can say that there's no one better in Eclage than I at utilizing magic resistance.";
+			next;
+			mes "[Paltu]";
+			mes "I'll give you a good price whatever it is. Just trust me.";
+			next;
+			select("Could you do something for me?");
+			emotion e_no1;
+			mes "[Paltu]";
+			mes "Hey, I like your attitude.";
+			next;
+			mes "[Paltu]";
+			mes "Ah- you know the hat you're wearing?";
+			next;
+			emotion e_what;
+			mes "[Paltu]";
+			mes "Don't you have any of those hats lying around in storage that are solid but too ugly to wear? You do, right?";
+			next;
+			select(".........");
+			emotion e_dots,1;
+			emotion e_heh;
+			mes "[Paltu]";
+			mes "See! I knew it. I knew it from the first minute.";
+			next;
+			mes "[Paltu]";
+			mes "If you bring me ^ff0000 50 Splendide Coins and the ingredients^000000, I'll make you a new hat in the same shape but worn as a ^ff0000Costume^000000.";
+			next;
+			mes "[Paltu]";
+			mes "Hmm, what was it...?";
+			mes "I think you adventurers call them ^0571B0Costumes^000000? right?";
+			next;
+			select("Yes~ What do you need?");
+			mes "[Paltu]";
+			mes "I need 1 ^0571B0hat to replicate^000000 and";
+			mes "I need ^E1281E 4 Crystal Mirrors^000000 for magic resistance, ^E1281E 1 Fairy Magic Powder^000000 as the catalyst, and ^E1281E Emerald, Ruby, Sapphire, Topaz, and Zircon, 10 of each^000000, to be used for amplifying the magic power.";
+			next;
+			emotion e_no;
+			mes "[Paltu]";
+			mes "There's quite a lot of ingredients, right? Well, I can't do anything about that. Dealing with magic power is not a joke.";
+			next;
+			select("Which hats can be replicated?");
+			mes "[Paltu]";
+			mes "Oh! You're pretty sharp!";
+			mes "Almost forgot the most important thing.";
+			next;
+			mes "[Paltu]";
+			mes "Hats that I can replicate are:";
+			mes "^0571B0Frog Hat, Romantic Flower, Magestic Goat, Blush, Valkyrie Helm, Deviruchi Hat, Assassin Mask, Elven Ears, Hahoe Mask, and Boys Cap^000000 a total of 10 types.";
+			next;
+			mes "[Paltu]";
+			mes "What do you think? I'll make it happen as long as I have the ingredients and the compensation.";
+			next;
+			if (select("I'll do it later.:Show me what you got!") == 1) {
+				emotion e_dots;
+				mes "[Paltu]";
+				mes "What? Are you kidding me? Please tell me you are!";
+				close;
+			}
+			break;
 	}
+	disable_items;
+	emotion e_lv2;
 	mes "[Paltu]";
 	mes "Oh wow.";
 	mes "You made the right call. I thought I was going to starve to death because the Laphines have no interest in pretty hats.";
@@ -1040,134 +1102,115 @@ ecl_in01,67,39,4	script	Replication Expert Palt	4_M_FAIRYKID4,{
 	mes "[Paltu]";
 	mes "Is there something you had in mind? Why don't you take a look?";
 	next;
-	setarray .@items[0],
-		5447, //Frog_Cap
-		2269, //Centimental_Flower
-		2256, //Magestic_Goat
-		5040, //Blush
-		5171, //Valkyrie_Helm
-		5038, //Deviruchi_Cap
-		5096, //Assassin_Mask_
-		2286, //Elven_Ears
-		5176, //Hahoe_Mask
-		5016; //Boy's_Cap
-	setarray .@costumes[0],
-		19548, //C_Frog_Cap
-		19552, //C_Centimental_Flower
-		19549, //C_Magestic_Goat
-		19550, //C_Blush
-		19546, //C_Valkyrie_Helm
-		19547, //C_Deviruchi_Cap
-		19553, //C_Assassin_Mask_
-		19551, //C_Elven_Ears
-		0,     //-- not implemented? --
-		19545; //C_Boys_Cap
-	if (countitem(6081) >= 50 && countitem(747) >= 4 && countitem(6395) >= 1 && countitem(721) >= 10 && countitem(723) >= 10 && countitem(726) >= 10 && countitem(728) >= 10 && countitem(729) >= 10)
-		.@item_check = 1;
-	for(.@i = 0; .@i<getarraysize(.@items); ++.@i) {
+	setarray .@items[0],Frog_Cap,
+						Centimental_Flower,
+						Magestic_Goat,
+						Blush,
+						Valkyrie_Helm,
+						Deviruchi_Cap,
+						Assassin_Mask_,
+						Elven_Ears,
+						Hahoe_Mask,
+						Boy's_Cap;
+	setarray .@costumes[0], C_Frog_Cap,
+							C_Centimental_Flower,
+							C_Magestic_Goat,
+							C_Blush,
+							C_Valkyrie_Helm,
+							C_Deviruchi_Cap,
+							C_Assassin_Mask_,
+							C_Elven_Ears,
+							C_Hahoe_Mask,
+							C_Boy's_Cap;
+	if ((countitem(Splendide_Coin) >= 50) && (countitem(Crystal_Mirror) >= 4) && countitem(Angel_Magic_Power) && (countitem(Azure_Jewel) >= 10) && (countitem(Cardinal_Jewel) >= 10) && (countitem(Blue_Jewel) >= 10) && (countitem(Golden_Jewel) >= 10) && (countitem(Bluish_Green_Jewel) >= 10))
+		.@item_check =1;
+	
+	for(.@i = 0; .@i<getarraysize(.@items); .@i++) {
 		if (.@item_check && countitem(.@items[.@i]))
-			.@menu$ += getitemname(.@items[.@i])+":"; //custom
+			.@menu$ = .@menu$+getitemname(.@items[.@i])+" (^2502FDAble to Replicate^000000):";
 		else
-			.@menu$ += getitemname(.@items[.@i])+" (^777777Insufficient ingredients^000000):";
+			.@menu$ = .@menu$+getitemname(.@items[.@i])+" (^777777Insufficient ingredients^000000):";
 	}
 	.@i = select(.@menu$)-1;
-	.@item = .@items[.@i];
-	.@new_item = .@costumes[.@i];
 	mes "[Paltu]";
-	mes "Is ^0571B0"+getitemname(.@item)+"^000000 what you wanted?";
+	mes "Is ^0571B0"+getitemname(.@items[.@i])+"^000000 what you wanted?";
 	next;
-	if (.@item_check == 0 || countitem(.@item) == 0) {
+	if (.@item_check == 0 || countitem(.@items[.@i]) == 0) {
 		emotion e_sob;
 		mes "[Paltu]";
 		mes "Ay... Credit purchases are difficult for me.";
 		next;
 		mes "[Paltu]";
-		mes "^0571B0"+getitemname(.@item)+"^000000 and";
+		mes "^0571B0"+getitemname(.@items[.@i])+"^000000 and";
 		mes "^E1281E50 Splendide Coins, 4 Crystal Mirrors, 1 Fairy Magic Powder, 10 of each Emerald, Ruby, Sapphire, Topaz, and Zircon^000000 are necessary.";
 		next;
 		mes "[Paltu]";
 		mes "I'm in a tight spot myself. Please consider my situation also.";
 		close;
 	}
-	//custom to the end
-	if(select("Continue.:Forget it.") == 2)
-		close;
-	delitem .@item,1;
-	delitem 6081,50; //Splendide_Coin
-	delitem 747,4; //Crystal_Mirror
-	delitem 6395,1; //Angel_Magic_Power
-	delitem 721,10; //Azure_Jewel
-	delitem 723,10; //Cardinal_Jewel
-	delitem 726,10; //Blue_Jewel
-	delitem 728,10; //Golden_Jewel
-	delitem 729,10; //Bluish_Green_Jewel
-	getitem .@new_item,1;
+	emotion e_what;
 	mes "[Paltu]";
-	mes "Thank you so much! As promised, here is your costume.";
-	close;
-}
-
-ecl_in01,33,98,4	script	Herb Merchant Plafina#e	4_M_FAIRYKID2,{
-	mes "[Herb Merchant]";
-	mes "Welcome, this is Plafina's Herb Store where only the freshest herbs are provided~!";
+	mes "Yes, this is more than enough. Should I make it now?";
 	next;
-	switch(select("Snow Flip:Peony Mommy:Slapping Herb:Yggdrasil Dust:End conversation")) {
-	case 1:
-		mes "[Herb Merchant]";
-		mes "Snow Flip has special effects on ^3131FFBurning, Bleeding, Deep Sleep, Sleep^000000.";
-		.@item = 12812; //Snow_Flip
-		.@cost = 5;
-		break;
-	case 2:
-		mes "[Herb Merchant]";
-		mes "Peony Mamy has special effects on ^3131FFFrost, Frozen, Freezing^000000.";
-		.@item = 12813; //Peony_Mommy
-		.@cost = 5;
-		break;
-	case 3:
-		mes "[Herb Merchant]";
-		mes "Slapping Herb has special effects on ^3131FFStun, Fear, Chaos, Hallucination^000000.";
-		.@item = 12814; //Slapping_Herb
-		.@cost = 1;
-		break;
-	case 4:
-		mes "[Herb Merchant]";
-		mes "Yggdrasil Dust has special effects on ^3131FFBlind, Curse, Decrease Agility, Reverse Orcish^000000.";
-		.@item = 12815; //Yggdrasil_Dust
-		.@cost = 1;
-		break;
-	case 5:
-		mes "[Herb Merchant]";
-		mes "Come back anytime.";
+	if (select("Please make it now.:Oops, I have to take care of something...") == 2) {
+		emotion e_omg;
+		mes "[Paltu]";
+		mes "Hey.. Hey! Hey! Where you going?";
 		close;
 	}
-	mes "Requires 5 seconds between uses.";
-	mes "It costs "+.@cost+" Splendide Coin"+((.@cost == 1)?"":"s")+" for each.";
+	emotion e_omg;
+	mes "[Paltu]";
+	mes "I got it. Oh right! Almost forgot again.";
 	next;
-	switch(select("Buy 1.:Buy 10.:Don't buy.")) {
-	case 1:
-		.@amount = 1;
-		break;
-	case 2:
-		.@amount = 10;
-		break;
-	case 3:
-		close;
-	}
-	.@price = .@amount*.@cost;
-	mes "[Herb Merchant]";
-	mes "Would you like to buy "+.@amount+" "+getitemname(.@item)+"?";
+	mes "[Paltu]";
+	mes "^FF0000In the process of replication, magic intervention phenomenon causes the hat to lose all of its refinements, cards, and hidden enchantments.^000000";
 	next;
-	if(select("Buy.:Don't buy.") == 2)
-		close;
-	if (countitem(6081) < .@price) {
-		mes "[Herb Merchant]";
-		mes "You don't have enough coins.";
+	mes "[Paltu]";
+	mes "^FF0000And if you possess multiple hats of the same type, the one you don't want can undergo the replication process, so please check to make sure.^000000";
+	next;
+	mes "[Paltu]";
+	mes "So any problems with that?";
+	next;
+	if (select("Let me go check.:Start the replication process.")==1) {
+		mes "[Paltu]";
+		mes "Yeah, please make sure!";
 		close;
 	}
-	mes "[Herb Merchant]";
-	mes "Here are your herbs."; //custom
-	delitem 6081,.@price; //Splendide_Coin
-	getitem .@item,.@amount;
-	end;
-}
+	emotion e_gg;
+	mes "[Paltu]";
+	mes "Woohoo- Got it.";
+	mes "It's finally time for me to use my skills again.";
+	next;
+	emotion e_swt2;
+	mes "[Paltu]";
+	mes "Do this thing here, and do that thing there, and then do this thing here again...";
+	next;
+	emotion e_dots;
+	emotion e_swt2;
+	mes "[Paltu]";
+	mes "... .. ...";
+	specialeffect EF_BEGINSPELL;
+	progressbar "0xFFFF00",1;
+	specialeffect EF_BEGINSPELL2;
+	progressbar "0xFFFF00",1;
+	specialeffect EF_BEGINSPELL3;
+	progressbar "0xFFFF00",1;
+	specialeffect EF_BEGINSPELL4;
+	progressbar "0xFFFF00",1;
+	specialeffect EF_MVP;
+	next;
+	delitem Splendide_Coin,50;
+	delitem Crystal_Mirror,4;
+	delitem Angel_Magic_Power,1;
+	delitem Azure_Jewel,10;
+	delitem Cardinal_Jewel,10;
+	delitem Blue_Jewel,10;
+	delitem Golden_Jewel,10;
+	delitem Bluish_Green_Jewel,10;
+	delitem .@items[.@i],1;
+	getitem .@costumes[.@i],1;
+	mes "[Paltu]";
+	mes "Good. This is a satisfying result.";
+	mes "I'll do even a better job next time. Please tell others about my work. Have a good day~";
+	close;
+}
\ No newline at end of file