README.md

Roguelike Game

Let's make a roguelike game!

List

1. Set map size (2022.11.30)
2. Set starting and ending location (2022.11.30)
3. Find n ways
4. Build walls
5. Arrange items
6. Arrage monsters
7. Arrage NPCs

1. Set map size (2022.11.30)

Type.vba

• declared in a public module

Public Type RndMap

    rSize   As Integer
    cSize   As Integer
    Start   As Range
    End     As Range
    Wall()  As Range
    Items() As Range
    Mobs()  As Range

End Type

Roguelike.vba

Option Explicit

' ★ Manage parameters by user directly
Private Sub SetSize(ByRef MapData As RndMap)

    MapData.rSize = 30
    MapData.cSize = 50

    With Range("A1").Resize(MapData.rSize, MapData.cSize)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .RowHeight = 15
        .ColumnWidth = 2
    End With

End Sub

Private Sub Main()

    Dim MapData As RndMap

    ' Set map size
    Call SetSize(MapData)

    ……

End Sub

2. Set starting and ending location (2022.11.30)

Roguelike.vba

Private Sub Main()

    Dim MapData As RndMap

    ' Set map size
    Call SetSize(MapData)

    ' Set starting and ending location
    Call SetLocation(MapData)
    ……

End Sub

Private Sub SetLocation(ByRef MapData As RndMap)

    Dim rTemp, cTemp As Integer

    ' Set Starting Cell
    Randomize
    rTemp = Int(Rnd * MapData.rSize)
    cTemp = Int(Rnd * MapData.cSize)
    ' Debug.Print rTemp, cTemp
    Set MapData.Start = Range(Cells(rTemp, cTemp), Cells(rTemp, cTemp))         ' Range(Cells(rTemp, cTemp)) causes an error

    ' Mark Starting Cell
    With MapData.Start
        .Interior.Color = vbBlack
        .Font.Color = vbWhite
        .FormulaR1C1 = "S"
    End With

    ' Set Ending Cell
    Randomize
    rTemp = Int(Rnd * MapData.rSize)
    cTemp = Int(Rnd * MapData.cSize)
    Set MapData.End = Range(Cells(rTemp, cTemp), Cells(rTemp, cTemp))

    ' Mark Ending Cell
    With MapData.End
        .Interior.Color = vbRed
        .Font.Color = vbWhite
        .FormulaR1C1 = "E"
    End With

End Sub

Private Sub BtnMapGeneration_Click()

    Call Main

End Sub

' To-Be : Call MapData
Private Sub Clear()

    Dim Rng As Range
    Set Rng = Range("A1").Resize(100, 100)

    With Rng
        .ClearContents
        .Interior.ColorIndex = 0
    End With

End Sub

Private Sub BtnClear_Click()

    Call Clear

End Sub