EQEmulator Forums - The Buffer Perl Script;: By Cameron13

sub EVENT_SAY
{
if ($text=~ /Hail/i){quest::say(" Hello There Young $class. i haven't seen too many $race 's around here lately. do you require [buffs] or [healing]?");}
if ($text=~ /Buffs/i){quest::say("We have lots of buffs here. what would you like? [HP/AC] [DS] [MOVEMENT] [HEAL] [BIND] or a [SHAPESHIFT]");}
if ($text=~ /HP/i){quest::say(" [NatureSkin] [Skin like Wood][Skin like Steel][Hand of Virtue]");}
if ($text=~ /DS/i){quest::say(" [Bramblecoat][Shield of thistles][Firefist][Shield of Barbs] [Shield of Thorns] "); }
if ($text=~ /Movement/i){quest::say(" [SOE] [SOW] "); }
if ($text=~ /Heal/i){quest::say(" May light pass through you, and your brothers"); }
if ($text=~ /Bind/i){quest::say("May God Bless You And his Workers"); }
if ($text=~ /Shapeshift/i){quest::say(" [Wolf][Drybones][Scalewolf] [Lich]"); }
if ($text=~ /NatureSkin/i){quest::castspell($userid,1559); }
if ($text=~ /Skin Like Wood/i){quest::castspell($userid,2110); }
if ($text=~ /Skin Like Steel/i){quest::castspell($userid,421); }
if ($text=~ /Hand of Virtue/i){quest::castspell($userid,3479); }
if ($text=~ /Bramblecoat/i){quest::castspell($userid,517); }
if ($text=~ /Shield of Thistles/i){quest::castspell($userid,259); }
if ($text=~ /FireFist/i){quest::castspell($userid,254); }
if ($text=~ /Shield of Barbs/i){quest::castspell($userid,273); }
if ($text=~ /Shield of Thorns/i){quest::castspell($userid,356); }
if ($text=~ /SOE/i){quest::castspell($userid,2517); }
if ($text=~ /SOW/i){quest::castspell($userid,1776); }
if ($text=~ /Heal/i){quest::castspell($userid,2697); }
if ($text=~ /Wolf/i){quest::castspell($userid,425); }
if ($text=~ /DryBones/i){quest::castspell($userid,596); }
if ($text=~ /ScaleWolf/i){quest::castspell($userid,3586); }
if ($text=~ /Imp/i){quest::castspell($userid,2565); }
}