SqMod/module/Main.cpp

// ------------------------------------------------------------------------------------------------
#include "Logger.hpp"
#include "Core.hpp"

// ------------------------------------------------------------------------------------------------
#include <cstdio>

// ------------------------------------------------------------------------------------------------
#ifdef SQMOD_OS_WINDOWS
    #include <winsock2.h>
#endif // SQMOD_OS_WINDOWS

// ------------------------------------------------------------------------------------------------
#include <curl/curl.h>
#include <civetweb.h>

// ------------------------------------------------------------------------------------------------
namespace SqMod {

// ------------------------------------------------------------------------------------------------
static bool g_Reload = false;

// ------------------------------------------------------------------------------------------------
extern void InitExports();
extern void InitializeNet();
extern void InitializePocoDataConnectors();
extern void ProcessRoutines();
extern void ProcessTasks();
extern void ProcessThreads();
extern void ProcessNet();
#ifdef SQMOD_DISCORD
    extern void ProcessDiscord();
#endif

/* ------------------------------------------------------------------------------------------------
 * Will the scripts be reloaded at the end of the current event?
*/
bool GetReloadStatus()
{
    return g_Reload;
}

/* ------------------------------------------------------------------------------------------------
 * Toggles the reload status.
*/
void SetReloadStatus(bool toggle)
{
    g_Reload = toggle;
}
/* ------------------------------------------------------------------------------------------------
 * Helper class to make sure that the reload is disabled and the payload is released.
*/
struct ReloadGuard
{
    ~ReloadGuard()
    {
        g_Reload = false;
    }
};

/* ------------------------------------------------------------------------------------------------
 * Perform the actual reload.
*/
void DoReload()
{
    // Are we already trying to reload?
    if (Core::Get().GetCircularLock() & CCL_RELOAD_SCRIPTS)
    {
        return; // Don't even bother!
    }
    // Make sure reloading is disabled at the end of this function
    const ReloadGuard rg;
    // Tell the central core to attempt to reload
    if (!Core::Get().Reload())
    {
        LogFtl("Unable to reload scripts");
    }
}

// --------------------------------------------------------------------------------------------
#define SQMOD_CATCH_EVENT_EXCEPTION(ev) /*
*/ catch (const Poco::Exception & e) /*
*/ { /*
*/  LogErr("Squirrel exception caught (" #ev ") event"); /*
*/  LogSInf("Message: %s", e.displayText().c_str()); /*
*/ } /*
*/ catch (const std::exception & e) /*
*/ { /*
*/  LogErr("Squirrel exception caught (" #ev ") event"); /*
*/  LogSInf("Message: %s", e.what()); /*
*/ } /*
*/

// --------------------------------------------------------------------------------------------
#define SQMOD_RELOAD_CHECK(exp) if (exp) DoReload();

// ------------------------------------------------------------------------------------------------
static uint8_t OnServerInitialise()
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnServerInitialise")
        // Signal outside plug-ins to do fetch our proxies
        _Func->SendPluginCommand(SQMOD_INITIALIZE_CMD, "%d", 1);
        // Attempt to load the module core
        if (Core::Get().Execute())
        {
            Core::Get().EmitServerStartup();
            SQMOD_SV_EV_TRACEBACK("[TRACE>] OnServerInitialise")
            // Add a notification to let the user know the plug-in was loaded
            OutputMessage("The Squirrel plug-in was loaded successfully");
        }
        else
        {
            SQMOD_SV_EV_TRACEBACK("[TRACE>] OnServerInitialise")
            OutputError("Unable to load the plug-in resources properly");
            // The server may not invoke the shutdown callback
            Core::Get().Terminate(true);
            // Failed to initialize
            return SQMOD_FAILURE;
        }
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnServerInitialise)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

/* ------------------------------------------------------------------------------------------------
 * RAII approach to unbinding the server callbacks.
*/
struct CallbackUnbinder
{
    ~CallbackUnbinder()
    {
        memset(_Clbk, 0, sizeof(PluginCallbacks));
    }
};

// ------------------------------------------------------------------------------------------------
static void OnServerShutdown()
{
    // The server still triggers callbacks and we deallocated everything!
    const CallbackUnbinder cu;
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnServerShutdown")
        // Tell the script that the server is shutting down
        Core::Get().EmitServerShutdown();
        // Deallocate and release everything obtained at startup
        Core::Get().Terminate(true);
        curl_global_cleanup();
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnServerShutdown")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnServerShutdown)
    // See if a reload was requested (quite useless here but why not)
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnServerFrame(float elapsed_time)
{
    // Attempt to forward the event
    try
    {
        //SQMOD_SV_EV_TRACEBACK("[TRACE<] OnServerFrame")
        Core::Get().EmitServerFrame(elapsed_time);
        //SQMOD_SV_EV_TRACEBACK("[TRACE>] OnServerFrame")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnServerFrame)
    // Process routines and tasks, if any
    ProcessRoutines();
    ProcessTasks();
    // Process threads
    ProcessThreads();
    // Process network
    ProcessNet();
    // Process Discord
#ifdef SQMOD_DISCORD
    ProcessDiscord();
#endif
    // Process log messages from other threads
    Logger::Get().ProcessQueue();
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static uint8_t OnPluginCommand(uint32_t command_identifier, const char * message)
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPluginCommand")
        Core::Get().EmitPluginCommand(command_identifier, message);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPluginCommand")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPluginCommand)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

// ------------------------------------------------------------------------------------------------
static uint8_t OnIncomingConnection(char * player_name, size_t name_buffer_size,
                                    const char * user_password, const char * ip_address)
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnIncomingConnection")
        Core::Get().EmitIncomingConnection(player_name, name_buffer_size, user_password, ip_address);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnIncomingConnection")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnIncomingConnection)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

// ------------------------------------------------------------------------------------------------
static void OnClientScriptData(int32_t player_id, const uint8_t * data, size_t size)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnClientScriptData")
        Core::Get().EmitClientScriptData(player_id, data, size);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnClientScriptData")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnClientScriptData)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerConnect(int32_t player_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerConnect")
        Core::Get().ConnectPlayer(player_id, SQMOD_CREATE_AUTOMATIC, NullLightObj());
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerConnect")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerConnect)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerDisconnect(int32_t player_id, vcmpDisconnectReason reason)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerDisconnect")
        if (reason == vcmpDisconnectReasonKick)
        {
            Core::Get().DisconnectPlayer(player_id, Core::Get().GetPlayer(player_id).mKickBanHeader,
                                                    Core::Get().GetPlayer(player_id).mKickBanPayload);
        }
        else
        {
            Core::Get().DisconnectPlayer(player_id, reason, NullLightObj());
        }
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerDisconnect")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerDisconnect)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static uint8_t OnPlayerRequestClass(int32_t player_id, int32_t offset)
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerRequestClass")
        Core::Get().EmitPlayerRequestClass(player_id, offset);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerRequestClass")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerRequestClass)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

// ------------------------------------------------------------------------------------------------
static uint8_t OnPlayerRequestSpawn(int32_t player_id)
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerRequestSpawn")
        Core::Get().EmitPlayerRequestSpawn(player_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerRequestSpawn")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerRequestSpawn)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerSpawn(int32_t player_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerSpawn")
        Core::Get().EmitPlayerSpawn(player_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerSpawn")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerSpawn)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerDeath(int32_t player_id, int32_t killer_id, int32_t reason, vcmpBodyPart body_part)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerDeath")
        if (_Func->IsPlayerConnected(killer_id))
        {
            const int32_t pt = _Func->GetPlayerTeam(player_id), kt = _Func->GetPlayerTeam(killer_id);
            Core::Get().EmitPlayerKilled(player_id, killer_id, reason, body_part,
                                            (pt == kt && pt >= 0 && kt >= 0));
        }
        else
        {
            Core::Get().EmitPlayerWasted(player_id, reason, body_part);
        }
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerDeath")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerDeath)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerUpdate(int32_t player_id, vcmpPlayerUpdate update_type)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerUpdate")
        Core::Get().EmitPlayerUpdate(player_id, update_type);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerUpdate")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerUpdate)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static uint8_t OnPlayerRequestEnterVehicle(int32_t player_id, int32_t vehicle_id, int32_t slot_index)
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerRequestEnterVehicle")
        Core::Get().EmitPlayerEmbarking(player_id, vehicle_id, slot_index);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerRequestEnterVehicle")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerRequestEnterVehicle)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerEnterVehicle(int32_t player_id, int32_t vehicle_id, int32_t slot_index)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerEnterVehicle")
        Core::Get().EmitPlayerEmbarked(player_id, vehicle_id, slot_index);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerEnterVehicle")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerEnterVehicle)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerExitVehicle(int32_t player_id, int32_t vehicle_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerExitVehicle")
        Core::Get().EmitPlayerDisembark(player_id, vehicle_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerExitVehicle")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerExitVehicle)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerNameChange(int32_t player_id, const char * old_name, const char * new_name)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerNameChange")
        Core::Get().EmitPlayerRename(player_id, old_name, new_name);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerNameChange")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerNameChange)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerStateChange(int32_t player_id, vcmpPlayerState old_state, vcmpPlayerState new_state)
{
    // Look for changes
    if (old_state == new_state)
    {
        return; // Nothing changed!
    }
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerStateChange")
        Core::Get().EmitPlayerState(player_id, old_state, new_state);
        // Identify the current state and trigger the listeners specific to that
        switch (new_state)
        {
            case vcmpPlayerStateNone:
                Core::Get().EmitStateNone(player_id, old_state);
            break;
            case vcmpPlayerStateNormal:
                Core::Get().EmitStateNormal(player_id, old_state);
            break;
            case vcmpPlayerStateAim:
                Core::Get().EmitStateAim(player_id, old_state);
            break;
            case vcmpPlayerStateDriver:
                Core::Get().EmitStateDriver(player_id, old_state);
            break;
            case vcmpPlayerStatePassenger:
                Core::Get().EmitStatePassenger(player_id, old_state);
            break;
            case vcmpPlayerStateEnterDriver:
                Core::Get().EmitStateEnterDriver(player_id, old_state);
            break;
            case vcmpPlayerStateEnterPassenger:
                Core::Get().EmitStateEnterPassenger(player_id, old_state);
            break;
            case vcmpPlayerStateExit:
                Core::Get().EmitStateExit(player_id, old_state);
            break;
            case vcmpPlayerStateUnspawned:
                Core::Get().EmitStateUnspawned(player_id, old_state);
            break;
            default: LogErr("Unknown player state change: %d", static_cast< int32_t >(new_state));
        }
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerStateChange")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerStateChange)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerActionChange(int32_t player_id, int32_t old_action, int32_t new_action)
{
    // Look for changes
    if (old_action == new_action)
    {
        return; // Nothing changed!
    }
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerActionChange")
        Core::Get().EmitPlayerAction(player_id, old_action, new_action);
        // Identify the current action and trigger the listeners specific to that
        switch (new_action)
        {
            case SQMOD_PLAYER_ACTION_NONE:
                Core::Get().EmitActionNone(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_NORMAL:
                Core::Get().EmitActionNormal(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_AIMING:
                Core::Get().EmitActionAiming(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_SHOOTING:
                Core::Get().EmitActionShooting(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_JUMPING:
                Core::Get().EmitActionJumping(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_LYING_ON_GROUND:
                Core::Get().EmitActionLieDown(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_GETTING_UP:
                Core::Get().EmitActionGettingUp(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_JUMPING_FROM_VEHICLE:
                Core::Get().EmitActionJumpVehicle(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_DRIVING:
                Core::Get().EmitActionDriving(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_DYING:
                Core::Get().EmitActionDying(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_WASTED:
                Core::Get().EmitActionWasted(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_ENTERING_VEHICLE:
                Core::Get().EmitActionEmbarking(player_id, old_action);
            break;
            case SQMOD_PLAYER_ACTION_EXITING_VEHICLE:
                Core::Get().EmitActionDisembarking(player_id, old_action);
            break;
            default: break;
        }
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerActionChange")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerActionChange)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerOnFireChange(int32_t player_id, uint8_t is_on_fire)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerOnFireChange")
        Core::Get().EmitPlayerBurning(player_id, is_on_fire);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerOnFireChange")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerOnFireChange)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerCrouchChange(int32_t player_id, uint8_t is_crouching)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerCrouchChange")
        Core::Get().EmitPlayerCrouching(player_id, is_crouching);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerCrouchChange")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerCrouchChange)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerGameKeysChange(int32_t player_id, uint32_t old_keys, uint32_t new_keys)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerGameKeysChange")
        Core::Get().EmitPlayerGameKeys(player_id, old_keys, new_keys);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerGameKeysChange")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerGameKeysChange)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerBeginTyping(int32_t player_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerBeginTyping")
        Core::Get().EmitPlayerStartTyping(player_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerBeginTyping")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(PlayerBeginTyping)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerEndTyping(int32_t player_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerEndTyping")
        Core::Get().EmitPlayerStopTyping(player_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerEndTyping")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(PlayerEndTyping)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerAwayChange(int32_t player_id, uint8_t is_away)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerAwayChange")
        Core::Get().EmitPlayerAway(player_id, is_away >= 1);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerAwayChange")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerAwayChange)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static uint8_t OnPlayerMessage(int32_t player_id, const char * message)
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerMessage")
        Core::Get().EmitPlayerMessage(player_id, message);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerMessage")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerMessage)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

// ------------------------------------------------------------------------------------------------
static uint8_t OnPlayerCommand(int32_t player_id, const char * message)
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerCommand")
        Core::Get().EmitPlayerCommand(player_id, message);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerCommand")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerCommand)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

// ------------------------------------------------------------------------------------------------
static uint8_t OnPlayerPrivateMessage(int32_t player_id, int32_t target_player_id, const char * message)
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerPrivateMessage")
        Core::Get().EmitPlayerPrivateMessage(player_id, target_player_id, message);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerPrivateMessage")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerPrivateMessage)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerKeyBindDown(int32_t player_id, int32_t bind_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerKeyBindDown")
        Core::Get().EmitPlayerKeyPress(player_id, bind_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerKeyBindDown")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerKeyBindDown)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerKeyBindUp(int32_t player_id, int32_t bind_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerKeyBindUp")
        Core::Get().EmitPlayerKeyRelease(player_id, bind_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerKeyBindUp")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerKeyBindUp)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(g_Reload)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerSpectate(int32_t player_id, int32_t target_player_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerSpectate")
        if (target_player_id < 0)
        {
            Core::Get().EmitPlayerUnspectate(player_id);
        }
        else
        {
            Core::Get().EmitPlayerSpectate(player_id, target_player_id);
        }
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerSpectate")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerSpectate)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnPlayerCrashReport(int32_t player_id, const char * report)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerCrashReport")
        Core::Get().EmitPlayerCrashReport(player_id, report);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerCrashReport")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerCrashReport)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

static void OnPlayerModuleList(int32_t player_id, const char * list)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPlayerModuleList")
        Core::Get().EmitPlayerModuleList(player_id, list);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPlayerModuleList")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPlayerModuleList)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnVehicleUpdate(int32_t vehicle_id, vcmpVehicleUpdate update_type)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnVehicleUpdate")
        Core::Get().EmitVehicleUpdate(vehicle_id, update_type);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnVehicleUpdate")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnVehicleUpdate)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnVehicleExplode(int32_t vehicle_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnVehicleExplode")
        Core::Get().EmitVehicleExplode(vehicle_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnVehicleExplode")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnVehicleExplode)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnVehicleRespawn(int32_t vehicle_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnVehicleRespawn")
        Core::Get().EmitVehicleRespawn(vehicle_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnVehicleRespawn")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnVehicleRespawn)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnObjectShot(int32_t object_id, int32_t player_id, int32_t weapon_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnObjectShot")
        Core::Get().EmitObjectShot(object_id, player_id, weapon_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnObjectShot")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnObjectShot)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnObjectTouched(int32_t object_id, int32_t player_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnObjectTouched")
        Core::Get().EmitObjectTouched(object_id, player_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnObjectTouched")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnObjectTouched)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static uint8_t OnPickupPickAttempt(int32_t pickup_id, int32_t player_id)
{
    // Mark the initialization as successful by default
    const CoreState cs(SQMOD_SUCCESS);
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPickupPickAttempt")
        Core::Get().EmitPickupClaimed(pickup_id, player_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPickupPickAttempt")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPickupPickAttempt)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
    // Return the last known plug-in state
    return ConvTo< uint8_t >::From(Core::Get().GetState());
}

// ------------------------------------------------------------------------------------------------
static void OnPickupPicked(int32_t pickup_id, int32_t player_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPickupPicked")
        Core::Get().EmitPickupCollected(pickup_id, player_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPickupPicked")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPickupPicked)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnPickupRespawn(int32_t pickup_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnPickupRespawn")
        Core::Get().EmitPickupRespawn(pickup_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnPickupRespawn")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnPickupRespawn)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnCheckpointEntered(int32_t checkpoint_id, int32_t player_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnCheckpointEntered")
        Core::Get().EmitCheckpointEntered(checkpoint_id, player_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnCheckpointEntered")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnCheckpointEntered)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnCheckpointExited(int32_t checkpoint_id, int32_t player_id)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnCheckpointExited")
        Core::Get().EmitCheckpointExited(checkpoint_id, player_id);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnCheckpointExited")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnCheckpointExited)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
static void OnEntityPoolChange(vcmpEntityPool entity_type, int32_t entity_id, uint8_t is_deleted)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnEntityPoolChange")
        Core::Get().EmitEntityPool(entity_type, entity_id, is_deleted);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnEntityPoolChange")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnEntityPoolChange)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}

// ------------------------------------------------------------------------------------------------
#if SQMOD_SDK_LEAST(2, 1)
static void OnEntityStreamingChange(int32_t player_id, int32_t entity_id, vcmpEntityPool entity_type, uint8_t is_deleted)
{
    // Attempt to forward the event
    try
    {
        SQMOD_SV_EV_TRACEBACK("[TRACE<] OnEntityStreamingChange")
        Core::Get().EmitEntityStreaming(player_id, entity_id, entity_type, is_deleted);
        SQMOD_SV_EV_TRACEBACK("[TRACE>] OnEntityStreamingChange")
    }
    SQMOD_CATCH_EVENT_EXCEPTION(OnEntityStreamingChange)
    // See if a reload was requested
    SQMOD_RELOAD_CHECK(false)
}
#endif
// ------------------------------------------------------------------------------------------------
static void OnServerPerformanceReport(size_t /*entry_count*/, const char * * /*descriptions*/, uint64_t * /*times*/)
{
    //SQMOD_SV_EV_TRACEBACK("[TRACE<] OnServerPerformanceReport")
    // Ignored for now...
    //SQMOD_SV_EV_TRACEBACK("[TRACE>] OnServerPerformanceReport")
}

} // Namespace:: SqMod

/* ------------------------------------------------------------------------------------------------
 * Automatically terminate the third-party allocator.
*/
static std::unique_ptr< SqMod::RPMallocInit > gsRPMallocInit;

/* ------------------------------------------------------------------------------------------------
 * Plug-in initialization procedure.
*/
SQMOD_API_EXPORT unsigned int VcmpPluginInit(PluginFuncs * funcs, PluginCallbacks * calls, PluginInfo * info)
{
    using namespace SqMod;
    // Output plug-in header
    puts("");
    OutputMessage("--------------------------------------------------------------------");
    OutputMessage("Plug-in: %s", SQMOD_NAME);
    OutputMessage("Author: %s", SQMOD_AUTHOR);
    OutputMessage("Legal: %s", SQMOD_COPYRIGHT);
    OutputMessage("--------------------------------------------------------------------");
    puts("");
    // Store server proxies
    _Func = funcs;
    _Clbk = calls;
    _Info = info;
    // Assign plug-in version
    _Info->pluginVersion = SQMOD_VERSION;
    _Info->apiMajorVersion = PLUGIN_API_MAJOR;
    _Info->apiMinorVersion = PLUGIN_API_MINOR;
    // Assign the plug-in name
    std::snprintf(_Info->name, sizeof(_Info->name), "%s", SQMOD_HOST_NAME);
    // Initialize CURL
    curl_global_init(CURL_GLOBAL_DEFAULT);
    // Initialize third-party allocator
    gsRPMallocInit = std::make_unique< RPMallocInit >();
    // Attempt to initialize the logger before anything else
    Logger::Get().Initialize(nullptr);
    // Attempt to initialize the plug-in core
    try
    {
        // External plugs that need to happen (once) before initialization
        InitializeNet();
        InitializePocoDataConnectors();
        // Proceed with plug-in initialization
        if (!Core::Get().Initialize())
        {
            LogFtl("Unable to initialize the plug-in central core");
            // Attempt to terminate
            Core::Get().Terminate(false);
            // Stop here!
            return SQMOD_FAILURE;
        }
    }
    catch (const Poco::Exception & e)
    {
        LogErr("Program exception caught during initialization");
        LogSInf("Message: %s", e.displayText().c_str());
    }
    catch (const Sqrat::Exception & e)
    {
        LogErr("Squirrel exception caught during initialization");
        LogSInf("Message: %s", e.what());
    }
    catch (const std::exception & e)
    {
        LogErr("System exception caught during initialization");
        LogSInf("Message: %s", e.what());
    }
    catch (...)
    {
        LogErr("Unknown exception caught during initialization");
    }
    // Bind to the server callbacks
    _Clbk->OnServerInitialise           = OnServerInitialise;
    _Clbk->OnServerShutdown             = OnServerShutdown;
    _Clbk->OnServerFrame                = OnServerFrame;
    _Clbk->OnPluginCommand              = OnPluginCommand;
    _Clbk->OnIncomingConnection         = OnIncomingConnection;
    _Clbk->OnClientScriptData           = OnClientScriptData;
    _Clbk->OnPlayerConnect              = OnPlayerConnect;
    _Clbk->OnPlayerDisconnect           = OnPlayerDisconnect;
    _Clbk->OnPlayerRequestClass         = OnPlayerRequestClass;
    _Clbk->OnPlayerRequestSpawn         = OnPlayerRequestSpawn;
    _Clbk->OnPlayerSpawn                = OnPlayerSpawn;
    _Clbk->OnPlayerDeath                = OnPlayerDeath;
    _Clbk->OnPlayerUpdate               = OnPlayerUpdate;
    _Clbk->OnPlayerRequestEnterVehicle  = OnPlayerRequestEnterVehicle;
    _Clbk->OnPlayerEnterVehicle         = OnPlayerEnterVehicle;
    _Clbk->OnPlayerExitVehicle          = OnPlayerExitVehicle;
    _Clbk->OnPlayerNameChange           = OnPlayerNameChange;
    _Clbk->OnPlayerStateChange          = OnPlayerStateChange;
    _Clbk->OnPlayerActionChange         = OnPlayerActionChange;
    _Clbk->OnPlayerOnFireChange         = OnPlayerOnFireChange;
    _Clbk->OnPlayerCrouchChange         = OnPlayerCrouchChange;
    _Clbk->OnPlayerGameKeysChange       = OnPlayerGameKeysChange;
    _Clbk->OnPlayerBeginTyping          = OnPlayerBeginTyping;
    _Clbk->OnPlayerEndTyping            = OnPlayerEndTyping;
    _Clbk->OnPlayerAwayChange           = OnPlayerAwayChange;
    _Clbk->OnPlayerMessage              = OnPlayerMessage;
    _Clbk->OnPlayerCommand              = OnPlayerCommand;
    _Clbk->OnPlayerPrivateMessage       = OnPlayerPrivateMessage;
    _Clbk->OnPlayerKeyBindDown          = OnPlayerKeyBindDown;
    _Clbk->OnPlayerKeyBindUp            = OnPlayerKeyBindUp;
    _Clbk->OnPlayerSpectate             = OnPlayerSpectate;
    _Clbk->OnPlayerCrashReport          = OnPlayerCrashReport;
    _Clbk->OnVehicleUpdate              = OnVehicleUpdate;
    _Clbk->OnVehicleExplode             = OnVehicleExplode;
    _Clbk->OnVehicleRespawn             = OnVehicleRespawn;
    _Clbk->OnObjectShot                 = OnObjectShot;
    _Clbk->OnObjectTouched              = OnObjectTouched;
    _Clbk->OnPickupPickAttempt          = OnPickupPickAttempt;
    _Clbk->OnPickupPicked               = OnPickupPicked;
    _Clbk->OnPickupRespawn              = OnPickupRespawn;
    _Clbk->OnCheckpointEntered          = OnCheckpointEntered;
    _Clbk->OnCheckpointExited           = OnCheckpointExited;
    _Clbk->OnEntityPoolChange           = OnEntityPoolChange;
    _Clbk->OnServerPerformanceReport    = OnServerPerformanceReport;
    _Clbk->OnPlayerModuleList           = OnPlayerModuleList;
#if SQMOD_SDK_LEAST(2, 1)
    _Clbk->OnEntityStreamingChange      = OnEntityStreamingChange;
#endif
    // Attempt to initialize the plug-in exports
    InitExports();
    // Dummy spacing
    puts("");
    // Initialization was successful
    return SQMOD_SUCCESS;
}