[Correção] Erros da Party

Código:

Sub HandleAcceptParty

Código:

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

Código:

Public Sub Party_PlayerLeave

Código:

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

Código:

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

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

Código:

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

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

Código:

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

Código:

Public Sub Party_InviteAccept

Código:

Dim partynum As Long, i As Long

Código:

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

Código:

SendPartyVitals partyNum, targetPlayer

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

Código:

PlayerMsg targetPlayer, "Party is full.", BrightRed

Código:

TempPlayer(targetPlayer).partyInvite = 0

Código:

Public Sub Party_ShareExp

Código:

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

Código:

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

guifs escreveu:valentine , +1 , mais aki qual erro tem na party q eu ainda num vi .-.'