//===== rAthena Script =======================================
//= Coin Merchants
//===== By: ==================================================
//= rAthena Dev Team
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= [Official Conversion]
//= Renewal coin redemption NPCs.
//===== Additional Comments: =================================
//= 1.0 First version. [Euphy/Lemongrass]
//= 1.1 Added remaining Malangdo traders. [Euphy/Lemongrass]
//= 1.2 Added Eclage traders (not fully complete). [Euphy]
//============================================================

// Malangdo
//============================================================
malangdo,220,167,5	script	ӲҶһCX-1	564,{
	if (checkweight(1201,1) == 0) {
		mes "ЯƷ. ǲܼ.";
		close;
	}
	if (MaxWeight - Weight < 10000) {
		mes "޷, Ϊĸز. ټ.";
		close;
	}
	mes "[ӲҶһCX-1]";
	mes "ӭʹCX-1. Ӳ, иһ.";
	next;
	setarray .@coins[1],
		6417, //Silvervine
		6418, //Agrade_Coin
		6419, //Bgrade_Coin
		6420, //Cgrade_Coin
		6421, //Dgrade_Coin
		6422; //Egrade_Coin
	set .@menu$,"Stop:";
	for(set .@i,1; .@i<=6; set .@i,.@i+1) {
		if (countitem(.@coins[.@i]))
			set .@menu$, .@menu$+getitemname(.@coins[.@i])+":";
		else
			set .@menu$, .@menu$+"^aaaaaa"+getitemname(.@coins[.@i])+" ()^000000:";
	}
	set .@i, select(.@menu$);
	switch(.@i) {
	case 1:
		mes "[ӲҶһCX-1]";
		mes "ӭ.";
		close;
	default:
		set .@coin, .@coins[.@i-1];
		set .@coin_select, .@i-1;
		break;
	}
	if (countitem(.@coin) == 0) {
		mes "[ӲҶһCX-1]";
		mes "ѡõûеӲ.";
		mes "ӭ.";
		close;
	}
	mes "[ӲҶһCX-1]";
	mes "----һ----";
	mes "ɵͼһ߼ - 30  10";
	mes "ɸ߼һͼ - 10  30";
	mes "------------------------";
	mes "^ff3333ѡһҵ, ǻᰴյȡһ.^000000";
	next;
	setarray .@exchange_name$[0],"ɵ","ɸ";
	setarray .@exchange_rate[0],30,10;
	setarray .@exchange_loss[0],rand(1,4),rand(1,2); // Amount deducted per exchange.
	setarray .@exchange_id[0],.@coins[.@coin_select-1],.@coins[.@coin_select+1];
	if (.@exchange_id[0] == .@coins[1]) set .@exchange_id[0],0; // Cannot exchange for Silvervine.
	set .@menu$,"Stop:";
	for(set .@i,0; .@i<2; set .@i,.@i+1) {
		if (.@exchange_id[.@i] == 0)
			set .@menu$, .@menu$+"^ff3333޷һ "+.@exchange_name$[.@i]+" Ӳ^000000:";
		else if (countitem(.@coin) < .@exchange_rate[.@i])
			set .@menu$, .@menu$+"^aaaaaaһΪ "+.@exchange_name$[.@i]+" Ӳ ()^000000:";
		else
			set .@menu$, .@menu$+"һΪ "+.@exchange_name$[.@i]+" Ӳ - "+getitemname(.@coin)+" ("+.@exchange_rate[.@i]+" needed):";
	}
	set .@i, select(.@menu$)-2;
	if (.@i == -1) {
		mes "[ӲҶһCX-1]";
		mes "ӭ.";
		close;
	}
	if (.@exchange_id[.@i] == 0) {
		mes "[ӲҶһCX-1]";
		mes "Ӳ޷һ "+.@exchange_name$[.@i]+" Ӳ.";
		mes "ӭ.";
		close;
	}
	if (countitem(.@coin) < .@exchange_rate[.@i]) {
		mes "[ӲҶһCX-1]";
		mes "ֵӲҲԶһ "+.@exchange_name$[.@i]+" Ӳ.";
		mes "ӭ.";
		close;
	}
	set .@exchange_total, .@exchange_rate[(!.@i)] - .@exchange_loss[(!.@i)];
	delitem .@coin, .@exchange_rate[.@i];
	getitem .@exchange_id[.@i], .@exchange_total;
	mes "[ӲҶһCX-1]";
	mes "^003399"+.@exchange_rate[.@i]+"^000000 λ(s)  ^003399 "+getitemname(.@coin)+"^000000 ȡ.";
	mes "Ƕһ ^003399"+.@exchange_name$[.@i]+" Ӳ^000000, ۳ ^003399"+.@exchange_loss[(!.@i)]+"^000000 λ(s), ^003399"+.@exchange_total+"^000000 λ(s) ʣ.";
	close;
}

malangdo,218,165,5	script	رԶۻ	562,{
	if (checkweight(1201,1) == 0) {
		mes "ЯƷ. ǲܼ.";
		close;
	}
	if (MaxWeight - Weight < 10000) {
		mes "޷, Ϊĸز. ټ.";
		close;
	}
	mes "[رԶۻ]";
	mes "ӭʹCX-82. ʹˮԶһൺܶɫƷ.";
	next;
	callsub L_AddItem, //DisplayName,ItemID,Cost
		"- [23Сʱ]",16740,4,
		"- [7]",16763,12,
		"- [15]",16764,24,
		"- [23Сʱ]",16765,2,
		"- [3]",16766,5,
		"- [7]",16767,10,
		"- ߼",6441,56,
		"- ͨ",6440,36,
		"- ˮƿ",6443,192;
L_AddItem:
	set .@menu$,"˵:";
	for(set .@i,0; .@i<getargcount(); set .@i,.@i+3)
		set .@menu$, .@menu$+getarg(.@i)+":";
	set .@i, select(.@menu$)-2;
	if (.@i == -1) {
		mes "[رԶۻ]";
		mes "ǽˮıҪƷ.";
		next;
		mes "[رԶۻ]";
		mes "ǽ㶴ѨıҪƷ.";
		next;
		mes "[رԶۻ]";
		mes "߼ͨڷװ뿨Ƭ. רҽ׵Ļ, רΪص;.";
		next;
		mes "[رԶۻ]";
		mes "ˮƿһƷ, ʹԽװMVPƬ. ޷.";
		close;
	}
	set .@cost, getarg(.@i*3+2);
	mes "[رԶۻ]";
	mes "ѡ ^005500"+getarg(.@i*3)+"^000000. Щ, Ҫ ^005500"+.@cost+"^000000 λ(s) ĪAҹʵ?";
	next;
	if (countitem(6417) < .@cost)
		set .@ven_menu$, "^999999Aҹʵ( "+(.@cost - countitem(6417))+")^000000";
	else
		set .@ven_menu$, " - Aҹʵ ( "+countitem(6417)+")";
	switch(select("ֹͣ:"+.@ven_menu$)) {
	case 1:
		mes "[رԶۻ]";
		mes "ӭ.";
		close;
	case 2:
		if (countitem(6417) < .@cost) {
			mes "[رԶۻ]";
			mes "Aҹʵ.";
			mes "رս.";
			mes "ӭ.";
			close;
		}
		mes "[رԶۻ]";
		mes ". ӭ.";
		delitem 6417,.@cost; //Silvervine
		getitem getarg(.@i*3+1),1;
		close;
	}
}

malangdo,236,179,5	script	K	554,{
	if (checkweight(1201,1) == 0) {
		mes "ЯƷ. ǲܼ.";
		close;
	}
	if (MaxWeight - Weight < 1000) {
		mes "޷, Ϊĸز. ټ.";
		close;
	}
	mes "[K]";
	mes "ӭݹ.";
	mes "Ƕһ ^ff000010C^000000 Ϊ ^3333ff1Ī^000000. ǷھͶһ?";
	next;
	setarray .@coin_amount[0],10,100,500,1000;
	while(1) {
		set .@menu$,"";
		for(set .@i,0; .@i<getarraysize(.@coin_amount); set .@i,.@i+1) {
			if (countitem(6420) >= .@coin_amount[.@i])
				set .@menu$, .@menu$+"һ "+(.@coin_amount[.@i]/10)+" Ī:";
			else
				set .@menu$, .@menu$+"^aaaaaaһ "+(.@coin_amount[.@i]/10)+" Ī ()^000000:";
		}
		set .@i, select(.@menu$+"뿪")-1;
		if (.@i == getarraysize(.@coin_amount)) {
			mes "[K]";
			mes "´ٽ.";
			close;
		}
		if (countitem(6420) < .@coin_amount[.@i]) {
			mes "[K]";
			mes "Ҫ ^ff0000"+.@coin_amount[.@i]+"^000000 Cɽ. ǿȥû.";
			close;
		}
		delitem 6420,.@coin_amount[.@i]; //Cgrade_Coin
		getitem 6380,.@coin_amount[.@i]/10; //Mora_Coin
		mes "[K]";
		mes "C ^003399"+.@coin_amount[.@i]+"^000000 ܻӭ."; //FIXME: Dialogue.
		mes "һ ^003399"+(.@coin_amount[.@i]/10)+"^000000 Ī.";
		next;
		mes "[K]";
		mes "Ƿ?";
		next;
	}
}

