全键盘输入数值 1.1

orzfly

这个纯粹是方便输入数值用的，现在可以直接用数字键和退格键输入数字了。XP/VX通用。只追加定义了 Window_InputNumber (XP) / Window_InputNumber (VX) 的 update。

这个就不上截图了，关键在于输入的过程，上截图没意思。

1. #==============================================================================
   
2. # ■ 全键盘输入数值 1.1
   
3. #   http://orzFly.com/RM/FullKeyboardInputNumber
   
4. #------------------------------------------------------------------------------
   
5. # 为『输入数值的处理』增加全键盘的支持。
   
6. #------------------------------------------------------------------------------
   
7. # - 1.1 by orzFly [[email protected]]
   
8. #   * 修正 bug：屏蔽小键盘光标移动功能。
   
9. #
   
10. # - 1.0 by orzFly [[email protected]]
    
11. #   * 首个版本
    
12. #==============================================================================
    
13. module OrzFly
    
14.   RM = Game_Temp.method_defined?(:background_bitmap) unless const_defined?(:RM)
    
15.   module FullKeyInputNumber
    
16.     Keys = {
    
17.       # 主键盘区数字 0~9
    
18.       0x30 => 0, 0x31 => 1, 0x32 => 2, 0x33 => 3, 0x34 => 4,
    
19.       0x35 => 5, 0x36 => 6, 0x37 => 7, 0x38 => 8, 0x39 => 9,
    
20.       # 小键盘区数字 Numpad 0, 1, 3, 5, 7, 9
    
21.       0x60 => 0, 0x61 => 1, 0x63 => 3, 0x65 => 5, 0x67 => 7, 0x69 => 9,
    
22.       #              Numpad 2, 4, 6, 8 较特殊，单独处理
    
23.       # 退格 Backspace
    
24.       0x08 => -1,
    
25.       # 删除 Delete
    
26.       0x2E => -2
    
27.     }
    
28.     GetKeyState = Win32API.new(
    
29.       "user32", "GetAsyncKeyState", ['I'], 'I'
    
30.     )
    
31.   end
    
32. end
    
33. 
    
34. #==============================================================================
    
35. # ■ Window_InputNumber (XP) / Window_InputNumber (VX) 追加定义
    
36. #------------------------------------------------------------------------------
    
37. # 　信息窗口内部使用、输入数值的窗口。
    
38. #==============================================================================
    
39. (OrzFly::RM ? Window_NumberInput : Window_InputNumber).class_eval {
    
40.   def update
    
41.     super
    
42.     if active
    
43.       catch(:loop) {
    
44.         OrzFly::FullKeyInputNumber::Keys.keys.each { |key|
    
45.           if OrzFly::FullKeyInputNumber::GetKeyState.call(key) & 1 != 0
    
46.             OrzFly::RM ? Sound.play_cursor                          \
    
47.                        : $game_system.se_play($data_system.cursor_se)
    
48.             process_key(OrzFly::FullKeyInputNumber::Keys[key])
    
49.             throw(:loop)
    
50.           end
    
51.         }
    
52.       }
    
53.       if Input.repeat?(Input::UP)or Input.repeat?(Input::DOWN)
    
54.         if OrzFly::FullKeyInputNumber::GetKeyState.call(0x68) != 0
    
55.           process_key(8)
    
56.         elsif OrzFly::FullKeyInputNumber::GetKeyState.call(0x62) != 0
    
57.           process_key(2)
    
58.         else
    
59.           OrzFly::RM ? Sound.play_cursor                          \
    
60.                      : $game_system.se_play($data_system.cursor_se)
    
61.           place = 10 ** (@digits_max - 1 - @index)
    
62.           n = @number / place % 10
    
63.           @number -= n * place
    
64.           n = (n + 1) % 10 if Input.repeat?(Input::UP)
    
65.           n = (n + 9) % 10 if Input.repeat?(Input::DOWN)
    
66.           @number += n * place
    
67.           refresh
    
68.         end
    
69.       end
    
70.       if Input.repeat?(Input::RIGHT)
    
71.         if OrzFly::FullKeyInputNumber::GetKeyState.call(0x66) != 0
    
72.           process_key(6)
    
73.         else
    
74.           OrzFly::RM ? Sound.play_cursor                          \
    
75.                      : $game_system.se_play($data_system.cursor_se)
    
76.           if @index < @digits_max - 1 or Input.trigger?(Input::RIGHT)
    
77.             @index = (@index + 1) % @digits_max
    
78.           end
    
79.         end
    
80.       end
    
81.       if Input.repeat?(Input::LEFT)
    
82.         if OrzFly::FullKeyInputNumber::GetKeyState.call(0x64) != 0
    
83.           process_key(4)
    
84.         else
    
85.           OrzFly::RM ? Sound.play_cursor                          \
    
86.                      : $game_system.se_play($data_system.cursor_se)
    
87.           if @index > 0 or Input.trigger?(Input::LEFT)
    
88.             @index = (@index + @digits_max - 1) % @digits_max
    
89.           end
    
90.         end
    
91.       end
    
92.       OrzFly::RM ? update_cursor    \
    
93.                  : update_cursor_rect
    
94.     end
    
95.   end
    
96.   def process_key(result)
    
97.     if result >= 0 and result <= 9
    
98.       place = 10 ** (@digits_max - 1 - @index)
    
99.       @number = @number - (@number / place % 10) * place \
    
100.                         + result * place
     
101.       refresh
     
102.       if @digits_max >= 2
     
103.         @index = (@index + 1) % @digits_max
     
104.       end
     
105.     elsif result == -1
     
106.       if @digits_max >= 2 and @index >= 1
     
107.         @index = (@index + @digits_max - 1) % @digits_max
     
108.       end
     
109.       place = 10 ** (@digits_max - 1 - @index)
     
110.       @number = @number -  (@number / place % 10) * place
     
111.       refresh
     
112.     elsif result == -2
     
113.       place = 10 ** (@digits_max - 1 - @index)
     
114.       @number = @number -  (@number / place % 10) * place
     
115.       refresh
     
116.     end
     
117.   end
     
118. }

复制代码

各种压力的猫君

好人君~

纯支持~拿走用了

BUG：没有屏蔽小键盘2、4、6、8的光标移动功能……

忧雪の伤

这个区分版本的方法依旧不够严谨……

Mr.Jin

ORZ君是神人
;P

姬文翔

方便的好东西啊！用这个输入游戏节奏明快多了

絀神入化

唔，之前还在想这个问题，马上看到了，谢谢~


絀神入化于2011-8-22 22:46补充以下内容：
PM：窗口改一下好一点……

womeng008

怎么用啊

杰总

有木有ACE的？

domodomodomo

修正 bug：屏蔽小键盘光标移动功能。……结果光标还是出现了……而且小键盘上的0无法进行操作