#===================================================================
# Auteur : Miraino Hikari
# Version : 1.0 (25juin2008)
# Sert à ajouter des variables locales dans les events.
# Pour afficher la valeur dans un message,
# \SV[MAPID,EVENTID,VARID]
# où MAPID est l'ID de la carte où se trouve l'événement
#    EVENTID est l'ID de l'event
#    VARID est l'ID de la variable locale (entier ou chaîne)
#
# exemples :
# \SV["B"] affiche la variable B de l'event courant
# \SV[4] affiche la variable 4 de l'event courant
# \SV[1,7,"A"] affiche la variable A de l'event 7 de la carte 1
# \SV[2,4,5] affiche la variable 5 de l'event 4 de la carte 2
#
# Des instructions concernant l'affectation de ces variables sont
# présentes sur http://rpg-maker-vx.bbactif.com/
#===================================================================

# ID des variables de contrôl utilisé lors de l'affichage de la valeur dans un message
# facultatif si la valeur n'est jamais affichée.
$MAP_ID_MESSAGE_VAR = 95
$EVENT_ID_MESSAGE_VAR = 96

class Game_SelfVars
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
  def initialize
    @data = {}
  end
  #--------------------------------------------------------------------------
  # * Get Self Switch
  #    key : key
  #--------------------------------------------------------------------------
  def [](key)
    if @data[key] == nil
      return 0
    else
      return @data[key]
    end
  end
  #--------------------------------------------------------------------------
  # * Set Self Switch
  #    key  : key
  #--------------------------------------------------------------------------
  def []=(key, value)
    @data[key] = value
  end
end

class Scene_Title < Scene_Base
  alias orig_obj_creation_SelfVars create_game_objects
  def create_game_objects
    orig_obj_creation_SelfVars
    $game_self_vars = Game_SelfVars.new
  end
end

class Game_Event < Game_Character
  def get_id
    return @id
  end
  def get_map
    return @map_id
  end
end

class Window_Message < Window_Selectable
  alias conv_sp_char_SelfVars convert_special_characters
  def convert_special_characters
    conv_sp_char_SelfVars
    #convertie les self varaibles de type "string" par référence à un autre event
    @text.gsub!(/\\SV\[(\d+),(\d+),\"(\D+)\"\]/i) { $game_self_vars[[$1.to_i,$2.to_i,$3.to_s]] }
    #convertie les self varaibles de type "integer" par référence à un autre event
    @text.gsub!(/\\SV\[(\d+),(\d+),(\d+)\]/i) { $game_self_vars[[$1.to_i,$2.to_i,$3.to_i]] }
    #convertie les self varaibles de type "string" sur l'event courant
    @text.gsub!(/\\SV\[\"(\D+)\"\]/i) { $game_self_vars[[$game_variables[$MAP_ID_MESSAGE_VAR].to_i,$game_variables[$EVENT_ID_MESSAGE_VAR].to_i,$1.to_s]] }
    #convertie les self varaibles de type "integer" sur l'event courant
    @text.gsub!(/\\SV\[(\d+)\]/i) { $game_self_vars[[$game_variables[$MAP_ID_MESSAGE_VAR].to_i,$game_variables[$EVENT_ID_MESSAGE_VAR].to_i,$1.to_i]] }
  end
end

#préparation
event = get_character(0)
m_v = $MAP_ID_MESSAGE_VAR
e_v = $EVENT_ID_MESSAGE_VAR
$game_variables[m_v]= map = event.get_map
$game_variables[e_v]= id = event.get_id
#affectation
@cle = [map, id, "A"]
$game_self_vars[@cle]+=1

$game_self_switches[@cleX]=true

$game_self_switches[@cleX]=true

$game_self_switches[@cleX]=true