Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Sitema de Vip

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Sitema de Vip em Seg 19 Set 2011, 14:50

jadiel848


Membro
Membro
1,2,3 Go!



Na frmMirage, Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer), procure por:


Código: [Selecionar]
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: [Selecionar]
Call CheckInput(0, KeyCode, Shift) If KeyCode = vbKeyF1 Then If Player(MyIndex).Access > 1 Then frmadmin.Visible = False frmadmin.Visible = True End If End If
Agora procure no modGameLogic por:


Código: [Selecionar]
' // 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
Mude para:


Código: [Selecionar]
' // 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
No modGameLogic, Sub BltPetName(ByVal Index As Long), procure por:


Código: [Selecionar]
' 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: [Selecionar]
' 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(Cyan) Case 3 Color = QBColor(Blue) Case 4 Color = QBColor(Pink) End Select Else Color = QBColor(BrightRed) End If
Agora no modGameLogic, Sub BltPlayerName(ByVal Index As Long), procure por:


Código: [Selecionar]
' 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: [Selecionar]
' 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(Cyan) Case 3 Color = QBColor(Blue) Case 4 Color = QBColor(Pink) End Select Else Color = QBColor(BrightRed) End If
Sever sourse

Procure no modGameLogic por:


Código: [Selecionar]
' Ter certeza que não dar experiência menor que 0. If Exp < 0 Then Exp = 1 End If
Dê enter e adicione:


Código: [Selecionar]
'XP extra para usuários VIPs D:If GetPlayerAccess(Attacker) >= 1 ThenExp = Exp * 2ElseExp = Exp * 1End If
> VIP (jogador com acesso 1) não pode apertar F1;
> VIP não pode Kickar e Banir;
> Nome do jogador (e também do PET) VIP, agora é azul;
> Jogador VIP ganha 2 vezes mais esperiência que jogador "free";



Só.....What a Face

2Tutorial Re: Sitema de Vip em Seg 19 Set 2011, 19:04

Luucas Robeerto


Fundador
Fundador
ai manolo vejo que você e iniciante mais antes de você fazer um post e necessario de seguintes informações

1°Primeiro
Colocar
Código:
[code][/code]

2°Segundo colocar o icone dependo de qual seja o tutorial se o tutorial for script coloque o icone de script

3°Terçeiro
o mais importante sempre colocar os creditos do criador não importa que seja sempre colocar os creditos

4°Quarto sempre vé se tem algumas tutorial que vc quer aposta no forum porque o seu ja esta repedido

Este topico esta sendo trancado e indo para lixeira...


_______________________________________________________________________________________________________


Spoiler:




lol!
http://universogamesmmo.forumeiros.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum