//===== eAthena Script ======================================= 
//= Veins Quests
//===== By: ================================================== 
//= L0ne_W0lf
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= eAthena SVN
//===== Description: ========================================= 
//= [Aegis Conversion]
//= Collection of Veins Quests 
//= Stone Quest:
//= - Help an Old Man with his job.
//= - Dialog obtained from iRO.
//= - Variable in use: veins_stone (max 8)
//===== Additional Comments: ================================= 
//= 1.0 First version, Added Veins Stone quest. [L0ne_W0lf]
//============================================================ 

ve_fild05,257,130,4	script	Wincing Old Man#ve	945,{
	//if (max_max_c1 == 1) {
	//	mes "- Wait a moment! -";
	//	mes "- Currently you are carrying -";
	//	mes "- too many items with you. -";
	//	mes "- Please come back after -";
	//	mes "- you put some items into Kafra Storage. -";
	//	close;
	//}
	if ((MaxWeight - Weight) < 2000) {
		mes "- Wait a moment! -";
		mes "- Currently you are carrying -";
		mes "- too many items with you. -";
		mes "- Please come back after -";
		mes "- you put some items into Kafra Storage. -";
		close;
	}
	if ((veins_stone == 0) && (BaseLevel > 59)) {
		mes "[Zabaroo]";
		mes "My back is killing me";
		mes "after stooping over to";
		mes "pick up stones all day long...";
		mes "The pain... It's unbearable!";
		next;
		switch(select("Bend with your knees, yo.:Gosh, how bad is it?")) {
		case 1:
			mes "[Zabaroo]";
			mes "Whippersnapper!";
			mes "I didn't ask you for";
			mes "your advice! Don't";
			mes "patronize an old man!";
			close;
		case 2:
			mes "[Zabaroo]";
			mes "Oh, it hurts so much, it's";
			mes "almost crippling. But I don't";
			mes "have any choice. I need to";
			mes "get enough stops to fill";
			mes "this gap if I want to get";
			mes "paid. Arrrrgh, damn it!";
			next;
			mes "[Zabaroo]";
			mes "If I don't get enough";
			mes "money to pay for my";
			mes "granddaughter's medicine,";
			mes "I won't be able to buy any";
			mes "medicine for my granddaughter!";
			mes "And that will be horrible! Ag!";
			next;
			select("Can I help?");
			mes "[Zabaroo]";
			mes "I appreciate your kindness,";
			mes "stranger, but no. I have";
			mes "to do this on my own.";
			mes "A man must have his pride....";
			next;
			mes "^333333*Snap*^000000";
			next;
			mes "[Zabaroo]";
			mes "Argh! My back...!";
			mes "This was totally";
			mes "unforeseeable!";
			mes "Please! Please,";
			mes "for the love of Freya,";
			mes "please help me!";
			next;
			select("I will help you.");
			mes "[Zabaroo]";
			mes "Thank you!";
			mes "Thanks so much!";
			next;
			select("What do you want me to do?");
			mes "[Zabaroo]";
			mes "Ow-ow-ow! Oh... Okay...";
			mes "You see those all dark";
			mes "stones stuck in the ground?";
			mes "Those are what I need to";
			mes "pick up. Now don't go";
			mes "lifting rocks just yet...";
			next;
			mes "[Zabaroo]";
			mes "I asked some other old";
			mes "man in town, Absar, to";
			mes "make me something to help";
			mes "with my back. He was going";
			mes "to help me if I gave hi--";
			mes "ARGH! My back! It hurts!";
			next;
			mes "[Zabaroo]";
			mes "It hurts so bad! But it's";
			mes "especially painful right";
			mes "when I'm about to finish";
			mes "sentences in which I intend to";
			mes "tell you important informat--";
			mes "ARRRGH! Find Absar! Quickly!";
			next;
			while(1) {
				mes "[Zabaroo]";
				mes "Wait, wait...";
				mes "Maybe I can answer";
				mes "a few of your questions";
				mes "before my body is wracked";
				mes "with throbbing pain. Let's...";
				mes "Let's at least give it a try.";
				next;
				switch(select("What's with these stones?:Where's the old man?:Nothing.")) {
				case 1:
					mes "[Zabaroo]";
					mes "Well, we use these dark";
					mes "stones because they're";
					mes "pretty and easy to process.";
					mes "They're sort of a specialty";
					mes "of this town. I get paid to";
					mes "harvest these handy rocks.";
					next;
					mes "[Zabaroo]";
					mes "We can sell these to tourists,";
					mes "and we even have a factory";
					mes "that uses these stones.";
					mes "Still, it's not like the";
					mes "townspeople are getting";
					mes "rich off these stones.";
					next;
					mes "[Zabaroo]";
					mes "All of us are still";
					mes "barely making a living...";
					next;
					break;
				case 2:
					mes "[Zabaroo]";
					mes "Absar? He's inside";
					mes "the Tool Shop. You";
					mes "can't miss him... Just";
					mes "look for the man with";
					mes "the crazy eyes!";
					next;
					break;
				case 3:
					mes "[Zabaroo]";
					mes "Thanks for your help.";
					mes "If you can't find Absar";
					mes "in the Tool Shop, then";
					mes "you might want to stop";
					mes "by the Tavern. A-auuugh!";
					set veins_stone,1;
					close;
				}
			}
		}
	}
	else if (veins_stone == 1) {
		mes "[Zabaroo]";
		mes "Thanks for your help.";
		mes "If you can't find Absar";
		mes "in the Tool Shop, then";
		mes "you might want to stop";
		mes "by the Tavern. A-auuugh!";
		close;
	}
	else if (veins_stone < 4) {
		mes "[Zabaroo]";
		mes "Geez, Absar sure can";
		mes "be fussy. Still, do your";
		mes "best to get what he wants.";
		mes "He won't help me otherwise!";
		mes "Other than that, he's not";
		mes "really that bad a guy...";
		close;
	}
	else if (veins_stone == 4) {
		mes "[Zabaroo]";
		mes "Oh good, you're back!";
		mes "Did you bring what";
		mes "Absar made for me?";
		next;
		select("Yes, here...");
		mes "[Zabaroo]";
		mes "So this is what he";
		mes "was talking about?";
		mes "How does it... Ah!";
		mes "Here we go! If I pull";
		mes "the handle, that end of";
		mes "the stick will pick stuff up!";
		next;
		mes "[Zabaroo]";
		mes "This is great! I won't";
		mes "have to bend over to pick";
		mes "up stones anymore! Heh,";
		mes "he must be awfully proud";
		mes "of this useful invention~";
		mes "I can imagine him strutting.";
		next;
		mes "[Zabaroo]";
		mes "Um, did he have anything";
		mes "to say after he gave this";
		mes "to you? I'm just curious.";
		next;
		select("This message...");
		mes "[Zabaroo]";
		mes "Oh... I thought he";
		mes "would forget all about";
		mes "that. Well, it's a relief";
		mes "to know that now. That's";
		mes "really very nice of him.";
		next;
		mes "Zabaroo]";
		mes "I hate to ask you...";
		mes "But would you mind";
		mes "helping me out one";
		mes "more time?";
		next;
		select("Huh? What is it?");
		mes "[Zabaroo]";
		mes "Don't worry, it's not";
		mes "too hard. Would you just";
		mes "deliver the stones I gathered";
		mes "to the factory in town? It's";
		mes "near the airport or airship or";
		mes "something. It won't take long.";
		set veins_stone,5;
		close;
	}
	else if (veins_stone < 7) {
		mes "[Zabaroo]";
		mes "Thanks again for your help!";
		mes "What did Asbar call this";
		mes "thing again? A Tactile...";
		mes "Extendable... Damn it...";
		mes "Why's the name so long?";
		mes "Anyway, it's usefull~";
		close;
	}
	else if (veins_stone == 7) {
		mes "[Zabaroo]";
		mes "Oh, you're back!";
		mes "I really appreciate all";
		mes "of your help. I don't have";
		mes "much, and I know you weren't";
		mes "expecting a reward, but I'd";
		mes "like to give you something.";
		next;
		mes "[Zabaroo]";
		mes "Ah, here we are. I found";
		mes "these while harvesting stones";
		mes "I was told that adventurers";
		mes "find these useful. Anyway,";
		mes "I hope you like these rocks...";
		set veins_stone,8;
		getexp 300000,0;
		getitem 985,3; //Elunium
		close;
	}
	else if (veins_stone > 7) {
		mes "[Zabaroo]";
		mes "Thanks to you and Asbar,";
		mes "my poor back hasn't been";
		mes "bothering me at all lately.";
		mes "I should be taking better";
		mes "care of myself at my age...";
		close;
	}
	mes "[Zabaroo]";
	mes "I'm sorry dear.";
	mes "You're not strong enough for this kind of work.";
	mes "Put on some muscle and talk to me again.";
	close;
}

ve_in,169,310,6	script	Strange Old Man#ve	121,{
	if (veins_stone == 0) {
		mes "[Absar]";
		mes "Bwahahaha!";
		mes "Once... Once this is completed, I'll...";
		mes "Mwahahahahahahahah!";
		close;
	}
	else if (veins_stone == 1) {
		mes "[Absar]";
		mes "I'm so close to";
		mes "completion. Now, if";
		mes "I just turn this here...";
		next;
		if (select("Excuse me...:........") == 1) {
			mes "[Absar]";
			mes "What?! Who dares";
			mes "disturb me?! N-no!";
			mes "Look! Look what you did!";
			mes "You made me screw up!";
			next;
			specialeffect 90; //EF_LORD
			percentheal 30,0;
			next;
			mes "[Absar]";
			mes "!@#$%#@#$!*~";
			mes "F$#@#%^^^&&!";
			close2;
			warp "ve_in",262,309;
			end;
		}
		mes "[Absar]";
		mes "Oh, no...";
		next;
		specialeffect 86; //"Strange Old Man#ve" EF_ASPERSIO
		next;
		mes "[Absar]";
		mes "How...?!";
		mes "No! I failed again!";
		mes "D-DAAAAAAAAAAAMN IIIII--";
		next;
		mes "[Absar]";
		mes "Huh? What are you...";
		mes "What do you want?";
		next;
		select("Oh, I-I'm...");
		mes "[Absar]";
		mes "Spit it out. Tell me";
		mes "what you want, not your";
		mes "name. Hurry, can't you";
		mes "see that I'm busy?";
		next;
		if (select("I... I'm sorry.:I'm here for Mr. Zabaroo...") == 1) {
			mes "[Absar]";
			mes "If only you didn't";
			mes "interrupt me! Then";
			mes "I'd already have...";
			mes "Ugh! Back to work!";
			close;
		}
		mes "[Absar]";
		mes "Zabaroo? What does...";
		mes "Oh. Never mind. I think";
		mes "I remember what he asked";
		mes "me to make him. So did";
		mes "you bring all the materials?";
		next;
		if (select("Yes:What materials...?") == 1) {
			mes "[Absar]";
			mes "Great, we can get";
			mes "started and m--";
			mes "Liar. You don't even know";
			mes "what you're supposed to";
			mes "bring me, do you?!";
			mes "Get out of here!";
			close2;
			warp "ve_in",262,309;
			end;
		}
		mes "[Absar]";
		mes "Of course. I didn't tell him";
		mes "what materials I needed";
		mes "anyway. Heh heh! Now, this";
		mes "is what I need you to bring.";
		mes "Listen up, okay? And hurry.";
		next;
		mes "[Absar]";
		mes "^4D4DFF5 Maneater Roots^000000,";
		mes "^4D4DFF2 Glacial Hearts^000000, and";
		mes "^4D4DFF5 Steel^000000. If you don't";
		mes "come back soon, then";
		mes "I won't help you. I've got";
		mes "projects I'm working on!";
		set veins_stone,2;
		close;
	}
	else if (veins_stone == 2) {
		if (countitem(999) > 4 && 7561 > 1 && countitem(1033) > 4) {
			mes "[Absar]";
			mes "Good, you finally";
			mes "brought everthing.";
			mes "I was just about to";
			mes "give up on you, so";
			mes "consider yourself lucky!";
			next;
			mes "[Absar]";
			mes "Give me a second.";
			mes "You won't have to";
			mes "wait long to see";
			mes "my great invention!";
			delitem 999,5; //Steel
			delitem 1033,5; //Root_Of_Maneater
			delitem 7561,2; //Ice_Heart
			set veins_stone,3;
			close2;
			specialeffect 50; //"Strange Old Man#ve" EF_FIRESPLASHHIT
			end;
		}
		mes "[Absar]";
		mes "What the hell?";
		mes "Hurry and bring";
		mes "^4D4DFF5 Maneater Roots^000000,";
		mes "^4D4DFF2 Glacial Hearts^000000, and";
		mes "^4D4DFF5 Steel^000000! Do you think";
		mes "I'm doing this for fun?!";
		close;
	}
	else if (veins_stone == 3) {
		mes "[Absar]";
		mes "Here you are...";
		mes "Well, I don't know";
		mes "if you appreciate";
		mes "inventions, but this";
		mes "is a Tactile Extendable";
		mes "Clamp-Release Mechanism!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Tack... What...?";
		next;
		mes "[Absar]";
		mes "...............................";
		mes "You can use this to pick";
		mes "things up. From a distance.";
		next;
		mes "[Absar]";
		mes "Anyway, when you get back";
		mes "to Zabaroo, let me him know";
		mes "that he doesn't owe me";
		mes "anything anymore. He'll...";
		mes "He'll know what I mean...";
		set veins_stone,4;
		close;
	}
	mes "[Absar]";
	mes "It's a ''Tactile Extendable";
	mes "Clamp-Release Mechanism.''";
	mes "What's so hard to understand";
	mes "about that? Hmpf! I know!";
	mes "It must be the educational";
	mes "system! They're to blame!";
	close;
}

