#include "uox3.h"
#include "cServerDefinitions.h"
#include "ssection.h"
#include "cSpawnRegion.h"
#include "scriptc.h"
#include "townregion.h"
#include <stdexcept>
#include <vector>
#include <map>
#include <fstream>
#include <cstring>
#include <filesystem>
#include <cmath>
#include <algorithm>
#include <sstream>
#include <algorithm>
#include <cstdint>
#include <fstream>
#include <tuple>

#if PLATFORM != WINDOWS
#  include <fcntl.h>     // open
#  include <sys/mman.h>  // mmap, mmunmap
#endif


//o------------------------------------------------------------------------------------------------o
//|	Function	-	LoadCustomTitle()
//o------------------------------------------------------------------------------------------------o
//|	Purpose		-	Loads players titles (Karma, Fame, Murder, ect)
//o------------------------------------------------------------------------------------------------o
void LoadCustomTitle( void )
{
	size_t titlecount = 0;
	std::string tag;
	std::string data;
	CScriptSection *CustomTitle = FileLookup->FindEntry( "SKILL", titles_def );
	if( CustomTitle == nullptr )
	{
		return;
	}
	for( tag = CustomTitle->First(); !CustomTitle->AtEnd() && titlecount < ALLSKILLS; tag = CustomTitle->Next() )
	{
		data = CustomTitle->GrabData();
		cwmWorldState->title[titlecount].skill	= data;
		++titlecount;
	}
	CustomTitle = FileLookup->FindEntry( "PROWESS", titles_def );
	if( CustomTitle == nullptr )
	{
		return;
	}
	for( tag = CustomTitle->First(); !CustomTitle->AtEnd(); tag = CustomTitle->Next() )
	{
		data = CustomTitle->GrabData();
		cwmWorldState->prowessTitles.push_back( TitlePair_st( static_cast<SI16>( std::stoi( tag, nullptr, 0 )), data ));
	}

	CustomTitle = FileLookup->FindEntry( "FAME", titles_def );
	if( CustomTitle == nullptr )
	{
		return;
	}
	titlecount	= 0;

	for( tag = CustomTitle->First(); !CustomTitle->AtEnd() && titlecount < ALLSKILLS; tag = CustomTitle->Next() )
	{
		data = CustomTitle->GrabData();
		cwmWorldState->title[titlecount].fame = data;
		++titlecount;
	}

	// Murder tags now scriptable in SECTION MURDER - Titles.dfn
	CustomTitle = FileLookup->FindEntry( "MURDERER", titles_def );
	if( CustomTitle == nullptr )
	{
		return;
	}
	for( tag = CustomTitle->First(); !CustomTitle->AtEnd(); tag = CustomTitle->Next() )
	{
		data = CustomTitle->GrabData();
		cwmWorldState->murdererTags.push_back( TitlePair_st( static_cast<SI16>( std::stoi( tag, nullptr, 0 )), data ));
	}

	FileLookup->Dispose( titles_def );
}

//o------------------------------------------------------------------------------------------------o
//|	Function	-	LoadSkills()
//o------------------------------------------------------------------------------------------------o
//|	Purpose		-	Load skills from definition files
//o------------------------------------------------------------------------------------------------o
void LoadSkills( void )
{
	std::string skEntry;
	std::string tag, data, UTag;
	UI08 i = 0;
	for( Script *creatScp = FileLookup->FirstScript( skills_def ); !FileLookup->FinishedScripts( skills_def ); creatScp = FileLookup->NextScript( skills_def ))
	{
		if( creatScp == nullptr )
			continue;

		for( CScriptSection *SkillList = creatScp->FirstEntry(); SkillList != nullptr; SkillList = creatScp->NextEntry() )
		{
			if( SkillList == nullptr )
				continue;

			skEntry = creatScp->EntryName();
			auto ssecs = oldstrutil::sections( skEntry, " " );
			if( oldstrutil::trim( oldstrutil::removeTrailing( ssecs[0], "// ")) == "SKILL" )
			{
				if( ssecs.size() > 1 )
				{
					i = static_cast<UI08>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( ssecs[1], "//" ))));
					if( i <= INTELLECT )
					{
						cwmWorldState->skill[i].ResetDefaults();
						for( tag = SkillList->First(); !SkillList->AtEnd(); tag = SkillList->Next() )
						{
							UTag = oldstrutil::upper( tag );
							data = SkillList->GrabData();
							data = oldstrutil::trim( oldstrutil::removeTrailing( data, "//" ));
							if( UTag == "STR" )
							{
								cwmWorldState->skill[i].strength = static_cast<UI16>( std::stoul( data, nullptr, 0 ));
							}
							else if( UTag == "DEX" )
							{
								cwmWorldState->skill[i].dexterity = static_cast<UI16>( std::stoul( data, nullptr, 0 ));
							}
							else if( UTag == "INT" )
							{
								cwmWorldState->skill[i].intelligence = static_cast<UI16>( std::stoul( data, nullptr, 0 ));
							}
							else if( UTag == "SKILLPOINT" )
							{
								Advance_st tempAdvance;
								data = oldstrutil::simplify( data );
								auto csecs = oldstrutil::sections( data, "," );
								tempAdvance.base	= static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[0], "//" )), nullptr, 0 ));
								tempAdvance.success = static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[1], "//" )), nullptr, 0 ));
								tempAdvance.failure = static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[2], "//" )), nullptr, 0 ));
								if( csecs.size() == 4 )
								{
									tempAdvance.amtToGain = static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[3], "//" )), nullptr, 0 ));
								}
								cwmWorldState->skill[i].advancement.push_back( tempAdvance );
							}
							else if( UTag == "SKILLDELAY" )
							{
								cwmWorldState->skill[i].skillDelay = static_cast<SI32>( std::stoi( data, nullptr, 0 ));
							}
							else if( UTag == "MADEWORD" )
							{
								cwmWorldState->skill[i].madeWord = data;
							}
							else if( UTag == "NAME" )
							{
								cwmWorldState->skill[i].name = data;
							}
							else
							{
								Console.Warning( oldstrutil::format( "Unknown tag in skills.dfn: %s", data.c_str() ));
							}
						}
					}
				}
			}
		}
	}
}

//o------------------------------------------------------------------------------------------------o
//|	Function	-	LoadSpawnRegions()
//o------------------------------------------------------------------------------------------------o
//|	Purpose		-	Loads spawning regions from definition files
//o------------------------------------------------------------------------------------------------o
void LoadSpawnRegions( void )
{
	cwmWorldState->spawnRegions.clear();
	UI16 spawnRegionId = 0;
	for( Script *spnScp = FileLookup->FirstScript( spawn_def ); !FileLookup->FinishedScripts( spawn_def ); spnScp = FileLookup->NextScript( spawn_def ))
	{
		if( spnScp == nullptr )
			continue;

		for( CScriptSection *toScan = spnScp->FirstEntry(); toScan != nullptr; toScan = spnScp->NextEntry() )
		{
			if( toScan == nullptr )
				continue;

			std::string sectionName = spnScp->EntryName();
			auto ssecs = oldstrutil::sections( sectionName, " " );
			if( "REGIONSPAWN" == ssecs[0] ) // Is it a region spawn entry?
			{
				spawnRegionId = static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( ssecs[1], "//" )), nullptr, 0 ));
				if( cwmWorldState->spawnRegions.find( spawnRegionId ) == cwmWorldState->spawnRegions.end() )
				{
					CSpawnRegion* newSpawnRegion = new CSpawnRegion( spawnRegionId );
					if( newSpawnRegion->Load( toScan ))
					{
						// Valid!
						cwmWorldState->spawnRegions[spawnRegionId] = newSpawnRegion;
					}
					else
					{
						// Invalid! Era don't match up
						delete newSpawnRegion;
					}
				}
				else
				{
					Console.Warning( oldstrutil::format( "spawn.dfn has a duplicate REGIONSPAWN entry, Entry Number: %u", spawnRegionId ));
				}
			}
		}
	}
}

//o------------------------------------------------------------------------------------------------o
//|	Function	-	LoadRegions()
//o------------------------------------------------------------------------------------------------o
//|	Purpose		-	Load regions from regions.dfn and townregions from regions.wsc
//o------------------------------------------------------------------------------------------------o
void LoadRegions( void )
{
	cwmWorldState->townRegions.clear();
	std::string regionsFile = cwmWorldState->ServerData()->Directory( CSDDP_SHARED ) + "regions.wsc";
	bool performLoad		= false;
	Script *ourRegions		= nullptr;
	if( FileExists( regionsFile ))
	{
		performLoad = true;
		ourRegions = new Script( regionsFile, NUM_DEFS, false );
	}

	UI16 i = 0;
	std::string regEntry;
	for( Script *regScp = FileLookup->FirstScript( regions_def ); !FileLookup->FinishedScripts( regions_def ); regScp = FileLookup->NextScript( regions_def ))
	{
		if( regScp == nullptr )
			continue;

		for( CScriptSection *toScan = regScp->FirstEntry(); toScan != nullptr; toScan = regScp->NextEntry() )
		{
			if( toScan == nullptr )
				continue;

			regEntry = regScp->EntryName();
			auto ssecs = oldstrutil::sections( regEntry, " " );
			if( oldstrutil::trim( oldstrutil::removeTrailing( ssecs[0], "//" )) == "REGION" )
			{
				i = static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( ssecs[1], "//" )), nullptr, 0 ));
				if( cwmWorldState->townRegions.find( i ) == cwmWorldState->townRegions.end() )
				{
					cwmWorldState->townRegions[i] = new CTownRegion( i );
					cwmWorldState->townRegions[i]->InitFromScript( toScan );
					if( performLoad )
					{
						cwmWorldState->townRegions[i]->Load( ourRegions );
					}
				}
				else
				{
					Console.Warning( oldstrutil::format( "regions.dfn has a duplicate REGION entry, Entry Number: %u", i ));
				}
			}				
		}
	}
	if( regEntry == "" )
	{
		// No regions found? :O Shut down UOX3, or we'll run into trouble later.
		Console.PrintFailed();
		Shutdown( FATAL_UOX3_ALLOC_MAPREGIONS );
	}

	if( performLoad )
	{
		delete ourRegions;
		ourRegions = nullptr;
	}

	// Load Instant Logout regions from [INSTALOG] section of regions.dfn
	// Note that all the tags below are required to setup valid locations
	CScriptSection *InstaLog = FileLookup->FindEntry( "INSTALOG", regions_def );
	if( InstaLog == nullptr )
		return;

	LogoutLocationEntry_st toAdd;
	std::string data, UTag;
	for( std::string tag = InstaLog->First(); !InstaLog->AtEnd(); tag = InstaLog->Next() )
	{
		UTag = oldstrutil::upper( tag );
		data	= InstaLog->GrabData();
		data = oldstrutil::trim( oldstrutil::removeTrailing( data, "//" ));
		if( UTag == "X1" )
		{
			toAdd.x1 = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "Y1" )
		{
			toAdd.y1 = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "X2" )
		{
			toAdd.x2 = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "Y2" )
		{
			toAdd.y2 = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "WORLD" )
		{
			toAdd.worldNum = static_cast<SI08>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "INSTANCEID" )
		{
			toAdd.instanceId = static_cast<UI16>( std::stoul( data, nullptr, 0 ));
			cwmWorldState->logoutLocs.push_back( toAdd );
		}
	}

	// Load areas valid for SOS coordinates from [SOSAREAS] section of regions.dfn
	// Note that all the tags below are required to setup valid locations
	CScriptSection *sosAreas = FileLookup->FindEntry( "SOSAREAS", regions_def );
	if( sosAreas == nullptr )
		return;

	SOSLocationEntry_st toAddSOS;
	for( std::string tag = sosAreas->First(); !sosAreas->AtEnd(); tag = sosAreas->Next() )
	{
		UTag = oldstrutil::upper( tag );
		data = sosAreas->GrabData();
		data = oldstrutil::trim( oldstrutil::removeTrailing( data, "//" ));
		if( UTag == "X1" )
		{
			toAddSOS.x1 = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "Y1" )
		{
			toAddSOS.y1 = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "X2" )
		{
			toAddSOS.x2 = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "Y2" )
		{
			toAddSOS.y2 = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "WORLD" )
		{
			toAddSOS.worldNum = static_cast<SI08>( std::stoi( data, nullptr, 0 ));
		}
		else if( UTag == "INSTANCEID" )
		{
			toAddSOS.instanceId = static_cast<UI16>( std::stoul( data, nullptr, 0 ));
			cwmWorldState->sosLocs.push_back( toAddSOS );
		}
	}
}

//o------------------------------------------------------------------------------------------------o
//|	Function	-	LoadTeleportLocations()
//o------------------------------------------------------------------------------------------------o
//|	Purpose		-	Load teleport locations from definition files
//o------------------------------------------------------------------------------------------------o
void LoadTeleportLocations( void )
{
	std::string filename = cwmWorldState->ServerData()->Directory( CSDDP_SCRIPTS ) + "teleport.scp";
	cwmWorldState->teleLocs.resize( 0 );

	if( !FileExists( filename ))
	{
		Console << myendl;
		Console.Error( oldstrutil::format( " Failed to open teleport data script %s", filename.c_str() ));
		Console.Error( oldstrutil::format( " Teleport Data not found" ));
		cwmWorldState->SetKeepRun( false );
		cwmWorldState->SetError( true );
		return;
	}

	Script *teleportData = new Script( filename, NUM_DEFS, false );
	if( teleportData != nullptr )
	{
		cwmWorldState->teleLocs.reserve( teleportData->NumEntries() );

		UI16 tempX, tempY;
		SI08 tempZ;
		CScriptSection *teleportSect = nullptr;
		std::string tag, data, temp;
		for( teleportSect = teleportData->FirstEntry(); teleportSect != nullptr; teleportSect = teleportData->NextEntry() )
		{
			if( teleportSect != nullptr )
			{
				for( tag = teleportSect->First(); !teleportSect->AtEnd(); tag = teleportSect->Next() )
				{
					CTeleLocationEntry toAdd;
					if( oldstrutil::upper( tag ) == "ENTRY" )
					{
						tempX = 0;
						tempY = 0;
						tempZ = ILLEGAL_Z;
						data = oldstrutil::simplify( teleportSect->GrabData() );
						auto csecs = oldstrutil::sections( data, "," );
						SI32 sectCount = static_cast<SI32>( csecs.size() );
						if( sectCount >= 6 )
						{
							tempX	= static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[0], "//" )), nullptr, 0 ));
							tempY	= static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[1], "//" )), nullptr, 0 ));
							temp	= oldstrutil::upper( oldstrutil::trim( oldstrutil::removeTrailing( csecs[2], "//" )));
							if( temp != "ALL" && temp != "A" )
							{
								tempZ =  static_cast<UI16>( std::stoul( temp, nullptr, 0 ));
							}
							toAdd.SourceLocation( tempX, tempY, tempZ );

							tempX	=  static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[3], "//" )), nullptr, 0 ));
							tempY	=  static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[4], "//" )), nullptr, 0 ));
							tempZ	=  static_cast<SI08>( std::stoi( oldstrutil::trim( oldstrutil::removeTrailing( csecs[5], "//" )), nullptr, 0 ));
							toAdd.TargetLocation( tempX, tempY, tempZ );

							if( sectCount >= 7 )
							{
								toAdd.SourceWorld(  static_cast<SI08>( std::stoi( oldstrutil::trim( oldstrutil::removeTrailing( csecs[6], "//" )), nullptr, 0 )));
								if( sectCount >= 8 )
								{
									toAdd.TargetWorld(  static_cast<SI08>( std::stoi( oldstrutil::trim( oldstrutil::removeTrailing( csecs[7], "//" )), nullptr, 0 )));
									if( sectCount >= 9 )
									{
										toAdd.MinEra( static_cast<SI08>( std::stoi( oldstrutil::trim( oldstrutil::removeTrailing( csecs[8], "//" )), nullptr, 0 )));
										if( sectCount >= 10 )
										{
											toAdd.MaxEra( static_cast<SI08>( std::stoi( oldstrutil::trim( oldstrutil::removeTrailing( csecs[9], "//" )), nullptr, 0 )));
										}
									}
								}
							}
							cwmWorldState->teleLocs.push_back( toAdd );
						}
						else
						{
							Console.Error( "Insufficient parameters for teleport entry" );
						}
					}
				}
			}
		}
		std::sort( cwmWorldState->teleLocs.begin(), cwmWorldState->teleLocs.end(), [] ( CTeleLocationEntry &one, CTeleLocationEntry &two )
		{
			return static_cast<UI32>( one.SourceLocation().x ) < static_cast<UI32>( two.SourceLocation().x );
		});
		delete teleportData;
	}
}

