|
|
 |
 |
 |
 |
|
 |
 |
|
 |
 |
|
 |
|
Support::Windows Servers Support forum for Windows EQEMu users. |

04-04-2008, 02:31 PM
|
Fire Beetle
|
|
Join Date: Apr 2008
Posts: 16
|
|
5.1
Are you using PEQ as your db?
|

04-05-2008, 05:22 AM
|
 |
Developer
|
|
Join Date: Aug 2006
Location: USA
Posts: 5,946
|
|
Make sure you copied the PEQ quests into your eqemu/quests folder or they won't work.
|
 |
|
 |

04-05-2008, 01:39 PM
|
Fire Beetle
|
|
Join Date: Apr 2008
Posts: 16
|
|
Quests
I'm banging my head on the wall with this one. I now need help with the quests. Let's use this for instance. I made a new WE Ranger, and want to talk to Maesyn Trueshot to start out his career. I hailed Maesyn Trueshot and nothing happened. He didn't say anything. After looking in the Perl script, I even said (in the exact case listed in the .pl file) "What trueshot longbows".
I look in my C:\EQEmu\quests\gfaydark folder, in the file Maesyn_Trueshot.pl, and see that it starts with this:
Code:
sub EVENT_SAY {
if($text=~/Hail/i){
quest::say("Welcome to Kelethin. $name! I am Maesyn Trueshot. commander of Faydark's Champions. We are the finest marksmen in all of Norrath. With our trusty [Trueshot longbows] we can miss no target regardless of the distance or the conditions.");
}
if($text=~/What trueshot longbows/i){
quest::say("The Trueshot Longbow was created by my famed father. Eldin Trueshot. It is quite accurate and takes a ranger's skill to wield. We use our new recruits to [gather materials] needed by my father. We shall soon begin to release the formula to good elves so all may fletch such a bow.");
}
if($text=~/I will gather materials/i && $class eq "Ranger"){
quest::say('Take this pack. Go to Kaladim, find Trantor Everhot and ask for dwarven wire. Then go to Freeport to meet Jyle Windshot. Search the inns for him and ask him for treant wood. Then, collect some spiderling silk from spiderlings and finally, in Steamfont, we have the permission of the gnomes to use any micro servos we find while destroying rogue spiders. Combine them all and return the pack to me.');
quest::summonitem(17367);
} else {
quest::say("Faydark's Champions cannot call you foe. but you have yet to earn our trust.");
}
if($text =~ /correct components/i) {
quest::say('Now that I have crafted the Treant Bow Staff, you shall need one Planing Tool, one Treant Bow Staff, one Micro Servo and one spool of Dwarven Wire. These items will be used with your Fletching Kit as all other bows. Be forewarned, only a Master Fletcher can create such a bow and even a master fails from time to time. Good Luck.');
}
if($text =~ /next incarnation/i) {
quest::say("The Trueshot Longbow was once enchanted by the Koada'Dal enchanters. Once it was enchanted now it is no more. I am sure if you were ask the Koada'Dal [where the enchanted bows] are you will get an answer.");
}
}
So I know the Perl script is in the right place, I know Perl's installed on my machine correctly, and the Perl script appears to have no errors. When I execute the .pl file, it runs. It doesn't do anything because there's no main procedure in the file, but there's no error. My PATH includes C:\Perl\site\bin and C:\Perl\bin.
Again, searching for this was difficult; all I found were articles that proved to be too old or unrelated. Does anyone out there have any insight as to what I may be missing?
|
 |
|
 |

04-05-2008, 06:54 PM
|
Fire Beetle
|
|
Join Date: Apr 2008
Posts: 16
|
|
More Information
Looking through my logs, it doesn't have anything about quests or perl in the server startup. Should it?
I don't know how this works. I thought that during any SAY command, it would look in the folder for the name of the mob being hailed and execute the perl script with what was said. So as long as my script is in the right folder, everything should work.
Everything is being executed as Administrator, so I don't think that permissions are the problem either. I'm at a loss, been working with this for two days now, installing/uninstalling, etc.
|

04-05-2008, 07:38 PM
|
Fire Beetle
|
|
Join Date: Apr 2008
Posts: 16
|
|
I also do not see any perl processes in the processes list on the server. Should I?
|

04-07-2008, 09:13 AM
|
Fire Beetle
|
|
Join Date: Apr 2008
Posts: 16
|
|
Last thing that I did was to copy my c:\perl\bin folder contents into EQEmu, saw an old post out there that said that it fixed someone else's problem. Still, when I hail Maesyn Trueshot, nothing. When I say "What trueshot longbows", nothing.
Anyone else having this problem, or have any suggestions for me?
|

04-07-2008, 05:13 PM
|
Dragon
|
|
Join Date: Feb 2007
Posts: 659
|
|
You shouldn't see any perl processes running. Are you logs telling you anything helpful?
|

04-07-2008, 05:59 PM
|
Fire Beetle
|
|
Join Date: Apr 2008
Posts: 16
|
|
Andrew-
Thanks for the point in that direction. I'd looked at the logs before, but hadn't noticed the "eqemu_quest_zone_####.log file before. In my log, I get this:
Code:
[04.07. - 08:09:55] WARNING: error compiling quest file
quests/gfaydark/Maesyn_Trueshot.pl: Perl runtime error: Undefined
subroutine &main::eval_file called.
(reverting to default questfile)
Any idea what that means? I see no main function or eval_file function in my perl scripts... In my example, I have EVENT_SAY and EVENT_ITEM inside my Maesyn_Trueshot.pl file. I see that for every mob in the zone, just using Trueshot as an example.
|
 |
