Convidado Convidado
| Assunto: [EEB]Grupo(Party) Para Vip 2 e Adms Dom 12 Set 2010, 21:58 | |
| Server~SideProcure 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) |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [EEB]Grupo(Party) Para Vip 2 e Adms Qua 15 Set 2010, 16:20 | |
| Muito Bom | |
|
Convidado Convidado
| Assunto: Re: [EEB]Grupo(Party) Para Vip 2 e Adms Sex 08 Out 2010, 10:23 | |
| |
|
Conteúdo patrocinado
| Assunto: Re: [EEB]Grupo(Party) Para Vip 2 e Adms | |
| |
|