ve_in02,37,28,4	script	Factory Manager	898,{
	if (veins_stone < 5) {
		mes "[Mirhen]";
		mes "Hey, employees only beyond this point!";
		mes "Geez, don't we have a sigh that says that?";
		mes "We should get one...";
		mes "Anyway, get out of here.";
		close2;
		warp "veins",269,221;
		end;
	}
	else if (veins_stone == 5) {
		mes "[Mirhen]";
		mes "Hey, employees only";
		mes "beyond this point!";
		mes "Geez, don't we have";
		mes "a sign that says that?";
		mes "We should get one...";
		mes "Anyway, get out of here.";
		next;
		if (select("I'm sorry.:I've brought these...") == 1) {
			mes "[Mirhen]";
			mes "You're sorry,";
			mes "I get it. Ummm...";
			mes "Aren't you leaving?";
			close;
		}
		mes "[Mirhen]";
		mes "Huh? What's this name";
		mes "tag? Zabaroo? Wait a sec...";
		mes "You're definitely not him!";
		next;
		select("I'm here on his behalf.");
		mes "[Mirhen]";
		mes "Ah, I get it. Zabaroo's";
		mes "back has really been";
		mes "bothering him lately.";
		mes "Okay, we can bend the";
		mes "rules a bit in this situation.";
		next;
		mes "[Mirhen]";
		mes "Bring those rocks over";
		mes "to Bahed over there.";
		mes "He'll take care of them.";
		set veins_stone,6;
		close;
	}
	mes "[Mirhen]";
	mes "Hetarium ...";
	mes "What's so special about";
	mes "it? I mean, it looks just like";
	mes "Iron Ore. Why the hell is";
	mes "it like classified info?";
	next;
	mes "[Mirhen]";
	mes "I wish I could return to";
	mes "Rekenber Headquarters...";
	mes "I hate being stuck here";
	mes "gathering silly rocks in";
	mes "the middle of nowhere.";
	close;
}

