GetRandomClient

[Esildor]

Does this function not work?

I'm trying this with no luck:

	if ($timer eq "random_stun"){
		my $RandClient = $entity_list->GetRandomClient($MyX, $MyY, $MyY, 300, 0);
			$npc->CastSpell(5050,$RandClient);

I also tried this, but I added the 0 in the above example because the syntax on the perl reference is: GetRandomClient(x, y, z, range, ClientToExclude) .. thought maybe I needed to 'clienttoexclude'

my $RandClient = $entity_list->GetRandomClient($MyX, $MyY, $MyY, 300);

[Kayen]

Pretty sure, CastSpell requires Target ID

	if ($timer eq "random_stun"){
		my $RandClient = $entity_list->GetRandomClient($MyX, $MyY, $MyY, 300, 0);
                      if ($RandomClient){
			$npc->CastSpell(5050,$RandClient->GetID());
                     }
             }

[Esildor]

Got it working, for future reference if anyone needs it:

sub EVENT_AGGRO {
	quest::shout("I was aggroed");
	quest::settimer("random_nuke", 8);
	quest::settimer("random_dot", 11);
	quest::settimer("random_stun", 3);
	}
	
	
	
sub EVENT_TIMER {	
	if ($timer eq "random_stun"){
		$x = $npc->GetX();
		$y = $npc->GetY();
		$z = $npc->GetZ();
		my $RandClient = $entity_list->GetRandomClient($x, $y, $z, 400, 0);
		my $RandName = $RandClient->GetName();
		my $RandID = $RandClient->GetID();
		$npc->CastSpell(5050,$RandID);
		quest::shout("Be stunned $RandName");
		}
	if ($timer eq "random_nuke"){
		$x = $npc->GetX();
		$y = $npc->GetY();
		$z = $npc->GetZ();
		my $RandClient = $entity_list->GetRandomClient($x, $y, $z, 400, 0);
		my $RandName = $RandClient->GetName();
		my $RandID = $RandClient->GetID();
		$npc->CastSpell(5075,$RandID);
		quest::shout("Be nuked $RandName");
		}
	if ($timer eq "random_dot"){
		$x = $npc->GetX();
		$y = $npc->GetY();
		$z = $npc->GetZ();
		my $RandClient = $entity_list->GetRandomClient($x, $y, $z, 400, 0);
		my $RandName = $RandClient->GetName();
		my $RandID = $RandClient->GetID();
		$npc->CastSpell(5049,$RandID);
		quest::shout("Be dotted $RandName");
		}
	}