|
■ キーコードの処理
↑矢印キーが押された場合のコードを示す。
If (Mjob <> -1) Then Exit Sub
Mjobが－１以外の時は他のブロックが動いている最中を意味している。その場合はキー入力は無視される。
KeyDownイベントが発生するとInteger型でKeyCodeという変数の中に押されたキーの番号が入っている。その内容によって処理を振り分けているのである。
ここで再びＶＢのヘルプを開いてもらいたい。Keycodeを調べてみよう。すると定数名とコードと説明の一覧が表示される。これらはＶＢが最初から内部に持っている定数なので、自分で定義する必要はない。
VbKeyUpは↑矢印キーとなっているのでそのまま使った方がわかりやすい。
If (Ez = 5) Then Exit Sub
Ezは空白の前後の座標である。これが５であるということは既にこれ以上動かせないということを意味するので、何も処理せずにこのプロシージャーから戻るのである。
これはEx=2 Ez=5の状態。これ以上↑キーを押してもブロックを動かすことはできない。
BlockInfo(Ex, Ez, 0) = BlockInfo(Ex, Ez + 1, 0)
BlockInfo(Ex, Ez, 1) = BlockInfo(Ex, Ez + 1, 1)
ブロックを動かした後の状態をBlockInfoに格納している。
CBlk = BlockInfo(Ex, Ez, 0)
あとでMove_Aなどの表示関数で使われるオブジェクトＩＤを取得している。
BlockInfo(Ex, Ez + 1, 0) = -1
BlockInfo(Ex, Ez + 1, 1) = -1
新たな空白部分に、空白を示す情報を格納している。
ブロックが動く方向を格納している。方向は ０＝↑ １＝→ ２＝↓ ３＝← となっている。
「ブロックが動いている。」という意味のコードを格納して、空白の座標を更新している。
If ((Ba.bx = Ex) And (Ba.bz = Ez)) Then
Bmflg = 1: Ba.bz = Ba.bz - 1
ボールが乗っているブロックを動かしたときの処理で、これはボールのコントロールで必要になる。
以下同様ということで、下左右の処理を示す。
|
