文章怎样可以让别的按键控制

子噜噜

比如说文章显示中，按上显示上一个文章，按下显示下一个

没是的人

请善用搜索，搜索读书，读报系统

hcm

这个是否符合要求？

1. #==============================================================================
   
2. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
   
3. #==============================================================================
   
4. 
   
5. 
   
6. class Interpreter
   
7.   
   
8.   BOOK_READING = 1 # 默认打开1开关后进入读书系统
   
9.   
   
10.   #--------------------------------------------------------------------------
    
11.   # ● 显示文章
    
12.   #--------------------------------------------------------------------------
    
13.   def command_101
    
14.     # 另外的文章已经设置过 message_text 的情况下
    
15.     if $game_temp.message_text != nil
    
16.       # 结束
    
17.       return false
    
18.     end
    
19.     # 设置信息结束后待机和返回调用标志
    
20.     @message_waiting = true
    
21.     $game_temp.message_proc = Proc.new { @message_waiting = false }
    
22.     # message_text 设置为 1 行
    
23.     $game_temp.message_text = @list[@index].parameters[0] + "\n"
    
24.     line_count = 1
    
25.     # 循环
    
26.     loop do
    
27.       # 下一个事件指令为文章两行以上的情况
    
28.       if $game_switches[BOOK_READING] and @list[@index+1].code == 101#阅读书刊报纸
    
29.         unless $game_temp.in_battle
    
30.           $scene.message_window.height = 320
    
31.           $scene.message_window.contents = Bitmap.new($scene.message_window.width - 32, $scene.message_window.height - 32)
    
32.           $scene.message_window.contents.font.size = 20
    
33.           $game_temp.message_text += @list[@index+1].parameters[0] +"\n"
    
34.           line_count+=1
    
35.           @index+=1
    
36.         end
    
37.       end
    
38.       if $game_switches[BOOK_READING]==false
    
39.         unless $game_temp.in_battle
    
40.           if $scene.message_window.height == 320
    
41.             $scene.message_window.height = 160
    
42.             $scene.message_window.contents = Bitmap.new($scene.message_window.width - 32, $scene.message_window.height - 32)
    
43.             $scene.message_window.contents.font.size = 22
    
44.           end
    
45.         end
    
46.       end
    
47.       if @list[@index+1].code == 401
    
48.         # message_text 添加到第 2 行以下
    
49.         $game_temp.message_text += @list[@index+1].parameters[0] + "\n"
    
50.         line_count += 1
    
51.       # 事件指令不在文章两行以下的情况
    
52.       else
    
53.         # 下一个事件指令为显示选择项的情况下
    
54.         if @list[@index+1].code == 102
    
55.           # 如果选择项能收纳在画面里
    
56.           if @list[@index+1].parameters[0].size <= 4 - line_count
    
57.             # 推进索引
    
58.             @index += 1
    
59.             # 设置选择项
    
60.             $game_temp.choice_start = line_count
    
61.             setup_choices(@list[@index].parameters)
    
62.           end
    
63.         # 下一个事件指令为处理输入数值的情况下
    
64.         elsif @list[@index+1].code == 103
    
65.           # 如果数值输入窗口能收纳在画面里
    
66.           if line_count < 4
    
67.             # 推进索引
    
68.             @index += 1
    
69.             # 设置输入数值
    
70.             $game_temp.num_input_start = line_count
    
71.             $game_temp.num_input_variable_id = @list[@index].parameters[0]
    
72.             $game_temp.num_input_digits_max = @list[@index].parameters[1]
    
73.           end
    
74.         end
    
75.         # 继续
    
76.         return true
    
77.       end
    
78.       # 推进索引
    
79.       @index += 1
    
80.     end
    
81.   end
    
82. end
    
83. 
    
84. class Scene_Map
    
85.   attr_accessor :message_window
    
86. end
    
87. 
    
88. #==============================================================================
    
89. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
    
90. #==============================================================================
    
91. 。

复制代码

子噜噜

hcm 发表于 2012-9-17 09:27
这个是否符合要求？

这个怎么用？

zxcgood2009

先复制，然后在软件的脚本编辑器的main的前面插入一个空白页，然后粘贴在空白的这一页里。

另外召唤一位和你头像有渊源的前辈@fxwd，