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

[EEB]Grupo(Party) Para Vip 2 e Adms

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

1Tutorial [EEB]Grupo(Party) Para Vip 2 e Adms em Dom 12 Set 2010, 20:58

shaker


Membro
Membro
Server~Side

Procure Por


Código:
Case "party"

Troque Por

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

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

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

So Isso

Creditos : Thiago - ADM Shaker)

2Tutorial Re: [EEB]Grupo(Party) Para Vip 2 e Adms em Qua 15 Set 2010, 15:20

Luucas Robeerto


Fundador
Fundador
Muito Bom
afro

http://universogamesmmo.forumeiros.com

3Tutorial Re: [EEB]Grupo(Party) Para Vip 2 e Adms em Sex 08 Out 2010, 09:23

Thales12


Membro
Membro
Bom .... =)

Conteúdo patrocinado


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