stick命令をgetkey命令で実装する

HSP掲示板で以前話題になっていたのを思い出し、作成。
ビット演算さえ理解できれば案外簡単。

#constで定数をすべて定義しているけれど、やりすぎだったかも知れません。// stickをgetkeyで実装する [stick.hsp]
#undef stick
#module mdl_stick

// getkeyキーコード
#const GETKEY_LEFT          37
#const GETKEY_UP            38
#const GETKEY_RIGHT         39
#const GETKEY_DOWN          40
#const GETKEY_SPACE         32
#const GETKEY_ENTER         13
#const GETKEY_CTRL          17
#const GETKEY_ESC           27
#const GETKEY_LEFTCLICK      1
#const GETKEY_RIGHTCLICK     2
#const GETKEY_TAB            9

#deffunc _initStick
    dim KEY_CODE, 11
    KEY_CODE( 0 ) = GETKEY_TAB, GETKEY_RIGHTCLICK, GETKEY_LEFTCLICK
    KEY_CODE( 3 ) = GETKEY_ESC, GETKEY_CTRL, GETKEY_ENTER
    KEY_CODE( 6 ) = GETKEY_SPACE, GETKEY_DOWN, GETKEY_RIGHT
    KEY_CODE( 9 ) = GETKEY_UP, GETKEY_LEFT
    return

#deffunc _stick var vTarget, int NO_TRIGGER, int CHECK_MODE, local tmp
    vTarget = 0
    repeat length( KEY_CODE )
        getkey tmp, KEY_CODE( cnt )
        vTarget = vTarget << 1 | tmp
    loop
    if ( CHECK_MODE == 1 ) & ( ginfo_act == -1 ){
        // HSPウィンドウがアクティブでない
        prev = vTarget
        vTarget = 0
    } else {
        tmp = vTarget
        vTarget &= ( -1 ^ prev ) | NO_TRIGGER
        prev = tmp
    }
    return
#define global stick( %1, %2=0, %3=1 ) _stick %1, %2, %3
#global
    _initStick       // 配列の初期化