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


2 participantes

    Multiplicador de Experiência

    Ricardo
    Ricardo
    Ocasional
    Ocasional


    Mensagens : 162
    Créditos : 71

    Ficha do personagem
    Nível: 1
    Experiência:
    Multiplicador de Experiência Left_bar_bleue0/0Multiplicador de Experiência Empty_bar_bleue  (0/0)
    Vida:
    Multiplicador de Experiência Left_bar_bleue30/30Multiplicador de Experiência Empty_bar_bleue  (30/30)

    Multiplicador de Experiência Empty Multiplicador de Experiência

    Mensagem por Ricardo Sáb Out 22, 2011 12:59 pm

    Server Side

    Crie um checkBox, um textBox, um timer e 2 textBox com as seguintes configurações

    checkBox

    Nome: chkMult


    Timer

    Nome: tmrMult
    Intervalo = 1
    Enabled = False


    TextBox1

    Nome: txtMult
    Texto: Tempo


    TextBox2

    Nome: txtMult2
    Texto: experiência


    Dentro do timer adicione:

    Código:
    chkMult.Value = 0
    tmrMult.Enabled = False


    Dentro do checkBox adicione:

    Código:
    If chkMult.Value = 1 Then
    tmrMult.Interval = txtMult.Text * 1000
    tmrMult.Enabled = True
    Call GlobalMsg(" A experiência está sendo multiplicada por " & txtMult2.Text, 1)
    End If


    Dentro do textBox1 adicione:

    Código:
    If chkMult.Value = 1 Then
    tmrMult.Interval = txtMult.Text * 1000
    End If


    E no textBox2

    Código:
    If chkMult.Value = 1 Then
    Call GlobalMsg("The experiment is being multiplied by " & txtMult2.Text, 1)
    End If


    Procure por:

    Código:
            ' Calculate exp to give attacker
            exp = NPC(npcNum).exp


    E acima adicione:

    Código:
            ' Multiplicador de Exp
            If frmServer.chkMult.Value = 1 Then
                exp = exp * frmServer.txtMult2.Text
            End If


    Procure por:

    Código:
            ' Calculate exp to give attacker
            exp = (GetPlayerExp(victim) \ 10)


    Abaixo adicione:

    Código:
            ' Multiplicador de Exp
            If frmServer.chkMult.Value = 1 Then
                exp = exp * frmServer.txtMult2.Text
            End If


    Creditos:

    A mim
    GustavoNunes
    GustavoNunes
    Iniciante
    Iniciante


    Mensagens : 72
    Créditos : 2

    Multiplicador de Experiência Empty Re: Multiplicador de Experiência

    Mensagem por GustavoNunes Ter Jul 24, 2012 3:30 pm

    Gostaria de saber, como usar.

      Data/hora atual: Sex Abr 19, 2024 9:30 am