怎么制作读书系统？

神殿传说 · 发表于 2012-4-2 13:12:01

怎么制作读书系统？
我看了《同福书局》认为不是很好，太烦
怎么用脚本和事件做出全屏式对话框，功能和普通对话框一样
还有，xp里面怎么让事件中文章里面输入的字全部显示出来？

zhixin1997 · 发表于 2012-4-14 20:50:35

曾经有一个图书馆系统，收录在宝典里

步兵中尉 · 发表于 2012-4-14 12:28:04

eve592370698 发表于 2012-4-14 02:51
我记得有个读取TXT文件的脚本是最原始的，《同福书局》就是根据它增强扩展而来的。您的这个智能合并脚本 ...

这套系统我没用过，我一直用我用的那套。
如果用了FUKI对话框的话就要在使用前添加FUKI的脚本起头

eve592370698 · 发表于 2012-4-14 02:51:52

本帖最后由 eve592370698 于 2012-4-14 02:55 编辑

步兵中尉发表于 2012-4-2 13:44
用这个脚本就可以了。如果没有添加其他脚本的话就直接打开5号开关就变成读书系统了；默认为8行字，也就是两 ...

我记得有个读取TXT文件的脚本是最原始的，《同福书局》就是根据它增强扩展而来的。

=begin
在脚本中输入 $scene = Scene_Read_NM.new 开启柳万岁爷的小图书馆脚本
在事件脚本中输入$scene = Scene_Read_SUPER.new可以运行柳大人的大图书馆脚本
=end
class Window_Reader < Window_Base
attr_accessor :text
def initialize(text, line)
@text = text
@line = line
super(50, 15, 540, 450)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.size = 20
refresh
end
=begin
❀刷新
=end
def refresh
self.contents.clear
self.contents.font.size = 20
self.contents.font.color = normal_color
j = 0
for i in @line..[@text.size - 1, @line + 14].min
self.contents.draw_text(0, 28 * j, 540 - 32, 28, @text[i])
j += 1
end
self.contents.font.size = 12
self.contents.font.color = Color.new(255,255,0,255)
self.contents.draw_text(0, 408, 540 - 32, 12, @line.to_s + "/" + (@text.size-1).to_s , 2)
end
def add_1
@line += 1
@line = [@text.size - 1, @line].min
refresh
end
def minus_1
@line -= 1
@line = [0, @line].max
refresh
end
def page_add
@line += 13
@line = [@text.size - 1, @line].min
refresh
end
def page_back
@line -= 13
@line = [0, @line].max
refresh
end
def renew(text, line)
@text = text
@line = line
refresh
end
end
class Window_Command < Window_Selectable
attr_reader :commands
end
=begin =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
■ Scene_Read
柳万岁爷的小图书馆脚本
=end # =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
class Scene_Read_NM
#-----------------------------------------
# ● 主处理
#-----------------------------------------
def main
sp = Spriteset_Map.new
#↓调用读书的窗口
@read_window = Window_Reader.new([""], 0)
@read_window.opacity = 230
@read_window.z = 900
text = Dir["txt/*"]
@text = []
for tx in text
@text.push (tx.split(/\//)[1].split(/.txt/)[0])
end
@command_window = Window_Command.new(180, @text)
@command_window.y = (480 - @command_window.height)/2
@command_window.opacity = 230
@command_window.z = 999
@doing = 1
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果画面切换的话就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
@command_window.dispose if !@command_window.disposed?
@read_window.dispose
sp.dispose
end
def update
case @doing
when 1 #选书
update_1
when 2 #读书
update_2
end
end
def update_1
@command_window.update
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$scene = Scene_Map.new
end
if Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
filename = "txt/" + @command_window.commands[@command_window.index] + ".txt"
file = File.open(filename, "r")
r = file.readlines
@real_text = []
for i in 0...r.size
temp_story = r[i].split(/\n/)[0]
temp_story.gsub!(/,/) {"，"} if temp_story != nil
temp_story.gsub!(/\./) {"。"} if temp_story != nil
temp_story.gsub!(/ /) {"　"} if temp_story != nil
while(temp_story != nil)
text = ""
if temp_story.length > 75
text = temp_story.slice!(0,75)
else
text = temp_story
temp_story = nil
end
@real_text.push(text)
end
end
file.close
@read_window.renew(@real_text, 0)
@command_window.visible = false
@command_window.active = false
@doing = 2
end
end
def update_2
@read_window.update
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@command_window.visible = true
@command_window.active = true
@doing = 1
end
if Input.trigger?(Input::UP)
$game_system.se_play($data_system.cursor_se)
@read_window.minus_1
end
if Input.trigger?(Input::DOWN)
$game_system.se_play($data_system.cursor_se)
@read_window.add_1
end
if Input.trigger?(Input::L) or Input.trigger?(Input::LEFT)
$game_system.se_play($data_system.cursor_se)
@read_window.page_back
end
if Input.trigger?(Input::R) or Input.trigger?(Input::RIGHT)
$game_system.se_play($data_system.cursor_se)
@read_window.page_add
end
end
end
=begin
# ■ Scene_Read
=end
class Scene_Read_SUPER
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
sp = Spriteset_Map.new
@read_window = Window_Reader.new([""], 0)
@read_window.opacity = 230
@read_window.z = 900
@command_window = Window_Command.new(180, ["选音乐","选书阅读"])
@command_window.y = (480 - @command_window.height)/2
@command_window.opacity = 230
@command_window.z = 999
@doing = 0
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果画面切换的话就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
@command_window.dispose if !@command_window.disposed?
@read_window.dispose
sp.dispose
end
def update
case @doing
when 0 #选项
update_0
when 1 #选书
update_1
when 2 #读书
update_2
when 3 #选音乐
update_3
end
end
def update_0
@command_window.update
if Input.trigger?(Input::C)
case @command_window.index
when 0
$game_system.se_play($data_system.decision_se)
text = Dir["Audio/BGM/*"]
@text = []
for tx in text
@text.push(tx.split(/BGM\//)[1])
end
@command_window.dispose
@command_window = Window_Command.new(180, @text)
@command_window.y = (480 - @command_window.height)/2
@command_window.opacity = 230
@command_window.z = 999
@doing = 3
when 1
$game_system.se_play($data_system.decision_se)
text = Dir["txt/*"]
@text = []
for tx in text
@text.push (tx.split(/\//)[1].split(/.txt/)[0])
end
@command_window.dispose
@command_window = Window_Command.new(180, @text)
@command_window.y = (480 - @command_window.height)/2
@command_window.opacity = 230
@command_window.z = 999
@doing = 1
when 2
$game_system.se_play($data_system.decision_se)
@command_window.visible = false
@command_window.active = false
@doing = 2
end
end
if Input.trigger?(Input::B)
$game_system.se_play($data_system.decision_se)
$scene = Scene_Map.new
end
end
def update_1
@command_window.update
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@doing = 0
@command_window.dispose
if @read_window.text != [""]
@command_window = Window_Command.new(180, ["选音乐","选书阅读","继续阅读"])
else
@command_window = Window_Command.new(180, ["选音乐","选书阅读"])
end
@command_window.y = (480 - @command_window.height)/2
@command_window.opacity = 230
@command_window.z = 999
end
if Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
filename = "txt/" + @command_window.commands[@command_window.index] + ".txt"
file = File.open(filename, "r")
r = file.readlines
@real_text = []
for i in 0...r.size
temp_story = r[i].split(/\n/)[0]
temp_story.gsub!(/,/) {"，"} if temp_story != nil
temp_story.gsub!(/\./) {"。"} if temp_story != nil
temp_story.gsub!(/ /) {"　"} if temp_story != nil
while(temp_story != nil)
text = ""
if temp_story.length > 75
text = temp_story.slice!(0,75)
else
text = temp_story
temp_story = nil
end
@real_text.push(text)
end
end
file.close
@read_window.renew(@real_text, 0)
@command_window.visible = false
@command_window.active = false
@doing = 2
end
end
def update_2
@read_window.update
if Input.trigger?(Input::B)
$game_system.se_play($data_system.decision_se)
@doing = 0
@command_window.dispose
if @read_window.text != [""]
@command_window = Window_Command.new(180, ["选音乐","选书阅读","继续阅读"])
else
@command_window = Window_Command.new(180, ["选音乐","选书阅读"])
end
@command_window.y = (480 - @command_window.height)/2
@command_window.opacity = 230
@command_window.z = 999
@doing = 0
end
if Input.trigger?(Input::UP)
$game_system.se_play($data_system.cursor_se)
@read_window.minus_1
end
if Input.trigger?(Input::DOWN)
$game_system.se_play($data_system.cursor_se)
@read_window.add_1
end
if Input.trigger?(Input::L) or Input.trigger?(Input::LEFT)
$game_system.se_play($data_system.cursor_se)
@read_window.page_back
end
if Input.trigger?(Input::R) or Input.trigger?(Input::RIGHT)
$game_system.se_play($data_system.cursor_se)
@read_window.page_add
end
end
def update_3
@command_window.update
if Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
filename = "Audio/BGM/" + @command_window.commands[@command_window.index]
Audio.bgm_play(filename, 100, 100)
end
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@doing = 0
@command_window.dispose
if @read_window.text != [""]
@command_window = Window_Command.new(180, ["选音乐","选书阅读","继续阅读"])
else
@command_window = Window_Command.new(180, ["选音乐","选书阅读"])
end
@command_window.y = (480 - @command_window.height)/2
@command_window.opacity = 230
@command_window.z = 999
end
end
end

复制代码

您的这个智能合并脚本挺不错。
不过我一般是用FUKI对话框，要输入大段文章我都是在事件中输入

$game_temp.message_text = "半角双引号内是文章内容"

复制代码

另外可以参考我的86版FUKI对话框。

神殿传说 · 发表于 2012-4-2 17:17:14

谢了，xp里面怎么让事件中文章里面输入的字全部显示出来？

‘‘──神殿传说于2012-4-2 17:22补充以下内容

还有，这个默认的8行怎么改？
’’

步兵中尉 · 发表于 2012-4-2 13:44:43

用这个脚本就可以了。如果没有添加其他脚本的话就直接打开5号开关就变成读书系统了；默认为8行字，也就是两次文章输入的宽度。八行以后用SE里的BOOK那个声音隔开就可以了

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
class Interpreter
BOOK_READING = 5 # 默认打开5开关后进入读书系统
#--------------------------------------------------------------------------
# ● 显示文章
#--------------------------------------------------------------------------
def command_101
# 另外的文章已经设置过 message_text 的情况下
if $game_temp.message_text != nil
# 结束
return false
end
# 设置信息结束后待机和返回调用标志
@message_waiting = true
$game_temp.message_proc = Proc.new { @message_waiting = false }
# message_text 设置为 1 行
$game_temp.message_text = @list[@index].parameters[0] + "\n"
line_count = 1
# 循环
loop do
# 下一个事件指令为文章两行以上的情况
if $game_switches[BOOK_READING] and @list[@index+1].code == 101#阅读书刊报纸
unless $game_temp.in_battle
$scene.message_window.height = 320
$scene.message_window.contents = Bitmap.new($scene.message_window.width - 32, $scene.message_window.height - 32)
$scene.message_window.contents.font.size = 20
$game_temp.message_text += @list[@index+1].parameters[0] +"\n"
line_count+=1
@index+=1
end
end
if $game_switches[BOOK_READING]==false
unless $game_temp.in_battle
if $scene.message_window.height == 320
$scene.message_window.height = 160
$scene.message_window.contents = Bitmap.new($scene.message_window.width - 32, $scene.message_window.height - 32)
$scene.message_window.contents.font.size = 22
end
end
end
if @list[@index+1].code == 401
# message_text 添加到第 2 行以下
$game_temp.message_text += @list[@index+1].parameters[0] + "\n"
line_count += 1
# 事件指令不在文章两行以下的情况
else
# 下一个事件指令为显示选择项的情况下
if @list[@index+1].code == 102
# 如果选择项能收纳在画面里
if @list[@index+1].parameters[0].size <= 4 - line_count
# 推进索引
@index += 1
# 设置选择项
$game_temp.choice_start = line_count
setup_choices(@list[@index].parameters)
end
# 下一个事件指令为处理输入数值的情况下
elsif @list[@index+1].code == 103
# 如果数值输入窗口能收纳在画面里
if line_count < 4
# 推进索引
@index += 1
# 设置输入数值
$game_temp.num_input_start = line_count
$game_temp.num_input_variable_id = @list[@index].parameters[0]
$game_temp.num_input_digits_max = @list[@index].parameters[1]
end
end
# 继续
return true
end
# 推进索引
@index += 1
end
end
end
class Scene_Map
attr_accessor :message_window
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
。

复制代码

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

[已经解决] 怎么制作读书系统？

评分

评分

贵宾