quest items disappearing, weirdness when zoning

[BlueRooster]

I have a simple set of quests to uber buff/equip a char. (I play on a private server with my kids, so they get to buff themselves up). Anyway, when the quest runs it works pretty well. I get the hails, respond accordingly and the buff part works perfectly. When I do the "item" portion something gets messed up. I get most of the items requested, but not all of them. Then when I zone the items all re-arrange themselves in my inventory and some disappear. Others appear on my cursor when I zone. Its kinda random so I never end up with the correct equipment. I don't think anything is wrong with the quest, its almost like the items are not getting saved to my character. Anyone have any ideas ?

sub EVENT_SAY
{
if ($text=~/Hail/i)
{
quest::say("Hello, would you like Some $class [items] or level [buffs]?");
}
if ($text=~/buffs/i)
{
quest::say("Boom! $name you are now a mighty $class!");
quest::level(75);
quest::setallskill(252);
quest::scribespells();
quest::selfcast(278);
quest::selfcast(457);
quest::selfcast(1693);
quest::selfcast(2176);
quest::selfcast(2177);
quest::selfcast(3692);
quest::selfcast(3467);
quest::selfcast(2570);
quest::selfcast(13);
quest::say("Casting Full Buff/Heal, Good hunting!");
}
if ($text=~/items/i)
{
quest::say("Here ya go $name be a mighty $class!");
################################################## ####
if ($class == 'Shaman')
{
######### jewelry #########
quest::summonitem(39246); # finger - porthios ring of shadows
quest::summonitem(83614); # charm - rotting talons
quest::summonitem(47291); # finger - Ring of Deterrence
quest::summonitem(47285); # ear - Stud of chilling precision
quest::summonitem(47288); # ear - earring of Dragonkin
######### armor #########
quest::summonitem(53946); # head - Silverfanged Coif
quest::summonitem(8774); # neck - talisman of tainted energy
quest::summonitem(47306); # Back - Plaguborn cape
quest::summonitem(46690); # shoulder - scaleguard spaulders
quest::summonitem(53425); # arms - Silverfanged arms
quest::summonitem(53426); # wrist - Silverfanged Bracer
quest::summonitem(4532); # wrist - JB Bracer
quest::summonitem(53427); # hands - Silverfanged Gloves
quest::summonitem(53430); # legs - Silverfanged legs
quest::summonitem(53428); # feet - Silverfanged Boots
quest::summonitem(47282); # waist - chains of anguish
quest::summonitem(39243); # Face - mask of the second born
quest::summonitem(53951); # chest - Silverfanged Coat
######### Weapons #########
quest::summonitem(36223); # Epic 1.0 - spear of fate
quest::summonitem(57400); # Epic 1.5 - talisman of fate
quest::summonitem(57405); # Epic 2.0 - blessed spiritstaff of heyokah
quest::summonitem(24699); # Times antithesis
quest::summonitem(47296); # Range - Totem of the chimera
}
################################################## #####
quest::summonitem(17138); # bag - grandmaster carry-all
quest::summonitem(40901); # bag - reinforced abu satchel
quest::summonitem(40901); # bag - reinforced abu satchel
quest::summonitem(82433); # bag - imp kindred bag
quest::summonitem(82034); # bag - faerie kindred bag
#quest::summonitem(59508); # Mount - Giant Black Droggy
quest::summonitem(7867); # Mount - Black Horse
quest::summonitem(20505); # Golem Clay - earth elemental
quest::summonitem(2469); # guise of deceiver - DE
quest::summonitem(31853); # wreath of taz - HIE
quest::summonitem(31863); # stone of gnoming
quest::summonitem(28973); # Tiny Bone Bracelet
quest::summonitem(51836); # Illusion werewolf
quest::summonitem(85573); # skull rakban
quest::summonitem(86545); # water elemental
quest::summonitem(2463); # pegasus cloak
quest::summonitem(2300); # jboots
quest::summonitem(9662,20); # Misty thicket Picnics
quest::summonitem(9756,20); # Kaladim constitutionals
################################################## #####
}
}

Ignore the spacing, the tabs got hosed by cut-n-paste

[Andrew80k]

You should probably use:

if ($class eq "Shaman") {

In perl == is for numeric comparison so you are comparing a string to list of chars. In most cases it will work just because of what perl is doing behind the scenes, but your results may be inconsistent.

As for your zoning thing, it may be that you are trying to summon too many items at once, but I don't know that for sure. That may be causing it do something funny in the client. You could try to separate your armor stuff into categories so that you have to hail a couple of times to get all of it. Might be worth a try.

[ChaosSlayer]

a sugestion - if you giving player whole bunch of items for free - may as well just put them on a merchant for sale at 0 plat and don't bother with the quest script