Skip to content

Player Buffer Scripts

Discipline Trainer

This script will allow an NPC to train all available disciplines up to the player's current level.

sub EVENT_SAY {
    #:: Match text for "hail", case insensitive
    if ($text=~/hail/i) {
        #:: Send a message that only the client can see, in yellow (15) text
        $client->Message(15, "With just one look, I can see that you have forgotten the finer points of combat, $name.  Would you like me to [" . quest::saylink("teach") . "] you how to perform the skills that require more discipline than the basics?");
    }
    #:: Match text for "teach", case insensitive
    elsif ($text=~/teach/i) {
        #:: Clear out any existing disciplines (optional)
        quest::untraindiscs();
        #:: Train all disciplines up to the user's level
        quest::traindiscs($ulevel, 0);
        #:: Send a message that only the client can see, in yellow (15) text
        $client->Message(15, "You look like a more fierce combatant already! Go out and test your new abilities!");
        #:: Play a Ding! sound
        quest::ding();
    }
}

sub EVENT_ITEM {
    #:: Return unused items since we don't expect any handins
    plugin::returnUnusedItems();
}

If you would prefer that your players do not have to interact with an NPC, it is quite simple to add all new disciplines each time a player levels using a script. You would simply add this snippet to your global quest script file.

This script will train all new disciplines when a player levels up:

sub EVENT_LEVEL_UP {
    #:: Train all disciplines, maximum set to player's level, minimum set to the level prior
    quest::traindiscs($ulevel,$ulevel - 1);
}
function event_level_up(e)
    -- Train all disciplines up to current level
    eq.train_discs(e.self:GetLevel());
end

Spell Scriber

This script will scribe all available spells (or songs) up to the player's current level.

sub EVENT_SAY {
    #:: Match text for "hail", case insensitive
    if ($text=~/hail/i) {
        #:: Separate response for melee classes--match classes using a string comparison (eq)
        if ($class eq 'Berserker' || $class eq 'Monk' || $class eq 'Rogue' || $class eq 'Warrior') {
            #:: Send a message that only the client can see, in yellow (15) text
            $client->Message(15, "Young fighter, I am the greatest spell scribe Norrath has ever seen--I do not waste my time on brutes like you!");
        }
        #:: Separate response for bards, who are always special
        elsif ($class eq 'Bard') {
            #:: Send a message that only the client can see, in yellow (15) text
            $client->Message(15, "With just one look, I can see that your songbook is lacking, $name.  Would you like me to [" . quest::saylink("scribe") . "] all of the known $class songs for you?");
        }
        #:: Separate response for casting classes
        elsif ($class eq 'Beastlord' || $class eq 'Cleric' || $class eq 'Druid' || $class eq 'Enchanter' || $class eq 'Magician' || $class eq 'Necromancer' || $class eq 'Paladin' || $class eq 'Ranger' || $class eq 'Shadowknight' || $class eq 'Shaman' || $class eq 'Wizard') {
            #:: Send a message that only the client can see, in yellow (15) text
            $client->Message(15, "With just one look, I can see that your spellbook is lacking, $name.  Would you like me to [" . quest::saylink("scribe") . "] all of the known $class spells for you?");
        }
    }
    #:: Match text for "scribe", case insensitive
    elsif ($text=~/scribe/i) {
        if ($class eq 'Bard' || $class eq 'Beastlord' || $class eq 'Cleric' || $class eq 'Druid' || $class eq 'Enchanter' || $class eq 'Magician' || $class eq 'Necromancer' || $class eq 'Paladin' || $class eq 'Ranger' || $class eq 'Shadowknight' || $class eq 'Shaman' || $class eq 'Wizard') {
            #:: Clear out any existing spells
            quest::unscribespells();
            #:: Scribe all spells up to the user's level
            quest::scribespells($ulevel, 0);
            #:: Send a message that only the client can see, in yellow (15) text
            $client->Message(15, "You look like a more powerful caster already! Go out and test your new spells!");
            #:: Play a Ding! sound
            quest::ding();
        }
        elsif ($class eq 'Berserker' || $class eq 'Monk' || $class eq 'Rogue' || $class eq 'Warrior') {
            $client->Message(15, "Begone, $class--lest I turn you into froglok tad!");
        }
    }
}

sub EVENT_ITEM {
    #:: Return unused items since we don't expect any handins
    plugin::returnUnusedItems();
}

