mirror of
https://github.com/EQEmu/Server.git
synced 2026-03-09 17:32:29 +00:00
Destroyed Buff your Players (mediawiki)
TurmoilToad
parent
a4915c4833
commit
e21b47a49d
@ -1,837 +0,0 @@
|
||||
Below are some examples of quest scripts for NPCs that can buff your players. These scripts would go in your quest scripts directory, and would be named appropriately based on the NPC that you will create to buff your players.
|
||||
|
||||
__TOC__
|
||||
|
||||
== Discipline Trainer (PERL) ==
|
||||
|
||||
* File Name (example): Dave_the_Disciplinarian.pl
|
||||
* Description: This script will train all available disciplines up to the player's current level.
|
||||
|
||||
```perl
|
||||
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 perl script:
|
||||
|
||||
* File Name: global/global_player.pl (add this code to the existing script file)
|
||||
* Description: This script will train all new disciplines when a player levels up.
|
||||
|
||||
```perl
|
||||
sub EVENT_LEVEL_UP {
|
||||
#:: Train all disciplines, maximum set to player's level, minimum set to the level prior
|
||||
quest::traindiscs($ulevel,$ulevel - 1);
|
||||
}
|
||||
```
|
||||
|
||||
|
||||
== Spell Scriber (PERL) ==
|
||||
|
||||
* File Name (example): Skippy_the_Scribe.pl
|
||||
* Description: This script will scribe all available spells (or songs) up to the player's current level.
|
||||
|
||||
```perl
|
||||
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 using a perl script:
|
||||
|
||||
* File Name: global/global_player.pl (add this code to the existing script file)
|
||||
* Description: This script will scribe all new spells/songs when a player levels up.
|
||||
|
||||
```perl
|
||||
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);
|
||||
}
|
||||
```
|
||||
|
||||
== Skill Maxer (PERL) ==
|
||||
|
||||
* File Name (example): Scotty_the_Skilled.pl
|
||||
* Description: This script will set all available skills to maximum at the player's current level.
|
||||
|
||||
```perl
|
||||
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 using a perl script:
|
||||
|
||||
* File Name: global/global_player.pl (add this code to the existing script file)
|
||||
* Description: This script will max all skills when a player levels up.
|
||||
|
||||
```perl
|
||||
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);
|
||||
}
|
||||
}
|
||||
```
|
||||
|
||||
== 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;
|
||||
}
|
||||
```
|
||||
Loading…
x
Reference in New Issue
Block a user