malangdo,233,180,3	script	ɫ豸TX100	564,{
	if (checkweight(1201,1) == 0) {
		mes "ЯƷ. ǲܼ.";
		close;
	}
	if (MaxWeight - Weight < 1000) {
		mes "޷, Ϊĸز. ټ.";
		close;
	}
	mes "[ɫ豸TX100]";
	mes "ӭʹTX100. ͨڲͬӲ֮жһ.";
	next;
	mes "[ɫ豸TX100]";
	mes "ͼҵһԽ500, ߼ҵһԽ99.";
	next;
	setarray .@coins[1],
		6417, //Silvervine
		6418, //Agrade_Coin
		6419, //Bgrade_Coin
		6420, //Cgrade_Coin
		6421, //Dgrade_Coin
		6422; //Egrade_Coin
	set .@menu$,"뿪:";
	for(set .@i,1; .@i<=6; set .@i,.@i+1) {
		if (countitem(.@coins[.@i]))
			set .@menu$, .@menu$+getitemname(.@coins[.@i])+" ( "+countitem(.@coins[.@i])+"):";
		else
			set .@menu$, .@menu$+"^aaaaaa"+getitemname(.@coins[.@i])+" ()^000000:";
	}
	set .@i, select(.@menu$)-1;
	if (.@i == 0) {
		mes "[ɫ豸TX100]";
		mes "ӭ.";
		close;
	}
	set .@coin, .@coins[.@i];
	setarray .@exchange_name$[0],"ɵ","ɸ";
	setarray .@exchange_id[0],.@coins[.@i-1],.@coins[.@i+1];
	if (.@exchange_id[0] == .@coins[1]) set .@exchange_id[0],0; // Cannot exchange for Silvervine.
	if (.@i > getarraysize(.@coins)) {
		mes "[ɫ豸TX100]";
		mes "˵״̬쳣.";
		mes "ֹ. ӭ.";
		close;
	}
	if (countitem(.@coin) == 0) {
		mes "[ɫ豸TX100]";
		mes "ѡõûеӲ.";
		mes "ֹ. ӭ.";
		close;
	}
	mes "[ɫ豸TX100]";
	mes "----һ----";
	mes "ͼһ߼ - 3  1";
	mes "߼һͼ - 1  3";
	mes "---------------------";
	mes "^ff3333һȡķ.^000000";
	next;
	set .@menu$, "Quit:";
	if (.@exchange_id[0] == 0)
		set .@menu$, .@menu$+"^ff3333޷һ߼Ĵ^000000:";
	else {
		if (countitem(.@coin) >= 99)
			set .@menu$, .@menu$+"һ 99 "+getitemname(.@coin)+" һ:";
		else
			set .@menu$, .@menu$+"^aaaaaaһɸһ ()^000000:";
	}
	if (.@exchange_id[1] == 0)
		set .@menu$, .@menu$+"^ff3333޷һٵͼĴ^000000:";
	else {
		if (countitem(.@coin) > 500)
			set .@menu$, .@menu$+"һ 500 "+getitemname(.@coin)+" һ:";
		else if (countitem(.@coin))
			set .@menu$, .@menu$+"һ "+countitem(.@coin)+" "+getitemname(.@coin)+" һ:";
		else
			set .@menu$, .@menu$+"^aaaaaaһɵһ ()^000000:";
	}
	set .@i, select(.@menu$)-2;
	if (.@i == -1) {
		mes "[ɫ豸TX100]";
		mes "ӭ.";
		close;
	}
	if (.@exchange_id[.@i] == 0) {
		mes "[ɫ豸TX100]";
		mes "ӲҲܱһ "+.@exchange_name$[.@i]+" .";
		mes "ֹ. ӭ.";
		close;
	}
	if ((.@i == 0 && countitem(.@coin) < 100) || (.@i == 1 && countitem(.@coin) == 0)) {
		mes "[ɫ豸TX100]";
		mes "ĴԶһ "+.@exchange_name$[.@i]+" ";
		mes "ֹ. ӭ.";
		close;
	}
	if (countitem(.@exchange_id[.@i]) > 28000) {
		mes "[ɫ豸TX100]";
		mes " "+.@exchange_name$[.@i]+" ҵ. ´.";
		close;
	}
	switch(.@i) {
	case 0:
		set .@payment_amount,99;
		set .@reward_amount, .@payment_amount/3;
		set .@coin_text$,"High";
		break;
	case 1:
		set .@payment_amount,(((countitem(.@coin) > 500))?500:countitem(.@coin));
		set .@reward_amount, .@payment_amount*3;
		set .@coin_text$,"Low";
		break;
	}
	set .@fee, rand(1,3);
	delitem .@coin, .@payment_amount;
	getitem .@exchange_id[.@i], .@reward_amount - .@fee;
	mes "[ɫ豸TX100]";
	mes "յ ^003399"+getitemname(.@coin)+"^000000  ^003399"+.@payment_amount+"^000000 λ(s).";
	mes "ǽĴҶһΪ ^003399"+(.@reward_amount-.@fee)+"^000000 λ(s)  ^003399"+.@coin_text$+" ^000000, ۳ ^003399"+.@fee+"^000000 λ(s) .";
	close;
}

