# =============================================================================
# THEOALLEN - BATTLE WEATHER SCREEN
# VERSION : 0.9.1
# CONTACT : www.rpgmakerid.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
if true # <-- set true / false disini untuk ngegunain script ini ato kaga
# =============================================================================  
$imported = {} if $imported.nil?
$imported[:Theo_BattleWeather] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.05.02 - Started and Finished script
# =============================================================================
=begin

  PERKENALAN :
  Script ini battle scene juga menampilkan weather seperti halnya dalam map.
  Weather yang terjadi dalam battle scene tergantung dengan weather yang ada
  dalam map. Misalnya dalam map sebelumnya weather adalah rain, maka dalam
  battle nantinya juga akan menampilkan rain.
  
  CARA PENGGUNAAN :
  Pasang diatas main tapi dibawah material
  
  Untuk kustomisasi bisa digunakan dalam script call event :
  - enable_battle_weather >> untuk nyalain script ini
  - disable_battle_weather >> untuk matiin script ini
  - battle_weather = type >> digunakan untuk mengganti weather pas battle
  
  Type2 yang dapat digunakan adalah 
  - :rain 
  - :storm 
  - :snow
  - :none
  
  PLANNED FEATURES :
  - Battle Storm effects >> flashing screen pas battle (kilatan petir)
  - Element efficiency >> effisiensi elemen. Misal kalo hujan elemen fire
    berkurang effisiensinya jadi 30% sedangkan petir nambah jadi 180%
  
  TERMS OF USE :
  Credit gw, TheoAllen. Smentara jangan diedit dlu. Soal e ni script belom 
  selese gw develop. Dan kalo semisal mau dipake buat komersil, jangan lupa, 
  gw dibagi gratisannya.
  
=end
# =============================================================================
# Tidak ada konfigurasi khusus dalam script
# -----------------------------------------------------------------------------
# Jangan diedit setelah line ini kecuali ente ngerti scripting
# =============================================================================
module THEO
  module BWS
    
    def self.weather=(type)
      @weather = type
    end
    
    def self.weather
      @weather
    end
    
  end
end

class Game_System
  attr_accessor :battle_weather
  
  alias bs_weather_system_init initialize
  def initialize
    bs_weather_system_init
    @battle_weather = true
  end
  
end

class Spriteset_Battle
  
  alias weather_init create_viewports
  def create_viewports
    weather_init
    create_weather if $game_system.battle_weather
  end
  
  def create_weather
    @weather = Spriteset_Weather.new(@viewport2)
    @weather.type = $game_map.screen.weather_type
    @weather.power = $game_map.screen.weather_power
    @weather.ox = $game_map.display_x * 32
    @weather.oy = $game_map.display_y * 32
    THEO::BWS.weather = @weather.type
  end
  
  alias in_game_weather_update update
  def update
    in_game_weather_update
    update_weather if @weather
  end
  
  def update_weather
    @weather.update
    @weather.type = THEO::BWS.weather if @weather.type != THEO::BWS.weather
    dispose_weather unless $game_system.battle_weather
  end
  
  alias battle_weather_dispose dispose
  def dispose
    battle_weather_dispose
    dispose_weather if @weather
  end
  
  def dispose_weather
    @weather.dispose
  end
  
end

class Game_Interpreter
  
  def enable_battle_weather
    $game_system.battle_weather = true
  end
  
  def disable_battle_weather
    $game_system.battle_weather = false
  end
  
  def battle_weather=(type)
    return unless type.is_a?(Symbol)
    THEO::BWS.weather = type
  end
  
end

end