Quest Not giving item after hand in
Here is my Quest but i do not think anything is wrong,I have tried another npc quest and dosnt give item after hand in will take req items.
#Simple Defiant Armor Quests
%GetArmorType = ( #Convert each Class Name into an Armor Type Name
"Warrior" => "Plate",
"Rogue" => "Chain",
"Monk" => "Leather",
"Berserker" => "Chain",
"Shadowknight" => "Plate",
"Paladin" => "Plate",
"Ranger" => "Chain",
"Bard" => "Plate",
"Beastlord" => "Leather",
"Cleric" => "Plate",
"Druid" => "Leather",
"Shaman" => "Chain",
"Wizard" => "Cloth",
"Magician" => "Cloth",
"Enchanter" => "Cloth",
"Necromancer" => "Cloth"
);
%ArmorSlot = ( #Convert each Slot Name into a String for use in the Rewards Choosing
"Bracer" => "_Bracer",
"Gauntlets" => "_Hands",
"Boots" => "_Boots",
"Helmet" => "_Helmet",
"Vambraces" => "_Arms",
"Greaves" => "_Legs",
"Breastplate" => "_Breastplate",
);
################################################
#
# MODIFY HERE
#
# QUEST REWARDS
#
################################################
%Rewards = ( #Name each item appropriately for use With the Armor Type And Armor Slot selections
"Plate_Bracer" => 1445, #Netherbian Plate armor Bracer
"Plate_Gauntlets" => 1447, #Netherbian Plate armor Gloves
"Plate_Boots" => 1450, #Netherbian Plate armor Boots
"Plate_Helmet" => 1443, #Netherbian Plate armor Helmet
"Plate_Vambraces" => 1446, #Netherbian Plate armor Arms
"Plate_Greaves" => 1449, #Netherbian Plate armor Legs
"Plate_Breastplate" => 1448, #Netherbian Plate armor Chestplate
"Chain_Bracer" => 1659, #Netherbian Chain armor Bracer
"Chain_Gauntlets" => 1656, #Netherbian Chain armor Gloves
"Chain_Boots" => 1592, #Netherbian Chain armor Boots
"Chain_Helmet" => 1655, #Netherbian Chain armor Helmet
"Chain_Vambraces" => 1658, #Netherbian Chain armor Arms
"Chain_Greaves" => 1657, #Netherbian Chain armor Legs
"Chain_Breastplate" => 1654, #Netherbian Chain armor Bp
"Leather_Bracer" => 1569, #Netherbian Leather armor Bracer
"Leather_Gauntlets" => 1533, #Netherbian Leather armor Gloves
"Leather_Boots" => 1502, #Netherbian Leather armor Boots
"Leather_Helmet" => 1503, #Netherbian Leather armor Helmet
"Leather_Vambraces" => 1458, #Netherbian Leather armor Arms
"Leather_Greaves" => 1563, #Netherbian Leather armor Legs
"Leather_Breastplate" => 1568, #Netherbian Leather armor Tunic
"Cloth_Bracer" => 1591, #Netherbian Silk armor Bracer
"Cloth_Gauntlets" => 1577, #Netherbian Silk armor Gloves
"Cloth_Boots" => 1587, #Netherbian Silk armor Sandals
"Cloth_Helmet" => 1579, #Netherbian Silk armor Helmet
"Cloth_Vambraces" => 1586, #Netherbian Silk armor Arms
"Cloth_Greaves" => 1581, #Netherbian Silk armor Legs
"Cloth_Breastplate" => 1582, #Netherbian Silk armor Robe
);
################################################
################################################
#
# MODIFY HERE
#
# REQUIRED QUEST TURNINS
#
################################################
my $chest_turnin = 1389; #gem 1
my $leg_turnin = 1391; #gem 2
my $arm_turnin = 1392; #gem 3
my $boot_turnin = 1394; #gem 4
my $helmet_turnin = 1393; #gem 5
my $hand_turnin = 1395; #gem 6
my $bracer_turnin = 1396; #gem 7
################################################
sub EVENT_SAY {
my $armor = quest::saylink("armor");
my $chest = quest::saylink("chest");
my $legs = quest::saylink("legs");
my $arms = quest::saylink("arms");
my $head = quest::saylink("head");
my $feet = quest::saylink("feet");
my $hands = quest::saylink("hands");
my $wrists = quest::saylink("wrists");
# Get the Armor Type of the Character character currently speaking With this NPC
my $ArmorType = $GetArmorType{$class};
#Create the full name of each item for the Rewards array
my $Bracer = "$ArmorType$ArmorSlot{Bracer}";
my $Gauntlets = "$ArmorType$ArmorSlot{Gauntlets}";
my $Boots = "$ArmorType$ArmorSlot{Boots}";
my $Helmet = "$ArmorType$ArmorSlot{Helmet}";
my $Vambraces = "$ArmorType$ArmorSlot{Vambraces}";
my $Greaves = "$ArmorType$ArmorSlot{Greaves}";
my $Breastplate = "$ArmorType$ArmorSlot{Breastplate}";
#Create the Item Links from the Rewards Array for use in say messages
my $Bracer_Link = quest::varlink($Rewards{$Bracer});
my $Gauntlets_Link = quest::varlink($Rewards{$Gauntlets});
my $Boots_Link = quest::varlink({$Boots});
my $Helmet_Link = quest::varlink($Rewards{$Helmet});
my $Vambraces_Link = quest::varlink($Rewards{$Vambraces});
my $Greaves_Link = quest::varlink($Rewards{$Greaves});
my $Breastplate_Link = quest::varlink($Rewards{$Breastplate});
#Create the required quest turnin item links for use in say messages
my $gem_1 = quest::varlink($chest_turnin);
my $gem_2 = quest::varlink($leg_turnin);
my $gem_3 = quest::varlink($arm_turnin);
my $gem_5 = quest::varlink($boot_turnin);
my $gem_4 = quest::varlink($helmet_turnin);
my $gem_6 = quest::varlink($hand_turnin);
my $gem_7 = quest::varlink($bracer_turnin);
if($ulevel > 15)
{
if($text=~/hail/i)
{
quest::say("Ahh, $name, I am glad you stopped by! It seems to
me you are now ready for some new $ArmorType [$armor]. I am able to call
upon the power of My Brother to transmute specific lesser items into something
more befitting a $class of your stature. The items I require can be found in
the depths of Nertherbian.");
}
if($text=~/armor/i)
{
quest::say("I can enhance armor for [$chest], [$legs], [$arms], [$head], [$feet], [$hands], and [$wrists].");
}
if($text=~/chest/i)
{
quest::say("You will need to bring me 4 $gem_1 and i will create a $Breastplate_Link for you.");
}
if($text=~/legs/i)
{
quest::say("You will need to bring me 4 $gem_2 and i will create a $Greaves_Link for you.");
}
if($text=~/arms/i)
{
quest::say("You will need to bring me 4 $gem_3 and i will create a $Vambraces_Link for you.");
}
if($text=~/head/i)
{
quest::say("You will need to bring me 4 $gem_4 and i will create a $Helmet_Link for you.");
}
if($text=~/feet/i)
{
quest::say("You will need to bring me 4 $gem_5 and i will create a $Boots_Link for you.");
}
if($text=~/hands/i)
{
quest::say("You will need to bring me 4 $gem_6 and i will create a $Gauntlets_Link for you.");
}
if($text=~/wrists/i)
{
quest::say("You will need to bring me 4 $gem_7 and i will create a $Bracer_Link for you.");
}
}
else
{
if($text=~/hail/i)
{
quest::say("Hi there, $name. I'm afraid the quests I have for
you are a little too dangerous at this time. Please stop by again after you
have gained some more experience.");
}
}
}
sub EVENT_ITEM {
# Get the Armor Type of the Character character currently speaking With this NPC
my $ArmorType = $GetArmorType{$class};
#Create the full name of each item for the Rewards array
my $Bracer = "$ArmorType$ArmorSlot{Bracer}";
my $Gauntlets = "$ArmorType$ArmorSlot{Gauntlets}";
my $Boots = "$ArmorType$ArmorSlot{Boots}";
my $Helmet = "$ArmorType$ArmorSlot{Helmet}";
my $Vambraces = "$ArmorType$ArmorSlot{Vambraces}";
my $Greaves = "$ArmorType$ArmorSlot{Greaves}";
my $Breastplate = "$ArmorType$ArmorSlot{Breastplate}";
if($ulevel > 15)
{
#Reward for turning in the Bracer piece
if (plugin::check_handin(\%itemcount, $bracer_turnin => 4 )) { # bracer
quest::emote(" uses her Druidic powers to fuse the items together.");
quest::SummonItem($Rewards{$Bracer});
quest::exp(450);
quest::say ("Your item is ready, $name.");
}
#Reward for turning in the Gauntlets piece
if (plugin::check_handin(\%itemcount, $hand_turnin => 4 )) { # hand
quest::emote(" uses her Druidic powers to fuse the items together.");
quest::SummonItem($Rewards{$Gauntlets});
quest::exp(450);
quest::say ("Your item is ready, $name.");
}
#Reward for turning in the Boots piece
if (plugin::check_handin(\%itemcount, 1394 => 4 )) { #Boots
quest::emote(" uses her Druidic powers to fuse the items together.");
quest::SummonItem({$Boots});
quest::exp(450);
quest::say ("Your item is ready, $name.");
}
#Reward for turning in the Helmet piece
if (plugin::check_handin(\%itemcount, $helmet_turnin => 4 )) { # helmet
quest::emote(" uses her Druidic powers to fuse the items together.");
quest::SummonItem($Rewards{$Helmet});
quest::exp(450);
quest::say ("Your item is ready, $name.");
}
#Reward for turning in the Vambraces piece
if (plugin::check_handin(\%itemcount, $arm_turnin => 4 )) { # arms
quest::emote(" uses her Druidic powers to fuse the items together.");
quest::SummonItem($Rewards{$Vambraces});
quest::exp(450);
quest::say ("Your item is ready, $name.");
}
#Reward for turning in the Greaves piece
if (plugin::check_handin(\%itemcount, $leg_turnin => 4 )) { # legs
quest::emote(" uses her Druidic powers to fuse the items together.");
quest::SummonItem($Rewards{$Greaves});
quest::exp(450);
quest::say ("Your item is ready, $name.");
}
#Reward for turning in the Breastplate piece
if (plugin::check_handin(\%itemcount, $chest_turnin => 4 )) { # brestplate
quest::emote(" uses her Druidic powers to fuse the items together.");
quest::SummonItem($Rewards{$Breastplate});
quest::exp(450);
quest::say ("Your item is ready, $name.");
}
else
{
plugin::return_items(\%itemcount);
}
}
else
{
plugin::return_items(\%itemcount);
}
}
if any one has a clue be great help Thx.
|
Linear Mode