malangdo,175,145,4	script	ͷջ	549,{
	if (checkweight(1201,1) == 0) {
		mes "ЯƷ. ǲܼ.";
		close;
	}
	if (MaxWeight - Weight < 1000) {
		mes "޷, Ϊĸز. ټ.";
		close;
	}
	mes "[ͷջ]";
	mes ", ... ûзΧ ^0000ffൺèʳͷ^000000?";
	next;
	switch(select("- ΪʲôҪô?:- , ˼Щ?")) {
	case 1:
		mes "[ͷջ]";
		mes ".";
		mes "ڵصĻõһЩ鱨...";
		next;
		mes "[ͷջ]";
		mes "ൺزͷ߷. ЩˮϵĹͷ涨Ҫ, ȴһ˸.";
		next;
		mes "[ͷջ]";
		mes "ʵǺֳЩͷǷ. Ȼ˵Щ ^0000ffൺèʳͷ^000000.";
		next;
		mes "[ͷջ]";
		mes "ĲƷгͨ, ǵְһҪƷ. ûмʲô?";
		next;
		mes "[ͷջ]";
		mes "㷢ʲôɵ۹ͷ, һ.";
		close;
	case 2:
		if (countitem(12633) == 0) {
			mes "[ͷջ]";
			mes "? û ^0000ffൺèʳͷ^000000. Ҫ˴, ҵĻ...";
			close;
		}
		break;
	}
	mes "[ͷջ]";
	mes "ൺèʳͷĲƷ. ҳ3E. ?";
	next;
	switch(select("- Ҳ뻻:- ^0000ff1^000000  -> ^0000ff3^000000 E:- ^0000ff10^000000  -> ^0000ff30^000000 E:- ^0000ff100^000000  -> ^0000ff300^000000 E:- ȫ")) {
	case 1:
		mes "[ͷջ]";
		mes ", Ҳ᳤, һĻ, ͳ.";
		close;
	case 2:
		set .@check,1;
		set .@count,1;
		break;
	case 3:
		set .@check,10;
		set .@count,10;
		break;
	case 4:
		set .@check,100;
		set .@count,100;
		break;
	case 5:
		set .@check,1;
		set .@count,countitem(12633);
		break;
	}
	if (countitem(12633) < .@check) {
		if (.@check == 1) {
			mes "[ͷջ]";
			mes "? û ^0000ffൺèʳͷ^000000. Ҫ˴, ҵĻ...";
			close;
		} else {
			mes "[ͷջ]";
			mes "? Ҿ㲻... Ū㹻ʱ.";
			close;
		}
	}
	delitem 12633,.@count; //Malang_Cat_Can
	getitem 6422,.@count*3; //Egrade_Coin
	mes "[ͷջ]";
	mes " "+.@count+" ൺèʳͷ Ϊ "+(.@count*3)+" E. .";
	close;
}

