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

[ALL]Sistema VIP

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

1Tutorial [ALL]Sistema VIP em Sab 11 Dez 2010, 17:52

Luucas Robeerto


Fundador
Fundador

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

Vai dar acesso VIP~1 à 255

Server~
procure
e PlayerRec
depois
Dir As Byte
add
Vip as byte

procure
Buffer.WriteLong GetPlayerSprite(Index)
depois
Buffer.WriteLong GetPlayerPK(Index)
add
buffer.writebyte player(index).vip

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

faça uma label chamada
lblVip
make an Command Button
dentro do botão add
setvip
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]


procure
ub mnuRemoveAdmin_click()

depois
end sub
add
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
Call SetPlayerPK(I, Buffer.ReadLong)
depois
add
player(I).vip = buffer.readbyte

procure
e PlayerRec
depois
Dir As Byte
add
Vip as byte

procure
b DrawPlayerName
depois

color = QBColor(BrightRed)
End If

add isso

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:
[Você precisa estar registrado e conectado para ver esta imagem.]


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
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