//===== Hercules Script ======================================
//= Card Separation System
//===== By: ==================================================
//= Muad_Dib
//===== Current Version: =====================================
//= 1.1
//===== Description: =========================================
//= [Official Conversion]
//= Separates cards from equipment.
//===== Additional Comments: =================================
//= 1.0 First Version. [Euphy]
//= 1.1 Added "Richard" NPC. [Euphy]
//============================================================

-	script	::CardSeparation_mal	-1,{
	disable_items;
	if (checkweight(1201,1) == 0) {
		mes "You have too many kinds of objects. Let's try to continue after reducing those objects.";
		close;
	}
	if (MaxWeight - Weight < 10000) {
		mes "Can't continue because you have too many heavy objects. Let's try to continue after reducing the weight.";
		close;
	}
	if (strnpcinfo(1) == "Jeremy") {
		.@Jeremy = 1;
		.@n$ = "[Jeremy]";
		setarray .@equip_name$[0],  "Armor",  "Shoes",  "Garment", "Upper Hat";
		setarray .@equip_slot[0], EQI_ARMOR,EQI_SHOES,EQI_GARMENT,EQI_HEAD_TOP;

		mes .@n$;
		mes "Long time no see~";
		mes "I have learned a new skill that separates cards from Armor, Shoes, Garment and Headgear. Do you want to try it?";
	} else {
		.@Jeremy = 0;
		.@n$ = "[Richard]";
		setarray .@equip_name$[0], "Left hand", "Right hand";
		setarray .@equip_slot[0],   EQI_HAND_L,   EQI_HAND_R;

		mes .@n$;
		mes "Silly Jeremy does not want to touch weapons and shields because of picking several cards that might be damaged. That is why I prepared a card separaion skill for weapons and shields...";
	}
	next;
	mes .@n$;
	mes "Generally the fee is 1,000,000 Zeny. During the card separation, you can use ^990000special items that reduce the rate of destroying equipment or cards^000000. We don't charge additional zeny for this.";
	next;
	mes .@n$;
	mes "There is a possibility of destroying them even using a special item. Also, ^ff0000the refine level might be lost^000000. Do you have any equipment to separate?";
	next;

	for(.@i = 0; .@i<getarraysize(.@equip_slot); ++.@i) {
		if (getequipisequiped(.@equip_slot[.@i]))
			.@menu$ += getequipname(.@equip_slot[.@i])+":";
		else
			.@menu$ += "^999999"+.@equip_name$[.@i]+" (empty)^000000:";
	}

	.@i = select("Stop the work:"+((.@Jeremy)?"How is it possible?":"")+":"+.@menu$);
	switch(.@i) {
	case 1:
		mes .@n$;
		mes "Whenever you need the work, visit me here.";
		close;
	case 2:
		mes .@n$;
		mes "You wonder what is so special. Well, I hate to give only a guide, so let me tell you the story...";
		next;
		mes "^000099Jeremy is stretching his shoulders and hands. He might be waiting for someone to talk with him.^000000";
		next;
		mes .@n$;
		mes "Do you know that Malangdo's specialty is canned food?";
		next;
		select("I knew that well. Is it that limited?");
		mes .@n$;
		mes "Hehe... Everyone loves it. But there were some problems before.";
		next;
		select("Problems? Is there any faulty fish?");
		mes .@n$;
		mes "No, the fish does not have any problem. The problem is lots of fish oil produced after processing. That is such an industrial waste.";
		next;
		mes .@n$;
		mes "However, after a revitalizing refining process, this fish oil became valuable to use for old equipment care and industrial lubricant.";
		next;
		mes .@n$;
		mes "In addition, this oil is so useful to separate relics from equipped weapons that we can't buy Premium Lubricant and Ordinary Lubricant with Zeny.";
		next;
		mes .@n$;
		mes "Well, don't worry about money. Surely the Premium Lubricant is expensive. If you pay some zeny, I can give you cheaper lubricant.";
		next;
		mes .@n$;
		mes "I'm not sure about the quality of success. Anyway, this is so cheap, right?";
		close;
	default:
		.@equip_num = .@equip_slot[.@i-3];
		if (!getequipisequiped(.@equip_num)) {
			mes .@n$;
			if (.@Jeremy)
				mes "In this part, there is nothing?";
			else
				mes "There is nothing on that part?";
			close;
		}
		break;
	}

	setarray .@equip_card, getequipcardid(.@equip_num,0),getequipcardid(.@equip_num,1),getequipcardid(.@equip_num,2),getequipcardid(.@equip_num,3);
	setarray .@mvp_list, Gloom_Under_Night_Card, Golden_Bug_Card, Nidhogg_Shadow_Card, Dark_Lord_Card, Doppelganger_Card,
		Dracula_Card, Drake_Card, Detale_Card, Randgris_Card, B_Seyren_Card,
		Maya_Card, Mistress_Card, Baphomet_Card, Bacsojin_Card, Berzebub_Card,
		Apocalips_H_Card, B_Ygnizem_Card, B_Shecil_Card, Amon_Ra_Card, Atroce_Card,
		B_Eremes_Card, Eddga_Card, Osiris_Card, Orc_Load_Card, Orc_Hero_Card,
		Incant_Samurai_Card, Moonlight_Flower_Card, Ifrit_Card, Lord_Of_Death_Card, Ktullanux_Card,
		Kiel_Card, Thanatos_Card, Lady_Tanee_Card, Fallen_Bishop_Card, Tao_Gunka_Card,
		Turtle_General_Card, Pharaoh_Card, Knight_Windstorm_Card, Phreeoni_Card, B_Katrinn_Card,
		B_Magaleta_Card, Garm_Card, B_Harword_Card, Dark_Snake_Lord_Card, Rsx_0806_Card;
	.@boss_chk = false;

	if (.@Jeremy) {
		.@cardcount = 4;
		for (.@i = 0; .@i < 4; ++.@i) {
			if (.@equip_card[.@i] >= 4700 // Armor Enchant System
			 || .@equip_card[.@i] == 0) {
				.@equip_card[.@i] = 0;
				--.@cardcount;
			}
		}
		if (!.@cardcount) {
			mes .@n$;
			mes "The card is not equipped. Do you want to check again?";
			close;
		}
		for (.@i = 0; .@i < 4; ++.@i) {
			if (.@equip_card[.@i] == 0)
				continue;
			for (.@j = 0; .@j < getarraysize(.@mvp_list); ++.@j) {
				if (.@equip_card[.@i] == .@mvp_list[.@j])
					.@boss_chk = true;
			}
		}
	} else {
		// Official "Richard" script uses a hardcoded list including every possible item.
		//if (!getequipisequiped(.@equip_num)) {
		//	mes "[Richard]";
		//	mes "I'm sorry. We don't provide that equipmnet yet.";
		//	close;
		//}

		mes "[Richard]";
		mes "Which number socket do you want to separate the card? From the left socket, they are sorted 1,2,3,4.";
		next;
		.@menu$ = "";
		for(.@i = 0; .@i<4; ++.@i) {
			if (.@equip_card[.@i] && .@equip_card[.@i] < 4700) // Armor Enchant System
				.@menu$ += "Socket "+(.@i+1)+" - "+getitemname(.@equip_card[.@i])+":";
			else
				.@menu$ += "^777777Socket "+(.@i+1)+" - No card^000000:";
		}
		.@i = select("Stop the work:"+.@menu$);
		switch(.@i) {
		case 1:
			mes .@n$;
			mes "Whenever you need to work, please come to me.";
			close;
		default:
			.@slot = .@i-2;
			if (.@equip_card[.@slot] == 0 || .@equip_card[.@slot] >= 4700) {
				mes .@n$;
				mes "This socket is not equipped with any card. Why don't you check again?";
				close;
			}
			break;
		}
		for (.@i = 0; .@i < getarraysize(.@mvp_list); ++.@i) {
			if (.@equip_card[.@slot] == .@mvp_list[.@i])
				.@boss_chk = true;
		}
	}
	if (!.@boss_chk) {
		mes .@n$;
		if (.@Jeremy)
			mes "Except cards, ^ff0000all enchanted effects will disappear.^000000 If you agree to this, please choose the work type:";
		else
			mes "Please choose the working fee.";
		next;
		.@menu$ = "Next time...:"+
			((Zeny >= 1000000)?"Use 1,000,000z (Do not use special item):":"^999999Use 1,000,000z (Insufficient)^000000:")+
			((countitem(6441))?"Use Premium Lubricant:":"^999999Premium Lubricant (Insufficient)^000000:")+
			((countitem(6440))?"Use Ordinary Lubricant":"^999999Ordinary Lubricant (Insufficient)^000000");
		switch(select(.@menu$)) {
		case 1:
			mes .@n$;
			mes "Whenever you need the work, visit me here.";
			close;
		case 2:
			if (Zeny < 1000000) {
				mes .@n$;
				mes "You don't have enough zeny. Please come back with enough fees.";
				close;
			}
			mes .@n$;
			mes "This is pretty old equipment. There is a high rate of destroying the cards or equipment during the work. Are you sure you want to continue?";
			next;
			if(select("Next time...:Continue") == 1) {
				mes .@n$;
				mes "Whenever you need the work, visit me here.";
				close;
			}
			.@sf_c_num = 150;
			.@sf_r_num = 150;
			.@sf_w_num = 150;
			Zeny -= 1000000;
			break;
		case 3:
			if (countitem(6441) == 0) {
				mes .@n$;
				mes "You don't have Premium Lubricant.";
				close;
			}
			mes .@n$;
			mes "If you use the Premium Lubricant, the rate of destruction will be decreased highly, but I can't give you a 100% guarantee. Are you sure you want to continue?";
			next;
			if(select("Next time...:Continue") == 1) {
				mes .@n$;
				mes "Whenever you need the work, visit me here.";
				close;
			}
			.@sf_c_num = 75;
			.@sf_r_num = 75;
			.@sf_w_num = 75;
			delitem 6441,1; //High_RankLubricant
			break;
		case 4:
			if (countitem(6440) == 0) {
				mes .@n$;
				mes "You don't have Ordinary Lubricant.";
				close;
			}
			mes .@n$;
			mes "If you use the Ordinary Lubricant, the rate of destruction will be decreased highly, but I can't give you a 100% guarantee. Are you sure you want to continue?";
			next;
			if(select("Next time...:Continue") == 1) {
				mes .@n$;
				mes "Whenever you need the work, visit me here.";
				close;
			}
			.@sf_c_num = 75;
			.@sf_r_num = 150;
			.@sf_w_num = 150;
			delitem 6440,1; //General_Lubricant
			break;
		}
	} else {
		mes .@n$;
		mes "This equipment contains a precious MVP card. This card can't be separated with lubricant. If you bring the super surfactant ^0000ffSillit Pong^000000, I will be able to work.";
		next;
		switch(select("Next time...:I have a Sillit Pong.")) {
		case 1:
			mes .@n$;
			mes "Whenever you need the work, visit me here.";
			close;
		case 2:
			if (countitem(6443) == 0) {
				mes .@n$;
				mes "You don't have Sillit Pong.";
				close;
			}
			break;
		}
		mes .@n$;
		if (.@Jeremy) {
			mes "Except cards, ^ff0000all enchanted effects will disappear.^000000 If you agree to this, please choose the work type:";
			.@menu$ = "Alright, let's do it!";
		} else {
			mes "May I continue?";
			.@menu$ = "I got it. Just do it quickly!";
		}
		next;
		switch(select("Next time...:"+.@menu$)) {
		case 1:
			mes .@n$;
			mes "Whenever you need the work, visit me here.";
			close;
		case 2:
			.@sf_c_num = 60;
			.@sf_r_num = 60;
			.@sf_w_num = 60;
			delitem 6443,1; //Sillit_Pong_Bottle
			break;
		}
	}

	.@equip_id = getequipid(.@equip_num);
	.@equip_refine = getequiprefinerycnt(.@equip_num);
	delequip .@equip_num;

	// Chance of retaining refine level.
	if (rand(1,.@sf_r_num) >= 61)
		.@equip_refine = 0;

	if (.@Jeremy) {
		// Chance of retaining equipment.
		if (rand(1,.@sf_w_num) < 61) {
			.@equip_safe = 1;
			getitem2 .@equip_id,1,1,.@equip_refine,0,0,0,0,0;
		}

		// Chance of retaining cards.
		for(.@i = 0; .@i<4; ++.@i) {
			if (.@equip_card[.@i]) {
				if (rand(1,.@sf_c_num) < 61)
					getitem .@equip_card[.@i],1;
				else
					.@card_break = 1;
			}
		}
	} else {
		.@card = .@equip_card[.@slot];
		.@equip_card[.@slot] = 0;

		// Chance of retaining equipment.
		if (rand(1,.@sf_w_num) < 61) {
			.@equip_safe = 1;
			getitem2 .@equip_id,1,1,.@equip_refine,0,.@equip_card[0],.@equip_card[1],.@equip_card[2],.@equip_card[3];
		}

		// Chance of retaining card.
		if (rand(1,.@sf_c_num) < 61)
			getitem .@card,1;
		else
			.@card_break = 1;
	}

	// Display corresponding effect.
	if (!.@equip_safe && .@card_break)
		specialeffect2 EF_LORD;
	else if (.@equip_safe && .@card_break)
		specialeffect2 EF_SUI_EXPLOSION;
	else if (!.@equip_safe && !.@card_break)
		specialeffect2 EF_FIREPILLAR;
	else
		specialeffect2 EF_MAXPOWER;

	// Output results.
	mes "-- Result of Card Separation --";
	if (.@equip_safe) {
		mes "Crack has not occured during the card separation process.";
		mes "^0000FFEquipment separation is normal.^000000";
	} else {
		mes "Crack has occured during the card separation process.";
		mes "Equipment has been damaged. ^ff0000Unrecoverable.^000000";
	}
	mes "-------------------";
	if (!.@card_break) {
		mes "Erosion of surface has not occured during the card separation process.";
		mes "^0000ffCard separation has succeeded.^000000";
	} else {
		mes "Erosion of surface has occured during the card separation process.";
		mes "Card has been damaged. ^ff0000Unrecoverable.^000000";
	}
	next;
	mes .@n$;
	mes "That is all for the results of the card separation. Please come again.";
	close;
}
malangdo,215,166,4	duplicate(CardSeparation_mal)	Jeremy#pa0829	4_CAT_DOWN
malangdo,208,166,6	duplicate(CardSeparation_mal)	Richard#pa0829	4_CAT_ADV1