viewing paste Unknown #15592 | 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
/*=========================================================
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,{
 set @name$,strcharinfo(0);
    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 "Halt! Who goes there?";
       
            next;
            
            mes .npc_name$;
            
        mes "Ah, The Red Queen sent you? I told her that I can do my job without any help.";
            next;
            
            mes .npc_name$;
      
        mes "Tch, well I guess I have no choice but.."
            next;
            
    
        mes "**Looks down with embarrassment**;
            next;
            
            mes .npc_name$;
            mes "The Red Queen needs all the help she needs to defeat the Monsters responsible for the death of her precious dragon.";
            next;
            mes "Bring us the proof that you have defeated the Monsters and you will receive a great prize."
            next;
            mes "are you up for it?"
            next;
    
            if(select("Yes, I'm ready!:Sorry, I need more time.") == 2)
            {
                mes .npc_name$;
                mes "Then go home while you're at it. I don't need cowards like you.";
                close;
            }
 
            mes .npc_name$;
            mes "I am amazed young one, you showed great spirits and dedication... Now, we must put it into the ultimate test.";
            next;
 
            mes .npc_name$;
            mes "Bring me these materials as a proof you have avenged our Red Queen's dragon.";
 
            // Loop to print out item requirements
            for(set .@j,0; .@j < getarraysize(.qitem); set .@j,.@j+1)
            {
                mes "^FF0000"+ .qamt[.@j] +"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)
        setarray .qamt[0], 5, 5, 5, 5, 10, 5, 50, 30, 50, 80, 50, 50, 45, 100, 1; // Quest item amount
    end;
}
Viewed 613 times, submitted by rhenchu.