Module/allgetkey

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

 
 
 
 
 
 
 
 
 
 
-
-
-
|
|
|
-
|
|
!
-
|
|
!
-
|
|
!
 
 
 
 
 
 
 
 
 
-
-
-
|
|
|
-
|
|
!
-
|
|
!
-
|
|
!
 
 
 
-
|
|
!
 
 
 
-
-
|
|
!
-
|
!
|
-
|
|
|
|
!
 
 
 
 
 
 
 
 
 
-
-
|
-
|
|
-
|
|
-
|
!
-
|
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 

#ifndef AllGetkey_mod
#module AllGetkey_mod
 
#const DEFLONG 1       ;ダブルクリック受付間隔初期値
#const DEFDBLTYPE 1    ;ダブルクリックのタイプ初期値
#const DEFDBLFLAG 65535;ダブルクリックフラグ初期値
 
#define global AllGetkeyInit(%1, %2 = 0, %3 = 0, %4 = -2)\
    _AllGetkeyInit %1, %2, %3, %4
#deffunc _AllGetkeyInit array a, int p1, int p2, int p3
    if p1 > 0{
        if p1 >= p2{
            if p2 > 0{
                if p2 - 1 > 0  : _allgetkeyinit  a, 1     , p2 - 1, p3
                if p1 + 1 < 254: _allgetkeyinit  a, p1 + 1, 254   , p3 
                return
            }else{
                dbl = p1
                long = p1
            }
        }else{
            dbl = p1
            long = p2
        }
    }else{
        dbl = 1
        long = 254
    }
    repeat long - dbl + 1, dbl
        a(cnt) = p3
        dbl(cnt) = DEFDBLFLAG
    loop
    return
 
#define global keyconfig(%1 = -1,%2 = 0, %3 = 0, %4 = -1)\
    _keyconfig %1, %2, %3, %4
#deffunc _Keyconfig int p1, int p2, int p3, int p4
    if p2 > 0{
        if p2 >= p3{
            if p3 > 0{
                if p3 - 1 > 0  : _keyconfig p1, 1     , p3 - 1, p4
                if p2 + 1 < 254: _keyconfig p1, p2 + 1, 254   , p4
                return
            }else{
                dbl = p2
                long = p2
            }
        }else{
            dbl = p2
            long = p3
        }
    }else{
        dbl = 1
        long = 254
    }
    repeat long - dbl + 1
        long = 0
        repeat sp
            if t(cnt) = dbl{
                sp-
                break
            }
            long+
        loop
        
        if p1{
            if p1 >= 0{
                t(long) = dbl
                long(dbl) = p1
            }
            if p4 >= 0{
                dbltype(dbl) = p4 = 0
            }
            sp+
        }else{
            long(t(long)) = DEFLONG
            dbl(t(long)) = DEFDBLFLAG
            dbltype(t(long)) = DEFDBLTYPE
            t(long) = t(sp)
        }
        dbl+
    loop
    return
 
 
#deffunc AllGetkey array a
    repeat sp
        long = t(cnt)
        getkey dbl, long
        if dbl{
            if a(long) > 0{
                a(long)+
            }else: if dbl(long) - a(long) > long(long){
                dbl(long) = 0
                a(long) = 1
            }else: if a(long){
                dbl(long) = long(long) * dbltype(long)
                a(long) = 0
            }else{
                a(long) = 2
            }
        }else: if a(long) <= 0{
            a(long)-
        }else{
            dbl(long) += a(long)
            a(long) = -1
        }
    loop
    return
#deffunc allgetkey_default
    repeat 254, 1
        dbl(cnt) = DEFDBLFLAG
        dbltype(cnt) = DEFDBLTYPE
        long(cnt) = DEFLONG
        t(cnt) = cnt
    loop
    sp = 254
    return
#global
allgetkey_default
#endif

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58

keyconfig
 
p1 = ダブルクリックの受付フレーム数。(-1)
p2 = 影響を与えるキーコード開始 1〜254 (all)
p3 = 影響を与えるキーコード終了 1〜254 (p2)
p4 = ダブルクリックのタイプ (-1)
 
p1で受付フレーム数を指定します(デフォルトは1)
数が小さいほどダブルクリック検出の判定が短くなります。
1でダブルクリックを完全に受け付けなくなり
0でキー取得自体をしなくなります。(無効化)
使わないキーは無効化しておきましょう。
p1を省略またはマイナス値なら指定要素に影響を与えません。
 
指定要素はp2,p3で設定します。
ここで設定した要素にp1,p4の設定が反映されます。
p2を省略するとキーコード全てが指定要素になります。
p3で指定範囲を設定できます。
p3を省略するとp2のキーコードだけが指定要素になります。
p3がp2以下の時は排他指定です。
p3からp2以外のキーコードを指定要素とします。
 
p4はダブルクリックのタイプ指定です。デフォルトは0になっています
通常はダブルクリック後に即クリックしなおしても(トリプルクリック
そのクリックは通常クリックとして扱われますが、
1を指定しておくと
間隔内で連打している限りダブルクリックとして検出され続けます。
p4を省略またはマイナス値なら指定要素のタイプに影響を与えません。
 
--------------------------------------------------------------
 
Allgetkeyinit array p1 p2 p3
 
array = 初期化対象の変数
p1 = 初期化する要素開始 1〜254 (all) ;排他指定可能です
p2 = 初期化する要素終了 1〜254 (p2)
p3 = 初期化する値 (-2)
 
結果格納用変数の初期化を行います。
 
取得開始前に必ず一度行う必要があります。
 
スクリプト中で特定のキー無効化した時にも使うとよいでしょう。
 
--------------------------------------------------------------
Allgetkey array
 
array = Allgetkeyinitで初期化された配列変数
 
登録されているキーコード番号と
同じ番号の要素にその結果が格納されます。
実行後の各要素の内容は、以下のように変化します。
 
押されている間  ： 1(0) →  2 →  3 →  4 ...
押されていない間： -1   → -2 → -3 → -4 ...
 
押した瞬間は 1になります。ダブルクリックは0になります。
離した瞬間は-1になります。