Liberando ADM para party

Convidado

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