Party System

[William]

Thanks. It was pretty complicated programming this leave party thing:

Code:

For iii = 1 To 5
        i = FindPlayer(Player(Index).Char(Player(Index).CharNum).PartyMembers(iii))
        If i > 0 Then
            If Index  i Then
                For ii = 1 To 5
                    If Player(i).Char(Player(i).CharNum).PartyMembers(ii) = GetPlayerName(Index) Then
                        Player(i).Char(Player(i).CharNum).PartyMembers(ii) = vbNullString
                    End If
                Next ii
            End If
        End If
    Next iii

The idea behind this part is that it removes your name from the other people in your party when you leave it.