Sub BltNPCName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long

    With Npc(MapNpc(Index).Num)
   
    'Draw name
TextX = MapNpc(Index).X * PIC_X + MapNpc(Index).XOffset + CLng(PIC_X / 2) - ((Len(Trim$(.Name)) / 2) * 8)
TextY = MapNpc(Index).Y * PIC_Y + MapNpc(Index).YOffset - CLng(PIC_Y / 2) - 4
DrawText TexthDC, TextX, TextY, Trim$(.Name), vbWhite
    End With
End Sub

                ' Lock the backbuffer so we can draw text and names
                TexthDC = DD_BackBuffer.GetDC

                'Draw npc name
                For i = LBound(MapNpc) To UBound(MapNpc)
                If MapNpc(i).Num > 0 Then
                    BltNPCName i
                End If
            Next i

'Draw npc name
                For i = LBound(MapNpc) To UBound(MapNpc)
                If MapNpc(i).Num > 0 Then
                    BltNPCName i
                End If
            Next i

'Draw NPC Names
                For i = LBound(MapNpc) To UBound(MapNpc)
                    If MapNpc(i).Num > 0 Then
                        If CurX = MapNpc(i).x Then
                            If CurY = MapNpc(i).y Then
                                Call BltNPCName(i)
                            End If
                        End If
                    End If
                Next i

'Draw NPC Names
                For i = LBound(MapNpc) To UBound(MapNpc)
                    If MapNpc(i).Num > 0 And CurX = MapNpc(i).x And CurY = MapNpc(i).y Then
                        Call BltNPCName(i)
                    End If
                Next i

                ' Lock the backbuffer so we can draw text and names
                TexthDC = DD_BackBuffer.GetDC

TexthDC = DDS_BackBuffer.GetDC

If GettingMap Then
       
        TexthDC = DDS_BackBuffer.GetDC ' Lock the backbuffer so we can draw text and names

Public Sub DrawNPCName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim color As Long
   
    Select Case Npc(MapNpc(Index).Num).Behavior
        Case 0
            color = KeyRed
        Case 1
            color = KeyYellow
        Case 2
            color = KeyWhite
        Case 3
            color = KeyWhite
        Case 4
            color = KeyWhite
    End Select
   
    With Npc(MapNpc(Index).Num)
   
    'Draw name and determine location
        TextX = MapNpc(Index).x * PIC_X + MapNpc(Index).XOffset + CLng(PIC_X / 2) - ((Len(Trim$(.Name)) / 2) * 8)
        TextY = MapNpc(Index).y * PIC_Y + MapNpc(Index).YOffset - CLng(PIC_Y / 2) - 4
        Call DrawText(TextX, TextY, TextY + 15, ((Len(Npc(MapNpc(Index).Num).Name)) * 8) + 15, Trim$(.Name), CStr(color))
    End With
   
   
    If TextX < 0 Then TextX = 0
    If TextY < 0 Then TextY = 0

End Sub