キー、ジョイパッドの入力に従って自機を動かします。

２進数と論理演算 　私達が普段使っている数は、１０進数です。１の位、１０の位、１００の位……、からなっています。これは１０の０乗の位、１０の１乗の位、１０の２乗の位……、からなっているとも言えます。 　それぞれの位には０から９までの値が書かれます。例えば、４１２６という数字は、 　　4*10^3+1*10^2+2*10^1+6*10^0 　と表されます。（"^"はべき乗です。） 　これに対してそれぞれの位が２のべき乗で表される数を２進数と言います。例えば、１０１１という２進数は、 　　1*2^3+0*2^2+1*2^1+1*2^0 　と表されます。１０進数でいうところの１１です。２進数では、それぞれの位には０か１しか書けません。各々の位は「ビット」と呼ばれます。「第ｎビット」あるいは「ｎビット目」といえば、「２のｎ乗の位」を指します。 　　 　ビットの値が１の場合、「ビットが立っている」という表現をします。例えば１０１１の場合、第３ビット、第１ビット、第０ビットが立っています。また「ビットを立てる」といえば、そのビットを１にすることを言います。 　プログラミングではこの２進数の考え方と論理演算をよく使います。論理和や論理積、排他的論理和といった演算です。 　　＜条件１＞ and ＜条件２＞ 　これは論理積です。＜条件１＞が真であり、＜条件２＞も真の場合にのみ、この結果は真になります。HSPではandを記号"&"で表します。(a>3)&(a<12)は、「aは３より大きく、かつaは１２よりも小さい」です。 　　＜条件１＞ or ＜条件２＞ 　は論理和です。＜条件１＞ か＜条件２＞のどちらか１つでも真であれば結果は真になります。HSPではorを記号"|"で表します。(a>20)|(a<5)は、「aは２０より大きいか、または５よりも小さい」です。 　これらはよくif文で使われます。 　　if (a>3)&(a<12) { 　　　　…… 　　} 　は、「もしaが３より大きく１２より小さいならば、命令を実行せよ」という意味になります。 　この論理演算を、数字に対して行うこともできます。 　　x & y 　という演算は、「xとyそれぞれを２進数で表した数に対し、各ビットごとに論理積(and)を行なった値」を求めます。この場合１が真、０が偽に対応します。つまり、 　　1&1=1 　　1&0=0 　　0&1=0 　　0&0=0 　となります。 　xが１５６、yが８７であれば、２進数で書くとxは10011100、yは1010111です。両方とも１のビットだけが１になります。 　　10011100 ←x 　　01010111 ←y 　　-------- 　　00010100 ←答 　これを１０進数で書くと２０です。よって156&87=20です。論理和(or)の場合は、どちらか一方でも１の箇所が１になります。

「スタートボタン」の所で、digetkeystate k,0という命令を実行した時、Ctrlキーを押していた場合、kには２５６が代入されると書きました。Ctrlキーを押すと、第８ビットが立つのです。つまり、2^8=256です。Ctrlキー以外のキーも同時に押した場合、違う値になってしまうと書きましたが、他のビットも立ってしまうからです。つまりこの命令は、同時に複数のキーを押した場合もすべて判別できるということです。カーソルキーの上と左、およびCtrlキーを同時に押した場合、第０ビット、第２ビット、第８ビットが立ちます。この時kには2^8+2^2+2^0、つまり２６１が代入されます。実際、ショットボタンを押したまま自機を左斜め上に動かすなんてことはよくあることです。では、こういう場合でもCtrlキーが押されていることを判別するにはどうしたらよいでしょうか？

　kの値について、第８ビットが立っているかどうかを判別すればいいのです。kと2^8(=256)の論理積を計算し、結果が２５６であれば第８ビットが立っているといえます。
　　0……0100000101 ←k
　　0……0100000000 ←256
　　---------------
　　0……0100000000 ←k and 256
　あるいは、Ctrlキーを押していなければこの結果は０になるはずですから、計算結果が０でなければCtrlキーが押されているとも言えます。カーソルキー等についても同様の方法で判別できます。

