Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


+3
Valentine
Eduardo01
skyaway
7 participantes

    Sistemas de 3 VIP's EO

    skyaway
    skyaway
    Banido
    Banido


    Mensagens : 16
    Créditos : 16

    Sistemas de 3 VIP's EO Empty Sistemas de 3 VIP's EO

    Mensagem por skyaway 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 !!!
    Sistemas de 3 VIP's EO NbECx
    Eduardo01
    Eduardo01
    Iniciante
    Iniciante


    Mensagens : 55
    Créditos : 10

    Sistemas de 3 VIP's EO Empty Re: Sistemas de 3 VIP's EO

    Mensagem por Eduardo01 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)
    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : Sistemas de 3 VIP's EO ZgLkiRU
    Mensagens : 5345
    Créditos : 1164

    Sistemas de 3 VIP's EO Empty Re: Sistemas de 3 VIP's EO

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

    @skyaway
    Coloque os créditos do autor.
    Sakuuray775
    Sakuuray775
    Iniciante
    Iniciante


    Mensagens : 44
    Créditos : 30

    Sistemas de 3 VIP's EO Empty Re: Sistemas de 3 VIP's EO

    Mensagem por Sakuuray775 Sáb Fev 25, 2012 11:57 pm

    Tá, e pra o vip acabar, demora quanto tempo ?
    Dooolly
    Dooolly
    Colaborador
    Colaborador


    Medalhas : Sistemas de 3 VIP's EO Trophy12
    Mensagens : 1227
    Créditos : 153

    Ficha do personagem
    Nível: 1
    Experiência:
    Sistemas de 3 VIP's EO Left_bar_bleue0/0Sistemas de 3 VIP's EO Empty_bar_bleue  (0/0)
    Vida:
    Sistemas de 3 VIP's EO Left_bar_bleue30/30Sistemas de 3 VIP's EO Empty_bar_bleue  (30/30)

    Sistemas de 3 VIP's EO Empty Re: Sistemas de 3 VIP's EO

    Mensagem por Dooolly 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
    Eduardo01
    Eduardo01
    Iniciante
    Iniciante


    Mensagens : 55
    Créditos : 10

    Sistemas de 3 VIP's EO Empty Re: Sistemas de 3 VIP's EO

    Mensagem por Eduardo01 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
    giovani18
    giovani18
    Novato
    Novato


    Mensagens : 3
    Créditos : 0

    Sistemas de 3 VIP's EO Empty Re: Sistemas de 3 VIP's EO

    Mensagem por giovani18 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)


    Nando Moura gosta desta mensagem

    Samuka_Maker
    Samuka_Maker
    Aldeia Friend
    Aldeia Friend


    Medalhas : Sistemas de 3 VIP's EO WBLhI
    Mensagens : 1204
    Créditos : 127

    Sistemas de 3 VIP's EO Empty Re: Sistemas de 3 VIP's EO

    Mensagem por Samuka_Maker 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/

    Sistemas de 3 VIP's EO 6f4EA

    Sistemas de 3 VIP's EO Bxvno
    Tópico original/Tópico de Recrutamento

    Conteúdo patrocinado


    Sistemas de 3 VIP's EO Empty Re: Sistemas de 3 VIP's EO

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Dez 12, 2024 7:59 am