Trouble with some code

[jimbox114]

I have looked at this over and over again. I have tried many different ways, and compared it to other similar quests and just can't seem to find whats wrong with it. What this basically does is spawns 4 mobs that each drop a item. You then turn those 4 items into the quest npc and get a item in return. Here is the code as of now:


sub EVENT_SAY
{
if ($text=~ /Hail/i){quest::say("What business do you have in my realm? I did not request your presence? Has [somebody] sent you to me?");}
if ($text=~ /somebody/i){quest::say("Who told you to speak with me? Speak there name!");}
if ($text=~ /phexor/i){quest::say("Oh you you are here on the matter of Father Time. Well before I waste my time helping you, I expect you to pass a [test]. If you are indeed a worthy soldier, you will have no problem passing this test.");}
if ($text=~ /test/i){quest::say("Yes, I will summon forth some of my most honorable soldiers. Fight them and return to me each of there gems. Let me know when you are [ready] to start.");}
if ($text=~ /ready/i){quest::say("Very Well, Hand me 500 pieces of platinum to start.");}

sub EVENT_ITEM {
if ($itemcount{69117} == 4){
quest::say("Very well $name, I see you have the will of a noble soldier. Take this Symbol as proof of our meeting. Now you must venture to Paludal Caverns where you will meet The Duke of Below.");
quest::summonitem(69113);
}
if ($platinum == 500) {quest:say("Below me is four soldiers. Fight them and bring me there symbol's as proof of your actions.");
quest::spawn(281234,0,0,-170,2438,463);
quest::spawn(281234,0,0,-170,2311,466);
quest::spawn(281234,0,0,180,2283,463);
quest::spawn(281234,0,0,180,2431,463);}
}


Oh he does nothing when hailed. He basically is only doing the default quest for the server, so it is not reading any of the quest from his file.

[Cisyouc]

Try this.
sub EVENT_SAY
{
if($text=~/hail/i)
{
quest::say("What business do you have in my realm? I did not request your presence! Has [somebody] sent you to me?");
}
if($text=~/somebody/i)
{
quest::say("Who told you to speak with me? Speak their name!");
}
if($text=~/phexor/i)
{
quest::say("Oh you you are here on the matter of Father Time. Well before I waste my time helping you, I expect you to pass a [test]. If you are indeed a worthy soldier, you will have no problem passing this test.");
}
if($text=~/test/i)
{
quest::say("Yes, I will summon forth some of my most honorable soldiers. Fight them and return to me each of there gems. Let me know when you are [ready] to start.");
}
if($text=~/ready/i)
{
quest::say("Very Well, Hand me 500 pieces of platinum to start.");
}
}
sub EVENT_ITEM
{
if($platinum == "500")
{
quest::say("Below me is four soldiers. Fight them and bring me there symbol's as proof of your actions.");
quest::spawn(281234,0,0,-170,2438,463);
quest::spawn(281234,0,0,-170,2311,466);
quest::spawn(281234,0,0,180,2283,463);
quest::spawn(281234,0,0,180,2431,463);
}
if($itemcount{69117} == "4")
{
quest::say("Very well $name, I see you have the will of a noble soldier. Take this Symbol as proof of our meeting. Now you must venture to Paludal Caverns where you will meet The Duke of Below.");
quest::summonitem(69113);
}
}

After looking at my formatted code compared to yours, I noticed a very simple problem. You didn't close EVENT_SAY. Remember to READ the output of zone.exe and it will usually tell you exactly what is wrong.

~Cisyouc

[jimbox114]

That is most certainly a big improvement. I think the biggest problem was my lack of "500" for the platinum. At one point I did have the } for the event_say, it must have gotten removed when i was playing with it.

Only problem now is it only spawns 1 of the 4 things. It basically spawns the first spawn, and skips the rest. I went back and double checked the locations and they check out. It might have something to do with the same reason my spell scriber don't work. I have tried 3 different codes word for word that other servers use, and mine still don't work.

[Cripp]

you gotta space out all the { from ) like.. if ($text=~/poop/i) {
gotta space that out not cram it together :)

[Charmy]

That won't effect the compile cripp, but it makes it alot more readable.

Best tip i learned while doing perl quests was from sandy i think... i don't remember really, someone did! anyway if you have perl installed on your computer, just open a command prompt and type perl $EQEMUQUESTDIR$/quest.pl

and it will tell you all the errors you have, if any, another option is to do perl -c $QUESTDIR$/quest.pl which only checks syntax instead of running the quest, but since there is no main sub to run in these quests you don't really need the -c, just running the quest will check syntax for you.