Entrar
Criar Conta
Mensagens
Data de inscrição
LocalizaçãoBom Esse e um Sistema de Vip Basico Vamo Lah '
Primeiro Vamos Mudar Para que os Vip's Não Tenha Acesso Ao F1 Painel do administrador
Cliente ~ Side:
Procure Por:
Mude Para:
Agora Procure no modGameLogic por:
Mude para:
Agora no modGameLogic, Sub BltPetName(ByVal Index As Long) Procure Por:
Mude Para:,
Agora Na modGameLogic, Sub BltPlayerName(ByVal Index As Long) Procure Por:
Procure No modGameLogic Por:
Abaixo Adicione:
Primeiro Vamos Mudar Para que os Vip's Não Tenha Acesso Ao F1 Painel do administrador
Cliente ~ Side:
Procure Por:
- Código:
Call CheckInput(0, KeyCode, Shift)
If KeyCode = vbKeyF1 Then
If Player(MyIndex).Access > 0 Then
frmadmin.Visible = False
frmadmin.Visible = True
End If
End If
Mude Para:
- Código:
Call CheckInput(0, KeyCode, Shift)
If KeyCode = vbKeyF1 Then
If Player(MyIndex).Access > 2 Then
frmadmin.Visible = False
frmadmin.Visible = True
End If
End If
Agora Procure no modGameLogic por:
- Código:
' // Moniter Admin Commands //
If GetPlayerAccess(MyIndex) > 0 Then
' day night command
If LCase(Mid(MyText, 1, 9)) = "/dianoite" Then
If GameTime = TIME_DAY Then
GameTime = TIME_NIGHT
Else
GameTime = TIME_DAY
End If
Call SendGameTime
MyText = vbNullString
Exit Sub
End If
- Código:
' // Moniter Admin Commands //
If GetPlayerAccess(MyIndex) > 1 Then
' day night command
If LCase(Mid(MyText, 1, 9)) = "/dianoite" Then
If GameTime = TIME_DAY Then
GameTime = TIME_NIGHT
Else
GameTime = TIME_DAY
End If
Call SendGameTime
MyText = vbNullString
Exit Sub
End If
- Código:
' // Mapper Admin Commands //
If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
' Location
If LCase(Mid(MyText, 1, 4)) = "/loc" Then
Call SendRequestLocation
MyText = vbNullString
Exit Sub
End If
Mude para:
- Código:
' // Mapper Admin Commands //
If GetPlayerAccess(MyIndex) > 2 Then
' day night command
If LCase(Mid(MyText, 1, 9)) = "/dianoite" Then
If GameTime = TIME_DAY Then
GameTime = TIME_NIGHT
Else
GameTime = TIME_DAY
End If
Call SendGameTime
MyText = vbNullString
Exit Sub
End If
Agora no modGameLogic, Sub BltPetName(ByVal Index As Long) Procure Por:
- Código:
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(DarkGrey)
Case 2
Color = QBColor(Cyan)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
Mude Para:,
- Código:
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(BrightBlue)
Case 2
Color = QBColor(Darkgrey)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
Agora Na modGameLogic, Sub BltPlayerName(ByVal Index As Long) Procure Por:
- Código:
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(Grey)
Case 2
Color = QBColor(Cyan)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
- Código:
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(BrightBlue)
Case 2
Color = QBColor(Grey)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
Procure No modGameLogic Por:
- Código:
' Ter certeza que não dar experiência menor que 0.
If Exp < 0 Then
Exp = 1
End If
Abaixo Adicione:
- Código:
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
'XP extra para usuários VIPs 2 D:
If GetPlayerAccess(Attacker) >= 2 Then
Exp = Exp * 3
Else
Exp = Exp * 1
End If
- Código:
*VIP (jogador com acesso 1) não pode apertar F1'
*VIP 2 (jogador com acesso 2) não pode apertar F1'
*VIP e VIP 2 não pode Kickar,Banir, nem editar mapas'
*Nome do jogador (e também do PET) VIP, agora é azul'
*Nome do jogador (e também do PET) VIP2, agora é Verde'
*Jogador VIP ganha 2 vezes mais esperiência que jogador "free"
*Jogador VIP 2 ganha 3 vezes mais esperiência que jogador "free"
