//===== eAthena Script ======================================= 
//= Alberta Town
//===== By: ================================================== 
//= DZeroX
//===== Current Version: ===================================== 
//= 1.2b
//===== Compatible With: ===================================== 
//= eAthena 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]
//============================================================

alberta,97,51,0	script	Fabian	84,{
	mes "[Fabian]";
	mes "Man... When you travel all around";
	mes "the world, you'll hear of some";
	mes "crazy things.";
	next;
	mes "[Fabian]";
	mes "Once, I heard that there are Cards";
	mes "which contain the power of";
	mes "monsters. If someone happens to get";
	mes "their hands on a card, they'll be";
	mes "able to use that monster's power.";
	next;
	mes "[Fabian]";
	mes "I'm guessing it's some sort of fad";
	mes "or scam, where they make you";
	mes "collect all the cards or whatever.";
	mes "I mean, how can a card really hold";
	mes "the power of a monster?!";
	next;
	mes "[Fabian]";
	mes "Seriously...";
	close;
}

alberta,53,39,0	script	Steiner	100,{
	mes "[Steiner]";
	mes "Oh...!";
	mes "Welcome to Alberta,";
	mes "young adventurer!";
	next;
	mes "[Steiner]";
	mes "Pardon me if I seem distracted.";
	mes "I'm milling about, trying to";
	mes "make a plan.";
	mes" You see, I hear that there is";
	mes "a store in Geffen that sells";
	mes "armour that is resistant to magic.";
	next;
	mes "[Steiner]";
	mes "If I buy a lot of them in bulk,";
	mes "and then resell them here for a";
	mes "higher price...";
	close;
}

alberta,20,183,0	script	Chad	49,{
	mes "[Chad]";
	mes "People say the legendary weapon";
	mes "Gungnir never misses its target. I";
	mes "wonder if it's possibly true...";
	next;
	mes "[Chad]";
	mes "People also say that babies are";
	mes "assembled by the storks before";
	mes "delivery, girls dig guys who act";
	mes "like jerks, and that Santa Claus";
	mes "exists! But only in Lutie.";
	next;
	mes "[Chad]";
	mes "I wonder...";
	mes "If any of that";
	mes "is possibly";
	mes "true...";
	close;
}

alberta,189,151,5	script	Fisk	100,{
	mes "[Fisk]";
	mes "Ahoy mate,";
	mes "where'd ya";
	mes "wanna go?";
	next;
	switch(select("Sunken Ship -> 250 zeny.","Izlude Marina -> 500 zeny.","Never mind.")) {
		case 1:
			if (Zeny < 250) {
				mes "[Fisk]";
				mes "Hey now, don't try to cheat me!";
				mes "I said 250 zeny!";
				close;
			}
			set Zeny,Zeny - 250;
			warp "alb2trea",43,53;
			end;
		case 2:
			if (Zeny < 500) {
				mes "[Fisk]";
				mes "Ain't no way yer getting there";
				mes "without the 500 zeny first!";
				close;
			}
			set Zeny,Zeny - 500;
			warp "izlude",176,182;
			end;
		case 3:
			mes "[Fisk]";
			mes "Alright...";
			mes "Landlubber.";
			close;
	}
}

alb2trea,39,50,6	script	Fisk#a2t	100,{
	mes "[Fisk]";
	mes "So you wanna head back to the";
	mes "mainland in Alberta, eh?";
	next;
	if(select("Yes please.","I changed my mind.")==1)
		warp "alberta",192,169;
	close;
}

alberta,131,139,2	script	Drunken Old Man	54,{
	mes "[Deagle]";
	mes "*^CCCCCCHiccup^000000*";
	mes "Wh-what are you";
	mes "staring at? Get lost!!";
	next;	
	switch(select("Say nothing.","Leave him alone.")) {
		case 1:
			mes "[Deagle]";
			mes "Hahahahaha *^CCCCCChiccup^000000*... You've got";
			mes "some nerve. I may look worthless";
			mes "now, but I used to be a sailor on";
			mes "the 'Going Mary.'";
			next;
			switch(select("Never heard of it.","Really? No kidding!")) {
				case 1:
					mes "[Deagle]";
					mes "Never heard of it?! Everybody knows";
					mes "th'notorious pirate ship 'Going";
					mes "Mary!' *^CCCCCCHiccup~^000000*";
					next;
					mes "[Deagle]";
					mes "Ah~ The ol'days. If only... if only";
					mes "we hadn't run into that";
					mes "STORM... *^CCCCCChiccup^000000*";
					next;
					mes "[Deagle]";
					mes "AH~ Captain. I miss our cap'n more";
					mes "than anything... No foe survived";
					mes "before cap'n's sword.";
					close;
				case 2:
					mes "[Deagle]";
					mes "That's right! NOBODY meshes with";
					mes "the crew of the 'Going Mary!' And";
					mes "nobody can beat our cap'n in a";
					mes "sword fight!";
					next;
					mes "[Deagle]";
					mes "CAPTAIN~!!! *^CCCCCCHICCUP~^000000* He would";
					mes "swing his sword like this, then";
					mes "THEN!!";
					next;
					mes "[Deagle]";
					mes "The bastard the captain was";
					mes "fighting, and anyone of his friends";
					mes "near him, were surrounded in";
					mes "flame!";
					next;
					mes "[Deagle]";
					mes "Man, that sword must have had some";
					mes "sort of mysterious power, or the";
					mes "captain was just that good...!";
					next;
					mes "[Deagle]";
					mes "Phew~~ *^CCCCCCSob^000000* *^CCCCCCSob...^000000* God, I miss";
					mes "everyone! Now I'm depressed!";
					mes "Please, go away now.";
					close;
			}
		case 2:
			mes "[Deagle]";
			mes "That's right!";
			mes "Go AWAY~";
			close;
	}
}

alberta,58,80,2	script	Shakir	99,{
	mes "[Shakir]";
	if (rand(2)) {
		mes "We Merchants have our own";
		mes "negotiating skill when we sell";
		mes "goods. This skill can get us more";
		mes "money than when other people sell";
		mes "goods.";
		next;
		mes "[Shakir]";
		mes "It's more than just yelling 'You'll";
		mes "have to give more money please!'";
		mes "You need to have charisma, and";
		mes "master rhetoric!";
		next;
		mes "[Shakir]";
		mes "We can get up to 24% more zeny";
		mes "with this incredible skill. But";
		mes "remember to train hard to acquire";
		mes "it!";
	} else {
		mes "We Merchants can";
		mes "open roadside stands";
		mes "to do business.";
		next;
		mes "[Shakir]";
		mes "With the Discount skill, we can buy";
		mes "goods really cheap from the stores";
		mes "in towns and load them into the";
		mes "cart we rent.";
		next;
		mes "[Shakir]";
		mes "Then afterwards, we can travel";
		mes "anywhere, and sell our goods to";
		mes "make a profit!";
		next;
		mes "[Shakir]";
		mes "This way, business is more";
		mes "convenient and safe. Don't fall";
		mes "asleep, although it's too easy to";
		mes "do that.";
	}
	close;
}

alberta,62,156,2	script	Sonya	102,{
	mes "[Sonya]";
	switch(rand(3)){
	case 0:
		mes "You know those lazy looking bears";
		mes "that live in the forest on the way";
		mes "to Payon?";
		next;
		mes "[Sonya]";
		mes "Just for fun, I threw a rock at it";
		mes "and all of a sudden it rushed at me!";
		mes "I was soooooo scared, I started to";
		mes "run away, then BAM!!!";
		next;
		mes "[Sonya]";
		mes "It ran into a low tree branch and";
		mes "knocked itself out! I swear, I'll";
		mes "never provoke an animal for fun";
		mes "again!";
		close;
	case 1:
		mes "Hey, you know, this one time I was";
		mes "walking through the forest and I";
		mes "saw this little green stem moving";
		mes "around.";
		next;
		mes "[Sonya]";
		mes "I went to see what it was and when";
		mes "I went to touch it, the stem";
		mes "actually slapped my hand!";
		next;
		mes "[Sonya]";
		mes "It startled me, so I jumped back a";
		mes "bit and then I realised it wasn't a";
		mes "stem, but a very small animal.";
		next;
		mes "[Sonya]";
		mes "I was lucky I didn't upset it. Even";
		mes "the smallest animal can be";
		mes "dangerous if angered.";
		close;
	case 2:
		mes "I once saw a pack of wolves take on";
		mes "one of those huge, lazy bears!";
		next;
		mes "[Sonya]";
		mes "Wolves are much more cooperative";
		mes "than they may seem. If one of them";
		mes "is attacked, then any nearby wolves";
		mes "will run to help.";
		next;
		mes "[Sonya]";
		mes "I'd think twice if you ever want to";
		mes "fight one when others of its kind";
		mes "are around. Be careful: don't get";
		mes "ganged up on!";
		close;
	}
}

alberta,93,174,2	script	Grandmother Alma	103,{
	mes "[Grandmother Alma]";
	mes "Some time ago,";
	mes "a derelict ship";
	mes "drifted into";
	mes "Alberta harbour.";
	next;
	mes "[Grandmother Alma]";
	mes "Hoping to save any survivors, some";
	mes "of the townspeople ventured into";
	mes "the ship. However, they all ran out";
	mes "terrified, saying that corpses were";
	mes "walking around inside the ship.";
	next;
	mes "[Grandmother Alma]";
	mes "The ship was also packed with";
	mes "dangerous marine organisms, and";
	mes "they couldn't get inside, even if";
	mes "they wanted to.";
	next;
	mes "[Grandmother Alma]";
	mes "We couldn't do anything about that";
	mes "ominous looking ship, and just left";
	mes "it as it was. Nowadays, exploration";
	mes "teams try to enter that ship and";
	mes "wipe out its monsters.";
	next;
	mes "[Grandmother Alma]";
	mes "So it might be a good experience";
	mes "for a young person like yourself to";
	mes "be a recruit. But, it's still not";
	mes "worth risking your life if you're";
	mes "not strong enough.";
	close;
}

alberta,195,151,2	script	Paul	86,{
	mes "[Paul]";
	mes "Good day~";
	mes "Would you like";
	mes "to join the";
	mes "exploration team";
	mes "of the Sunken Ship?";
	next;
	mes "[Paul]";
	mes "Oh! Before you join, I must warn";
	mes "you. If you're not that strong, you";
	mes "may not want to go.";
	next;
	mes "[Paul]";
	mes "So, want";
	mes "to sign up?";
	mes "The admission";
	mes "fee is only";
	mes "200 Zeny.";
	next;
	switch(select("Sign me up!","Uh, no thanks.")) {
		case 1:
			if (Zeny < 200) {
				mes "[Paul]";
				mes "It seems you don't have the money,";
				mes "my friend. But please come back";
				mes "when you're able to pay.";
				close;
			} else {
				set Zeny,Zeny - 200;
				warp "alb2trea",62,69;
				close;
			}
		case 2:
			mes "[Paul]";
			mes "Alright, well...";
			mes "I'll be around";
			mes "if you change";
			mes "your mind.";
			close;
	}
}

alberta,190,173,4	script	Phelix	85,{
	set .@weight,MaxWeight-Weight;
	mes "[Phelix]";
	if ((.@weight) < 10000) {
		mes "Wait a moment!!";
		mes "You have brought too many things!";
		mes "You cannot accept any more items!";
		mes "Please reduce the amount of items,";
		mes "then come see me again.";
		close;
	}
	if (@event_zelopy == 0) {
		mes "The hell are you doing here?";
		mes "There is nothing you can get for";
		mes "free on this ship, if you want";
		mes "somethin', work for it!!";
		next;
		mes "[Phelix]";
		mes "Hmm, so why don't you bring me";
		mes "10 jellopies and I will give 1";
		mes "potion. How's that sound?";
		mes "Or if that's too hard for your";
		mes "pansy ass, 3 jellopies for 1";
		mes "Carrot.";
		next;
		mes "[Phelix]";
		mes "If you're interested in my offer,";
		mes "get me the stuff I mentioned.";
		set @event_zelopy,1;
		close;
	} else {
		mes "Hmm... you want to exchange";
		mes "jellopies for Red Potions or some";
		mes "Carrots eh? Well... which one?";
		next;
		switch(select("Red Potions please.","Carrots please.")) {
		case 1:
			mes "[Phelix]";
			mes "Alright...";
			mes "Let's see";
			mes "what'cha got...";
			next;
			mes "[Phelix]";
			if (countitem(909) < 10) {
				mes "Hey! Weren't you listening? I said";
				mes "10 jellopies for 1 Red Potion.. are";
				mes "ya deaf?";
				close;
			} else {
				set .@max,countitem(909)/10;
				mes "Hmm, not bad...";
				mes "How many potions";
				mes "do you want to get?";
				next;
				switch(select("As many as I can, please.","I want this many.","Never mind, I like my jellopy.")) {
				case 1:
					delitem 909,.@max*10;
					getitem 501,.@max;
					mes "[Phelix]";
					mes "There you go! As I promised. Don't";
					mes "go suckin' them all down at once.";
					close;
				case 2:
					mes "[Phelix]";
					mes "I'm not giving you more than 100";
					mes "at a time so don't bother, OK? If";
					mes "you don't want any, just say '0'.";
					mes "Right now, the most you can get is";
					mes ""+.@max+" but remember, 100 at most,";
					mes "you want to break my back?";
					input .@amount;
					next;
					mes "[Phelix]";
					if (.@amount <= 0) {
						mes "Much obliged, come again anytime.";
						close;
					}
					if (.@amount > 100) {
						mes "Hey, what'd I say? 100 at a time at";
						mes "most, you're trying to kill me";
						mes "aren't you!";
						close;
					}
					if (countitem(909) < .@amount*10) {
						mes "Hmmm, it looks like you don't have";
						mes "enough. Go get more jellopies if";
						mes "you want anything else from me.";
						close;
					}
					delitem 909,.@amount*10;
					getitem 501,.@amount;
					mes "[Phelix]";
					mes "There you go! As I promised. Don't";
					mes "go suckin' them all down at once.";
					close;
				case 3:
					mes "[Phelix]";
					mes "No problem,";
					mes "see you next time.";
					close;
				}
			}
		case 2:
			mes "[Phelix]";
			mes "Alright, let's see what ya got...";
			next;
			mes "[Phelix]";
			if (countitem(909) < 3) {
				mes "Hmm, look pansy ass, I said 3";
				mes "jellopies for 1 Carrot.. got it?";
				close;
			} else {
				set .@max,countitem(909)/3;
				mes "Not too bad pansy...";
				mes "How many do you want?";
				next;
				switch(select("As many as I can get, please","I want this many.","Never mind, I like my jellopy.")) {
				case 1:
					delitem 909,.@max*3;
					getitem 515,.@max;
					mes "[Phelix]";
					mes "There you go~! As I promised. Try";
					mes "not to stuff yer face.";
					close;
				case 2:
					mes "[Phelix]";
					mes "Right I'm not giving you more than";
					mes "100 at a time so don't bother,";
					mes "okay? If you don't want any, just";
					mes "say '0'.";
					input .@amount;
					next;
					mes "[Phelix]";
					if (.@amount == 0) {
						mes "Alright then, see you next time.";
						close;
					}
					if (.@amount > 100) {
						mes "Hey pansy ass, I said 100 at most,";
						mes "no more than that! I'm not going to";
						mes "break my back for the likes of you!";
						close;
					}
					if (countitem(909) < .@amount*10) {
						mes "Seems you don't have enough. Go get";
						mes "some more if you want anything";
						mes "else.";
						close;
					}
					delitem 909,.@amount*3;
					getitem 515,.@amount;
					mes "[Phelix]";
					mes "There you go~! As I promised. Try";
					mes "not to stuff yer face.";
					close;
				case 3:
					mes "[Phelix]";
					mes "Catch'ya later.";
					close;
				}
			}
		}
	}
}

alberta,43,49,5	script	Poor-looking Merchant	89,{
	mes "[Machen]";
	mes "Why...?";
	mes "How did my";
	mes "family's wealth";
	mes "and prestige just";
	mes "go down the drain?";
	next;
	mes "[Machen]";
	mes "Ever since the";
	mes "Alcheshs came to Alberta,";
	mes "they quickly took our place";
	mes "as the biggest business owners";
	mes "here. It's our biggest shame...";
	close;
}

alberta,43,244,8	script	Tourist#al	99,{
	mes "[Tourist]";
	mes "Where am I...?";
	mes "...Who am I?";
	next;
	mes "[Tourist]";
	mes "..........";
	next;
	mes "[Tourist]";
	mes ".....";
	next;
	mes "[Tourist]";
	mes "........";
	next;
	mes "[Tourist]";
	mes "Mahahahahahahaha!!";
	next;
	mes "[Tourist]";
	mes "*Drools*...I love chocolate!";
	next;
	mes "[Tourist]";
	mes "Wait...";
	mes "I have a girlfriend...";
	mes "and...and...";
	mes "cookies...?";
	mes "I feel sooo lost...";
	next;
	mes "[Tourist]";
	mes "^3355FFWe don't talk to crazy people~^000000";
	close;
}

alberta,165,83,4	script	Fastidious Old Man	755,{
	mes "[Frank]";
	mes "My back~";
	mes "It's so sore!";
	mes "And my eyes are";
	mes "hurting worse and worse.";
	mes "*Sigh* I'm getting old...";
	close;
}
