Abra o servidor

1 - No modHandleData, procure por:

Código:

Sub HandleAcceptParty

2 - Embaixo adicione:

Código:

    If Not IsConnected(TempPlayer(index).partyInvite) Or Not IsPlaying(TempPlayer(index).partyInvite) Then
        TempPlayer(index).partyInvite = 0
        Exit Sub
    End If

3 - Agora em modGameLogic, procure por:

Código:

Public Sub Party_PlayerLeave

4 - Substitua:

Código:

PartyMsg partyNum, GetPlayerName(i) & " is now the party leader.", BrightBlue

5 - Por:

Código:

PartyMsg partyNum, GetPlayerName(Party(partynum).Leader) & " is now the party leader.", BrightBlue

6 - Embaixo de:

Código:

                ' remove from array
                For i = 1 To MAX_PARTY_MEMBERS
                    If Party(partynum).Member(i) = index Then
                        Party(partynum).Member(i) = 0
                        Exit For
                    End If
                Next

7 - Adicione:

Código:

                TempPlayer(index).inParty = 0
                TempPlayer(index).partyInvite = 0

8 - Embaixo de:

Código:

                For i = 1 To MAX_PARTY_MEMBERS
                    If Party(partyNum).Member(i) = index Then
                        Party(partyNum).Member(i) = 0
                        Exit For
                    End If
                Next

9 - Adicione:

Código:

                TempPlayer(index).inParty = 0
                TempPlayer(index).partyInvite = 0

10 - Procure por:

Código:

Public Sub Party_InviteAccept

11 - Substitua:

Código:

Dim partynum As Long, i As Long

12 - Por:

Código:

Dim partynum As Long, i As Long, x As Long

13 - Substitua:

Código:

SendPartyVitals partyNum, targetPlayer

14 - Por:

Código:

                For x = 1 To MAX_PARTY_MEMBERS
                    If Party(partynum).Member(x) > 0 Then
                        SendPartyVitals partynum, Party(partynum).Member(x)
                    End If
                Next

15 - Embaixo de:

Código:

PlayerMsg targetPlayer, "Party is full.", BrightRed

16 - Adicione:

Código:

TempPlayer(targetPlayer).partyInvite = 0

17 - Procure por:

Código:

Public Sub Party_ShareExp

18 - Embaixo de:

Código:

Dim expShare As Long, leftOver As Long, i As Long, tmpIndex As Long

19 - Adicione:

Código:

If Party(partynum).MemberCount <= 0 Then Exit Sub

Créditos:
Valentine