As with disciplines, if you would prefer that your players do not have to interact with an NPC, it is quite simple to add all new spells/songs each time a player levels adding a snippet to your global quest file.

This script will scribe all new spells/songs when a player levels up.

sub EVENT_LEVEL_UP {
    #:: Scribe all spells/songs, maximum set to player's level, minimum set to the level prior
    quest::scribespells($ulevel,$ulevel - 1);
}
function event_level_up(e)
    -- Scribe all spells up to current level
    eq.scribe_spells(e.self:GetLevel());
end

Skill Maxer

This script will set all available skills to their maximum amount at the player's current level.

sub EVENT_SAY {
    #:: Match text for "hail", case insensitive
    if ($text=~/hail/i) {
        #:: Send a message that only the client can see, in yellow (15) text
        $client->Message(15, "Hello, $name!  It appears you could use some help with your [" . quest::saylink("skills") . "].  Would you like me to teach you?");
    }
    #:: Match text for "skills", case insensitive
    elsif ($text=~/skills/i) {
        #:: Set available (non-trade, non-casting specialization) skills to maximum for race/class at current level
        foreach my $skill ( 0 .. 42, 48 .. 54, 70 .. 74 ) {
            next unless $client->CanHaveSkill($skill);
            #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
            #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill > $client->GetRawSkill($skill);
            #:: Set the skill to the maximum
            $client->SetSkill($skill, $maxSkill);
        }
        #:: Send a message that only the client can see, in yellow (15) text
        $client->Message(15, "You look like a more capable $class already! Go out and test your new skills!");
        #:: Play a Ding! sound
        quest::ding();
    }
}

sub EVENT_ITEM {
    #:: Return unused items since we don't expect any handins
    plugin::returnUnusedItems();
}

As with spells and disciplines, if you would prefer that your players do not have to interact with an NPC, it is quite simple to max all skills each time a player levels by adding a snippet to your global quest file.

This script will max all skills when a player levels up.

sub EVENT_LEVEL_UP {
    #:: Set available (non-trade, non-casting specialization) skills to maximum for race/class at current level
    foreach my $skill ( 0 .. 42, 48 .. 54, 70 .. 74 ) {
        next unless $client->CanHaveSkill($skill);
        #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
        my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
        #:: Check that the player's skill does not already exceed the maximum skill based on level
        next unless $maxSkill > $client->GetRawSkill($skill);
        #:: Set the skill to the maximum
        $client->SetSkill($skill, $maxSkill);
    }
}
function event_level_up(e)
     local skills = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 48, 49, 50, 51, 52, 53, 54, 56, 62, 66, 67, 70, 71, 72, 73, 74 };
     for i, curskill in ipairs(skills) do
          local maxskill = e.self:MaxSkill(curskill);
          if (e.self:CanHaveSkill(curskill) == false) then
               --Do nothing
          elseif (maxskill <= e.self:GetRawSkill(curskill)) then
               --Do nothing
          else
               --Do Training
               e.self:SetSkill(curskill, maxskill);
          end
     end
end

Player Buffer

This script will provide buffs and cures to the player and/or the player's pet, or the player's group and their pets, and will bind the player to the area. The NPC will charge the player for the good buffs.

Credit to Maze who created the original version of this script, which has been adapted for use on this wiki.

#:: Create a scalar vaiable to store the maximum level of buffs
$maxlevelbuffs = 70;
#:: Create a hash to define spells cast at each 10 levels, and their cost
#:: Keys are by each 10 levels, with differentiation for spells ranked as generic vs. advanced
#:: Values are each spell, by id, and the cost in platinum for each rank
%buffshash = (
    #:: Hash for Warriors
    1 => 
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10costadvanced =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Clerics
    2 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Paladins
    3 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Ranger
    4 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Shadow Knight
    5 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Druid
    6 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Monk
    7 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Bard
    8 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Rogue
    9 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Shaman
    10 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Necromancer
    11 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Wizard
    12 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },  
    #:: Hash for Magician
    13 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Enchanter
    14 =>
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Beastlord
    15 => 
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    },
    #:: Hash for Berserker
    16 => 
    {
        level10generic      =>  [276,278,219,368,146,148,279,129],
        level10costgeneric  =>  0,
        level10advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level10costadvanced =>  100,
        level20generic      =>  [276,278,219,368,146,148,279,129],
        level20costgeneric  =>  0,
        level20advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level20costadvanced =>  100,
        level30generic      =>  [276,278,219,368,146,148,279,129],
        level30costgeneric  =>  0,
        level30advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level30costadvanced =>  100,
        level40generic      =>  [276,278,219,368,146,148,279,129],
        level40costgeneric  =>  0,
        level40advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level40costadvanced =>  100,
        level50generic      =>  [276,278,219,368,146,148,279,129],
        level50costgeneric  =>  0,
        level50advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level50costadvanced =>  100,
        level60generic      =>  [276,278,219,368,146,148,279,129],
        level60costgeneric  =>  0,
        level60advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level60costadvanced =>  100,
        level70generic      =>  [276,278,219,368,146,148,279,129],
        level70costgeneric  =>  0,
        level70advanced     =>  [3692,2505,423,356,172,64,145,1693,15,60,61,46,2524],
        level70costadvanced =>  100,
    }
);