function	script	F_mal_coin	{

// Initial dialogue and checks:
// -- callfunc "F_mal_coin",0,"[<NPC Name>]",<NPC ID>;
	if (getarg(0) == 0) {
		if (getarg(2) != 2 && BaseLevel < 50) {
			mes getarg(1);
			mes "~";
			mes "Ҫѷ,";
			mes "Ұ";
			mes "㻹̫С.";
			mes "С˵ѷ";
			mes "ʵ̫ݳ~";
			close;
		}
		mes getarg(1);
		mes "ܸ~~";
		mes "! ǵ~~ ǳȷ!";
		mes "ڳرķ";
		mes "ൺ϶һ!";
		next;
		mes getarg(1);
		mes "? 㻹ڿʲô?";
		mes "ΪʲôԿ";
		mes "ֱ۵˽ѷ?";
		next;
		switch(getarg(2)) {
		case 1:
			mes "[]";
			mes "~";
			mes "ЩƷ, Ū, Ƿֳ ^0000FF1Сʱ^000000  ^0000FF7^000000 汾.";
			next;
			break;
		case 2:
			break;
		case 3:
			mes "[Ѳ]";
			mes "ΪṩϢ,";
			mes "⽣, , צ, , Ʒ, ֻʹ1Сʱ.";
			next;
			break;
		}
		mes getarg(1);
		mes "ǲҪҵƷ?";
		next;
		switch(select("- :- ")) {
		case 1:
			if (checkweight(1201,1) == 0) {
				mes getarg(1);
				mes "ЯƷ. ǲܼ.";
				close;
			}
			if (MaxWeight - Weight < 2500) {
				mes getarg(1);
				mes "޷, Ϊĸز. ټ.";
				close;
			}
			mes getarg(1);
			mes "õ, ʶ°~~~";
			next;
			return;
		case 2:
			mes getarg(1);
			mes "õ, ô. ϣ´л.";
			mes "ټ.";
			close;
		}
	}

// Exchange function:
// -- callfunc "F_mal_coin",1,"[<NPC Name>]","<Display Name>",<Item ID>,<Egrade_Coin>,<Malang_Sp_Can>,<Silvervine>
	if (getarg(0) == 1) {
		mes getarg(1);
		mes " ^0000FF["+getarg(2)+"]^000000 ļ۸";
		if (getarg(4) && getarg(5)) { // Type 1: Egrade_Coin or Malang_Sp_Can
			mes getarg(4)+" Eһ "+getarg(5)+" ൺζͷ.";
			set .@type,1;
			set .@menu$,"- .:- , ùͷ.:- ʲô.";
		} else if (getarg(5)) { // Type 2: Malang_Sp_Can only
			mes getarg(5)+" ൺζͷ.";
			set .@type,2;
			set .@menu$,"- .::- .";
		} else { // Type 3: Silvervine only
			mes getarg(6)+" Aҹʵ.";
			set .@type,3;
			set .@menu$,"- .::- Ҳһ.";
		}
		next;
		mes getarg(1);
		if (.@type == 1) {
			mes "";
			mes "^0000FF["+getarg(2)+"]^000000 E?";
		} else {
			mes "";
			mes " ^0000FF["+getarg(2)+"]^000000?";
		}
		next;
		switch(select(.@menu$)) {
		case 2:
			set .@type,2;
		case 1:
			switch(.@type) {
			case 1:
				set .@item,6422; //Egrade_Coin
				set .@amount,getarg(4);
				set .@str$,"E";
				break;
			case 2:
				set .@item,12636; //Malang_Sp_Can
				set .@amount,getarg(5);
				set .@str$,"ൺζͷ";
				break;
			case 3:
				set .@item,6417; //Silvervine
				set .@amount,getarg(6);
				set .@str$,"Aҹʵ";
				break;
			}
			if (countitem(.@item) < .@amount) {
				mes getarg(1);
				mes "ҺܱǸ, Ҫ "+.@str$+".";
				close;
			}
			if (MaxWeight - Weight < getiteminfo(getarg(3),6)) {
				mes getarg(1);
				mes "Բ, ̫ණ.";
				mes "Ҫһĸ. Ȼ.";
				close;
			}
			mes getarg(1);
			mes "лл.";
			delitem .@item,.@amount;
			getitem getarg(3),1;
			return;
		case 3:
			mes getarg(1);
			mes "㹺ʱ";
			mes "뱣ֽ.";
			close;
		}
	}
}
malangdo,162,146,5	script	#mal	495,{
	callfunc "F_mal_coin",0,"[]",1;
	setarray .@items[1],
		16743,16747,16741,16745,16749,16751, // 1 hour items.
		16742,16744,16746,16748,16752,16750; // 7 day items.
	setarray .@names$[1],
		"ǹ","㴸","״㽣","㽣","з","㹭",
		"״㽣(7)","ǹ(7)","㽣(7)","㴸(7)","㹭(7)","з(7)";
	while(1) {
		set .@i, select(
			"[ǹ(1Сʱ)] 8 E/50 ",
			"[㴸(1Сʱ)] 8 E/50 ",
			"[״㽣(1Сʱ)] 8 E/50 ",
			"[㽣(1Сʱ)] 8 E/50 ",
			"[з(1Сʱ)] 8 E/50 ",
			"[㹭(1Сʱ)] 8 E/50 ",
			"[״㽣(7)] 10 Aҹʵ",
			"[ǹ(7)] 10 Aҹʵ",
			"[㽣(7)] 10 Aҹʵ",
			"[㴸(7)] 10 Aҹʵ",
			"[㹭(7)] 10 Aҹʵ",
			"[з(7)] 10 Aҹʵ",
			"ֹ."
		);
		if (.@i == 13) {
			mes "[]";
			mes "õ, ô. ϣ´л.";
			mes "ټ.";
			close;
		}
		mes "[]";
		mes " ^0000FF["+.@names$[.@i]+"]^000000Ȥ?";
		switch(.@i) {
		case 1: //Spearfish_Box1
		case 8: //Spearfish_Box2
			mes "... Ǩ, ǳó!";
			mes "ʳ, ζ~";
			next;
			mes "[]";
			mes "Ȼ,  ^DC143C˫ì^000000.";
			mes "кܸ߸";
			mes "ɶֳѪ״̬";
			mes "رǵʹ̻̻ʱ~";
			next;
			mes "[]";
			mes "ϸ...";
			mes "ܹ 100% ˺ ͬʱ  50% ˺,";
			mes "ȼ100 ATK + 30.";
			mes " 220.";
			next;
			break;
		case 2: //Tuna_Box1
		case 10: //Tuna_Box2
			mes "һַǳܻӭ";
			mes "ڸ.";
			mes "ʿ, , ͷϵʹ.";
			mes " ^DC143C^000000.";
			next;
			mes "[]";
			mes "нϸ߸ʹѣ, Զӽͻ.";
			mes "ǽսְҵǳֵı.";
			mes " 180.";
			next;
			mes "[]";
			mes "ϸ...";
			mes "ȼ100 ATK + 20,";
			mes "͸ʱԼ.";
			next;
			break;
		case 3: //Hairtail_Box1
		case 7: //Hairtail_Box2
			mes "㿴һƤ.";
			next;
			mes "[]";
			mes "һ ^DC143C˫ֽ^000000";
			mes "ʺϽʿϵʹ.";
			mes " 50% ɱ˺,  CRI + 20.";
			mes " 220.";
			next;
			mes "[]";
			mes "ϸ...";
			mes "ȼ100 ATK + 50.";
			next;
			break;
		case 4: //Saurel_Box1
		case 9: //Saurel_Box2
			mes "һ ^DC143Cذ^000000  MATK + 100";
			mes "ͬʱʱһ7 ATK + 30.";
			next;
			mes "[]";
			mes "ϸ...";
			mes "ʱһ7 MATK + 20.";
			mes "ȼ100 MATK + 10, ATK + 10.";
			mes " 160.";
			next;
			break;
		case 5: //Malang_Crab_Box1
		case 12: //Malang_Crab_Box2
			mes "һ ^DC143C^000000  LUK + 3  50% ˺,";
			mes "ȼ100 20% Զ̹˺.";
			mes " 120.";
			next;
			mes "[]";
			mes "ϸ...";
			mes ", åϵʹ.";
			next;
			break;
		case 6: //Brindle_Eel_Box1
		case 11: //Brindle_Eel_Box2
			mes "һ ^DC143C^000000.";
			mes "мǿ,";
			mes "ǰɹ.";
			mes " 180.";
			next;
			mes "[]";
			mes "ϸ...";
			mes "Զһ5ʹ AGI + 3,  ASPD + 2.";
			mes "ȼ100 20% Զ̹˺.";
			mes ", ʫ, ϵʹ.";
			next;
			break;
		}
		if (.@i < 7)
			setarray .@price[0],8,50,0; // 1 hour items cost 8 Egrade_Coin or 50 Malang_Sp_Can.
		else
			setarray .@price[0],0,0,10; // 7 day items cost 10 Silvervine.
		callfunc "F_mal_coin",1,"[]",.@names$[.@i],.@items[.@i],.@price[0],.@price[1],.@price[2];
		next;
	}
}

