Universo Games
Ola , Convidado

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

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

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

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



[EEB]Grupo(Party) Para Vip 2 e Adms Empty
MensagemAssunto: [EEB]Grupo(Party) Para Vip 2 e Adms   [EEB]Grupo(Party) Para Vip 2 e Adms EmptyDom 12 Set 2010, 21: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)
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[EEB]Grupo(Party) Para Vip 2 e Adms Empty
MensagemAssunto: Re: [EEB]Grupo(Party) Para Vip 2 e Adms   [EEB]Grupo(Party) Para Vip 2 e Adms EmptyQua 15 Set 2010, 16:20

Muito Bom
afro
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



[EEB]Grupo(Party) Para Vip 2 e Adms Empty
MensagemAssunto: Re: [EEB]Grupo(Party) Para Vip 2 e Adms   [EEB]Grupo(Party) Para Vip 2 e Adms EmptySex 08 Out 2010, 10:23

Bom .... =)
Ir para o topo Ir para baixo
Conteúdo patrocinado





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

Ir para o topo Ir para baixo
 
[EEB]Grupo(Party) Para Vip 2 e Adms
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» [EEB]Botão para Party
» Liberando ADM para party
» [ALL]Rank para seu Clã
» F2 para digitar
» [ALL]Botão para Site

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Tutoriais-
Ir para: