##This is npc's spawned x, y location and leash length
$leashlength = 200;

sub EVENT_SPAWN
{
$startingx = $npc->GetX();
$startingy = $npc->GetY();
$startingz = $npc->GetZ();
$startingh = $npc->GetHeading();
}

sub EVENT_COMBAT
{
    if ($combat_state == 1)
        {
            quest::settimer("Rampage", 8);
            quest::settimer("checkleash",5);
        }
    if ($combat_state == 0)
        {
            $npc->SetHP($npc->GetMaxHP());
            $npc->WipeHateList();
            quest::stoptimer("Rampage");
            quest::stoptimer("getclients");
        }
}

sub EVENT_TIMER {
$currentx = $npc->GetX();
$currenty = $npc->GetY() ;
$currentz = $npc->GetZ();

    if($timer eq "checkleash")
    {
        ###This is just the equation for a sphere
        ###(x - x_0 )^2 + (y - y_0 )^2 + ( z - z_0 )^2 = r^2.
        ###

        $leftside = ((($currentx - $startingx)*($currentx-$startingx)) + (($currenty - $startingy)*($currenty -$startingy)) + (($currentz - $startingz)*($currentz - $startingz)));
        $rightside = ($leashlength * $leashlength);
        if($leftside > $rightside)
        {
        $currentx = undef;
        $currenty = undef;
        $currentz = undef;
        $npc->WipeHateList();
        $npc->GMMove($startingx, $startingy, $startingz, $startingh);
        quest::stoptimer("checkleash");
        quest::settimer("checkleash",5);
        }
    }

if ($timer eq "Rampage") {
quest::stoptimer("Rampage");
my $TimeRA = quest::ChooseRandom(8);
quest::settimer("getclientsRAMPAGE", $TimeRA);
  }

####################################
##########AE RAMPAGE##################
#####################################
  if ($timer eq "getclientsRAMPAGE") {
  $cmname = $npc->GetCleanName();
  my $MaxDam = $npc->GetMaxDMG();
  my $ShieldMaxDam = ($MaxDam * .35);
  my $ShieldMinDam = $ShieldMaxDam / 2;
  my $DamageVar = ($ShieldMaxDam - $ShieldMinDam);

  $entity_list->MessageClose($npc, 1, 200, 13, "$cmname goes on a WILD KMRA RAMPAGE");

  my $list_check = 0;

  for ($list_check = 0; $list_check < 2000; $list_check++) {

  $client_search = $entity_list->GetClientByID($list_check);

    if ($client_search) {
    my $distanceCHK = $client_search->CalculateDistance($x, $y, $z);
    my $PLTarget = $npc->GetTarget();
    my $TargID = $PLTarget->GetID();
    my $ClID = $client_search->GetID();
    my $RampDamageVar = (int(rand($DamageVar ))) + (int($ShieldMinDam));

        if (($distanceCHK <= 325) && ($TargID != $ClID)) {
        $client_search->Damage($npc, $RampDamageVar, 7477, 1, true, -1, false);
        $client_search->Message(13, "$cmname hits YOU for $RampDamageVar points of damage" );
                            }

}
}
}
############################################################
############################################################
############################################################
}