Suporte ao desenvolvimento de jogos!


    Sistema VIP

    Compartilhe

    DshFox
    Novato
    Novato

    Mensagens : 27
    Créditos : 35

    Sistema VIP

    Mensagem por DshFox em 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
    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:


    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:
    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4924
    Créditos : 1049

    Re: Sistema VIP

    Mensagem por Valentine em Qua Dez 08, 2010 2:26 pm

    muito bom cara
    + 1 crédito


    _________________

    leuzin
    Novato
    Novato

    Mensagens : 4
    Créditos : -2

    Re: Sistema VIP

    Mensagem por leuzin em Qua Jun 15, 2011 12:15 am

    como faz , pra vip ganha 2x a experiencia , de um player normal?

    malz por reviver o topico Neutral
    avatar
    Juton
    Experiente
    Experiente

    Mensagens : 490
    Créditos : 129

    Re: Sistema VIP

    Mensagem por Juton em 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 é!
    avatar
    Juton
    Experiente
    Experiente

    Mensagens : 490
    Créditos : 129

    Re: Sistema VIP

    Mensagem por Juton em Seg Jun 20, 2011 10:39 am

    Ei pra 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

    é dps de
    color = QBColor(BrightRed)
    End If
    Ou é pra substituir
    avatar
    tenchumaster
    Banido
    Banido

    Mensagens : 578
    Créditos : 76

    Re: Sistema VIP

    Mensagem por tenchumaster em 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]
    avatar
    BrunoFox
    Aldeia Friend
    Aldeia Friend

    Mensagens : 1552
    Créditos : 32

    Re: Sistema VIP

    Mensagem por BrunoFox em Qui Out 06, 2011 12:02 pm

    Amigo eu nao tenho VB '-'


    _________________
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 107

    Re: Sistema VIP

    Mensagem por thales12 em 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:

    avatar
    Dooolly
    Moderador Global
    Moderador Global

    Medalhas :
    Mensagens : 1235
    Créditos : 142

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    Re: Sistema VIP

    Mensagem por Dooolly em 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"
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 107

    Re: Sistema VIP

    Mensagem por thales12 em Qua Nov 23, 2011 12:06 am

    So vc criar 1 commandbutton no lugar q vc bem entender da 2 clicks e adiconar:

    Código:
    If Player(MyIndex).VIP < 1 Then
        AddText "Apenas membros VIPs", BrightRed
    Else
        pic"nomedapic".Visible = Not pic"nomedapic".Visible
    End If
    aonde ta escrito "nomedapic" vc poe o nome da picture q vai ser aberta.

    OBS: claro q vc tem q ter o sistema de vip !


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:


    Conteúdo patrocinado

    Re: Sistema VIP

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Dom Jul 22, 2018 4:13 am