EQEmulator Forums - Paying for pets

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)

- - Paying for pets (https://www.eqemulator.org/forums/showthread.php?t=27211)

I read a post a while ago that was very useful in quest production. Basically, the quest allows a player to obtain a pet by hailing another NPC, but it isn't like a bot, more like a summoned or charmed pet. This is the original code:

Code:

sub EVENT_SAY {



if ($text=~/hail/i) {

quest::say ("I will be your pet"); 

$client->MakePet(null, TestPet, "Light Elemental");

}

}

The original code works fine (of course after I change it to match my pets database). However, this is what I am trying to achieve:

Code:

sub EVENT_SAY {



 if ($text=~/hail/i) {

   quest::say("Halt! It would not be wise to venture further alone. If you would like to hire one of my men to assist you, that could be arranged, for a [price].");

 }

 if ($text=~/price/i) {

   quest::say("A hefty sum of platinum will earn you my finest soldier; one thousand should do just fine."):

 }

 if ($platinum==1000) {

   $client->MakePet(null, elfsoldier, "an elven soldier");

 }

}

I have found that adding anything in between the hail and makepet command (such as the platinum command) doesn't work, even if its just responding to more text. I have of course edited the pet database to include the elven soldier's ID and name. Any help would be greatly appreciated!

Instead of the platinum part being in the EVENT_SAY block, you need it in an EVENT_ITEM one.

An example of how it should be is this:

Code:

sub EVENT_ITEM {

  if ($platinum==1000) {

    $client->MakePet(null, elfsoldier, "an elven soldier");

  }

}

Separate from your EVENT_SAY

Thanks guys, I never even gave that a thought :P

Switched it to look like this:

Code:

sub EVENT_SAY {



 if ($text=~/hail/i) {

   quest::say("Halt! It would not be wise to venture further alone. If you would like to hire one of my men to assist you, that could be arranged, for a [price].");

 }

 if ($text=~/price/i) {

   quest::say("A hefty sum of platinum will earn you my finest soldier; one thousand should do just fine.");

 }

}



sub EVENT_ITEM {



 if ($platinum==1000) {

   $client->MakePet(null, elfsoldier, "an elven soldier");

 }

}

Works like a charm!

You also have a colon ':' instead of a semicolon ';' at the end of the 2nd quest::say line. This could easily confuse the parser if you extend that section.