Message loop

[Matt]

I just added another exit for and it's fine. Sub is like this now:

Code:

Sub PlayerCreateGuild(ByVal Index As Long)
Dim Packet As String
Dim d As Integer

For d = 1 To MAX_INV
    If GetPlayerInvItemNum(Index, d) = 1 And GetPlayerInvItemValue(Index, d) >= 500000 Then
        Packet = "GUILDNPC" & END_CHAR
        Call SendDataTo(Index, Packet)
    ElseIf GetPlayerInvItemNum(Index, d) = 1 And GetPlayerInvItemValue(Index, d) < 500000 Then
        Call PlayerMsg(Index, "You need 500,000 gold to register a guild.", BrightRed)
        Exit For
    ElseIf GetPlayerInvItemNum(Index, d)  1 Then
        Call PlayerMsg(Index, "You need 500,000 gold to register a guild.", BrightRed)
        Exit For
    End If
Next d

End Sub