Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

Liberando ADM para party

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial Liberando ADM para party

Mensagem por RicardoxD em Sab 25 Jun 2011, 10:43

Sever~Side

Procure por:

Código:
        Case "party"
            N = FindPlayer(Parse(1))

            If N = Index Then Exit Sub
            If N > 0 Then
                If GetPlayerAccess(Index) > ADMIN_MONITER Then
                    Call PlayerMsg(Index, "Você não pode entrar em um grupo, você é um Admin!", BrightBlue)
                    Exit Sub
                End If

                If GetPlayerAccess(N) > ADMIN_MONITER Then
                    Call PlayerMsg(Index, "Admins não podem entrar em grupos!", BrightBlue)
                    Exit Sub
                End If

                If Player(N).InParty = 0 Then
                    If Player(Index).PartyID > 0 Then
                        If Party(Player(Index).PartyID).Member(MAX_PARTY_MEMBERS) <> 0 Then
                            Call PlayerMsg(Index, GetPlayerName(N) & " foi convidado para o seu grupo.", Pink)
                            Call PlayerMsg(N, GetPlayerName(Index) & " convidou você para participar de seu grupo.", Pink)
                            Player(N).Invited = Player(Index).PartyID
               
                            Call PartyRequestWindow(N, Index)
                        Else
                            Call PlayerMsg(Index, "Seu grupo está cheio.", Pink)
                        End If

Mude para:

Código:
Case "party"
            N = FindPlayer(Parse(1))

            If N = Index Then Exit Sub
            If N > 0 Then
                If GetPlayerAccess(Index) > 7 Then
                    Call PlayerMsg(Index, "Você não pode entrar em um grupo, você é um Admin!", BrightBlue)
                    Exit Sub
                End If

                If GetPlayerAccess(N) > 7 Then
                    Call PlayerMsg(Index, "Admins não podem entrar em grupos!", BrightBlue)
                    Exit Sub
                End If

                If Player(N).InParty = 0 Then
                    If Player(Index).PartyID > 0 Then
                        If Party(Player(Index).PartyID).Member(MAX_PARTY_MEMBERS) <> 0 Then
                            Call PlayerMsg(Index, GetPlayerName(N) & " foi convidado para o seu grupo.", Pink)
                            Call PlayerMsg(N, GetPlayerName(Index) & " convidou você para participar de seu grupo.", Pink)
                            Player(N).Invited = Player(Index).PartyID
               
                            Call PartyRequestWindow(N, Index)
                        Else
                            Call PlayerMsg(Index, "Seu grupo está cheio.", Pink)
                        End If

Creditos:

Ricardo XD
avatar
RicardoxD

Mensagens : 89

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum