Universo Games
Ola , Convidado



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

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

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

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

Mensagem por shaker em Dom 12 Set 2010, 20:58

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)

shaker

Mensagens : 5

Voltar ao Topo Ir em baixo

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

Mensagem por Lucas Roberto em Qua 15 Set 2010, 15:20

Muito Bom
afro
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

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

Mensagem por Thales12 em Sex 08 Out 2010, 09:23

Bom .... =)
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

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

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


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