Question about Perl Quest Stuff

[xtestx]

I do not understand all this Perl Quest stuff... I see a bunch of code that looks and makes sense but then... wtf do I do with it? like this one

sub EVENT_SAY{ 
  if($mname =~ /^Soulbinder/{ 

    if($text=~/Hail/i){quest::say("Greetings $name. When a hero of our world is slain  their soul returns to the place it was last bound and the body is reincarnated. As a member of the Order of Eternity  it is my duty to [bind your soul] to this location if that is your wish.");} 
    if($text=~/bind my soul/i) { 
      quest::say("Binding your soul.  You will return here when you die."); 
      quest::castspell($userid,2049); 
    } 
  } 

  #your standard default.pl EVENT_SAY behavior 
}

used in an example by smogo on http://www.eqemulator.net/forums/viewtopic.php?t=13265

Where exactly would I put that code to make Dr.Phil01 say that?

[Monrezz]

Read the quest guide stickied at the top, it tells you. Needs to go in C:\EQEMu\quests\$zonesn where $zonesn is the short name of the zone. Needs to be saved as the NPCID is the NPC you wish to assign the quest to.

[xtestx]

so if i wanted

King_Phil to say "Greetings" after you hail I would use

sub EVENT_SAY{
if($mname =~ /^King_Phil/{

if($text=~/Hail/i){quest::say("Greetings $name.");}
}
}

#your standard default.pl EVENT_SAY behavior
}

and save that in notepad as what type of file again? then put it in the quests folder? and is $zonesn a folder or...?

[xtestx]

the sticky says

This is for EQEMu 0.5.3+ With Perl Enabled
If you do not see the following in zone.exe when you boot it up you do NOT have Perl Enabled ones.
[Status] Loading embedded perl
[Status] Loading perlemb plugins.


how do i enable it ?

[smogo]

It can't be enable as an option. got to use the binaries with perl enabled (compile it or download).

[Monrezz]

Originally Posted by xtestx

sub EVENT_SAY{
if($mname =~ /^King_Phil/{

if($text=~/Hail/i){quest::say("Greetings $name.");}
}
}

#your standard default.pl EVENT_SAY behavior
}

Should be:

sub EVENT_SAY
{ 
  if(($mname =~ /King_Phil/) && ($text=~/Hail/i))
  { 
    quest::say("Greetings $name.");
  } 
}

Originally Posted by xtestx

and save that in notepad as what type of file again? then put it in the quests folder? and is $zonesn a folder or...?

Read the sticky. Save it as NPCID.pl in the folder relevant to the zone's short name of where the NPC is. So if King_Phil is in East Freeport and had ID of 546 the file would be: C:\EQEMu\quests\freporte\546.pl.

By $zonesn I meant the short name of the zone. To find it out, see the zone names list or use $zonesn in Perl as a variable.

[RexChaos]

So...is there a 5.5 version with perl enabled? If not, will there be soon?

[smogo]

So...is there a 5.5 version with perl enabled? If not, will there be soon?

5.5 is perl compliant. Means that you can get a 5.5 perl enabled :
- if you get dr1 snapshot from Shawn's or rc1 snapshot from Khuong's (!yes, i found it) and compile it
- if you get compiled binaries where perl has been enabled

Can't tell for sure, but can bet Nilar's or Jezebell's win binaries were perl enabled. Better check ...

[RexChaos]

Cool, thanks!