Priestess (buffbot)(cure)(bind)

[kimura]

hi, i used your script to make a buff bot, with a couple changes...the only problem now is that for some reason..well let me show ya


sub EVENT_SAY {

my $cure = quest::saylink ("cure", 1);
my $bind = quest::saylink ("bind", 1);
my $advanced = quest::saylink ("advanced blessing");
my $Kimura = quest::saylink ("Kimura's Super Buff");

if ($text =~/Hail/i)
{ quest::say("Greetings $name. I have been sent to aid you on your journey! Would you like a [$cure], [$advanced], [$Kimura] or I can [$bind] you to this location."); }
if ($text=~/cure/i) { quest::selfcast(3299); }
if ($text=~/bind/i) { quest::selfcast(35); }

if ($text =~/advanced/i)
{
quest::say ("I charge 200pp for superior buffs.");
}

if ($text =~/Kimura/i)
{
quest::say ("I charge 20000pp for a buff so AWESOME!");
}
}

sub EVENT_ITEM
{

if($platinum == 20000)
{
quest::say ("Get ready for a breath from Kimura!");
quest::selfcast(6817);
}

if($platinum == 200)
{
quest::say ("Good, stand where you are while I cast");
quest::selfcast(527;
quest::selfcast(535;
quest::selfcast(317;
quest::selfcast(156;
quest::selfcast(2524);
}
}

for some reason that i cannot figure out, when i hail him he adds this line to the original text that is supposed to be the response from hailing only:

"I charge 20000pp for a buff so AWESOME"

will you tell me what im doing wrong please? Thank you