Hitskin.comIsto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Sistema VIP
+9
DeaN
Dooolly
thales12
BrunoFox
tenchumaster
Juton
leuzin
Valentine
DshFox
13 participantes
Página 1 de 2
Página 1 de 2 • 1, 2 
Sistema VIP
por DshFox Qua Dez 08, 2010 9:55 am
Esse é o sistema VERDADEIRO
não é aquele acesso de adm LOL
Vai dar acesso VIP~1 à 255
Server~
procure
depoise PlayerRec
addDir As Byte
Vip as byte
procure
depoisBuffer.WriteLong GetPlayerSprite(Index)
addBuffer.WriteLong GetPlayerPK(Index)
buffer.writebyte player(index).vip
vai na FrmServer
faça uma scrool chamada
max=255scrlVip
clique 2 vezes e add
lblVip.Caption = scrlVip.Value
faça uma label chamada
make an Command ButtonlblVip
dentro do botão add
setvip
- Spoiler:
procure
ub mnuRemoveAdmin_click()
depois
addend sub
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
depoisCall SetPlayerPK(I, Buffer.ReadLong)
add
player(I).vip = buffer.readbyte
procure
depoise PlayerRec
addDir As Byte
Vip as byte
procure
depoisb DrawPlayerName
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:
DshFox- Novato
- Mensagens : 27
Créditos : 35
Valentine- Administrador
- Medalhas :
Mensagens : 5345
Créditos : 1164 -
Re: Sistema VIP
por leuzin Qua Jun 15, 2011 12:15 am
como faz , pra vip ganha 2x a experiencia , de um player normal?
malz por reviver o topico
malz por reviver o topico
leuzin- Novato
- Mensagens : 4
Créditos : -2
Re: Sistema VIP
por Juton Seg Jun 20, 2011 10:31 am
Cara coloca os nomes dos modules quando for editar ai manda proocurar ai a pessoa tem que sair CTRL+F em todos pra ver em qual é!
Juton- Experiente
- Mensagens : 486
Créditos : 129
Re: Sistema VIP
por Juton Seg Jun 20, 2011 10:39 am
Ei pra add isso
é dps de
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
é dps de
Ou é pra substituircolor = QBColor(BrightRed)
End If
Juton- Experiente
- Mensagens : 486
Créditos : 129
Re: Sistema VIP
por tenchumaster Seg Jun 20, 2011 10:28 pm
Sabe oque mais axei maneiro e tudo organizado vc pode mudar a cor e tudo oque precisar isso e perfect!!
_________________
Barra de fan do meu joguinho use voce tambem
[code:1][URL=http://imageshack.us/photo/my-images/163/barradefan.jpg/][IMG]http://img163.imageshack.us/img163/2981/barradefan.jpg[/IMG][/URL]
[/code:1]
tenchumaster- Banido
- Mensagens : 577
Créditos : 76
BrunoFox- Aldeia Friend
- Mensagens : 1531
Créditos : 32 -
Re: Sistema VIP
por thales12 Qui Out 06, 2011 12:31 pm
Castiel~~Eclipser escreveu:Amigo eu nao tenho VB '-'
lol '-', reviveu o topico so para dizer " amigo eu nao tenho vb '-' "
'-'
( sem comentarios )
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
thales12- Membro de Honra
- Mensagens : 322
Créditos : 108
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida: (30/30) -
Re: Sistema VIP
por Dooolly Ter Nov 22, 2011 10:14 pm
Bom galera sou novo em VB e queria saber o codigo pra assim tipo eu clicar num botão que aparece uma picturebox mais com uma condição ser VIP Lvl 1
se naum aparece uma mesagem no chatbox "vc naum é vip"
se naum aparece uma mesagem no chatbox "vc naum é vip"
Dooolly- Colaborador
- Medalhas :
Mensagens : 1227
Créditos : 153
Ficha do personagem
Nível: 1
Experiência: (0/0)
Vida: (30/30)
Re: Sistema VIP
por thales12 Qua Nov 23, 2011 12:06 am
So vc criar 1 commandbutton no lugar q vc bem entender da 2 clicks e adiconar:
OBS: claro q vc tem q ter o sistema de vip !
- Código:
If Player(MyIndex).VIP < 1 Then
AddText "Apenas membros VIPs", BrightRed
Else
pic"nomedapic".Visible = Not pic"nomedapic".Visible
End If
OBS: claro q vc tem q ter o sistema de vip !
_________________
Meu fã ? Meu Amigo ? Entao Use !
Minha Sign:
Minha Sign:
thales12- Membro de Honra
- Mensagens : 322
Créditos : 108
Ficha do personagem
Nível: 1
Experiência: (0/0)
Vida: (30/30) -
Página 1 de 2 • 1, 2
Tópicos semelhantes» Sistema de Loja+Sistema de Passar de Classe por Level
» Movido: [Sistema por Evento] - Sistema de Cupons
» [EO] Sistema de pet
» Sistema De Canhões(meu primeiro sistema :))
» [Sistema por Evento] - Sistema de Cupons
» Movido: [Sistema por Evento] - Sistema de Cupons
» [EO] Sistema de pet
» Sistema De Canhões(meu primeiro sistema :))
» [Sistema por Evento] - Sistema de Cupons
Página 1 de 2
Permissões neste sub-fórum
Não podes responder a tópicos