Code:
#Mob scaling
use Scalar::Util qw(looks_like_number);
sub EVENT_SAY {
if (!defined(plugin::REV($client, "operationmode")) || plugin::REV($client, "operationmode") eq '') {
if ($text =~/Hail/i) {
plugin::Whisper("Are you ready to [".quest::saylink("Scale Level", 1, "ScaleLevel")."], [".quest::saylink("Scale HP", 1, "ScaleHP")."]");
}
elsif ($text =~/Scale Level/i) {
$client->SetEntityVariable("operationmode", "level");
$client->Message(4, "What Level?");
}
elsif ($text =~/Scale HP/i) {
$client->SetEntityVariable("operationmode", "hp");
$client->Message(4, "What HP?");
}
} else {
if (looks_like_number($text)) {
my @npclist = $entity_list->GetNPCList();
if (plugin::REV($client, "operationmode") eq 'level') {
$client->SetEntityVariable("operationmode", "");
foreach my $singlenpc (@npclist) {
$singlenpc->SetLevel($text);
}
} else {
$client->SetEntityVariable("operationmode", "");
my @npclist = $entity_list->GetNPCList();
foreach my $singlenpc (@npclist) {
$singlenpc->ModifyNPCStat("max_hp",$min);
}
}
}
}
}