ゲーム開発で挫折した人必見！ChatGPT＆VBAでプチゲーム開発しませんか？（第5話）

   ' 移動先のセルの内容によって処理を分岐
    Select Case grid(newX, newY)
        Case GridCell.Empty
            ' 空のセルなら何もしない
        Case GridCell.Enemy
            ' 敵がいるセルなら攻撃する
            AttackEnemy()
        Case GridCell.Item
            ' アイテムがあるセルなら取得する
            PickupItem()
        Case GridCell.Pitfall
            ' 落とし穴があるセルならダメージを受ける
            TakeDamage(3)
        Case GridCell.Door
            ' 扉があるセルなら鍵を持っているか確認して開ける
            If playerHasKey Then
                ' 扉を開けてクリア
　　　　　　　　　MsgBox "クリア！"
        　　Else
            　　MsgBox "鍵が必要です。"
        　　End If
End Select
' 移動先に移動する
playerX = newX
playerY = newY
End Sub

Option Explicit
' グリッドの幅と高さを定義
Const GRID_WIDTH As Integer = 10
Const GRID_HEIGHT As Integer = 10
' グリッドのセルごとに定義する内容
Enum GridCell
    Emp
    Enemy
    Item
    Pitfall
    Door
    Key
End Enum
' キャラクターの初期位置
Dim playerX As Integer
Dim playerY As Integer
' キャラクターの状態
Dim playerHP As Integer
Dim playerHasKey As Boolean
Dim playerAttackPower As Integer
' グリッドの内容を保持する配列
Dim grid(GRID_WIDTH, GRID_HEIGHT) As GridCell
' 初期化処理
private Sub Init()
    ' グリッドの内容をランダムに設定
    Dim x As Integer, y As Integer
    For x = 1 To GRID_WIDTH
        For y = 1 To GRID_HEIGHT
            Dim randValue As Integer
            randValue = Int(Rnd() * 4) ' 0-3のランダムな整数を生成
            grid(x, y) = randValue
　　　　　　 Cells(x, y).Interior.ColorIndex = 20
        Next y
    Next x

'鍵の配置
    randValue = Int(Rnd() * 9 + 1)  ' 1-10のランダムな整数を生成
    x = randValue
    randValue = Int(Rnd() * 9 + 1)  ' 1-10のランダムな整数を生成
    y = randValue
    grid(x, y) = 5

'扉の配置
    Do
        randValue = Int(Rnd() * 9 + 1) ' 1-10のランダムな整数を生成
        x = randValue
        randValue = Int(Rnd() * 9 + 1) ' 1-10のランダムな整数を生成
        y = randValue
    Loop While grid(x, y) ＝ 5 ' 鍵の位置と重なる場合はやり直す
    grid(x, y) = 4

    ' キャラクターの初期位置を設定
    playerX = 1
    playerY = 1
    Sheet1.Cells(playerY, playerX).Activate
    
    ' キャラクターの初期状態を設定
    playerHP = 10
    playerHasKey = False
    playerAttackPower = 1
End Sub

'  ワークシートのセル上をキャラクターが移動する
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:J10")) Is Nothing Then
        ' セルが10x10のマップの範囲内である場合
        Dim moveX As Integer
        Dim moveY As Integer
        moveX = 0
        moveY = 0
        Select Case True
            ' 上キー
            Case Target.Row > playerY
                moveY = 1
            ' 下キー
            Case Target.Row < playerY
                moveY = -1
            ' 左キー
            Case Target.Column < playerX
                moveX = -1
            ' 右キー
            Case Target.Column > playerX
                moveX = 1
        End Select
        playerY = playerY + moveY
        playerX = playerX + moveX
        Sheet1.Cells(playerY, playerX).Activate
　　　　 Cells(playerY, playerX).Interior.ColorIndex = 35
    End If
 　　 

' キャラクターの配列上の移動判定処理
Dim newX As Integer
    newX = playerX
    If newX < 1 Or newX > GRID_WIDTH Then
      ' 移動先がグリッド外なら何もしない
      Exit Sub
    End If
Dim newY As Integer
    newY = playerY
    If newY < 1 Or newY > GRID_HEIGHT Then
      ' 移動先がグリッド外なら何もしない
      Exit Sub
    End If
    
    ' 移動先のセルの内容によって処理を分岐
    Select Case grid(newX, newY)
        Case GridCell.Emp
            ' 空のセルなら何もしない
        Case GridCell.Enemy
            ' 敵がいるセルなら攻撃する
            AttackEnemy
        Case GridCell.Item
            ' アイテムがあるセルなら取得する
            PickupItem
        Case GridCell.Pitfall
            ' 落とし穴があるセルならダメージを受ける
            TakeDamage (3)
             MsgBox "落とし穴に落ちた。プレイヤーは3のダメージ！"
        Case GridCell.Door
            ' 扉があるセルなら鍵を持っているか確認して開ける
            If playerHasKey Then
                ' 扉を開けてクリア
                  MsgBox "クリア！"
            Else
                MsgBox "鍵が必要です。"
　　　　Case GridCell.Key
            '鍵があるなら取得する
            playerHasKey = True
            MsgBox "鍵を手に入れた"
        End If
End Select
' 移動先に移動する
playerX = newX
playerY = newY
End Sub
' 敵と戦う
Sub AttackEnemy()
' 敵にダメージを与える
' この部分は実装してください
End Sub
' アイテムを取得する
Sub PickupItem()
' アイテムの種類に応じて効果を適用する
' この部分は実装してください
End Sub
' ダメージを受ける
Sub TakeDamage(damage As Integer)
' ダメージを受けてHPを減らす
playerHP = playerHP - damage
If playerHP <= 0 Then
' HPが0以下になったらゲームオーバー
MsgBox "ゲームオーバー"
End If
End Sub