//o------------------------------------------------------------------------------------------------o
//|	Function	-	LoadCreatures()
//o------------------------------------------------------------------------------------------------o
//|	Purpose		-	Loads creatures from creature definition files
//o------------------------------------------------------------------------------------------------o
void LoadCreatures( void )
{
	std::string cEntry;
	std::string tag, data, UTag;
	UI16 i = 0;
	for( Script *creatScp = FileLookup->FirstScript( creatures_def ); !FileLookup->FinishedScripts( creatures_def ); creatScp = FileLookup->NextScript( creatures_def ))
	{
		if( creatScp == nullptr )
			continue;

		for( CScriptSection *creatureData = creatScp->FirstEntry(); creatureData != nullptr; creatureData = creatScp->NextEntry() )
		{
			if( creatureData == nullptr )
				continue;

			cEntry = creatScp->EntryName();
			auto ssecs = oldstrutil::sections( cEntry, " " );
			if( ssecs[0] == "CREATURE" )
			{
				i = static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( ssecs[1], "//" )), nullptr, 0 ));
				cwmWorldState->creatures[i].CreatureId( i );

				for( tag = creatureData->First(); !creatureData->AtEnd(); tag = creatureData->Next() )
				{
					if( tag.empty() )
					{
						continue;
					}
					data = creatureData->GrabData();
					data = oldstrutil::trim( oldstrutil::removeTrailing( data, "//" ));
					UTag = oldstrutil::upper( tag );
					switch(( UTag.data()[0] ))
					{
						case 'A':
							if( UTag == "ANTIBLINK" )
							{
								cwmWorldState->creatures[i].AntiBlink( true );
							}
							else if( UTag == "ANIMAL" )
							{
								cwmWorldState->creatures[i].IsAnimal( true );
							}
							else if( UTag.rfind( "ANIM_", 0 ) == 0 ) // Check if UTag starts with "ANIM_"
							{
								// The following bit is shared between all the "ANIM_" tags
								UI08 animId = 0;
								UI08 animLength = 0;
								auto csecs = oldstrutil::sections( data, "," );
								if( csecs.size() > 1 )
								{
									animId = static_cast<UI08>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[0], "//" )), nullptr, 0 ));
									animLength = static_cast<UI08>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[1], "//" )), nullptr, 0 ));
								}
								else
								{
									animId = static_cast<UI08>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[0], "//" )), nullptr, 0 ));
									animLength = 7; // default to 7 frames if nothing is specified
								}

								// Now apply the anim-data to the creature
								if( UTag == "ANIM_ATTACK1" )
								{
									cwmWorldState->creatures[i].AttackAnim1( animId, animLength );
								}
								else if( UTag == "ANIM_ATTACK2" )
								{
									cwmWorldState->creatures[i].AttackAnim2( animId, animLength );
								}
								else if( UTag == "ANIM_ATTACK3" )
								{
									cwmWorldState->creatures[i].AttackAnim3( animId, animLength );
								}
								else if( UTag == "ANIM_CASTAREA" )
								{
									cwmWorldState->creatures[i].CastAnimArea( animId, animLength );
								}
								else if( UTag == "ANIM_CASTTARGET" )
								{
									cwmWorldState->creatures[i].CastAnimTarget( animId, animLength );
								}
								else if( UTag == "ANIM_CAST3" )
								{
									cwmWorldState->creatures[i].CastAnim3( animId, animLength );
								}
							}
							break;
						case 'B':
							if( UTag == "BASESOUND" )
							{
								break;
							}
							break;
						case 'F':
							if( UTag == "FLIES" )
							{
								cwmWorldState->creatures[i].CanFly( true );
							}
							break;
						case 'H':
							if( UTag == "HUMAN" )
							{
								cwmWorldState->creatures[i].IsHuman( true );
							}
							break;
						case 'I':
							if( UTag == "ICON" )
							{
								cwmWorldState->creatures[i].Icon( static_cast<UI16>( std::stoul( data, nullptr, 0 )));
							}
							break;
						case 'M':
							if( UTag == "MOVEMENT" )
							{
								if( oldstrutil::upper( data ) == "WATER" )
								{
									cwmWorldState->creatures[i].IsWater( true );
								}
								else if( oldstrutil::upper( data ) == "BOTH" )
								{
									cwmWorldState->creatures[i].IsAmphibian( true );
								}
								else
								{
									cwmWorldState->creatures[i].IsWater( false );
									cwmWorldState->creatures[i].IsAmphibian( false );
								}
							}
							else if( UTag == "MOUNTID" )
							{
								cwmWorldState->creatures[i].MountId( static_cast<UI16>( std::stoul( data, nullptr, 0 )));
							}
							break;
						case 'S':
							if( UTag == "SOUNDFLAG" )
							{
								break;
							}
							else if( UTag == "SOUND_IDLE" )
							{
								cwmWorldState->creatures[i].SetSound( SND_IDLE, static_cast<UI16>( std::stoul( data, nullptr, 0 )));
							}
							else if( UTag == "SOUND_STARTATTACK" )
							{
								cwmWorldState->creatures[i].SetSound( SND_STARTATTACK, static_cast<UI16>( std::stoul( data, nullptr, 0 )));
							}
							else if( UTag == "SOUND_ATTACK" )
							{
								cwmWorldState->creatures[i].SetSound( SND_ATTACK, static_cast<UI16>( std::stoul( data, nullptr, 0 )));
							}
							else if( UTag == "SOUND_DEFEND" )
							{
								cwmWorldState->creatures[i].SetSound( SND_DEFEND, static_cast<UI16>( std::stoul( data, nullptr, 0 )));
							}
							else if( UTag == "SOUND_DIE" )
							{
								cwmWorldState->creatures[i].SetSound( SND_DIE, static_cast<UI16>( std::stoul( data, nullptr, 0 )));
							}
							break;
						default:
							break;
					}
				}
			}
		}
	}

	FileLookup->Dispose( creatures_def );
}

