Display NPC Names

[Anthony]

Just thought I would add something to this really quick. I haven't tested it but it should work.

If you want to have it only blt the names when you put your mouse over then replace this:

Code:

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

With this:

Code:

'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