//===== 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;
}