//===== rAthena Script ======================================= 
//= Al De Baran Town
//===== By: ================================================== 
//= rAthena Dev Team; L0ne_W0lf
//===== Current Version: ===================================== 
//= 2.3
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= [Official Conversion]
//= Al De Baran Town NPCs
//===== Additional Comments: ================================= 
//= 1.1 Added RS125 NPC.  Added another Kafra Reserve points agent.
//=     The 2nd reserve points agent is not complete yet.
//= 1.2 Lottery input number fix [Lupus], 1.2a - label typo fixed
//= 1.3 Gatekeeper's bug fixed (wrong check and wrong item ID 
//=     for underground), fixed some typos [Lupus]
//= 1.4 Fixed Typos & Spellcheck [massdriller]
//= 1.5 Finally added the Special Reserve 2 Lotto 8))
//=  with official prizes (80% official, 4-5 entries are made up)
//=  also changed typo Orange Potions -> Red Potions [Lupus]
//= 1.6 Fixed bug (missing label), optimized all menus [Lupus]
//= 1.7 Fixed exploits [Lupus] 1.8 Removed Duplicates [Silent]
//= 1.9 Fixed a bunch of typos with information from Crono/Hollengrhen [Evera]
//= 1.9a Now Pavianne doesn't sell Kafra Passes. She refunds them [Lupus]
//= 2.0 Re-made all the dialog-only NPCs with official dialogs.
//=     Kafra and Clock Tower NPCs pending remake. [DZeroX]
//= 2.01 removed all .GATs [Lupus]
//= 2.1 Rescripted most NPCs to Aegis 10.3 standards. [L0ne_W0lf]
//= 2.2 Corrected NPC names to fall within proper resctrictions. [L0ne_W0lf]
//= 2.3 Fixed exploit with kafra pass
//============================================================

// Al De Baran
//============================================================
aldebaran,113,70,4	script	˹#alde	48,{
	mes "[˹]";
	mes "Ҽԭסڼ";
	mes "ȥ궬ŰҰᵽ";
	mes "ط..";
	next;
	if (select("^3355FF'  '^000000..:Ի") == 1) {
		mes "[˹]";
		mes "ҵĸ";
		mes "ļ";
		mes "ҲǸ൱";
		mes "Űᵽĸ׵Ĺ";
		next;
		mes "[˹]";
		mes "ʱҲ︸׵æ";
		mes "ѧϰ";
		mes "ȼߵ";
		mes "ĳɹʴС֮";
		next;
		mes "[˹]";
		mes "ȼ1 ";
		mes "Գɹľȼ7";
		mes "ȼ2 ɳɹľȼ6";
		mes "ȼ3 ";
		mes "ɳɹľȼ5";
		mes "ڵȼ4 ";
		next;
		mes "[˹]";
		mes "Լɳɹľȼ4";
		mes "֮Ļ";
		mes "ͨȼ 4";
		mes "ʧܾĻ";
		mes "ܲǿȾƻˣ";
		close;
	}
	mes "[˹]";
	mes "Ȼ";
	mes "֪";
	mes "Ҹ׵ľ";
	mes "ڰҲܴ츸׵";
	mes "Ǿ̫";
	close;
}

aldebaran,64,104,4	script	#alde	55,{
	mes "[]";
	mes "˵";
	mes "˸ڼҶ";
	mes "ʦ ..";
	next;
	if (select("йλʦ:Ի") == 1) {
		mes "[]";
		mes "˵";
		mes "ȼĸߵ";
		mes "ӹĴС";
		mes "൱̶ȵĹϵ ..";
		next;
		mes "[]";
		mes "ȼ1 Ŀұȼ 2";
		mes "ȼ2 Ŀұȼ 3";
		mes "ȼ3 Ŀұȼ 5 !";
		mes "ڵȼ4 ȼ3 һ";
		close;
	}
	mes "[]";
	mes "Ϊ̫̫״̫";
	mes "ԱҪʱķ";
	mes "еҩ";
	mes "ҶҲǸТ˳ĺú";
	mes "ְֵַ˲ٹ..";
	mes "ӦҲǸ";
	close;
}

aldebaran,49,93,4	script		83,{
	mes "[]";
	mes "֪ ? ˵ĵȼ";
	mes "ֻ3  ..";
	mes "еȼ4 !!";
	next;
	mes "[]";
	mes "һ˵ֵ׵";
	mes "ȼ 4 ";
	mes "ֻħ";
	mes "мСĻ";
	mes "Եõ";
	close;
}

aldebaran,81,61,4	script	ʰ۵Ů#ald	101,{
	mes "[˿]";
	mes "ںߵȵطʰ";
	mes "һȤζû";
	next;
	if (select("ʰ:Ի") == 1) {
		mes "[˿]";
		mes "ɳ̲.. ˮ˵Ļ";
		mes "ˮžž";
		mes "ӿ";
		mes "ں߾ֻʰһЩۣ";
		mes "Ϊ󲿷ֵĸ";
		mes "ڵ!";
		next;
		mes "[˿]";
		mes "а!";
		mes "ǼӲ";
		mes "ϰԺܲ";
		mes "С";
		mes "һ!";
		next;
		mes "[˿]";
		mes "ǵֽţ";
		mes "¡";
		mes "߸Կǵټ..";
		mes "ҪǲСǵ";
		mes "Ǵֻӹһ";
		next;
		mes "[˿]";
		mes "֮Ǻܿ¾..";
		close;
	}
	mes "[˿]";
	mes "һҪȥǸ";
	mes "Ķȥʰ !";
	mes "ȻЩΣ..";
	mes "Ҫȥһ£ӦҲֵð?";
	close;
}

aldebaran,46,129,4	script	˺#alde	97,{
	mes "[]";
	mes "ڳ½";
	mes "Ǹ";
	mes "Ϊֵ";
	mes "൱˺֮";
	next;
	switch(select("˺֮:Ի")) {
	case 1:
		mes "[]";
		mes "˺Ӿ..";
		mes "Ϊ˿½";
		mes "Լũ ..";
		mes ";";
		mes "˹ˮ·";
		next;
		mes "[]";
		mes "һ˵˺";
		mes "ڽͨߵһ";
		mes "˺Ӵ󲿷ھ½ػ";
		mes "ˮ·µˮ·..";
		next;
		mes "[]";
		mes "Ҳ˽";
		mes "Ϊ޺Ӵ˹ˮ·";
		mes "Ϊ˺";
		close;
		break;
	case 2:
		mes "[]";
		mes "ˮ峺?";
		mes "Ȼﱻɽȴ";
		mes "ȻɽȴӦеɫ ..";
		mes ". . . . .";
		mes "úõϢ߰!";
		close;
		break;
	}
}

aldebaran,67,154,4	script	ɽ· ܲ#alde	98,{
	mes "[ܲ]";
	mes "ɽ";
	mes "վĵ";
	mes "";
	next;
	switch(select("ɽ::Ի")) {
	case 1:
		mes "[ܲ]";
		mes "¬׵¼Ӷ׶";
		mes "¡Լħ֮";
		mes "طĻ";
		mes ";бؾ֮·..";
		mes "ɽ!";
		next;
		mes "[ܲ]";
		mes "ʿ¬׵¼Ӷ";
		mes "׶¡..";
		mes "ħʦ";
		mes "";
		mes "";
		next;
		mes "[ܲ]";
		mes "Լ޵Ժ";
		mes "طĻ";
		mes ";бضҪ";
		mes "ɽ ..";
		mes "ɽ";
		mes "ɽ൱վ ..";
		next;
		mes "[ܲ]";
		mes "׺ݵ";
		mes "ȹħ";
		mes "ҪԽɽ൱";
		mes "óԲٿͷ";
		close;
	case 2:
		mes "[ܲ]";
		mes "޿˵ɽ";
		mes "ҪԼ";
		mes "Ļ";
		mes ";бؾ֮·";
		mes "";
		next;
		mes "[ܲ]";
		mes "Ϊλڰ֮";
		mes "ֵĵ";
		mes "൱ӣṹ";
		mes "Թ";
		mes "ҪûоערһµĻ";
		mes "ܻܿ·";
		next;
		mes "[ܲ]";
		mes "?ʲô";
		mes "ᱻΪ";
		mes "ǰ";
		mes "ԭΪ ..";
		next;
		mes "[ܲ]";
		mes "ǸԹĶ";
		mes "Ϊ˷ֹ";
		mes "ѡվɽ";
		mes "ΪȻ";
		mes "";
		next;
		mes "[ܲ]";
		mes "ҲΪʲôеİ";
		mes "ڳ½";
		mes "Եʰ!";
		close;
	case 3:
		mes "[ܲ]";
		mes "ģ൱ΰɽ";
		mes "";
		mes "ǰÿ:";
		mes "˺Լĸ";
		mes "ʹطһֱظУ";
		mes "вǰһ̽..";
		close;
	}
}

aldebaran,90,170,4	script	#alde	47,{
	mes "[϶]";
	mes "˵";
	mes "и۵Ķ";
	mes "ôǿԽħ";
	mes "ħϵõħ￨Ƭ";
	mes "ʹӵиЧ:";
	next;
	switch(select("ڲ:ħ￨Ƭ۵:Ի")) {
	case 1:
		mes "[϶]";
		mes "һ̵з";
		mes "ħǵõսƷ";
		mes "֮϶:";
		next;
		mes "[϶]";
		mes "ӵߵĻ";
		mes "ͬʱʹϵĿƬ:";
		mes "ʹ";
		mes "Ч:";
		close;
	case 2:
		mes "[϶]";
		mes "⣬Ƭк";
		mes "㲻ȡظʹ:";
		mes "ϣʹʱҪرע:";
		mes "ڲ֮ǰ";
		mes "ϸ:";
		close;
	case 3:
		mes "[Epithiel]";
		mes "дħ";
		mes "õĿƬ ?";
		close;
	}
}

aldebaran,117,181,4	script	#alde	48,{
	mes "[]";
	mes "װ";
	mes "͵ȼ ( Level 1 ) ";
	mes "ұʱ";
	mes "ҪһΪ";
	mes "' ǿ-һ '֮";
	next;
	switch(select("ǿ-һ:ǿ-һС:Ի")) {
	case 1:
		mes "[]";
		mes "ǿ-һ.. Ӻܾǰ";
		mes "ڳ½";
		mes "ʹ൱㷺";
		mes "Ϊձ";
		mes "";
		next;
		mes "[]";
		mes "Ȼһ";
		mes "ʽϡеĿʯ";
		mes "ǿ";
		mes "ҪļӲ..";
		next;
		mes "[]";
		mes "Ϊ˵";
		mes "ֿɼԴ";
		mes "˱ڹ㷺ʹã൱";
		next;
		mes "[]";
		mes "ֽ";
		mes "Դħϻû";
		mes "רҵڵұ";
		mes "ҷ";
		mes "";
		next;
		mes "[]";
		mes "ұ";
		mes "ʹ";
		mes "ȵװߵĳȼ..";
		mes "ԭΪ";
		mes "ߵȼʱ";
		next;
		mes "[]";
		mes "ʹǿ-һ..";
		mes "پκ-";
		mes "ʱ㲻Ҫ..";
		mes "ô뽫תȥ!!";
		mes "ſ100";
		mes " ?";
		close;
	case 2:
		mes "[]";
		mes "˵ӵǿ-һ";
		mes "ħ൱Ķ";
		mes "˵ֿɵõ";
		mes "";
		mes "ҪҪֽ?";
		next;
		mes "[]";
		mes "ǰļ";
		mes "Һ͸ھƵ";
		mes "һȥԵʱ ..";
		mes "Ұ";
		mes "ҵֽ!";
		close;
	case 3:
		mes "[]";
		mes "ȥѰҺõǿ-һ!";
		close;
	}
}

aldebaran,121,231,4	script	#alde	49,{
	mes "[ܶ]";
	mes "߾ǹŴڰ";
	mes "ԽʲֵǮĽ˹ַ";
	mes "ƳֵǮΪĿ";
	mes "ѧҲǿѧ";
	mes "һ";
	next;
	switch(select(":ߵζ:. . . . .:Ի")) {
	case 1:
		mes "[ܶ]";
		mes "ͬĵ";
		mes "";
		mes "";
		mes "һ˷úԳ";
		mes "ɵ";
		mes "' ҩ '";
		next;
		mes "[ܶ]";
		mes "";
		mes "ķ";
		mes "";
		mes "ֽϻѧ˼";
		next;
		mes "[ܶ]";
		mes "";
		mes "ѧ൱";
		mes "밬ȫ෴";
		mes "ֻΪȻأ";
		mes "оĲ";
		mes "Ҳ൱ȱ";
		next;
		mes "[ܶ]";
		mes "ˣֽ";
		mes "ڳ½Ͼ";
		mes "' '";
		mes "˰";
		mes "û֮ ..";
		close;
	case 2:
		mes "[ܶ]";
		mes "";
		mes "ܽѧ֪ʶڻͨ";
		mes "ϸʽ";
		mes "͵";
		mes "лܵĵ";
		close;
	case 3:
		mes "[ܶ]";
		mes "˵ЩЩζ";
		mes "ôھ˵˵";
		mes "йħ￨Ƭ۵԰..";
		mes "ӦѾ֪";
		mes "ÿħ￨Ƭ";
		next;
		mes "[ܶ]";
		mes "ضװλ";
		mes "ҲضĲ..";
		mes "һҪÿƬװͬĲ";
		mes "ʹ";
		mes "˵õǲƬ..";
		next;
		mes "[ܶ]";
		mes "Ƭд";
		mes "LUK + 1 Ч";
		mes "ұǵװλ";
 		mes "''";
		mes "Ļ";
		next;
		mes "[ܶ]";
		mes "ʹӲǽ";
		mes "̽Ĳ";
		mes "ҲȻ-";
		mes "κε";
		next;
		mes "[ܶ]";
		mes "У󲿷̵";
		mes "";
		mes "Ҳûв";
		mes "δ";
		mes "ֻдħ";
		mes "ȡõսƷ";
		mes "֮";
		next;
		mes "[ܶ]";
		mes "ˣħ￨Ƭ";
		mes "װķ";
		mes "򿪽װ";
		mes "ϸĿ";
		mes "αĿƬ";
		mes "";
		next;
		mes "[ܶ]";
		mes "ֱʾ";
		mes "װʹõϸĿ";
		mes "Ժ׵ľװ";
		close;
	case 4:
		mes "[ܶ]";
		mes "˵ڳ½-";
		mes "ǰ߹Ī!!";
		mes "߹!!";
		close;
	}
}

aldebaran,86,228,4	script	С#alde	62,{
	mes "[]";
	mes "ǰҴ";
	mes "С";
	mes "'  '";
	mes "ɽ";
	mes "ȥɢ..";
	mes "Сɽһ";
	mes "൱Ŀɰ";
	mes "ŷۺɫë";
	next;
	switch(select("Ĺ:ɽ:Ի")) {
	case 1:
		mes "[]";
		mes "ɽ·";
		mes "һ·ȥ";
		mes "Ļ";
		mes "û뵽Ǹ޴ֲ֣";
		mes "ȻԵҺͱ";
		next;
		mes "[]";
		mes "ҺµĸϽ㿪";
		mes "Ȼ·ϵʯͷ";
		mes "ȥ( ȻʱҺܺ )";
		mes "ǼһȻ˿ûо";
		mes "Ǹǿļһﰡ!";
		next;
		mes "[]";
		mes "˾ȵ";
		mes "Ȼźһ";
		mes " !";
		mes "߽һ";
		mes "ͻſѪҪҧƵ!";
		close;
	case 2:
		mes "[]";
		mes "ԭΪɽиʽֲ";
		mes "û뵽пµ";
		mes "Ͷ";
		mes " .  .. ر۷ͺ";
		mes "ⴥǵĳǻǻ";
		next;
		mes "[]";
		mes "Ȼ˵󲿷ֵҰ. ";
		mes "";
		mes "һ";
		mes "ǿɲǿЦ ..";
		close;
	case 3:
		mes "[]";
		mes "˵⣬Ҽҵıȥ˰.. ?";
		mes " !  !";
		close;
	}
}

aldebaran,159,242,4	script	#alde	119,{
	mes "[]";
	mes "ɽ ..";
	mes "һ·ȥĻ";
	mes "Ҷ֪ !";
	mes "ϰıĸߵ";
	mes "ҲԱΪö ..";
	mes "Щ֪ ?";
	next;
	if (select(":Ի") == 1) {
		mes "[]";
		mes ".  .. ";
		mes "ڻ֮䴩";
		mes "ɼ";
		mes "մ";
		mes "ȥ";
		mes "?ɢ۵Ĺ";
		mes "ǿɰ..";
		next;
		mes "[]";
		mes "";
		mes "ҲСЩһ";
		mes "ǧ";
		mes "Ϊ";
		mes "Ҳиս";
		mes "ϵʹԼٽ";
		next;
		mes "[]";
		mes "⣬Ϊʳ";
		mes "ʳ";
		mes "֩";
		mes "Լ";
		mes "Ե";
		next;
		mes "[]";
		mes "Щħ̬";
		mes "ӵŸߵȼ";
		mes "ǿ";
		mes "֩";
		mes "δ֪ļһ!";
		next;
		mes "[]";
		mes "ҪرС !";
		mes "Զһ !";
		mes "Ϊһҵ";
		mes "Щһ";
		mes "ǵ";
		next;
		mes "[]";
		mes "ԶһĻ";
		mes "Ǿͻῴ..";
		close;
	}
	mes "[]";
	mes "";
	mes "";
	mes "ҲǧҪ";
	mes "ǻϴ鷳 -";
	mes "ǧС";
	mes "ɽĴȻ ..";
	close;
}

aldebaran,60,70,4	script	С#alde	69,{
	mes "[ά]";
	mes "˵Ⱜĳطпܹ˾";
	mes "ԲԶ¡";
	mes " ..  .. Ӵ";
	next;
	mes "[ά]";
	mes "Ѱܹ˾";
	mes "ѾСʱ...";
	mes ".. ~";
	mes "ҿȻ";
	mes "ʵǸ۲۵Ĵ·";
	next;
	mes "[ά]";
	mes "֪һ";
	mes "ӦûõСϢ";
	mes "벻֪ ?";
	next;
	if (select("Ի:ȡ") == 1) {
		mes "[ά]";
		mes "װ߻";
		mes "ħϵõ";
		mes "սƷʱ";
		next;
		mes "[ά]";
		mes "Ȼװ";
		mes "Ҳп޷װĶ";
		mes "ʱ..  ʹ!!";
		mes "Ǿ^3355FFŴ!! ^000000";
		next;
		mes "[ά]";
		mes "ʹ۾Ļ";
		mes "ʹû";
		mes "Ҳ׵ļʶõ!";
		close;
	}
	mes "[ά]";
	mes " .....";
	close;
}

aldebaran,93,80,4	script		48,{
	mes "[ÿ]";
	mes "ﵽ峺ˮˮ";
	mes "ˮһƬþ";
	mes ".  . ";
	next;
	mes "[ÿ]";
	mes "ϣ͵͵ҪȥŮѵ;";
	mes "ҵĽȴСĲȽˮȥ";
	mes "ԭӦԼȫ";
	next;
	if (select("ֻ:Ի.") == 1) {
		mes "[ÿ]";
		mes "Ů";
		mes "ҲǷߵϰСŮ˵";
		mes "Ƿߵ";
		mes "Ʒ";
		next;
		mes "[ÿ]";
		mes "ЩħȡõսƷ";
		mes "";
		mes "Ƚϸ";
		next;
		mes "[ÿ]";
		mes "仰˵";
		mes "Ӧþ' ܶ ' ˼ ?";
		mes "Ȼʵ";
		mes "̫ȷ⻰ʵ..";
		close;
	}
	mes "[ÿ]";
	mes " ..";
	mes "һΪǸͷԼ";
	mes "֫Ĵ?";
	close;
}

aldebaran,180,46,4	script	#alde	88,{
	mes "[]";
	mes "Ǵӽɭ֮Ĺ۹";
	mes ".. ˮ";
	mes "˸о";
	next;
	mes "[]";
	mes ".. ˮ ..";
	mes " ?";
	mes "ʵ ..... Ѿȹ ..";
	next;
	if (select("Ի:Ի.") == 1) {
		mes "[]";
		mes "Σ̤½";
		mes "ҵﰬǰ";
		mes "һλ߼ħʦҵ";
		next;
		mes "[]";
		mes "Ըûʵ ^3355FF^000000 ħ";
		mes "ʹԹħ";
		mes "ǲ׶ħ˺";
		next;
		mes "[]";
		mes "ϣа";
		mes "ô..";
		close;
	}
	mes "[]";
	mes "֪ǲΪط";
	mes "ܵĻ൱ĸɾ";
	mes "ˮζҲرĸ";
	mes "ʹǺдߵĵĺˮҲûϵ";
	close;
}

aldebaran,212,122,4	script	ϰ#alde	97,{
	mes "[ʯֵ]";
	mes "ӭ ! ǰ!";
	mes "ǰϰշǳػӭ";
	mes ". . . . .";
	next;
	mes "[ʯֵ]";
	mes "̫¡ ? Ϊ ..";
	mes "ţôһ.. ҵؽ߳ϵ ..";
	next;
	mes "[ʯֵ]";
	mes "ӭĵ!";
	next;
	if (select("Ի:Ի.") == 1) {
		mes "[ʯֵ]";
		mes "ô˵";
		mes "ЩȤļһ˰ɣ";
		mes "Ǽǰ";
		mes "ΧŰ";
		next;
		mes "[ʯֵ]";
		mes "ɽָ";
		mes "ҿ˴ʹĲ !";
		mes "!";
		next;
		mes "[ʯֵ]";
		mes "ͨĲȺ";
		mes "ı";
		mes "˵ʹ ..";
		mes "֪Ǻηʥ?";
		close;
	}
	mes "[ʯֵ]";
	mes "Ǹ൱ྻΧɽ";
	mes "ŵ˶";
	mes "ֿĻӭ";
	mes "";
	close;
}

aldebaran,146,124,4	script	Ů	101,{
	mes "[]";
	mes "˵ϴһ ^3355FF' ̿͹ '^000000 ĵط";
	mes "ǰ˲֪ɱؾڸ˼";
	mes "Ǹط ..";
	next;
	mes "[]";
	mes "ӦǷǷİ ?";
	mes ". . . . .";
	mes "ǷǷҲҪѧѰ?";
	next;
	if (select("Ի:Ի.") == 1) {
		mes "[]";
		mes "гħķ";
		mes "󲿷";
		mes "ƶ빥ٶȶܿ";
		mes "ҪԷ";
		mes "൱";
		next;
		mes "[]";
		mes "أҪԸЩħʱ";
		mes "ͱҪиɶ (DEX) ";
		mes "԰?";
		close;
	}
	mes "[]";
	mes "ûа׳Ե";
	mes "ȻҲѽܽ";
	mes "Ҳһ";
	mes "..";
	close;
}

aldebaran,143,136,4	script	¥#A	89,{
	mes "[ ]";
	mes "'ֻ'ˣҶ'¥'㿴ܸȤӣҪҪҸһЩйĹ°";
	next;
	if (select("ȡйĹ:Ի") == 1) {
		mes "[ ]";
		mes "͸ĸӽüһν'ݼͨϵͳ'װ";
		next;
		mes "[ ]";
		mes "ĴȻᣬͷҲЩ''װãװû㱻ĵطȥͬһڵĻǧСŵװ.. ";
		next;
		mes "[ ]";
		mes "һЩʾɣͼϻɫıǱʾֻҪͼϵıʾСһͿԱˣϣ죬...";
		close;
	}
	close;
}

// Inside Al De Baran
//============================================================
aldeba_in,232,241,4	script	С#alde	48,{
	mes "[RS125]";
	mes "ҵָ˼ڲͬ˵ĻҲȤ";
	mes "벻ҪңʵǸ..";
	next;
	mes "[RS125]";
	mes "Ȼźһڲͬ..";
	mes "һͼĶг";
	mes "Ҳ֪ǲǺ̶ܴ..";
	mes "Ϊ˰δһȥ";
	next;
	if (select("Listen to his story.:Ի") == 1) {
		mes "[RS125]";
		mes "..Ѿ..";
		mes "Ҹžѡ̾ѡѾ..";
		mes "ʱҶΪ' Ĵ'";
		mes "Ǹʵĳܽ..";
		next;
		mes "[RS125]";
		mes "ٰһε' '";
		mes "Ϊ˿Ҹһ۴ķ..";
		mes "Ϊ羭˵ҶҪ";
		mes "ʱϲĳ̶Զ..";
		next;
		mes "[RS125]";
		mes "ǣϾûʲô..";
		mes "Ҹ羹ȻһסڽɭһŮ";
		mes "һ";
		next;
		mes "[RS125]";
		mes "ҸԴǴα̫֮ѵಡ";
		mes "ֻڲϿ";
		next;
		mes "[RS125]";
		mes "ǰδҲҸϣ";
		mes "ƣһ' ëȡ' ܵģ";
		close;
	}
	mes "[RS125]";
	mes "һһȥ磡";
	mes "Ӹۿ֮ԶȥĴ󺣻жôÿ..";
	mes "ﾶ֮һҪҸȥ磡";
	close;
}

aldeba_in,223,121,2	script	׺Ĵ	63,{
	mes "[׺Ĵ]";
	mes "ιιôⴳ˼ҵļ";
	mes "̫Īˣ ";
	mes "ƾʲôҼ˵?";
	next;
	mes "[׺Ĵ]";
	mes "ٺٺ  ֪ˣ֪";
	mes "Ұʵ..";
	next;
	if (select("Continue:Quit") == 1) {
		mes "[׺Ĵ]";
		mes "ˣҲ֪Ƿ֪";
		mes "Ӷϵͳ";
		mes "ҲӶеһ ..";
		next;
		mes "[׺Ĵ]";
		mes "ӶӶϵͳʵ˽";
		mes "ʵǻǮҸսĻ..";
		mes "ԽʵҲԽ..";
		next;
		mes "[׺Ĵ]";
		mes "Ҫ˵ôĵĻˣ";
		mes "ҰѿѡӶİ취";
		mes "򵥵˵";
		next;
		mes "[׺Ĵ]";
		mes "Ҫһͷɲɾ";
		mes "Ӷıͷһ";
		mes "ʪʪأɸɵ";
		mes "Ǿʹð  ..";
		next;
		mes "[׺Ĵ]";
		mes "нһҪϸ";
		mes "ΪӶҪϸͰ׾ĲӲſ!";
		mes "ټϾ˳ĳֱͷ߻Ǯͷò?!";
		next;
		mes "[׺Ĵ]";
		mes "ΪӶ..ʵһַ..!";
		mes "ΪĻŭ";
		mes "ʱʱ̸̿ߣ߸̵ָģӶ!";
		mes "ȻҲҪʱĵĵʪֽ!";
		close;
	}
	mes "[׺Ĵ]";
	mes "Ͽȥ?";
	mes "ԱͰƱó..";
	mes "ǼһӵĻ͸ҿƨϵİߵ!";
	close;
}

aldeba_in,219,61,4	script	õĴ	109,{
	mes "[õĴ]";
	mes "סڸڵ׺˵Ļ..";
	mes "ǰΪҪժ˽ӶѵϵĹ";
	mes "ڴˤͷײϣŻ..";
	next;
	mes "[õĴ]";
	mes "̸ȥҲҪ..";
	mes "ϣͷʹ!";
	close;
}

aldeba_in,152,47,4	script	С	97,{
	mes "[С]";
	mes "..!";
	mes "ҼıС";
	mes "!!";
	next;
	if (select("Сֽʲôأ:. . . . .") == 1) {
		mes "[С]";
		mes "' ˲С ' ..";
		mes "ࡣӿôź~";
		mes "ҿɰС ~";
		next;
		if (select("ʲô̫ͨ˲:. . . . .") == 1) {
			mes "[С]";
			mes "˵ʲô!";
			mes "Ǽ ' ˲С ' ϶һ޶Ү";
			mes "޵пɰ˵!! ǲ ?";
			close;
		}
		mes "[С]";
		mes "˵ʲô!";
		mes "Ǽ ' ˲С ' ϶һ޶Ү";
		mes "޵пɰ˵!! ǲ ?";
		close;
	}
	mes "[С]";
	mes "㲻Ҫ˿!";
	mes "Ҽûֵãһֱҵĵܵһ!";
	mes " ; ; ; ; ;";
	close;
}

aldeba_in,156,179,4	script	Ƶֻ#02	61,{
	mes "[ֻ]";
	mes "ڰм俨ܹ˾..";
	mes "ǹ˾ŮϰżᵽǾƵ";
	mes "Ƕǳؿʻ";
	next;
	mes "[ֻ]";
	mes "ôھͽСС!";
	mes "Ҳǲ˭'лֻ'ʱ !";
	mes " Ůν";
	next;
	mes "[ֻ]";
	mes "ֻҪѡƽʱáá";
	mes "ۣк ~";
	mes "С!";
	next;
	if (select("รһȤ:ѽҲŲҪ.") == 1) {
		mes "[ֻ]";
		mes "ôҪصѡ!";
		mes "ѡѡĸ!";
		next;
		mes "[ֻ]";
		mes "ǵԭȵĿСŵɫͷǳ";
		mes " (1) ^3355FF' Ҳ̫ '^000000 !!";
		mes "ľƤĸ !";
		mes " (2)  ^5533FF' ̩ '^000000 !!";
		mes "ص˳ĳֱͷ൱! ";
		mes " (3)  ^555555'  '^000000 !!";
		next;
		mes "[ֻ]";
		mes "԰ͷԵøøл..";
		mes " (4)  ^1133DD'  '^000000 !!";
		mes "侲صϰ ! ߼۾";
		mes " (5)  ^33FF55' ˿ '^000000 !!";
		mes "űӣ۵ ~ ᵫʵ !";
		mes " (6)  ^AAAA00' ² '^000000 !!";
		next;
		mes "[ֻ]";
		mes " : ";
		mes "˾";
		mes "˵ ~ ";
		next;
		switch(select("(1)Ҳ̫:(2)̩:(3):(4):(5)˿:(6)²")) {
		case 1:
			mes "[ֻ]";
			mes "ร൱ɵ";
			mes "Ǹִ !";
			mes "Ҫܽ! ӱʵûõ!";
			close;
		case 2:
			mes "[ֻ]";
			mes "ôһ㶼޷о !";
			mes "ĻҲǸһܼоĻ  ..";
			mes "ǿǻŵߵ˵Ү !";
			close;
		case 3:
			mes "[ֻ]";
			mes "һֱõ";
			mes "ᱻ˼˵ûл";
			mes "ҪΪδĿ꣬Ŀǰ !";
			close;
		case 4:
			mes "[ֻ]";
			mes "Ҫʲôʱ";
			mes "ѲһֱѰĶ ?";
			mes "ʵ !";
			close;
		case 5:
			mes "[ֻ]";
			mes "ҸĵĶ˵һ仰";
			mes "غ !";
			mes "ֻһ˹µ!";
			close;
		case 6:
			mes "[ֻ]";
			mes "   !";
			mes "ӵС˵ !";
			mes "⡭Ƿ ! ";
			close;
		}
	}
	mes "[ֻ]";
	mes " !! ҹ";
	mes "㿴ϲϲ!!";
	mes "";
	close;
}

aldeba_in,84,166,4	script	#alde	117,{
	cutin "kafra_01",2;
	mes "[Ҳ̫]";
	mes "ӭ٣";
	mes "ĵһ";
	mes " ' Ҳ̫ ' ";
	next;
	mes "[Ҳ̫]";
	mes "ǿΪʱʱ̿";
	mes "˵Ҫ";
	mes "ֳʵáֱԭ..";
	mes "ȷȷʵķѵ͹ȫԸ";
	next;
	if (select("ʹȯ:ߣ") == 1) {
		if (countitem(1084) == 0) {
			mes "[Kafra Pavianne]";
			mes "I'm sorry,";
			mes "but you don't";
			mes "have any Kafra Passes.";
			close2;
			cutin "",255;
			end;
		}
		else {
			set .@kafrapassmoney,countitem(1084)*2000;
			mes "[Kafra Pavianne]";
			mes "Let's see...";
			if (countitem(1084) == 1) {
				mes "You have 1 Kafra Pass.";
				mes "You can sell that pass to us for 2000 zeny. Would you like to sell this Kafra Pass back to the Kafra Corporation?";
			}
			else {
				mes "You have "+ countitem(1084) +" Kafra Passes.";
				mes "If you want to sell them to us, you will receive "+ .@kafrapassmoney +" zeny. Would you like to sell these back to the Kafra Corporation?";
			}
			next;
			if (select("Yes:No") == 1) {
				if (countitem(1084) == 0) {
					mes "[Kafra Pavianne]";
					mes "I'm sorry, but you don't have any Kafra Passes.";
					close2;
					cutin "",255;
					end;
				}
				delitem 1084,countitem(1084); //Kapra's_Pass
				set Zeny,Zeny+.@kafrapassmoney;
				mes "[Kafra Pavianne]";
				mes "Thank you.";
			}
			close2;
			cutin "",255;
			end;
		}
	}
	mes "[Kafra Pavianne]";
	mes "Thank you,";
	mes "have a good day.";
	close2;
	cutin "",255;
	end;
}

aldeba_in,83,245,4	script	#2alde	116,{
	cutin "kafra_02",2;
	mes "[̩]";
	mes "..... 㣨̫!";
	mes "̫ˡ";
	mes "ܹ˾Ӧøֹ˾Ҫв";
	mes "ӦҪԼķ";
	next;
	mes "[̩]";
	mes "ǣӭ~ ̩ա";
	mes "ԺҲҪݹǿ";
	mes " ..";
	mes "㲻Ҫ̩ա";
	next;
	switch(select("С㣡֧ร:ٺٺ")) {
	case 1:
		mes "[̩]";
		mes "";
		mes "̫л ~";
		mes "鷳... ǩ";
		next;
		mes "[̩]";
		mes "ٺ... 㲻ȷƷ嵥...";
		mes "ûõģ";
		mes "Ѿĵ˼Ǻˡ";
		emotion e_ok;
		next;
		break;
	case 2:
		mes "[̩]";
		mes "ʲô?";
		mes ". . . . .";
		mes "ֻ˵Щ̨ʰ";
		mes "δ̫˰..";
		next;
		break;
	}
	close2;
	cutin "",255;
	end;
}

aldeba_in,24,245,4	script	#alde2	115,{
	cutin "kafra_03",2;
	mes "[]";
	mes "-ǿNo . 1顣";
	mes "ӭ㵽ﰬĿܹ˾ !";
	next;
	mes "[]";
	mes "ǿʱʱ̶̿!";
	mes "ǧ˰ĴͳĿ..";
	mes "";
	next;
	switch(select("ǧ˰ ?!治 !:ý:û ?")) {
	case 1:
		mes "[]";
		mes " ! ұ̨Ѿһ!";
		mes "ҸĿԱһҼԲ !";
		mes ".......˵ʲô..";
		next;
		mes "[]";
		mes ".. ..";
		mes "ǵ.. .. ￨Ϊ.. ݵ~";
		mes "λ! ( .. һֻһ˱)";
		break;
	case 2:
		mes "[]";
		mes ". . . . .";
		mes "Ҽ뿨ǰ";
		mes "ڿӵһԱ..";
		mes "ҵרǹ!!";
		mes "..ҾĹŵ..";
		mes "˿ .. 㲻Ҫ̼..";
		break;
	case 3:
		mes "[]";
		mes "ǵģǿԱ";
		mes "~ĪĹ򰡣";
		mes ". . . . .";
		mes ". . . . . . . . . .";
		next;
		mes "ƭ ٺ٣";
		break;
	}
	close2;
	cutin "",255;
	end;
}

aldeba_in,142,238,4	script	#3alde	114,{
	cutin "kafra_04",2;
	mes "[]";
	mes "ӭ٣ǿݣ";
	mes "Ҹһ˲֪Ŀ";
	mes "ܣ";
	next;
	mes "[]";
	mes "ʵ..￨";
	mes "ǰƲǿġ";
	mes "ôʲôأ";
	next;
	mes "[]";
	mes "!";
	mes "˳Ծ";
	mes "! ! ( ..)";
	mes "ҵֻ.. һ£";
	next;
	mes "[]";
	mes "ǵģǿݣ";
	mes "Ǳǣǣ....";
	mes "ǣ";
	mes "ʲô";
	next;
	mes "[]";
	mes "ǵģ";
	mes ".. ģ";
	mes "ǣ֪ˣ";
	next;
	mes "[]";
	mes "꣡";
	mes "ٺٺ";
	next;
	mes "[]";
	mes ".... ";
	mes "ѸղĶԻ";
	mes ".. ٺ";
	emotion e_swt;
	cutin "",255;
	close;
}
aldeba_in,91,244,4	script	#4alde	112,{
	cutin "kafra_06",2;
	mes "[²]";
	mes "Ϊ½ԱȻʶ";
	mes "ãһᾡľΪǷ";
	mes "!";
	mes "ָ ~";
	next;
	if (select("?:Ի.") == 1) {
		mes "[²]";
		mes ". . . . .";
		mes " !!";
		mes "Ҫ˼ҵСӿ!!";
		close2;
		cutin "",255;
		end;
	}
	mes "[²]";
	mes "ǿ";
	mes "ṩһģ";
	mes "Ʒ";
	mes "ܸлʹá";
	close2;
	cutin "",255;
	end;
}

// Kafra Special Reserve Point NPCs
//============================================================
// Special Reserve ----------------------------------------------
aldeba_in,79,161,6	script	Kafra#04	115,{
	cutin "kafra_03",2;
	mes "[ ְԱ]";
	mes "Welcome, ^6666FF" + strcharinfo(0) + "^000000.  This is where you can trade in your special reserve points for useful items and cool prizes.";
	next;
	mes "[ ְԱ]";
	mes "Each Kafra will allow you to trade in reserve points of varying amounts.  I can trade in reserve points starting from ^2222FF100 pts up to 3000 pts^000000.";
	next;
	mes "[ ְԱ]";
	mes "The amount of special reserve points that you have is: ^FF0000"+RESRVPTS+"^000000 pts.  Please make a choice based on your point total.";
M_Menu:
	next;
	menu 	"100- Sweet Potato 7 ea",M_1a, "200- Sweet Potato 15 ea",M_1b, "300- Sweet Potato 25 ea",M_1c, "400- Sweet Potato 35 ea",M_1d,
		"500- Sweet Potato 50 ea",M_1e, "600- Sweet Potato 60 ea",M_1f, "700- Sweet Potato 75 ea",M_1g, "800- Sweet Potato 85 ea",M_1h,
		"900- Sweet Potato 100 ea",M_1i, "1000- 1st Lottery Chance!",M_1j, "Next items",M_2, "Cancel",M_End;

	M_1a:
		if(RESRVPTS < 100) goto sL_LowPts1;
		mes "[ ְԱ]";
		mes "Here you are.";
		getitem 516, 7;
		set RESRVPTS, RESRVPTS - 100;
		close;
	M_1b:
		if(RESRVPTS < 200) goto sL_LowPts1;
		mes "[ ְԱ]";
		mes "Here you are.";
		getitem 516, 15;
		set RESRVPTS, RESRVPTS - 200;
		close;
	M_1c:
		if(RESRVPTS < 300) goto sL_LowPts1;
		mes "[ ְԱ]";
		mes "Here you are.";
		getitem 516, 25;
		set RESRVPTS, RESRVPTS - 300;
		close;
	M_1d:
		if(RESRVPTS < 400) goto sL_LowPts1;
		mes "[ ְԱ]";
		mes "Here you are.";
		getitem 516, 35;
		set RESRVPTS, RESRVPTS - 400;
		close;
	M_1e:
		if(RESRVPTS < 500) goto sL_LowPts1;
		mes "[ ְԱ]";
		mes "Here you are.";
		getitem 516, 50;
		set RESRVPTS, RESRVPTS - 500;
		close;
	M_1f:
		if(RESRVPTS < 600) goto sL_LowPts1;
		mes "[ ְԱ]";
		mes "Here you are.";
		getitem 516, 60;
		set RESRVPTS, RESRVPTS - 600;
		close;
	M_1g:
		if(RESRVPTS < 700) goto sL_LowPts1;
		mes "[ ְԱ]";
		mes "Here you are.";
		getitem 516, 75;
		set RESRVPTS, RESRVPTS - 700;
		close;
	M_1h:
		if(RESRVPTS < 800) goto sL_LowPts1;
		mes "[ ְԱ]";
		mes "Here you are.";
		getitem 516, 85;
		set RESRVPTS, RESRVPTS - 800;
		close;
	M_1i:
		if(RESRVPTS < 900) goto sL_LowPts1;
		mes "[ ְԱ]";
		mes "Here you are.";
		getitem 516, 100;
		set RESRVPTS, RESRVPTS - 900;
		close;
	M_1j:
		if(RESRVPTS < 1000) goto sL_LowPts1;
		set RESRVPTS, RESRVPTS - 1000;
		mes "[ ְԱ]";
		mes "^0000FF1st Lottery Opportunity!!^000000";
		set @Lotto, 1;
		next;
		callfunc "F_Lottery";
		goto M_End;

	sL_LowPts1:
		mes "[ ְԱ]";
		mes "I'm sorry but you do not have enough reserve points for that selection.";
		goto M_Menu;

	M_2:
		menu 	"1100- Red Potion 7 ea",M_2a, "1300- Red Potion 15 ea",M_2b, "1500- Red Potion 25 ea",M_2c,
			"1700- Red Potion 35 ea",M_2d, "1900- Red Potion 50 ea",M_2e, "2100- Red Potion 60 ea",M_2f,
			"2300- Red Potion 75 ea",M_2g, "2500- Red Potion 85 ea",M_2h, "2800- Red Potion 100 ea",M_2i,
			"3000- 2nd Lotery Chance!",M_2j, "Previous List",M_Menu, "Cancel",M_End;
		
		M_2a:
			if(RESRVPTS < 1100) goto sL_LowPts2;
			mes "[ ְԱ]";
			mes "Here you are.";
			getitem 501, 7;
			set RESRVPTS, RESRVPTS - 1100;
			close;
		M_2b:
			if(RESRVPTS < 1300) goto sL_LowPts2;
			mes "[ ְԱ]";
			mes "Here you are.";
			getitem 501, 15;
			set RESRVPTS, RESRVPTS - 1300;
			close;
		M_2c:
			if(RESRVPTS < 1500) goto sL_LowPts2;
			mes "[ ְԱ]";
			mes "Here you are.";
			getitem 501, 25;
			set RESRVPTS, RESRVPTS - 1500;
			close;
		M_2d:
			if(RESRVPTS < 1700) goto sL_LowPts2;
			mes "[ ְԱ]";
			mes "Here you are.";
			getitem 501, 35;
			set RESRVPTS, RESRVPTS - 1700;
			close;
		M_2e:
			if(RESRVPTS < 1900) goto sL_LowPts2;
			mes "[ ְԱ]";
			mes "Here you are.";
			getitem 501, 50;
			set RESRVPTS, RESRVPTS - 1900;
			close;
		M_2f:
			if(RESRVPTS < 2100) goto sL_LowPts2;
			mes "[ ְԱ]";
			mes "Here you are.";
			getitem 501, 60;
			set RESRVPTS, RESRVPTS - 2100;
			close;
		M_2g:
			if(RESRVPTS < 2300) goto sL_LowPts2;
			mes "[ ְԱ]";
			mes "Here you are.";
			getitem 501, 75;
			set RESRVPTS, RESRVPTS - 2300;
			close;
		M_2h:
			if(RESRVPTS < 2500) goto sL_LowPts2;
			mes "[ ְԱ]";
			mes "Here you are.";
			getitem 501, 85;
			set RESRVPTS, RESRVPTS - 2500;
			close;
		M_2i:
			if(RESRVPTS < 2800) goto sL_LowPts2;
			mes "[ ְԱ]";
			mes "Here you are.";
			getitem 501, 100;
			set RESRVPTS, RESRVPTS - 2800;
			close;
		M_2j:
			if(RESRVPTS < 3000) goto sL_LowPts2;
			set RESRVPTS, RESRVPTS - 3000;
			mes "[ ְԱ]";
			mes "^0000FF2nd Lottery Opportunity!!^000000";
			set @Lotto, 2;
			next;
			callfunc "F_Lottery";
			goto M_End;

		sL_LowPts2:
			mes "[ ְԱ]";
			mes "I'm sorry but you do not have enough reserve points for that selection.";
			next;
			goto M_2;

	M_End:
		mes "[ ְԱ]";
		mes "Please come back anytime when you have more reserve points.";
		cutin "",255;
		close;
}

// Special Reserve 2 ----------------------------------------------
aldeba_in,88,161,3	script	#05	115,{
	cutin "kafra_03",2;
	mes "[  ְԱ]";
	mes "ӭ~ "+strcharinfo(0)+" ˿";
	mes "ǿģΪ˹˿رٰл";
	next;
	mes "[  ְԱ]";
	mes "ĿǰѼĿɳ齱Ʒ^FF0000ر ^529DFFƷ껪!^000000";
	mes "ǿ˾һصذѽƷǿ";
	next;
	mes "[  ְԱ]";
	mes "Ҫμ?";
	next;
	if(select("Ҫμ:Ҳμ")==1) {
		mes "[  ְԱ]";
		mes "˿ۼƵĵ^FF0000"+RESRVPTS+"^000000 ~";
		mes "ĿУѡҪƷ";
		next;
		switch(select("5000p = 1׶Σ!","7000p = 2׶Σ!","10000p = 3׶Σ!:ȡ")) {
		case 1:
			if(RESRVPTS < 5000) goto sL_NotEnuf;
			set RESRVPTS, RESRVPTS - 5000;
			set @Lotto, 3;
			callfunc "F_Lottery";
			break;
		case 2:
			if(RESRVPTS < 7000) goto sL_NotEnuf;
			set RESRVPTS, RESRVPTS - 7000;
			set @Lotto, 4;
			callfunc "F_Lottery";
			break;
		case 3:
			if(RESRVPTS < 10000) goto sL_NotEnuf;
			set RESRVPTS, RESRVPTS - 10000;
			set @Lotto, 5;
			callfunc "F_Lottery";
			break;
		case 4:
			break;
		sL_NotEnuf:
			mes "[  ְԱ]";
			mes "Բ~ ˿~";
			mes "˿ѡĻᣬۼƵԲܲ~";
			mes "˿ȷһۼƵ֮ѡ~";
			cutin "",255;
			close;
		}
	}
	mes "[  ְԱ]";
	mes "~ ~ ˿";
	mes "һۼƸ~ ~ ۼƵ~";
	mes "ǳлÿʹǿ(޹˾) ķ~~";
	cutin "",255;
	close;
}

// Function F_Lottery ------------------------------------------------------------------------------------------
function	script	F_Lottery	{
	mes "[]";
	mes "оѵĺ˳鵽õĺ!!";
	next;
	mes "[]";
	mes "û! װ! ׼?";
	next;
	mes "[]";
	mes "ת͸? ת 5 !  1-5 ֵĻӾͻԼת!";
	next;
	input @input;
	if(@input < 1 || @input > 5) set @input, rand(1,5); //Lupus's fix
	callsub sF_Spin;
	mes "[]";
	mes "! õʲô?";
	next;
	mes "[]";
	mes "^FF0000ҿ.... ...!!^000000";
	next;
	if(@temp <  1) goto sL_Prize1;
	if(@temp <  2) goto sL_Prize2;
	if(@temp <  3) goto sL_Prize3;
	if(@temp <=  4) goto sL_Prize4;
	goto sL_Prize5;

	sL_Prize1:
		mes "[]";
		mes "!!!!..... !!! ͷ~! ϲ~~ õͷ~~";
		if(@Lotto == 1) getitem 2328,1;//Items: Wooden_Mail,
		if(@Lotto == 2) getitem 2307,1;//Items: Mantle,
		if(@Lotto == 3) getitem 657,10;//Items: Berserk_Potion,
		if(@Lotto == 4) {
			getitem 607,2;//Items: Yggdrasilberry,
			getitem 608,1;//Items: Yggdrasil_Seed,
		}
		if(@Lotto == 5) getitem 607,3;//Items: Yggdrasilberry,
		return;
	sL_Prize2:
		mes "[]";
		mes "ŷ! ! õ! ϲ!!";
		if(@Lotto == 1) getitem 2403,1;//Items: Shoes,
		if(@Lotto == 2) getitem 2226,1;//Items: Cap,
		if(@Lotto == 3) getitem 2201,1;//Items: Sunglasses,
		if(@Lotto == 4) getitem 526,3;//Items: Royal_Jelly,
		if(@Lotto == 5) {
			getitem 608,1;//Items: Yggdrasil_Seed,
			getitem 526,10;//Items: Royal_Jelly,
		}
		return;
	sL_Prize3:
		mes "[]";
		mes "ϲ! õ";
		if(@Lotto == 1) getitem 602,4;//Items: Butterfly_Wing,
		if(@Lotto == 2) getitem 505,3;//Items: Blue_Potion,
		if(@Lotto == 3) getitem 2203,1;//Items: Glasses,
		if(@Lotto == 4) getitem 504,15;//Items: White_Potion,
		if(@Lotto == 5) getitem 504,30;//Items: White_Potion,
		return;
	sL_Prize4:
		mes "[]";
		mes "õĽ";
		if(@Lotto == 1) getitem 516,100;//Items: Sweet_Potato,
		if(@Lotto == 2) getitem 501,150;//Items: Red_Potion,
		if(@Lotto == 3) getitem 502,150;//Items: Orange_Potion,
		if(@Lotto == 4) getitem 505,5;//Items: Blue_Potion,
		if(@Lotto == 5) getitem 505,10;//Items: Blue_Potion,
		return;
	sL_Prize5:
		mes "[]";
		mes "õ影";
		if(@Lotto == 1) getitem 516,50;//Items: Sweet_Potato,
		if(@Lotto == 2) getitem 501,100;//Items: Red_Potion,
		if(@Lotto == 3) getitem 501,200;//Items: Red_Potion,
		if(@Lotto == 4) getitem 501,250;//Items: Red_Potion,
		if(@Lotto == 5) getitem 501,300;//Items: Red_Potion,
		return;

sF_Spin:
	mes "[͸]";
	mes "! ӽת "+@input+" ";
	next;
	mes "[͸]";
	mes "(~~~)...";
	next;
	set @temp, rand(10);
	set @input, @input -1;
	if(@input <= 0) return;
	goto sF_Spin;
}

// Inside Clock Tower
//============================================================
c_tower3,10,249,4	script	#ct	84,{
	//Key_Of_Clock_Tower
	callfunc "F_ClockTowerGate","Ĳ¥",7026,"c_tower4",185,44; 
}

alde_dun03,264,16,4	script	#ct1	101,{
	//Underground_Key
	callfunc "F_ClockTowerGate","¥",7027,"alde_dun04",79,267; 
}

function	script	F_ClockTowerGate	{
	mes "[]";
	mes "ðռңǰ";
	mes "ǰõĿˣ";
	mes "¥"+getarg(0)+"";
	mes "Ҳȥصĵط";
	next;
	switch(select("¥:"+getarg(0)+":Ҫ"+getarg(0)+":")) {
	case 1:
		mes "[]";
		mes "ʿĳأܾǰ3˵ʿ³ˡĪֶ̺֡..";
		next;
		mes "[]";
		mes "÷ޡ˹޶¥ǵĽ¥һЩ൱ĸо¥";
		next;
		mes "[]";
		mes "ﱻعϵħƣתתܸеЩ";
		next;
		mes "[]";
		mes "ǧҪСģȴҲ޷Ԥϵֿ˱ħԼһҪС...";
		close;
	case 2:
		mes "[]";
		mes "ϵʿʹʿħס˵4ڣҪĻͿţȴħǿĵˣ";
		next;
		mes "[]";
		mes "ҪһԿף˵ǰԿڱħ˵ϣ︽ε";
		next;
		mes "[]";
		mes "Կǹľ˵ʹǰԿ׵ʱҪǾͻͷųеҴʧ";
		next;
		mes "[]";
		mes "¸ҵðռңӵԿңֻӵԿ׵˲ŽԸܽ";
		next;
		mes "[]";
		mes "ڴܳɹĻ";
		mes ". . . . .";
		close;
	case 3:
		if (countitem(getarg(1)) > 0) {
			mes "[]";
			mes "ѾоһƽˣƺѾͨ˿顣ôڣɣᱣ¸ҵսʿ...";
			close2;
			delitem getarg(1),1; 
			warp getarg(2),getarg(3),getarg(4);
			end;
		}
		else {
			mes "[]";
			mes "ܲûͨ飬㲻ܽ ..Ҫ̫źʿ֮˼ŬһЩɣ";
			close;
		}
	case 4:
		mes "[]";
		mes "¥3ϵʿļңȻǵľ嶼뿪ǣΪ˻ܵġ";
		close;
	}
}
