Meh...

[Pbcrazy]

ok even with it like this

Code:

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

it still wont work.
and with out the AddText it still wont work (I put those in there so i could see how far the program got.)

im utterly baffled by it.