Vahlara Revised

[Knightly]

One of my players also noticed that the first part of the quest doesn't make sense (ie, she says I have something that will save you from the same fate before she talks about the fate of the others).

Also, when you zone out and back in, you get a "lore" item error due to the globals being removed from the database. I'm going on the assumption that anyone who wants the charm probably isn't going to put it in a bag, so I changed it around a little bit.

Finally, I fixed a couple of the "say" portions where she says "elsif" instead of "if" and I changed the quest so that she uses the check handin function to give items back if she doesn't need them.

sub EVENT_SAY{
  if ($text=~/hail/i){
    quest::say("I'm glad you managed to escape the slave warrens in one piece. There are many [others] who were not as lucky.");
	if (!$hasitem{59943}) {
      quest::summonitem(59943);
      quest::say("I have something that might save you from the same fate. Take this kobold charm. May it bring you good luck, $name.");
	}
  }
  elsif ($amote==2){
    quest::spawn2(189119,0,0,-126.0,-295.8,3.0,124.8);}
  elsif ($bmote==2){
    quest::spawn2(189120,0,0,-385.2,-516.3,-39.3,135.1);}
  elsif ($text=~/others/i){
    quest::say("The others did not have the [parts] I needed to craft them protective armor.");}
  elsif ($text=~/parts/i){
    quest::say("Ah well the parts depend on what type of armour you want. There is [plate] , [chain] , [leather] , and [cloth].");}
  elsif ($text=~/a helmet/i){
    quest::say("In order to make a plate helmet for you $name, I require a chunk of iron found within the Gloomingdeep mines.");}
  elsif ($text=~/plate bracers/i){
    quest::say("To make the plate bracers for you, you need to bring me a chunk of iron and a gloomingdeep cocoon silk.");}
  elsif ($text=~/plate gauntlets/i){
    quest::say("I would love to craft plate gauntlets for you $name. Please bring me a chunk of iron and two gloomindeep cocoon silks.");}
  elsif ($text=~/plate boots/i){
    quest::say("All travelers require the proper footwear.  I can craft a fine pair of plate boots for you if you bring me a chunk of iron and three gloomingdeep cocoon silks.");}
  elsif ($text=~/plate vambraces/i){
    quest::say("So you seek to protect your arms? $name, please return to me a chunk of iron, two gloomingdeep cocoon silks and a piece of rat fur.");}
  elsif ($text=~/plate greaves/i){
    quest::say("A good $class knows that some critters only need to reach your legs.  With a chunk of iron, two gloomingdeep cocoon silks, and a bat wing, I can help protect you.");}
  elsif ($text=~/plate breastplate/i){
    quest::say("Ah, the true status of a $class.  This will require a chunk of iron, two gloomingdeep cocoon silks and the venom sack from that vile spider queen to craft.  Good luck and return when you have what I need.");}
  elsif ($text=~/plate/i){
    quest::say("I can make the following plate armour, [a helmet], [plate bracers], [plate gauntlets], [plate boots], [plate vambraces], [plate greaves], and  a [plate breastplate].  These all require you show your status in battle and return components to me.");}
  elsif ($text=~/chain coif/i){
    quest::say("In order to make a chain coif for you $name, I require a chunk of bronze found within the Gloomingdeep mines.");}
  elsif ($text=~/chain bracers/i){
    quest::say("To make the chain bracers for you, you need to bring me a chunk of bronze and a gloomingdeep cocoon silk.");}
  elsif ($text=~/chain gauntlets/i){
    quest::say("I would love to craft chain gauntlets for you $name. Please bring me a chunk of bronze and two gloomindeep cocoon silks.");}
  elsif ($text=~/chain boots/i){
    quest::say("All travelers require the proper footwear.  I can craft a fine pair of chain boots for you if you bring me a chunk of bronze and three gloomingdeep cocoon silks.");}
  elsif ($text=~/chain sleeves/i){
    quest::say("So you seek to protect your arms? $name, please return to me a chunk of bronze, two gloomingdeep cocoon silks and a piece of rat fur.");}
  elsif ($text=~/chain leggings/i){
    quest::say("A good $class knows that some critters only need to reach your legs.  With a chunk of bronze, two gloomingdeep cocoon silks, and a bat wing, I can help protect you.");}
  elsif ($text=~/chain chestguard/i){
    quest::say("Ah, the true status of a $class.  This will require a chunk of bronze, two gloomingdeep cocoon silks and the venom sack from that vile spider queen to craft.  Good luck and return when you have what I need.");}
 elsif ($text=~/chain/i){
    quest::say("I can make the following chain armour, [chain coif], [chain bracers], [chain gauntlets], [chain boots], [chain sleeves], [chain leggings], and  a [chain chestguard].  These all require you show your status in battle and return components to me.");}
  elsif ($text=~/a cap/i){
    quest::say("In order to make a leather cap for you $name, I require a piece of rat fur found within the Gloomingdeep mines.");}
  elsif ($text=~/leather bracers/i){
    quest::say("To make the leather bracers for you, you need to bring me a piece of rat fur and a gloomingdeep cocoon silk.");}
  elsif ($text=~/leather gloves/i){
    quest::say("I would love to craft leather gloves for you $name. Please bring me a piece of rat fur and two gloomindeep cocoon silks.");}
  elsif ($text=~/leather boots/i){
    quest::say("All travelers require the proper footwear.  I can craft a fine pair of leather boots for you if you bring me a piece of rat fur and three gloomingdeep cocoon silks.");}
  elsif ($text=~/leather sleeves/i){
    quest::say("So you seek to protect your arms? $name, please return to me two pieces of rat fur, and two gloomingdeep cocoon silks.");}
  elsif ($text=~/leather leggings/i){
    quest::say("A good $class knows that some critters only need to reach your legs.  With a piece of rat fur, two gloomingdeep cocoon silks, and a bat wing, I can help protect you.");}
  elsif ($text=~/leather tunic/i){
    quest::say("Ah, the true status of a $class.  This will require a piece of rat fur, two gloomingdeep cocoon silks and the venom sack from that vile spider queen to craft.  Good luck and return when you have what I need.");}
  elsif ($text=~/leather/i){
  quest::say("I can make the following leather armour, [a cap], [leather bracers], [leather gloves], [leather boots], [leather sleeves], [leather leggings], and  a [leather tunic].  These all require you show your status in battle and return components to me.");}
  elsif ($text=~/a headband/i){
    quest::say("In order to make a headband for you $name, I require a gloomingdeep silk found within the Gloomingdeep mines.");}
  elsif ($text=~/cloth wristbands/i){
    quest::say("To make the cloth wristbands for you, you need to bring me a gloomingdeep silk and a gloomingdeep cocoon silk.");}
  elsif ($text=~/cloth gloves/i){
    quest::say("I would love to craft cloth gloves for you $name. Please bring me a gloomingdeep silk and two gloomindeep cocoon silks.");}
  elsif ($text=~/cloth slippers/i){
    quest::say("All travelers require the proper footwear.  I can craft a fine pair of cloth slippers for you if you bring me a gloomingdeep silk and three gloomingdeep cocoon silks.");}
  elsif ($text=~/cloth sleeves/i){
    quest::say("So you seek to protect your arms? $name, please return to me a gloomingdeep silk, two gloomingdeep cocoon silks, and a piece of rat fur.");}
  elsif ($text=~/cloth pantaloons/i){
    quest::say("A good $class knows that some critters only need to reach your legs.  With a gloomingdeep silk, two gloomingdeep cocoon silks, and a bat wing, I can help protect you.");}
  elsif ($text=~/cloth robe/i){
    quest::say("Ah, the true status of a $class.  This will require a gloomingdeep silk, two gloomingdeep cocoon silks and the venom sack from that vile spider queen to craft.  Good luck and return when you have what I need.");}
  elsif ($text=~/cloth/i){
  quest::say("I can make the following cloth armour, [a headband], [cloth wristbands], [cloth gloves], [cloth slippers], [cloth sleeves], [cloth pantaloons], and  a [cloth robe].  These all require you show your status in battle and return components to me.");}
}