Implemented Kagerou/Oboro Gear Enchants.

Reference: rathena/rathena@9b5798dc395cd77e1ac35228c95603f43aa9e94c

Signed-off-by: Haru <haru@dotalux.com>

2 files changed, 557 insertions, 0 deletions

diff --git a/npc/re/merchants/enchan_ko.txt b/npc/re/merchants/enchan_ko.txt
new file mode 100644
index 000000000..c162b4be6
--- /dev/null
+++ b/npc/re/merchants/enchan_ko.txt
@@ -0,0 +1,556 @@
+//===== Hercules Script ======================================
+//= Kagerou/Oboro Gear Enchants
+//===== By: ==================================================
+//= Euphy
+//===== Current Version: =====================================
+//= 1.0
+//===== Description: =========================================
+//= [Official Conversion]
+//= Adds enchantments to Kagerou/Oboro gear.
+//===== Additional Comments: =================================
+//= 1.0 First version. [Euphy]
+//============================================================
+
+// Main NPC :: job_ko
+//============================================================
+que_ng,75,20,3	script	Artisan Tene#ko	762,{
+	disable_items;
+	mes "[Artisan Tene]";
+	mes "Hello? I'm Artisan Tene, the most respectful blacksmith of them all.";
+	next;
+	mes "[Artisan Tene]";
+	mes "How may I help you?";
+	next;
+	switch (select("Which blacksmith?:I want to add option.:I want to remove option.")) {
+	case 1: // Which blacksmith?
+		mes "[Artisan Tene]";
+		mes "Oh! Sorry, I didn't introduce myself.";
+		next;
+		mes "[Artisan Tene]";
+		mes "I can add or remove options from some weapons and armor at a small price.";
+		next;
+		mes "[Artisan Tene]";
+		mes "Oh! Do you want to know the list of weapons and armor I work on?";
+		next;
+		switch (select("Take a look at the weapon list.:Take a look at the armor list.")) {
+		case 1: // Take a look at the weapon list
+			mes "[Artisan Tene]";
+			mes "Are you interested in the weapon list?";
+			next;
+			mes "[Artisan Tene]";
+			mes "The weapons I work on are ";
+			mes "^ff0000Raksasa Dagger [1]^000000";
+			mes "^ff0000Mikatsuki[1]^000000";
+			mes "^ff0000Huuma Swirling Petal [2]^000000";
+			mes "^ff0000Huuma Fluttering Snow^000000";
+			mes "^ff0000Huuma Thunderstorm^000000";
+			break;
+		case 2: // Take a look at the armor list
+			mes "[Artisan Tene]";
+			mes "Are you interested in the armor list?";
+			next;
+			mes "[Artisan Tene]";
+			mes "The armor I work on is";
+			mes "^ff0000Wolf Armguard [1]^000000";
+			mes "^ff0000Crescent Armguard [1]^000000";
+			mes "^ff0000Ninja Scale Armor [1]^000000";
+			mes "^ff0000Tenebris Latitantes [1]^000000";
+			mes "^ff0000Special Ninja Suit [1]^000000";
+			break;
+		}
+		next;
+		mes "[Artisan Tene]";
+		mes "This is it. I'm still in practice to learn and handle more battlegear.";
+		next;
+		mes "[Artisan Tene]";
+		mes "If you'd like, I can add options to your 4th and 3rd Slots at a small cost.";
+		close;
+	case 2: // I want to add option
+		mes "[Artisan Tene]";
+		mes "Oh! You need to add an option.";
+		mes "I use the method of adding options to your 4th and 3rd slots of battlegear equipped.";
+		next;
+		mes "[Artisan Tene]";
+		mes "Since I use a stable and unique way of adding options, there are no risks of ^ff0000'Reset Refine'^000000 or ^ff0000'Losing Cards'^000000 equipped.";
+		next;
+		mes "[Artisan Tene]";
+		mes "But since the costs of materials are high, I only ask for a ^5565AA small cost^000000 for my services with the exception of the material expenses.";
+		next;
+		mes "[Artisan Tene]";
+		mes "Ha ha. I must have talked too much. Which class of equipment do you want to add an option to?";
+		next;
+		switch (select("Weapon...:Armor...")) {
+		case 1:
+			mes "[Artisan Tene]";
+			mes "So you want to add an option to your weapon. That will be ^ff0000100,000 Zeny for a 1 time service.^000000";
+			next;
+			mes "[Artisan Tene]";
+			mes "^FF0000Ah! I can add an additional option if you equip a one-handed weapon on your right hand because it is easier for me to work on.^000000";
+			next;
+			mes "[Artisan Tene]";
+			mes "Which weapon do you want to add an option to?";
+			next;
+			switch (select("Later...:Raksasa Dagger [1]:Mikatsuki [1]:Huuma Swirling Petal [2]:Huuma Fluttering Snow:Huuma Thunderstorm")) {
+			case 1:
+				mes "[Artisan Tene]";
+				mes "Changed your mind? Very well. Hope to see you later.";
+				close;
+			case 2:
+				.@equip_id = Raksasa_Dagger;
+				break;
+			case 3:
+				.@equip_id = Mikatsuki;
+				break;
+			case 4:
+				.@equip_id = Huuma_Swirling_Petal;
+				break;
+			case 5:
+				.@equip_id = Huuma_Fluttering_Snow;
+				break;
+			case 6:
+				.@equip_id = Huuma_Thunderstorm;
+				break;
+			}
+			.@part = EQI_HAND_R;
+			break;
+		case 2:
+			mes "[Artisan Tene]";
+			mes "So you want to add an option to your armor. That will be ^ff0000100,000 Zeny for a 1 time service.^000000";
+			next;
+			mes "[Artisan Tene]";
+			mes "Which armor do you want to add an option to?";
+			next;
+			switch (select("Later...:Wolf Armguard [1]:Crescent Armguard [1]:Ninja Scale Armor [1]:Tenebris Latitantes [1]:Special Ninja Suit [1]")) {
+			case 1:
+				mes "[Artisan Tene]";
+				mes "Changed your mind? Very well. Hope to see you later.";
+				close;
+			case 2:
+				.@part = EQI_HAND_L;
+				.@equip_id = Wolf_Armguard;
+				break;
+			case 3:
+				.@part = EQI_HAND_L;
+				.@equip_id = Crescent_Armguard;
+				break;
+			case 4:
+				.@part = EQI_ARMOR;
+				.@equip_id = Ninja_Scale_Armor;
+				break;
+			case 5:
+				.@part = EQI_ARMOR;
+				.@equip_id = Tenebris_Latitantes;
+				break;
+			case 6:
+				.@part = EQI_ARMOR;
+				.@equip_id = Special_Ninja_Suit_;
+				break;
+			}
+			break;
+		}
+		break;
+	case 3: // I want to remove option
+		mes "[Artisan Tene]";
+		mes "You want to remove an option from your item. You didn't like the option?";
+		next;
+		mes "[Artisan Tene]";
+		mes "Sorry but I'm not experienced enough. You've paid me for nothing.";
+		next;
+		mes "[Artisan Tene]";
+		mes "^ff0000Removing an option will be 100,000 Zeny.^000000 Which option from the list of items do you want to remove?";
+		next;
+		switch(select("Later...:Raksasa Dagger [1]:Mikatsuki [1]:Huuma Swirling Petal [2]:Huuma Fluttering Snow:Huuma Thunderstorm:Wolf Armguard [1]:Crescent Armguard [1]:Ninja Scale Armor [1]:Tenebris Latitantes [1]:Special Ninja Suit [1]")) {
+		case 1:
+			mes "[Artisan Tene]";
+			mes "Removing options is expensive, isn't it? Sorry. I will work harder in developing my skills and bring down costs as well.";
+			close;
+		case 2:
+			.@part = EQI_HAND_R;
+			.@equip_id = Raksasa_Dagger;
+			break;
+		case 3:
+			.@part = EQI_HAND_R;
+			.@equip_id = Mikatsuki;
+			break;
+		case 4:
+			.@part = EQI_HAND_R;
+			.@equip_id = Huuma_Swirling_Petal;
+			break;
+		case 5:
+			.@part = EQI_HAND_R;
+			.@equip_id = Huuma_Fluttering_Snow;
+			break;
+		case 6:
+			.@part = EQI_HAND_R;
+			.@equip_id = Huuma_Thunderstorm;
+			break;
+		case 7:
+			.@part = EQI_HAND_L;
+			.@equip_id = Wolf_Armguard;
+			break;
+		case 8:
+			.@part = EQI_HAND_L;
+			.@equip_id = Crescent_Armguard;
+			break;
+		case 9:
+			.@part = EQI_ARMOR;
+			.@equip_id = Ninja_Scale_Armor;
+			break;
+		case 10:
+			.@part = EQI_ARMOR;
+			.@equip_id = Tenebris_Latitantes;
+			break;
+		case 11:
+			.@part = EQI_ARMOR;
+			.@equip_id = Special_Ninja_Suit_;
+			break;
+		}
+		mes "[Artisan Tene]";
+		mes "You want to reset ^44B7BC" + getitemname(.@equip_id) + "^000000?";
+		next;
+		mes "[Artisan Tene]";
+		mes "The cost is the same but I do provide a service to remove only the option on the 3rd slot and leave the 4th slot as is. Are you interested?";
+		next;
+		switch (select("Reset only the 3rd Slot.:Reset all.")) {
+		case 1:
+			mes "[Artisan Tene]";
+			mes "Very well. I will reset only your 3rd slot.";
+			next;
+			.@only_3rd = true;
+			break;
+		case 2:
+			mes "[Artisan Tene]";
+			mes "Very well. I will reset all slots.";
+			next;
+			break;
+		}
+		.@remove = true;
+		break;
+	}
+	if (getequipisequiped(.@part) == 0) {
+		mes "[Artisan Tene]";
+		mes "You will have to equip all items before ^44B7BC" + getitemname(.@equip_id) + "^000000.";
+		close;
+	}
+	if (Zeny < 100000) { // Custom Translation
+		mes "[Artisan Tene]";
+		mes "I'm sorry, but you don't have enough Zeny!";
+		next;
+		mes "[Artisan Tene]";
+		mes "Our charge is very low, so please bear with me.";
+		close;
+	}
+	if (getequipid(.@part) != .@equip_id) {
+		mes "[Artisan Tene]";
+		mes "I don't think this is the equipment you requested.";
+		next;
+		mes "[Artisan Tene]";
+		mes "I cannot work on equipment other than those from my list.";
+		close;
+	}
+
+	.@equip_refine = getequiprefinerycnt(.@part);
+	setarray .@equip_card, getequipcardid(.@part,0),getequipcardid(.@part,1),getequipcardid(.@part,2),getequipcardid(.@part,3);
+
+	.@enchants = callsub(S_IsEnchanted, .@equip_card[0], .@equip_card[1], .@equip_card[2], .@equip_card[3]);
+	// Initialization
+	if (.@remove) {
+		if (!.@enchants) {
+			mes "[Artisan Tene]";
+			mes "This equipment is is not enchanted. Please check again."; //custom translation
+			close;
+		}
+		if (.@only_3rd && .@enchants < 2) {
+			mes "[Artisan Tene]";
+			mes "The third slot is is not enchanted. Please check again."; //custom translation
+			close;
+		}
+		.@equip_card[2] = 0;
+		if (!.@only_3rd)
+			.@equip_card[3] = 0;
+		progressbar "ffff00",2;
+		Zeny -= 100000;
+		delequip .@part;
+		getitem2 .@equip_id,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3];
+
+		mes "[Artisan Tene]";
+		mes "Initialization complete.";
+		close;
+	}
+
+	// Enchantment
+	if (.@equip_refine <= 4)       .@ko_type01 = 1;
+	else if (.@equip_refine <= 7)  .@ko_type01 = 2;
+	else if (.@equip_refine <= 9)  .@ko_type01 = 3;
+	else if (.@equip_refine <= 12) .@ko_type01 = 4;
+	else                           .@ko_type01 = 5;
+
+	//custom translations
+	.@available_slots = callsub(S_CanEnchant, .@equip_card[0], .@equip_card[1], .@equip_card[2], .@equip_card[3]);
+	if (!.@available_slots) {
+		mes "[Artisan Tene]";
+		mes "This equipment cannot be further enchanted.";
+		next;
+		mes "[Artisan Tene]";
+		mes "If you are not satisfied with the enchantments, I suggest that you initialize.";
+		close;
+	}
+	mes "[Artisan Tene]";
+	if (.@available_slots < 2)
+		mes "The fourth slot has already been enchanted. Shall I enchant the third slot as well?";
+	else
+		mes "This equipment is not currently enchanted. Shall I enchant the fourth slot?";
+	next;
+	if (select("Do it later:Do it now") == 1) {
+		mes "[Artisan Tene]";
+		mes "Very well. Hope to see you later.";
+		close;
+	}
+	mes "[Artisan Tene]";
+	if (.@available_slots < 2)
+		mes "Starting to enchant the third slot.";
+	else
+		mes "Starting to enchant the fourth slot.";
+	next;
+	if (.@available_slots >= 2) { // slot 4
+		.@r = rand(1,1000);
+		switch (.@ko_type01) {
+		case 1:
+			if (.@r <= 200)      .@e_socket04 = Mdef2;
+			else if (.@r <= 350) .@e_socket04 = Mdef4;
+			else if (.@r <= 450) .@e_socket04 = Mdef6;
+			else if (.@r <= 500) .@e_socket04 = Mdef8;
+			else if (.@r <= 700) .@e_socket04 = Def3;
+			else if (.@r <= 850) .@e_socket04 = Def6;
+			else if (.@r <= 950) .@e_socket04 = Def9;
+			else                 .@e_socket04 = Def12;
+			.@enchant = .@e_socket04;
+			break;
+		case 2:
+			if (.@r <= 90)       .@d_socket04 = Mdef2;
+			else if (.@r <= 170) .@d_socket04 = Mdef4;
+			else if (.@r <= 240) .@d_socket04 = Mdef6;
+			else if (.@r <= 300) .@d_socket04 = Mdef8;
+			else if (.@r <= 390) .@d_socket04 = Def3;
+			else if (.@r <= 470) .@d_socket04 = Def6;
+			else if (.@r <= 540) .@d_socket04 = Def9;
+			else if (.@r <= 600) .@d_socket04 = Def12;
+			else if (.@r <= 660) .@d_socket04 = Strength1;
+			else if (.@r <= 720) .@d_socket04 = Inteligence1;
+			else if (.@r <= 780) .@d_socket04 = Vitality1;
+			else if (.@r <= 840) .@d_socket04 = Dexterity1;
+			else if (.@r <= 900) .@d_socket04 = Agility1;
+			else                 .@d_socket04 = Luck1;
+			.@enchant = .@d_socket04;
+			break;
+		case 3:
+			if (.@r <= 90)       .@c_socket04 = Strength1;
+			else if (.@r <= 180) .@c_socket04 = Inteligence1;
+			else if (.@r <= 270) .@c_socket04 = Vitality1;
+			else if (.@r <= 360) .@c_socket04 = Dexterity1;
+			else if (.@r <= 450) .@c_socket04 = Agility1;
+			else if (.@r <= 600) .@c_socket04 = Luck1;
+			else if (.@r <= 660) .@c_socket04 = Strength2;
+			else if (.@r <= 720) .@c_socket04 = Inteligence2;
+			else if (.@r <= 780) .@c_socket04 = Vitality2;
+			else if (.@r <= 840) .@c_socket04 = Dexterity2;
+			else if (.@r <= 900) .@c_socket04 = Agility2;
+			else                 .@c_socket04 = Luck2;
+			.@enchant = .@c_socket04;
+			break;
+		case 4:
+			if (.@r <= 70)       .@b_socket04 = Strength1;
+			else if (.@r <= 140) .@b_socket04 = Inteligence1;
+			else if (.@r <= 210) .@b_socket04 = Vitality1;
+			else if (.@r <= 280) .@b_socket04 = Dexterity1;
+			else if (.@r <= 350) .@b_socket04 = Agility1;
+			else if (.@r <= 440) .@b_socket04 = Luck1;
+			else if (.@r <= 495) .@b_socket04 = Strength2;
+			else if (.@r <= 550) .@b_socket04 = Inteligence2;
+			else if (.@r <= 605) .@b_socket04 = Vitality2;
+			else if (.@r <= 660) .@b_socket04 = Dexterity2;
+			else if (.@r <= 715) .@b_socket04 = Agility2;
+			else if (.@r <= 800) .@b_socket04 = Luck2;
+			else if (.@r <= 860) .@b_socket04 = HP100;
+			else if (.@r <= 910) .@b_socket04 = HP200;
+			else if (.@r <= 950) .@b_socket04 = HP300;
+			else if (.@r <= 980) .@b_socket04 = SP50;
+			else                 .@b_socket04 = SP100;
+			.@enchant = .@b_socket04;
+			break;
+		case 5:
+			if (.@r <= 59)       .@a_socket04 = Strength2;
+			else if (.@r <= 118) .@a_socket04 = Inteligence2;
+			else if (.@r <= 177) .@a_socket04 = Vitality2;
+			else if (.@r <= 236) .@a_socket04 = Dexterity2;
+			else if (.@r <= 295) .@a_socket04 = Agility2;
+			else if (.@r <= 354) .@a_socket04 = Luck2;
+			else if (.@r <= 413) .@a_socket04 = HP100;
+			else if (.@r <= 472) .@a_socket04 = HP200;
+			else if (.@r <= 530) .@a_socket04 = HP300;
+			else if (.@r <= 589) .@a_socket04 = SP50;
+			else if (.@r <= 648) .@a_socket04 = SP100;
+			else if (.@r <= 707) .@a_socket04 = Strength3;
+			else if (.@r <= 765) .@a_socket04 = Inteligence3;
+			else if (.@r <= 824) .@a_socket04 = Vitality3;
+			else if (.@r <= 883) .@a_socket04 = Dexterity3;
+			else if (.@r <= 942) .@a_socket04 = Agility3;
+			else                 .@a_socket04 = Luck3;
+			.@enchant = .@a_socket04;
+			break;
+		}
+		.@equip_card[2] = .@enchant;
+	} else if (.@available_slots == 1) { // slot 3
+		.@r = rand(1,1000);
+		switch (.@ko_type01) {
+		case 1:
+			if (.@r <= 125)      .@e_socket03 = Mdef2;
+			else if (.@r <= 250) .@e_socket03 = Mdef4;
+			else if (.@r <= 375) .@e_socket03 = Mdef6;
+			else if (.@r <= 500) .@e_socket03 = Mdef8;
+			else if (.@r <= 625) .@e_socket03 = Def3;
+			else if (.@r <= 750) .@e_socket03 = Def6;
+			else if (.@r <= 875) .@e_socket03 = Def9;
+			else                 .@e_socket03 = Def12;
+			.@enchant = .@e_socket03;
+			break;
+		case 2:
+			if (.@r <= 100)      .@d_socket03 = Mdef2;
+			else if (.@r <= 190) .@d_socket03 = Mdef4;
+			else if (.@r <= 270) .@d_socket03 = Mdef6;
+			else if (.@r <= 340) .@d_socket03 = Mdef8;
+			else if (.@r <= 440) .@d_socket03 = Def3;
+			else if (.@r <= 530) .@d_socket03 = Def6;
+			else if (.@r <= 610) .@d_socket03 = Def9;
+			else if (.@r <= 680) .@d_socket03 = Def12;
+			else if (.@r <= 720) .@d_socket03 = Strength1;
+			else if (.@r <= 760) .@d_socket03 = Inteligence1;
+			else if (.@r <= 800) .@d_socket03 = Vitality1;
+			else if (.@r <= 850) .@d_socket03 = Dexterity1;
+			else if (.@r <= 880) .@d_socket03 = Agility1;
+			else                 .@d_socket03 = Luck1;
+			.@enchant = .@d_socket03;
+			break;
+		case 3:
+			if (.@r <= 100)      .@c_socket03 = Strength1;
+			else if (.@r <= 200) .@c_socket03 = Inteligence1;
+			else if (.@r <= 305) .@c_socket03 = Vitality1;
+			else if (.@r <= 410) .@c_socket03 = Dexterity1;
+			else if (.@r <= 500) .@c_socket03 = Agility1;
+			else if (.@r <= 700) .@c_socket03 = Luck1;
+			else if (.@r <= 750) .@c_socket03 = Strength2;
+			else if (.@r <= 780) .@c_socket03 = Inteligence2;
+			else if (.@r <= 830) .@c_socket03 = Vitality2;
+			else if (.@r <= 880) .@c_socket03 = Dexterity2;
+			else if (.@r <= 900) .@c_socket03 = Agility2;
+			else                 .@c_socket03 = Luck2;
+			.@enchant = .@c_socket03;
+			break;
+		case 4:
+			if (.@r <= 70)       .@b_socket03 = Strength1;
+			else if (.@r <= 160) .@b_socket03 = Inteligence1;
+			else if (.@r <= 250) .@b_socket03 = Vitality1;
+			else if (.@r <= 340) .@b_socket03 = Dexterity1;
+			else if (.@r <= 400) .@b_socket03 = Agility1;
+			else if (.@r <= 500) .@b_socket03 = Luck1;
+			else if (.@r <= 540) .@b_socket03 = Strength2;
+			else if (.@r <= 580) .@b_socket03 = Inteligence2;
+			else if (.@r <= 625) .@b_socket03 = Vitality2;
+			else if (.@r <= 670) .@b_socket03 = Dexterity2;
+			else if (.@r <= 700) .@b_socket03 = Agility2;
+			else if (.@r <= 800) .@b_socket03 = Luck2;
+			else if (.@r <= 860) .@b_socket03 = HP100;
+			else if (.@r <= 900) .@b_socket03 = HP200;
+			else if (.@r <= 920) .@b_socket03 = HP300;
+			else if (.@r <= 965) .@b_socket03 = SP50;
+			else                 .@b_socket03 = SP100;
+			.@enchant = .@b_socket03;
+			break;
+		case 5:
+			if (.@r <= 59)       .@a_socket03 = Strength2;
+			else if (.@r <= 118) .@a_socket03 = Inteligence2;
+			else if (.@r <= 177) .@a_socket03 = Vitality2;
+			else if (.@r <= 236) .@a_socket03 = Dexterity2;
+			else if (.@r <= 295) .@a_socket03 = Agility2;
+			else if (.@r <= 354) .@a_socket03 = Luck2;
+			else if (.@r <= 413) .@a_socket03 = HP100;
+			else if (.@r <= 472) .@a_socket03 = HP200;
+			else if (.@r <= 530) .@a_socket03 = HP300;
+			else if (.@r <= 589) .@a_socket03 = SP50;
+			else if (.@r <= 648) .@a_socket03 = SP100;
+			else if (.@r <= 707) .@a_socket03 = Strength3;
+			else if (.@r <= 765) .@a_socket03 = Inteligence3;
+			else if (.@r <= 824) .@a_socket03 = Vitality3;
+			else if (.@r <= 883) .@a_socket03 = Dexterity3;
+			else if (.@r <= 942) .@a_socket03 = Agility3;
+			else                 .@a_socket03 = Luck3;
+			.@enchant = .@a_socket03;
+			break;
+		}
+		.@equip_card[2] = .@equip_card[3];
+		.@equip_card[3] = .@enchant;
+	} else {
+		mes "[Artisan Tene]";
+		mes "An unknown error has occurred. Please contact customer service. *^_^*";
+		close;
+	}
+	progressbar "0xFFFF00",2;
+	Zeny -= 100000;
+	delequip .@part;
+
+	getitem2 .@equip_id,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3];
+
+	mes "[Artisan Tene]";
+	mes "^44B7BC" + getitemname(.@equip_id) + "^000000";
+	mes "The equipment has been enchanted."; //custom translation
+	close;
+
+/**
+ * Checks if the item having the given card set is enchanted
+ *
+ * callsub(S_IsEnchanted, <card1>, <card2>, <card3>, <card4>)
+ *
+ * @param card1, card2, card3, card4: card IDs in the respective slots
+ * @return the amount of enchants ({0, 1, 2})
+ */
+S_IsEnchanted:
+	.@card1 = getarg(0);
+	.@card2 = getarg(1);
+	.@card3 = getarg(2);
+	.@card4 = getarg(3);
+	if (.@card1 == -256 || .@card1 == 254 || .@card1 == 255)
+		return 0;
+	if (.@card3 >= 4700 && .@card3 < 5000) {
+		if (.@card4 >= 4700 && .@card4 < 5000) {
+			return 2;
+		}
+		return 1;
+	}
+	return 0;
+
+/**
+ * Checks if the item can be enchanted
+ *
+ * callsub(S_CanEnchant, <card1>, <card2>, <card3>, <card4>)
+ *
+ * @param card1, card2, card3, card4: card IDs in the respective slots
+ * @return the amount of available enchant slots ({2, 1, 0})
+ */
+S_CanEnchant:
+	.@card1 = getarg(0);
+	.@card2 = getarg(1);
+	.@card3 = getarg(2);
+	.@card4 = getarg(3);
+	if (.@card1 != 0)
+		return 0;
+	if (.@card2 != 0)
+		return 0;
+	if (.@card3 != 0)
+		return 0;
+	if (.@card4 != 0) {
+		if (.@card4 < 4700 || .@card4 >= 5000)
+			return 0;
+		return 1;
+	}
+	return 2;
+}
diff --git a/npc/re/scripts.conf b/npc/re/scripts.conf
index 0774428e2..c6bebdb00 100644
--- a/npc/re/scripts.conf
+++ b/npc/re/scripts.conf
@@ -81,6 +81,7 @@ npc: npc/re/merchants/coin_exchange.txt
 npc: npc/re/merchants/diamond.txt
 npc: npc/re/merchants/enchan_mal.txt
 npc: npc/re/merchants/enchan_mora.txt
+npc: npc/re/merchants/enchan_ko.txt
 npc: npc/re/merchants/flute.txt
 npc: npc/re/merchants/hd_refiner.txt
 npc: npc/re/merchants/inn.txt