viewing paste Unknown #15571 | Athena

Posted on the | Last edited on
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156
/*=========================================================
Lighthalzen Aura Quest
by Zephy
===========================================================
Description:
===========================================================
Simple quest NPC to obtain the Lighthalzen Aura item.
===========================================================
Additional Notes:
===========================================================
Changelog
    - Edited line 88. Switched the options.
    - Added more dialogue.
    - Changed dialogue a little.
=========================================================*/
 
amatsu,265,236,4    script  Winslow 922,{
 
    mes .npc_name$;
 
    for(set .@i,0; .@i < getarraysize(.qitem); set .@i,.@i+1)
    {
        // Check if current item fails to meet prerequisite
        if(countitem(.qitem[.@i]) < .qamt)
        {
            mes "Why hello there young " + ((Sex)?"boy":"girl") + ".";
            mes "My name is ^008800Winslow^000000 and I have a very special talent...";
            next;
            
            mes .npc_name$;
            mes "...you see...I can see auras. Yes, before you ask, I can see your aura as well...";
            next;
            
            mes .npc_name$;
            mes "If you would like, I can read your aura for you?";
            next;
    
            if(select("Sure!?:Sorry, not interested.") == 2)
            {
                mes .npc_name$;
                mes "I see...you must be a skeptic. Off with you then...";
                close;
            }
 
            mes .npc_name$;
            mes "Let's take a look shall we?";
            next;
            mes "......";
            next;
            mes "......";
            mes "......";
            next;
            mes "......";
            mes "......";
            mes "......";
            next;
 
            mes .npc_name$;
            mes "Ah, your aura is very pure and clean. I can see that you are surrounded by a white aura.";
            next;
 
            mes .npc_name$;
            mes "Almost all auras are invisible to most people.";
            mes "However, I have been taught to make certain auras visible to those even so young such as yourself.";
            next;
            
            mes .npc_name$;
            mes "It's an old secret that has been passed down from generation to generation in my family.";
            next;
            
            mes .npc_name$;
            mes "It requires a set of very unique items...a soul from each of the Queen's dragons.";
            next;
 
            mes .npc_name$;
            mes "I will need:";
 
            // Loop to print out item requirements
            for(set .@j,0; .@j < getarraysize(.qitem); set .@j,.@j+1)
            {
                mes "^FF0000"+ .qamt +"x - "+ getitemname(.qitem[.@j]) +"^000000";
            }
            
            close;
            
        }
    }
    
    // If player meets the required amount of items
    mes "Wow, looks like you have gathered many dragon souls recently.";
    next;
 
    mes .npc_name$;
    mes "May I have them?";
    next;
 
    if(select("No:Yes") == 1)
    {
        mes .npc_name$;
        mes "Ah I see...on your way then young traveler.";
        close;
    }
 
    mes .npc_name$;
    mes "Ah I see....these are the 8 dragon souls I need to make the aura...";
 
    // Loop to delete all quest items
    for (set .@i,0; .@i < getarraysize(.qitem); set .@i,.@i+1)
    {
        delitem .qitem[.@i], .qamt;
    }
    
    next;
    
    mes .npc_name$;
    mes "Now...all we need to do is...";
    next;
    mes "......";
    next;
    mes "......";
    mes "......";
    next;
    mes "......";
    mes "......";
    mes "......";
    close2;
    
    sleep2 1000;
    specialeffect 100;
    sleep2 500;
 
    mes .npc_name$;
    mes "Ah...wonderful. The dragon souls have accepted eachother and merged into a beautiful...white aura.";
    getitem .pitem, .pamt; // Get prize item
    next;
    
    mes .npc_name$;
    mes "The white aura signifies wholeness, being in-sync with yourself.";
    next;
    
    mes .npc_name$;
    mes "Right then...off you go.";
    close;
 
OnInit:
    // Configuration
        // General
        set .npc_name$,"[^008800Winslow^000000]"; // NPC's dialogue name
 
        // Items
        set .pitem,17456; // Prize item for completing the quest
        set .pamt,1; // Prize item amount
        setarray .qitem[0], 17462, 17463, 17464, 17465, 17466, 17467, 17468, 17469, 22373, 8063; // Quest items (IDs)
        set .qamt,1,1,1,1,1,1,1,1,1,1; // Quest item amount
    end;
}
Viewed 643 times, submitted by rhenchu.