今回は、マウスやキーボードを使った命令を紹介します。

まずは、キーボードに比べ覚えることが少ないマウス操作から。

マウスカーソルの座標を指定パラメータの座標に移動させる命令です。
第１パラメータにＸ座標、第２にＹ座標を指定するわけですが、
座標はHSPウィンドウ上の座標ではなく、スクリーン(ディスプレイ)の左上を(0, 0)とした座標です。
パラメータを省略すると、省略したパラメータの座標は現在のままとなります。
つまり、現在(100, 50)だとして、「mouse -1, 150」とすると、座標は(100, 150)に変わります。
パラメータのどちらか１つ以上に-１を指定すると、マウスカーソルは非表示となります。
非表示中に-１以外(省略を含む)を指定すると、再び指定座標に表示するようになります。
尚、非表示にするといっても、HSPウィンドウ上だけ非表示になるというものです。
非表示にしている間でも、ＨＳＰウィンドウ外にマウスカーソルを移動させると表示されるのです。
それと、ディスプレイサイズより大きい値を指定しても、端に表示されるだけで指定座標には移動しません。
この特性を覚えておきましょう。

 1
 2
 3
 4
 5
 6
 7

	pos  50, 50 : input x, 50, 20, 4
	pos 105, 50 : input y, 50, 20, 4
	pos 160, 50 : button "変更する", *change
	stop

*change
	mouse x, y // 入力された座標に変える

一方的に座標を変更するのではなく、特定の座標領域になったときに状態を変更させるには、
現在のマウス座標を取得できれば解決します。

mouse命令と同じく、スクリーン座標で座標を取得するには、ginfo_mxマクロを参照することでＸ座標、
ginfo_myマクロを参照することでＹ座標を取得することが出来ます。

 1
 2
 3
 4

	repeat
		wait 5
		title "(" + ginfo_mx + ", " + ginfo_my + ")" // 現在座標をタイトルに表示する
	loop

ＨＳＰウィンドウ左上を(0, 0)とした座標は、システム変数mousexとmouseyに代入されます。

 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

	// カーソル画像を用意
	buffer 1
	color : boxf : color 255
	line 12, 15, 0, 0
	line  0,  0, 0, 5
	line  0,  0, 5, 1
	// メインウィンドウを用意
	gsel 0
	hide = 100, 50, 400, 150 // 非表示エリア
	size = 16                // マウスカーソルのサイズ
	gmode 2                  // カーソル画像背景の黒色は透過する
	// メインループ
	repeat
		redraw 0
		color 255, 255, 255 : boxf hide.0 - size, hide.1 - size, hide.2 + size, hide.3 + size
		color 200, 200, 255 : boxf hide.0, hide.1, hide.2, hide.3
		if mousex >= hide.0 && mousex <= hide.2 && mousey >= hide.1 && mousey <= hide.3 {
			if flg = 0 : flg = 1 : mouse -1
			pos mousex, mousey : gcopy 1, 0, 0, size, size
		} else {
			if flg : flg = 0 : mouse
		}
		redraw
		wait 1
	loop

これでサンプルの様な、マウスカーソルをオリジナルの画像に変えたり、
簡易的ですが、特定のエリアには入られないようなプログラムを組むことが出来ますね。
尚、ＨＳＰ３からは、マウスのホイールボタンもmousewにて取得できるようになりました。
上方向に回転させると１２０、下方向に回転させると−１２０、何もしなければ０が入ります。
これは参照前のウェイト中(の最後)にされたものが入るので、ウェイト中に１回転分だけ上下とした場合は、
±０で０が入る…ということではなく、最後にスクロールされた下方向の値である−１２０が入ります。
高速に回転させると、１２０の倍数、または−１２０の倍数が取得される様になっているので、

 1
 2
 3
 4
 5
 6
 7
 8
 9

	mes "マウスホイールの状況をタイトルバーにセットします"
	repeat
		w = abs(mousew / 120) // 一度取得したら値はクリアされるので変数に退避させる
		if w {
			if w = 1 : title "ホイールが普通に回転したようです"
			if w > 1 : title "ホイールが高速に回転したようです"
		}
		wait 1
	loop

マウスの次はキーボード…と言いたいところですが、キーボード及びマウスのチェック用命令の紹介です。
ＨＳＰ３現在では、mouse命令のようにキーを設定する命令は標準で用意されていません。
getkey命令は任意キーが押されたかどうかをチェックする命令で、
第２パラメータで指定するキーコード(後述)に対応したキーがgetkey命令通過(厳密にはウェイト？)時に
押されていれば、第１パラメータに指定した変数に１が入り、押されてなければ０となります。
下記は日本語キーボード(106)のキー配列と対応した第２パラメータに指定するコード一覧です。

NumUnLock(NumLock消灯)時であれば、テンキーの[０]キーは[Insert]キー、[１]キーは[Delete]キー、
[１]キーは[End]キー、[２]キーは[↓]キー、[３]キーは[PageDown]キー、[４]キーは[←]キー、
[６]キーは[→]キー、[７]キーは[Home]キー、[８]キーは[↑]キー、[９]キーは[PageUp]キーと一致。
理由は分かりませんが、ヘルプには上記コード群よりも載せられている情報が少ないようです。
これ以外でも、もしかしたらgetkey命令で取得できるキーがあるかもしれません。

 1
 2
 3
 4
 5
 6
 7

	mes "Enterが押されたら終了します"
	repeat
		getkey code, 13 // Enterをチェック
		if code : break
		wait 1
	loop
	end

getkey命令は、サンプルのようにループ中に配置することでチェックできます。
キーが押されたら、何かの処理を行う。
これについては問題ないでしょうが、押された時だけ何かを行う場合には少し工夫が必要になります。
何故なら、getkey命令だと、始めにキーが押されたのを確認した後、
ループで同じ場所に戻ってきた時に、まだ押されていれば同じ様に押した処理を実行するからです。
例えば、マウスのクリック数をカウントするゲームを考えてみましょう。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

	mes "１０秒間で何回クリックが出来るかな？ (Escで終了)"
	wait 100
	repeat 2, 1
		mes 3 - cnt
		wait 100
	loop
	mes "Go !!!"
	// 簡易的に1000ms(10s)ウェイト
	repeat 1000
		getkey k, 1
		if k : count+
		getkey k, 27
		if k : break
		wait 1
	loop
	mes "そこまで !"
	wait 100
	mes "今回の記録は" + count + "回でした"

メインループ内のgetkey命令のみでクリックを感知したらカウント数を上げる仕組みにすると、
連打しなくても、押し続けているだけでカウントが増えていきます。
これじゃあ、クリック数を競うゲームとして成り立ちませんね。
押されているかを判定する時に、前回チェックしたときには押されていないという状況下でのみ
今回、新たにクリックされたとみなすことが出来ます。
判定できるキーに限りがありますが、押し続けを無視するキー判定命令も用意されています。

第１パラメータにはgetkey命令同様に変数を指定しますが、
getkey命令とは異なり、押されたキーコードの合計値がセットされるようになっています。
キーコードはgetkey命令と同じコードではなく、下記の通りとなっています。