Aldeia RPG

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

Suporte ao desenvolvimento de jogos


    Corrigindo erros da party

    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : Corrigindo erros da party ZgLkiRU
    Mensagens : 5336
    Créditos : 1163

    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

      Data/hora atual: Qui Mar 28, 2024 6:37 pm