SKSE: Bind a script to an object at runtime

SKSE: Bind a script to an object at runtime.cpp

void BindObjectToScript() {
    ConsoleLog::GetSingleton()->Print("Binding the BindMe script...");

    auto* character = PlayerCharacter::GetSingleton();
    auto* vm = VirtualMachine::GetSingleton();
    auto* handlePolicy = vm->GetObjectHandlePolicy();
    auto* bindPolicy = vm->GetObjectBindPolicy();

    // Force load the BindMe script
    vm->linker.Process(BSFixedString("BindMe"));

    // Get a handle for the character
    auto handle = handlePolicy->GetHandleForObject(character->GetFormType(), character);

    // Create an object for this script
    BSTSmartPointer<Object> objectPtr;
    vm->CreateObject("BindMe", objectPtr);

    // Bind it!
    bindPolicy->BindObject(objectPtr, handle);
}