sub EVENT_SAY {
    #:: Create a scalar variable to store the cost of group buffs
    my $groupbuffmaxcost = 0;
    #:: Match text for "hail", case insensitive
    if ($text =~/Hail/i) { 
        quest::say("Greetings $name. I have been sent to aid you on your journey! Would you like some [".quest::saylink("lesser buffs",1)."] for ".$buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costgeneric"}."pp, or some [".quest::saylink("greater blessings",1)."] for ".$buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costadvanced"}."pp?");
        #:: Check to see if the player is grouped
        if ($client->IsGrouped()) {
            #:: Create a scalar variable to store the group
            $buffgroup = $entity_list->GetGroupByClient($client);
            #:: Create a loop to count how many members are in the group
            for ($count = 0; $count < $buffgroup->GroupCount(); $count++) {
                #:: Create a scalar variable to store the group member count
                my $groupmember = $buffgroup->GetMember($count);
                #:: Make sure that each group member is in zone before charging for them
                if ($groupmember->GetZoneID() == $zoneid) {
                    #:: Create a scalar variable to store the cost of the buffs
                    $groupbuffmaxcost += ($buffshash{$groupmember->GetClass()}->{"level".round_up($groupmember->GetLevel())."costadvanced"});
                }
            }
            quest::say("Since you are grouped, you can also get the best [".quest::saylink("group blessings",1)."] for ".$groupbuffmaxcost."pp");
        }
        quest::say("To [".quest::saylink ("cure", 1)."] you and/or your pet is free.");
        quest::say("Or I can [".quest::saylink ("bind", 1)."] you to this location at no cost.");
    }
    #:: Match text for "lesser buffs", case insensitive
    elsif ($text=~/lesser buffs/i) {
        #:: Make sure the player has enough plat for the buffs
        if ($client->GetCarriedMoney() >= (($buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costgeneric"}) * 1000)) {
            #:: Create an array of the buffs to be cast on the player
            my @buffstocast = @{$buffshash{$client->GetClass()}->{"level".round_up($ulevel)."generic"}};
            #:: Create a loop to cast each buff in the hash for the pet (if it exists) and then the player
            foreach my $buff (@buffstocast) {
                #:: Check to see if the player has a pet
                if ($client->GetPetID()) {
                    #:: Create a scalar variable to store the pet by ID
                    my $pcpet = $entity_list->GetMobByID($client->GetPetID());
                    #:: Buff the pet
                    $client->SpellFinished ($buff, $pcpet);
                }
                #:: Buff the player
                quest::selfcast ($buff);
            }
            #:: Take payment for the buffs
            $client->TakeMoneyFromPP((($buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costgeneric"}) * 1000), 1) unless ($buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costgeneric"}) == 0;
        }
        else {
            #:: Match if the player does not have enough plat
            quest::say("I charge ".($buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costgeneric"})."pp for lesser buffs, you don't appear to have enough on you.");
        }
    }
    #:: Match text for "greater blessings", case insensitive
    elsif ($text =~/greater blessings/i) {
        #:: Make sure the player has enough plat for the buffs
        if ($client->GetCarriedMoney() >= (($buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costadvanced"}) * 1000)) {
            #:: Create an array of the buffs to be cast on the player
            my @buffstocast = @{$buffshash{$client->GetClass()}->{"level".round_up($ulevel)."advanced"}};
            #:: Create a loop to cast each buff in the hash for the pet (if it exists) and then the player
            foreach my $buff (@buffstocast) {
                #:: Check to see if the player has a pet
                if ($client->GetPetID()) {
                    #:: Create a scalar variable to store the pet by ID
                    my $pcpet = $entity_list->GetMobByID($client->GetPetID());
                    #:: Buff the pet
                    $client->SpellFinished ($buff, $pcpet);
                }
                #:: Buff the player
                quest::selfcast ($buff);
            }
            #:: Take payment for the buffs
            $client->TakeMoneyFromPP((($buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costadvanced"}) * 1000), 1) unless ($buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costadvanced"}) == 0;
        }
        else {
            #:: Match if the player does not have enough plat
            quest::say("I charge ".($buffshash{$client->GetClass()}->{"level".round_up($ulevel)."costadvanced"})."pp for greater blessings, you don't appear to have enough on you.");
        }
    }
    #:: Match text for "group blessings", case insensitive, and if the player is grouped
    elsif ($text =~ /group blessings/i && $client->IsGrouped()) {
        #:: Make sure the player has enough plat for the buffs
        if ($client->GetCarriedMoney() >= (($buffshash{$client->GetClass()}->{"level".$maxlevelbuffs."costadvanced"}) * 1000 * $buffgroup->GroupCount())) {
            #:: Create a loop to count the group members
            for ($count = 0; $count < $buffgroup->GroupCount(); $count++) {
                #:: Create a scalar variable to store the group member count
                my $groupmember = $buffgroup->GetMember($count);
                #:: Make sure that each group member is in zone before charging for them
                if ($groupmember->GetZoneID() == $zoneid) {
                    #:: Take payment for the buffs
                    $client->TakeMoneyFromPP((($buffshash{$groupmember->GetClass()}->{"level".round_up($groupmember->GetLevel())."costadvanced"}) * 1000), 1) unless ($buffshash{$groupmember->GetClass()}->{"level".round_up($groupmember->GetLevel())."costadvanced"}) == 0;
                    #:: Create an array of the buffs to be cast on each player
                    my @buffstocast = @{$buffshash{$groupmember->GetClass()}->{"level".round_up($groupmember->GetLevel())."advanced"}};
                    #:: Create a loop to cast each buff in the hash for each group member pet (if any exist) and then each group member
                    foreach my $buff (@buffstocast) {
                        #:: Check to see if the player has a pet
                        if ($groupmember->GetPetID()) {
                            #:: Create a scalar variable to store the pet by ID
                            my $groupmemberpet = $entity_list->GetMobByID($groupmember->GetPetID());
                            #:: Buff the pet
                            $groupmember->SpellFinished ($buff, $groupmemberpet);
                        }
                        #:: Buff the group members
                        $groupmember->SpellFinished ($buff, $groupmember);
                    }
                #:: Create an on-screen message for each group member so they know who to thank for the buffs
                $groupmember->SendMarqueeMessage(15, 510, 1, 1, 3000, "You've been buffed compliments of ".$client->GetCleanName()."!");
                }           
            }
        }
        else {
            #:: Match if the player does not have enough plat
            quest::say("I charge a maximum of ".(($buffshash{$client->GetClass()}->{"level".$maxlevelbuffs."costadvanced"}) * $buffgroup->GroupCount())."pp to cast buffs on your entire group.  You don't appear to have enough!");
        }   
    }
    #:: Match text for "cure", case insensitive
    elsif ($text=~/cure/i) { 
        #:: Check to see if the player has a pet
        if ($client->GetPetID()) {
            #:: Create a scalar variable to store the pet by ID
            my $pppet = $entity_list->GetMobByID($client->GetPetID());
            #:: Cure the pet
            $client->SpellFinished (6594, $pppet);
        }
        #:: Cure the player
        $client->SpellFinished(6594); 
    }
    #:: Match text for "bind", case insensitive
    elsif ($text=~/bind/i) {
        #:: Bind the player
        quest::selfcast(35);
    }
}

#:: This is a subroutine to round up to the nearest 10 levels
sub round_up {
    my $n = shift;
    my $scale = 10**int(log($n)/log(10));
    $n = 9 if $scale == 1;
    if ($n > $scale) {
        $n = int($n/$scale+1)*$scale;
    }
    $n;
}
Back to top