//===== eAthena Script ======================================= 
//= Al De Baran Town
//===== By: ================================================== 
//= eAthena dev team
//===== Current Version: ===================================== 
//= 2.01
//===== Compatible With: ===================================== 
//= eAthena 1.0
//===== Description: ========================================= 
//=
//===== Additional Comments: ================================= 
//= v1.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]
//============================================================

aldebaran,113,70,4	script	Forger Munster	48,{
	mes "[Munster]";
	mes "My family used to live in Geffen.";
	mes "So I guess it was natural that we";
	mes "studied forging and eventually";
	mes "became Blacksmiths. Then, we";
	mes "finally moved to this town,";
	mes "Al De Baran.";
	switch(select("About ^3355FFItem Upgrade^000000","Quit")) {
		case 1:
			next;
			mes "[Munster]";
			mes "My father was a famous blacksmith";
			mes "in Geffen, and he taught me a lot";
			mes "about forging equipment.";
			next;
			mes "[Munster]";
			mes "One of the fundamentals is that the";
			mes "success probability of upgrading an";
			mes "item depends on the level of the";
			mes "weapon.";
			next;
			mes "[Munster]";
			mes "For level 1 weapons, you may";
			mes "upgrade up to +7 without the risk";
			mes "of breaking the weapon. Level 2";
			mes "weapons can be upgraded to +6.";
			mes "Level 3 weapons can be upgraded to";
			mes "+5 safely.";
			next;
			mes "[Munster]";
			mes "For level 4 weapons, you can";
			mes "upgrade +4 without too much risk.";
			mes "As for armours, you can upgrade them";
			mes "to +4. But if the upgrade for the";
			mes "equipment fails, it will be";
			mes "destroyed!";
			close;
		case 2:
			next;
			mes "[Munster]";
			mes "Hmm...";
			mes "If you get a chance, try to visit";
			mes "my father's workshop here in Al de";
			mes "Baran. If I may say so, he's a";
			mes "pretty talented Blacksmith.";
			close;
	}
}

aldebaran,64,104,4	script	Smithing Guy	55,{
	mes "[Quatro]";
	mes "Have you heard that a famous";
	mes "Blacksmith moved here from Geffen?";
	switch(select("Famous Blacksmith?","End Conversation")) {
		case 1:
			next;
			mes "[Quatro]";
			mes "From what I've heard, he's one of";
			mes "those Blacksmiths that can upgrade";
			mes "your weapons and armour. When you";
			mes "upgrade a weapon, its attack";
			mes "strength is increased.";
			next;
			mes "[Quatro]";
			mes "For each upgrade level, attack";
			mes "strength increases by 2 for level 1";
			mes "weapons. On level 2 weapons, 3";
			mes "attack strength is added.";
			next;
			mes "[Quatro]";
			mes "On level 3 weapons, 5 attack";
			mes "strength is added for each level,";
			mes "and for level 4 weapons, 7 attack";
			mes "strength is added for each level.";
			next;
			mes "[Quatro]";
			mes "Anyway, this Blacksmith's family";
			mes "lives here, since his wife is sick";
			mes "and weak. Because of her condition,";
			mes "she needs to take medicinal herbs";
			mes "that grow near Al de Baran.";
			next;
			mes "[Quatro]";
			mes "They also have a dutiful son who's";
			mes "always helping out with the family";
			mes "business. I'm sure that kid will";
			mes "grow up to become a good Blacksmith";
			mes "like his father.";
			close;
		case 2:
			close;
	}
}

aldebaran,49,93,4	script	Young Man	83,{
	mes "[Miller]";
	mes "Aren't level 4 weapons cool!";
	mes "I can't believe such powerful";
	mes "weapons exist!";
	next;
	mes "[Miller]";
	mes "Well, they're rarely seen in the";
	mes "open market, but boss monsters will";
	mes "drop them by a low chance if you";
	mes "happen to be able to kill them.";
	close;
}

aldebaran,81,61,4	script	Shell Gathering Lady	101,{
	mes "[Joanne]";
	mes "I enjoy gathering shells from the";
	mes "sea. It's really fun and relaxing~";
	switch(select("Shell Gathering?","End Conversation")) {
		case 1:
			next;
			mes "[Joanne]";
			mes "When you see bubbles popping up";
			mes "from the sand or muddy puddles, try";
			mes "digging into the ground a bit. You";
			mes "might find some shells underneath";
			mes "the ground!";
			next;
			mes "[Joanne]";
			mes "Have you heard";
			mes "of Ambernite?";
			mes "That shell monster";
			mes "is pretty tough~";
			next;
			mes "[Joanne]";
			mes "It's usually seen at the beach near";
			mes "the west province of Prontera. If";
			mes "you ever try attacking it without";
			mes "being prepared, you might be in";
			mes "trouble.";
			next;
			mes "[Joanne]";
			mes "Ambernite is";
			mes "pretty strong!";
			mes "So look out for it!";
			close;
		case 2:
			close;
	}
}

aldebaran,46,129,4	script	Canal Guy	97,{
	mes "[Panama]";
	mes "Al De Baran is known world wide as";
	mes "the City of Canals. The waterways";
	mes "really add a sophisticated,";
	mes "romantic touch to our fair city.";
	switch(select("About the Canals","End Conversation")) {
		case 1:
			next;
			mes "[Panama]";
			mes "Well, a canal is an artificial";
			mes "waterway used for travel,";
			mes "shipping, or irrigation.";
			next;
			mes "[Panama]";
			mes "However, the cannals over here are";
			mes "just for show. If we needed to";
			mes "transport anything, we just use the";
			mes "Kafra Corporation Teleport";
			mes "service!";
			close;
		case 2:
			close;
	}
}

aldebaran,67,154,4	script	Forest Guy	98,{
	mes "[Isenberg]";
	mes "Mt. Mjolnir and Payon Forest.";
	mes "Both of those places are tough";
	mes "to travel through.";
	switch(select("Mt. Mjolnir?","Payon Forest...?","End Conversation")) {
		case 1:
			next;
			mes "[Isenberg]";
			mes "To arrive here from Prontera or";
			mes "Geffen, you've got to cross the";
			mes "Mjolnir Mountains.";
			next;
			mes "[Isenberg]";
			mes "If you've made it here by foot";
			mes "without using the Kafra";
			mes "Teleportation service,";
			mes "then good job!";
			next;
			mes "[Isenberg]";
			mes "The Mjolnir Mountains are really";
			mes "steep, and it's full of aggressive";
			mes "and hostile monsters. So it's";
			mes "always a risk to travel through";
			mes "there alone.";
			close;
		case 2:
			next;
			mes "[Isenberg]";
			mes "If you wish to visit Alberta or the";
			mes "city of Payon, you must first";
			mes "travel through the Payon Forest.";
			next;
			mes "[Isenberg]";
			mes "The Payon Forest is a winding,";
			mes "intricate maze where it's easy to";
			mes "get lost. Unless you concentrate";
			mes "and keep track of your path, you";
			mes "might be stuck wandering in that";
			mes "dangerous place.";
			next;
			mes "[Isenberg]";
			mes "Payon, the Archer Village, was";
			mes "built deep inside this steep and";
			mes "rugged forest so that it may be";
			mes "protected from outside invaders. So";
			mes "I guess that a good decision on";
			mes "their part.";
			close;
		case 3:
			close;
	}
}

aldebaran,90,170,4	script	Slot Guy	47,{
	mes "[Epthiel]";
	mes "Some weapons or armour have Slots";
	mes "where you can insert Cards obtained";
	mes "from monsters.";
	switch(select("About the number of Slots","Relation between Cards and Slots","Inserting Cards","End Conversation")) {
		case 1:
			next;
			mes "[Epthiel]";
			mes "Items dropped by monsters possess";
			mes "more Slots than ordinary weapons or";
			mes "armour sold in NPC shops.";
			next;
			mes "[Epthiel]";
			mes "I guess you can assume that an item";
			mes "with more Slots is more valuable";
			mes "than the same item with fewer";
			mes "Slots.";
			close;
		case 2:
			next;
			mes "[Epthiel]";
			mes "Once a Card is inserted into a";
			mes "Slot, it is impossible to remove";
			mes "it. So please be careful when you";
			mes "insert Cards into weapons or";
			mes "armour.";
			next;
			mes "[Epthiel]";
			mes "Also, when you mouse over equipment";
			mes "in the Item Window or Vending";
			mes "Window, the name of the item will";
			mes "be followed by the number of its";
			mes "Slots in brackets.";
			next;
			mes "[Epthiel]";
			mes "For example, a Shield with 1 Slot,";
			mes "when moused over, would be display the";
			mes "name 'Shield [1].'";
			next;
			mes "[Epthiel]";
			mes "You may also right-click an item,";
			mes "and check the Card Slot window";
			mes "below the item description window";
			mes "for the number of Slots.";
			close;
		case 3:
			next;
			mes "[Epthiel]";
			mes "Every card has its own requirements";
			mes "to be inserted into equipment. For";
			mes "example, let's say you have a";
			mes "Poring card...";
			next;
			mes "[Epthiel]";
			mes "If you check the Poring card's";
			mes "description by right-clicking the";
			mes "mouse, you will see that it";
			mes "increases LUK by 2, and adds +1 to";
			mes "Perfect Dodge.";
			next;
			mes "[Epthiel]";
			mes "In the item description, you should";
			mes "also note that it can only be";
			mes "inserted into Armour.";
			next;
			mes "[Epthiel]";
			mes "You should also remember that NPC";
			mes "shops usually don't sell armour that";
			mes "contain Slots. However, armour";
			mes "droppoed by monsters may contain";
			mes "Slots for cards.";
			next;
			mes "[Epthiel]";
			mes "To insert a card, first unequip the";
			mes "armour or weapon to which you want";
			mes "to compound the card.";
			next;
			mes "[Epthiel]";
			mes "When you double-click the card in";
			mes "the Etc. tab of the Item Inventory";
			mes "Window, you will see a list of";
			mes "available items suited for the";
			mes "card.";
			close;
		case 4:
			close;
	}
}

aldebaran,117,181,4	script	Phracon Guy	48,{
	mes "[Joy]";
	mes "Level 1 weapons, which are the";
	mes "lowest grade, need a metal named";
	mes "^3355FFPhracon^000000 in order to be";
	mes "upgraded.";
	switch(select("About Phracon","Advice about Phracon","End Conversation")) {
		case 1:
			next;
			mes "[Joy]";
			mes "Phracon is a pretty common metal";
			mes "and can be found all over the";
			mes "Rune-Midgard continent.";
			next;
			mes "[Joy]";
			mes "Although it lacks the strength of";
			mes "other metals, it's easy to find and";
			mes "obtain. You can get Phracons by";
			mes "killing monster or by buying them";
			mes "in Forging SHops in towns.";
			next;
			mes "[Joy]";
			mes "When you no longer need Phracons";
			mes "because you are using higher level";
			mes "weapons, you can sell them for some";
			mes "zeny!";
			close;
		case 2:
			next;
			mes "[Joy]";
			mes "Well, I hear lots of monsters carry";
			mes "Phracons and will drop them once";
			mes "killed. Why don't you go hunting";
			mes "for them?";
			next;
			mes "[Joy]";
			mes "It shouldn't be too difficult. Once";
			mes "I found a Phracon that dropped";
			mes "after killing a Bebe Savage! But if";
			mes "you're desperate, you can always";
			mes "buy them at the Forging SHop.";
			close;
		case 3:
			close;
	}
}

aldebaran,121,231,4	script	Alchemy Guy	49,{
	mes "[Chemirre]";
	mes "Alchemists, one of the 2nd Jobs,";
	mes "are able to create items out of";
	mes "several materials using knowledge";
	mes "from the ancient age of Al De";
	mes "Baran.";
	switch(select("About Alchemy in Payon","Definition of Alchemy","End Conversation")) {
		case 1:
			next;
			mes "[Chemirre]";
			mes "Most people don't know that there";
			mes "was an oriental form of Alchemy";
			mes "that developed in Payon.";
			next;
			mes "[Chemirre]";
			mes "These Payon Alchemists were able to";
			mes "create Gold out of different";
			mes "materials. However, Payon Alchemy";
			mes "never advanced as much as the";
			mes "Alchemy in Al De Baran.";
			next;
			mes "[Chemirre]";
			mes "Materials for Alchemy in Payon were";
			mes "scarse and interest in that field";
			mes "eventually waned. Now, you can only";
			mes "study Alchemy here in Al De Baran.";
			next;
			mes "[Chemirre]";
			mes "Still, I can't help buy wonder what";
			mes "secrets were lost after the Payon";
			mes "art of Alchemy disappeared from the";
			mes "face of the Earth...";
			close;
		case 2:
			next;
			mes "[Chemirre]";
			mes "Alchemists specialise in chemical";
			mes "research in order to create useful";
			mes "items out of various things.";
			next;
			mes "[Chemirre]";
			mes "I also hear that they create all";
			mes "sorts of Potions, and can even";
			mes "summon certain monsters! It seems";
			mes "that their studies have all sorts";
			mes "of nifty applications.";
			close;
		case 3:
			close;
	}
}

aldebaran,86,228,4	script	Little Kid	62,{
	mes "[Bebe]";
	mes "A whil ago I went out for a walk";
	mes "toward Mt. Mjolnir with my pet";
	mes "Savage Bebe. His name is NukNuk!";
	mes "We got attacked, but luckily we";
	mes "weren't hurt.";
	switch(select("Attacked?","About Mt. Mjolnir","End Conversation")) {
		case 1:
			next;
			mes "[Bebe]";
			mes "I was walking up a narrow path, and";
			mes "out of the blue, a giant and ugly";
			mes "plant started to attack me and";
			mes "NukNuk!";
			next;
			mes "[Bebe]";
			mes "I was so surprised, so me and";
			mes "NukNuk had to run away. I threw";
			mes "rocks at it, but I don't think I";
			mes "hurt it. It must have been really";
			mes "strong!";
			next;
			mes "[Bebe]";
			mes "What really surprised me was the";
			mes "plant that attacked me was a huge";
			mes "flower with the face of a person!";
			mes "So, look out for those. They're";
			mes "dangerous!";
			close;
		case 2:
			next;
			mes "[Bebe]";
			mes "Even though people are fascinated";
			mes "by the scenic beauty of Mt.";
			mes "Mjolnir, it's full of dangerous";
			mes "monsters!";
			next;
			mes "[Bebe]";
			mes "There are Flowers, Insects, Bees,";
			mes "Butterflies and Moths that are big";
			mes "enough to kill you if you're not ";
			mes "careful!";
			next;
			mes "[Bebe]";
			mes "Then again, most of these monsters";
			mes "won't hurt you if you don't attack";
			mes "first. But some of them will attack";
			mes "you once they see you!";
			close;
		case 3:
			close;
	}
}

aldebaran,159,242,4	script	Insect Guy	119,{
	mes "[Stromme]";
	mes "Even to a strong Swordman, the";
	mes "Insects of Mt. Mjolnir pose a";
	mes "considerable threate. You've got to";
	mes "know your enemy before engaging it";
	mes "in battle!";
	switch(select("About Insects","End Conversation")) {
		case 1:
			next;
			mes "[Stromme]";
			mes "Honey Bees, Butterflies and Moths";
			mes "seem like simple creatures, but";
			mes "that doesn't mean you should";
			mes "underestimate them.";
			next;
			mes "[Stromme]";
			mes "These Insects have evolved over";
			mes "time, and can counter attacks from";
			mes "threats like you adventurers!";
			next;
			mes "[Stromme]";
			mes "There are also carnivorous Insects,";
			mes "such as praying Spiders, praying";
			mes "Mantises, and the millipide like";
			mes "Argiopes.";
			next;
			mes "[Stromme]";
			mes "These monsters have mutated and are";
			mes "too strong for a person at certain";
			mes "levels. You should especially watch";
			mes "out for Argiopes.";
			next;
			mes "[Stromme]";
			mes "Luckily, their eyesight is pretty";
			mes "bad, so it won't notice you if you";
			mes "walk a safe distance away from it.";
			close;
		case 2:
			close;
	}
}

aldeba_in,232,241,4	script	Reynolds	48,{
	mes "[Reynolds]";
	mes "Hello,";
	mes "can I Help you?";
	next;
	mes "[Reynolds]";
	mes "And...";
	mes "What are you";
	mes "doing in my house?";
	switch(select("I've come for advice.","I've come to pillage!","End Conversation")) {
		case 1:
			next;
			mes "[Reynolds]";
			mes "Advice...?";
			mes "Oh, you must be one of those";
			mes "adventurers. I should have known.";
			next;
			mes "[Reynolds]";
			mes "You guys have a habit of walking in";
			mes "here, sitting on my bed, sometimes";
			mes "talking to me. But now that I think";
			mes "about it, no one else really comes";
			mes "in here to visit me. I guess I need";
			mes "more friends?";
			next;
			mes "[Reynolds]";
			mes "Right, you came for advice. By";
			mes "that, you mean you wanna know about";
			mes "some kind of treasure or super";
			mes "monster. Maybe even super";
			mes "treasure?";
			next;
			set .@random,rand(1,3);
				if (.@random == 1) {
					mes "[Reynolds]";
					mes "Um...";
					mes "There might be a super treasure";
					mes "somewhere near Comodo. You might";
					mes "want to visit Comodo and learn what";
					mes "you can. Supposedly, there's a";
					mes "whole new land near there...";
					close;
				}
				if (.@random == 2) {	
					mes "[Reynolds]";
					mes "If you want great rewards, you've";
					mes "got to take some risks. You gotta";
					mes "fight the big monsters!";
					next;
					mes "[Reynolds]";
					mes "Baphomet...";
					mes "Lord of Death...";
					mes "You gotta take";
					mes "them all down!";
					next;
					mes "[Reynolds]";
					mes "Then again, it might be better to";
					mes "have a plan. You know, take the";
					mes "right people with you when you're";
					mes "hunting strong monsters.";
					next;
					mes "[Reynolds]";
					mes "You may also need to change which";
					mes "monsters you hunt, depending on";
					mes "your current goals. Are you looking";
					mes "for quicker experience gain, or a";
					mes "specific item?";
					close;
				} else {	
					mes "[Reynolds]";
					mes "Let's see...";
					mes "Alberta is a good place to go if";
					mes "you're feeling pretty aimless.";
					mes "There are a bunch of ships there";
					mes "that will transport you to foreign";
					mes "lands!";
					next;
					mes "[Reynolds]";
					mes "Although the Kafra Corporate";
					mes "service is very convenient, they";
					mes "don't provide teleportation to";
					mes "places like Amatsu and Gonryun.";
					next;
					mes "[Reynolds]";
					mes "So this may be a good idea if you";
					mes "like sailing and exploration.";
					mes "There's a big world out there, so";
					mes "go out and enjoy it!";
					close;
				}
		case 2:
			next;
			mes "[Reynolds]";
			mes "Pillage?";
			mes "Aww man...";
			mes "That ain't cool.";
			next;
			mes "[Reynolds]";
			mes "There's nothing here worth taking.";
			mes "A couple portraits on the walls, a";
			mes "bookcase, some animated gears, that";
			mes "wooden table over there, my bed...";
			next;
			mes "[Reynolds]";
			mes "All of my valuable belongings have";
			mes "been pillaged years ago. All";
			mes "because I refused to install a lock";
			mes "on my door.";
			next;
			mes "[Reynolds]";
			mes "And...";
			mes "I still haven't installed that";
			mes "lock. I guess that explains";
			mes "how you were able to get in.";
			next;
			mes "[Reynolds]";
			mes "Man...";
			mes "Why can't more hot chicks barge in";
			mes "here. I mean, dude! You're a dude!";
			close;
		case 3:
			close;
	}
}

aldeba_in,223,121,4	script	Harold	63,{
	mes "[Harold]";
	mes "You...";
	mes "You remind me of myself when I was";
	mes "younger. If you lack direction in";
	mes "life, why don't you speak to ^3355FFMaster^000000";
	mes "^3355FFTzerero^000000.";
	next;
	mes "[Harold]";
	mes "I'm not too sure,";
	mes "but you might have";
	mes "what it takes to become...";
	next;
	mes "[Harold]";
	mes "...^FF9900A Super Novice^000000.";
	close;
}

aldeba_in,219,61,4	script	Cipriano	109,{
	mes "[Cipriano]";
	mes "Welcome...";
	mes "Allow me to introduce myself.";
	next;
	mes "[Cipriano]";
	mes "I am Cipriano,";
	mes "and I help out around";
	mes "the Super Novice Society.";
	next;
	mes "[Cipriano]";
	mes "As an organisation they don't have";
	mes "a treasury or any funds to speak";
	mes "of, but frugality and simplicity";
	mes "are a part of their philosophy.";
	next;
	mes "[Cipriano]";
	mes "In fact, they're working on a whole";
	mes "brochure with tips to live your";
	mes "life in purity and mundaneness.";
	mes "It's really good reading, and quite";
	mes "an eye opener.";
	next;
	mes "[Cipriano]";
	mes "Someday, you might be able";
	mes "to read it if they can raise some";
	mes "meager funds to adequately publish";
	mes "it. If we're lucky.";
	next;
	mes "[Cipriano]";
	mes "Well, if you're tired, why don't";
	mes "you take an ordinary nap on one of";
	mes "the ordinary beds around here? You";
	mes "can revoer your HP and SP in a";
	mes "humdrum fashion that way.";
	close;
}

aldeba_in,152,47,4	script	Lionel	97,{
	mes "[Lionel]";
	mes "Have you heard about the Super";
	mes "Novice Society? Their headquarters";
	mes "is located somewhere here";
	mes "in Al De Baran.";
	next;
	mes "[Lionel]";
	mes "I thought about joining them for a";
	mes "while, since I wanted to have both";
	mes "vending skills and healing skills!";
	next;
	mes "[Lionel]";
	mes "But then I remembered that the";
	mes "Kafra Employees only rent carts to";
	mes "Merchants, Blacksmiths and";
	mes "Alchemists! I guess a Super Novice";
	mes "really wouldn't be one of those.";
	next;
	mes "[Lionel]";
	mes "There's got to be some way a Super";
	mes "Novice can rent a cart, even though";
	mes "it's technically illegal. I mean,";
	mes "I've seen a few of them walking";
	mes "around with one...";
	close;
}

aldeba_in,156,179,4	script	Master	61,{
	mes "[Master]";
	mes "The Kafra Corporation Headquaters";
	mes "is located here in Al De Baran.";
	mes "Do you know what that means?";
	next;
	mes "[Master]";
	mes "That means those cute Kafra";
	mes "Employees come here for their lunch";
	mes "breaks! Isn't that great?!";
	next;
	mes "[Master]";
	mes "Alright, then!";
	mes "Pop Quiz Time!";
	mes "Who's your";
	mes "favourite Kafra girl?";
	switch(select("Awesome!","No way, I ain't a perv.")) {
		case 1:
			next;
			mes "[Master]";
			mes "Alright, here we go!";
			mes "Choose your favourite Kafra Lady!";
			next;
			mes "[Master]";
			mes "The original Kafra Mascot, the";
			mes "classic blue haired lady! Candidate";
			mes "Number One: ^3355FFPavianne^000000!";
			next;
			mes "[Master]";
			mes "Her graceful ponytail takes mens'";
			mes "breath away! The fan favourite";
			mes "amongst teen males! Candidate";
			mes "Number Two: ^5533FFBlossom^000000!";
			next;
			mes "[Master]";
			mes "Her long, straight hair, like silk";
			mes "from the East, is her charm point.";
			mes "Direct from Payon, it's Candidate";
			mes "Number Three: ^555555Jasmine^000000!";
			next;
			mes "[Master]";
			mes "A tomboy with bright orange,";
			mes "shortly cut hair. Candidate Number";
			mes "Four: ^3355FFRoxie^000000!";
			next;
			mes "[Master]";
			mes "Intelligent, sophisticated and";
			mes "never seen without her luxurious";
			mes "glasses. It's Candidate Number";
			mes "Five: ^33FF55Leilah^000000!";
			next;
			mes "[Master]";
			mes "Pretty, cute and fresh faced.";
			mes "Although she looks young and";
			mes "immature, she's the best staff!";
			mes "Candidate Number (6) ^AAAA00Curly Sue^000000 !!";
			switch(select("(1) Pavianne","(2) Blossom","(3) Jasmine","(4) Roxie","(5) Leilah","(6) Curly Sue")) {
				case 1:
					next;
					mes "[Master]";
					mes "Oh~";
					mes "So you're a lover of classics. I";
					mes "respect that very much.";
					next;
					mes "[Master]";
					mes "I'll also guess that you tend to";
					mes "enjoy the original movie more than";
					mes "sequels, and dislike bad";
					mes "imitations. Am I right?";
					close;
				case 2:
					next;
					mes "[Master]";
					mes "Hmmm...";
					mes "Blossom strikes me as the";
					mes "girl-next-door type. So I guess";
					mes "that's the type of girl you're";
					mes "attracted to, eh?";
					close;
				case 3:
					next;
					mes "[Master]";
					mes "So...";
					mes "Long, luxurious hair is important";
					mes "to you, hmm? I suppose such hair";
					mes "makes a woman look quite elegant.";
					close;
				case 4:
					next;
					mes "[Master]";
					mes "Ah, so you tend to like active,";
					mes "spontaneous types. I can understand";
					mes "that...";
					next;
					mes "[Master]";
					mes "Since Roxie isn't exactly the";
					mes "demure housewife type, you probably";
					mes "have an open mind when it comes to";
					mes "defining femininity, right?";
					close;
				case 5:
					next;
					mes "[Master]";
					mes "Ah, so you like the intellectual";
					mes "type. That's good, that's good.";
					next;
					mes "[Master]";
					mes "Still, that Leilah can be cold as";
					mes "stone sometimes. I've seen her";
					mes "shrug off many young men and crush";
					mes "even more hearts!";
					close;
				case 6:
					next;
					mes "[Master]";
					mes "Say whaaat?!";
					mes "She's too young!";
					close;
			}
		case 2:
			next;
			mes "[Master]";
			mes "But I worked so hard on this";
			mes "delightful survey! Come now, be a";
			mes "sport! Admiring a pretty woman is";
			mes "like appreciating fine art.";
			close;
	}
}

aldebaran,60,70,4	script	Sylvia	69,{
	mes "[Sylvia]";
	mes "I came all the way here from";
	mes "Prontera because I heard the Kafra";
	mes "Main Office was somewhere here in";
	mes "Al De Baran.";
	next;
	mes "[Sylvia]";
	mes "It shouldn't be that hard to find,";
	mes "but I'm aweful at following";
	mes "directions. I always get lost, no";
	mes "matter how hard I try!";
	next;
	mes "[Sylvia]";
	mes "If that wasn't bad enough, I left";
	mes "my Magnifiers back in Prontera, so";
	mes "now I Have to find someone to help";
	mes "me with these weapons I've got to";
	mes "appraise!";
	switch(select("Appraise?","That's very nice.")) {
		case 1:
			next;
			mes "[Sylvia]";
			mes "Equipment that is dropped by";
			mes "monsters can't be equipped right";
			mes "away.";
			next;
			mes "[Sylvia]";
			mes "If you right-click the equippable";
			mes "item in the Item Inventory, you'll";
			mes "see that it is Unidentified and";
			mes "that Appraisal is needed. What to";
			mes "do?";
			next;
			mes "[Sylvia]";
			mes "Well, in that case, you've gotta";
			mes "use ^3355FFMagnifier^000000!";
			next;
			mes "[Sylvia]";
			mes "Even without a Blacksmith,";
			mes "Alchemist or Merchant in your";
			mes "party, you can appraise your";
			mes "equipment! Of course, a Magnifier";
			mes "is consumed each time you use";
			mes "one...";
			close;
		case 2:
			mes "[Sylvia]";
			mes "Hey...";
			mes "Was that a hint of sarcasm in your";
			mes "voice when you said that?";
			close;
	}
}

aldebaran,93,80,4	script	Issei	48,{
	mes "[Issei]";
	mes "Al De Baran is such a wonderful";
	mes "place with its romantic canals and";
	mes "classic architecture. I love";
	mes "nothing more than to stroll through";
	mes "this city with my beautiful";
	mes "girlfriend.";
	switch(select("You have a girlfriend?","End Conversation.")) {
		case 1:
			next;
			mes "[Issei]";
			mes "Hey...";
			mes "Is that so hard to believe?! Yeah,";
			mes "ask anyone! She really exists!";
			mes "Although, sometimes, just sometimes";
			mes "mind you, she gets too excited";
			mes "about weapons and armour.";
			next;
			mes "[Issei]";
			mes "I mean, instead of enjoying a";
			mes "romantic dinner, she'll just go on";
			mes "about how equipment dropped from";
			mes "monsters is higher quality than";
			mes "those sold in shops...";
			next;
			mes "[Issei]";
			mes "I mean, why should I care if";
			mes "equipment dropped by monsters tend";
			mes "to have more Slots?! I can't even";
			mes "kill a Poring!";
			next;
			mes "[Issei]";
			mes "As you can see,";
			mes "I'm a lover,";
			mes "not a fighter.";
			close;
		case 2:
			close;
	}
}

aldebaran,180,46,4	script	Joo Jahk	88,{
	mes "[Joo Jahk]";
	mes "I'm a tourist";
	mes "from Payon,";
	mes "the City of Forests.";
	next;
	mes "[Joo Jahk]";
	mes "The temperature here in Al De Baran";
	mes "is very cool, probably because of";
	mes "the waterways. Do you think the";
	mes "water in the canals is drinkable?";
	next;
	mes "[Joo Jahk]";
	mes "Well, it's too late for me, since I";
	mes "already drank some. Still, I'm a";
	mes "little worried...";
	switch(select("Continue.","End conversation")) {
		case 1:
			next;
			mes "[Joo Jahk]";
			mes "On one of my travels around";
			mes "Rune-Midgard, I've heard from a";
			mes "really high level Mage that";
			mes "physical attacks, or magic with";
			mes "Neutral Property, won't damage";
			mes "Spiritual Property monsters.";
			next;
			mes "[Joo Jahk]";
			mes "Maybe that advice will come in";
			mes "handy, now that you know that.";
			mes "Always remember the importance of";
			mes "the Properties of your skills and";
			mes "weapons when battling monsters.";
			close;
		case 2:
			next;
			mes "[Joo Jahk]";
			mes "On the other hand, the water I";
			mes "drank did taste pretty good.";
			mes "Hopefully it didn't have anything";
			mes "too weird in it...";
			close;
	}
}

aldebaran,212,122,4	script	Citizen	97,{
	mes "[Gavin]";
	mes "Welcome!";
	mes "The town of";
	mes "Al De Baran";
	mes "welcomes you!";
	next;
	mes "[Gavin]";
	mes "Well, that might be an";
	mes "exaggeration. After all, it's just";
	mes "me that's welcoming you.";
	mes "Hey there!";
	switch(select("Now, tell me about monsters.","End conversation.")) {
		case 1:
			next;
			mes "[Gavin]";
			mes "Monsters...?";
			mes "Aren't we straying off topic a";
			mes "little bit? Ah, you must be one of";
			mes "those adventurers!";
			next;
			mes "[Gavin]";
			mes "Can't get your mind off the job";
			mes "eh? Alright, now there was some";
			mes "monster that I saw just";
			mes "recently...";
			next;
			mes "[Gavin]";
			mes "Ah, now I remember! Just a few days";
			mes "ago, I saw a really interesting";
			mes "looking monsters! It was a Poring";
			mes "with Angel's wings!";
			next;
			mes "[Gavin]";
			mes "I swear! He was jumping around";
			mes "somewhere near Mt. Mjolnir with";
			mes "some ordinary Porings. I think he";
			mes "was, like, their leader.";
			close;
		case 2:
			next;
			mes "[Gavin]";
			mes "Awww...";
			mes "Don't be too disappointed that";
			mes "there's only one person in your";
			mes "welcome wagon!";
			close;
	}
}

aldebaran,146,124,4	script	Town Girl	101,{
	mes "[Nastasia]";
	mes "Somewhere in the world there is an";
	mes "^3355FFAssassin Guild^000000, where they teach";
	mes "people the subtle art of";
	mes "assassination.";
	next;
	mes "[Nastasia]";
	mes "But isn't killing illegal? And do";
	mes "they even collect educational";
	mes "tuition?";
	switch(select("Continue Conversation.","End Conversation.")) {
		case 1:
			next;
			mes "[Nastasia]";
			mes "Although Assassins benefit from";
			mes "being very quick and having lots of";
			mes "AGI, they should still have some";
			mes "DEX.";
			next;
			mes "[Nastasia]";
			mes "DEX is especially important if you";
			mes "want to hit monsters with wings.";
			mes "Those monsters are quick moving and";
			mes "fast in attacking.";
			next;
			mes "[Nastasia]";
			mes "In general, if you want to hit";
			mes "monsters that are as fast, or even";
			mes "faster, than you are, you're going";
			mes "to need some DEX.";
			close;
		case 2:
			next;
			mes "[Nastasia]";
			mes "It's usually said that in this";
			mes "world, nothing is free. Still, if";
			mes "you don't have to pay money to";
			mes "learn to be an Assassin...";
			close;
	}
}

aldebaran,143,136,4	script	Bell Keeper	89,{
	mes "[Bell Keeper]";
	mes "I have been charged by the";
	mes "Committee of 'Heaven on Earth' to";
	mes "guard this entrance of the Clock";
	mes "Tower.";
	switch(select("About Clock Tower.","About Committee of 'Heaven on Earth'.","Quit.")) {
		case 1:
			next;
			mes "[Bell Keeper]";
			mes "Every floor of this tower is";
			mes "connected to each other by a";
			mes "certain device we like to call";
			mes "'Warp Gear.'";
			next;
			mes "[Bell Keeper]";
			mes "Even though there are";
			mes "interconnecting warps everywhere in";
			mes "the Clock Tower, beware the 'Random";
			mes "Warp.'";
			next;
			mes "[Bell Keeper]";
			mes "The 'Random Warp' will transport";
			mes "you to an unknown spot. Be advised";
			mes "if you don't want to suddenly be";
			mes "separated from your party...";
			next;
			mes "[Bell Keeper]";
			mes "Remember, Random Warps are showin in";
			mes "green on the mini-map. So keep your";
			mes "eyes peeled for that, as well as";
			mes "for those dangerous Clocks.";
			close;
		case 2:
			next;
			mes "[Bell Keeper]";
			mes "Have you ever heard of the";
			mes "Committee of 'Heaven on Earth'?";
			switch(select("Yup, I have.","What are they?")) {
				case 1:
					next;
					mes "[Bell Keeper]";
					mes "Muhahahaha!";
					mes "Good, good. I'm glad to hear that";
					mes "our reputation precedes us!";
					next;
					mes "[Bell Keeper]";
					mes "Hmmm... I suppose it would be";
					mes "useful for an adventurer like";
					mes "yourself to know that there's";
					mes "something special in the control";
					mes "room on the 4th floor of this Clock";
					mes "Tower.";
					next;
					mes "[Bell Keeper]";
					mes "Of course, you'll have to be pretty";
					mes "strong in order to be able to";
					mes "defend yourself against the";
					mes "monsters in that area. Pretty";
					mes "strong, indeed...";
					close;
				case 2:
					next;
					mes "[Bell Keeper]";
					mes "Ouch! I didn't expect too many";
					mes "people to still be unaware of our";
					mes "Committee.";
					next;
					mes "[Bell Keeper]";
					mes "In any case, we are trying to build";
					mes "a Heaven on Earth, especially in";
					mes "this place, Al De Baran. For this";
					mes "reason, we've built this Clock";
					mes "Tower.";
					next;
					mes "[Bell Keeper]";
					mes "Our Committee was also responsible";
					mes "for drawing up the plans for Glast";
					mes "Heim long ago. You can see our";
					mes "achievements in many places.";
					close;
			}
		case 3:
			close;
	}
}

//<=================================================== Kafra Corp. Headquarters ==========================================================>\\
// Kafra Jasmine  -------------------------
aldeba_in,24,245,4	script	 Kafra Jasmine	115,{
	cutin "kafra_03",2;
	mes "[Kafra Jasmine]";
	mes "Hi~ I am Kafra type Jasmine.  Thank you for coming all the way to the Kafra Main Office here in Al De Baran!";
	next;
	mes "[Kafra Jasmine]";
	mes "Our Kafra Service is always working with our customers!";
	mes "Our Kafra Service has a history and legacy that is 5 thousand, 8 hundred years old...";
	mes "Blah-blah-blah.....";
	next;
	menu "FIVE THOUSAND YEARS?!",-, "Ahh~ Shut Up!",M_1, "You got a boyfriend?",M_2;
	
		mes "[Kafra Jasmine]";
		mes "HEY! Just SHUT-UP and LISTEN! It took me a whole week to memorize this!";
		mes "I've got a poor memory unlike the other Kafra agents!";
		emotion e_an;
		next;
		mes "[Kafra Jasmine]";
		mes "..... Eh!... heh... heh... um...";
		emotion e_swt2;
		next;
		mes "[Kafra Jasmine]";
		mes "I'm verrrryyy sorry about that... I didn't mean to startle you... you see....";
		next;
		mes "[Kafra Jasmine]";
		mes "That... that... that was just an act.... YEAH! An act I put on for the customers. Heh.. heh....";
		emotion e_swt;
		cutin "",255;
		close;
	M_1:
		mes "[Kafra Jasmine]";
		mes ". . . . .";
		emotion e_an;
		next;
		mes "[Kafra Jasmine]";
		mes "Just so you know, I was a member of Kafra Garrison before I joined the Kafra Service Team.";
		mes "My specialty was 'Bash'!! Now I'm trying to be more feminine and live a quieter life";
		next;
		mes "[Kafra Jasmine]";
		mes "So please, DON'T TEMPT ME...!!";
		emotion e_pif;
		cutin "",255;
		close;
	M_2:
		mes "[Kafra Jasmine]";
		mes "I'm flattered but, Kafra Services has a ridiculous rule that no employee can have a boyfriend....";
		next;
		mes "[Kafra Jasmine]";
		mes "Just kidding~~ Tehehe";
		emotion e_heh;
		cutin "",255;
		close;
}

