perminent dancing npc

[pepsiphreak79]

ty for the help here is the base code that triggers her on approach to dance

ill be adding more things at some date like starting in a robe and taking it off with the modelchange when she is given plat

sub EVENT_SPAWN
{
	plugin::SetProx(20, 10);
}

sub EVENT_ENTER {
  quest::shout("I'm ready to get dirty Are you?");
  quest::settimer("dance",1);
}

sub EVENT_EXIT {
  quest::say("Come back any time!");
  quest::stoptimer("dance");;
}

sub EVENT_TIMER {

     if ($timer eq "dance")
     {
     quest::doanim(58);
     quest::settimer("dance",1);
     }
}




sub EVENT_SAY {
if($text =~ /Hail/i) {
	quest::say("Hello $name");
	quest::setanim(58); 
}
}

added this to my anim.pl plugin

#Akkadius
#Usage plugin::SetProx(X/Y Axis Range, Z Axis Range);
sub SetProx{	
	my $Range = $_[0];
	my $Z = $_[1];
	my $x = plugin::val('$x');
	my $y = plugin::val('$y');
	my $npc = plugin::val('$npc');
	my $z = $npc->GetZ();
	quest::set_proximity($x - $Range, $x + $Range, $y - $Range, $y + $Range, $z - $Z, $z + $Z);
	}