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