如何让文章和选项一起出现!?? - Project1

class Interpreter
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 @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)
else
$game_temp.超额数 = line_count + @list[@index+1].parameters[0].size - 4
@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 Game_Temp
attr_accessor :超额数
end
class Window_Message < Window_Selectable
alias old_refresh refresh
alias old_terminate_message terminate_message
def refresh
if $game_temp.超额数 != nil
self.y -= 32 * $game_temp.超额数
self.height += 32 * $game_temp.超额数
self.contents = Bitmap.new(self.width - 32, self.height - 32)
end
old_refresh
$game_temp.超额数 = nil
end
def terminate_message
old_terminate_message
self.height = 160
self.y = 304
end
end

复制代码