Suporte ao desenvolvimento de jogos!


    Sistemas de 3 VIP's EO

    Compartilhe
    avatar
    skyaway
    Banido
    Banido

    Mensagens : 16
    Créditos : 16

    Sistemas de 3 VIP's EO

    Mensagem por skyaway em Ter Fev 14, 2012 2:27 pm

    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




    Creditos :
    SkyAway , Por Postar Aqui pra vocês
    Eduardo01 - Por Fazer





    GOSTOU DA + 1 CRED Só CLICAR NO + ALI DO LADO >>>>>


    Última edição por skyaway em Ter Fev 14, 2012 3:22 pm, editado 1 vez(es)


    _________________
    É Meu Fan ? Me Odeia ? Me Ama ? Então usa isso !!!
    avatar
    Eduardo01
    Iniciante
    Iniciante

    Mensagens : 39
    Créditos : 7

    Re: Sistemas de 3 VIP's EO

    Mensagem por Eduardo01 em Ter Fev 14, 2012 3:11 pm

    coloque meus creditos eu quem fiz na mmorpg brasil coloque meus creditos
    sou eduardo01 de la vc postou 2 tutoriais meus entao creditos a quem mereçe


    Última edição por eduardo01 em Ter Fev 14, 2012 3:18 pm, editado 1 vez(es)
    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4863
    Créditos : 1041

    Re: Sistemas de 3 VIP's EO

    Mensagem por Valentine em Ter Fev 14, 2012 3:14 pm

    @skyaway
    Coloque os créditos do autor.


    _________________
    avatar
    Sakuuray775
    Iniciante
    Iniciante

    Mensagens : 44
    Créditos : 29

    Re: Sistemas de 3 VIP's EO

    Mensagem por Sakuuray775 em Sab Fev 25, 2012 11:57 pm

    Tá, e pra o vip acabar, demora quanto tempo ?
    avatar
    Dooolly
    Moderador Global
    Moderador Global

    Medalhas :
    Mensagens : 1233
    Créditos : 142

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

    Re: Sistemas de 3 VIP's EO

    Mensagem por Dooolly em Ter Jun 12, 2012 4:45 pm

    Bom eu sei q é feio reviver topic mais eu sou feio mesmo então vamo lá
    Bom eu tava colocando esse sistema em meu game quando percebi q ele ta dando vip pra um mais o vip ver o nome de todos da mesma cor q o dele
    Tipo eu sou vip e meu nome ta azul ai eu vejo o nome de todos azul
    e o cara q n é vip me ver como n vip Neutral

    o codigo é esse
    pra corrigir
    Código:
    If Player(Index).Vip > 0 Then
            Select Case Player(Index).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
    avatar
    Eduardo01
    Iniciante
    Iniciante

    Mensagens : 39
    Créditos : 7

    Re: Sistemas de 3 VIP's EO

    Mensagem por Eduardo01 em Ter Jun 12, 2012 5:25 pm

    o skayWay postou errado meu tuto pois ele e 100% funcional mais v lw por corrigir o erro dele
    avatar
    giovani18
    Novato
    Novato

    Mensagens : 3
    Créditos : 0

    Re: Sistemas de 3 VIP's EO

    Mensagem por giovani18 em Seg Jul 23, 2012 4:14 am

    ajeita ai pq aqui não ta achando essas linhas aqui não tem no EO que eu to usando

    Function PlayerData(ByVal Index As Long) As Byte()

    Buffer.WriteLong GetPlayerPK(Index)


    avatar
    Samuka_Maker
    Aldeia Friend
    Aldeia Friend

    Medalhas :
    Mensagens : 1205
    Créditos : 124

    Re: Sistemas de 3 VIP's EO

    Mensagem por Samuka_Maker em Qui Jul 26, 2012 4:03 pm

    bom, tem 2 frm server '-' e aonde é a aba players?


    _________________

    Life rpg maker, suporte para criacao de jgoos online eoffline, link do forum:(v2.0)
    http://liferpgmakerv2.forumais.com/




    Tópico original/Tópico de Recrutamento

    Conteúdo patrocinado

    Re: Sistemas de 3 VIP's EO

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Maio 24, 2018 5:03 am