【电影模式对话】不妨碍原有对话模式

癫狂侠客 · 发表于 2011-8-22 15:42:42

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由忧雪の伤于 2011-8-22 22:21 编辑

某侠为做R剧和电影剧情的同仁们写的脚本，不需要导入任何素材，只有一点脚本。
默认50号开关是打开电影模式的开关，50号变量是电影模式中对话不按空格自动进行的等待时间。
本电影模式与RM原本的对话模式不冲突，可以随时随意的转换，甚至可以做好了的剧情分歧一下就变成了电影的回忆剧情，至于用法亲们自己研究吧，下面是贴图：

电影模式.rar (193.23 KB, 下载次数: 2164)

没有找到插入脚本！！:L
脚本如下：

#==============================================================================
# ■ Window_MSGMovie
#------------------------------------------------------------------------------
# 　电影模式下显示文章的信息窗口。
#==============================================================================
# 电影模式开关默认为 50号开关
$movie_switches = 50
# 电影模式下等待关闭文字默认 50号变量
$close_speak = 50
class Window_MSGMovie < Window_Base
#--------------------------------------------------------------------------
# ● 初始化状态
#--------------------------------------------------------------------------
def initialize
super(0,400,640,80)
self.contents = Bitmap.new(width, height)
self.windowskin = Bitmap.new(30,30)
$game_temp.message_window_showing = false
self.z = 199
end
#--------------------------------------------------------------------------
# ● 处理信息结束
#--------------------------------------------------------------------------
def end_MSG
self.active = false
self.pause = false
self.contents.clear
# 呼叫信息调用
if $game_temp.message_proc != nil
$game_temp.message_proc.call
end
# 清除文章、选择项、输入数值的相关变量
$game_temp.message_text = nil
$game_temp.message_proc = nil
$game_temp.choice_start = 99
$game_temp.choice_max = 0
$game_temp.choice_cancel_type = 0
$game_temp.choice_proc = nil
$game_temp.num_input_start = 99
$game_temp.num_input_variable_id = 0
$game_temp.num_input_digits_max = 0
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
self.contents.clear
x = 0
if $game_temp.message_text != nil
temp_text = $game_temp.message_text.clone
movie_text = $game_temp.message_text.clone
# 模拟执行(计算文字位置)
text = ""
# 转换字符
temp_text.gsub!(/\\\\/) { "\000" }
temp_text.gsub!(/\\[Cc]\[([0-9]+)\]/) { "\001[#{$1}]" }
temp_text.gsub!(/\\[Vv]\[([0-9]+)\]/) { "\002[#{$1}]" }
temp_text.gsub!(/\\[Nn]\[([0-9]+)\]/) { "\003[#{$1}]" }
while((c = temp_text.slice!(/./m)) != nil)
if c == "\000"
c = "\\"
end
if c == "\001"
# 更改文字色
temp_text.sub!(/\[([0-9]+)\]/, "")
color = $1.to_i
c = ""
text += c
next
end
if c == "\002"
c = $game_variables[$1.to_i].to_s
temp_text.sub!(/\[([0-9]+)\]/, "")
text += c
next
end
if c == "\003"
temp_text.sub!(/\[([0-9]+)\]/, "")
c = $game_actors[$1.to_i] != nil ? $game_actors[$1.to_i].name : ""
text += c
next
end
if c == "\n"
c = ""
text += c
next
end
text += c
end
# 计算文字居中位置
move_x = (640 - self.contents.text_size(text).width) / 2 -20
# 执行 (显示文字)
movie_text.gsub!(/\\\\/) { "\000" }
movie_text.gsub!(/\\[Cc]\[([0-9]+)\]/) { "\001[#{$1}]" }
movie_text.gsub!(/\\[Vv]\[([0-9]+)\]/) { "\002[#{$1}]" }
movie_text.gsub!(/\\[Nn]\[([0-9]+)\]/) { "\003[#{$1}]" }
while((m = movie_text.slice!(/./m)) != nil)
if m == "\000"
m = "\\"
end
if m == "\001"
# 更改文字色
movie_text.sub!(/\[([0-9]+)\]/, "")
color = $1.to_i
if color >= 0 and color <= 7
self.contents.font.color = text_color(color)
end
# 下面的文字
next
end
if m == "\002"
m = $game_variables[$1.to_i].to_s
movie_text.sub!(/\[([0-9]+)\]/, "")
end
if m == "\003"
movie_text.sub!(/\[([0-9]+)\]/, "")
m = $game_actors[$1.to_i] != nil ? $game_actors[$1.to_i].name : ""
end
if m == "\n"
m = ""
end
self.contents.draw_text(move_x + x,0,self.contents.text_size(m).width,32,m)
x += self.contents.text_size(m).width
end
# 返回系统文字颜色
self.contents.font.color = normal_color
# 清理显示文字
$game_temp.message_text = nil
end
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
super
# 等待循环
if $game_variables[$close_speak] >= 2
$game_variables[$close_speak] -= 1
end
if $game_variables[$close_speak] == 1
$game_variables[$close_speak] = 0
end_MSG
end
# 当C键按下时
if Input.trigger?(Input::C) and $game_variables[$close_speak] == 0
end_MSG
end
# 显示文字
if $game_temp.message_text != nil
refresh
return
end
end
end
# --重定义Scene_Map类
class Scene_Map
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
# 生成活动块
@spriteset = Spriteset_Map.new
# 生成信息窗口
@message_window = Window_Message.new
# 生成电影模式对话窗口
@MSG_Movie_Window = Window_MSGMovie.new
# 电影模式黑框
@black = Sprite.new
@black.bitmap = Bitmap.new(640,480)
@black.bitmap.fill_rect(0,0,640,50,Color.new(25,25,25,255))
@black.bitmap.fill_rect(0,400,640,80,Color.new(25,25,25,255))
@black.opacity = 0
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果画面切换的话就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
# 释放活动块
@spriteset.dispose
# 释放信息窗口
@message_window.dispose
# 释放信息窗口
@MSG_Movie_Window.dispose
# 标题画面切换中的情况下
if $scene.is_a?(Scene_Title)
# 淡入淡出画面
Graphics.transition
Graphics.freeze
end
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
# 循环
loop do
# 按照地图、实例、主角的顺序刷新
# (本更新顺序不会在的满足事件的执行条件下成为给予角色瞬间移动
# 的机会的重要因素)
$game_map.update
$game_system.map_interpreter.update
$game_player.update
# 系统 (计时器)、画面刷新
$game_system.update
$game_screen.update
# 如果主角在场所移动中就中断循环
unless $game_temp.player_transferring
break
end
# 执行场所移动
transfer_player
# 处理过渡中的情况下、中断循环
if $game_temp.transition_processing
break
end
end
# 刷新活动块
@spriteset.update
# 选择刷新
if $game_switches[$movie_switches] == false
# 刷新信息窗口
@message_window.update
# 电影模式的黑框
@black.opacity = 0
else
# 刷新电影模式信息
@MSG_Movie_Window.update
# 电影模式的黑框
@black.opacity = 250
end
# 游戏结束的情况下
if $game_temp.gameover
# 切换的游戏结束画面
$scene = Scene_Gameover.new
return
end
# 返回标题画面的情况下
if $game_temp.to_title
# 切换到标题画面
$scene = Scene_Title.new
return
end
# 处理过渡中的情况下
if $game_temp.transition_processing
# 清除过渡处理中标志
$game_temp.transition_processing = false
# 执行过渡
if $game_temp.transition_name == ""
Graphics.transition(20)
else
Graphics.transition(40, "Graphics/Transitions/" +
$game_temp.transition_name)
end
end
# 显示信息窗口中的情况下
if $game_temp.message_window_showing
return
end
# 遇敌计数为 0 且、且遇敌列表不为空的情况下
if $game_player.encounter_count == 0 and $game_map.encounter_list != []
# 不是在事件执行中或者禁止遇敌中
unless $game_system.map_interpreter.running? or
$game_system.encounter_disabled
# 确定队伍
n = rand($game_map.encounter_list.size)
troop_id = $game_map.encounter_list[n]
# 队伍有效的话
if $data_troops[troop_id] != nil
# 设置调用战斗标志
$game_temp.battle_calling = true
$game_temp.battle_troop_id = troop_id
$game_temp.battle_can_escape = true
$game_temp.battle_can_lose = false
$game_temp.battle_proc = nil
end
end
end
# 按下 B 键的情况下
if Input.trigger?(Input::B)
# 不是在事件执行中或菜单禁止中
unless $game_system.map_interpreter.running? or
$game_system.menu_disabled
# 设置菜单调用标志以及 SE 演奏
$game_temp.menu_calling = true
$game_temp.menu_beep = true
end
end
# 调试模式为 ON 并且按下 F9 键的情况下
if $DEBUG and Input.press?(Input::F9)
# 设置调用调试标志
$game_temp.debug_calling = true
end
# 不在主角移动中的情况下
unless $game_player.moving?
# 执行各种画面的调用
if $game_temp.battle_calling
call_battle
elsif $game_temp.shop_calling
call_shop
elsif $game_temp.name_calling
call_name
elsif $game_temp.menu_calling
call_menu
elsif $game_temp.save_calling
call_save
elsif $game_temp.debug_calling
call_debug
end
end
end
end
#=============================================================================
# 本脚本来自66RPG,如使用请保留此信息
#[癫狂侠客]书写脚本
#=============================================================================

