Novo sistema de VIP 3 ViPs diferentes[Modificado]

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

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

    default Novo sistema de VIP 3 ViPs diferentes[Modificado]

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

    Lembrando que esse tutorial nao e igual ao q o Dash fez esse tem modificaçoes nao da erro e q vao ajudar varios iniciantes

    abra o modulo modTypes segure ctrl + f e procure por

    Código:
    Código:
    Private Type PlayerRec


    na mesma sub acima procure por:

    Código:
    Código:
    Dir As Byte


    abaixo do código acima adicione:

    Código:
    Código:
    Vip as byte


    no modulo modServerTCP procure por:

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


    na sub acima procure por:

    Código:
    Código:
    Buffer.WriteLong GetPlayerPK(Index)


    abaixo do código acima adicione:

    Código:
    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 3 + vc pode vir a adicionar + se quiser quanto + vc adicionar mais vips vcs terao , 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

    Serve~
    procure por :

    Codigo:

    Código:
    Sub mnuRemoveAdmin_click()


    no final dessa sub (depois do end sub) coloque:

    Codigo:

    Código:
    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 por :

    Codigo:
    Código:
    Call SetPlayerPK(I, Buffer.ReadLong)


    depois add

    Codigo:
    Código:
    player(I).vip = buffer.readbyte


    procure por:

    Código:
    Private Type PlayerRec


    depois por:

    Código:
    Dir As Byte

    Coloque abaixo de Dir As Byte:

    Código:
    Vip as byte



    procure por :

    Código:
    Public Sub DrawPlayerName


    depois por :

    Código:
    color = QBColor(BrightRed)
    End If



    antes do end if add isso :

    Código:
    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


    Servidor novamente procure por

    Código:
     exp = Npc(npcNum).exp

    abaixo adicione:

    Código:
    If Player(attacker).Vip = 1 Then Exp = Exp * 5
        If Player(attacker).Vip = 2 Then Exp = Exp * 10
        If Player(attacker).Vip = 3 Then Exp = Exp * 15


    Lembrando q esse codigo e a quantidade de exp que o vip ira ganhar dai e so vc modificar falow
    e isso isso so fiz complementar o tutorial do Dash entao pois todos estavao reclamando de um certo erro concertei o bug do erro e ficou um tutorial show

    Dash fox por fazer o tutorial
    Eduardo por disponibilizar o tutorial e modificar
    %100%
    Funcionando

      Data/hora atual: Seg Dez 17, 2018 7:41 am