使用的天气脚本里如何修改画面明暗= = - Project1

#－支持雨，风，雪。
#－自定义天气变化几率，百分比（factor）。
#－自定义天气变化种类（范围）（type）。
#－自定义天气强度（范围）（max）。
#－自定义天气持续时间（范围）（duration）。
#－自定义天气变化间隔时间（范围）（rest）。
#－同时下雨的时候可以设定是否有雷电，雷电有屏幕闪烁，声音效果（thunder）。
#－下雨的时候天空变黑。
#－自定义雷电的时间间隔（范围）（thunder_rest）。
class Game_RandomWeather
attr_reader :factor
attr_reader :type
attr_reader :max
attr_reader :duration
attr_reader :rest
attr_reader :thunder
attr_reader :thunder_rest
attr_reader :r_type
attr_reader :r_max
attr_reader :r_duration
attr_reader :r_rest
attr_reader :r_thunder_rest
def initialize
@factor = 30
@type = 1..3
@max = 1..40
@duration = 1200..3600
@rest = 6000..12000
@thunder = true
@thunder_rest = 40..1200
@frame = 0
@thunder_frame = 0
@r_type = nil
@r_max = nil
@r_duration = nil
@r_rest = nil
@r_thunder_rest = nil
end
def dispose
$game_screen.weather(0, 0, 20)
@r_rest = nil
@frame = 0
end
def factor=(factor)
@factor = factor
end
def type=(type)
@type = type
end
def max=(max)
@max = max
end
def duration=(duration)
@duration = duration
end
def rest=(rest)
@rest = rest
end
def thunder=(thunder)
@thunder = (thunder)
end
def thunder_rest=(thunder_rest)
@thunder_rest = (thunder_rest)
end
def rand_range(range)
rand(range.max - range.min + 1) + range.min
end
def update
@r_rest = rand_range(@rest) if !@r_rest
@frame += 1
if $game_screen.weather_type == 0 && @frame > @r_rest
if @factor > rand(100)
@r_type = rand_range(@type)
@r_max = rand_range(@max)
@r_duration = rand_range(@duration)
if @r_type == 1
$game_screen.start_tone_change(Tone.new(-70,-70,-70), 20)
case @r_max
when 1..20
Audio.bgs_play("Audio/BGS/005-Rain01", 50, 100)
when 21..30
Audio.bgs_play("Audio/BGS/006-Rain02", 70, 100)
when 31..40
Audio.bgs_play("Audio/BGS/007-Rain03", 100, 100)
end
elsif @r_type == 2
case @r_max
when 1..20
Audio.bgs_play("Audio/BGS/001-Wind01", 80, 100)
when 21..30
Audio.bgs_play("Audio/BGS/002-Wind02", 70, 100)
when 31..40
Audio.bgs_play("Audio/BGS/004-Wind04", 100, 100)
end
end
$game_screen.weather(@r_type, @r_max, 20)
@frame = 0
else
@r_rest = nil
@frame = 0
end
elsif $game_screen.weather_type != 0 && @r_duration
if @frame < @r_duration
if @r_type == 1 && @thunder
@thunder_frame += 1
@r_thunder_rest = rand_range(@thunder_rest) if !@r_thunder_rest
if @thunder_frame > @r_thunder_rest
$game_screen.start_flash(Color.new(255,255,255), 20)
Audio.se_play("Audio/SE/061-Thunderclap01", 100, 100)
@r_thunder_rest = nil
@thunder_frame = 0
end

复制代码