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(27
;
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