$mob->

[KLS]

Deref. does not give the id for CastSpell(spell_id, target_id)

$npc->CastSpell(spellid, $hate_target->GetID())

The member function for setting level on a specific PTR_OBJ is SetLevel()

$client->SetLevel(1, 0);

You can use
$hate_target->GetName() to actually have it say which target is the target by name instead of cryptic pointers

[phinius]

Awesome thanks KLS. The NPC can now actually pick me up as the random hate target, and cast a spell on me. The level function is still not working though, I don't think it knows who to cast it on.

Here's code:

sub EVENT_TIMER{

	if ($timer == 1){

			my $hate_target = $npc->GetHateRandom();
			my $hate_name = $hate_target->GetName();
			my $hate_id = $hate_target->GetID();  
			quest::shout("My hate target is $hate_name"); 
			$npc->CastSpell(1588, $hate_id);
			$client->SetLevel(1, 0);
			}

Anyone have any ideas? If not I may just make the NPC cast some spell that would produce the same sort of end result, but I'd really like it to actually delevel if possible.

[phinius]

Also, an update for anyone wanting to perform this sort of process, I needed to add a line that undefined the hate_target variable so that it would get a new random hate target next time the timer rolled around. Before I did this, it would keep the original hate target indefinately.

sub EVENT_TIMER{

	if ($timer == 1){
			my $hate_target = $npc->GetHateRandom();
			my $hate_name = $hate_target->GetName();
			my $hate_id = $hate_target->GetID();  
			quest::shout("My hate target is $hate_name"); 
			$npc->CastSpell(5051, $hate_id);
			undef $hate_target;
			}

		}

[KLS]

$client shouldn't be exported on timer as there's no client trigger for that event.

if($hate_target->IsClient()){
	$hate_target->SetLevel(1, false);
}

[phinius]

Success! Thanks KLS and everyone else that helped.

Final product for those wanting to do something similar in the future:

sub EVENT_TIMER{

	if ($timer == 1){
			my $hate_target = $npc->GetHateRandom();
			my $hate_name = $hate_target->GetName();
			my $hate_id = $hate_target->GetID();  
			quest::shout("My hate target is $hate_name"); 
			
			if($hate_target->IsClient()){
				$hate_target->SetLevel(1, false);
							}

			undef $hate_target;

			}

		}