A little Help with Script.

[Almusious]

#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);
				}
			}
		}
	}
}