Private Sub placeWalls(mapNum As Long, x As Long, y As Long, WallX As Long, WallY As Long, Tileset As Long, Layer As Long)
    ' Left Wall
    If x - 1 >= 0 And x - 1 <= Map(mapNum).MaxX Then
        If Not hasTile(mapNum, x - 1, y, Layer) Then
            setTile mapNum, x - 1, y, WallX, WallY, Tileset, Layer
        End If
    ElseIf x = 0 And y >= 0 And y <= Map(mapNum).MaxY Then
        setTile mapNum, x, y, WallX, WallY, Tileset, Layer
    End If

    ' Right Wall
    If x + 1 >= 0 And x + 1 <= Map(mapNum).MaxX Then
        If Not hasTile(mapNum, x + 1, y, Layer) Then
            setTile mapNum, x + 1, y, WallX, WallY, Tileset, Layer
        End If
    ElseIf x = Map(mapNum).MaxX Then
        setTile mapNum, x, y, WallX, WallY, Tileset, Layer
    End If

    ' Top Wall
    If y - 1 >= 0 And y - 1 <= Map(mapNum).MaxY Then
        If Not hasTile(mapNum, x, y - 1, Layer) Then
            setTile mapNum, x, y - 1, WallX, WallY, Tileset, Layer
        End If
    ElseIf y = 0 Then
        setTile mapNum, x, y, WallX, WallY, Tileset, Layer
    End If

    ' Bottom Wall
    If y + 1 >= 0 And y + 1 <= Map(mapNum).MaxY Then
        If Not hasTile(mapNum, x, y + 1, Layer) Then
            setTile mapNum, x, y + 1, WallX, WallY, Tileset, Layer
        End If
    ElseIf y = Map(mapNum).MaxY Then
        setTile mapNum, x, y, WallX, WallY, Tileset, Layer
    End If

    ' Top Left Corner
    If x - 1 >= 0 And x - 1 <= Map(mapNum).MaxX And y - 1 >= 0 And y - 1 <= Map(mapNum).MaxY Then
        If Not hasTile(mapNum, x - 1, y - 1, Layer) Then
            setTile mapNum, x - 1, y - 1, WallX, WallY, Tileset, Layer
        End If
    End If

    ' Bottom Left Corner
    If x - 1 >= 0 And x - 1 <= Map(mapNum).MaxX And y + 1 >= 0 And y + 1 <= Map(mapNum).MaxY Then
        If Not hasTile(mapNum, x - 1, y + 1, Layer) Then
            setTile mapNum, x - 1, y + 1, WallX, WallY, Tileset, Layer
        End If
    End If

    ' Top Right Corner
    If x + 1 >= 0 And x + 1 <= Map(mapNum).MaxX And y - 1 >= 0 And y - 1 <= Map(mapNum).MaxY Then
        If Not hasTile(mapNum, x + 1, y - 1, Layer) Then
            setTile mapNum, x + 1, y - 1, WallX, WallY, Tileset, Layer
        End If
    End If

    ' Bottom Right Corner
    If x + 1 >= 0 And x + 1 <= Map(mapNum).MaxX And y + 1 >= 0 And y + 1 <= Map(mapNum).MaxY Then
        If Not hasTile(mapNum, x + 1, y + 1, Layer) Then
            setTile mapNum, x + 1, y + 1, WallX, WallY, Tileset, Layer
        End If
    End If
End Sub