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

[kimura]

How do I put scripts in that nifty little box thing? Anyone able to tell me how to fix the above script?

[trevius]

To use the code boxes, just click the little # sign button above the post window when you are typing.

Code

The problem with your script is probably that your character you are testing it on is named Kimura. The comparison you are doing in the if statement is looking for any string that contains that word /Kimura/. You will see the line as "You say blah blah blah", but I think the NPC will see it as "Kimura says blah blah blah". So, the NPC will see your name in the line of text and it will match you if statement. If you want to prevent that, you can do it in multiple ways, but the easiest is to just be more specific in the response you are looking for such as:

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

[kimura]

Thanks for the response! I will try that when I get home, the only thing is that I'm not using a character with that name. Thanks for the # hint!

[trevius]

Is the NPC named Kimura then?

[kimura]

NPC is named Kimura's_Buffer lol :P (real original, i know)

[kimura]

well, leave it to Trevius to fix another problem!! thanks a lot man, can always depend on you :P