void ReadWorldTagData( std::istream &inStream, std::string &tag, std::string &data )
{
	char temp[4097];
    tag = "o---o";
    data = "o---o";
    while( !inStream.eof() && !inStream.fail() )
    {
        inStream.getline(temp, 4096);
	    temp[inStream.gcount()] = 0;
		auto sLine = std::string( temp );
		auto cloc = sLine.find( "//" );

		if( cloc != std::string::npos )
		{
			sLine = sLine.substr( 0, cloc );
		}
		cloc = sLine.find_first_not_of( " \t\v\f\0" );
		if( cloc != std::string::npos )
		{
			if( cloc != std::string::npos )
			{
				auto temp2 = sLine.find_last_not_of( " \t\v\f\0" );
				sLine = sLine.substr( cloc, ( temp2 - cloc ) + 1 );
			}
		}

        if( !sLine.empty() )
        {
            if( sLine != "o---o" )
            {
                auto loc = sLine.find( "=" );
                if( loc != std::string::npos )
                {
                    tag = sLine.substr( 0, loc );
                    auto temp = tag.find_first_not_of( " \t\v\f\0" );
                    if( temp != std::string::npos )
					{
                        auto temp2 = tag.find_last_not_of( " \t\v\f\0" );
                        tag = tag.substr( temp, ( temp2 - temp ) + 1 );
                    }
                
                    if(( loc + 1 ) < sLine.size() )
					{
                        data = sLine.substr( loc + 1 );
                        auto temp = data.find_first_not_of( " \t\v\f\0" );
                        if( temp != std::string::npos )
						{
                            auto temp2 = data.find_last_not_of( " \t\v\f\0" );
                            data = data.substr( temp, ( temp2 - temp ) + 1 );
                        }
                    }
                    else
					{
                        data = "";
                    }
                    break;
                }
            }
            else
                break;
        }
    }
}

