#==============================================================================
# ■ RGSS2 暗号化作品テストモード禁止 Ver1.00 by 星潟
#------------------------------------------------------------------------------
# 改造EXEを用いたテストモードを防止します。
# ゲーム起動時に暗号化データの有無を確認し
# 以降、フレーム更新時に不正テストモードの判定を行い
# 不正テストモードと判定された場合はゲームを強制終了させます。
#==============================================================================
class Scene_Base
  alias main_illegal_buster main unless $!
  def main
    $protect_flag = Dir.glob('Game.rgss2a').empty? ? false : true
    main_illegal_buster
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias update_exit update unless $!
  def update
    update_exit
    illegal_test_mode_prevent
  end
  #--------------------------------------------------------------------------
  # ● 不正テストモードの場合、ゲームを強制終了させる
  #--------------------------------------------------------------------------
  def illegal_test_mode_prevent
    return unless illegal_test?
    $scene = nil
  end
  #--------------------------------------------------------------------------
  # ● 不正テストモード判定
  #--------------------------------------------------------------------------
  def illegal_test?
    #保護が有効で、なおかつテストモードの場合は不正テストモードと判定
    $protect_flag == true && ($TEST or $DEBUG)
  end
end