　ゲームをキーボードでやる場合、自機の移動にはカーソルキーが割り当てられているのが一般的ですが、これって押しにくいと思いませんか？　手の形にフィットしていないからです。だったら、手の形にフィットするキーに割り当てればいいですね。ところが、キーによってはビープ音（プーッという音）がしたり、ゲームが一瞬止まってしまったりします。いろいろ検討した結果、ｙ、ｂ、ｇ、ｕキーがいいのではないかと思います。それぞれ、上下左右に対応します。（ただし、これでも最適ではありません。ノートパソコンを使っている人は、誤ってタッチパッドに触れてしまうことがあります。）
　そこで、カーソルキー、ｙ、ｂ、ｇ、ｕ、ジョイパッドの３通りの操作方法に対応したいと思います。

　スタートボタンとショットボタンには、同じキーを割り当てるのが普通です。また、オプション画面まで作りたいのであれば、上下左右の入力はそこでも使います。多くの場所で使えるように、この処理はサブルーチン化することにします。

　Ctrlキーの入力は
　　digetkeystate k,0
　とすることは説明した通りです。第２引数はキーの種類です。ゲームによく使うキーは０です。カーソルキーもこれに含まれます。アルファベットキーの場合は、第２引数に１を指定します。
　　digetkeystate k,1
　この場合、何ビット目が立つかはアルファベットの順番によります。ａを１番目として何番目かを数え、１を引いた数のビットに対応します。

　ジョイパッドの入力を判別するには、まずパソコンにジョイパッドが何本つながっているか調べます。１本もつながっていなかったら、入力を判別する必要はありません。
    digetjoynum
    njoy=stat
　digetjoynum命令を実行すると、システム変数statに本数が代入されます。また、各パッドに０から順に番号が割り当てられます。本数を変数njoyに入れます。（number of joypadの略です。）
　２本以上つながっている場合、すべてのジョイパッドに対応すべきでしょうか？　２プレイヤー用のゲームならそうですが、１プレイヤー用のゲームなら１本だけ対応すれば十分だと思うのです。ここでは０番のパッドにのみ対応することにします。
    if njoy>0 {
        digetjoystate k,0
    }
　njoyが０より大きい場合、０番のジョイパッドの入力状態を変数kに代入します。第２引数に何番のジョイパッドについて調べるかを指定します。十字キー、ボタンに対応するビットが立つのは、digetkeystateと同様です。

　使用する命令、キーと対応するビットは以下の通りです。なお、Ctrlキーとジョイパッドのボタン１は同じ役割（ショットボタン、スタートボタン）とします。

　例えばカーソルキーの上、ｙ、ジョイパッドの上の３つのうち、どれか１つでも押されたら上が入力されたと判断するにはどうしたらよいでしょうか？
　ukeyという変数（up keyの略です）に上キーの状態を入れることにします。入力されていたら１を、入力されていなかったら０を代入します。
　1)最初に、０を代入します。
　2)digetkeystate key,0を行い、カーソルキーの上が押されていたら１を代入します。
　3)digetkeystate key,1を行い、ｙが押されていたら１を代入します。
　4)digetjoystate key,0を行い、十字キーの上が押されていたら１を代入します。

  ukey=0

  digetkeystate key,0
  if key&1!0 { ukey=1 }

  digetkeystate key,1
  if key&16777216!0 { ukey=1 }

  if njoy>0 {
    digetjoystate key,0
    if key&1!0 { ukey=1 }
  }

　key&1は、変数keyと2^0の論理積です。key&16777216は、keyと2^24の論理積です。2),3),4)で、押されていなかったらukeyの値を変更しないことに注意して下さい。これで、どれか１つでも押されたらukeyの値は１に、どれも押されていなかったら０になります。

　他のキーについても同様に書くと、以下のようになります。なお、ckeyはCtrl key、dkeyはdown key、lkeyはleft key、rkeyはright keyの略です。

	; キー、ジョイパッドの入力
*In_Key
	ckey=0
	ukey=0
	dkey=0
	lkey=0
	rkey=0

	digetkeystate key,0
	if key&256!0 { ckey=1 }
	if key&1!0 { ukey=1 }
	if key&2!0 { dkey=1 }
	if key&4!0 { lkey=1 }
	if key&8!0 { rkey=1 }

	digetkeystate key,1
	if key&16777216!0 { ukey=1 }
	if key&2!0 { dkey=1 }
	if key&64!0 { lkey=1 }
	if key&1048576!0 { rkey=1 }

	if njoy>0 {
		digetjoystate key,0
		if key&16!0 { ckey=1 }
		if key&1!0 { ukey=1 }
		if key&2!0 { dkey=1 }
		if key&4!0 { lkey=1 }
		if key&8!0 { rkey=1 }
	}

	return