Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Liberando ADM para party

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Liberando ADM para party em Sab 25 Jun 2011, 10:43

RicardoxD


Membro
Membro
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

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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