can anyone help me get this quest working

[daryl]

sub EVENT_SAY
{
if($text=~/hail/i)
{
if($class eq "Bard")
{
if($ulevel <= 5)
{
quest::say(" I can [teach] you the magic of your class for free at this time.");
}
elsif($ulevel > 5)
{
$platinum = ($ulevel - 4);
quest::say("In order to teach you the magic of your class, I require a donation of $platinum platinum.");
}
}
else
{
if($ulevel == 1)
{
quest::say(" I am [teach] you the magic of your class for free at this time.");
}
elsif($ulevel > 1)
{
$platinum = ($ulevel);
quest::say("in order to teach you the magic of your class, I require a donation of $platinum platinum.");
}
}
}
elsif($text=~/teach/i)
{
if($class eq "Bard")
{
if($ulevel <= 5)
{
quest::scribespells($ulevel);
}
elsif($ulevel > 5)
{
quest::say("You are far too high for me to teach you such knowledge for free.");
}

}
else
{
if($ulevel == 1)
{
quest::scribespells($ulevel);
}
elsif($ulevel > 1)
{
quest::say("You are far too high for me to teach you such knowledge for free.");
}
}
}
}
sub EVENT_ITEM
{
if($class eq "Bard")
{
if($ulevel > 5)
{
$platinum = ($ulevel - 4);
if(($platinum==$payment) || ($itemcount{65000} == 1))
{
quest::say("I knew you could afford it. Here are your songs.");
quest::scribespells($ulevel);
}
}
}
else
{
$payment = $ulevel;
if(($platinum==$payment) || ($itemcount{65000} == 1))
{
quest::say("I knew you could afford it. Here are your spells.");
quest::scribespells($ulevel);
}
}
}