Thank you for your response Trevius.
I have another question. I got the quest working just fine, but when I attempted another one, I get the NPC saying some of my "Links" when I hail him.
Would someone mind taking a look at this and telling me what I may or may not have done?
Code:
##########
#Quest Name: Death's Elusive Charm
#Zone: poknowledge
#Author: Warlore
#NPCs Involved: Deaths_Epic_Charm_Quest
#Items Involved:
##########
sub EVENT_SAY
{
my $want = quest::saylink("want");
my $ask = quest::saylink("ask");
my $hindering = quest::saylink("hindering");
my $gather = quest::saylink("gather");
my $Dragonbane_Herb = quest::saylink("Dragonbane Herb");
my $Small_Gem_Glue_Solvent = quest::saylink("Small Gem Glue Solvent");
my $Enchanted_Bone_Powder = quest::saylink("Enchanted Bone Powder");
my $few = quest::saylink("few");
my $Dragon_Charm = quest::saylink("Dragon Charm");
my $Drachnid_Charm = quest::saylink("Drachnid Charm");
my $Vampyre_Charm = quest::saylink("Vampyre Charm");
my $rusty_dagger = quest::say("Rusty Dagger");
my $next = quest::say("next");
my $components = quest::say("components");
my $got = quest::varlink("7001");
if($text=~/hail/i)
{
quest::say("Now where did I put that-- Oh hey there $name, I Didn't see you there, but since you are here, let me ask you this, 'What you [$want] and why you looking at me?'");
}
elsif($text=~/want/i)
{
quest::say("Want? Want?! That's what all you kids do these days, want. Well let me tell you what I want! If you don't mind hearing an old man [$ask] for something");
}
elsif($text=~/ask/i)
{
quest::say("Oh, you'll listen? Well then, I suppose you believe there is something of it for you huh? Only reason why you would listen. Well then, sit down here and let me tell you a tale that is most [$hindering]");
}
elsif($text=~/hindering/i)
{
quest::say("Long ago, before the lands were developed and everything is how it seems today, the lands were wrought with war, famine, and disease. During these times, I wasn't much for war, you see, I was really as far from war as you could think!");
quest::say("Well, I was only a kid during all this, and so I was as niave as the next kid, but I was determined to stop it all! I was tired of it, sick (Not like the others) of what was going on. So I set out to find a way to make it all end, to make it better; and this is what I [$got]");
quest::say("Unfortunately, it was lost a little while back along with the design on how to make it. However, if you would be willing to [$gather] a few items for me, I am sure that I could jog my memory on a few things.");
}
elsif($text=~/gather/i)
{
quest::say("Wonderful, since I have gotten older, my reflexes have slowed, so the first item I would like would be this wonderful little herb called [$Dragonbane Herb]. Bring this to me, and I should have the energy to recall some of the items.");
}
elsif($text=~/Dragonbane Herb/i)
{
quest::say("Yes, Dragonbane Herb! Oh, you would like me to tell you where it is? Let's see... Hmm... In my youth, I found some in the area known as Siren's Grotto. Now if you wouldn't mind fetching me some, I'll return to the list.");
}
elsif($text=~/few/i)
{
quest::say("Yes, it seems that with each type of blood, there is a new set of properties, but here is the list that I can use: Vampyre, Drachnid, and Dragon. Sorry, but those are the only 3 that I know.");
}
elsif($text=~/Dragon Charm/i)
{
quest::say("So you seek power do ya? Well let me forwarn you that with great power comes great responsibility!");
quest::say("Nah, I'm just muckin about! But if you truely want more power, then you'll have to do as I ask, nothing less!");
quest::say("Alright then, since we both know that you are willing to do this, then it is time to get niddy griddy! I want you to find me [$rusty_dagger]. When you find this, bring it back to me and I will tell you what is next.");
}
elsif($text=~/next/i)
{
quest::say("Ah, yes, I see it now.... Very well, this next task will have you out and about for awhile as I need a few [$components].");
}
elsif($text=~/components/i)
{
quest::say("Yes, yes, the components are: Bone Chips, Bone Skull, Femur, and Toes");
}
}
sub EVENT_ITEM
{
if(plugin::check_handin(\%itemcount, 1785 => 1))
{
quest::say("Wonderful, wonderful! This really hits the spot! AHA!! I remember the base of the item. I need you to go to the Crypt of Dalnir and find me a Dwarf Skull. But I seem to be forge-- Ah, of course! Back in my youth, when I was meddling around with the skull, I couldn't keep the jaw to stay on. So I need you to stop and buy me some [$Small_Gem_Glue_Solvent]");
quest::exp(25000);
}
elsif(plugin::check_handin(\%itemcount, 37956 = >1, 12137 => 1))
{
quest::say("Ah, now I am able to start this. Well, so you're not just standing there, mind fetching me something else? Ah, who am I kidding? No need to ask you right? Of course you're willing to do what I ask. No go fetch me some [$Enchanted_Bone_Powder] from Dawnshroud Peaks.");
quest::exp(30000);
}
elsif(plugin::check_handin(\%itemcount, 69949 => 1))
{
quest::say("Ah, just what is needed. That was to clean it. Now I need to add some blood to it. Tell you what, bring me the type of blood you want, and I will make it for you like that. However, I am only skilled with so many bloods, so I must ask you to only bring me a select [$few]");
quest::exp(40000);
}
elsif(plugin::check_handin(\%itemcount, 2643 => 1))
{
quest::say("Here is your [$Drachnid Charm], if you bring it back to me, then I can always increase its power.");
quest::summonitem(9907);
quest::exp(40000);
}
elsif(plugin::check_handin(\%itemcount, 1784 => 1))
{
quest::say("Here is your [$Dragon Charm], if you bring it back to me, then I can always increase its power.");
quest::summonitem(11515);
quest::exp(40000);
}
elsif(plugin::check_handin(\%itemcount, 2693 => 1))
{
quest::say("Here is your [$Vampyre Charm], if you bring it back to me, then I can always increase its power.");
quest::summonitem(18353);
quest::exp(40000);
}
elsif(plugin::check_handin(\%itemcount, 7007 => 1))
{
quest::say("Thanks for the Dagger. Would you like to know what is [$next]?");
}
elsif(plugin::check_handin(\%itemcount, 13073 => 1, 12748 => 1, 19794 => 1, 25760 => 1))
{
quest::say("Thank you, and here is your reward!");
quest::exp(40000000);
quest::summonitem("7001");
}
else {
quest::emote("What would I want with this?");
plugin::return_items(\%itemcount);
}
}
Thanks.
Threaded Mode