malangdo,173,145,4	script		496,{
	callfunc "F_mal_coin",0,"[]",2;
	setarray .@items[1],2873,16015;
	setarray .@names$[1],"èצ","èצľ";
	while(1) {
		set .@i, select(
			"[èצ] 32 E/200 ",
			"[èצľ] 32 E/200 ",
			"ɹ."
		);
		if (.@i == 3) {
			mes "[]";
			mes "õ, ô, ϣ´ټ.";
			mes "ټ.";
			close;
		}
		mes "[]";
		mes " ^0000FF["+.@names$[.@i]+"]^000000Ȥô?";
		switch(.@i) {
		case 1: //Cat_Hand_Glove
			mes "һԴҸ";
			mes ".";
			next;
			mes "[]";
			mes "һ ^DC143CװƷ^000000";
			mes "ķ +5.";
			mes "ͬʱ";
			mes "VIT + 1, AGI + 1, DEX + 1, LUK + 1.";
			next;
			mes "[]";
			mes "ϸ...";
			mes "1 / ɾ / ";
			next;
			break;
		case 2: //Cat_Club
			mes "ȥƻ, ôΪ?";
			mes "Ҹ, ˺.";
			next;
			mes "[]";
			mes "Tһ^DC143C^000000 Զ˺15%.";
			mes " 88.";
			mes "";
			mes "ȼ: 1 / SLOT: 3 / :  / : ";
			next;
			break;
		}
		callfunc "F_mal_coin",1,"[]",.@names$[.@i],.@items[.@i],32,200,0;
		next;
	}
}

malangdo,150,135,5	script	Ѳ	495,{
	callfunc "F_mal_coin",0,"[Ѳ]",3;
	setarray .@items[1],12639,12637,12638,12640;
	setarray .@names$[1],"","󸾳ӵ","צ","";
	while(1) {
		set .@i, select(
			"[] 200 ",
			"[󸾳ӵ] 200 ",
			"[צ] 200 ",
			"[] 200 ",
			"ֹ."
		);
		if (.@i == 5) {
			mes "[Ѳ]";
			mes "õ, ô, ϣ´ټ.";
			mes "ټ.";
			close;
		}
		mes "[Ѳ]";
		mes " ^0000FF["+.@names$[.@i]+"]^000000Ȥ?";
		switch(.@i) {
		case 1: //Flying_Fish_Box
			mes "Щһ";
			mes "Ҫǿļſɲٿ.";
			next;
			mes "[Ѳ]";
			mes "һ ^DC143CͶ^000000.";
			mes "Ȼ, Զ.";
			mes "ڹʱЧ.";
			next;
			mes "[Ѳ]";
			mes "Ե,  ATK +50.";
			next;
			break;
		case 2: //Gong_Bug_Pocket
			mes "ҵ, Ҫһ.";
			mes " ^DC143Cӵ^000000 һʹѣ.";
			next;
			mes "[Ѳ]";
			mes "Ҿп";
			mes "Ҳʺ...";
			mes "Ե,  ATK +50.";
			next;
			break;
		case 3: //Dried_Squid_Box
			mes "ҪƷ.";
			mes "һ ^DC143CͶ^000000 һöڰ.";
			mes ",  ATK +50.";
			next;
			mes "[Ѳ]";
			mes "Ѿѹ";
			mes "ںС,";
			mes "ʹõʱҪǧС.";
			next;
			break;
		case 4: //Starfish_Box
			mes "ҪƷ.";
			mes "һ ^DC143CͶ^000000 һʹѣ.";
			next;
			mes "[Ѳ]";
			mes "Ѿܵİװ";
			mes "㿴.";
			mes ",  ATK +110.";
			next;
			break;
		}
		mes "[Ѳ]";
		mes "һϢ,";
		mes "һ";
		mes "200 .";
		next;
		callfunc "F_mal_coin",1,"[Ѳ]",.@names$[.@i],.@items[.@i],0,200,0;
		next;
	}
}

