[VA] 窗口翻页书声

柍若

L/R键翻页的时候播放翻书音效。
（L/R键对应键盘Q/W）

直接插入Main前即可

1. #  ■ 翻页书声  - By 柍若
   
2. class Window_Selectable < Window_Base
   
3.   def cursor_pagedown
   
4.     if top_row + page_row_max < row_max
   
5.       page_up_and_down
   
6.       self.top_row += page_row_max
   
7.       select([[url=home.php?mod=space&uid=370741]@Index[/url] + page_item_max, item_max - 1].min)
   
8.     end
   
9.   end
   
10.   def cursor_pageup
    
11.     if top_row > 0
    
12.       page_up_and_down
    
13.       self.top_row -= page_row_max
    
14.       select([[url=home.php?mod=space&uid=370741]@Index[/url] - page_item_max, 0].max)
    
15.     end
    
16.   end
    
17.   def change_page
    
18.     Audio.se_play('Audio/SE/Book2',80,100)
    
19.   end
    
20.   def page_up_and_down
    
21.     Audio.se_play('Audio/SE/Book1',85,100)
    
22.   end
    
23.   def process_cursor_move
    
24.     return unless cursor_movable?
    
25.     last_index = @index
    
26.     cursor_down (Input.trigger?(:DOWN))  if Input.repeat?(:DOWN)
    
27.     cursor_up   (Input.trigger?(:UP))    if Input.repeat?(:UP)
    
28.     cursor_right(Input.trigger?(:RIGHT)) if Input.repeat?(:RIGHT)
    
29.     cursor_left (Input.trigger?(:LEFT))  if Input.repeat?(:LEFT)
    
30.     cursor_pagedown   if !handle?(:pagedown) && Input.trigger?(:R)
    
31.     cursor_pageup     if !handle?(:pageup)   && Input.trigger?(:L)
    
32.     Sound.play_cursor unless Input.trigger?(:R) or Input.trigger?(:L) or [url=home.php?mod=space&uid=370741]@Index[/url] == last_index
    
33.   end
    
34.   def process_pageup
    
35.     change_page
    
36.     Input.update
    
37.     deactivate
    
38.     call_handler(:pageup)
    
39.   end
    
40.   def process_pagedown
    
41.     change_page
    
42.     Input.update
    
43.     deactivate
    
44.     call_handler(:pagedown)
    
45.   end
    
46. end

复制代码

子弹君

这个和书籍阅读系统放在一起岂不是更好？