Theo - Battle Weather Screen

# =============================================================================
# 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