// Eclage
//============================================================
ecl_in01,66,95,2	script	ɷ	436,{
	mes "[]";
	mes ", ɷǵ̵, ĶǸ߼.";
	mes "Ҫɶ??";
	next;
	set .@i, select("- :- :- :- :- :- e");
	mes "[]";
	switch(.@i) {
	case 1: // Str Glove
		mes "^3131FF^000000";
		mes "^3131FFMHP + 100, MSP + 20^000000";
		mes "^3131FFATK+1 ӣÿ STR+10^000000";
		mes "^3131FFATK +1% ӣ STR 110^000000";
		set .@item,2917; //Str_Glove
		break;
	case 2:
		mes "^3131FF^000000";
		mes "^3131FFMHP + 100, MSP + 20^000000";
		mes "^3131FFMATK+1 ӣÿ INT+10^000000";
		mes "^3131FFMATK +1% ӣ INT 110^000000";
		set .@item,2918; //Int_Glove
		break;
	case 3:
		mes "^3131FFAgi Glove^000000";
		mes "^3131FFMHP + 100, MSP + 20^000000";
		mes "^3131FFFLEE+1 ӣÿ AGI+10^000000";
		mes "^3131FFComplete Flee +1 ӣ AGI 110^000000";
		set .@item,2919; //Agi_Glove
		break;
	case 4:
		mes "^3131FFVit Glove^000000";
		mes "^3131FFMHP + 100, MSP + 20^000000";
		mes "^3131FFMHP+50 ӣÿ VIT+10^000000";
		mes "^3131FFMHP+1% ӣ VIT 110^000000";
		set .@item,2920; //Vit_Glove
		break;
	case 5:
		mes "^3131FFDex Glove^000000";
		mes "^3131FFMHP + 100, MSP + 20^000000";
		mes "^3131FFHIT+1 ӣÿ DEX+10^000000";
		mes "^3131FFԶ̹ +1%  DEX 110^000000";
		set .@item,2921; //Dex_Glove
		break;
	case 6:
		mes "^3131FFLuk Glove^000000";
		mes "^3131FFMHP + 100, MSP + 20^000000";
		mes "^3131FFCRI+1 ӣÿ LUK+10^000000";
		mes "^3131FF˺ +1%  LUK 110^000000";
		set .@item,2922; //Luk_Glove
		break;
	}
	mes "^3131FFҪȼ: 100^000000";
	mes "^3131FF: 0^000000";
	mes "^3131FF: 10^000000";
	mes "Щⶫɫ.";
	next;
	mes "[]";
	mes "Ҫ10ԻӲ.";
	mes "Ҫһô?";
	next;
	if(select("- һ.:- .") == 2)
		close;
	if (countitem(6081) < 10) {
		mes "[]";
		mes "ûôӲҰ.";
		close;
	}
	mes "[]";
	mes "ú!"; //custom
	delitem 6081,10; //Splendide_Coin
	getitem .@item,1;
	close;
}

ecl_in01,64,97,4	script	רͼ#ecl	436,{
	mes "[ר]";
	mes "ǿרͼ.";
	mes "ܴҵСֵɷҪĶٸ5ԻӲҵĻ, ҽΪ.";
	next;
	if(select("- .:- ˰.") == 2)
		close;
	mes "[ר]";
	mes "TMǸѵ° 㳬עŷŴ󾵿пʧ.";
	next;
	mes "[ר]";
	mes "Ȼ, عĻ,ǲ. ԰? һҪô?";
	next;
	if(select("- .:- ˰.") == 2)
		close;
	mes "[ר]";
	mes "ļ?";
	next;
	setarray .@noslots[0],2917,2918,2919,2920,2921,2922;
	setarray .@slotted[0],2923,2924,2925,2926,2927,2928;
	set .@i, select("- :- :- :- :- :- ")-1;
	set .@item, .@noslots[.@i];
	set .@new_item, .@slotted[.@i];
	mes "[ר]";
	mes "ȷһ. 򶴵 "+getitemname(.@item)+"?";
	next;
	if(select("ǵ:") == 2) {
		mes "[ר]";
		mes "Ϊʲôȷٺ˵.";
		close;
	}
	if (countitem(.@item) == 0) {
		mes "[ר]";
		mes "ûǶ. Ϊʲôȷٺ˵.";
		close;
	}
	if (countitem(6081) < 5) {
		mes "[ר]";
		mes "û㹻Ӳ. Ϊʲôȷٺ˵."; //custom
		close;
	}
	delitem 6081,5; //Splendide_Coin
	delitem .@item,1;
	//custom to the end
	if (rand(100) < 5) {
		mes "[ר]";
		mes "า, ʧ! ҺܱǸ,Ը´κ˰.";
		close;
	}
	mes "[ר]";
	mes "ɹ!ҳɹĴ.";
	getitem .@new_item,1;
	close;
}

