[RMXP] Clima automatico v. 2.0

#======================================================================#
#  Script de Control de Clima Automatico V 2.0                         #
#  ****** By Midnight Mooon                               ******       #
#  ****** Basado en el Script de Control de Clima V 1.1   ******       #
#  ****** Originalmente Realizado por Falcao              ******       #
# Descripcion: Script para RPG Maker XP, que controla el clima         #
#     Con sencillos comandos, y para mas facilidad se puede            #
#     configurar un clima para un mapa en especifico.                  #
#======================================================================#
module ConfigIClima
#-----------------------------------------------------------------------
# Poner entre los corchetes el ID del Mapa, segun el efecto que se quiera.
  MapIMaps = {
    "Normal" => [], # Normal
    "House" => [3, 5], # House (Parecido a Normal, solo que en este se guarda
      #el status antes de entrar para al salir tener el mismo clima.
    "Fog" => [], # Niebla
    "Sun" => [], # Soleado
    "Night" => [], # Noche
    "Cloudy" => [], # Nublado
    "SunWithCloud" => [], # Nubes con Rayos de Sol
    "Rain" => [], # Lloviendo
    "ThunderRain" => [], # Lloviendo con Truenos
    "Storm" => [4], # Tormenta Electrica
    "Ice" => [2], # Nevando
    "IceStorm" => [], # Tormenta de Nieve
    "AleatoryRain" => [] # Exterior, puede llover o no, soleado o nublado,
    #o estar soleado y despues empezar a llover.
  }
  # Declarar las secuencias en la variable MapISequence, poner su nombre aqui,
  # Para poder declarar mapas con esa secuencia.
  MapISequences = {
    "AleatorySun" => [1]
  }
  
  # A continuacion esta la configuracion de los climas.
  # No borrar los existentes, solo dar de alta si lo requieres.
  # Si se da de alta aqui un clima tambien se debe de dar de alta en MapIMaps
  # Para poder poner default en uno.
  # En todos los grupos de arreglos de 2 al estilo [0, 0].
  # Indica que tiene un valo con posible variacion.
  # El primer valor indica el valor por default y el segundo la variacion.
  # Por ejemplo si se pone [5, 7] en un movimiento de eje de las x en fog
  # Indica que su movimiento ira de 5 a maximo 12  cada vez que se cargue.
  # O Tambien si se pone [-5, 3] en un movimiento de eje de las x en fog
  # Indica que su movimiento ira de -5 a maximo -2  cada vez que se cargue.
  MapIWeather = {
    "Normal" => { # Clima Normal
      "Tone" => [[0, 0], [0, 0], [0, 0], [0, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [0, [0, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Fade" => [800 , 0]# Dispersion del sonido del anterior clima.
    },
    "House"  => { # Clima House
      "Tone" => [[0, 0], [0, 0], [0, 0], [0, 0], [10, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [0, [0, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Fade" => [800, 0], # Dispersion del sonido del anterior clima.
      "SaveWeather" => true # Indica si se guardara el clima del mapa anterior que no sea otro SaveWeather = true
    },
    "Fog" => { # Clima con Niebla
      "Tone" => [[-68, 0], [-68, 0], [-68, 0], [0, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [0, [0, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Fade" => [800, 0], # Dispersion del sonido del anterior clima.
      "Fog" => ["001-Fog01", [70, 0], [5, 7], [3, 6]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Change" => [250, 450] # Cambio de Niebla
    },
    "Sun" => { # Clima Soleado
      "Tone" => [[0, 0], [0, 0], [-28, 0], [-34, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [0, [0, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "BFade" => [800, 0], # Dispersion del sonido del anterior clima.
      "Fog" => ["011-Bondia01", [15, 0], [5, 0], [5, 0]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Picture" => ["001-Bondia01.png" , [50, 0]] # Imagen [Nombre, Opacidad]
    },
    "Cloudy" => { # Clima Nublado
      "Tone" => [[-16, 0], [-16, 0], [-16, 0], [-10, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [0, [0, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "BGSFade" => [800, 0], # Dispersion del sonido del anterior clima.
      "Fog" => ["001-Fog01", [15, 0], [1, 6], [1, 7]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Change" => [250, 450] # Cambio de Niebla
    },
    "Night" => {  # Clima de Noche
      "Tone" => [[-110, 0], [-110, 0], [-110, 0], [0, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [0, [0, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Fade" => [800, 0], # Dispersion del sonido del anterior clima.
      "Fog" => ["001-Fog01", [15, 0], [1, 6], [1, 7]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Change" => [250, 450] # Cambio de Niebla
    },
    "SunWithCloud" => { # Clima de Sol con Nubes
      "Tone" => [[0, 0], [0, 0], [-28, 0], [0, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [0, [0, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Fade" => [800, 0], # Dispersion del sonido del anterior clima.
      "Fog" => ["001-Fog01", [23, 0], [-1, 9], [-1, 9]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Picture" => ["001-Bondia01.png" , [50, 0]], # Imagen [Nombre, Opacidad]
      "Change" => [250, 450] # Cambio de Niebla
    },
    "Rain" => { # Clima de lluvia
      "Tone" => [[-68, 0], [-68, 0], [-68, 0], [0, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [1, [6, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Audio" => ["005-Rain01", [100, 0], [100, 0]], # Reproducir un archivo de audio [Archivo, Volumen, ???]
      "Fog" => ["001-Fog01", [40, 0], [3, 4], [2, 3]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Change" => [250, 450] # Cambio de Niebla
    },
    "ThunderRain" => { # Clima de lluvia con truenos
      "Tone" => [[-68, 0], [-68, 0], [-68, 0], [0, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [1, [6, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Audio" => ["005-Rain01", [100, 0], [100, 0]], # Reproducir un archivo de audio [Archivo, Volumen, ???]
      "Fog" => ["001-Fog01", [40, 0], [3, 4], [2, 3]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Change" => [250, 450], # Cambio de Niebla
      "Effect" => { # Configuracion del Efecto
        "Change" => [230, 120], # Cambio de Efecto
        "Type" => 0, # Tipo de Efecto.
        # 0 - Efecto de una sola vez cada vez que abarque el tiempo.
        "Audio" => ["061-Thunderclap01", [100, 0], [100, 0]], # Reproducir un archivo de audio [Archivo, Volumen, ???]
        "Flash" => [[255, 0], [255, 0], [255, 0], [255, 0], [15, 0]] # Definimos un color para un flash en pantalla [R, G, B, Gray, Tiempo]
      }
    },
    "Storm" => { # Clima de Tormenta
      "Tone" => [[-68, 0], [-68, 0], [-68, 0], [0, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [2, [9, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Audio" => ["006-Rain02", [100, 0], [100, 0]], # Reproducir un archivo de audio [Archivo, Volumen, ???]
      "Fog" => ["001-Fog01", [40, 0], [5, 4], [3, 4]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Change" => [250, 450], # Cambio de Niebla
      "Effect" => { # Configuracion del Efecto
        "Change" => [120, 120], # Cambio de Efecto
        "Type" => 0, # Tipo de Efecto. 0 - Inemadiato
        # 0 - Efecto de una sola vez cada vez que abarque el tiempo.
        "Audio" => ["061-Thunderclap01", [100, 0], [100, 0]], # Reproducir un archivo de audio [Archivo, Volumen, ???]
        "Flash" => [[255, 0], [255, 0], [255, 0], [255, 0], [15, 0]] # Definimos un color para un flash en pantalla [R, G, B, Gray, Tiempo]
      }
    },
    "Ice" => { # Clima Nevando
      "Tone" => [[15, 0], [15, 0], [15, 0], [15, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [3, [4, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Audio" => ["002-Wind02", [100, 0], [100, 0]], # Reproducir un archivo de audio [Archivo, Volumen, ???]
      "Fog" => ["001-Fog01", [10, 0], [4, 2], [3, 3]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Effect" => { # Configuracion del Efecto
        "Change" => [180, 40], # Cambio de Efecto
        "Type" => 1, # Tipo de Efecto.
        # 0 - Efecto de una sola vez cada vez que abarque el tiempo.
        # 1 - Progresivo. Cuando se cumple el tiempo del efecto ocurre algo hasta un limite. 
        #   Y posteriormente regresa a otro punto del efecto y reinicia el contador despues.
        "Max" => { # Parametros que se iran incrementando, hasta llegar a un limite.
          "Fog" => {
            "Opacity" => [1,0] # Esto quiere decir  que habra un incremento de 1 en uno
          },
          "Limit" => [ # En limit es un arreglo de hashes, meter en el mismo hash todas las condiciones
          # para que solo al cumplirse todas llegue al limit. Crerar Varios Hashes en el caso que se 
          # quiera dar de alta varias condiciones posibles para volver a bajar.
            {
              "Fog" => {
                "Opacity" => [70, 0]
              }
            }
          ]
        },
        "Min" => { # Parametros que se iran decrementando, hasta llegar a un limite.
          "Fog" => {
            "Opacity" => [-1,0] # Esto quiere decir  que habra un incremento de 1 en uno con variacion de 0
          },
          "Limit" => [ # En limit es un arreglo de hashes, meter en el mismo hash todas las condiciones
          # para que solo al cumplirse todas llegue al limit. Crerar Varios Hashes en el caso que se 
          # quiera dar de alta varias condiciones posibles para volver a bajar.
            {
              "Fog" => {
                "Opacity" => 15
              }
            }
          ]
        }
      }
    },
    "IceStorm" => { # Clima de Tormenta de Nieve
      "Tone" => [[30, 0], [30, 0], [30, 0], [25, 0], [20, 0]], # Definir el Tone [R, G, B, Gray, Tiempo_Cambio]
      "Weather" => [3, [9, 0], [20, 0]], # Definimos el Clima [Clima, Fuerza, Tiempo_Cambio]
      "Audio" => ["003-Wind03", [100, 0], [100, 0]], # Reproducir un archivo de audio [Archivo, Volumen, ???]
      "Fog" => ["001-Fog01", [15, 0], [8, 6], [3, 5]], # Definir la Niebla [Nombre, Opacity, movimiento_x, movimiento_y]
      "Effect" => { # Configuracion del Efecto
        "Change" => [130, 40], # Cambio de Efecto
        "Type" => 1, # Tipo de Efecto.
        # 0 - Efecto de una sola vez cada vez que abarque el tiempo.
        # 1 - Progresivo. Cuando se cumple el tiempo del efecto ocurre algo hasta un limite. 
        #   Y posteriormente regresa a otro punto del efecto y reinicia el contador despues.
        "Max" => { # Parametros que se iran incrementando, hasta llegar a un limite.
          "Fog" => {
            "Opacity" => [0.5,0] # Esto quiere decir  que habra un incremento de 1 en uno
          },
          "Limit" => [ # En limit es un arreglo de hashes, meter en el mismo hash todas las condiciones
          # para que solo al cumplirse todas llegue al limit. Crerar Varios Hashes en el caso que se 
          # quiera dar de alta varias condiciones posibles para volver a bajar.
            {
              "Fog" => {
                "Opacity" => [100, 0]
              }
            }
          ]
        },
        "Min" => { # Parametros que se iran decrementando, hasta llegar a un limite.
          "Fog" => {
            "Opacity" => [-2,0] # Esto quiere decir  que habra un incremento de 1 en uno con variacion de 0
          },
          "Limit" => [ # En limit es un arreglo de hashes, meter en el mismo hash todas las condiciones
          # para que solo al cumplirse todas llegue al limit. Crerar Varios Hashes en el caso que se 
          # quiera dar de alta varias condiciones posibles para volver a bajar.
            {
              "Fog" => {
                "Opacity" => 20
              }
            }
          ]
        }
      }
    }
  }
  
  # Declarar Secuencias como se muestra en el ejemplo.
  # Initialize muestra los climas que puede tener al iniciar, se pone asi cada clima
  # separado por una coma [nombre_clima, porcentaje], si se desea que siempre aparezca
  # cierto clima para empezar poner [nombre_clima, 100]
  # Change indica que si se esta en un clima a cual puede cambiar al cumplir cierto tiempo.
  # Dentro se pone cada clima de los que pueda haber en la secuencia.
  # "nombre_clima" => {}
  # Dentro de los corchetes van dos opciones, Duration y Weather.
  # Duration es la duracion del clima antes de ejecutar un cambio, si se desea
  # que al llegar a un clima ya no cambie poner [0, 0] se maneja una base y una variacion
  # si pones [200, 400] quiere decir que la base es 200 y la variacion es 400, entonces
  # el tiempo de cambio sera entre 200 y 600
  # Y en weather se ponen los climas con el mismo formato que en Initialize
  MapISequence = {
    "AleatorySun" => {
      "Initialize" => [
        ["Normal", 50],
        ["Cloudy", 30],
        ["Sun", 20]
      ],
      "Change" => {
        "Normal" => {
          "Duration" => [400, 600],
          "Weather" => [
            ["Cloudy", 50],
            ["Normal", 50]
          ]
        },
        "Cloudy" => {
          "Duration" => [300, 200],
          "Weather" => [
            ["Cloudy", 50],
            ["Normal", 50]
          ]
        },
        "Sun" => {
          "Duration" => [400, 200],
          "Weather" => [
            ["SunWithCloud", 60],
            ["Sun", 20],
            ["Normal", 20]
          ]
        }
      }
    }
  }
#-----------------------------------------------------------------------
end
#-----------------------------------------------------------------------
# Los Climas se pueden llamar desde un evento con una llamdo a script.
# $clima.weather([Nombre_del_clima])
# Nombre_del_clima es el nombre con el que existe el clima o con el que se dio de alta.
# Ejemplo: $clima.weather("Ice")
#
# Las secuencia se pueden llamar desde un evento con un script llamado.
# $clima.call_sequence([Nombre_de_la_secuencia])
# Nombre_de_la_secuencia es el nombre con el que existe la secuencia o con el que se dio de alta.
# Ejemplo: $clima.call_sequence("AleatorySun")
#
# IMPORTANTE: Si manualmente se llama un clima, y anteriormente existe una secuencia, corriendo.
# antes de llamar el clima se llama el metodo stop_sequence.
# Ejemplo:
#   stop_sequence
#   $clima.weather("Ice")
#-----------------------------------------------------------------------
class Clima
  include ConfigIClima
  
  # Definimos Acceso a Atributos
  attr_accessor :type
  attr_accessor :sequence
  
  # Inicializamos Clase
  def initialize
    @type = [
      {
        "weather" => "Normal",
        "change" => [0, 0],
        "effect" => [0, 0]
      },
      {
        "weather" => "",
        "change" => [0, 0],
        "effect" => [0, 0]
      }
    ]
    @save = false
    @restore = false
    @initialize = false
    @sequence = {
      "type" => "",
      "change" => [0, 0]
    }
  end
  
  # Metodo para Cargar el Clima
  def weather(clima)
    @initialize = true
    # Metodos para reiniciar, el clima por si sales o entras a una casa
    if MapIWeather[clima]["SaveWeather"] != nil
      if MapIWeather[clima]["SaveWeather"] == true
        if @type[1]["weather"] != ""
          if MapIWeather[@type[1]["weather"]]["SaveWeather"] != nil
            if MapIWeather[@type[1]["weather"]]["SaveWeather"] == false
              saveweather(1)
            end
          else
            saveweather(1)
          end
        else
          saveweather(1)
        end
      else
        saveweather(2)
      end
    else
      saveweather(2)
    end
    
    # Metodos que inicializan cada clima, en caso de ser el mismo solo reinicia el efecto y cambio
    if @type[0]["weather"] != clima
      clean
      @type[0]["weather"] = clima
      @type[0]["change"][0] = 0
      @type[0]["change"][1] = 0
      @type[0]["effect"][0] = 0
      @type[0]["effect"][1] = 0
    end
    
    update
  end
  
  def update
    if MapIWeather[@type[0]["weather"]]["Change"] == nil
      change = true
    elsif MapIWeather[@type[0]["weather"]]["Change"] != nil  
      change = false
    end
    # Lee todos los efectos del clima mandado y ejecuta uno por uno
    # Tambien en la mayoria valida que cambio sea menor igual a 0
    # Para en caso de estar iterando el mismo clima no lo cambie a menos que realmente sea necesario
    MapIWeather[@type[0]["weather"]].each do |key, value| 
      case key 
        when "Change"
          if @type[0]["change"][0] < @type[0]["change"][1] || @type[0]["change"][0] == 0
            temp_0 = random(value[0], value[1])
            @type[0]["change"][0] = temp_0.round
            @type[0]["change"][1] = 0
            change = true
          end
      end
    end
    
    if @initialize == true
      change = true
      @initialize = false
    end
    
    MapIWeather[@type[0]["weather"]].each do |key, value|
      case key 
        when "Tone"
          if change == true
            temp_0 = random(value[0][0], value[0][1])
            temp_1 = random(value[1][0], value[1][1])
            temp_2 = random(value[2][0], value[2][1])
            temp_3 = random(value[3][0], value[3][1])
            temp_4 = random(value[4][0], value[4][1])
            $game_screen.start_tone_change(Tone.new(temp_0.round, temp_1.round, temp_2.round, temp_3.round), temp_4.round)
          end
        when "Weather"
          if change == true
            temp_0 = random(value[1][0], value[1][1])
            temp_1 = random(value[2][0], value[2][1])
            $game_screen.weather(value[0], temp_0.round, temp_1.round)
          end
        when "Fade"
          temp_0 = random(value[0], value[1])
          Audio.bgs_fade(temp_0.round)
        when "Fog"
          if change == true
            temp_0 = random(value[1][0], value[1][1])
            temp_1 = random(value[2][0], value[2][1])
            temp_2 = random(value[3][0], value[3][1])
            $game_map.fog_name = value[0]
            $game_map.fog_opacity = temp_0.round
            $game_map.fog_sx  = temp_1.round
            $game_map.fog_sy  = temp_2.round
          end
        when "Picture"
          if change == true
            temp_0 = random(value[1][0], value[1][1])
            $game_screen.pictures[1].show(value[0], 0, 0, 0, 100, 100, temp_0.round, 0)
          end
        when "Audio"
          temp_0 = random(value[1][0], value[1][1])
          temp_1 = random(value[2][0], value[2][1])
          $game_system.bgs_play(RPG::AudioFile.new(value[0], temp_0.round, temp_1.round))
        when "Effect"
          if @type[0]["effect"][0] == 0
            effect(value)
          end
      end
    end
  end
  
  # Efecto de Limpiar todos los climas
  def clean
    $game_screen.start_tone_change(Tone.new(0, 0, 0, 0), 20)
    $game_screen.weather(0, 0,20)
    Audio.bgs_fade(800)
    $game_map.fog_name = ""
    $game_screen.pictures[1].erase
  end
  
  # Metodo que devuelve el random de un metodo.
  def random(base, factor)
    if factor > 0
      temp = rand(factor) + (base)
    else
      temp = base
    end
    return temp
  end
  
  # Metodo para resumir codigo
  def effect(value)
    if value["Type"] == 0
      if @type[0]["effect"][0] == 0 || @type[0]["effect"][0] < @type[0]["effect"][1]
        temp_0 = random(value["Change"][0], value["Change"][1])
        @type[0]["effect"][0] = temp_0.round
        @type[0]["effect"][1] = 0
        value.each do |key2, value2| 
          case key2 
            when "Audio"
              temp_0 = random(value2[1][0], value2[1][1])
              temp_1 = random(value2[2][0], value2[2][1])
              $game_system.se_play(RPG::AudioFile.new(value2[0], temp_0.round, temp_1.round))
            when "Flash"
              temp_0 = random(value2[0][0], value2[0][1])
              temp_1 = random(value2[1][0], value2[1][1])
              temp_2 = random(value2[2][0], value2[2][1])
              temp_3 = random(value2[3][0], value2[3][1])
              temp_4 = random(value2[4][0], value2[4][1])
              $game_screen.start_flash(Color.new(temp_0.round, temp_1.round, temp_2.round, temp_3.round), temp_4.round)
          end
        end
      end
    elsif value["Type"] == 1
      if @type[0]["effect"][0] == 0
        temp_0 = random(value["Change"][0], value["Change"][1])
        @type[0]["effect"][0] = temp_0.round
        @type[0]["effect"][1] = 0
        @restore = false
      else
        if @restore == false
          value["Max"].each do |key2, value2| 
            case key2
              when "Fog"
                value2.each do |key3, value3| 
                  case key3
                    when "Opacity"
                      temp_0 = random(value3[0], value3[1])
                      $game_map.fog_opacity = $game_map.fog_opacity + (temp_0.round)
                  end
                end
            end
          end
          if value["Max"]["Limit"] != nil
            for s in value["Max"]["Limit"]
              limit = value["Max"]["Limit"].size
              cuenta = 0
              s.each do |key2, value2|
                case key2
                  when "Fog"
                    value2.each do |key3, value3| 
                      case key3
                        when "Opacity"
                          temp_0 = random(value3[0], value3[1])
                          if $game_map.fog_opacity > temp_0
                            cuenta += 1
                          end
                      end
                    end
                end
                
                if limit == cuenta
                  @restore = true
                  break
                end
              end
            end
          end
        elsif @restore == true
          value["Min"].each do |key2, value2| 
            case key2
              when "Fog"
                value2.each do |key3, value3| 
                  case key3
                    when "Opacity"
                      temp_0 = random(value3[0], value3[1])
                      $game_map.fog_opacity = $game_map.fog_opacity + (temp_0.round)
                  end
                end
            end
          end
          if value["Min"]["Limit"] != nil
            for s in value["Min"]["Limit"]
              limit = value["Min"]["Limit"].size
              cuenta = 0
              s.each do |key2, value2|
                case key2
                  when "Fog"
                    value2.each do |key3, value3| 
                      case key3
                        when "Opacity"
                          temp_0 = random(value3[0], value3[1])
                          if $game_map.fog_opacity < temp_0
                            cuenta += 1
                          end
                      end
                    end
                end
                
                if limit == cuenta
                  temp_0 = random(value["Change"][0], value["Change"][1])
                  @type[0]["effect"][0] = temp_0.round
                  @type[0]["effect"][1] = 0
                  @restore = false
                  break
                end
              end
            end
          end
        end
      end            
    end
  end
  
  # Metodos para guardar o regresar el clima en la variables.
  def saveweather(type)
    if type == 1
      @save = true
      @type[1]["weather"] = @type[0]["weather"]
      @type[1]["change"][0] = @type[0]["change"][0]
      @type[1]["change"][1] = @type[0]["change"][1]
      @type[1]["effect"][0] = @type[0]["effect"][0]
      @type[1]["effect"][1] = @type[0]["effect"][1]
    elsif type == 2
      @save = false
      if @type[1]["weather"] != ""
        @type[0]["weather"] = @type[1]["weather"]
        @type[0]["change"][0] = @type[1]["change"][0]
        @type[0]["change"][1] = @type[1]["change"][1]
        @type[0]["effect"][0] = @type[1]["effect"][0]
        @type[0]["effect"][1] = @type[1]["effect"][1]
        
        @type[1]["weather"] = ""
      end
    end
  end
  
  # Llama una secuencia
  def call_sequence(sequence)
    stop_sequence
    
    @sequence["type"] = sequence
    if MapISequence[@sequence["type"]] != nil
      clima = rand(100)+1
      clima_temp = 0
      for s in MapISequence[@sequence["type"]]["Initialize"]
        if clima <= clima_temp + s[1]
          weather(s[0])
          temp_0 = random(MapISequence[@sequence["type"]]["Change"][s[0]]["Duration"][0], MapISequence[@sequence["type"]]["Change"][s[0]]["Duration"][1])
          @sequence["change"][0] = temp_0.round
          @sequence["change"][1] = 0
          break
        else
          clima_temp += s[1]
        end
      end
    else
      weather("normal")
    end
  end
  
  # Actualiza la secuencia actual
  def update_sequence
    if @sequence["type"] != "" && @save == false
      if MapISequence[@sequence["type"]]["Change"][@type[0]["weather"]] != nil
        if MapISequence[@sequence["type"]]["Change"][@type[0]["weather"]]["Duration"][0] != 0 && MapISequence[@sequence["type"]]["Change"][@type[0]["weather"]]["Duration"][1] != 0
          @sequence["change"][1] += 1
        
          if @sequence["change"][0] < @sequence["change"][1] || @sequence["change"][0] == 0
            temp_0 = random(MapISequence[@sequence["type"]]["Change"][@type[0]["weather"]]["Duration"][0], MapISequence[@sequence["type"]]["Change"][@type[0]["weather"]]["Duration"][1])
            @sequence["change"][0] = temp_0.round
            @sequence["change"][1] = 0
            
            clima = rand(100)+1
            clima_temp = 0
            for s in MapISequence[@sequence["type"]]["Change"][@type[0]["weather"]]["Weather"]
              if clima <= clima_temp + s[1]
                weather(s[0])
                break
              else
                clima_temp += s[1]
              end
            end
          end
        end
      end
    end
  end
  
  #Metodo Para detener secuencia
  def stop_sequence
    @sequence["type"] = ""
    @sequence["change"][0] = 0
    @sequence["change"][1] = 0
  end
end

#**********************************************************************#
#************************Scene_Map*************************************#
# Actualiza el clima con el mapa.                                      #
#**********************************************************************#

class Scene_Map
  include ConfigIClima
  alias midnightmoon_update update
  def update
    if $clima.type[0]["change"][0] > 0
      $clima.type[0]["change"][1] += 1
      $clima.update
    end
    if $clima.type[0]["effect"][0] > 0
      $clima.type[0]["effect"][1] += 1
      $clima.effect(MapIWeather[$clima.type[0]["weather"]]["Effect"])
    end
    if $clima.sequence["type"] != ""
      $clima.update_sequence
    end
    midnightmoon_update
  end
  
  # Evento que ocurre cuando se llega a un nuevo mapa.
  # De aqui para abajo es exactamente el script que antes mencione de Falcao.
  alias midnightmoon_transfer_player transfer_player
  def transfer_player
    midnightmoon_transfer_player
    MapIMaps.each do |key, value|
      if value.include?($game_map.map_id)
        $clima.stop_sequence
        $clima.weather(key)
        break
      end
    end
    MapISequences.each do |key, value|
      if value.include?($game_map.map_id)
        $clima.call_sequence(key)
        break
      end
    end
  end
end

class Scene_Title
  include ConfigIClima
  
  alias midnightmoon_weather_main main
  def main
    $clima = Clima.new
    midnightmoon_weather_main
  end
  alias midnightmoon_weather_command command_new_game
  def command_new_game
    $clima = Clima.new
    midnightmoon_weather_command
    MapIMaps.each do |key, value|
      if value.include?($game_map.map_id)
        $clima.weather(key)
        break
      end
    end
    MapISequences.each do |key, value|
      if value.include?($game_map.map_id)
        $clima.call_sequence(key)
        break
      end
    end
  end
end

class Scene_Save  
  alias midnightmoon_write_data write_save_data
  def write_save_data(file)
    midnightmoon_write_data(file)
    Marshal.dump($clima, file)
  end
end

class Scene_Load
  alias midnightmoon_read_data read_save_data
  def read_save_data(file)
    midnightmoon_read_data(file)
    $clima = Marshal.load(file)
  end
end