Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Q&A

Quests::Q&A This is the quest support section

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #4  
Old 07-26-2011, 07:52 PM
Kingmen30264
Hill Giant
 
Join Date: Sep 2006
Posts: 112
Default

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.

Also, if it helps, the 3 things he keeps saying are:

Components
Rusty Dagger
Next

Thanks.
Reply With Quote
 


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

   

All times are GMT -4. The time now is 08:26 PM.


 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3