ecl_in01,67,39,4	script	ר	445,{
	emotion e_lv;
	mes "[]";
	mes "ฺ. Ҫɶ? кܶö.";
	next;
	switch(select("- ,лл.:- ˵һ?:- ֪вٺö!")) {
	case 1:
		emotion e_an;
		mes "[]";
		mes "? ?";
		close;
	case 2:
		mes "[]";
		mes "ҿ˵ڰû˱ħϸ.";
		next;
		mes "[]";
		mes "ɶҶüǮ. .";
		next;
		select("Ϊʲô?");
		emotion e_no1;
		mes "[]";
		mes ",ϲ̬.";
		next;
		mes "[]";
		mes "- ڴǶñ";
		next;
		emotion e_what;
		mes "[]";
		mes "㻹ֿ֪ļ̵Ĳʮֳñô?֪԰?";
		next;
		select(".........");
		emotion e_dots,1;
		emotion e_heh;
		mes "[]";
		mes "˰!Ҿ֪. ӵһӿҾ֪.";
		next;
		mes "[]";
		mes " ^ff0000 50 ԻӲҺ^000000, һһһģһñӣ^ff0000^000000.";
		next;
		mes "[]";
		mes ",ɶ...?";
		mes "ΪЩðռҽ ^0571B0^000000?ô?";
		next;
		select("ǵ~ Ҫɶ?");
		mes "[]";
		mes "Ҫ 1 ^0571B0ñ^000000 ͬʱ";
		mes "Ҫ^E1281E 4 ˮ^000000 ħ, ^E1281E 1 ħĩ^000000 Ϊ߻, ^E1281E ̱ʯ, 챦ʯ, ʯ, Ʊʯ, ʯ, ÿʮ^000000, Ŵħ.";
		next;
		emotion e_no;
		mes "[]";
		mes "Ҫͦϵ,԰? ð, ұҪЩ.ħ򽻵ɲǶϷ.";
		next;
		select("ܸЩñ?");
		mes "[]";
		mes "! ͦ!";
		mes "ҶҪ.";
		next;
		mes "[]";
		mes "ܸƵñ:";
		mes "^0571B0ñ, Ҷ, ɽͷ, , ߶ͷ, Сħñ, ̿Ϳ, , ͳ,  ѧñ^000000 10ñ.";
		next;
		mes "[]";
		mes "? вϵӶϾܸ.";
		next;
		if(select("- һЩ˵.:- չʾҿ!") == 1) {
			emotion e_dots;
			mes "[]";
			mes "ʲô? ڿЦ? ڿЦ!";
			close;
		}
		break;
	case 3:
		break;
	}
	mes "[]";
	mes "ɽɽ.";
	mes "ȷľ. ҾҶˣΪȫ˹˶ñӲȤ.";
	next;
	mes "[]";
	mes "һüǮ. Ӧ֪ҸһüǮ.";
	next;
	mes "[]";
	mes "Щɶ? ˵?";
	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)
		set .@item_check,1;
	for(set .@i,0; .@i<getarraysize(.@items); set .@i,.@i+1) {
		if (.@item_check && countitem(.@items[.@i]))
			set .@menu$, .@menu$+getitemname(.@items[.@i])+":"; //custom
		else
			set .@menu$, .@menu$+getitemname(.@items[.@i])+" (^777777ϲ^000000):";
	}
	set .@i, select(.@menu$)-1;
	set .@item, .@items[.@i];
	set .@new_item, .@costumes[.@i];
	mes "[]";
	mes " ^0571B0"+getitemname(.@item)+"^000000 ô?";
	next;
	if (.@item_check == 0 || countitem(.@item) == 0) {
		emotion e_sob;
		mes "[]";
		mes "ѽ... ǲõ.";
		next;
		mes "[]";
		mes "^0571B0"+getitemname(.@item)+"^000000 and";
		mes "^E1281E50 ԻӲ, 4 ˮ, 1 ħĩ, ̱ʯ, 챦ʯ, ʯ, Ʊʯ, ̱ʯÿ10^000000 Ǳ.";
		next;
		mes "[]";
		mes "ڵҲܲ. ҲҵĴ.";
		close;
	}
	//custom to the end
	if(select("- .:- ˰.") == 2)
		close;
	delitem .@item,1;
	delitem 6081,50; //ԻӲ
	delitem 747,4; //ˮ
	delitem 6395,1; //ħĩ
	delitem 721,10; //̱ʯ
	delitem 723,10; //챦ʯ
	delitem 726,10; //ʯ
	delitem 728,10; //Ʊʯ
	delitem 729,10; //̱ʯ
	getitem .@new_item,1;
	mes "[]";
	mes "ʮָл! ҳŵ㶨Ƶñ.";
	close;
}

ecl_in01,33,98,4	script	ҩ#e	443,{
	mes "[ҩ]";
	mes "ӭ, ȵĲҩ̵꣬ÿչӦʵĲҩ~!";
	next;
	switch(select("- ѩ:- ҩ֮ĸ:- û:- ֮֮:- Ի")) {
	case 1:
		mes "[ҩ]";
		mes "ѩ״̬Ч ^3131FF, Ѫ, ˯, ˯^000000.";
		set .@item,12812; //Snow_Flip
		set .@cost,5;
		break;
	case 2:
		mes "[ҩ]";
		mes "ҩ֮ĸ״̬Ч ^3131FF, , ^000000.";
		set .@item,12813; //Peony_Mommy
		set .@cost,5;
		break;
	case 3:
		mes "[ҩ]";
		mes "ûݶ״̬Ч^3131FFѣ, ־, , ^000000.";
		set .@item,12814; //Slapping_Herb
		set .@cost,1;
		break;
	case 4:
		mes "[ҩ]";
		mes "֮֮״̬Ч ^3131FF, , , ߵ^000000.";
		set .@item,12815; //Yggdrasil_Dust
		set .@cost,1;
		break;
	case 5:
		mes "[ҩ]";
		mes "ʱ.";
		close;
	}
	mes "Ҫ5֮ʹ.";
	mes "Ҫ "+.@cost+" ԻӲ"+((.@cost == 1)?"":"s")+" ÿ.";
	next;
	switch(select("- һ.:- ʮ.:- .")) {
	case 1:
		set .@amount,1;
		break;
	case 2:
		set .@amount,10;
		break;
	case 3:
		close;
	}
	set .@price,.@amount*.@cost;
	mes "[ҩ]";
	mes "Ҫ "+.@amount+" "+getitemname(.@item)+"?";
	next;
	if(select("- .:- .") == 2)
		close;
	if (countitem(6081) < .@price) {
		mes "[ҩ]";
		mes "û㹻Ӳ.";
		close;
	}
	mes "[ҩ]";
	mes "Ĳҩ."; //custom
	delitem 6081,.@price; //Splendide_Coin
	getitem .@item,.@amount;
	end;
}
