$mob->

[phinius]

Ok, I will try that.

Thanks again Trevius.

[phinius]

Tried this out, did have to use $npc instead of $mob. My mob relayed this message, and then it crashed zone.exe:

My hate target is Mob=SCALAR(0x218b6fc).

Any idea what that could mean?

[Andrew80k]

You need to dereference your return value. You are getting a reference instead of a value. Looks like a mob object. So you need to dereference the object.

[trevius]

I don't know exactly what the numbers and stuff mean, but that does mean that it was able to get at least some target, and probably it was the random hate target you wanted.

The zone crash could possibly have been caused by the leveling part of the quest. So, I would next try to remove the quest::level line and see if you can at least get the rest of it working without the zone crashes.

If that works, then you just need to keep messing around until you can figure out how to get the level part working. It may be that you will have to use level quest object command something like this instead:

$npc->SetLevel(1, false); #it might need to be $client instead of $npc

I am not sure I have the settings for that command set properly, but I imagine that the quest object might work better for the leveling part in this situation.

[KLS]

The numbers are an internal memory address used by perl to track the object pointer.

$npc should work for most things. npc:: inherits from mob:: so you should be able to use just about anything mob from a npc object.

[phinius]

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:

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:

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]

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.