module SHD
  Use_Clear_Map_Battleback = true
end

module SceneManager

  # Make clear snapshot for battleback
  def self.snapshot_for_battleback
    return unless SHD::Use_Clear_Map_Battleback
    @background_bitmap.dispose if @background_bitmap
    @background_bitmap = Graphics.snap_to_bitmap
  end

end

class Scene_Map < Scene_Base

  alias :dispose_spriteset_clr_bg :dispose_spriteset
  def dispose_spriteset
    SceneManager.snapshot_for_battleback if SceneManager.scene_is?(Scene_Battle)
    dispose_spriteset_clr_bg
  end

  alias :perform_battle_transition_clr_bg :perform_battle_transition
  def perform_battle_transition
    perform_battle_transition_clr_bg unless SHD::Use_Clear_Map_Battleback
  end
end

class Scene_Battle < Scene_Base

  def pre_terminate
    super
    Graphics.fadeout(30) if SceneManager.scene_is?(Scene_Map) && !SHD::Use_Clear_Map_Battleback
    Graphics.fadeout(60) if SceneManager.scene_is?(Scene_Title)
  end

end

class Spriteset_Battle

  alias :battleback1_bitmap_clr_bg :battleback1_bitmap
  def battleback1_bitmap
    if SHD::Use_Clear_Map_Battleback
      copy_clear_background
    else
      battleback1_bitmap_clr_bg
    end
  end

  def copy_clear_background
    source = SceneManager.background_bitmap
    bitmap = Bitmap.new(Graphics.width, Graphics.height)
    bitmap.stretch_blt(bitmap.rect, source, source.rect)
    bitmap
  end
end