// Special Reserve ----------------------------------------------
aldeba_in,79,161,6	script	Kafra#04	115,{
	cutin "kafra_03",2;
	mes "[Kafra]";
	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 "[Kafra]";
	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 "[Kafra]";
	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 "[Kafra]";
		mes "Here you are.";
		getitem 516, 7;
		set RESRVPTS, RESRVPTS - 100;
		close;
	M_1b:
		if(RESRVPTS < 200) goto sL_LowPts1;
		mes "[Kafra]";
		mes "Here you are.";
		getitem 516, 15;
		set RESRVPTS, RESRVPTS - 200;
		close;
	M_1c:
		if(RESRVPTS < 300) goto sL_LowPts1;
		mes "[Kafra]";
		mes "Here you are.";
		getitem 516, 25;
		set RESRVPTS, RESRVPTS - 300;
		close;
	M_1d:
		if(RESRVPTS < 400) goto sL_LowPts1;
		mes "[Kafra]";
		mes "Here you are.";
		getitem 516, 35;
		set RESRVPTS, RESRVPTS - 400;
		close;
	M_1e:
		if(RESRVPTS < 500) goto sL_LowPts1;
		mes "[Kafra]";
		mes "Here you are.";
		getitem 516, 50;
		set RESRVPTS, RESRVPTS - 500;
		close;
	M_1f:
		if(RESRVPTS < 600) goto sL_LowPts1;
		mes "[Kafra]";
		mes "Here you are.";
		getitem 516, 60;
		set RESRVPTS, RESRVPTS - 600;
		close;
	M_1g:
		if(RESRVPTS < 700) goto sL_LowPts1;
		mes "[Kafra]";
		mes "Here you are.";
		getitem 516, 75;
		set RESRVPTS, RESRVPTS - 700;
		close;
	M_1h:
		if(RESRVPTS < 800) goto sL_LowPts1;
		mes "[Kafra]";
		mes "Here you are.";
		getitem 516, 85;
		set RESRVPTS, RESRVPTS - 800;
		close;
	M_1i:
		if(RESRVPTS < 900) goto sL_LowPts1;
		mes "[Kafra]";
		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 "[Kafra]";
		mes "^0000FF1st Lottery Opportunity!!^000000";
		set @Lotto, 1;
		next;
		callfunc "F_Lottery";
		goto M_End;

	sL_LowPts1:
		mes "[Kafra]";
		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 "[Kafra]";
			mes "Here you are.";
			getitem 501, 7;
			set RESRVPTS, RESRVPTS - 1100;
			close;
		M_2b:
			if(RESRVPTS < 1300) goto sL_LowPts2;
			mes "[Kafra]";
			mes "Here you are.";
			getitem 501, 15;
			set RESRVPTS, RESRVPTS - 1300;
			close;
		M_2c:
			if(RESRVPTS < 1500) goto sL_LowPts2;
			mes "[Kafra]";
			mes "Here you are.";
			getitem 501, 25;
			set RESRVPTS, RESRVPTS - 1500;
			close;
		M_2d:
			if(RESRVPTS < 1700) goto sL_LowPts2;
			mes "[Kafra]";
			mes "Here you are.";
			getitem 501, 35;
			set RESRVPTS, RESRVPTS - 1700;
			close;
		M_2e:
			if(RESRVPTS < 1900) goto sL_LowPts2;
			mes "[Kafra]";
			mes "Here you are.";
			getitem 501, 50;
			set RESRVPTS, RESRVPTS - 1900;
			close;
		M_2f:
			if(RESRVPTS < 2100) goto sL_LowPts2;
			mes "[Kafra]";
			mes "Here you are.";
			getitem 501, 60;
			set RESRVPTS, RESRVPTS - 2100;
			close;
		M_2g:
			if(RESRVPTS < 2300) goto sL_LowPts2;
			mes "[Kafra]";
			mes "Here you are.";
			getitem 501, 75;
			set RESRVPTS, RESRVPTS - 2300;
			close;
		M_2h:
			if(RESRVPTS < 2500) goto sL_LowPts2;
			mes "[Kafra]";
			mes "Here you are.";
			getitem 501, 85;
			set RESRVPTS, RESRVPTS - 2500;
			close;
		M_2i:
			if(RESRVPTS < 2800) goto sL_LowPts2;
			mes "[Kafra]";
			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 "[Kafra]";
			mes "^0000FF2nd Lottery Opportunity!!^000000";
			set @Lotto, 2;
			next;
			callfunc "F_Lottery";
			goto M_End;

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

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

// Special Reserve 2 ----------------------------------------------
aldeba_in,88,161,3	script	Kafra#05	115,{
	cutin "kafra_03",2;
	mes "[Kafra]";
	mes "Welcome ^5577FF"+strcharinfo(0)+"^000000.  We are currently having a special event for our customers.";
	mes "You can get free gifts by using your ^FF5533special reserve points^000000 in the ^3355FFSpecial Kafra Gift Event^000000!!";
	next;
	mes "[Kafra]";
	mes "Would you like to use your points?";
	next;
	menu "Yes I would.",-, "Maybe next time.",M_End;

		mes "[Kafra]";
		mes "You have the following amount of special reserve points: ^5544FF"+RESRVPTS+"^000000.";
		mes "Make a choice and test your luck!";
		next;
		menu "5000pts = 1st Lottery Chance!",sM_1st, "7000pts = 2nd Lottery Chance!",sM_2nd, "10000pts = 3rd Lottery Chance!",sM_3rd, "Cancel",M_End; 

		sM_1st:
			if(RESRVPTS < 5000) goto sL_NotEnuf;
			set RESRVPTS, RESRVPTS - 5000;
			set @Lotto, 3;
			callfunc "F_Lottery";
			goto M_End;
		sM_2nd:
			if(RESRVPTS < 7000) goto sL_NotEnuf;
			set RESRVPTS, RESRVPTS - 7000;
			set @Lotto, 4;
			callfunc "F_Lottery";
			goto M_End;
		sM_3rd:
			if(RESRVPTS < 10000) goto sL_NotEnuf;
			set RESRVPTS, RESRVPTS - 10000;
			set @Lotto, 5;
			callfunc "F_Lottery";
			goto M_End;

			sL_NotEnuf:
				mes "[Kafra]";
				mes "I'm sorry dear but you do not have enough points for this selection.";
				cutin "",255;
				close;
	M_End:
		mes "[Kafra]";
		mes "No problem.  Collect more and more special reserve points by using the Kafra Services found throughout Rune Midgard.";
		mes "Thank you for using Kafra Corp. services.";
		cutin "",255;
		close;
}

// Function F_Lottery ------------------------------------------------------------------------------------------
function	script	F_Lottery	{
	mes "[Kafra]";
	mes "You have the unique opportunity to win a prize sent down from the heavens themselves!!";
	next;
	mes "[Kafra]";
	mes "Don't miss this one and only chance! Now dear, are you ready?";
	next;
	mes "[Kafra]";
	mes "How many times do you want the Lottery Machine to spin? You can choose up to 5 times.";
	next;
	input @input;
	if(@input < 1 || @input > 5) set @input, rand(1,5); //Lupus's fix
	callsub sF_Spin;
	mes "[Kafra]";
	mes "Ok~ Let me check the results~ guess what it is?";
	next;
	mes "[Kafra]";
	mes "^FF0000Lets see.... This is...!!^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 "[Kafra]";
		mes "WOW!!!!..... You win!!! 1st Prize~! Congratulations~~ You got the 1st prize~~";
		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 "[Kafra]";
		mes "Oh! WOW! You've won the 2nd prize! Congratulations!!";
		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 "[Kafra]";
		mes "Congratulations! You've won the 3rd prize.";
		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 "[Kafra]";
		mes "You've won the 4th prize.";
		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 "[Kafra]";
		mes "You've won the 5th prize.";
		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 "[Lottery Machine]";
	mes "Number of spins remaining: "+@input;
	next;
	mes "[Lottery Machine]";
	mes "(rumble~rumble~rumble~)...";
	next;
	set @temp, rand(10);
	set @input, @input -1;
	if(@input <= 0) return;
	goto sF_Spin;
}


// Kafra Pavianne -----------------------------
aldeba_in,81,166,4	script	Kafra Pavianne	117,{
	cutin "kafra_01",2;
	mes "[Kafra Pavianne]";
	mes "Welcome! I'm Pavianne,";
	mes "one of the senior Kafra Employees.";
	mes "The Kafra Corporation Service is";
	mes "always trying to satisfy 100 % of";
	mes "our customers' expectations.";
	next;
	mes "[Kafra Pavianne]";
	mes "Due to a change in customer support";
	mes "policy, we no longer accept Kafra";
	mes "Passes. However, we are offering";
	mes "refunds for our customers who still";
	mes "possess these passes.";
	next;
	menu "Sell Kafra Pass",-,"Alright, bye~",M_BYE;

		set usedKafPass,0; //clear unused global variable
		mes "[Kafra Pavianne]";	
		if(!countitem(1084)){
			mes "I'm sorry,";
			mes "but you don't";
			mes "have any Kafra Passes.";
			emotion e_sry;
			close2;
			cutin "",255;
			end;
		}
		mes "Let me see ... You have " + countitem(1084) + " Kafra Passes.";
		mes "So, you will get " + (countitem(1084)*2000) + " zeny.";
		next;
		mes "[Kafra Pavianne]";
		mes "Do you want to sell these?";
		next;
		if(select("Sell.:Nevermind.")==1){
			mes "[Kafra Pavianne]";
			set @t,countitem(1084);
			if(!@t){
				mes "Well, you DON'T have any >.<";
                    		mes "I understand what you want to do but, I can't help you.";
				emotion e_sry;
				close2;
				cutin "",255;
				end;
			}
			delitem 1084,@t;
			set Zeny,Zeny+@t*2000;
			emotion e_thx;
			mes "We already refunded all THE Kafra Passes that you had..";
			mes "Thank you for using our service !";
			mes "I am kafra Pavianne.";

		}
		close2;
		cutin "",255;
		end;
	M_BYE:
		mes "[Kafra Pavianne]";
		mes "Thank you,";
		mes "have a good day.";
		emotion e_thx;
		close2;
		cutin "",255;
		end;
}

// Kafra Blossom -----------------------------------
aldeba_in,83,244,4	script	Kafra Blossom	116,{
	cutin "kafra_02",2;
	mes "[Kafra Blossom]";
	mes "..... Pavianne is soooo old school! She's too stubborn is what it is...";
	emotion e_pif;
	next;
	mes "[Kafra Blossom]";
	mes "We should be trying to make our customers' experience more unique, with new and creative ideas...";
	next;
	mes "[Kafra Blossom]";
	mes "Anyways... WEELLLLCOOMMME!!!~~ I am Kafra type ^3333ffBlossom^000000.";
	mes "Please don't forget to continue using our Kafra Services, and ask for me, ^3333ffBlossom^000000!";
	next;
	menu "I'm an admirer of you~!",-,"Ehhaha",M_1;
	
		mes "[Kafra Blossom]";
		mes "Really! Thank you sooo much!! Here is... my... autograph...";
		emotion e_thx;
		next;
		mes "[Kafra Blossom]";
		mes "Don't bother to look in your Item Inventory for it.  It won't be there... tehehe... for my autograph will remain within your heart.";
		emotion e_ok;
		cutin "",255;
		close;
	M_1:
		mes "[Kafra Blossom]";
		mes "Huh? . . . . . That's all? Phew~ such a dull customer...";
		emotion e_what;
		cutin "",255;
		close;
}

// Kafra Curly Sue ---------------------------------
aldeba_in,91,244,4	script	Kafra Curly Sue	112,{
	cutin "kafra_06",2;
	mes "[Kafra Curly Sue]";
	mes "Hello, hello! I'm the youngest of all Kafra personnel, the Kafra cutey....";
	next;
	mes "[Kafra Curly Sue]";
	mes "I am Kafra Type 'Curly Sue'!!";
	next;
	mes "[Kafra Curly Sue]";
	mes "I'm rather new so haven't been on the job all that long, but I am always doing my best!!";
	next;
	menu "Uh... where is your mommy?",-,"End conversation",M_End;
	
		mes "[Kafra Curly Sue]";
		mes ".... Sob~sob~... WHAT?? I'm NOT some KID!!";
		emotion e_sob;
		next;
		cutin "",255;
		close;
	M_End:
		mes "[Kafra Curly Sue]";
		mes "Here at Kafra Corp., we're all doing our B-E-S-T to provide our customers with the B-E-S-T service.";
		mes "We really appreciate your doing business with us.";
		next;
		cutin "",255;
		close;
}

// Kafra Roxie --------------------------------------
aldeba_in,148,244,4	script	Kafra Roxie	114,{
	cutin "kafra_04",2;
	mes "[Kafra Roxie]";
	mes "Welcome! I'm Kafra type 'Roxie'.  Let me let you in on a special secret about the Kafras!";
	next;
	mes "[Kafra Roxie]";
	mes "You know... Our Kafra Service wasn't originally called Kafra.... Well what do you think it was?~";
	next;
	mes "[Kafra Roxie]";
	mes "TaDa~ Surprisingly it was.... Ka....";
	next;
	mes "[Kafra Roxie]";
	mes "(Ring Ring Ring) Oh... my phone... Sorry please wait...";
	next;
	mes "[Kafra Roxie]";
	mes "Hi, Kafra Type Roxie here.... Huh! Director, sir!... Yes!... Yes!... I understand! ..... Sure!... Ah... Huh?!";
	next;
	mes "[Kafra Roxie]";
	mes "No-no sir!.... Yes I understand!!";
	next;
	mes "[Kafra Roxie]";
	mes "(*Click*) ..... Heh heh....";
	next;
	mes "[Kafra Roxie]";
	mes "Uh... please ignore what I was talking about earlier. Hahaha.....heh...";
	emotion e_swt;
	cutin "",255;
	close;
}


//<====================================================== Clock Tower ==============================================================>\\
// Clock Keeper ---------------------------------------------------------------
aldebaran,143,136,4	script	Clock Keeper	89,{
	mes "[Clock Keeper]";
	mes "Let me introduce myself, I am 'Monster A' of the Al De Baran Clock Tower, and the Committee of 'Heaven on Earth'.";
	next;
	mes "[Clock Keeper]";
	mes "It looks like you have an interest in this tower?";
	next;
	menu "About the Clock Tower.",-,"About the Committee of 'Heaven on Earth'.",M_1,"Quit.",M_End;
	
		mes "[Clock Keeper]";
		mes "Each floor of this tower is connected through a device called a 'Warp'.";
		mes "Most of these warps are standard warps but some of them are 'Random Warps'.";
		next;
		mes "[Clock Keeper]";
		mes "You should be careful with 'Random Warps' because they will transport you to a random location.";
		next;
		mes "[Clock Keeper]";
		mes "I know you wouldn't want to get separated from you friends while you're battling monsters.";
		next;
		mes "[Clock Keeper]";
		mes "Random warps are shown as green dots on the Mini-Map so keep your eyes on the Mini-Map to avoid them.";
		next;
		mes "[Clock Keeper]";
		mes "Have a good time with the clocks.  Hehehehe.";
		close;
	M_1:
		mes "[Clock Keeper]";
		mes "Have you ever heard of the Committee of 'Heaven on Earth'?!";
		next;
		menu "Yup, I have",-,"What are they?",sM_1;
		
			mes "[Clock Keeper]";
			mes "Muhahahaha! Good, good!  I'm so glad that our reputation has spread throughout Rune-Midgard.";
			mes "What a great day to meet an adventurer like you! I would like to present this to you.....";
			next;
			mes "[Clock Keeper]";
			mes "Hmmm... Where did I leave it...";
			next;
			mes "[Clock Keeper]";
			mes "Oops... it seems that I left the present in the control room on the 4th floor of the tower.";
			mes "I promise I will give it to you next time. See you later.";
			close;
		sM_1:
			mes "[Clock Keeper]";
			mes "What? I can't believe that there are still people who do not know about us!";
			next;
			mes "[Clock Keeper]";
			mes "Our goal is to build a Heaven on Earth.  Specifically here in AL De Baran.  For starters, we built this clock tower.";
			next;
			mes "[Clock Keeper]";
			mes "We even created the idea for Glast Helm a while back.";
			mes "Look around and you will see many of our great achievements.";
			close;
	M_End:
		close;
}

// Gatekeeper Riku -------------------------------------------------------------------
c_tower3,10,249,4	script	Gatekeeper#01	84,{
	mes "[Gatekeeper Riku]";
	mes "Welcome to ";
	mes "Kinase - Blue Gallino";
	mes "the one of Local Speciality in Aldebaran.";
	mes "However,from the 4th Floor of this Clock Tower,";
	mes "You may not enter.";
	mes "Please go back to where you're from.";
	next;
	menu "About Clock Tower",-,"About the 4th Floor",M_1,"Move to the 4th Floor",M_2,"End mesue",M_End;

		mes "[Gatekeeper Riku]";
		mes "Homeland of Alchemy, Aldebaran!";
		mes "Long Time ago, there were";
		mes "3 Legendary Alchemists...They are";
		mes "Bruke Seimer,";
		mes "Philip Warisez,";
		mes "And..";
		next;
		mes "[Gatekeeper Riku]";
		mes "Romero Specialre!";
		mes "This venerable architecture is their masterpiece.";
		mes "I assume you would feel something unusual";
		mes "While on the way to this floor,";
		mes "Every feature of This Clock tower ";
		next;
		mes "[Gatekeeper Riku]";
		mes "Consists of Mysterious Ancient Magics.";
		mes "If you just wander around here without any intention";
		next;
		mes "[Gatekeeper Riku]";
		mes "By any means,";
		mes "You will meet with a mishap";
		mes "by Gatekeeper Creatures.";
		mes "Please be careful ..";
		close;
	M_1:
		mes "[Gatekeeper Riku]";
		mes "Ancient Alchemists";
		mes "Sealed the Gate of 4th Floor using an Alchemistic Device ";
		mes "To keep something";
		mes "From Evil Creatures and Human Enemies.";
		mes "To go through this door";
		next;
		mes "[Gatekeeper Riku]";
		mes "It needs a Key.";
		mes "That Key has rumored to be possessed by Gatekeeper Creatures";
		mes "Prowling around here.";
		next;
		mes "[Gatekeeper Riku]";
		mes "The Key is the Intensiveness of Ancient Alchemy,";
		mes "By hearsay When used once,";
		mes "It will be released from being spelled";
		mes "And be disappeared.";
		next;
		mes "[Gatekeeper Riku]";
		mes "If that key comes into your possession, please show it to me.";
		mes "The one who possesses the Key of Clock Tower";
		mes "Will have access to go through this Gate with his own will!";
		next;
		mes "[Gatekeeper Riku]";
		mes "I will give you a chance.";
		mes ". . . . .";
		close;
	M_2:
		mes "[Gatekeeper Riku]";
		if(countitem(7026) < 1) goto L_Check_Key;
		delitem 7026,1;
		mes "Hmm! I already felt that you are not an Ordinary person,";
		mes "Now it seems to be successful in Speculation.";
		mes "Please, You may enter.";
		mes "May God bless you ..";
		next;
		warp "c_tower4",185,44;
		close;

		L_Check_Key:
			mes ". . . . . .";
			mes "Unfortunately you don't have a privilege";
			mes "To enter this Gate ..";
			mes "You won't be able to go through";
			mes "As long as Ancient Alchemists";
			mes " Don't approve you.";
			close;
	M_End:
		mes "[Gatekeeper Riku]";
		mes "This Clock Tower";
		mes "Is the place where the 3 Ancient Legendary Alchemists";
		mes "Have left their Spirits and Skills.";
		mes "Please Do not Scribble or Damage on the Interior.";
		close;
}

//<======================================== Al De Baran Dungeon ==========================================>\\
alde_dun03,264,16,4	script	Gatekeeper#02	101,{
	mes "[Gatekeeper Boy]";
	mes "Welcome to";
	mes "Kinase - Blue Gallino";
	mes "The one of Local Speciality in Aldebaran.";
	mes "You can't go through from B4th Floor,";
	mes "Please go back.";
	next;
	menu "About Clock Tower",-,"About B4th Floor",M_1,"Move to the B4th Floor",M_2,"End mesue",M_End;

		mes "[Gatekeeper Boy]";
		mes "Homeland of Alchemy, Aldebaran!";
		mes "Long Time ago, there were";
		mes "3 Legendary Alchemists... They are";
		mes "Bruke Seimer";
		mes "Philip Warisez";
		mes "And ..";
		next;
		mes "[Gatekeeper Boy]";
		mes "Romero Specialre!";
		mes "This venerable architecture is";
		mes "their masterpiece.";
		mes "I assume you would feel something unusual";
		mes "While on the way to this floor,";
		mes "Every feature of This Clock tower";
		next;
		mes "[Gatekeeper Boy]";
		mes "Consists of Mysterious Ancient Magics.";
		mes "If you just wander around here,";
		mes " without any intention";
		next;
		mes "[Gatekeeper Boy]";
		mes "By any means,";
		mes "You will meet with a mishap";
		mes "by Gatekeeper Creatures.";
		mes "Please be careful ..";
		close;
	M_1:
		mes "[Gatekeeper Boy]";
		mes "Ancient Alchemists";
		mes "Sealed the Gate of 4th Floor using an Alchemistic Device ";
		mes "To keep something";
		mes "From Evil Creatures and Human Enemies.";
		mes "To go through this door";
		next;
		mes "[Gatekeeper Boy]";
		mes "It needs a Key.";
		mes "That Key has rumored to be possessed by Gatekeeper Creatures";
		mes "Prowling around here.";
		next;
		mes "[Gatekeeper Boy]";
		mes "The Key is the Intensiveness of Ancient Alchemy,";
		mes "By hearsay When used once,";
		mes "It will be released from being spelled";
		mes "And be disappeared.";
		next;
		mes "[Gatekeeper Boy]";
		mes "If that key comes into your possession, please show it to me.";
		mes "The one who possesses the Key of Underground";
		mes "Will have access to go through this Gate with his own will!";
		next;
		mes "[Gatekeeper Boy]";
		mes "I will give you a chance.";
		mes ". . . . .";
		close;
	M_2:
		mes "[Gatekeeper Boy]";
		if(countitem(7027) < 1) goto L_Check_Key;
		delitem 7027,1;
		mes "Hmm! I already felt that you are not an Ordinary person,";
		mes "Now it seems to be successful in Speculation.";
		mes "Please,You may enter.";
		mes "May God bless you ..";
		next;
		warp "alde_dun04",79,267;
		close;

		L_Check_Key:
			mes ". . . . . .";
			mes "Unfortunately you don't have a privilege";
			mes "To enter this Gate ..";
			mes "You won't be able to go through";
			mes "As long as Ancient Alchemists";
			mes " Don't grant you.";
			close;
	M_End:
		mes "[Gatekeeper Boy]";
		mes "This Clock Tower";
		mes "Is the place where the 3 Ancient Legendary Alchemists";
		mes "Has left their Spirits and Skills.";
		mes "Please Do not Scribble or Damage on the Interior.";
		close;
}
