not recieving items?

[Expletus]

sub EVENT_SAY
{
my $mead = quest::saylink("mead");
if ($text =~/hail/i)
{
quest::say ("Good day to you, $name. Do you need some [$mead]?");
#quest::emote ("Dances with $name.");
}

if ($text =~/mead/i)
{
quest::say ("Drink up!");
quest::SummonItem("13033");
}

}

NPC won't give me any items back. I also tried to copy a script from below about giving armor, and that won't work either. using the latest db and build.

[Derision]

Perl is case-sensitive, and most quest:: commands are all lower-case, i.e. it should be quest::summonitem.

[Expletus]

I tried to do that with Georges tool, and it keeps bringing caps up.. edited in notepad, works awesome now.

Thank you