设为首页收藏本站|繁體中文

Project1

 找回密码
 注册会员
搜索
查看: 2320|回复: 3
打印 上一主题 下一主题

[已经解决] Keyboard Script全键盘脚本的拓展问题

[复制链接]

Lv1.梦旅人

虱子

梦石
0
星屑
121
在线时间
1782 小时
注册时间
2010-6-19
帖子
3597
跳转到指定楼层
1
发表于 2012-3-3 14:50:32 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
  1. #==============================================================================
  2. # 本脚本来自www.66RPG.com,使用和转载请保留此信息
  3. #==============================================================================

  4. #============================================================================
  5. # ■ Keyboard Script
  6. #----------------------------------------------------------------------------
  7. #  By: Cybersam
  8. #   Date: 25/05/05
  9. #   Version 4
  10. #============================================================================
  11. # 66对此脚本使用方法的说明(可能不是很准确,反正大体能用):
  12. #
  13. # ★、Kboard.keyboard(键位)  返回是否按下这个键的判断。
  14. #     比如条件分歧:Kboard.keyboard($R_Key_H)$R_Key_NUMPAD1
  15. #                   则当按下键盘H键的时候条件分歧成立
  16. #
  17. # ★、Kboard.keyb(键位) 当连续按住某键返回真,否则为false
  18. #     比如条件分歧:Kboard.keyb($R_Key_U)
  19. #                   则当持续按下键盘U的时候条件分歧成立
  20. #
  21. # ★、Kboard.key(键位,1) 似乎可以做开关用。按下一次变为true,再按变false
  22. #============================================================================

  23. module Kboard
  24.   #==========================================================================
  25.   # 以下是全键盘按键列表
  26.   #--------------------------------------------------------------------------
  27.   $Rmouse_BUTTON_L = 0x01        # left mouse button
  28.   $Rmouse_BUTTON_R = 0x02        # right mouse button
  29.   $Rmouse_BUTTON_M = 0x04        # middle mouse button
  30.   $Rmouse_BUTTON_4 = 0x05        # 4th mouse button
  31.   $Rmouse_BUTTON_5 = 0x06        # 5th mouse button
  32.   #--------------------------------------------------------------------------
  33.   $R_Key_BACK      = 0x08        # BACKSPACE key
  34.   $R_Key_TAB       = 0x09        # TAB key
  35.   $R_Key_RETURN    = 0x0D        # ENTER key
  36.   $R_Key_SHIFT     = 0x10        # SHIFT key
  37.   $R_Key_CTLR      = 0x11        # CTLR key
  38.   $R_Key_ALT       = 0x12        # ALT key
  39.   $R_Key_PAUSE     = 0x13        # PAUSE key
  40.   $R_Key_CAPITAL   = 0x14        # CAPS LOCK key
  41.   $R_Key_ESCAPE    = 0x1B        # ESC key
  42.   $R_Key_SPACE     = 0x20        # SPACEBAR
  43.   $R_Key_PRIOR     = 0x21        # PAGE UP key
  44.   $R_Key_NEXT      = 0x22        # PAGE DOWN key
  45.   $R_Key_END       = 0x23        # END key
  46.   $R_Key_HOME      = 0x24        # HOME key
  47.   $R_Key_LEFT      = 0x25        # LEFT ARROW key
  48.   $R_Key_UP        = 0x26        # UP ARROW key
  49.   $R_Key_RIGHT     = 0x27        # RIGHT ARROW key
  50.   $R_Key_DOWN      = 0x28        # DOWN ARROW key
  51.   $R_Key_SELECT    = 0x29        # SELECT key
  52.   $R_Key_PRINT     = 0x2A        # PRINT key
  53.   $R_Key_BB        = 0x2B        # SELECT key
  54.   $R_Key_SNAPSHOT  = 0x2C        # PRINT SCREEN key
  55.   $R_Key_INSERT    = 0x2D        # INS key
  56.   $R_Key_DELETE    = 0x2E        # DEL key
  57.   #--------------------------------------------------------------------------
  58.   $R_Key_0         = 0x30        # 0 key
  59.   $R_Key_1         = 0x31        # 1 key
  60.   $R_Key_2         = 0x32        # 2 key
  61.   $R_Key_3         = 0x33        # 3 key
  62.   $R_Key_4         = 0x34        # 4 key
  63.   $R_Key_5         = 0x35        # 5 key
  64.   $R_Key_6         = 0x36        # 6 key
  65.   $R_Key_7         = 0x37        # 7 key
  66.   $R_Key_8         = 0x38        # 8 key
  67.   $R_Key_9         = 0x39        # 9 key
  68.   #--------------------------------------------------------------------------
  69.   $R_Key_A         = 0x41        # A key
  70.   $R_Key_B         = 0x42        # B key
  71.   $R_Key_C         = 0x43        # C key
  72.   $R_Key_D         = 0x44        # D key
  73.   $R_Key_E         = 0x45        # E key
  74.   $R_Key_F         = 0x46        # F key
  75.   $R_Key_G         = 0x47        # G key
  76.   $R_Key_H         = 0x48        # H key
  77.   $R_Key_I         = 0x49        # I key
  78.   $R_Key_J         = 0x4A        # J key
  79.   $R_Key_K         = 0x4B        # K key
  80.   $R_Key_L         = 0x4C        # L key
  81.   $R_Key_M         = 0x4D        # M key
  82.   $R_Key_N         = 0x4E        # N key
  83.   $R_Key_O         = 0x4F        # O key
  84.   $R_Key_P         = 0x50        # P key
  85.   $R_Key_Q         = 0x51        # Q key
  86.   $R_Key_R         = 0x52        # R key
  87.   $R_Key_S         = 0x53        # S key
  88.   $R_Key_T         = 0x54        # T key
  89.   $R_Key_U         = 0x55        # U key
  90.   $R_Key_V         = 0x56        # V key
  91.   $R_Key_W         = 0x57        # W key
  92.   $R_Key_X         = 0x58        # X key
  93.   $R_Key_Y         = 0x59        # Y key
  94.   $R_Key_Z         = 0x5A        # Z key
  95.   #--------------------------------------------------------------------------
  96.   $R_Key_LWIN      = 0x5B        # Left Windows key (Microsoft Natural keyboard)
  97.   $R_Key_RWIN      = 0x5C        # Right Windows key (Natural keyboard)
  98.   $R_Key_APPS      = 0x5D        # Applications key (Natural keyboard)
  99.   #--------------------------------------------------------------------------
  100.   $R_Key_NUMPAD0   = 0x60        # Numeric keypad 0 key
  101.   $R_Key_NUMPAD1   = 0x61        # Numeric keypad 1 key
  102.   $R_Key_NUMPAD2   = 0x62        # Numeric keypad 2 key
  103.   $R_Key_NUMPAD3   = 0x63        # Numeric keypad 3 key
  104.   $R_Key_NUMPAD4   = 0x64        # Numeric keypad 4 key
  105.   $R_Key_NUMPAD5   = 0x65        # Numeric keypad 5 key
  106.   $R_Key_NUMPAD6   = 0x66        # Numeric keypad 6 key
  107.   $R_Key_NUMPAD7   = 0x67        # Numeric keypad 7 key
  108.   $R_Key_NUMPAD8   = 0x68        # Numeric keypad 8 key
  109.   $R_Key_NUMPAD9  = 0x69        # Numeric keypad 9 key
  110.   $R_Key_MULTIPLY  = 0x6A        # Multiply key (*)
  111.   $R_Key_ADD       = 0x6B        # Add key (+)
  112.   $R_Key_SEPARATOR = 0x6C        # Separator key
  113.   $R_Key_SUBTRACT  = 0x6D        # Subtract key (-)
  114.   $R_Key_DECIMAL   = 0x6E        # Decimal key
  115.   $R_Key_DIVIDE    = 0x6F        # Divide key (/)
  116.   #--------------------------------------------------------------------------
  117.   $R_Key_F1        = 0x70        # F1 key
  118.   $R_Key_F2        = 0x71        # F2 key
  119.   $R_Key_F3        = 0x72        # F3 key
  120.   $R_Key_F4        = 0x73        # F4 key
  121.   $R_Key_F5        = 0x74        # F5 key
  122.   $R_Key_F6        = 0x75        # F6 key
  123.   $R_Key_F7        = 0x76        # F7 key
  124.   $R_Key_F8        = 0x77        # F8 key
  125.   $R_Key_F9        = 0x78        # F9 key
  126.   $R_Key_F10       = 0x79        # F10 key
  127.   $R_Key_F11       = 0x7A        # F11 key
  128.   $R_Key_F12       = 0x7B        # F12 key
  129.   #--------------------------------------------------------------------------
  130.   $R_Key_NUMLOCK   = 0x90        # NUM LOCK key
  131.   $R_Key_SCROLL    = 0x91        # SCROLL LOCK key
  132.   #--------------------------------------------------------------------------
  133.   $R_Key_LSHIFT    = 0xA0        # Left SHIFT key
  134.   $R_Key_RSHIFT    = 0xA1        # Right SHIFT key
  135.   $R_Key_LCONTROL  = 0xA2        # Left CONTROL key
  136.   $R_Key_RCONTROL  = 0xA3        # Right CONTROL key
  137.   $R_Key_L_ALT    = 0xA4        # Left ALT key
  138.   $R_Key_R_ALT    = 0xA5        # Right ALT key
  139.   #--------------------------------------------------------------------------
  140.   $R_Key_SEP      = 0xBC        # , key
  141.   $R_Key_DASH      = 0xBD        # - key
  142.   $R_Key_DOTT      = 0xBE        # . Key
  143.   #--------------------------------------------------------------------------
  144.   $R_Key_Hash = {}
  145.   $R_Key_Repeat = {}

  146.   GetKeyState = Win32API.new("user32","GetAsyncKeyState",['I'],'I')
  147.   #--------------------------------------------------------------------------
  148.   module_function
  149.   #--------------------------------------------------------------------------
  150.   def keyb(rkey)
  151.      if GetKeyState.call(rkey) != 0
  152.        return true
  153.      end
  154.      return false
  155.   end
  156.    #--------------------------------------------------------------------------
  157.   def keyboard(rkey)
  158.     result = GetKeyState.call(rkey)
  159.     if $R_Key_Hash[rkey] == 1 and result != 0
  160.       return false
  161.     end
  162.     if result != 0
  163.       $R_Key_Hash[rkey] = 1
  164.       return true
  165.     else
  166.       $R_Key_Hash[rkey] = 0
  167.       return false
  168.     end
  169.     #GetKeyState.call(rkey) & 0x01 == 1  #
  170.   end
  171.   #--------------------------------------------------------------------------
  172.   def key(rkey, key = 0)
  173.     GetKeyboardState.call(rkey) & 0x01 == key #
  174.   end
  175. end
