Project1
标题:
使用的天气脚本里如何修改画面明暗= =
[打印本页]
作者:
遠夜
时间:
2009-2-5 22:25
标题:
使用的天气脚本里如何修改画面明暗= =
使用了这个脚本
#-支持雨,风,雪。
#-自定义天气变化几率,百分比(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
复制代码
希望下雨时画面能稍微再亮一点,不是全部变亮,请教应该修改哪里的句子> < [LINE]1,#dddddd[/LINE]
版务信息:本贴由楼主自主结贴~
作者:
御风天之痕
时间:
2009-2-5 22:37
提示:
作者被禁止或删除 内容自动屏蔽
欢迎光临 Project1 (https://rpg.blue/)
Powered by Discuz! X3.1