Kadafi - Map Intro

#=============================================================================
# Kadafi - Map Intro
# Version : 1.0
# Contact : http://www.facebook.com/xandalfi
# =============================================================================
($imported ||= {})[:Kadafi_MapIntro] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2014.12.24 - Finished script
# =============================================================================
=begin

  Introduction :
  This script allow you to make intro from map events.

  How to Use :
  Don't forget to return the scene to the Scene Title after intro.
  (SceneManager.goto(Scene_Title)

  Terms of Use :
  1. Credit me as Kadafi

=end
# =============================================================================
# Configuration
# =============================================================================
  module Kadafi
    module MapIntro
      Map_ID = 2
      Start_X  = 1
      Start_Y  = 1
    end
  end
# =============================================================================
# Don't edit below this line unless you know what to do.
# =============================================================================
  module DataManager
    def self.setup_intro
      create_game_objects
      $game_party.setup_starting_members
      $game_map.setup(Kadafi::MapIntro::Map_ID)
      $game_player.moveto(Kadafi::MapIntro::Start_X, Kadafi::MapIntro::Start_Y)
      $game_player.refresh
      Graphics.frame_count = 0
    end
  end

  module SceneManager
    def self.first_scene_class
      $BTEST ? Scene_Battle : Scene_MapIntro
    end
  end

  class Scene_MapIntro < Scene_Base
    def start()
      super
      SceneManager.clear
      Graphics.freeze
      DataManager.setup_intro
      $game_map.autoplay
      SceneManager.goto(Scene_Map)
    end
  end