//o------------------------------------------------------------------------------------------------o
//|	Function	-	LoadPlaces()
//o------------------------------------------------------------------------------------------------o
//|	Purpose		-	Load locations from location definition files
//o------------------------------------------------------------------------------------------------o
void LoadPlaces( void )
{
	cwmWorldState->goPlaces.clear();
	std::string data, UTag, entryName;
	GoPlaces_st *toAdd = nullptr;

	for( Script *locScp = FileLookup->FirstScript( location_def ); !FileLookup->FinishedScripts( location_def ); locScp = FileLookup->NextScript( location_def ))
	{
		if( locScp == nullptr )
		{
			continue;
		}
		for( CScriptSection *toScan = locScp->FirstEntry(); toScan != nullptr; toScan = locScp->NextEntry() )
		{
			if( toScan == nullptr )
			{
				continue;
			}
			entryName = locScp->EntryName();
			auto ssecs = oldstrutil::sections( entryName, " " );
			
			size_t entryNum	= static_cast<UI32>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( ssecs[1], "//" )), nullptr, 0 ));
			
			if(( oldstrutil::upper( oldstrutil::trim( oldstrutil::removeTrailing( ssecs[0], "//" ))) == "LOCATION" ) && entryNum )
			{
				if( cwmWorldState->goPlaces.find( static_cast<UI16>( entryNum )) != cwmWorldState->goPlaces.end() )
				{
					Console.Warning( oldstrutil::format( "Doubled up entry in Location.dfn (%u)", entryNum ));
				}
				toAdd = &cwmWorldState->goPlaces[static_cast<UI16>( entryNum )];
				if( toAdd != nullptr )
				{
					for( std::string tag = toScan->First(); !toScan->AtEnd(); tag = toScan->Next() )
					{
						data = toScan->GrabData();
						data = oldstrutil::trim( oldstrutil::removeTrailing( data, "//" ));
						UTag = oldstrutil::upper( tag );
						if( UTag == "X" )
						{
							toAdd->x = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
						}
						else if( UTag == "Y" )
						{
							toAdd->y = static_cast<SI16>( std::stoi( data, nullptr, 0 ));
						}
						else if( UTag == "Z" )
						{
							toAdd->z = static_cast<SI08>( std::stoi( data, nullptr, 0 ));
						}
						else if( UTag == "WORLD" )
						{
							toAdd->worldNum = static_cast<UI16>( std::stoul( data, nullptr, 0 ));
						}
						else if( UTag == "INSTANCEID" )
						{
							toAdd->instanceId = static_cast<UI16>( std::stoul( data, nullptr, 0 ));
						}
						else if( UTag == "LOCATION" )
						{
							auto csecs = oldstrutil::sections( data, "," );
							size_t sectionCount = csecs.size() + 1;
							if( sectionCount >= 3 )
							{
								toAdd->x		= static_cast<SI16>( std::stoi( oldstrutil::trim( oldstrutil::removeTrailing( csecs[0], "//" )), nullptr, 0 ));
								toAdd->y		= static_cast<SI16>( std::stoi( oldstrutil::trim( oldstrutil::removeTrailing( csecs[1], "//" )), nullptr, 0 ));
								toAdd->z		= static_cast<SI08>( std::stoi( oldstrutil::trim( oldstrutil::removeTrailing( csecs[2], "//" )), nullptr, 0 ));
								toAdd->worldNum = static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[3], "//" )), nullptr, 0 ));
							}

							if( sectionCount == 4 )
							{
								toAdd->instanceId = static_cast<UI16>( std::stoul( oldstrutil::trim( oldstrutil::removeTrailing( csecs[4], "//" )), nullptr, 0 ));
							}
						}
					}
				}
			}
		}
	}

	FileLookup->Dispose( location_def );
}

//o------------------------------------------------------------------------------------------------o
//|	Function	-	FileExists()
//o------------------------------------------------------------------------------------------------o
//|	Purpose		-	Check if specified file/filepath exists
//o------------------------------------------------------------------------------------------------o
bool FileExists( const std::string& filepath )
{
	auto temp = std::filesystem::path( filepath );
	return std::filesystem::exists( temp );
}