Buff bot script

[Dabloon]

Here is a buffbot script i made. It may not be the best available but it works. With some exceptions though. I have 8 buffs in the script but it is only casting 5. Im not sure if I have IDs wrong or if its a level issue or a bug. I tested the script on the latest eqemu source and peq db with a level 85 toon.


# A script for a buff bot
sub EVENT_SAY {

if ($text =~/Hail/i)
{ quest::say ("Hello $name. Would you like some [free buffs] or a [heal] to help you on your travels?"); }

if ($text=~/free buffs/i)
{quest::say ("There you go. Enjoy your free buffs");
quest::selfcast(278);
quest::selfcast(457);
quest::selfcast(1693);
quest::selfcast(2176);
quest::selfcast(2177);
quest::selfcast(3692);
quest::selfcast(3467);
quest::selfcast(2570);
}

elsif ($text =~/heal/i)
{ quest::say ("There you go your all patched up $name");
quest::selfcast(13);
}
}

If anyone can tell me whats wrong it would be greatly appreciated

Note: This is my very first perl script
Note2: The smiley face is an 8 not sure why its a smiley face lol

[Zamthos]

"...your all patched up", Hehe. And what do you mean what's wrong with it? It's pretty basic, you could make it more complex, but it's not completely necessary. Question?: Why are the buffs are equal for levels 1-85. I would change quest::say to plugin::Whisper unless you want to flood your chat, my edits below. Sorry for being so blunt. You could also add saylinks.

Edit: Also, post scripts within Code blocks, [ code ]* before, [ /code ]* one line after the end of the script.

*NO Spaces.

# A script for a buff bot
sub EVENT_SAY
{
my $buffs = quest::saylink("Free Buffs", 1);
my $heal = quest::saylink("Heal", 1);

if($text =~/Hail/i)
{
plugin::Whisper("Hello $name. Would you like some [$buffs] or a [$heal] to help you on your travels?");
}

if($text=~/Free Buffs/i)
{
plugin::Whisper("There you go. Enjoy your free buffs");
quest::selfcast(278);
quest::selfcast(457);
quest::selfcast(1693);
quest::selfcast(2176);
quest::selfcast(2177);
quest::selfcast(3692);
quest::selfcast(3467);
quest::selfcast(2570);
}

if($text =~/Heal/i)
{
plugin::Whisper("There you go you're all patched up, $name");
quest::selfcast(13);
}
}

[Dabloon]

The issue i was having is it isnt casting all the buffs and thank you by the way for the tips

[Zamthos]

Is it still not casting all the buffs? And no problem, if you would like a buff bot based upon level, just ask. Haha.

[Dabloon]

That would be great. Made this script as an experiment trying to learn a bit of perl

[Zamthos]

Here you go, all the way to 85.

@SpellName10 = ("Center", "Spirit of Bear", "Feet like Cat", "Dextrous Aura", "Strengthen", "Quickness", "Breeze", "Spirit of Wolf", "Shield of Brambles", "Complete Heal");
@SpellName20 = ("Daring", "Turtle Skin", "Spirit of Cat", "Protection of Rock", "Spirit Strength", "Alacrity", "Clarity", "Spirit of Wolf", "Shield of Spikes", "Complete Heal");
@SpellName30 = ("Bravery", "Spirit of Ox", "Spirit of Cat", "Rising Dexterity", "Raging Strength", "Augmentation", "Clarity II", "Spirit of the Shrew", "Shield of Thorns", "Complete Heal");
@SpellName40 = ("Valor", "Health", "Nimble", "Deftness", "Furious Strength", "Celerity", "Boon of the Clear Mind", "Pack Spirit", "Legacy of Spike", "Complete Heal");
@SpellName50 = ("Blessing of Temperance", "Stamina", "Agility", "Dexterity", "Strength", "Swift like the Wind", "Gift of Pure Thought", "Spirit of Eagle", "Shield of Blades", "Complete Heal");
@SpellName60 = ("Aegolism", "Talisman of the Brute", "Talisman of the Cat", "Mortal Deftness", "Talisman of the Rhino", "Augment", "Koadic's Endless Intellect", "Spirit of Eagle", "Legacy of Thorn", "Complete Heal");
@SpellName65 = ("Virtue", "Focus of the Seventh", "Sylvan Infusion", "Protection of the Nine", "Visions of Grandeur", "Tranquility", "Circle of Seasons", "Spirit of Eagle", "Shield of Bracken", "Complete Heal");
@SpellName70 = ("Hand of Virtue", "Talisman of Wunshi", "Chlorotrope", "Steeloak Skin", "Vallon's Quickening", "Clairvoyance", "Protection of Seasons", "Flight of Eagles", "Nettle Shield", "Complete Heal");


@spellID10 = ("219", "279", "269", "266", "40", "39", "697", "278", "46", "129", "13");
@spellID20 = ("89", "283", "148", "2512", "147", "170", "174", "278", "46", "432", "13");
@spellID30 = ("244", "149", "148", "349", "151", "10", "1693", "4054", "356", "13");
@spellID40 = ("312", "161", "160", "152", "153", "171", "1694", "169", "1727", "13");
@spellID50 = ("4053", "158", "154", "157", "159", "172", "1695", "2517", "1560", "13");
@spellID60 = ("1447", "1580", "1579", "1596", "1581", "1729", "2570", "2517", "1561", "13");
@spellID65 = ("3467", "3397", "4883", "3234", "1710", "3350", "2519", "2517", "3448", "13");
@spellID70 = ("3479", "5415", "5355", "5352", "3178", "5513", "3444", "3185", "5358", "13");



sub EVENT_SAY
{
my $Buff = quest::saylink("buffs", 1);
my $heal = quest::saylink("heal", 1);
my $cure = quest::saylink("cure", 1);
my $speed = quest::saylink("speed", 1);
my $KEI = quest::saylink("KEI", 1);
my $NPCName = $npc->GetCleanName();
my $total = 11;
my $n = 0;
my $Group = $client->GetGroup();

if($text=~/Hail/i)
{
$client->Message(315, "$NPCName whispers to you, 'Hello, $name. Do you need $Buff? If you're in a Group you will get Group Buffs, if you're alone you will get Solo Buffs. Or maybe you need a $cure, $speed, $KEI, or a $heal?'");
}

if($text=~/Heal/i)
{
quest::selfcast(13);
$client->Message(315, "$NPCName whispers to you, 'You have been healed! Enjoy!'");
}

if($text=~/Cure/i)
{
quest::selfcast(11274);
$client->Message(315, "$NPCName whispers to you, 'You have been cured! Enjoy!'");
}

if($text=~/Speed/i)
{
quest::selfcast(1212);
$client->Message(315, "$NPCName whispers to you, 'Enjoy!'");
}

if($text=~/KEI/i)
{
quest::selfcast(2570);
$client->Message(315, "$NPCName whispers to you,' Enjoy!");
}

if($text=~/Buffs/i)
{
if($Group)
{

if($ulevel<=10)
{

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;
}

if($ulevel>=11 && $ulevel<=20)
{

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID20[$n]);
$n++;
}

if($ulevel>=21 && $ulevel<=30)
{

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID30[$n]);
$n++;
}

if($ulevel>=31 && $ulevel<=40)
{

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID40[$n]);
$n++;
}


if($ulevel>=41 && $ulevel<=50)
{

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID50[$n]);
$n++;
}

if($ulevel>=51 && $ulevel<=60)
{

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID60[$n]);
$n++;
}

if($ulevel>=61 && $ulevel<=65)
{

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID65[$n]);
$n++;
}

if($ulevel>=66 && $ulevel<=85)
{

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID70[$n]);
$n++;
}
}
else
{
if ($ulevel <= 10)
{
quest::selfcast(5415);
quest::selfcast(5312);
quest::selfcast(5405);
quest::selfcast(5409);
quest::selfcast(5521);
quest::selfcast(5365);
quest::selfcast(278);
quest::selfcast(939);
quest::selfcast(3391);
quest::selfcast(5390);
$client->Message(315, "$NPCName whispers to you, 'Enjoy!'");
}
if (($ulevel > 10) && ($ulevel < 25))
{
quest::selfcast(5415);
quest::selfcast(5312);
quest::selfcast(5405);
quest::selfcast(5409);
quest::selfcast(5521);
quest::selfcast(5365);
quest::selfcast(278);
quest::selfcast(939);
quest::selfcast(3391);
quest::selfcast(5390);
$client->Message(315, "$NPCName whispers to you, 'Enjoy!'");
}
if (($ulevel >= 25) && ($ulevel < 51))
{
quest::selfcast(5278);
quest::selfcast(5415);
quest::selfcast(5312);
quest::selfcast(5405);
quest::selfcast(5409);
quest::selfcast(5521);
quest::selfcast(5365);
quest::selfcast(278);
quest::selfcast(939);
quest::selfcast(3391);
quest::selfcast(5390);
$client->Message(315, "$NPCName whispers to you, 'Enjoy!'");
}
if ($ulevel >= 51)
{
quest::selfcast(5278);
quest::selfcast(5415);
quest::selfcast(5312);
quest::selfcast(5405);
quest::selfcast(5409);
quest::selfcast(5521);
quest::selfcast(5365);
quest::selfcast(278);
quest::selfcast(939);
quest::selfcast(3391);
quest::selfcast(5390);
$client->Message(315, "$NPCName whispers to you, 'Enjoy!'");
}
}
}
}
}

[Dabloon]

lol that worked great thank you. Casts without saying anything after hail though but great none the less. To be honest im perfectly ok with that. My server isnt that populated (usually just me) so it isnt a big deal and thanks again for the script

[Zamthos]

No problem, haha.

[Dabloon]

One of my future projects is a gambling bot but im net yet working on that 1

[c0ncrete]

instead of the blocks that look like this
$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

$Group->CastGroupSpell($npc, $spellID10[$n]);
$n++;

you can use a single line like this
$Group->CastGroupSpell($npc, $_) for @spellID10;

[Zamthos]

0.o I just happen to have one of those too, but I'd like to see how you make yours before I give you mine. Haha.

[Dabloon]

Reserching for it now hehe

[Zamthos]

Thanks C0ncrete, I wrote that script a while back, almost 2 months ago, hehe.

[Dabloon]

Was thinking of using the rand function to generate random numbers but having issues figuring out how to get it to display the result of rand in quest::say

[Zamthos]

$random_result = 0;
my $random_result = int(rand(##));

Just put this:
quest::say("You rolled a $random_result!");


Edit: Make sure to replace ## with the number you want to be the max value.

[Dabloon]

Thanks man you rock

[Dabloon]

Thanks man you rock

[Dabloon]

If i wanted the npc to give money equal to $random_result would it be something like

quest::givecash("0","0","0","1*$random_result");

[c0ncrete]

there is no need to use quotations around numbers.
there is also no need to multiply a number by 1, since you just get the same number.

[Dabloon]

The idea behind 1*$random_result is like say a player gives 1 platinum and the $random_result is 5 then the player would recieve 5 platinum. Basically 1*5.
Say they gave 2 platinum then it would be 2*$random_result and say the random was 5 the player would then recieve 10 platinum etc etc according to how much plat they gave

[Zamthos]

You would do this:
quest::givecash($copper*$random_result,$silver*$ra ndom_result,$gold*$random_result,$platinum*$random _result);

The way you have yours is a set value rather than how much platinum they actually gave the NPC.

[c0ncrete]

you should also be aware that int(rand(10)) will only ever return 0 - 9.
if you want it to return 1 - 10, you need to use int(rand(10))+1.

[Dabloon]

Thanks for the help guys will try that out

[Zamthos]

You're welcome. May I ask if your server is public or privately hosted?

[Dabloon]

If by public you mean others can play on it then yes its public but its hosted here at my home on a road runner connection.

[Zamthos]

I had Road Runner, they're pretty good, I just hate their router setup, what is the name of your server, sir?

[Dabloon]

FBT double xp no charge buffbot

[Zamthos]

Can you log on so we can play together? Also, is it RoF Compatible?

EDIT: Can't connect, I load for 5 minutes and disconnect.

[Dabloon]

Im on now testing gambling bot and yes ROF should work

[Zamthos]

Your server isn't allowing outside connections, is it port-forwarded correctly? 0.o

[Dabloon]

let me check

[Dabloon]

didnt have one of the ports forwarded to right ip. its fixed now so u can try again if u wish

[Zamthos]

There we go, logging in now.

[Dabloon]

Well gambling bot is working sort of. It skips the second quest::say and returns any plat you give it also it always rolls a 0.

heres the script i have so far

#Script for a gambling bot based on random numbers

sub EVENT_SAY {

if ($text =~/Hail/i)
{ quest::say ("Greetings $name. Would you like to place a [wager]?"); }

if (&text =~/wager/i)
{ quest::say ("You place a wager anywhere from one to ten platinum. I then generate a random number between 0 and 10. It works like this. Wager multiplied by the number generated. If you wish to try your luck give me the number of platinum you wish to wagerand i will generate a number for you.");}

sub EVENT_ITEM {

if($platinum == 1)
{
$random_result = 0;
my $random_result = int(rand(10))+1;}

{ quest::say("You rolled a $random_result!");}
{ quest::givecash("0","0","0","$platinum*$random_result")}
}
}

[Dabloon]

doh just saw the mistake lol an & sing instead of $ oops

[Dabloon]

Ok fixed the quest say but still getting platinum back and the random is always 0

[Zamthos]

Would you like my gambling script?

[Dabloon]

That would be great and i still cant find my mic lol

[Zamthos]

If the roll is what you said you get back five times what you put in.

Here you go:
sub EVENT_SAY
{

my $NPCNAME = $npc->GetCleanName();

if($text=~/hail/i)
{
$client->Message(315, "$NPCNAME whispers to you, 'Hey there $name, up for some gambling? Pick a number from 1-10 by saying \"number #\", give me some money and if you're lucky and I roll your number you will get back five times the amount of money you put in.'");
}
elsif($text=~/number ([0-9]+)/i)
{
$numbers{$name} = $1;
$client->Message(315, "$NPCNAME whispers to you, 'Ok, you picked $1... Hand me your bet and let me grab my dice...'");
}
}

sub EVENT_ITEM
{
my $NPCNAME = $npc->GetCleanName();

if(defined($numbers{$name}))
{
$client->Message(315, "$NPCNAME whispers to you, 'Ok, your bet is $platinum pp, $gold gp, $silver sp, $copper cp. Rolling my dice!'");
$client->Message(315, "$NPCNAME tosses his dice on the ground and looks at the number that comes up.");
$roll = int(rand(9)+0.5) + 1;
plugin::Whisper("The roll is $roll!");

if($roll == $numbers{$name})
{
quest::givecash($copper*5,$silver*5,$gold*5,$plati num*5);
}
else
{
$client->Message(315, "$NPCNAME whispers to you, 'Oh, too bad, you lose, oh well, let me know if you want to try again.'");
}
}
else
{
$client->Message(315, "$NPCNAME whispers to you, 'You have to pick a number first!'");
quest::givecash($copper, $silver, $gold, $platinum);
plugin::return_items(\%itemcount);
}
}

[Dabloon]

lol waiting on the server to catch up bot still using old script even though its been changed and saved

[Zamthos]

Haha, type #reloadpl, the server doesn't naturally reload scripts.

[c0ncrete]

might want to add a check to make sure the client chose a number in the correct range and that it returns all money if no selection was made.

[Dabloon]

The script you posted works for you right?


EDIT: Nm I fixed it by changing plugin::whisper to $client->Message

[volkmeer]

I am trying to use Zamathos's script but it will not cast group buffs only single player. While in a group it will only single character that hails, speed, KEI, cure, heal.

Any ideas on how to get this to work to cast group buffs? Maybe even an option to click group or solo?

I am not a programmer, but I have a solo server for me and my 10 year old step son to play on that I am adding customizations.

Volkmeer

[rencro]

Zamthos released all his code, you can find more info in the link below. In his quests directory, under poearthb, the Verdai.pl script is the one you want. Thanks again Zamthos...

http://www.eqemulator.org/forums/showthread.php?t=37185

[volkmeer]

Perfect works now! Thank you very much!