mirror of
https://github.com/EQEmu/Server.git
synced 2026-09-09 23:46:36 +00:00
Updated Buff your Players (markdown)
TurmoilToad
+673
@@ -160,3 +160,676 @@ sub EVENT_LEVEL_UP {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
```
|
```
|
||||||
|
|
||||||
|
# Player Buffer (PERL)
|
||||||
|
|
||||||
|
* File Name (example): Canary_Morris.pl
|
||||||
|
* Description: 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._
|
||||||
|
|
||||||
|
```perl
|
||||||
|
#:: 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 sub-routine 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;
|
||||||
|
}
|
||||||
|
```
|
||||||
Reference in New Issue
Block a user