If Val(GetVar(App.Path & "\Main\Config\config.ini", "CONFIG", "SpeechBubbles")) = 1 Then

Dim Ground As Long
Dim Anim1 As Long
Dim Fringe As Long
Dim x As Byte
Dim y As Byte

    With rec
        .top = 0
        .Bottom = ((MAX_MAPX + 1) * PIC_X)
        .Left = 0
        .Right = ((MAX_MAPY + 1) * PIC_Y)
    End With
   
    DD_LowerBuffer.BltColorFill rec, RGB(0, 0, 0)
    DD_UpperBuffer.BltColorFill rec, RGB(0, 0, 0)

    For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX

            With Map.Tile(x, y)
                Ground = .Ground
                Anim1 = .Mask
                Fringe = .Fringe
            End With
           
            ' Ground
            With rec
                .top = Int(Ground / 7) * PIC_Y
                .Bottom = .top + PIC_Y
                .Left = (Ground - Int(Ground / 7) * 7) * PIC_X
                .Right = .Left + PIC_X
            End With
            Call DD_LowerBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT)
           
            ' Mask
            With rec
                 .top = Int(Anim1 / 7) * PIC_Y
                 .Bottom = .top + PIC_Y
                 .Left = (Anim1 - Int(Anim1 / 7) * 7) * PIC_X
                 .Right = .Left + PIC_X
            End With
            Call DD_LowerBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)

            ' Fringe
            If Fringe > 0 Then
                With rec
                    .top = Int(Fringe / 7) * PIC_Y
                    .Bottom = .top + PIC_Y
                    .Left = (Fringe - Int(Fringe / 7) * 7) * PIC_X
                    .Right = .Left + PIC_X
                End With
                Call DD_UpperBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
            End If
           
        Next x
    Next y

Sub BltAnimation()
Dim Anim As Long
Dim x As Byte
Dim y As Byte

For y = 0 To MAX_MAPY
        For x = 0 To MAX_MAPX
       
            Anim = Map.Tile(x, y).Anim
           
            If Anim > 0 Then
                With rec
                    .top = Int(Anim / 7) * PIC_Y
                    .Bottom = .top + PIC_Y
                    .Left = (Anim - Int(Anim / 7) * 7) * PIC_X
                    .Right = .Left + PIC_X
                End With
                Call DD_LowerBuffer.BltFast(x * PIC_X, y * PIC_Y, DD_TileSurf, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
            End If
           
        Next x
    Next y
End Sub

        ' Clear the back and middle buffers
        DD_BackBuffer.BltColorFill rec, RGB(0, 0, 0)
        DD_MiddleBuffer.BltColorFill rec, RGB(0, 0, 0)

' Draw all buffers to the back buffer
        With rec
            .top = 0
            .Bottom = ((MAX_MAPX + 1) * PIC_X)
            .Left = 0
            .Right = ((MAX_MAPY + 1) * PIC_Y)
        End With
   
        Call DD_BackBuffer.BltFast(0, 0, DD_LowerBuffer, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        Call DD_BackBuffer.BltFast(0, 0, DD_MiddleBuffer, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        Call DD_BackBuffer.BltFast(0, 0, DD_UpperBuffer, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)