Heading (LookAt x/y) and a bit more...

[t0neg0d]

Couple functions and their usage...

The first (GetRandomPointAround) will get a random location around the destination coords and at the given min/max radius.

The second (LookAt) will return the correct heading to face any $mob towards a given x/y loc.

SomePlugin.pl

# PARAMS: x coord, y coord, min radius, max radius
sub GetRandomPointAround {
my $x = shift;
my $y = shift;
my $minradius = shift;
my $maxradius = shift;

my $angle = rand(360);
my $radius = $minradius+rand($maxradius-$minradius);

my $ax = ($radius * sin($angle)) + $x;
my $ay = ($radius * cos($angle)) + $y;

my @ret = ($ax,$ay);
return @ret;
}

# PARAMS: origin mob, lookat x coord, lookat y coord
sub LookAt {
my $origin = shift;
my $x2 = shift;
my $y2 = shift;

my $laa = atan2(($origin->GetX()-$x2),($origin->GetY()-$y2));
$laa *= 180;
$laa /= 3.14;
$laa /= 360;
$laa *= 512;
$laa -= 256;

return $laa;

# Or comment out above from 'my $laa = ' and use:
# return ((((atan2(($origin->GetX()-$x2),($origin->GetY()-$y2))*180)/3.14)/360)*512)-256;
}


Test case: SomeNPC.pl

my @baseloc = (1221.84, -530.34, 69.41, 172);
my @nextloc;

sub EVENT_SAY {
if ($text=~/Hail/i) {
@nextloc = ( plugin::GetRandomPointAround($baseloc[0],$baseloc[1],10,14) );

quest::moveto(
$nextloc[0],
$nextloc[1],
$baseloc[2]
);
}
}

sub EVENT_WAYPOINT_ARRIVE {
$npc->SaveGuardSpot(
$nextloc[0],
$nextloc[1],
$baseloc[2],
plugin::LookAt($npc,$baseloc[0],$baseloc[1])
);
}