ABで避けゲーを作る

前回までのあらすじ：ついに残像を断ち切り、白くこざっぱりした画面で動けるようになった主人公。そんな我々の前には嵐の前の異様な静けさが広がっていた。

8.敵キャラ登場

さて、敵キャラを作る段階になったわけですが、ある意味マイキャラより厄介だったりします。
今回作る敵キャラの設定は大まかに次のようになっています。

1. マイキャラを追いかける。
2. 最初は１匹だけいる。
3. １０秒ごとに１匹増える。
4. 最大５０匹出る。
5. とげとげ。

最初のマイキャラを追いかけるというのは、マイキャラが右にいたら右に向かうというプログラムでいけそうですが、２〜４の、敵キャラの数が１〜５０の範囲で変化するというのはいかにも厄介そうです。
こういうときは、敵の数は最大の５０匹に固定しておいて、動くのを１匹から順に増やしていくことにします。
例えば、最初の１匹のときは、とげとげ１号だけを動かして、２〜５０号までは画面外で待機させておきます。
とりあえずとげとげを５０匹用意しましょう。

'敵キャラ約５０匹
Type EnemyData
    X As Long
    Y As Long
End Type
Const ENEMYMAX      = 50
Dim Enemy[ENEMYMAX] As EnemyData
Dim EnemyNumber As Long

また後で数を５０匹から増やすかもしれないし、例によって別の用途の５０という数字が出てくるかもしれないので敵の最大数も定数として設定しておきます。
ちなみに、本当はこれで用意したのは１〜５０号の５０匹ではなく、０〜５０号の５１匹なのですが、今回は０号は無視するので気にしないことにします。
今度は敵キャラの移動。
For文を使って１号からEnemyNumber号までを動かします。

Function EnemyMove()
    '敵キャラ動かす
    Dim n As Long
    '１号からEnemyNumber号までを動かすのだ！
    For n = 1 To EnemyNumber
        'とげとげｎ号を動かすのだ！
        If Enemy[n].X  < MyCharaX Then      'マイキャラが右にいたら
            Enemy[n].X = Enemy[n].X + 1     '右に１ドット移動
        End If                              '以上
        If Enemy[n].X  > MyCharaX Then      'マイキャラが左にいたら
            Enemy[n].X = Enemy[n].X - 1     '左に１ドット移動
        End If                              '以上
        If Enemy[n].Y > MyCharaY Then       'マイキャラが上にいたら
            Enemy[n].Y = Enemy[n].Y - 1     '上に１ドット移動
        End If                              '以上
        If Enemy[n].Y  < MyCharaY Then      'マイキャラが下にいたら
            Enemy[n].Y = Enemy[n].Y + 1     '下に１ドット移動
        End If                              '以上
    Next
End Function

あー今度は描画。四角でいいでしょ。なんかもう、ここまでくると勢いだけで進んでる感じ。

Function PaintEnemy()
    '敵キャラ描画
    Dim n As Long
    Dim hDC As DWord
    hDC = GetDC(hMainWnd)
    '１号からEnemyNumber号までを描くのだ！
    For n = 1 To EnemyNumber
        'とげとげｎ号を描くのだ！
        Rectangle(hDC, Enemy[n].X-16, Enemy[n].Y-16, Enemy[n].X+16, Enemy[n].Y+16)
    Next
    ReleaseDC(hMainWnd, hDC)
End Function

最初にいる場所が決まってない！決めるのだ！APIのrandとsrandを組み合わせるのだ！GameInitで決めるのだ！

Function GameInit()
    '初期化
    '平たく言えばゲームを始める準備だ
    srand(GetTickCount())   '乱数を使う準備
    Dim n As Long
    Dim r As Long
    '敵キャラのことをいろいろ決めるのだ！
    For n = 1 To ENEMYMAX
        r = rand() Mod 4    '０〜３の乱数がもらえるらしい
        If r = 0 Then       '０だったら上から出てくる
            Enemy[n].X = rand() Mod GAMEWIDTH
            Enemy[n].Y = -16
        End If
        If r = 1 Then       '１だったら上から出てくる
            Enemy[n].X = rand() Mod GAMEWIDTH
            Enemy[n].Y = GAMEHEIGHT+16
        End If
        If r = 2 Then       '２だったら左から出てくる
            Enemy[n].X = -16
            Enemy[n].Y = rand() Mod GAMEHEIGHT
        End If
        If r = 3 Then       '３だったら右から出てくる
            Enemy[n].X = GAMEWIDTH+16
            Enemy[n].Y = rand() Mod GAMEHEIGHT
        End If
    Next
    EnemyNumber = 1
End Function

ついでに敵の数もちゃんと１にしておいた。俺ってActiveBasicに比べて気が利ｋ（ｒｙ
そろそろゲームに見えないこともないわけではなくなってきました。・・・・あれ？どっちだ？

敵キャラが出るサンプル(37.0kilobyte)

続く

TGWS>プログラミング>ABで避けゲーを作る>8