ТЕМА: Погода (Game Weather) 3.0

=begin
###############################################################################
#                                                                             #
#            	 	Система погодных условий для RPG MAKER VX ACE   			        #
#                                                                             #
###############################################################################
 
Автор: Денис Кузнецов (http://vk.com/id8137201)
Группа ВК: https://vk.com/scriptsrpgmakervxace
Версия: 3.0
Релиз от: 22.07.15
 
Требуется набор графики в папке Graphics/Game_Weather
 
############# ИНСТРУКЦИЯ #######################################################
 
 Чтобы установить погоду используйте вызов скрипта: 
 
	start_weather(type, power, name, stop_all)
 
	где type - тип отображаемой погоды
	power - сила погоды (кол-во спрайтов также зависит от настройки ниже)
	name - имя графики (например, "Snow")
	stop_all - остановить всю погоду, чтобы на экране была только эта
	stop_all может быть или true, или false (остановить / не останавливать) 
 
	есть следующие типы (type) погоды:
 
	0 	- диагонально слева направо вниз (обычная скорость)
	1 	- вертикально сверху вниз (обычная скорость)
	2 	- диагонально справа налево вниз (обычная скорость)
	3 	- горизонтально налево (обычная скорость)
	4 	- диагонально справа налево вверх (обычная скорость)
	5 	- вертикально вверх (обычная скорость)
	6 	- диагонально справа налево вверх (обычная скорость)
	7 	- горизонтально направо (обычная скорость)
	8 	- диагонально слева направо вниз (быстрая скорость)
	9 	- вертикально сверху вниз (быстрая скорость)
	10 	- диагонально справа налево вниз (быстрая скорость)
	11 	- горизонтально налево (быстрая скорость)
	12	- диагонально справа налево вверх (быстрая скорость)
	13 	- вертикально вверх (быстрая скорость)
	14 	- диагонально справа налево вверх (быстрая скорость)
	15 	- горизонтально направо (быстрая скорость)
	16	- случайное
 
	Погоду можно ставить на паузу, снимать с паузы (продолжать) и останавливать
	для этого используйте скрипты:
 
	1. stop_all_weather - остановит всю погоду
 
	2. stop_weather(index) - остановит одну погоду с индексом. 
	По умолчанию index = 0. Нумерация всегда с 0.
 
	3. pause_all_weather и continue_all_weather поставят на паузу и продолжат все
	погодные условия соответственно
 
	4. pause_weather(index) - ставит на пазу одну погоду с номером.
 
	5. continue_weather(index) - продолжает одну погоду с номером.
 
	6. weather_exist?(type, name) - проверка на существование погоды (true или false)
 
	7. weather_amount - узнать количество погодных условий на экране (вернет -1, если какая-то ошибка)
 
	8. toggle_weather_in_battle - переключить использование погоды в битве
 
	9. setup_weather_in_battle(setup) - установить использование погоды в битве (true - вкл., false - выкл.)
 
=end
 
############# НАТРОЙКА #########################################################
 
module Game_Weather_Settings
 
	# Количество одновременных погодных условий
	$GAME_WEATHER_LIMIT = 2
 
	# Коэффициент силы. Влияет на количество спрайтов погоды
	$GAME_WEATHER_POWER = 15
 
	# Использовать погоду в битвах ? true/false (да/нет)
	$GAME_WEATHER_IN_BATTLE = false
 
	# Глубина погоды Z
	GAME_WEATHER_Z = 200
 
	# Пользовательские типы погоды. Нумерация при вызове скрипта начинается с 17.
	# [ Направление движения, инвертировать направление (true/false), скорость, вращение (true/false) ]
 
	# Направления движения.
	# 0 - диагонально слева направо вниз
	# 1 - вертикально сверху вниз
	# 2 - диагонально справа налево вниз
	# 3 - горизонтально налево
 
	# Скорость
	# false - обычная
	# true - быстрая
 
	GAME_WEATHER_CUSTOM_TYPES =
	[
		[0, false, false, true],
		[1, true, true, true],
		[2, false, false, true],
		[3, true, true, true]
	]
 
end # module Game_Weather_Settings
 
############# КОНЕЦ НАСТРОЙКИ ##################################################
############# НИЖЕ НЕ ТРОГАТЬ !!! ##############################################
 
module Cache
 
	def self.weather(filename)
		load_bitmap("Graphics/Game_Weather/", filename)
	end
 
end # module Cache
 
class Game_Weather_Functions
 
	include Game_Weather_Settings
 
	def self.weather_type_settings(type)
		case type
		when 0; 													return type_0
		when 1; 													return type_1
		when 2; 													return type_2
		when 3; 													return type_3
		when 4; 													return type_0(true)
		when 5; 													return type_1(true)
		when 6; 													return type_2(true)
		when 7; 													return type_3(true)
		when 8; 													return type_0(false, true)
		when 9; 													return type_1(false, true)
		when 10; 													return type_2(false, true)
		when 11; 													return type_3(false, true)
		when 12; 													return type_0(true, true)
		when 13; 													return type_1(true, true)
		when 14; 													return type_2(true, true)
		when 15; 													return type_3(true, true)
		when 16; 													return random
		when 17..17 + GAME_WEATHER_CUSTOM_TYPES.size; 	return custom_type(GAME_WEATHER_CUSTOM_TYPES[type - 17])
		end
	end
 
	def self.type_0(invert = false, fast = false)
		x = (rand(2) == 0 ? -rand(Graphics.width / 2) : Graphics.width + rand(Graphics.width / 2))
		y = (rand(2) == 0 ? -rand(Graphics.height / 2) : Graphics.height + rand(Graphics.height / 2))
		opacity = 1
		angle = 0
		zoom = (rand(100) + 50) / 100.0
		x_speed = [[rand(15), 5].max, 10].min
		x_speed *= -1 if invert
		x_speed *= 1.5 if fast
		y_speed = [[rand(15), 5].max, 10].min
		y_speed *= -1 if invert
		y_speed *= 1.2 if fast
		opacity_speed = [10, rand(15)].max
		opacity_speed = 20 if fast
		angle_speed = rand(3)
		angle_speed *= 2 if fast
		return x, y, opacity, angle, zoom, x_speed, y_speed, opacity_speed, angle_speed
	end
 
	def self.type_1(invert = false, fast = false)
		x = rand(Graphics.width)
		y = (rand(2) == 0 ? -rand(Graphics.height / 2) : Graphics.height + rand(Graphics.height / 2))
		opacity = 1
		angle = 0
		zoom = (rand(100) + 50) / 100.0
		x_speed = 0
		y_speed = [[rand(10) + 3, 5].max, 15].min + rand(10)
		y_speed *= -1 if invert
		y_speed *= 1.1 if fast
		opacity_speed = [10, rand(15)].max
		opacity_speed = 20 if fast
		angle_speed = 0
		return x, y, opacity, angle, zoom, x_speed, y_speed, opacity_speed, angle_speed
	end
 
	def self.type_2(invert = false, fast = false)
		x = (rand(2) == 0 ? -rand(Graphics.width / 2) : Graphics.width + rand(Graphics.width / 2))
		y = (rand(2) == 0 ? -rand(Graphics.height / 2) : Graphics.height + rand(Graphics.height / 2))
		opacity = 1
		angle = 0
		zoom = (rand(100) + 50) / 100.0
		x_speed = -[[rand(15), 5].max, 10].min
		x_speed *= -1 if invert
		x_speed *= 1.2 if fast
		y_speed = [[rand(15), 5].max, 10].min
		y_speed *= -1 if invert
		y_speed *= 1.2 if fast
		opacity_speed = [10, rand(15)].max
		angle_speed = rand(3)
		angle_speed *= 2 if fast
		return x, y, opacity, angle, zoom, x_speed, y_speed, opacity_speed, angle_speed
	end
 
	def self.type_3(invert = false, fast = false)
		x = (rand(2) == 0 ? -rand(Graphics.width / 2) : Graphics.width + rand(Graphics.width / 2))
		y = rand(Graphics.height)
		opacity = 1
		angle = rand(360)
		zoom = (rand(100) + 50) / 100.0
		x_speed = -[[rand(15), 5].max, 10].min
		x_speed *= -1 if invert
		x_speed *= 1.5 if fast
		y_speed = 0
		opacity_speed = [10, rand(15)].max
		angle_speed = rand(3)
		angle_speed *= 2 if fast
		return x, y, opacity, angle, zoom, x_speed, y_speed, opacity_speed, angle_speed
	end
 
	def self.random
		x = rand(Graphics.width)
		y = rand(Graphics.height)
		opacity = 1
		angle = rand(360)
		zoom = zoom = (rand(100) + 50) / 100.0
		x_speed = [[rand(7), 1].max, 10].min
		y_speed = [[rand(7), 1].max, 10].min
		x_speed *= -1 if rand(2) == 1
		y_speed *= -1 if rand(2) == 1
		opacity_speed = 10
		angle_speed = 0
		return x, y, opacity, angle, zoom, x_speed, y_speed, opacity_speed, angle_speed
	end
 
	def self.custom_type(custom)
		type = custom[0]
		invert = custom[1]
		fast = custom[2]
		settings = eval("type_#{type}(#{invert.to_s}, #{fast.to_s})")
		settings[-1] = rand(3) if custom[4]
		return settings
	end
 
end # class Game_Weather_Functions
 
$imported = {} if $imported.nil?
$imported["DenKyz_Game_Weather"] = true
 
class Game_Weather
 
	include Game_Weather_Settings
 
	attr_accessor :weather
 
	def initialize
		@viewport = Viewport.new
		@viewport.z = GAME_WEATHER_Z
		@weather = []
	end
 
	# Создаем новую погоду
	def start_weather(type, power, name, stop_all)
		stop_all_weather if stop_all
		stop_weather(0) if @weather.size == $GAME_WEATHER_LIMIT && !stop_all # останавливаем первую погоду, если лимит превышен
		@weather.push(Game_Weather_Weather.new(@viewport, type, power, name))
	end
 
	# Перезагружаем погоду
	def refresh
		return if @weather == []
		@weather.each do |index|
			index.refresh
		end
	end
 
	# Обновляем погоду
	def update
		return if @weather == []
		check_dispose
		@weather.each do |index|
			index.update
		end
	end
 
	# Удаляем спрайты погоды, но не убираем класс погоды
	def dispose_sprites
		return if @weather == []
		@weather.each do |index|
			index.dispose
		end
	end
 
	# Проверка на удаление погоды
	def check_dispose
		@weather.each do |index|
			return dispose_weather(index) if index.stop_state == 2
		end
	end
 
	# Остановка одной погоды
	def stop_weather(index)
		return if !index.is_a?(Integer) && index.nil?
		return if index.is_a?(Integer) && @weather[index].nil?
		if index.is_a?(Integer)
			@weather[index].stop
		else
			index.stop
		end
	end
 
	# Остановка всей погоды
	def stop_all_weather
		@weather.each do |index|
			stop_weather(index)
		end
	end
 
	# Пауза одной погоды
	def pause_weather(index)
		return if !index.is_a?(Integer) && index.nil?
		return if index.is_a?(Integer) && @weather[index].nil?
		if index.is_a?(Integer)
			@weather[index].pause
		else
			index.pause
		end
	end
 
	# Пауза всей погоды
	def pause_all_weather
		@weather.each do |index|
			pause_weather(index)
		end
	end
 
	# Продолжить одну погоду
	def continue_weather(index)
		return if !index.is_a?(Integer) && index.nil?
		return if index.is_a?(Integer) && @weather[index].nil?
		if index.is_a?(Integer)
			@weather[index].continue
		else
			index.continue
		end
	end
 
	# Продолжить всю погоду
	def continue_all_weather
		@weather.each do |index|
			continue_weather(index)
		end
	end
 
	# Проверка на существование погоды
	def weather_exist?(type, name)
		return false if @weather == []
		@weather.each do |index|
			return true if index.type == type && index.name == name
		end
		return false
	end
 
	# Удалить одну погоду
	def dispose_weather(index)
		return if index.nil?
		index = @weather.index(index)
		@weather[index].dispose
		@weather[index] = nil
		@weather.compact!
	end
 
	# Сохраняем погоду
	def make_save_contents
		content = []
		return content if @weather == []
		@weather.each do |index|
			content.push([index.type, index.power, index.name])
		end
		return content
	end
 
	# Загружаем погоду
	def extract_save_contents(content)
		stop_all_weather
		content.each do |index|
			start_weather(index[0], index[1], index[2], false)
		end
	end
 
end # class Game_Weather
 
class Game_Weather_Weather
 
	attr_accessor :type
	attr_reader :power
	attr_reader :name
	attr_reader :stop_state
 
	def initialize(viewport, type, power, name)
		@viewport = viewport
		@type = type
		@power = power
		@sprite_power = @power
		@sprite_power = 1 if @power < 1
		@sprite_power = [[@sprite_power * $GAME_WEATHER_POWER + rand(25), @sprite_power].max, 999].min
		@name = name
		@stop_state = 0 # 0 - ничего, 1 - затухание, 2 - можно удалить
		@sprites = []
		setup_weather
	end
 
	def setup_weather
		@sprite_power.times do
			@sprites.push(Game_Weather_Sprite.new(@viewport, @type, @name))
		end
	end
 
	def type=(type)
		@type = type
		@sprites.each do |index|
			index.type = @type
		end
	end
 
	def stop
		@stop_state = 1
		@sprites.each do |index|
			index.stop
		end
	end
 
	def pause
		stop
		@stop_state = 0
	end
 
	def continue
		@sprites.each do |index|
			index.continue
		end
	end
 
	# Проверка на удаление погоды (90% спрайтов имеют 0 прозрачность)
	def check_stop_state
		amount = 0
		@sprites.each do |index|
			amount += 1 if index.sprite.opacity == 0
		end
		@stop_state = 2 if amount >= @sprite_power * 0.9
	end
 
	def refresh
		@sprites.each do |index|
			index.refresh
		end
	end
 
	def update
		check_stop_state if @stop_state == 1
		return if @stop_state == 2
		@sprites.each do |index|
			index.update
		end
	end
 
	def dispose
		@sprites.each do |index|
			index.dispose
		end
	end
 
end # class Game_Weather_Weather
 
class Game_Weather_Sprite
 
	attr_reader :sprite
 
	def initialize(viewport, type, name)
		@viewport = viewport
		@type = type
		@name = name
		setup_sprite
		setup_position
		setup_variables
		save_sprite_position
	end
 
	def setup_sprite
		@sprite = Sprite.new(@viewport)
		@sprite.bitmap = Cache.weather(@name)
	end
 
	def setup_position
		@sprite_settings = Game_Weather_Functions.weather_type_settings(@type)
		@sprite.x = @sprite_settings[0]
		@sprite.y = @sprite_settings[1]
		@sprite.opacity = @sprite_settings[2]
		@sprite.angle = @sprite_settings[3]
		@sprite.zoom_x = @sprite_settings[4]
		@sprite.zoom_y = @sprite_settings[4]
	end
 
	def setup_variables
		@x_speed = @sprite_settings[5]
		@y_speed = @sprite_settings[6]
		@opacity_speed = @sprite_settings[7]
		@angle_speed = @sprite_settings[8]
	end
 
	def type=(type)
		@type = type
		@sprite_settings = Game_Weather_Functions.weather_type_settings(@type)
		setup_variables
	end
 
	def stop
		@opacity_speed = -10
	end
 
	def continue
		setup_position
		setup_variables
	end
 
	# Проверка позиции спрайта
	def check_position
		setup_position if @sprite.x > Graphics.width * 1.5 || @sprite.x < - Graphics.width / 2 || @sprite.y > Graphics.height * 1.5 || @sprite.y < - Graphics.height / 2
	end
 
	def refresh
		setup_sprite
		@sprite.x = @x_save
		@sprite.y = @y_save
		@sprite.opacity = @opacity_save
		@sprite.angle = @angle_save
		@sprite.zoom_x = @zoom_save
		@sprite.zoom_y = @zoom_save
	end
 
	def update
		@sprite.x += @x_speed
		@sprite.y += @y_speed
		@sprite.opacity += @opacity_speed
		@sprite.angle += @angle_speed
		check_position
	end
 
	def save_sprite_position
		@x_save = @sprite.x
		@y_save = @sprite.y
		@opacity_save = @sprite.opacity
		@angle_save = @sprite.angle
		@zoom_save = @sprite.zoom_x
	end
 
	def dispose
		return if @sprite.nil?
		save_sprite_position
		@sprite.dispose
		@sprite = nil
	end
 
end # class Game_Weather_Sprite
 
class Game_Interpreter
 
	def start_weather(type, power, name, stop_all = false)
		return if $Game_Weather.nil?
		$Game_Weather.start_weather(type, power, name, stop_all)
	end
 
	def stop_weather(index = 0)
		return if $Game_Weather.nil?
		$Game_Weather.stop_weather(index)
	end
 
	def stop_all_weather
		return if $Game_Weather.nil?
		$Game_Weather.stop_all_weather
	end
 
	def pause_weather(index = 0)
		return if $Game_Weather.nil?
		$Game_Weather.pause_weather(index)
	end
 
	def pause_all_weather
		return if $Game_Weather.nil?
		$Game_Weather.pause_all_weather
	end
 
	def continue_weather(index = 0)
		return if $Game_Weather.nil?
		$Game_Weather.continue_weather(index)
	end
 
	def continue_all_weather
		return if $Game_Weather.nil?
		$Game_Weather.continue_all_weather
	end
 
	def weather_exist?(type, name)
		return false if $Game_Weather.nil?
		$Game_Weather.weather_exist?(type, name)
	end
 
	def weather_amount
		return -1 if $Game_Weather.nil?
		return $Game_Weather.weather.size
	end
 
	def toggle_weather_in_battle
		$GAME_WEATHER_IN_BATTLE = !$GAME_WEATHER_IN_BATTLE
	end
 
	def setup_weather_in_battle(setup)
		$GAME_WEATHER_IN_BATTLE = setup
	end
 
end # class Game_Interpreter
 
class Spriteset_Map
 
	alias denis_kyznetsov_game_weather_spriteset_map_initialize initialize
	def initialize
		$Game_Weather.refresh if !$Game_Weather.nil?
		denis_kyznetsov_game_weather_spriteset_map_initialize	
	end
 
	alias denis_kyznetsov_game_weather_spriteset_map_dispose dispose
	def dispose
		$Game_Weather.dispose_sprites if !$Game_Weather.nil?
		denis_kyznetsov_game_weather_spriteset_map_dispose
	end
 
	alias denis_kyznetsov_game_weather_spriteset_map_update update
	def update
		$Game_Weather.update if !$Game_Weather.nil?
		denis_kyznetsov_game_weather_spriteset_map_update
	end
 
end # class Spriteset_Map
 
class Spriteset_Battle
 
	alias denis_kyznetsov_game_weather_spriteset_battle_initialize initialize
	def initialize
		$Game_Weather.refresh if !$Game_Weather.nil? && $GAME_WEATHER_IN_BATTLE
		denis_kyznetsov_game_weather_spriteset_battle_initialize
 
	end
 
	alias denis_kyznetsov_game_weather_spriteset_battle_dispose dispose
	def dispose
		$Game_Weather.dispose_sprites if !$Game_Weather.nil? && $GAME_WEATHER_IN_BATTLE
		denis_kyznetsov_game_weather_spriteset_battle_dispose
	end
 
	alias denis_kyznetsov_game_weather_spriteset_battle_update update
	def update
		$Game_Weather.update if !$Game_Weather.nil? && $GAME_WEATHER_IN_BATTLE
		denis_kyznetsov_game_weather_spriteset_battle_update
	end
 
end # class Spriteset_Battle
 
module DataManager
 
	class << self
		alias denis_kyznetsov_game_weather_data_manager_create_game_objects create_game_objects
		alias denis_kyznetsov_game_weather_data_manager_make_save_contents make_save_contents
		alias denis_kyznetsov_game_weather_data_manager_extract_save_contents extract_save_contents
	end
 
	def self.create_game_objects
		denis_kyznetsov_game_weather_data_manager_create_game_objects
		$Game_Weather = Game_Weather.new
	end
 
	def self.make_save_contents
		contents = denis_kyznetsov_game_weather_data_manager_make_save_contents
		contents[:Game_Weather_Content] = $Game_Weather.make_save_contents
		contents[:GAME_WEATHER_LIMIT] = $GAME_WEATHER_LIMIT
		contents[:GAME_WEATHER_POWER] = $GAME_WEATHER_POWER
		contents[:GAME_WEATHER_IN_BATTLE] = $GAME_WEATHER_IN_BATTLE
		contents
	end
 
	def self.extract_save_contents(contents)
		denis_kyznetsov_game_weather_data_manager_extract_save_contents(contents)
		$Game_Weather.extract_save_contents(contents[:Game_Weather_Content])
		$GAME_WEATHER_LIMIT = contents[:GAME_WEATHER_LIMIT]
		$GAME_WEATHER_POWER = contents[:GAME_WEATHER_POWER]
		$GAME_WEATHER_IN_BATTLE = contents[:GAME_WEATHER_IN_BATTLE]
	end
 
end # module DataManager

=begin
###############################################################################
#                                                                             #
#             Базовая система погодных условий для RPG MAKER VX ACE           #
#                                                                             #
###############################################################################
 
Автор: Денис Кузнецов (http://vk.com/id8137201)
Версия: 2.0
Релиз от: 20.02.15
 
############# ИНСТРУКЦИЯ #######################################################
 
 Чтобы установить погоду используйте вызов скрипта: 
 
	change_weather(type, power, name, clear, audio)
 
	где type - тип отображения погоды
	power - сила погоды(кол-во спрайтов также зависит от настройки ниже)
	name - имя графики(например, "Snow")
	clear - отключить уже идущие погодные условия, чтобы на экране было только это
	по-умолчанию clear = false и можно опустить при вызове скрипта
	audio - название звука погоды по желанию. Звуки должны лежать в папке
	Audio/BGM/ параметр также можно опустить, если не используете звуки, но
	если используете, то clear нужно в любом случае указывать (true/false).
 
	есть следующие типы (type) погоды:
 
	0 - вертикально вниз - медленно (как дождь)
	1 - по диагонали слева направо - медленно (как снег)
	2 - горизонтально вправо - медленно (как ветер)
	3 - вертикально вверх - медленно (как испарение)
	4 - вертикально вниз - медленно (как снег)
	5 - без движения - плавное исчезновение (как исчезновение :))
	6 - рандомное(хаотичное) перемещение (как рандом)
	7 - вертикально вверх - быстро (как испарение)
	8 - горизонтально влево - медленно (как ветер)
	9 - горизонтально вправо - быстро (как шторм)
	10- горизонтально влево - быстро (как шторм)
	11- по диагонали справа налево - медленно (как снег)
	12- вертикально вниз - быстро (как ливень)
 
	погоду можно ставить на паузу, снимать с паузы(продолжать) и останавливать
	для этого используйте скрипты:
 
	1. stop_all_weather - остановит всю погоду
 
	2. stop_weather(index) - остановит одну погоду с индексом. 
	По умолчанию index = 0. Нумерация всегда с 0.
 
	3. pause_all_weather и continue_all_weather поставят на паузу и продолжат все
	погодные условия соответственно
 
	4. pause_weather(index) - ставит на пазу одну погоду с номером.
 
	5. continue_weather(index) - продолжает одну погоду с номером.
 
	Два последних скрипта работают аналогично stop_weather (в том плане, что
	значение по-умолчанию такое же и индексы начинаются с 0).
 
=end
 
############# НАТРОЙКА #########################################################
 
module Game_Weather_Settings
	# Количество одновременных погодных условий
	WEATHER_MAXIMUM = 2
 
	# Коэффициент силы. Влияет на количество спрайтов погоды
	WEATHER_POWER = 10
 
	# Использовать погоду в битвах ? true/false (да/нет)
	USE_BATTLE_WEATHER = true
 
	# Глубина погоды Z
	DEFAULT_WEATHER_Z = 200
 
	# Пользовательские типы погоды. Нумерация начинается с 13.
	# [ Направление движения, скорость, вращение(true/false), зум ]
 
	# Направление движения.
	# 1 - по диагонали слева направо снизу вверх
	# 2 - по горизонтали слева направо
	# 3 - по диагонали слева направо сверху вниз
	# 4 - вертикально вниз
	# 5 - по диагонали справа налево вниз
	# 6 - по горизонтали налево
	# 7 - по диагонали справа налево вверх
	# 8 - вертикально вверх
 
	# зум
	# 0 - нет
	# 1 - плавное увеличение
	# 2 - плавное уменьшение
 
	CUSTOM_TYPES = [
		[1, 2, true, 2],
		[2, 3, true, 1],
		[3, 5, true, 0],
		[4, 5, true, 0],
		[5, 6, true, 1],
		[6, 7, true, 2],
		[7, 8, true, 1],
		[8, 9, true, 0],
		[2, 10, true, 1],
		[4, 0, true, 2] ]
 
end # module Game_Weather_Settings
 
############# КОНЕЦ НАСТРОЙКИ ##################################################
############# НИЖЕ НЕ ТРОГАТЬ !!! ##############################################
 
module Cache
 
	def self.weather(filename)
		load_bitmap("Graphics/Weather/", filename)
	end
 
end # module Cache
 
class Game_Weather_Viewport < Viewport
 
	attr_accessor :weather_sprites
	attr_accessor :pause
	attr_accessor :fade
	attr_accessor :stop
	attr_accessor :need_dispose
 
	def initialize
		super
		@weather_sprites = []
 
		@pause = false # хотим поставить на паузу?
 
		@fade = false # хотим удалить погоду или на паузу? сначала надо затушить ее
 
		@stop = false # хотим удалить погоду?
 
		@need_dispose = false # можно удалить погоду?
	end
 
end # class Game_Viewport < Viewport
 
class Game_Interpreter
 
	def change_weather(type, power, name, stop_all = false)
		$Game_Weather = Game_Weather.new if $Game_Weather.nil? && $imported["DenKyz_Game_Weather"]
		$Game_Weather.weather_preset = [type, power, name]
		return $Game_Weather.create_weather(stop_all)
	end
 
	def stop_all_weather
		$Game_Weather.stop_all_weather
	end
 
	def stop_weather(index = 0)
		$Game_Weather.stop_one_weather(index)
	end
 
	def pause_all_weather
		$Game_Weather.pause_all_weather
	end
 
	def continue_all_weather
		$Game_Weather.continue_all_weather
	end
 
	def pause_weather(index = 0)
		$Game_Weather.pause_one_weather(index)
	end
 
	def continue_weather(index = 0)
		$Game_Weather.continue_one_weather(index)
	end
 
end # class Game_Interpreter
 
$imported = {} if $imported.nil?
$imported["DenKyz_Game_Weather"] = true
 
class Game_Weather
	include Game_Weather_Settings
 
	attr_accessor :weather_preset
 
	def initialize
		@weather_preset = [-1, -1, ""] # настройка текущей погоды
		@viewports = [] # вьюпорты погод
		@weather_maximum = [WEATHER_MAXIMUM, 1].max # максимальное кол-во вьюпортов
		@wait_stop = false # ждать остановки?
		dispose_all
	end
 
	def set_viewports_z(value = DEFAULT_WEATHER_Z)
		@viewports.each do |viewport|
			viewport.z = value
		end
	end
 
	def set_viewports_visible(flag)
		@viewports.each do |viewport|
			viewport.visible = flag
		end
	end
 
	def create_weather(stop_all)
		@viewports.compact!
		if stop_all && !check_viewports_for_return
			stop_all_weather
			return @wait_stop = true
		end
		if !create_one_viewport
			stop_one_weather
			@wait_stop = true
		end
		return create_sprites
	end
 
	def create_one_viewport
		return false if @viewports.size == @weather_maximum
		@viewports.push(Game_Weather_Viewport.new)
		@viewports[-1].z = DEFAULT_WEATHER_Z
		return true
	end
 
	def check_viewports_for_return(index = -1)
		return true if @viewports.nil? || @viewports == []
		return false if index == -1
		return true if @viewports[index].nil? || @viewports[index] == []
	end
 
	def create_sprites
		return false if check_viewports_for_return
		power = WEATHER_POWER
		power = 1 if power < 1
		power = [[@weather_preset[1] * power + 5 + rand(15), power].max, 999].min
		power.times do
			@viewports[-1].weather_sprites.push((Game_Weather_Sprite.new(@viewports[-1], @weather_preset[0], @weather_preset[2])))
		end
		return true
	end
 
	def fade_weather(fade = true, index = 0)
		return if check_viewports_for_return(index)
		@viewports[index].fade = fade
	end
 
	def stop_one_weather(index = 0)
		return if check_viewports_for_return(index)
		fade_weather(true, index)
		@viewports[index].stop = true
	end
 
	def stop_all_weather
		return if check_viewports_for_return
		@viewports.each_index do |index|
			stop_one_weather(index)
		end
	end
 
	def pause_one_weather(index = 0)
		return if check_viewports_for_return(index)
		fade_weather(true, index)
		@viewports[index].pause = true
	end
 
	def pause_all_weather
		return if check_viewports_for_return
		@viewports.each_index do |index|
			next if @viewports[index].nil?
			pause_one_weather(index)
		end
	end
 
	def continue_one_weather(index = 0)
		return if check_viewports_for_return(index)
		fade_weather(false, index)
		@viewports[index].pause = false
		@viewports[index].visible = true
	end
 
	def continue_all_weather
		return if check_viewports_for_return
		@viewports.each_index do |index|
			next if @viewports[index].nil?
			continue_one_weather(index)
		end
	end
 
	def dispose_all
		dispose_all_sprites
		dispose_all_viewports
	end
 
	def dispose_one_sprites(index = 0)
		return if check_viewports_for_return(index)
		@viewports[index].weather_sprites.each do |sprite|
			sprite.dispose
		end
	end
 
	def dispose_all_sprites
		return if check_viewports_for_return
		@viewports.each_index do |index|
			next if @viewports[index].nil?
			dispose_one_sprites(index)
		end
	end
 
	def dispose_all_viewports
		return if check_viewports_for_return
		return @viewports = []
	end
 
	def update
		return if !check_scene
		if @wait_stop && @viewports.size != @weather_maximum
			create_weather(false)
			@wait_stop = false
		end
		# если false, то дальше нет смысла идти
		return if !need_dispose_weather # проверяем нужно ли удалить погоду после fade
		update_all_viewports
		update_all_weathers
	end
 
	def check_scene
		case SceneManager.scene
		when Scene_Map
			set_viewports_z
			set_viewports_visible(true)
		when Scene_Battle
			if USE_BATTLE_WEATHER
				set_viewports_z
				set_viewports_visible(true)
			else
				set_viewports_z(-200)
				set_viewports_visible(false)
				return false
			end
		else
			set_viewports_z(-200)
			return false
		end
		return true
	end
 
	def need_dispose_weather
		return if check_viewports_for_return
		@viewports.each_index do |index|
			next if check_viewports_for_return(index)
			next if !@viewports[index].need_dispose
			@viewports[index].visible = false
			dispose_one_sprites(index)
			@viewports[index] = nil
		end
		@viewports.compact!
		return true
	end
 
	def update_all_viewports
		return if check_viewports_for_return
		@viewports.each do |viewport|
			next if viewport.nil?
			viewport.ox = ($game_map.display_x * 32)
			viewport.oy = ($game_map.display_y * 32)
		end
	end
 
	def update_all_weathers
		@viewports.each do |viewport|
			next if viewport.nil?
			next if !viewport.visible
			next if viewport.pause && !viewport.fade # && !viewport.visible
			viewport.weather_sprites.each do |sprite|
				sprite.update_weather
			end
		end
	end
 
end # class Game_Weather
 
class Scene_Base
	include Game_Weather_Settings
 
	alias denis_kyznetsov_game_weather_scn_base_scene_perform_transition perform_transition
	def perform_transition # если меняется сцена (по большей части для уменьшения z погоды)
		$Game_Weather.update if !$Game_Weather.nil?
		denis_kyznetsov_game_weather_scn_base_scene_perform_transition
	end
 
	alias denis_kyznetsov_game_weather_scn_base_scene_update update
	def update # не обновляем в Scene_Base потому что там пауза при обновлении и графика останавливается
		denis_kyznetsov_game_weather_scn_base_scene_update
		$Game_Weather.update if !SceneManager.scene_is?(Scene_Battle) && !$Game_Weather.nil?
	end
 
end # class Scene_Base
 
class Scene_Map < Scene_Base
 
	alias denis_kyznetsov_game_weather_scene_map_pre_battle_scene pre_battle_scene
	def pre_battle_scene # скрываем перед черным экраном перед боем
		$Game_Weather.set_viewports_visible(false) if !$Game_Weather.nil?
		denis_kyznetsov_game_weather_scene_map_pre_battle_scene
	end
 
end # class Scene_Map < Scene_Base
 
class Spriteset_Battle
	include Game_Weather_Settings
 
	alias denis_kyznetsov_game_weather_sprt_btl_update update
	def update # не обновляем в Scene_Base потому что там пауза при обновлении и графика останавливается
		denis_kyznetsov_game_weather_sprt_btl_update
		$Game_Weather.update if USE_BATTLE_WEATHER && !$Game_Weather.nil?
	end
 
end # class Spriteset_Battle
 
class Game_Weather_Sprite < Sprite_Base
	include Game_Weather_Settings
 
	def initialize(viewport, type, image_name)
		@viewport = viewport
		super(@viewport)
		self.bitmap = Cache.weather(image_name.to_s)
		self.opacity = 0
		@bitwid = self.bitmap.width
		@bithei = self.bitmap.height
		@angle_speed = 0
		@x_speed = 0
		@y_speed = 0
		@zoom_speed = 0
		@opacity_speed = 0
		@type = type
		@old_x = @viewport.ox
		@old_y = @viewport.oy
		@fade_time = 255 # используется для fade
		setup(@viewport.ox, @viewport.oy)
	end
 
	def setup(x = 0, y = 0)
		@cw2 = [(17 * 32 + @bitwid) + x, x]
		@ch2 = [(13 * 32 + @bithei) + y, y]
		check_type
	end
 
	def update_weather
		self.x += @x_speed
		self.y += @y_speed
		self.opacity += @opacity_speed
		self.angle += @angle_speed
		self.zoom_x += @zoom_speed
		self.zoom_y += @zoom_speed
		check_loop(@viewport.ox, @viewport.oy)
		if @viewport.fade
			@fade_time -= 10
			self.opacity -= @opacity_speed * 2
			if @fade_time <= 0
				@viewport.fade = false
				@viewport.visible = false if @viewport.pause
				@viewport.need_dispose = true if @viewport.stop
			end
		end
		setup(@viewport.ox, @viewport.oy) if reset?
	end
 
	def check_loop(x, y)
		if (@old_x - x).abs >= 32
			@cw2 = [(17 * 32 + @bitwid) + x, x]
			self.x += x
			self.x -= @old_x if x == 0
		end   
		if (@old_y - y).abs >= 32
			@ch2 = [(13 * 32 + @bithei) + y, y]
			self.y += y
			self.y -= @old_y if y == 0
		end         
		@old_x = x
		@old_y = y
	end  
 
	def reset?
		if self.x > $game_map.display_x * 32 + 18 * 32
			return true
		end
 
		if self.x < $game_map.display_x * 32 - 64
			return true
		end
 
		if self.y < $game_map.display_y * 32 - 64 ### Не знаю !
			return true
		end
 
		if self.y > $game_map.display_y * 32 + 14 * 32
			return true
		end
		return true if self.zoom_x > 2.0 || self.zoom_x < 0.3
		return true if self.opacity == 0
		return false
	end
 
	def check_type
		custom = CUSTOM_TYPES.size
		case @type
		when 0;   rain
		when 1;   wind   
		when 2;   fog
		when 3;   slow_evaporation
		when 4;   snow
		when 5;   spark
		when 6;   random
		when 7; 	fast_evaporation
		when 8;		fog_invert
		when 9;		fast_fog
		when 10;  fast_fog_invert
		when 11; 	wind_invert
		when 12;  fast_rain
		when 13..13 + custom; custom_type(CUSTOM_TYPES[@type-13 - 1])
		end
	end
 
	def base_setting(invert_y = false)
		self.angle = rand(360)
		self.x = rand(@cw2[0])
		if @cw2[1] > 0
			self.x = @cw2[1] + rand(@cw2[0] - @cw2[1])
		end
		self.y = @ch2[1] - 20 - rand(50)
		self.y = @ch2[0] - rand(30) if invert_y
		self.opacity = 1
		self.zoom_x = (rand(100) + 50) / 100.0
		self.zoom_y = self.zoom_x
	end
 
	def custom_type(mas)
		case mas[0]
		when 1
			wind
			self.y = @ch2[0] + rand(30)
			@y_speed = -(rand(20) + (mas[1] + rand(10))/2)/2
		when 2
			fog
			@x_speed = rand(20) + (mas[1] + rand(10))/2
		when 3
			wind
			@x_speed = (rand(20) + mas[1] + rand(10))/2
			@y_speed = (rand(20) + (mas[1] + rand(10))/2)/2*1.5
		when 4
			rain
			@y_speed = (rand(20) + (mas[1] + rand(10))/2)/2
		when 5
			wind_invert
			@y_speed = (rand(20) + (mas[1] + rand(10))/2)/2
		when 6
			fog_invert
			@x_speed = -rand(20) + (mas[1] + rand(10))/2
		when 7
			wind_invert
			self.y = @ch2[0]
			@y_speed = -(rand(20) + (mas[1] + rand(10))/2)/2
		when 8
			fast_evaporation
			@y_speed = -(rand(20) + (mas[1] + rand(10))/2)/2
		end
		@angle_speed = rand(3) if mas[2]
		case mas[3]
		when 0
			@zoom_speed = 0
		when 1
			@zoom_speed = 0.01
		when 2
			@zoom_speed = -0.01
		end
	end
 
	def snow
		base_setting
		@y_speed = [[rand(5), 1].max, 5].min
		@opacity_speed = 5
		@angle_speed = rand(3)
	end   
 
	def spark
		self.angle = rand(360)
		self.x = rand(@cw2[0])
		if @cw2[1] > 0
			self.x = @cw2[1] + rand(@cw2[0] - @cw2[1])
		end
		self.y = rand(@ch2[0])
		if @ch2[1] > 0
			self.y = @ch2[1] + rand(@ch2[0] - @ch2[1])
		end
		self.opacity = 1
		self.zoom_x = (rand(100) + 100) / 100.0
		self.zoom_y = self.zoom_x
		self.blend_type = 1     
		@opacity_speed = 10
		@zoom_speed = -0.01
	end
 
	def rain_setting
		self.x = rand(@cw2[0])
		if @cw2[1] > 0
			self.x = @cw2[1] + rand(@cw2[0] - @cw2[1])
		end    
		if @ch2[1] > 0
			self.y = @ch2[1] - 15 - rand(50)
		else
			self.y = - 50 - [15 + rand(40), rand(50)].max
		end
		self.opacity = 1
		self.zoom_y = (rand(50) + 100) / 100.0
		self.zoom_x = (rand(25) + 100) / 100.0
		@y_speed = [[rand(10) + 3, 10].max, 20].min + rand(10)
		@y_speed /= 2
		@opacity_speed = 15
	end
 
	def rain
		rain_setting
	end
 
	def fast_rain
		rain_setting
		@y_speed *= 1.5
	end
 
	def fog_setting
		self.angle = rand(360)
		if @cw2[1] > 0
			self.x = @cw2[1] - [20 + rand(100), 20 + rand(60)].max
		else
			self.x = -[50 + rand(70), 40 + rand(50)].max	
		end
		self.y = rand(@ch2[0])
		if @ch2[1] > 0
			self.y += @ch2[1]
		end
		self.opacity = 1
		self.zoom_x = (rand(100) + 50) / 100.0
		self.zoom_y = self.zoom_x
		@opacity_speed = 10
	end 
 
	def fog
		fog_setting
		@x_speed = [[rand(10), 1].max, 10].min
	end
 
	def fast_fog
		fog
		@x_speed *= 1.5
	end
 
	def fog_invert
		fog
		self.x = @cw2[0] + 20 + rand(40)
		@x_speed *= -1
	end
 
	def fast_fog_invert
		fog_invert
		@x_speed *= 1.5
	end
 
	def slow_evaporation
		base_setting(true)
		self.y += rand(30)
		@angle_speed = [[rand(3), 1].max, 3].min
		@y_speed = -[[rand(10), 1].max, 10].min
		@opacity_speed = 4
	end
 
	def fast_evaporation
		slow_evaporation
		@angle_speed = [[rand(12), 4].max, 9].min
		@y_speed *= 1.5
		@opacity_speed = 10
	end
 
	def wind
		base_setting
		@x_speed = [[rand(10), 1].max, 10].min
		@y_speed = [[rand(10), 1].max, 10].min
		@opacity_speed = 10
		@angle_speed = rand(3)
	end  
 
	def wind_invert
		wind
		@x_speed = -[[rand(10), 1].max, 10].min
	end 
 
	def random
		base_setting
		x_s = [[rand(10), 1].max, 10].min
		y_s = [[rand(10), 1].max, 10].min
		rand_x = rand(2)
		rand_y = rand(2)
		@x_speed = rand_x == 1 ? x_s : -x_s
		@y_speed = rand_y == 1 ? y_s : -y_s      
		@opacity_speed = 10
	end
 
end # class Game_Weather_Sprite < Sprite_Base