ve_in02,54,49,2	script	Factory Worker#ve1	943,{
	if (veins_stone < 6) {
		mes "[Bahed]";
		mes "lately, I've been feeling so weak...";
		mes "I heard the guy before me had to quit because he also started feeling weak.";
		next;
		mes "[Bahed]";
		mes "It couldn't be...";
		mes "It couldn't be because of this 'Hetarium'...";
		mes "That's just plain crazy...";
		close;
	}
	else if (veins_stone == 6) {
		mes "[Bahed]";
		mes "Oh, you got the rocks?";
		mes "You brought them for Zabaroo?";
		mes "Oh, how is he doing? I hear";
		mes "he threw out his back.";
		next;
		select("He still hurts.");
		mes "[Bahed]";
		mes "Oh no... I'm so sorry";
		mes "to hear that. I hope he";
		mes "feels better soon. Anyway,";
		mes "why don't you bring the";
		mes "rocks over here?";
		next;
		mes "[Bahed]";
		mes "Let me confirm Zabaroo's";
		mes "quota for today. Ah, and";
		mes "don't worry, We pay him";
		mes "for his quotas regularly.";
		next;
		select("I have a question...");
		mes "[Bahed]";
		mes "Hm? What'd you want";
		mes "to know? I can't say that";
		mes "I know everything, but";
		mes "I'll try my best to tell you";
		mes "what I know. I mean,";
		mes "you helped Zabaroo, so...";
		next;
		select("What's this Hetarium??");
		mes "[Bahed]";
		mes "Well, it hasn't been that";
		mes "long since these rocks";
		mes "attracted attention outside";
		mes "of town. Before all this,";
		mes "the townspeople just";
		mes "made carvings out of them.";
		next;
		mes "[Bahed]";
		mes "Then, all of a sudden,";
		mes "these people from--I guess";
		mes "it was Schwaltzvalt--came";
		mes "and bought a lot of these";
		mes "stones. Later, they even built";
		mes "this factory to process them!";
		next;
		mes "[Bahed]";
		mes "Oh, they tried using machines";
		mes "to harvest these stones, but";
		mes "they all broke down too soon.";
		mes "That's why they hired people";
		mes "in Veins to collect them.";
		next;
		mes "[Bahed]";
		mes "I'm not sure many people";
		mes "know who owns this factory.";
		mes "Maybe it's Rekenber? Yes,";
		mes "I saw one of their corporate";
		mes "airships come to town, so";
		mes "I think it might be them.";
		next;
		select("How do they use Hetarium??");
		mes "[Bahed]";
		mes "I'm not really sure. I just";
		mes "happened to overhear some";
		mes "of the higher ups mention";
		mes "something about hearts?";
		mes "Pieces of hearts? Doesn't";
		mes "make any sense to me.";
		next;
		mes "[Bahed]";
		mes "All I gathered was that";
		mes "they were using the stones";
		mes "to build a machine related";
		mes "to those hearts. That's";
		mes "all I know. Anyway, please";
		mes "leave the stones over there~";
		set veins_stone,7;
		close;
	}
	mes "[Bahed]";
	mes "Everyday I feel";
	mes "weaker and weaker...";
	mes "Could this be chronic";
	mes "fatigue syndrome? Ugh...";
	close;
}

ve_in02,68,39,7	script	Factory Worker#ve2	943,{
	mes "[Worker]";
	mes "What the heck are these rocks?";
	mes "They're ordinary stones, aren't they?";
	mes "They don't pay me enough here...";
	close;
}