$mob->

phinius · #1 08-28-2008, 03:09 PM

I dereferenced as Andrew said. I googled it and from what I found all you need to do is add an extra $. So here is my new code:

Code:

sub EVENT_ATTACK{

quest::shout("rawr");
quest::settimer(1, 10);


		}




sub EVENT_TIMER{

	if ($timer == 1){

			my $hate_target = $npc->GetHateRandom();  
			quest::shout("My hate target is $$hate_target"); 
			$npc->CastSpell(1588, $$hate_target);
			quest::level(1);
			quest::shout("k");
			}

		}

The npc now returns:

Code:

My hate target is 122026464

No zone crash, but the npc will not cast the spell on me, the number is not directing to me. The NPC casts the spell, but is then interrupted, I assume because it has no valid target. Is the GetHateRandom function not working?

Also, the only way the script will get to my "k" shout, is if the level(1) line is a quest::, it will not progress to the shout if it is a $client->level or $npc->level. It also does not actually level me to 1.

**KLS** · #2 08-28-2008, 03:31 PM

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 · #3 08-28-2008, 04:22 PM

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:

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 · #4 08-28-2008, 05:30 PM

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.

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(5051, $hate_id);
			undef $hate_target;
			}

		}

**KLS** · #5 08-28-2008, 06:05 PM

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

Code:

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

phinius · #6 08-28-2008, 07:05 PM

Success! Thanks KLS and everyone else that helped.

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

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"); 
			
			if($hate_target->IsClient()){
				$hate_target->SetLevel(1, false);
							}

			undef $hate_target;

			}

		}