MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[ALL]Grupo(Party) Para VIP 2

4 participantes

Ir para baixo

[ALL]Grupo(Party) Para VIP 2 Empty [ALL]Grupo(Party) Para VIP 2

Mensagem por goldeen Qui 16 Set 2010, 12:59

Bom Vou Ensinar A Liberar A Party(Grupo) Para Os Acessos 2 em Diante

Vamos La


Server~Side

Procure Por:

Código:
Case "Party"

E Substitua Toda a Case Por:

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

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

                If GetPlayerAccess(N) > 4 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

                    Else
                        o = 0
                        i = MAX_PARTIES

                        Do While i > 0

                            If Party(i).Member(1) = 0 Then o = i
                            i = i - 1
                        Loop

                        If o = 0 Then
                            Call PlayerMsg(Index, "Grupo sobrecarregado.", Pink)
                            Exit Sub
                        End If

                        Party(o).Member(1) = Index
                        Player(Index).InParty = YES
                        Player(Index).PartyID = o
                        Player(Index).Invited = 0
                        Call PlayerMsg(Index, "Grupo criado.", Pink)
                        Call PlayerMsg(Index, GetPlayerName(N) & " foi convidado para o seu grupo.", Pink)
                        Call PlayerMsg(N, GetPlayerName(Index) & " convidou você para entrar em seu grupo.", Pink)
                        Player(N).Invited = Player(Index).PartyID
                       
                            Call PartyRequestWindow(N, Index)
                        Call SendDataToMap(MapNum, Packet)
                    End If

                Else
                    Call PlayerMsg(Index, GetPlayerName(N) & " já está em um grupo.", Pink)
                End If

            Else
                Call PlayerMsg(Index, Parse(1) & " não está online.", White)
            End If

            Exit Sub

è Issu Fallow


Creditos : Shaker


Última edição por goldeen em Qui 16 Set 2010, 16:17, editado 2 vez(es)
goldeen
goldeen
Membro Junior
Membro Junior

Mensagens : 54

http://www. dbzoverfly.com

Ir para o topo Ir para baixo

[ALL]Grupo(Party) Para VIP 2 Empty Re: [ALL]Grupo(Party) Para VIP 2

Mensagem por victorlarios Qui 16 Set 2010, 13:16

não é oresiso substituir tudo isso,apenas a primeira parte lol.
e sei lá,pode ser util apenas para alguns,pois se vc é GM deve ser chato pessoas ficar mandando PARTY a você,então eu não usaria esse código.
Mas,bom tuto e simples,+ 1 CRED
victorlarios
victorlarios
Novato
Novato

Mensagens : 28

http://www.dbzcombat.tk

Ir para o topo Ir para baixo

[ALL]Grupo(Party) Para VIP 2 Empty Re: [ALL]Grupo(Party) Para VIP 2

Mensagem por goldeen Qui 16 Set 2010, 16:15

Eu Coloquei o Codigo Todo Pelo Fato de Alguns Iniciantes Errarem na hora de substituir o inicio do codigo
Vlw

Arrumado Somente VIP's
goldeen
goldeen
Membro Junior
Membro Junior

Mensagens : 54

http://www. dbzoverfly.com

Ir para o topo Ir para baixo

[ALL]Grupo(Party) Para VIP 2 Empty Re: [ALL]Grupo(Party) Para VIP 2

Mensagem por Ayan13 Seg 10 Set 2012, 09:48

aew mais meu serve tem vip 1 vip 2 vip3 mais os tres pega grupo
Ayan13
Ayan13
Membro
Membro

Mensagens : 115

Ir para o topo Ir para baixo

[ALL]Grupo(Party) Para VIP 2 Empty Re: [ALL]Grupo(Party) Para VIP 2

Mensagem por Storm™ Seg 10 Set 2012, 10:32

Ayan13 Olhe a Data Setembro 2010, como voçe ja ta bannido e nao sei como ta comentando vou ter toma providencias por IP

Topico Fechado - Resusitação de topico
Storm™
Storm™
Moderador Global
Moderador Global

Mensagens : 2155

http://senningames.com

Ir para o topo Ir para baixo

[ALL]Grupo(Party) Para VIP 2 Empty Re: [ALL]Grupo(Party) Para VIP 2

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


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