Corrigindo erros da party Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Corrigindo erros da party

Ir para baixo

Corrigindo erros da party Empty Corrigindo erros da party

Mensagem por Valentine Qua Jun 27, 2012 10:18 pm

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
Valentine
Valentine
Administrador
Administrador

Medalhas : Corrigindo erros da party ZgLkiRU
Mensagens : 5341
Créditos : 1164

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos