mod_dgetkey.as
HSP3Dish用のWindows上でキーボードの押された状態を取得します。
dgetkey : 0 = 一度だけ検出、 1 = 連続で検出、2 = 連続で検出(離された瞬間も検出)
dgetkey_dbpush : 0 = ダブルプッシュされてない、 1 = ダブルプッシュされた
■命令 =============================================
■dgetkey_init
・概要 当モジュールの初期化処理を行ないます。 必ず一番最初に呼び出してください。
・引数 なし
・戻り値 なし
・使用例 dgetkey_init
■dgetkey p1, p2, p3, p4
・概要 p2で指定した文字コードのキーが押されているか取得します。 指定したキーが押されると、[1]が取得できます。押されてないと[0]が返ります。 検出モードが[2]の場合、押されている間は[1]が取得され、離されると[2]が取得できます。 HSP標準のgetkeyとほぼ同じです。
・引数 p1 : 押された状態を取得する数値変数 p2 : 取得したいキーコード p3 : 検出モード 0 = 押された瞬間を一度だけ検出 1 = 連続で検出 2 = 離された瞬間を検出（押されている間は[1]が取得されます） p4 : 検出モードが[1]または[2]のときに、指定の時間毎に押された情報を取得する。単位はミリ秒。
・戻り値 なし
・使用例 dgetkey a, 'A'
if a == 1 { dialog "Aが押されました。" }
■関数 =============================================
■dgetkey_dbpush(p1, p2)
・概要 指定したキーコードのダブルプッシュを取得します。 p2でダブルプッシュと認識する時間をミリ秒で指定できます。
・引数 p1 : 取得したいキーコード p2 : ダブルプッシュと認識するミリ秒(省略すると700ミリ秒が指定されます)
・戻り値 0 = ダブルプッシュされていない 1 = ダブルプッシュされた
・使用例 a = dgetkey_dbpush('A', 1000)
■dgetkey_init
・概要 当モジュールの初期化処理を行ないます。 必ず一番最初に呼び出してください。
・引数 なし
・戻り値 なし
・使用例 dgetkey_init
■dgetkey p1, p2, p3, p4
・概要 p2で指定した文字コードのキーが押されているか取得します。 指定したキーが押されると、[1]が取得できます。押されてないと[0]が返ります。 検出モードが[2]の場合、押されている間は[1]が取得され、離されると[2]が取得できます。 HSP標準のgetkeyとほぼ同じです。
・引数 p1 : 押された状態を取得する数値変数 p2 : 取得したいキーコード p3 : 検出モード 0 = 押された瞬間を一度だけ検出 1 = 連続で検出 2 = 離された瞬間を検出（押されている間は[1]が取得されます） p4 : 検出モードが[1]または[2]のときに、指定の時間毎に押された情報を取得する。単位はミリ秒。
・戻り値 なし
・使用例 dgetkey a, 'A'
if a == 1 { dialog "Aが押されました。" }
■関数 =============================================
■dgetkey_dbpush(p1, p2)
・概要 指定したキーコードのダブルプッシュを取得します。 p2でダブルプッシュと認識する時間をミリ秒で指定できます。
・引数 p1 : 取得したいキーコード p2 : ダブルプッシュと認識するミリ秒(省略すると700ミリ秒が指定されます)
・戻り値 0 = ダブルプッシュされていない 1 = ダブルプッシュされた
・使用例 a = dgetkey_dbpush('A', 1000)
;サンプル
#const FALSE 0#const TRUE 1
#const MOVE_VALUE 8#const SHOT_MAX 10#const SHOT_MOVE_VALUE 8
#const TAMANE_NO 0#const SHOT_NO 39
screen 0, 640, 480
celload dir_tv + "tamadot.png", 1 celdiv 1, 64, 64, 64 / 2, 64 / 2
dgetkey_init
px = 640 / 2 ; たまねの初期位置X py = 480 / 2 ; たまねの初期位置Y
w = 0 ; Wキー a = 0 ; Aキー s = 0 ; Sキー d = 0 ; Dキー m = 0 ; Mキー
dim shot_x, SHOT_MAX ; ショットX dim shot_y, SHOT_MAX ; ショットY dim shot_flg, SHOT_MAX ; ショットフラグ(0:撃ってない, 1:撃った)
repeat redraw 0 color 0, 0, 0 : boxf
dgetkey w, 'W', 1 ; [W]を取得 dgetkey a, 'A', 1 ; [A]を取得 dgetkey s, 'S', 1 ; [S]を取得 dgetkey d, 'D', 1 ; [D]を取得 dgetkey m, 'M', 1, 100 ; [M]を100ミリ秒ごとに取得
if w == 1 : py -= MOVE_VALUE if a == 1 : px -= MOVE_VALUE if s == 1 : py += MOVE_VALUE if d == 1 : px += MOVE_VALUE if m == 1 { repeat SHOT_MAX if shot_flg(cnt) == FALSE { shot_x(cnt) = px shot_y(cnt) = py shot_flg(cnt) = TRUE break } loop }
color 255, 255, 255
pos 0, 0 mes "上 = W" mes "下 = S" mes "左 = A" mes "右 = D" mes "ショット = M"
gmode 3,,,255 pos px, py : celput 1, TAMANE_NO
repeat SHOT_MAX if shot_flg(cnt) { shot_y(cnt) -= SHOT_MOVE_VALUE if shot_y(cnt) < 0 : shot_flg(cnt) = FALSE pos shot_x(cnt), shot_y(cnt) : celput 1, SHOT_NO } loop
await 16 redraw 1 loop
