$mob->

phinius · #1 08-27-2008, 12:38 AM

What's the deal with these? Been trying to use a few commands from http://www.eqemulator.net/wiki/wikka...a=QuestObjects
but nothing is working. Started with some of the more complex stuff, and worked my way down to $mob->gate(); which is not working for me either.

Code:

sub EVENT_ATTACK{

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


		}

sub EVENT_TIMER{

	if ($timer == 1){

		quest::shout("BAM");
		$mob->gate();
			}

		}

**trevius** · #2 08-27-2008, 03:31 AM

Some of those are a little tricky to get working and some don't work at all I think.

Sometimes you might need to do $entity_list->gate(); or $npc->gate(); or something like that instead. And some of them, you need to get the mob ID first.

Here is a way to get the NPC ID and use it for something. I don't know if this would work, but I use something like this for adding hate to NPCs and other things:

Code:

my $gating_npc = $entity_list->GetMobByNpcTypeID(2120410);

  if ($gating_npc) {
    my $gate_now = $gating_npc->CastToNPC();
    $gate_now->gate(); }

The only thing that I know of that uses $mob is the SetHP() command.

phinius · #3 08-27-2008, 01:18 PM

Thanks Trevius. Well in that case I guess I will go ahead and post what I'm actually tryng to do.

I want a mob to randomly pick someone on the hate list and set their level to 1.
I was referencing AndMetal's post here: http://www.eqemulator.net/forums/showthread.php?t=25588 where he suggests using:

Code:

$mob->GetHateRandom();

and then using that charid to cast a spell on a random person.

Code:

$mob->CastSpell(123, $mob->GetHateRandom());

He stated he was not sure if it would work, and I don't believe it is. I was using this script to test wether or not it was getting a charid. I believe I also tried $npc->castspell.

If GetHateRandom is working, how would I direct:

Code:

quest::level(1)

or

Code:

$mob->SetLevel(in_level, command= false)

to the randomly selected guy on the hate list?

**trevius** · #4 08-27-2008, 05:11 PM

Once you have the client chosen, the quest::level command should work fine.

One thing I tend to do when I am testing is to use quest::say to verify if/what is being passed on or selected. So, in your case, you could do:

Code:

my $hate_target = $mob->GetHateRandom();  #this may need to be $npc instead of $mob

quest::say("My hate target is $hate_target."); #this will show if it selected someone or not and which one it selected

$npc->CastSpell(123, $hate_target);
quest::level(1);

I used a variable of $hate_target, cause I think using variables is a good way to replace certain things and to get them to run properly.

phinius · #5 08-27-2008, 05:15 PM

Ok, I will try that.

Thanks again Trevius.

phinius · #6 08-27-2008, 11:13 PM

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

Code:

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

Any idea what that could mean?

Andrew80k · #7 08-27-2008, 11:31 PM

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** · #8 08-27-2008, 11:32 PM

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:

Code:

$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** · #9 08-27-2008, 11:44 PM

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 · #10 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** · #11 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 · #12 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 · #13 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** · #14 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 · #15 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;

			}

		}