XP读书读报系统文章长度怎么增加

小白不哭 · 发表于 2012-12-1 19:10:49

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

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

x

本帖最后由 hcm 于 2012-12-19 12:59 编辑

我用了站上的读书读报系统，想把在一页上显示的文字多一些，只会改窗口的尺寸、、请问脚本要改哪里才能让增加显示文字的行数呢？
# 下一个事件指令为文章两行以上的情况
   if $game_switches[BOOK_READING] and @list[@index+1].code == 101#阅读书刊报纸
      $scene.message_window.height = 420
      $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
我修改了这里。。只有对话窗口长度变长了。。
脚本如下：

class Scene_Map
attr_accessor :message_window
end
class Interpreter
BOOK_READING = 50 # 默认打开50开关后进入读书系统
#--------------------------------------------------------------------------
# ● 显示文章
#--------------------------------------------------------------------------
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#阅读书刊报纸
$scene.message_window.height = 420
$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
if $game_switches[BOOK_READING]==false
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
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

复制代码

小白不哭 · 发表于 2012-12-4 10:48:25

各位大大求助啊T.T，为神马木有人理我= =

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

[已经过期] XP读书读报系统文章长度怎么增加

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