//===== rAthena Script =======================================
//= Rare Diamond Merchant
//===== By: ==================================================
//= Z3R0
//===== Current Version: =====================================
//= 1.5
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= [Official Conversion]
//= Exchanges 17 Carat Diamond
//===== Additional Comments: =================================
//= 1.0 First / Optimized Version
//= 1.1 Adjusted for Missing ; on Line #271 (#15425)
//= 1.2 Removed Comments per Request (#15426)
//= 1.3 Changed Emotion # to Const Definition (#15427)
//= 1.4 Removed Double Space on Line #148 (#15428)
//= 1.5 Added This Version History (#15429)
//============================================================

-	script	RareDiamondMerchant	58,{

	set .@npc$, "[ϡʯ]";

	mes .@npc$;
	mes "Ůʿ! ! !";
	mes "˵ , ûһ";
	mes "ϡеʯ!";
	mes "^FF82FF'֮ʯ'^000000 ĿǰԱ˵ļ۸!!";
	mes "ʯȤ!";
	next;
	
	mes .@npc$;
	mes "ԽʯΪ͸.";
	mes "Է ^FF82FF'֮ʯ'^000000";
	mes "ڶԷн.";
	emotion e_loud;
	next;
	
	mes .@npc$;
	mes "ʲôû?";
	mes "Ȼӵ.";
	mes "˹ʵ ^FF82FF'֮ʯ'^000000 ";
	mes "д.";
	next;
	
	mes .@npc$;
	mes "^FF82FF'֮ʯ'^000000!";
	mes "Ϊ˵ʯ...";
	next;

	set .@menu$, "^FF82FF'֮ʯ'^000000?";
	if (countitem(6024))
		set .@menu$, .@menu$ + ":֮ʯȡ...";

	switch(select(.@menu$)) {
	case 1:
		mes .@npc$;
		mes "ǵ!";
		mes "Ǻ, ڿ,";
		mes "^FF82FF'֮ʯ'^000000.";
		mes "ĴСɫ͸";
		mes "޿ھʯֱ!";
		emotion e_omg;
		next;
		
		mes .@npc$;
		mes "λKachuaڿħ";
		mes "ҲмǳƵʯ!";
		next;
		
		if (select("Ի:Ǯ?") == 1) {
			mes .@npc$;
			mes "൱˵!";
			mes "Ȥʱܸ!";
			close;
		}
		
		mes .@npc$;
		mes "Ȼ! ҪǼ۸!";
		mes "Ҹղ˵, ûκʯһ,";
		mes "걻Ϊ.";
		mes "^FF82FF'֮ʯ'^000000 .";
		next;
		
		mes .@npc$;
		mes "һ 5 zeny!";
		mes " 1,000,000z ķ.";
		mes "ʯ";
		mes "ǺСĴ.";
		next;
		
		if (select("^828282̫.^000000:.") == 1) {
			mes .@npc$;
			mes "Ȼ˵";
			mes "^FF82FF'֮ʯ'^000000 ̫, ";
			mes ".";
			close;
		}
		
		mes .@npc$;
		mes "!!ӿǿ";
		mes "Ҿ֪ʯӵ.";
		mes "ܸûд";
		mes "ʯǳʺ";
		mes "ҪɺԼ.";
		next;
		
		while(1) {
			if (select("^B9062FһںԼǩ.^000000:^828282ûϵ, Ҹı.^000000") == 2) {
				mes .@npc$;
				mes ", ̫..";
				close;
			}
			
			mes .@npc$;
			mes "Ĵ?";
			next;
			
			mes "[" + strcharinfo(0) + "]";
			mes "ҵ " + strcharinfo(0) + ".";
			next;

			mes .@npc$;
			mes "ôð, ǩ.";
			next;
			
			input .@charname$;
			if (.@charname$ == strcharinfo(0)) {
				mes .@npc$;
				mes "Okay, good.";
				mes "ֻʣ½׸.";
				next;
				
				if (Zeny >= 501000000) {
					mes .@npc$;
					mes ". . . . . .";
					next;
					
					mes .@npc$;
					mes "ܼ۸..";
					mes "501,000,000 zeny.";
					mes "ȷϽ.";
					emotion e_loud;
					set Zeny, Zeny - 501000000;
					getitem 6024, 1;
					next;

					mes .@npc$;
					mes "ۺʱʯȡ.";
					mes "Ȼ, 1,000,000z .";
					mes "л.";
					emotion e_thx;
					close;
				}
				else {
					mes .@npc$;
					mes "Hm?";
					mes "ܱǸ, û㹻ʽ.";
					mes "ѣ 501,000,000z Ǳ.";
					mes "ȷʽһ.";
					emotion e_hmm;
					close;
				}
			}
			else {
				mes .@npc$;
				mes "ǩ?";
				mes "ǩٴȷ?";
				next;
			}
		}
	case 2:
		mes .@npc$;
		mes "AAH.  ^FF82FF'֮ʯ'^000000ȡ?";
		emotion e_gasp;
		next;
		if (select("ǵ:Ҫ") == 2) {
			mes .@npc$;
			mes "ôʲôԸ?..";
			mes ". . . . . ....";
			emotion e_dots;
			close;
		}

		mes .@npc$;
		mes ". յǩ, ";
		mes "ṩ ^FF82FF'֮ʯ'^000000.";
		mes "Ҳ 1,000,000z !";
		next;
		
		mes .@npc$;
		mes "?";
		next;
		
		mes "[" + strcharinfo(0) + "]";
		mes "ҵ " + strcharinfo(0) + ".";
		next;
		
		mes .@npc$;
		mes "ôðɣǩ.";
		next;
		
		while (1) {
			if (select("ǩ:ǩ") == 2) {
				mes .@npc$;
				mes "ײûǩ.";
				close;
			}
			
			input .@charname$;
			if (.@charname$ == strcharinfo(0)) {
				mes .@npc$;
				mes "յǩ.";
				mes "ҽȡ ^FF82FF'֮ʯ'^000000..";
				mes "յ ^0000FF499,000,000z^000000 .";
				next;
				
				mes .@npc$;
				mes "л.";
				mes "ÿҪ ^FF82FF'֮ʯ'^000000,";
				mes "ʱ.";
				emotion e_thx;
				delitem 6024, 1;
				set Zeny, Zeny + 499000000;
				close;
			}
			else {
				mes .@npc$;
				mes "ǩ?";
				mes "ڴȷ?";
				next;
			}
		}
	}
}

prontera,165,89,6	duplicate(RareDiamondMerchant)	ϡʯ#1	58
geffen,106,63,6	duplicate(RareDiamondMerchant)	ϡʯ#2	58
morocc,146,100,6	duplicate(RareDiamondMerchant)	ϡʯ#3	58
alberta,129,60,6	duplicate(RareDiamondMerchant)	ϡʯ#4	58
lighthalzen,163,65,6	duplicate(RareDiamondMerchant)	ϡʯ#5	58
rachel,106,142,6	duplicate(RareDiamondMerchant)	ϡʯ#6	58
payon,180,130,6	duplicate(RareDiamondMerchant)	ϡʯ#7	58
