View Single Post
  #9  
Old 07-29-2011, 01:48 PM
Kingmen30264
Hill Giant
 
Join Date: Sep 2006
Posts: 112
Default

I saw where it is posted at the bottom of the page, but is there a certain part of my quest script that I need to insert it at? This is what I have right now:

(I took out the sub EVENT_ITEM so it wasn't as long)

Code:
##########
#Quest Name: Death's Elusive Charm
#Zone: poknowledge
#Author: Warlore
#NPCs Involved: Deaths_Epic_Charm_Quest
##########

sub EVENT_SAY
{
#Say Links
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 $few1 = 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 $next1 = quest::saylink("next");
my $components = quest::saylink("components");
my $Dragon_Charm1 = quest::saylink("Dragon Charm");
my $Drachnid_Charm1 = quest::saylink("Drachnid Charm");
my $Vampyre_Charm1 = quest::saylink("Vampyre Charm");
my $Bone_Chips = quest::saylink("Bone Chips");
my $Bone_Skull = quest::saylink("Iksar Skull");
my $Femur = quest::saylink("Femur");
my $Toes = quest::saylink("Toes");
my $dwarf = quest::saylink("Dwarf Skull");
my $small = quest::saylink("Small Gem Glue Solvent");
my $Dragonbane_herb1 = quest::saylink("Dragonbane Herb");
my $please1 = quest::saylink("please");
my $them = quest::saylink("them");
my $charm = quest::saylink("charm");


#Item Links
my $got = quest::varlink("7001");
my $Dragonbane_herb = quest::varlink("1785");
my $Dragon_Charm1 = quest::varlink("11515");
my $Drachnid_Charm1 = quest::varlink("9907");
my $Vampyre_Charm1 = quest::varlink("18353");
my $Bone_Chips = quest::varlink("13073");
my $Bone_Skull = quest::varlink("12748");
my $Femur = quest::varlink("19794");
my $Toes = quest::varlink("25760");
my $Dragonbane_herb1 = quest::varlink("1785");
my $Enchanted_Bone_Powder = quest::varlink("69949");
my $rusty_dagger1 = quest::varlink("7007");
my $dwarf = quest::varlink("12137");
my $small = quest::varlink("37956");
my $Dragon = quest::varlink("1784");
my $Drachnid = quest::varlink("2643");
my $Vampyre = quest::varlink("2693");


  if($text=~/hail/i)
  {
    plugin::Whisper("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)
  {
    plugin::Whisper("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)
  {
    plugin::Whisper("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)
  {
    plugin::Whisper("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!");
    plugin::Whisper("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; [$got]");
    plugin::Whisper("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.");
    quest::setglobal([gather],[0],[ALL],[F]);
  }
    elsif($text=~/gather/i)
  {
    plugin::Whisper("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)
  {
    plugin::Whisper("Yes, [$Dragonbane_herb1]! 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 my list.");
  }
  elsif($text=~/few/i)
  {
    plugin::Whisper("Yes, it seems that with each type of blood, there is a new set of properties, but here is a list of what I can use: [$Vampyre], [$Drachnid], and [$Dragon]. Sorry, but those are the only 3 that I know. Each one has different abilities, if you would like to see [$them], let me know.");
  }
  elsif($text=~/them/i)
  {
    plugin::Whisper("Here are the charms that I can make for you. [$Dragon_Charm1], [$Vampyre_Charm1], [$Drachnid_Charm1].");
  }
  elsif($text=~/Dragon Charm/i)
  {
    plugin::Whisper("So you seek power do ya? Well let me forwarn you that with great power comes great responsibility!");
    plugin::Whisper("Nah, I'm just muckin about! But if you truely want more power, then you'll have to do as I ask, nothing less!");
    plugin::Whisper("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_dagger1]. When you find this, bring it back to me, with your [$charm] and I will tell you what is next.");
  }
  elsif($text=~/charm/i)
  {
    plugin::Whisper("Yes, the charm you got from me before!");
    plugin::Emote("Mumbles under breath");
  }
  elsif($text=~/next/i)
  {
    plugin::Whisper("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)
  {
    plugin::Whisper("Yes, yes, the components are: [$Bone_Chips], [$Bone_Skull], [$Femur], and [$Toes]");
  }
  elsif($text=~/please/i)
  {
    plugin::Whisper("I need you to go to the Crypt of Dalnir and find me a [$dwarf]. 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].");
  }
}
I THINK I have it right, but I KNOW that it isn't, or else it would be working lol...

(Sorry for being a nuisciance, but I am trying to learn this. )
Reply With Quote