//===== rAthena Script ======================================= 
//= Alberta Town
//===== By: ================================================== 
//= DZeroX
//===== Current Version: ===================================== 
//= 1.6
//===== Compatible With: ===================================== 
//= rAthena 1.0
//===== Description: ========================================= 
//= Town-specific Alberta NPCs
//===== Additional Comments: ================================= 
//= 1.0 Converted from Aegis 10.4 [DZeroX]
//= 1.1 Optimized, missing next, REMOVED .GATs! again [Lupus]
//= 1.2 Implemented progression fixes provided by $ephiroth. [L0ne_W0lf]
//= 1.2b More pregression clean up provided by Barron-Monster. [L0ne_W0lf]
//= 1.3 Removed npc "Tourist#al" as it's a quest NPC. [L0ne_W0lf]
//= 1.4 Removed "Fastidious Old Man" duplicate. [L0ne_W0lf]
//= 1.5 Updated to match AEGIS script. [Kisuka]
//= 1.6 Added Izlude RE coordinates. [Euphy]
//============================================================

alberta,97,51,0	script	Ȱ	84,{
	mes "[Ȱ]";
	mes "... ʱҿ˺ö¶.";
	next;
	mes "[Ȱ]";
	mes "˵Щ̺ħĿƬ. ʹÿƬĻ, ôͿʹħ.";
	next;
	mes "[Ȱ]";
	mes "밡, ռпƬĿ˵Ǹʲôƭ. ҵ˼ǰ, һſƬôܹӵħ?!";
	next;
	mes "[Ȱ]";
	mes "ҿǺĶԴİ...";
	close;
}

alberta,53,39,0	script	˹̩	100,{
	mes "[˹̩]";
	mes "Ŷ...!";
	mes "ӭ,";
	mes "ð!";
	next;
	mes "[˹̩]";
	mes "ҿܷ벻Ҫ. תתȥƻ. ˵һҵħװ.";
	next;
	mes "[˹̩]";
	mes "ҰЩ, Ȼ߼۳...";
	close;
}

alberta,20,183,0	script	է	49,{
	mes "[է]";
	mes "˵˵еĸìбеĹЧ. ֪ǲ...";
	next;
	mes "[է]";
	mes "Ҳ˵Ӥڳǰɺ͹, Ҳ˵ŮϲЩк, ˵ʥĴڵ! Ȼڽ.";
	next;
	mes "[է]";
	mes "Ҳ...";
	mes "ʹЩ֮";
	mes "ֻһ,";
	mes "Ҳ...";
	close;
}

alberta,131,139,2	script	ͷ	54,{
	mes "[Ǹ]";
	mes "^666666**^000000";
	mes "......";
	mes "ʲôѽ? !!";
	next;
	switch(select("һԲ.","һһ˴ȥ.")) {
		case 1:
			mes "[Ǹ]";
			mes " ^666666**^000000... 㻹. Ȼڿûø, ǰǽ '֮'һˮ";
			next;
			switch(select("û˵.","? Ц!")) {
				case 1:
					mes "[Ǹ]";
					mes "û˵? һû˵ '֮!' ^666666*~*^000000";
					next;
					mes "[Ǹ]";
					mes "~ ЩʱⰡ. ... ûǳ籩...^666666**^000000";
					next;
					mes "[Ǹ]";
					mes "~ , ǵĴ... ûһ˿ԽǴĽ.";
					close;
				case 2:
					mes "[Ǹ]";
					mes "ǰ! û˸Һ '֮!'! Ҳû˿ڽԾдǴ!";
					next;
					mes "[Ǹ]";
					mes "~!!! ^666666*~*^000000 ӽ, , !!";
					next;
					mes "[Ǹ]";
					mes "Ļ쵰е˶Χư";
					next;
					mes "[Ǹ]";
					mes "ҪǰѴ, ҪǴ...!";
					next;
					mes "[Ǹ]";
					mes "~~ ^666666** *...*^000000 ϵ۰, ĺҰ! ,ں, ߰.";
					close;
			}
		case 2:
			mes "[Ǹ]";
			mes "!";
			mes "߰~";
			close;
	}
}

alberta,58,80,2	script	ɳ	99,{
	mes "[ɳ]";
	if (rand(2)) {
		mes "Щʱرּۻ۵ļ. ˵Ķʱ׬ø.";
		next;
		mes "[ɳ]";
		mes "Ȼǽ '˵!' Ҫ, Ҫͨ޴!";
		next;
		mes "[ɳ]";
		mes "ǿԵõʡ 24 % Ǯ. ּҪŬѧû!";
	} else {
		mes "Ϊ˵.";
		mes "·߿Լ¶̵.";
		mes "Щ.";
		next;
		mes "[ɳ]";
		mes "ǿôۼɴϵĵͼ, ȻװƳ.";
		next;
		mes "[ɳ]";
		mes "֮, ǾͿԵ, Ȼѻ, ׬ЩǮ!";
		next;
		mes "[ɳ]";
		mes "ְⷽȫ. Ȼоܼ, ǿɲҪ˯...";
	}
	close;
}

alberta,62,156,2	script		102,{
	mes "[]";
	switch(rand(3)){
	case 0:
		mes "Ҿɭֵʱ򿴵̵, ڵ϶ȥľ.";
		next;
		mes "[]";
		mes "Ҿǰȥ⵽ʲô, ҵʱ, Ȼӿʼͻҵ!!";
		next;
		mes "[]";
		mes "...Ҿ˻ȥ...ȻҷǸǾ, һССĶ.";
		next;
		mes "[]";
		mes "ûŪ. ŭĻ, ﲻжСǺΣյ.";
		close;
	case 1:
		mes "֪ЩͨɭסŵĿȥ?";
		next;
		mes "[]";
		mes "һξú, Ҿͳһͷһʯͷ, ȻͻȻͳҰ! Һµĵʱ! Ȼܰܰ, Ȼֻһ!!!";
		next;
		mes "[]";
		mes "һܵ͵֦ײε! Դ˷, ԺҲΪӼŭ!";
		close;
	case 2:
		mes "ǵһҿһǺһЩڽ!";
		next;
		mes "[]";
		mes "Щǰ, ǿȥĿҪŽ. еһͷĻ, ôΧǶ.";
		next;
		mes "[]";
		mes "Ա߻͵ħĻ, ǰǱ˰, СԸ㰡!";
		close;
	}
}

alberta,93,174,2	script		103,{
	mes "[]";
	mes "ǰ,";
	mes "һҷĴֻ";
	mes "˳ųˮ";
	mes "Ʈ˰ĸۿ.";
	next;
	mes "[]";
	mes "ûߵ, һЩ˾ȥֻͷðտ. ǶŻһܳ, ˵һʬڴֻ߰.";
	next;
	mes "[]";
	mes "ҴͷҲкܶΣյˮ. ˼ʹ߽ȥҲ߲ȥ.";
	next;
	mes "[]";
	mes "ǶǸĴֻû취, ǾҴôŰ. ЩԶѾʼ봬ֻ, Щħ.";
	next;
	mes "[]";
	mes ", ±ӵ, ȥǱððҲ. ȽСĻ, ҽ㰡, ǱðΣȥΪ.";
	close;
}

alberta,189,151,5	script	˹	100,{
	mes "[˹]";
	mes ",";
	mes "ҪȥĶ";
	mes "氡?";
	next;
	switch(select(" -> 250 zeny.","˹³ú -> 500 zeny.","û.")) {
		case 1:
			if (Zeny < 250) {
				mes "[˹]";
				mes "ٱƭҰ! ˵ 250 zeny!";
				close;
			}
			set Zeny,Zeny - 250;
			warp "alb2trea",43,53;
			end;
		case 2:
			if (Zeny < 500) {
				mes "[˹]";
				mes "û 500 zeny ҲŲȥ!";
				close;
			}
			set Zeny,Zeny - 500;
			if(checkre(0))
				warp "izlude",195,212;
			else
				warp "izlude",176,182;
			end;
		case 3:
			mes "[˹]";
			mes "ð...";
			mes "Ǻһ.";
			close;
	}
}

alb2trea,39,50,6	script	˹#a2t	100,{
	mes "[˹]";
	mes "Ҫذ԰?";
	next;
	if(select("ǵ.",".")==1)
		warp "alberta",192,169;
	close;
}

alberta,195,151,2	script		86,{
	mes "[]";
	mes "õһ찡~";
	mes "Ҫǳð?";
	mes "һȥҴ";
	mes "";
	mes "ܸܲ㵽ʲô?";
	next;
	mes "[]";
	mes "Ŷ! мҪһ, 㲻ǿĻǱȥ.";
	next;
	mes "[]";
	mes "Ҫ?";
	mes "ֻҪ 200 Zeny.";
	mes "ֻҪ 200 Zeny ֮.";
	mes "Ǿһ.";
	mes "ֻҪ 200 Zeny.";
	next;
	switch(select("!",", .")) {
		case 1:
			if (Zeny < 200) {
				mes "[]";
				mes ", Ǯ. Ǯ.";
				close;
			} else {
				set Zeny,Zeny - 200;
				warp "alb2trea",62,69;
				close;
			}
		case 2:
			mes "[]";
			mes "ð...";
			mes "ͨ˾Ұ.";
			mes "ɱ̫";
			mes "ǾҪȥð.";
			close;
	}
}

alberta,190,173,4	script	˹ 	85,{
	set .@weight,MaxWeight-Weight;
	mes "[˹]";
	if ((.@weight) < 10000) {
		mes "ȵȰ!!";
		mes "㶫̫!";
		mes "㲻ö˰!!";
		mes "!";
		mes "һ.";
		close;
	}
	if (@event_zelopy == 0) {
		mes "ʲô?";
		mes "ҴϲṩѵĶ!!";
		next;
		mes "[˹]";
		mes ", Ҫ 10 ձȽᾧ, Ҹһˮ, ÷?";
		mes "ʵôǵĻ, 3 ձ, һܲ.";
		next;
		mes "[˹]";
		mes "ȤĻͰѶ.";
		set @event_zelopy,1;
		close;
	} else {
		mes ", Ҫˮ Ǻܲ? һ?";
		next;
		switch(select("ˮ.","ܲ.")) {
		case 1:
			mes "[˹]";
			mes "Ǻ...";
			mes "˼...";
			mes "ûдﵽҪ...";
			next;
			mes "[˹]";
			if (countitem(909) < 10) {
				mes "Ӱ? ˵ 10 ձȽᾧһˮ!";
				close;
			} else {
				set .@max,countitem(909)/10;
				mes ", ...";
				mes "Ҫٺˮ?";
				mes "ܿ.";
				next;
				switch(select("ܻپͻ.","˵Ҫٰ.",", ҵĽᾧĶҪö, Ų.")) {
				case 1:
					delitem 909,.@max*10;	// Jellopy
					getitem 501,.@max;	// Red_Potion
					break;
				case 2:
					mes "[˹]";
					mes "һβ 100 ԱҸߵĺ÷? Ҫ '0'.";
					mes "Ի " + .@max + " һҪס, һ 100 ?.";
					input .@amount;
					next;
					mes "[˹]";
					if (.@amount <= 0) {
						mes "л, Ҫҵط.";
						close;
					}
					if (.@amount > 100) {
						mes "Ҳ˵ô?һ 100 , ұƷô!";
						close;
					}
					if (countitem(909) < .@amount*10) {
						mes "Ű, Ķ. ҪôĻȥýձȽᾧҵط.";
						close;
					}
					delitem 909,.@amount*10;	// Jellopy
					getitem 501,.@amount;	// Red_Potion
					break;
				case 3:
					mes "[˹]";
					mes "û,";
					mes "´ټ.";
					close;
				}
				mes "[˹]";
				mes "˰, ߰! ǵóЩʺɫʱҭŰ.";
				close;
			}
		case 2:
			mes "[˹]";
			mes "ʲô...";
			next;
			mes "[˹]";
			if (countitem(909) < 3) {
				mes ", ȥ? ˵ 3 ձȽᾧһܲ!";
				close;
			} else {
				set .@max,countitem(909)/3;
				mes "Ҳرǰ...";
				mes "Ҫ?";
				next;
				switch(select("ܻٻ",".",", ҵĽᾧĶҪö, Ų.")) {
				case 1:
					delitem 909,.@max*3;	// Jellopy
					getitem 515,.@max;	// Carrot
					break;
				case 2:
					mes "[˹]";
					mes "һβ 100 ԱҸߵĺ÷? Ҫ '0'.";
					input .@amount;
					next;
					mes "[˹]";
					if (.@amount == 0) {
						mes "ô, »ټ.";
						close;
					}
					if (.@amount > 100) {
						mes ", һ 100 , ǲ˶ϱ!";
						close;
					}
					if (countitem(909) < .@amount*10) {
						mes "òûô...ȥ.";
						close;
					}
					delitem 909,.@amount*3;	// Jellopy
					getitem 515,.@amount;	// Carrot
					break;
				case 3:
					mes "[˹]";
					mes ", С, ľջҵ~";
					close;
				}
				mes "[˹]";
				mes "߰߰~! Լ.";
				close;
			}
		}
	}
}
