Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Corrigindo erros da party
Página 1 de 1
Corrigindo erros da party
Abra o servidor
1 - No modHandleData, procure por:
2 - Embaixo adicione:
3 - Agora em modGameLogic, procure por:
4 - Substitua:
5 - Por:
6 - Embaixo de:
7 - Adicione:
8 - Embaixo de:
9 - Adicione:
10 - Procure por:
11 - Substitua:
12 - Por:
13 - Substitua:
14 - Por:
15 - Embaixo de:
16 - Adicione:
17 - Procure por:
18 - Embaixo de:
19 - Adicione:
Créditos:
Valentine
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
Tópicos semelhantes
» Corrigindo erros do trade
» Corrigindo pequenos erros
» Corrigindo erros do escorrega (Slide)
» Corrigindo erros no trade e banco
» Erros NP V3
» Corrigindo pequenos erros
» Corrigindo erros do escorrega (Slide)
» Corrigindo erros no trade e banco
» Erros NP V3
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|