Default perl quest for each zone

[m0oni9]

sandy was mentioning that he was having trouble with per-zone default quests. The following should enable the allowance of having multiple default quests, ie: quests/feerrott/default.pl, quests/nexus/default.pl, instead of _only_ quests/default.pl. Line numbers are approximate.

To start off, remove the old default quest loader.
zone/embperl.cpp, lines 25-32:
//let's load the default script
try { LoadScript(0, NULL); }
catch(const char * err)
{
LogFile->write(EQEMuLog::Status, "Error loading default script: %s", err);
}

Find the following code, and replace.
zone/embperl.cpp, lines 290-301:
if(!npcid || !zone)
{
filename += DEFAULT_QUEST_PREFIX;
filename += ".pl";
}
else
{
filename += zone;
filename += "/";
filename += itoa(npcid);
filename += ".pl";
}


with:
if (zone)
{
filename += zone;
filename += "/";
if (npcid)
filename += itoa(npcid);
else
filename += DEFAULT_QUEST_PREFIX;
}
else
filename += DEFAULT_QUEST_PREFIX;

filename += ".pl";


Finally, insert the following, which will load the default script when the zone initializes.
zone/zone.cpp, line 434
parse->ClearCache();

#ifdef EMBPERL
// Load the default quest file for zone
try {((PerlembParser *)parse)->LoadScript(0, short_name); }
catch(const char * err)
{
LogFile->write(EQEMuLog::Status,
"Error loading default script: %s", err);
}
#endif

cout << ", timezone data";
zone->zone_time.setEQTimeZone(database.GetZoneTZ(zoneid) );

This is the best place I could figure to add the last bit. Please report if there are problems or not.