Adicionando Sistema Vip para o Servidor

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Adicionando Sistema Vip para o Servidor

    Mensagem por Thales12 em Seg Fev 13, 2012 12:39 am

    [size=20pt]Código fonte servidor[/size]


    abra o modulo modTypes segure ctrl + f e procure por

    Código:
    Private Type PlayerRec

    na mesma sub acima procure por:

    Código:
    Dir As Byte

    abaixo do código acima adicione:

    Código:
    Vip as byte

    no modulo modServerTCP procure por:

    Código:
    Function PlayerData(ByVal Index As Long) As Byte()

    na sub acima procure por:

    Código:
    Buffer.WriteLong GetPlayerPK(Index)

    abaixo do código acima adicione:

    Código:
    buffer.writebyte player(index).vip

    agora abra o frmServer na aba de players

    adicione os seguinte componentes:

    HSscrollBar
    label
    CommandButton

    agora nos componentes acima faça o seguinte:

    HSscrollBar = mode seu nome para scrlVip e mude o max dela para 255, e clique duas vezes nela e adicionar
    lblVip.Caption = scrlVip.Value

    label = mude seu nome para lblVip

    CommandButton = mude seu nome para CDMVIP,e clique duas vezes nela e adicionar
    setvip


    depois de pronto ele ficara asim:


    Credito:
    Dshfox = por Criar o Tutorial
    Ian = por simplificar e postar na mmov2

      Data/hora atual: Sex Maio 25, 2018 7:15 am