Convidado Convidado
| Assunto: Liberando ADM para party Sáb 25 Jun 2011, 11:43 | |
| Sever~Side
Procure por:
- Código:
-
Case "party" N = FindPlayer(Parse(1))
If N = Index Then Exit Sub If N > 0 Then If GetPlayerAccess(Index) > ADMIN_MONITER Then Call PlayerMsg(Index, "Você não pode entrar em um grupo, você é um Admin!", BrightBlue) Exit Sub End If
If GetPlayerAccess(N) > ADMIN_MONITER 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 Mude para:
- Código:
-
Case "party" N = FindPlayer(Parse(1))
If N = Index Then Exit Sub If N > 0 Then If GetPlayerAccess(Index) > 7 Then Call PlayerMsg(Index, "Você não pode entrar em um grupo, você é um Admin!", BrightBlue) Exit Sub End If
If GetPlayerAccess(N) > 7 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 Creditos:
Ricardo XD |
|