Meh...

[Pbcrazy]

ok can someone please tell me why this sub isnt executing all the way through?

Code:

Sub SendAttackList(ByVal Index As Integer)
Dim Packet As String
Dim i As Integer
Call AddText("SendList1", vbBlue)
For i = 0 To MAX_MAP_NPC - 1
    If Npc(Map(GetUserMap(Index)).MapNpc(i + 1)).Name  "" Then
        Packet = PH_AttackList & SepChar & Npc(Map(GetUserMap(Index)).MapNpc(i + 1)).Name & SepChar & EndChar
    
    Call AddText("SendList2", vbBlue)
    Call SendDataTo(Index, Packet)
    End If
Next i
End Sub