//===== eAthena Script =======================================
//= 3rd Jobs Merchants
//===== By: ==================================================
//= 5511
//===== Current Version: =====================================
//= 1.5
//===== Compatible With: =====================================
//= SeAthena 1.3.200+
//===== Description: =========================================
//= [Most cRO Conversion]
//
//= ʿ
//= - ʯԱ
//=
//= ʮи
//= - Ա
//= - Իҩɼ
//=
//= ʦ
//= - ħԱ
//=
//===== Additional Comments: =================================
//= 1.0 First version. [5511]
//= 1.0a ԱĽǮ. [5511]
//= 1.1 "ԪƬ". [5511]
//= 1.1a ְҵж. [5511]
//= 1.2 NPC/. [5511]
//= 1.3 "Իҩɼ". [5511]
//= 1.4 ħԱ. [5511]
//= 1.4a ٷִ. [5511]
//= 1.5 Ƴļ,ͨʯķ. [5511]
//============================================================

-	script	Poison Herb Merchant	877,{
	if (checkweight(1201,1) == 0) {
		mes "һ!";
		mes "ǰ̫ණ!";
		close;
	}
	set .@now_weight,MaxWeight - Weight;
	if(.@now_weight < 20000) {
		mes "һ!";
		mes "ǰ̫ණ!";
		close;
	}
	mes "[Ա]";
	mes "רų۶ݵĶ.";
	mes "ʲô?";
	mes "ݵļ۸ȫ4000z.";
	next;
	switch(select(":ӧ:Ҷ::ݹ:͸ǲ:ƶ")) {
	case 1:
		callsub S_SellPoisonHerb,7932,4000; // 
		break;
	case 2:
		callsub S_SellPoisonHerb,7933,4000; // ӧ
		break;
	case 3:
		callsub S_SellPoisonHerb,7934,4000; // Ҷ
		break;
	case 4:
		callsub S_SellPoisonHerb,7935,4000; // 
		break;
	case 5:
		callsub S_SellPoisonHerb,7936,4000; // ݹ
		break;
	case 6:
		callsub S_SellPoisonHerb,7937,4000; // ͸ǲ
		break;
	case 7:
		mes "[Ա]";
		mes "ƶֻ1,";
		mes "۸5000z, Ҫ?";
		next;
		if(select("ǵ:") == 2) {
			mes "[Ա]";
			mes "? ֪.";
			close;
		}
		if (Zeny < 5000) {
			mes "[Ա]";
			mes "Ǯ! Ǯ! Ǯ! Ǯ!";
			mes "ȷºð!";
			close;
		}
		set zeny,zeny-5000;
		getitem 7931,1;	// ƶ
		mes "[Ա]";
		mes "Ҫƶ.";
		close;
	}
	close;

S_SellPoisonHerb:
	mes "[Ա]";
	mes "򼸸?";
	mes "Թ2000, ȡ, 0";
	next;
	input .@input,0,2001;
	if (.@input < 1) {
		mes "[Ա]";
		mes "ȡ.";
		close;
	}
	if (.@input > 2000) {
		mes "[Ա]";
		mes "ȷ.";
		close;
	}
	set .@price,.@input*getarg(1);
	mes "[Ա]";
	mes ""+.@input+"һ"+.@price+"z.";
	mes "Ƿ?";
	next;
	if(select("ǵ:") == 2) {
		mes "[Ա]";
		mes "? ֪.";
		close;
	}
	if (Zeny < .@price) {
		mes "[Ա]";
		mes "Ǯ! Ǯ! Ǯ! Ǯ!";
		mes "ȷºð!";
		close;
	}
	set zeny,zeny-.@price;
	getitem getarg(0),.@input;
	mes "[Ա]";
	mes "ҪĶ.";
	close;
}

job3_guil01,79,96,3	duplicate(Poison Herb Merchant)	Ա#job	877
morocc,190,96,4	duplicate(Poison Herb Merchant)	Ա#moc	877
lhz_in02,16,205,4	duplicate(Poison Herb Merchant)	Ա#lhz	877

job3_guil01,91,93,3	script	ϧݲɼ	49,{
	if(baseClass != Job_Thief || !(Upper&4)){
		mes "[ϧݲɼ]";
		mes "Բɼϵ󶾲Ϊ.";
		mes "Ҳ, Ǻ...";
		close;
	}
	if (checkweight(1201,1) == 0) {
		mes "һ!";
		mes "ǰ̫ණ!";
		close;
	}
	set .@now_weight,MaxWeight - Weight;
	if(.@now_weight < 20000) {
		mes "һ!";
		mes "ǰ̫ණ!";
		close;
	}
	mes "[ϧݲɼ]";
	mes "Բɼϵ󶾲Ϊ.";
	mes "ڳԻòݵĶ. ȤĻ, Դﹺ.";
	next;
	switch(select("?:öѪ:ÿζݽ:۶ݽ:ñõ彻:ֹʹҩ:׻")) {
	case 1:
		mes "[ϧݲɼ]";
		mes "ܸе1Լ1, ʱԽ.";
		mes "ڳԻòݵĶ. ȤĻ, Դﹺ.";
		next;
		mes "[ϧݲɼ]";
		mes "ΪʲôҪǮ? 1, ǸҵѰ, Ǻ...";
		close;
	case 2:
		set .@izidor_material,702; // Ѫ
		break;
	case 3:
		set .@izidor_material,621; // ζ
		break;
	case 4:
		set .@izidor_material,631; // ۶
		break;
	case 5:
		set .@izidor_material,749; // õ
		break;
	case 6:
		set .@izidor_material,605; // ֹʹҩ
		break;
	case 7:
		set .@izidor_material,703; // ׻
		break;
	}
	if ((Zeny < 10000) || !countitem(.@izidor_material)) {
		mes "[ϧݲɼ]";
		mes "ι, ȰѲĲֲ, Ȼٺҽ?";
		close;
	}
	delitem .@izidor_material,1;
	set zeny,zeny - 10000;
	getitem 709,1;	// Իҩ
	mes "[ϧݲɼ]";
	mes "ܺ. ǮͶҶյ.";
	close;
}

-	script	Rune Merchant	853,{
	if (checkweight(1201,1) == 0) {
		mes "һ!";
		mes "ǰ̫ණ!";
		close;
	}
	set .@now_weight,MaxWeight - Weight;
	if(.@now_weight < 20000) {
		mes "һ!";
		mes "ǰ̫ණ!";
		close;
	}
	mes "[ʯԱ]";
	mes "Ҫʯ?!";
	mes "!";
	mes "Ҫʲôʯ.";
	next;
	switch(select("߼ԭʯ:ͨԭʯ")) {
	case 1:
		callsub S_SellRunstone,12734,2500; // ߼ԭʯ
		break;
	case 2:
		callsub S_SellRunstone,12737,1000; // ͨԭʯ
		break;
	}
	close;

S_SellRunstone:
	mes "[ʯԱ]";
	mes ""+getitemname(getarg(0))+"!";
	mes "ֻҪ"+getarg(1)+"z!";
	mes "Ҫٸ, ";
	mes "2000!";
	next;
	input .@input,0,2001;
	if (.@input < 1 || .@input > 2000) {
		mes "[ʯԱ]";
		mes "Ļ, ͸߿!";
		close;
	}
	set .@price,.@input*getarg(1);
	mes "[ʯԱ]";
	mes ""+.@input+"һ"+.@price+"z.";
	mes "Ƿ?";
	next;
	if(select("ǵ:") == 2) {
		mes "[ʯԱ]";
		mes "Ļ, ͸߿!";
		close;
	}
	if (Zeny < .@price) {
		mes "[ʯԱ]";
		mes "Ǯ! Ǯ! Ǯ! Ǯ!";
		mes "ȷºð!";
		close;
	}
	set zeny,zeny-.@price;
	getitem getarg(0),.@input;
	mes "[ʯԱ]";
	mes "´, ллݹ!";
	close;
}

job3_rune01,90,62,3	duplicate(Rune Merchant)	ʯԱ#job	853
prontera,168,228,3	duplicate(Rune Merchant)	ʯԱ#prt	853

gef_tower,105,172,5	script	ԪƬ#Sorcerer	700,{
	if (checkweight(1201,1) == 0) {
		mes "һ!";
		mes "ǰ̫ණ!";
		close;
	}
	set .@now_weight,MaxWeight - Weight;
	if(.@now_weight < 20000) {
		mes "һ!";
		mes "ǰ̫ණ!";
		close;
	}
	mes "[ԪƬ]";
	mes ", ڷԪʹļܵ";
	mes "^FF0000ԪƬ^000000. Ҫ?";
	next;
	switch(select("Ƭ - 200z:龫 - 200z:ˮƬ - 200z:龫 - 200z:Իȡ.")) {
	case 1:
		set .@titem,6360; // Ƭ
		break;
	case 2:
		set .@titem,6363; // 龫
		break;
	case 3:
		set .@titem,6361; // ˮƬ
		break;
	case 4:
		set .@titem,6362; // 龫
		break;
	case 5:
		mes "[ԪƬ]";
		mes "ûҪ?";
		close;
	}
	mes "[ԪƬ]";
	mes "ѡ^FF0000"+getitemname(.@titem)+"^000000?";
	mes "Ҫٸ?";
	mes "ȡĻ0.";
	next;
	input .@input,0,2001;
	if (.@input < 1 || .@input > 2000) {
		mes "[ԪƬ]";
		mes "ȡ.";
		close;
	}
	set .@price,.@input*200;
	if (Zeny < .@price) {
		mes "[ԪƬ]";
		mes "ֽ.";
		close;
	}
	set zeny,zeny-.@price;
	getitem .@titem,.@input;
	mes "[ԪƬ]";
	mes "ллݹ.";
	close;
}



geffen_in,176,105,4	script	ħ 岨˹#WL	64,{
	if(baseClass != Job_Mage || !(Upper&4)){
		mes "[ħ 岨˹]";
		mes "Ǻ, ҲѧµĶ?";
		next;
		mes "[ħ 岨˹]";
		mes "ѡĵ·̫Զ, û취ѧϰЩ֪ʶ......";
		close;
	}
	if(!getskilllv("WL_RELEASE")) {
		mes "[ħ 岨˹]";
		mes ", , ֻһ.";
		next;
		mes "[ħ 岨˹]";
		mes "ѧ˽ħ, Ǿͻкܶ๲ͬ.";
		close;
	}
	mes "[ħ 岨˹]";
	mes "ӭ.";
	mes "µĸ߼ħ.";
	next;
	mes "[ħ 岨˹]";
	mes "֪ʶĿ, ÿʹħΪ֮. ̿Ŭ֮, ڽĹʵ...";
	next;
	mes "[ħ 岨˹]";
	mes "ǾܵĹ¶ʹ˻ر, ֳɾ͸кͿ޷Ա. ҲΪ˽ϲ, Ż̤֮·, ? ҿ.";
	next;
	mes "[ħ 岨˹]";
	mes ", 㵽ʲô?";
	next;
	switch(select("ûʲôر:֪ħĶ?:ħʲô?:ܻħ?:ͨħʹħ, ?")) {
	case 1:
		mes "[ħ 岨˹]";
		mes "Ǹĵ...";
		close;
	case 2:
		mes "[ħ 岨˹]";
		mes "ħĶ, Ͻ, Ķħ... ˼. ֪ħ?";
		next;
		switch(select("ǵ, ֪.:, Ҳ̫...")) {
		case 1:
			mes "[ħ 岨˹]";
			mes "Ҷ. Ѿ֪ú.";
			close;
		case 2:
			mes "[ħ 岨˹]";
			mes "ħǾһ, ϵħʹһ֮ͻʧ, ħҪ߼.";
			next;
			mes "[ħ 岨˹]";
			mes "Ѿϵֱ˿, ˿Żʲô֮, ˿ͻ, ʧȥԭģ. ħϵ־Ǽ.";
			next;
			mes "[ħ 岨˹]";
			mes "ʲô? 㲻֪ʲô? ûϵ. ֮, üĽ˿һʱ, ͻָԭģ.";
			next;
			mes "[ħ 岨˹]";
			mes "ħϼصħҲкͼƵ. Ҳ˵, ʹ֮󾭹һʱ, Ϳʹ.";
			next;
			mes "[ħ 岨˹]";
			mes "... , Ǹ, ˵ĵطȥ. ֮, ʹħ, ͷ֮ǰѧħ. ֮ǰѧϰħвͬ.";
			next;
			select("ߵĲ쵽ʲô?");
			mes "[ħ 岨˹]";
			mes "˵ѾѧħǷҪдħȥ?";
			next;
			mes "[ħ 岨˹]";
			mes "ϸ˵һ. ħżֹ. νħ, ǽħŵ.";
			next;
			mes "[ħ 岨˹]";
			mes "Ѿѧͷż, ӵ˽ٻ4Եۼһ, Ȼͷųȥ. ? ʵԭǳ.";
			next;
			mes "[ħ 岨˹]";
			mes "ӵнŵ, ӵʹħż. Ժٸ...";
			next;
			mes "[ħ 岨˹]";
			mes "ڿѧħۼ, Ȼͷųȥ, Ҫ. ԰?";
			next;
			mes "[ħ 岨˹]";
			mes "Ҳ˵, ٻ4Ե, ħй.";
			next;
			mes "[ħ 岨˹]";
			mes ", ˮ, , Ԫ... ۼ, ħĻ, ʵ.";
			next;
			mes "[ħ 岨˹]";
			mes "ʵ, Ҳľ, ȷ, Ҩˮ, .";
			next;
			mes "[ħ 岨˹]";
			mes "Ȼħвͬ, ӽϿ, ڽԵۼһһͬ.";
			next;
			mes "[ħ 岨˹]";
			mes "Ҫ֪ĸָӵħ. ٻ, ٻ, ĳٻ... رǰ...";
			next;
			mes "[ħ 岨˹]";
			mes "ҪЩ߼ħ̶, ҪĴľ. ƿ...";
			next;
			mes "[ħ 岨˹]";
			mes "ħžͻʧ, ߸ʩչߵ;ɾ޴ĸ.";
			next;
			mes "[ħ 岨˹]";
			mes "ħָĶ. ʩչֻҪоۼħ, Ϳħͷųħ.";
			next;
			mes "[ħ 岨˹]";
			mes "㲻ͷûѧħ.";
			next;
			mes "[ħ 岨˹]";
			mes "㻹ǲǵ, ˵ħ־лָԭ״̬?";
			next;
			mes "[ħ 岨˹]";
			mes "ħϵ޷ıߴ.";
			next;
			mes "[ħ 岨˹]";
			mes "Ҳ˵, ûѧħ, ͻᳬħܳܵķΧ.";
			next;
			mes "[ħ 岨˹]";
			mes ", ҪʹħĶ, ͱѧԸħħ.";
			close;
		}
	case 3:
		mes "[ħ 岨˹]";
		mes "򵥵˵, ҲԳΪħŻħ. ħ, ʹõħ뵽ѭ֮.";
		next;
		mes "[ħ 岨˹]";
		mes "ڹħѭѭ֮лĹϵ, ħ̶ħʹý֮ǰ, ǾԲᷢ.";
		next;
		mes "[ħ 岨˹]";
		mes "Ȼ, Ϊһֻħ, ɱҪħ. ȻʩչħĵħҪ, ʱع̶ħһǳѵ.";
		next;
		mes "[ħ 岨˹]";
		mes ", Խǿħ, ʹħžԽ.";
		next;
		mes "[ħ 岨˹]";
		mes "ħ, һѭڸ2-3ħ. ǿħ, Ҳܸһ.";
		next;
		mes "[ħ 岨˹]";
		mes ", Ѿѧħ, ΪѾħպϤ, ӦÿԿ. ԵʱԼһӦþ.";
		close;
	case 4:
		mes "[ħ 岨˹]";
		mes "... ź, ûпҪħ. ֻлõħ... Ҫ?";
		next;
		switch(select("ǵ, Һ.:ûи߼һЩħ?")) {
		case 1:
			mes "[ħ 岨˹]";
			mes "ȥͼԱ[]˵Ǳ岨˹ȥ, ҷħ.";
			next;
			mes "[ħ 岨˹]";
			mes "Ӧò׸. ܴӦ, Ӧþͻħ齻.";
			set Can_Borrow_Magic_Book,1;
			close;
		case 2:
			mes "[ħ 岨˹]";
			mes "Ǹ, ħٿֵ, Լλĸ߼ħʦ´ָʾ, ˵Ҫʵħ.";
			next;
			mes "[ħ 岨˹]";
			mes "취Ļ... ǿŪ. ͷȷʵûҪĸ߼ħ.";
			next;
			mes "[ħ 岨˹]";
			mes "ҴʲôϢ, һȸ˵. 㲻Ҫ.";
			close;
		}
	case 5:
		mes "[ħ 岨˹]";
		mes "ħŶħԼ, ʲô鶼ᷢ. ΪûгǷħĿڴ, ֺ.";
		next;
		mes "[ħ 岨˹]";
		mes "ȥҨˮ, ˮָ. ˵Բ?";
		next;
		mes "[ħ 岨˹]";
		mes ", ǿʹԼûѧħħ, һĸ.";
		next;
		mes "[ħ 岨˹]";
		mes "Ȼò. ͼٻħҲͼ̶ħͻ, , ˯.";
		next;
		mes "[ħ 岨˹]";
		mes "ϣòҪ³ç. ʱ˯, ħʦ, һǳ. ҲǸ˰.";
		close;
	}
}

geffen_in,175,112,4	script	#Warlock	123,{
	if(baseClass != Job_Mage || !(Upper&4)){
		mes "[]";
		mes "鼮ĵط. Ϊṩ.";
		close;
	}
	mes "[]";
	mes "鼮ֻ, , 뾭1˺1λ߼ħʦ.";
	if(!Can_Borrow_Magic_Book) close;
	next;
	mes "[]";
	mes "ʲô?";
	next;
	select("岨˹ħ.");
	mes "[]";
	mes "ħ?";
	next;
	switch(select("ٿһ:Ҫħ:Ҫмħ:Ҫ߼ħ:Ҫռħ")) {
	case 1:
		mes "[]";
		mes "õ.";
		close;
	case 2:
		mes "[]";
		mes "̫ħ, ǸеǳѰ.";
		next;
		mes "[]";
		mes "ÿ˶... , Ҳô˵. ֹ˻ڵʱ黹, ҪһЩ֤.";
		next;
		select("֤?");
		mes "[]";
		mes "ǵ. Ҫ¬-׵¼ӶĻ1, 2ħ, 50ƾҳ. Ҳܰħ.";
		next;
		switch(select("ܵõħƾҳ?:Ը֧:Ը֧ħ:Ը֧ƾҳ")) {
		case 1:
			mes "[]";
			mes ", ˵ӷħ, ħϿԻ. ǧҪǿ, ҪԼܶԸħ.";
			next;
			mes "[]";
			mes "Ҽܶ, ڶħִ̫, ʧȥ˱.";
			close;
		case 2:
			if(Zeny < 10000) {
				mes "[]";
				mes "Ǯ񲻹.";
				close;
			}
			mes "[]";
			mes "Ҫı?";
			next;
			switch(select(":ħ():ħ():ħ(׻)")) {
			case 1:
				mes "[]";
				mes "õ";
				close;
			case 2:
				set .@Magic_Book,6189; break;
			case 3:
				set .@Magic_Book,6190; break;
			case 4:
				set .@Magic_Book,6191; break;
			}
			if(countitem(.@Magic_Book)) {
				mes "[]";
				mes "Ѿħ. Ѿħ, ޷ٽħ.";
				next;
				mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
				close;
			}
			if(Zeny < 10000) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "дҳĽ鿨.";
			next;
			mes "[]";
			mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
			set Zeny,Zeny - 10000;
			getitem .@Magic_Book,1;
			close;
		case 3:
			if(countitem(1006) < 2) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "Ҫı?";
			next;
			switch(select(":ħ():ħ():ħ(׻)")) {
			case 1:
				mes "[]";
				mes "õ";
				close;
			case 2:
				set .@Magic_Book,6189; break;
			case 3:
				set .@Magic_Book,6190; break;
			case 4:
				set .@Magic_Book,6191; break;
			}
			if(countitem(.@Magic_Book)) {
				mes "[]";
				mes "Ѿħ. Ѿħ, ޷ٽħ.";
				next;
				mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
				close;
			}
			if(countitem(1006) < 2) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "дҳĽ鿨.";
			next;
			mes "[]";
			mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
			delitem 1006,2;	//ħ
			set Zeny,Zeny - 100000;
			getitem .@Magic_Book,1;
			close;
		case 4:
			if(countitem(1097) < 50) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "Ҫı?";
			next;
			switch(select(":ħ():ħ():ħ(׻)")) {
			case 1:
				mes "[]";
				mes "õ";
				close;
			case 2:
				set .@Magic_Book,6189; break;
			case 3:
				set .@Magic_Book,6190; break;
			case 4:
				set .@Magic_Book,6191; break;
			}
			if(countitem(.@Magic_Book)) {
				mes "[]";
				mes "Ѿħ. Ѿħ, ޷ٽħ.";
				next;
				mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
				close;
			}
			if(countitem(1097) < 50) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "дҳĽ鿨.";
			next;
			mes "[]";
			mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
			delitem 1097,50;	//ƾҳ
			set Zeny,Zeny - 100000;
			getitem .@Magic_Book,1;
			close;
		}
	case 3:
		mes "[]";
		mes "Ҫмħ鰡, 豣֤5. 2ӻ9, ҾͰмħ.";
		next;
		switch(select("Ӻôܻ?:Ҫ֧5:Ҫ֧:Ҫ֧")) {
		case 1:
			mes "[]";
			mes "ӿԴа, аʳ, а, , , ŵ, β, ħ, ͽصħ, ռ΢е. ʽĻ, Դ̵й...";
			next;
			mes "[]";
			mes "Դ, ʬս, ż, ʯ, ħŮħϻ. ʵ, ԭʯмӹõ. ռԭʯɱռӼ.";
			close;
		case 2:
			if(Zeny < 50000) {
				mes "[]";
				mes "Ǯ񲻹.";
				close;
			}
			mes "[]";
			mes "Ҫı?";
			next;
			switch(select(":ħ(ѩ):ħ(ŭǿ):ħ(ʯ):ħ(ױ):ħ():ħ(ˮ):ħ():ħ()")) {
			case 1:
				mes "[]";
				mes "õ";
				close;
			case 2:
				set .@Magic_Book,6192; break;
			case 3:
				set .@Magic_Book,6193; break;
			case 4:
				set .@Magic_Book,6194; break;
			case 5:
				set .@Magic_Book,6197; break;
			case 6:
				set .@Magic_Book,6198; break;
			case 7:
				set .@Magic_Book,6199; break;
			case 8:
				set .@Magic_Book,6200; break;
			case 9:
				set .@Magic_Book,6201; break;
			}
			if(countitem(.@Magic_Book)) {
				mes "[]";
				mes "Ѿħ. Ѿħ, ޷ٽħ.";
				next;
				mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
				close;
			}
			if(Zeny < 50000) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "дҳĽ鿨.";
			next;
			mes "[]";
			mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
			set Zeny,Zeny - 50000;
			getitem .@Magic_Book,1;
			close;
		case 3:
			if(countitem(603) < 2) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "Ҫı?";
			next;
			switch(select(":ħ(ѩ):ħ(ŭǿ):ħ(ʯ):ħ(ױ):ħ():ħ(ˮ):ħ():ħ()")) {
			case 1:
				mes "[]";
				mes "õ";
				close;
			case 2:
				set .@Magic_Book,6192; break;
			case 3:
				set .@Magic_Book,6193; break;
			case 4:
				set .@Magic_Book,6194; break;
			case 5:
				set .@Magic_Book,6197; break;
			case 6:
				set .@Magic_Book,6198; break;
			case 7:
				set .@Magic_Book,6199; break;
			case 8:
				set .@Magic_Book,6200; break;
			case 9:
				set .@Magic_Book,6201; break;
			}
			if(countitem(.@Magic_Book)) {
				mes "[]";
				mes "Ѿħ. Ѿħ, ޷ٽħ.";
				next;
				mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
				close;
			}
			if(countitem(603) < 2) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "дҳĽ鿨.";
			next;
			mes "[]";
			mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
			delitem 603,2;	//
			set Zeny,Zeny - 100000;
			getitem .@Magic_Book,1;
			close;
		case 4:
			if(countitem(985) < 9) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "Ҫı?";
			next;
			switch(select(":ħ(ѩ):ħ(ŭǿ):ħ(ʯ):ħ(ױ):ħ():ħ(ˮ):ħ():ħ()")) {
			case 1:
				mes "[]";
				mes "õ";
				close;
			case 2:
				set .@Magic_Book,6192; break;
			case 3:
				set .@Magic_Book,6193; break;
			case 4:
				set .@Magic_Book,6194; break;
			case 5:
				set .@Magic_Book,6197; break;
			case 6:
				set .@Magic_Book,6198; break;
			case 7:
				set .@Magic_Book,6199; break;
			case 8:
				set .@Magic_Book,6200; break;
			case 9:
				set .@Magic_Book,6201; break;
			}
			if(countitem(.@Magic_Book)) {
				mes "[]";
				mes "Ѿħ. Ѿħ, ޷ٽħ.";
				next;
				mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
				close;
			}
			if(countitem(985) < 9) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "дҳĽ鿨.";
			next;
			mes "[]";
			mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
			delitem 985,9;	//
			set Zeny,Zeny - 100000;
			getitem .@Magic_Book,1;
			close;
		}
	case 4:
		mes "[]";
		mes ", ߼ħ? ߼ħ, ǳϸ. ûϵ?";
		next;
		select("ûϵ.");
		mes "[]";
		mes "õ, Ϊᶨ. , ҾͰѸ߼ħ.";
		next;
		mes "[]";
		mes "֧[12δ֪Ƭ10],[7֮10][110].";
		mes "ѡַʽ?";
		next;
		switch(select("ϴ?:ٿһ:֧12δ֪Ƭ+10:֧7֮+10:֧1+10")) {
		case 1:
			mes "[]";
			mes "δ֪Ƭ˵Դ˹еֻħϻ. ǹŴԴȪ... ... ˼.";
			next;
			mes "[]";
			mes "֮Դ, ʨ, ÿ, Ԩʿħϻ. ֮ҪռԭʯһЩ.";
			next;
			mes "[]";
			mes "ռ֮ԭʯ, ڳӹ֮.";
			next;
			mes "[]";
			mes "˵Դа, аĦ, , ʿ, ˹ϻ.";
			next;
			mes "[]";
			mes "зǳоֵ, ΪѦ֮èʵ.";
			close;
		case 2:
			mes "[]";
			mes "̰ܿ? Ҿһ¸߼ħ.";
			next;
			mes "[]";
			mes "ܸ¬-׵¼ӶĻ20, ҾͰѸ߼ħ. ô?";
			next;
			switch(select("ǲ:õ")) {
			case 1:
				mes "[]";
				mes "ð, ֪.";
				close;
			case 2:
				if(Zeny < 200000) {
					mes "[]";
					mes "Ǯ񲻹.";
					close;
				}
				mes "[]";
				mes "Ҫʲôħ?";
				next;
				switch(select(":ħ(Ť):ħ():ħ(ʯ):ħ()")) {
				case 1:
					mes "[]";
					mes "õ";
					close;
				case 2:
					set .@Magic_Book,6202; break;
				case 3:
					set .@Magic_Book,6203; break;
				case 4:
					set .@Magic_Book,6204; break;
				case 5:
					set .@Magic_Book,6205; break;
				}
				if(countitem(.@Magic_Book)) {
					mes "[]";
					mes "Ѿħ. Ѿħ, ޷ٽħ.";
					next;
					mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
					close;
				}
				if(Zeny < 200000) {
					mes "[]";
					mes "Ǯ񲻹.";
					close;
				}
				mes "[]";
				mes "дҳĽ鿨.";
				next;
				mes "[]";
				mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
				set Zeny,Zeny - 200000;
				getitem .@Magic_Book,1;
				close;
			}
		case 3:
			if(Zeny < 100000 || countitem(7094) < 12) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "Ҫı?";
			next;
			switch(select(":ħ(Ť):ħ():ħ(ʯ):ħ()")) {
			case 1:
				mes "[]";
				mes "õ";
				close;
			case 2:
				set .@Magic_Book,6202; break;
			case 3:
				set .@Magic_Book,6203; break;
			case 4:
				set .@Magic_Book,6204; break;
			case 5:
				set .@Magic_Book,6205; break;
			}
			if(countitem(.@Magic_Book)) {
				mes "[]";
				mes "Ѿħ. Ѿħ, ޷ٽħ.";
				next;
				mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
				close;
			}
			if(Zeny < 100000 || countitem(7094) < 12) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "дҳĽ鿨.";
			next;
			mes "[]";
			mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
			delitem 7094,12;	//δ֪Ƭ
			set Zeny,Zeny - 100000;
			getitem .@Magic_Book,1;
			close;
		case 4:
			if(Zeny < 100000 || countitem(984) < 7) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "Ҫı?";
			next;
			switch(select(":ħ(Ť):ħ():ħ(ʯ):ħ()")) {
			case 1:
				mes "[]";
				mes "õ";
				close;
			case 2:
				set .@Magic_Book,6202; break;
			case 3:
				set .@Magic_Book,6203; break;
			case 4:
				set .@Magic_Book,6204; break;
			case 5:
				set .@Magic_Book,6205; break;
			}
			if(countitem(.@Magic_Book)) {
				mes "[]";
				mes "Ѿħ. Ѿħ, ޷ٽħ.";
				next;
				mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
				close;
			}
			if(Zeny < 100000 || countitem(984) < 7) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "дҳĽ鿨.";
			next;
			mes "[]";
			mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
			delitem 984,7;	//֮
			set Zeny,Zeny - 100000;
			getitem .@Magic_Book,1;
			close;
		case 5:
			if(Zeny < 100000 || countitem(617) < 1) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "Ҫı?";
			next;
			switch(select(":ħ(Ť):ħ():ħ(ʯ):ħ()")) {
			case 1:
				mes "[]";
				mes "õ";
				close;
			case 2:
				set .@Magic_Book,6202; break;
			case 3:
				set .@Magic_Book,6203; break;
			case 4:
				set .@Magic_Book,6204; break;
			case 5:
				set .@Magic_Book,6205; break;
			}
			if(countitem(.@Magic_Book)) {
				mes "[]";
				mes "Ѿħ. Ѿħ, ޷ٽħ.";
				next;
				mes "ѵ֪ҲҪⱾ? û뵽Ǹô˽. ˺.";
				close;
			}
			if(Zeny < 100000 || countitem(617) < 1) {
				mes "[]";
				mes "񲻹.";
				close;
			}
			mes "[]";
			mes "дҳĽ鿨.";
			next;
			mes "[]";
			mes "ֶʧ, , һ𻵵Ļ, ȡ⳥. ϣעⱣ.";
			delitem 617,1;	//
			set Zeny,Zeny - 100000;
			getitem .@Magic_Book,1;
			close;
		}
	case 5:
		mes "[]";
		mes "ڻûпռħ. һпħ, һἰʱ֪ͨ.";
		next;
		mes "[]";
		mes ", ռħı֤25, ֵ֮ȵʵ.";
		close;
	}
}
