Universo Games
Ola , Convidado

[ALL]Sistema VIP Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 [ALL]Sistema VIP

Ir para baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[ALL]Sistema VIP Empty
MensagemAssunto: [ALL]Sistema VIP   [ALL]Sistema VIP EmptySáb 11 Dez 2010, 19:52


Esse é o sistema VERDADEIRO
não é aquele acesso de adm LOL

Vai dar acesso VIP~1 à 255

Server~
procure
Citação :
e PlayerRec
depois
Citação :
Dir As Byte
add
Citação :
Vip as byte

procure
Citação :
Buffer.WriteLong GetPlayerSprite(Index)
depois
Citação :
Buffer.WriteLong GetPlayerPK(Index)
add
Citação :
buffer.writebyte player(index).vip

vai na FrmServer
faça uma scrool chamada
Citação :
scrlVip
max=255
clique 2 vezes e add
Citação :
lblVip.Caption = scrlVip.Value

faça uma label chamada
Citação :
lblVip
make an Command Button
dentro do botão add
Citação :
setvip
Spoiler:


procure
Citação :
ub mnuRemoveAdmin_click()

depois
Citação :
end sub
add
Citação :
Sub SetVip()
Dim Name As String
Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

If Not Name = "Not Playing" Then
Player(findplayer(name)).Vip = frmServer.scrlVip.Value
Call SendPlayerData(FindPlayer(Name))
Call PlayerMsg(FindPlayer(Name), "Now,you're vip level:" & frmServer.scrlVip.Value, Cyan)
End If

End Sub


Client~
procure
Citação :
Call SetPlayerPK(I, Buffer.ReadLong)
depois
add
Citação :
player(I).vip = buffer.readbyte

procure
Citação :
e PlayerRec
depois
Citação :
Dir As Byte
add
Citação :
Vip as byte

procure
Citação :
b DrawPlayerName
depois

Citação :
color = QBColor(BrightRed)
End If

add isso

Citação :
If Player(MyIndex).Vip > 0 Then
Select Case Player(MyIndex).Vip
Case 0
color = QBColor(Grey)
Case 1
color = QBColor(DarkGrey)
Case 2
color = QBColor(Cyan)
Case 3
color = QBColor(Green)
Case 4
color = QBColor(Yellow)
Case Else
color = QBColor(White)
End Select
end if

pode fazer vip até 255
> que 5 o nickname vai ser branco

Testado e Aprovado
Spoiler:
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
 
[ALL]Sistema VIP
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» [EO]Sistema de Pet
» Sistema De Vip
» [Pedido]Sistema!
» Sistema de Climas
» sistema de banco

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Eclipse Origens :: Tutorias-
Ir para: