mes .npc_name$;
    
    for(.@i = 0; .@i < getarraysize(.qitem); .@i++) {
        // Check if current item fails to meet prerequisite
        if(countitem(.qitem[.@i] < .qamt) {
            mes "Sorry, you're still missing some items. Here's your progress:";
            next;
            
            // Progress report
            for (.@j = 0; .@j < getarraysize(.qitem); .@j++) {
                if (countitem(.qitem[.@j]) < .qamt) {
                    mes countitem(.qitem[.@j]) +"/"+ .qamt +" "+ getitemname(.qitem[.@j]);
                }
            }
            
            close;
        }
    }
 
    mes "Wow, looks like you have gathered a lot of souls recently.";
    next;
    
    mes .npc_name$;
    mes "I can make them into a special aura everyone can see.";
    next;
    
    if(select("Yes, please.:No, thank you.") == 2) {
        mes .npc_name$;
        mes "Come back if you change your mind.";
        close;
    }
    
    mes .npc_name$;
    mes "Alright, enjoy your new aura!";
    
    // Delete all quest items
    for (.@i = 0; .@i < getarraysize(.qitem); .@i++) {
        delitem .qitem[.@i], .qamt;
    }
    
    getitem .pitem, .pamt;
    close;