//===== rAthena Script =======================================
//= Slotted Sunglasses Quest
//===== By: ==================================================
//= amichan
//===== Current Version: =====================================
//= 1.8
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Quest to get Slotted Sunglasses.
//= Will reset after quest completion.
//===== Additional Comments: =================================
//= 1.0 by Aegis 1.1 by aichan 1.2 by x[tsk] 1.3 by Darkchild
//= 1.5 Fixed Exploit [Lupus]
//= 1.6 Fixed Exploit [KarLaeda]
//= 1.7 Relocated 'Maseph' to moc_fild07. [Kisuka]
//= 1.8 Cleaning. [Euphy]
//============================================================

casp_in01,49,191,4	script	Ariel	435,{
	mes "[Ariel]";
	if(Angel_QUEST1 > 1) {
		mes "May the heavens be with you! Remember to look for my twin, Aziel, behind the Popes throne in The Garden of Heaven!";
		close; }
	mes "I sense a purity inside of you.";
	mes "Oh, you must be some sort of angel, but where are your wings?";
	next;
	if(select("I never got them!:Im not an angel!")==2) {
		mes "[Ariel]";
		mes "Thats odd..I had a feelings that you were pure.";
		close; }
	mes "[Ariel]";
	mes "Well you need to go get your ^0000FFAngel Wings^000000 right away! They boost your agility and dexterity by a little!";
	next;
	if(select("Where do I get them?!?:On second thought, Im not an angel.")==2) {
		mes "[Ariel]";
		mes "Huh, no way!";
		close; }
	mes "[Ariel]";
	mes "Haha dont you remember, silly? Talk to Aziel behind the Popes throne in the Garden of Heaven!!";
	next;
	if(select("Alright. Thank you, Ariel!:")==2) {
		mes "[Ariel]";
		mes "Well you need high quality material to make a high quality helmet! Bye!";
		close; }
	mes "[Ariel]";
		set Angel_QUEST1,2;
	mes "No problem at all!";
		close;
}

ra_temsky,99,105,5	script	Aziel	435,{
	mes "[Aziel]";	
	if(Angel_QUEST1 == 2) {
	mes "Hello there, angel?";
	mes "Im asuming that you came for your ^000088Angel Wings^000000, right?";
	next;
	if(select("Yes! I never got them!:Youve got the wrong person!")==2) {
		mes "[Aziel]";
		mes "Thats strange..an angel without wings?!";
		close; }
	mes "[Aziel]";
	mes "Bring me these, dear angel:";
	mes " - ^00008810x White Dyestuffs^000000";
	mes " - ^00008875x Soft Feather^000000";
	mes " - ^00008860x Feather of Birds^000000";
	mes " - ^00008850x Flame Heart^000000";
	next;
	mes "and";
	mes " - ^00008810,000,000 zeny^000000";
	next;
	if(select("Yes, Aziel, here..:Oh sorry, let me go get them!")==2) {
		mes "[Aziel]";
		mes "Very well, angel.";
		close; }
	mes "[Aziel]";
	mes "Let me inspect your ingredients, angel.";
	if (countitem(982) < 10 || countitem(7063) < 75 || countitem(916) < 60 || countitem(994) < 50 || Zeny < 10000000) {
		mes "Dear angel, please go gather the rest of the materials.";
		close; }
	delitem 982,10;
	delitem 7063,75;
	delitem 916,60;
	delitem 994,50;
	set Zeny, Zeny-10000000;
	mes "Very well!";
	next;
	mes "[Aziel]";
	mes "Let me cast my holy magic upon these materials to form your wings!";
	next;
	mes "[Aziel]";
	mes "Here you are angel, soar to the skys and spread heavens glory!";
	next;
	mes "[Info]";
	mes "You received ^000088Angel Wings^000000 from Aziel!";
	getitem 29020,1;
	set Angel_QUEST1,3;
	close; }
		mes "Hello again, angel.";
		close;
}