Theo - Variable Store

# =============================================================================
# TheoAllen - Variable Store
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# Requester : RavenBlueIndigo (www.rpgmakervxace.net)
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_VariableStore]
# =============================================================================
# Change Logs:
# -----------------------------------------------------------------------------
# 2013.11.18 - Finished script
# =============================================================================
=begin

  Perkenalan :
  Script ini membuat kamu bisa menyimpan nilai variable. Nilai variable yang
  disimpan akan tetap sama walau player new game, atau load

  Cara penggunaan :
  Pasang script ini dibawah material namun diatas main
  Edit konfignya untuk nentuin variable mana aja yang bakal disimpen

  Terms of use :
  Credit gw, TheoAllen. Kalo semisal u bisa ngedit2 script gw trus jadi lebih
  keren, terserah. Ane bebasin. Asal ngga ngeklaim aja. Kalo semisal mau
  dipake buat komersil, jangan lupa, gw dibagi gratisannya.

=end
# =============================================================================
# Konfig :
# =============================================================================

  Stored_Variables_ID = [1,2,3,4,5]
# Catet variable ID yang mau kamu save disini

# =============================================================================
# Akhir dari konfig
# =============================================================================
class << DataManager

  alias theo_savedvar_create_obj create_game_objects
  def create_game_objects
    theo_savedvar_create_obj
    load_variables
  end

  def load_variables
    save_variables unless variable_file_exist?
    load_saved_variables
    puts $game_variables[1]
  end

  def save_variables
    hash = {}
    Stored_Variables_ID.each do |id|
      hash[id] = $game_variables[id]
    end
    File.open(variable_filename, "wb") do |file|
      Marshal.dump(hash, file)
    end
  end

  def load_saved_variables
    hash = load_data(variable_filename)
    hash.each do |id,value|
      $game_variables.theo_savedvar(id, value)
    end
  end

  def variable_file_exist?
    FileTest.exist?(variable_filename)
  end

  def variable_filename
    return "Data/Variables.rvdata2"
  end

  alias theo_savedvar_load_game load_game
  def load_game(index)
    begin
      theo_savedvar_load_game(index)
      load_saved_variables
      return true
    rescue
      return false
    end
  end

end

class Game_Variables

  alias :theo_savedvar :[]=
  def []=(variable_id, value)
    theo_savedvar(variable_id, value)
    if Stored_Variables_ID.include?(variable_id) &&
      DataManager.variable_file_exist?
      DataManager.save_variables
    end
  end

end