复制代码

lx527741591 · 发表于 2011-8-22 16:28:18

本帖最后由 lx527741591 于 2011-8-22 16:30 编辑

正想要呢，收下啦~~~
这个和呼出对话框脚本会不会冲突捏？
那个脚本最好用代码发下

代码复制

癫狂侠客 · 发表于 2011-8-22 16:32:26

lx527741591 发表于 2011-8-22 16:28
正想要呢，收下啦~~~
这个和呼出对话框脚本会不会冲突捏？
那个脚本最好用代码发下

不冲突，你可以看看范例，就明白了，
范例里一个NPC是打开关闭电影模式的，一个是对话框显示的，打开关闭互不冲突！

忧雪の伤 · 发表于 2011-8-23 00:10:56

我勒个去，还不冲突，直接重定义Scene_Map......会死人的知道不。

癫狂侠客 · 发表于 2011-8-29 13:28:21

977590559 发表于 2011-8-29 13:14
文字自动消失只有第一句到第二句好使。。。

从新设置变量,就可以,因为变量会自动置零

sirenke · 发表于 2011-8-29 17:08:58

很不错呢，这样文字就方便了，长时间都没怎么注意文字

fux2 · 发表于 2011-9-4 00:06:03

本帖最后由 fux2 于 2011-9-4 00:11 编辑

可移植性很低，无追加定义全部覆盖定义，兼容性很差，两个全局变量也毫无疑义，不如用常量，可以直接继承message却自行重写，浪费了效率，参考性也很低。
建议侠客去参考一下某些前辈的脚本，然后补充自己的不足之处。

月下黄昏 · 发表于 2011-11-4 20:41:41

就是这个非常好楼主辛苦啦！！！

鼎风乱影 · 发表于 2011-11-5 17:29:54

你写Scene_Map的时候为什么不用别名的方法啊

daosi · 发表于 2013-3-31 04:09:52

呜呜呜，有了这个脚本就不用繁琐的弄对话框了呜呜呜非常感谢

帐号		自动登录	找回密码
密码			注册会员

[原创发布] 【电影模式对话】不妨碍原有对话模式

加入我们，或者，欢迎回来。

点评

点评

点评

点评

贵宾

开拓者