pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-11 21:01:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

perl changes

Browse Source
This commit is contained in:
KimLS 2013-05-09 03:22:56 -07:00
parent bdcb9d0c00
commit b6c0e7c302
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
zone/embparser.cpp
View File

@ -211,7 +211,29 @@ void PerlembParser::LoadNPCScript(std::string filename, int npc_id) {
package_name << "qst_" << npc_id;
printf("%s = %s\n", package_name.str().c_str(), filename.c_str());
if(!perl)
return;
if(perl->InUse())
{
return;
}
if(npc_quest_status_.find(npc_id) != npc_quest_status_.end()) {
return;
}
try {
perl->eval_file(package_name.str().c_str(), filename.c_str());
}
catch(const char *err)
{
LogFile->write(EQEMuLog::Quest, "WARNING: error compiling quest file %s: %s", filename.c_str(), err);
npc_quest_status_[npc_id] = questFailedToLoad;
return;
}
npc_quest_status_[npc_id] = questLoaded;
}
void PerlembParser::LoadGlobalNPCScript(std::string filename) {