Meh...

[Pbcrazy]

ok i changed it and added some check/breaks whatever the fuck you want to call them in.

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
Call AddText("SendList2", vbBlue)
    If Npc(Map(GetUserMap(Index)).MapNpc(i)).Name  vbNullString Then
    Call AddText("SendList3", vbBlue)
        Packet = PH_AttackList & SepChar & Npc(Map(GetUserMap(Index)).MapNpc(i)).Name & SepChar & EndChar
    
    Call AddText("SendList4", vbBlue)
    Call SendDataTo(Index, Packet)
    End If
Next i
End Sub

it executes

Code:

Call AddText("SendList2", vbBlue)

then wont go any farther