复制代码
现在已有的两个判断相当于press和trigger,那么可以再做个类似Input.repeat?的判断么?

点评

XD本来想回复的但是我怕挖坟  发表于 2012-3-18 15:55
0 0对帖子做一些回复吧~不然我就直接认可了哦?~~  发表于 2012-3-18 15:32

http://rpg.blue/thread-175056-1-2.html
PVZ型塔防物一个
http://rpg.blue/thread-155199-1-2.html
RMXP技术讨论区手动认可帖,得到答案请认可

Lv3.寻梦者

双子人

梦石
0
星屑
3185
在线时间
3618 小时
注册时间
2009-4-4
帖子
4154

开拓者

2
发表于 2012-3-3 17:04:59 | 只看该作者
本帖最后由 hys111111 于 2012-3-3 17:07 编辑

加Input.repeat?貌似还需要定义。
但是你的def keyboard(rkey)和这一段类似。
先使用Kboard.keyboard(键位)来判断试试
  1. def repeat?(rkey)
  2.    result = GetKeyState.call(rkey)
  3.    if result != 0
  4.      if @R_Key_Repeat[rkey].nil?
  5.        @R_Key_Repeat[rkey] = 0
  6.        return true
  7.      end
  8.      @R_Key_Repeat[rkey] += 1
  9.    else
  10.      @R_Key_Repeat[rkey] = nil
  11.      @R_Key_Hash[rkey] = 0
  12.    end
  13.    if !@R_Key_Repeat[rkey].nil? and @R_Key_Repeat[rkey] > 4 # 4乃准确数字
  14.      @R_Key_Repeat[rkey] = 0
  15.      return true
  16.    else
  17.      return false
  18.    end
  19. end
复制代码

点评

现在已经可以用了,只是效果可不可以做得跟repeat像点?或者可以告诉我思路么,API完全不明白XD  发表于 2012-3-3 19:29
我原来就是用那个,那个和trigger差不多啊  发表于 2012-3-3 18:53
回复

使用道具 举报

Lv1.梦旅人

虱子

梦石
0
星屑
121
在线时间
1782 小时
注册时间
2010-6-19
帖子
3597
3
 楼主| 发表于 2012-3-3 18:24:57 | 只看该作者
本帖最后由 Wind2010 于 2012-3-3 18:29 编辑
hys111111 发表于 2012-3-3 17:04
加Input.repeat?貌似还需要定义。
但是你的def keyboard(rkey)和这一段类似。
先使用Kboard.keyboard(键位) ...


加进键盘脚本里去直接报错了
NoMethodError。

undefined method `[]=' for nil:NilClass


前面定义下@R_Key_Repeat = []后继续报错,表示不明@R_Key_Hash用法


原来是$不是@……效果是差不多了,但是可以做成跟Input.repeat?那样的效果么?长按的时候先停顿一下,然后断续返回true

点评

那就奇怪了,我这边加def很正常的……  发表于 2012-3-3 19:07
先不要加脚本,用原先的脚本Kboard.keyboard($R_Key_H)试试,因为两个def的内容类似  发表于 2012-3-3 18:49

http://rpg.blue/thread-175056-1-2.html
PVZ型塔防物一个
http://rpg.blue/thread-155199-1-2.html
RMXP技术讨论区手动认可帖,得到答案请认可
回复

使用道具 举报

Lv3.寻梦者

双子人

梦石
0
星屑
3185
在线时间
3618 小时
注册时间
2009-4-4
帖子
4154

开拓者

4
发表于 2012-3-4 14:01:27 | 只看该作者
Wind2010 发表于 2012-3-3 18:24
加进键盘脚本里去直接报错了
NoMethodError。

因为您已经提到“长按的时候先停顿一下,然后断续返回true”
那就说按了一段时间后,中间突然变成false。是这样吧?
我重写一下脚本。
  1.   def repeat?(rkey)
  2.     if $R_Key_Repeat==nil
  3.       $R_Key_Repeat=[]
  4.     end
  5.     if GetKeyState.call(rkey)
  6.       $R_Key_Repeat[rkey] += 1
  7.       if $R_Key_Repeat[rkey]==4#4可修改
  8.         $R_Key_Repeat[rkey]==0
  9.         return false
  10.       else
  11.         return true
  12.       end
  13.     else
  14.       $R_Key_Repeat[rkey]==0
  15.       return false
  16.     end
  17.   end
复制代码
这回应该和repeat像一点了

点评

呃虽然还是不像 但是还是自己弄明白了  发表于 2012-3-18 15:55
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

拿上你的纸笔,建造一个属于你的梦想世界,加入吧。
 注册会员
找回密码

站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-11-11 07:56

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表