Arena RPG Maker
Olá, visitante!
Seja bem-vindo ao fórum Arena RPG Maker, caso queira aprender sobre criação de jogos, está no fórum certo. Esperamos que possa aprender tanto quanto possa nos ensinar aqui.

Atenciosamente,
Equipe Arena RPG Maker.
Arena RPG Maker
Olá, visitante!
Seja bem-vindo ao fórum Arena RPG Maker, caso queira aprender sobre criação de jogos, está no fórum certo. Esperamos que possa aprender tanto quanto possa nos ensinar aqui.

Atenciosamente,
Equipe Arena RPG Maker.
Arena RPG Maker

Estamos de volta o/ ... Ou não.Eu amo a -Dark
Doações para o fórum abertas, clique aqui e saiba mais.
Últimos assuntos
» Ainda temos gente aqui?
Evento de EXP EmptyQui 25 Nov 2021, 14:04 por Halt

» [Dúvida] Como tirar a porcentagem de esquiva
Evento de EXP EmptySex 19 Nov 2021, 17:14 por Halt

» Pokémon Genesis Online! (PGO)
Evento de EXP EmptyQua 05 Jul 2017, 18:08 por Lexar

» Tileset Converter to MV
Evento de EXP EmptySex 12 maio 2017, 14:07 por Douggi

» Pack Resources, Sprites e etc
Evento de EXP EmptyQua 23 Dez 2015, 12:30 por raydengv

» Download RPG Maker 2003 + RTP em português
Evento de EXP EmptyTer 22 Dez 2015, 11:14 por ::KimMax::

» Fantasy Art Online
Evento de EXP EmptyDom 18 Out 2015, 18:42 por daviih123

» Você vai ter medo do Nerve gear?
Evento de EXP EmptySáb 25 Jul 2015, 17:02 por Kirito-kun

» O Barato é louco
Evento de EXP EmptySáb 27 Jun 2015, 16:26 por Halt

» Download RPG Maker 2000 + RTP em português
Evento de EXP EmptyQui 21 maio 2015, 20:28 por Wismael


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

1Evento de EXP Empty Evento de EXP Seg 14 Jan 2013, 12:43

Halt

Halt
Administrador
Administrador
thales12 escreveu:Bom .. Cabei de fazer o EventoXp e to postando aki ! :)

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 Ativado! Agora você ganhara " & txtEventoEXP.Text & " vezes mais de XP!", 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 ! :)

https://arenarpgmaker.forumeiros.com

Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos