This is a simple one I use. Replace spell ids with what you want instead.
Code:
sub EVENT_SAY
{
my $buffs = quest::saylink("buffs");
if($text=~/Hail/i)
{
quest::say("Greetings $name. Would you like some [$buffs]?");
}
if($text=~/buffs/i)
{
quest::selfcast(18323);
quest::selfcast(5521);
quest::selfcast(19426);
quest::selfcast(5405);
quest::selfcast(9868);
quest::selfcast(10211);
quest::selfcast(10031);
}
}