//===== rAthena Script ======================================= 
//= Brasilis Town
//===== By: ================================================== 
//= L0ne_W0lf
//===== Current Version: =====================================
//= 1.3
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= [Official Conversion]
//= Brasilis Town Script
//===== Additional Comments: ================================= 
//= 1.0 First version. Transportation and Basic NPCs.
//= 1.1 Fixed Zeny not being removed for payment. [Kisuka]
//= 1.2 Updated dialog, added Ice Cream Maker. [L0ne_W0lf]
//= 1.3 Moved Alberta NPC to pre-re/re paths. [Euphy]
//============================================================ 

// Brasilis Transportation
//============================================================
/* Pre-Renewal coordinates: alberta,247,115,3 */
alberta,246,82,3	script	ݺ Ա#bra2	100,{
	mes "[ݺ Ա]";
	mes ", һаĵط?";
	mes "еɳĮ޿˰ȡ. Ǹǳصĵط.";
	next;
	mes "[ݺ Ա]";
	mes "һµԶߣȥǱ.";
	mes " 10,000 ! ?";
	next;
	switch(select("ȥ!:Ҫ.")) {
	case 1:
		if (Zeny > 9999) {
			mes "[ݺ Ա]";
			mes "~!! ~!";
			set zeny,zeny-10000;
			close2;
			warp "brasilis",314,60;
			end;
		}
		else {
			mes "[ݺ Ա]";
			mes "˵ 10,000 zeny.";
			close;
		}
	case 2:
		mes "[ݺ Ա]";
		mes "еȤ, Ҵȥ.";
		close;
	}
}

brasilis,316,57,3	script	ݺ Ա#bra1	100,{
	mes "[ݺ Ա]";
	mes "ҵĴҪʻذ, ?";
	next;
	switch(select(".:~.")) {
	case 1:
		mes "[ݺ Ա]";
		mes "ȻԼļ.";
		close2;
		if (checkre(0))
			warp "alberta",243,82;
		else
			warp "alberta",244,115;
		end;
	case 2:
		mes "[ݺ Ա]";
		mes "õ, . ǻڼ.";
		close;
	}
}

brasilis,155,165,3	script	ʾ#bra1	858,{
	mes "::  ::";
	close;
}

brasilis,195,231,3	script	ʾ#bra2	858,{
	mes ":: Τ˹ ::";
	close;
}

brasilis,240,247,3	script	ʾ#bra3	858,{
	mes ":: м ::";
	mes " ";
	mes "- ҩˮ -";
	close;
}

brasilis,303,309,3	script	ʾ#bra4	858,{
	mes ":: ³ ::";
	mes "";
	mes "- ҽ -";
	close;
}

brasilis,278,137,3	script	ʾ#bra5	858,{
	mes ":: 󷹵 ::";
	close;
}

brasilis,137,77,5	script	˪ܱ	85,{
	mes "[˪ܱ]";
	mes "Ӵ~Ӵ~";
	mes "~";
	mes "ֻҪ ^3355FF100 Zeny^000000~";
	mes "˪~";
	mes "˪!";
	next;
	switch(select("һ!:˪ܣ:ȡ.")) {
	case 1:
		mes "[˪ܱ]";
		mes "ζ˪̫ܻӭ.";
		mes "ÿֻ޹ 5-";
		next;
		while(1) {
			input .@input; //,1,5;
			if (.@input == 0) {
				mes "[˪ܱ]";
				mes "?";
				mes "ΪһλŶӹ˪ܵ, λ.";
				close;
			}
			else if ((.@input < 0) || (.@input > 5)) {
				mes "[˪ܱ]";
				mes ".";
				mes "е̰.";
				mes "Գ5Ļĳθͻ԰?.";
				next;
			}
			else
				break;
		}
		set .@icecream_hap,.@input*100;
		if (Zeny < .@icecream_hap) {
			mes "[˪ܱ]";
			mes " Ľƺ?.";
			mes "ÿ ^3355FF100 Zeny^000000~ !";
			close;
		}
		if (!checkweight(536,.@input)) {
			mes "[˪ܱ]";
			mes "Я̫Ʒ.";
			mes "һЩЯƷڹ.";
			close;
		}
		set zeny,zeny-.@icecream_hap;
		getitem 536,.@input; //Ice_Cream
		close;
	case 2:
		mes "[˪ܱ]";
		mes "'˪...";
		mes "ȵ,";
		mes "㲻֪ʲô˪?";
		mes "ò...";
		mes "?";
		next;
		mes "[˪ܱ]";
		mes "ν'˪'...䶳ıƷ.";
		mes "ӪḻʵĳԲ潡.";
		close;
	case 3:
		mes "[˪ܱ]";
		mes "ҪƷζı~!";
		close;
	}
}
