Evento Exp

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

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

    default Evento Exp

    Mensagem por Thales12 em Qua Fev 15, 2012 2:59 am

    Bom .. Cabei de fazer o EventoXp e to postando aki ! Smile

    Abra o Server~Side va na frmServer na aba Control crie 1 txtbox com :

    Name: txtEventoEXP
    Caption: 0

    de 2 clicks e adicione:

    Código:
    If Not IsNumeric(txtEventoEXP.Text) Then
      txtEventoEXP.Text = "0"
    End If

    volte a frmServer e do lado da txt crie 1 commandButton com :

    Caption: Começar

    de 2 clicks nele e adicione:

    Código:
    On Error Resume Next
    GlobalMsg "Evento " & txtEventoEXP.Text & " x Ativado!", BrightCyan

    na modCombat na Sub PlayerAttackNPC procure por:

    Código:
     ' Make sure we dont get less then 0
            If Exp < 0 Then
                Exp = 1
            End If

    e em cima adicione:

    Código:
    If Not frmServer.txtEventoEXP.Text = 0 Then
              exp = exp * frmServer.txtEventoEXP.Text
            End If

    na modCombat na Sub PlayerAttackPlayer procure por:

    Código:
    ' Make sure we dont get less then 0
            If exp < 0 Then
                exp = 0
            End If

    em cima adicione:

    Código:
    If Not frmServer.txtEventoEXP.Text = 0 Then
              exp = exp * frmServer.txtEventoEXP.Text
            End If

    Créditos: Thales12 por fazer o sistema, tutorial e postar ! Smile

      Data/hora atual: Dom Set 23, 2018 8:48 am