用变量控制的·完美日夜系统V0.90
此脚本原型是地图显示变量，被我改造成了变量控制的日夜系统:)脚本功能：
日夜变化，1-24时的明暗效果，可在脚本中设置使用明暗效果的地图ID
分，时，年，月，日，星期，四季：全变量控制，可自行改变分的增进速度，各个单位的进制
并且可以随时调整分，时，年，月，日，星期，四季的数值。
可以控制脚本是否开启，窗口背景是否显示。
只有在地图时间才会流逝，并且对话时时间也不会流逝！
脚本在范例工程之中！此脚本请配合本人的工程使用。
我在66找了不少日夜系统，不是计算公式不能改就是没有明暗，要不就是不能自由控制……
这回终于做了个任意控制的了！这也是我做的第一个脚本吧！（在原基础上学习制作）#==============================================================================#变量控制完美时间天气系统 V0.90 整合与重制作：牛肉面#原地图显变量脚本来自66rpg#请使用本人配套范例工程#==============================================================================VAR_SWITCH = 5 # 工作开关VAR_REFRESH_SWITCH = 6# 强制刷新COLOURMAPID = # 使用天气明暗效果的地图ID#1、把窗口由透明变为不透明(包括第一次使用时)，2、游戏中用脚本更改了$var$var = []$var = [,,,,]#所有需要显示在地图并且刷新的变量，可在游戏中用脚本更改。#格式：[变量编号，x坐标，y坐标]#==============================================================================# ■ Window_XY#------------------------------------------------------------------------------# 显示坐标的窗口。#==============================================================================class Window_MapVar < Window_Base #注意前面那个window_var是文件名#--------------------------------------------------------------------------# ● 初始化窗口#--------------------------------------------------------------------------def initialize #=======================此处可任意调整窗口位置super(0,0,640,64) # 窗口内容的不透明度 self.contents_opacity=255 self.contents = Bitmap.new(width - 32, height - 32) self.z=9999#=======================@var_value_old = -1@var = $var@var_a = []for var_draw in $var @var_a] = $game_variables]end refreshend#--------------------------------------------------------------------------# ● 刷新#--------------------------------------------------------------------------def refreshif $game_switches @var = $var # 记录现在变量数组结构 self.contents.clear # 清除以前的东西 for var_draw in @var @var_a] = $game_variables] # 记录现在的游戏变量 self.contents.draw_text(var_draw,var_draw,640,32,@var_a].to_s) self.contents.draw_text(45, 0, 32, 32, '时') self.contents.draw_text(95, 0, 32, 32, '分') self.contents.draw_text(185, 0, 32, 32, '年') self.contents.draw_text(235, 0, 32, 32, '月') self.contents.draw_text(285, 0, 32, 32, '日') #self.contents.draw_text(330, 0, 64, 32, '星期') @game_variables = $game_variables case @game_variables# 控制窗口背景变量 1显示0消失when 1 self.opacity=150# 窗口的不透明度 self.back_opacity=150 # 窗口背景的不透明度when 0 self.opacity=0 self.back_opacity=0 end case @game_variables when 1 self.contents.draw_text(330, 0, 96, 32, '星期一') when 2 self.contents.draw_text(330, 0, 96, 32, '星期二') when 3 self.contents.draw_text(330, 0, 96, 32, '星期三') when 4 self.contents.draw_text(330, 0, 96, 32, '星期四') when 5 self.contents.draw_text(330, 0, 96, 32, '星期五') when 6 self.contents.draw_text(330, 0, 96, 32, '星期六') when 7 self.contents.draw_text(330, 0, 96, 32, '星期日') else self.contents.draw_text(330, 0, 96, 32, '星期日') end case @game_variables when 1 self.contents.draw_text(420, 0, 64, 32, '春季') when 2 self.contents.draw_text(420, 0, 64, 32, '夏天') when 3 self.contents.draw_text(420, 0, 64, 32, '秋日') when 4 self.contents.draw_text(420, 0, 64, 32, '寒冬') end @game_switches = $game_switches if COLOURMAPID.include?($game_map.map_id) #@game_switches case @game_variables when 1 $game_screen.start_tone_change(Tone.new(-136,-136,-85,34),5) when 2 $game_screen.start_tone_change(Tone.new(-102,-102,-68,17),5) when 3 $game_screen.start_tone_change(Tone.new(-102,-102,-68,17),5) when 4 $game_screen.start_tone_change(Tone.new(-51,-51,-85,0),5) when 5 $game_screen.start_tone_change(Tone.new(-51,-51,-85,0),5) when 6 $game_screen.start_tone_change(Tone.new(-17,-17,-51,0),5) when 7 $game_screen.start_tone_change(Tone.new(-17,-17,-51,0),5) when 8 $game_screen.start_tone_change(Tone.new(0,0,0,0),5) when 9 $game_screen.start_tone_change(Tone.new(0,0,0,0),5) when 10 $game_screen.start_tone_change(Tone.new(0,0,0,0),5) when 11 $game_screen.start_tone_change(Tone.new(34,34,0,0),5) when 12 $game_screen.start_tone_change(Tone.new(34,34,0,0),5) when 13 $game_screen.start_tone_change(Tone.new(34,34,0,0),5) when 14 $game_screen.start_tone_change(Tone.new(17,17,0,0),5) when 15 $game_screen.start_tone_change(Tone.new(17,17,0,0),5) when 16 $game_screen.start_tone_change(Tone.new(17,17,0,0),5) when 17 $game_screen.start_tone_change(Tone.new(-17,-34,-68,0),5) when 18 $game_screen.start_tone_change(Tone.new(-17,-34,-68,0),5) when 19 $game_screen.start_tone_change(Tone.new(-102,-102,-68,17),5) when 20 $game_screen.start_tone_change(Tone.new(-102,-102,-68,17),5) when 21 $game_screen.start_tone_change(Tone.new(-102,-102,-68,17),5) when 22 $game_screen.start_tone_change(Tone.new(-136,-136,-85,34),5) when 23 $game_screen.start_tone_change(Tone.new(-136,-136,-85,34),5) when 0 $game_screen.start_tone_change(Tone.new(-136,-136,-85,34),5) end else $game_screen.start_tone_change(Tone.new(0,0,0,0),5) end endend end#--------------------------------------------------------------------------# ● 判断文字刷新。节约内存用#--------------------------------------------------------------------------def judgefor var_draw in $var if @var_a] != $game_variables] #如果现在记录的变量和游戏变量不同，刷新 return true endendif $game_switches# 强制刷新的时候，刷新 $game_switches = false return trueendreturn falseendendclass Scene_Mapalias var_66rpg_main maindef main@var_window = Window_MapVar.new#@var_window.opacity = 0var_66rpg_main@var_window.disposeend#--------------------------------------------------------------------------# ● 刷新画面#--------------------------------------------------------------------------alias var_66rpg_update updatedef updatevar_66rpg_updateif $game_switches @var_window.visible = true @var_window.refresh #if @var_window.judgeelse @var_window.visible = falseendendend复制代码此脚本不能直接外挂
本帖来自P1论坛作者a360015305，因Project1站服务器在国外有时候访问缓慢不方便作者交流学习，经联系P1站长fux2同意署名转载一起分享游戏制作经验，共同为国内独立游戏作者共同创造良好交流环境，原文地址：https://rpg.blue/forum.php?mod=viewthread&tid=157451若有侵权，发帖作者可联系底部站长QQ在线咨询功能删除，谢谢。
页:
[1]