|
 |

04-07-2008, 07:00 PM
|
 |
Developer
|
|
Join Date: Aug 2006
Location: USA
Posts: 5,946
|
|
Try downloading GeorgeS quest tools from his website. You can find his site link in his signature. He posts in the tools section ALOT so check for it there.
I see the reason why that particular quest you are using to test is failing. There is a typo in it. Here is the text and I highlighted the typo in red. GeorgeS tools would make it easier to find errors like this as it is color coded.
Code:
if($text =~ /correct components/i) {
quest::say('Now that I have crafted the Treant Bow Staff, you shall need one Planing Tool, one Treant Bow Staff, one Micro Servo and one spool of Dwarven Wire. These items will be used with your Fletching Kit as all other bows. Be forewarned, only a Master Fletcher can create such a bow and even a master fails from time to time. Good Luck.'); }
if($text=~/I will gather materials/i && $class eq "Ranger"){
quest::say('Take this pack. Go to Kaladim, find Trantor Everhot and ask for dwarven wire. Then go to Freeport to meet Jyle Windshot. Search the inns for him and ask him for treant wood. Then, collect some spiderling silk from spiderlings and finally, in Steamfont, we have the permission of the gnomes to use any micro servos we find while destroying rogue spiders. Combine them all and return the pack to me.');
quest::summonitem(17367); }
You have single quotes ( ' ) where you NEED to have double quotes ( " ). It won't work like that. Syntax errors are easy ways to break quests completely so the NPC will not respond.
|
 |
|
 |
 |
|
 |

04-07-2008, 07:06 PM
|
 |
Developer
|
|
Join Date: Aug 2006
Location: USA
Posts: 5,946
|
|
Also, I think the code you have for the following won't have the effect you want.
Code:
if($text=~/I will gather materials/i && $class eq "Ranger"){
quest::say('Take this pack. Go to Kaladim, find Trantor Everhot and ask for dwarven wire. Then go to Freeport to meet Jyle Windshot. Search the inns for him and ask him for treant wood. Then, collect some spiderling silk from spiderlings and finally, in Steamfont, we have the permission of the gnomes to use any micro servos we find while destroying rogue spiders. Combine them all and return the pack to me.');
quest::summonitem(17367);
} else {
quest::say("Faydark's Champions cannot call you foe. but you have yet to earn our trust.");
}
I believe you need to encase the else in with the first part like this:
Code:
if($text=~/I will gather materials/i && $class eq "Ranger") {{
quest::say("Take this pack. Go to Kaladim, find Trantor Everhot and ask for dwarven wire. Then go to Freeport to meet Jyle Windshot. Search the inns for him and ask him for treant wood. Then, collect some spiderling silk from spiderlings and finally, in Steamfont, we have the permission of the gnomes to use any micro servos we find while destroying rogue spiders. Combine them all and return the pack to me.");
quest::summonitem(17367);
} else {
quest::say("Faydark's Champions cannot call you foe, but you have yet to earn our trust.");
}}
I don't know for sure if that will even work as you want, so you might have to mess around with it. But I am pretty sure that the way you have it is wrong.
|
 |
|
 |

04-07-2008, 09:26 PM
|
Fire Beetle
|
|
Join Date: Apr 2008
Posts: 16
|
|
Thanks for the reply, Trevius.
I ran GeorgeS's quest tool on that file, and then stopped/restarted my server. I can see how the double quotes/single quotes issues can hinder quests, especially if there's a contraction or subquote in the quest. However, after changing those, and trying the different way of doing the begin/end, still no go. In my log, it still shows the same error as before:
Code:
[04.07. - 08:09:55] WARNING: error compiling quest file
quests/gfaydark/Maesyn_Trueshot.pl: Perl runtime error: Undefined
subroutine &main::eval_file called.
(reverting to default questfile)
It seems like it's trying to call eval_file and not opening the file right. I've checked permissions, and set all of the quest/ folder, all of its subfolders, and files to give Everyone read and execute. Still didn't work. I'm still working with it, but any more insight would be helpful. Keep the ideas coming!
|

04-07-2008, 10:53 PM
|
 |
Developer
|
|
Join Date: Aug 2006
Location: USA
Posts: 5,946
|
|
Try changing the double quotes in:
to single quotes:
and see what happens.
Make sure you are using #questreload after making any changes so it loads your updates to the quest.
|

04-07-2008, 11:58 PM
|
Fire Beetle
|
|
Join Date: Apr 2008
Posts: 16
|
|
Wow. I fixed it. It's dirty, and others have come across it before. I'd copied my perl\bin folder to my EQEmu folder, but not the other way around. What I did was set my EQEmu root to the perl\bin folder as per http://www.eqemulator.net/forums/arc...p/t-22891.html. This is definitely a bug, but it sounds like it only happens every once in a while.
I'm in Windows 2003 Server, ActivePerl-5.8.8.822-MSWin32-x86-280952, EQEmu-0.7.0-1103 configuration. Anyone else with the same problem that kedra/I have, maybe with the same config? To help out debugging?
Thanks to everyone for their help and ideas.
|
Thread Tools |
|
Display Modes |
Hybrid Mode
|
Posting Rules
|
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
HTML code is Off
|
|
|
All times are GMT -4. The time now is 10:38 AM.
|
|
 |
|
 |
|
|
|
 |
|
 |
|
 |