After Death call common event and transfer to a specific map 2

# ╔═══════════════════════════════════════════════╦════════════════════╗
# ║ Title: Call CE Transfer with variables        ║  Version: 1.00     ║
# ║ Author: Roninator2                            ║                    ║
# ╠═══════════════════════════════════════════════╬════════════════════╣
# ║ Function:                                     ║   Date Created     ║
# ║                                               ╠════════════════════╣
# ║   Script Function                             ║    29 Sep 2020     ║
# ╚═══════════════════════════════════════════════╩════════════════════╝
# ╔════════════════════════════════════════════════════════════════════╗
# ║ Requires: nil                                                      ║
# ║                                                                    ║
# ╚════════════════════════════════════════════════════════════════════╝
# ╔════════════════════════════════════════════════════════════════════╗
# ║ Brief Description:                                                 ║
# ║       Call Common Event when death occurs                          ║
# ╚════════════════════════════════════════════════════════════════════╝
# ╔════════════════════════════════════════════════════════════════════╗
# ║ Instructions:                                                      ║
# ║   Configure settings below                                         ║
# ║   Set variables to specify what map to return to after death       ║
# ╚════════════════════════════════════════════════════════════════════╝
# ╔════════════════════════════════════════════════════════════════════╗
# ║ Updates:                                                           ║
# ║ 1.00 - 29 Sep 2020 - Script finished                               ║
# ║                                                                    ║
# ╚════════════════════════════════════════════════════════════════════╝
# ╔════════════════════════════════════════════════════════════════════╗
# ║ Credits and Thanks:                                                ║
# ║   Roninator2                                                       ║
# ║                                                                    ║
# ╚════════════════════════════════════════════════════════════════════╝
# ╔════════════════════════════════════════════════════════════════════╗
# ║ Terms of use:                                                      ║
# ║  Follow the original Authors terms of use where applicable         ║
# ║    - When not made by me (Roninator2)                              ║
# ║  Free for all uses in RPG Maker except nudity                      ║
# ║  Anyone using this script in their project before these terms      ║
# ║  were changed are allowed to use this script even if it conflicts  ║
# ║  with these new terms. New terms effective 03 Apr 2024             ║
# ║  No part of this code can be used with AI programs or tools        ║
# ║  Credit must be given                                              ║
# ╚════════════════════════════════════════════════════════════════════╝

module R2_nodie
    CEID = 1            # common event id
    UseCE = 2           # switch to call common event
    Rewards = 1     # switch to activate this script
    Map = 1             # variable to hold map id to transfer to
    X_spot = 2      # variable to hold player x position
    Y_spot = 3      # variable to hold the player y position
    Dir      = 4        # variable to hold the player direction facing
end

module Vocab
    Livetext = "Barely made it out!"
end

# ╔════════════════════════════════════════════════════════════════════╗
# ║                      End of editable region                        ║
# ╚════════════════════════════════════════════════════════════════════╝

module BattleManager
  def self.process_defeat
        if $game_switches[R2_nodie::Rewards] == true
            $game_message.add(sprintf(Vocab::Livetext, $game_party.name))
            wait_for_message
            revive_battle_members
            display_exp
            gain_gold
            gain_drop_items
            gain_exp
            replay_bgm_and_bgs
            SceneManager.return
            if $game_variables[R2_nodie::Map] == 0; $game_variables[R2_nodie::Map] = 1; end
            if $game_variables[R2_nodie::X_spot] == 0; $game_variables[R2_nodie::X_spot] = 5; end
            if $game_variables[R2_nodie::Y_spot] == 0; $game_variables[R2_nodie::Y_spot] = 5; end
            if $game_variables[R2_nodie::Dir] != 2 || 4 || 6 || 8; $game_variables[R2_nodie::Dir] = 2; end
            map_id = $game_variables[R2_nodie::Map]
            x = $game_variables[R2_nodie::X_spot]
            y = $game_variables[R2_nodie::Y_spot]
            direction = $game_variables[R2_nodie::Dir]
            $game_player.reserve_transfer(map_id, x, y, direction)
            $game_player.perform_transfer
            $game_temp.reserve_common_event(R2_nodie::CEID) if $game_switches[R2_nodie::UseCE] == true
            battle_end(0)
            return true
        else
            $game_message.add(sprintf(Vocab::Defeat, $game_party.name))
            wait_for_message
            if @can_lose
                revive_battle_members
                replay_bgm_and_bgs
                SceneManager.return
            else
                SceneManager.goto(Scene_Gameover)
            end
            battle_end(2)
            return true
        end
  end
end