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
» Pokémon Genesis Online! (PGO)
Qua 05 Jul 2017, 17:08 por Lexar

» Tileset Converter to MV
Sex 12 Maio 2017, 13:07 por Douggi

» [Dúvida] Como tirar a porcentagem de esquiva
Ter 09 Maio 2017, 22:15 por Neil Flame Runner

» Pack Resources, Sprites e etc
Qua 23 Dez 2015, 09:30 por raydengv

» Download RPG Maker 2003 + RTP em português
Ter 22 Dez 2015, 08:14 por ::KimMax::

» Fantasy Art Online
Dom 18 Out 2015, 16:42 por daviih123

» Você vai ter medo do Nerve gear?
Sab 25 Jul 2015, 16:02 por Kirito-kun

» O Barato é louco
Sab 27 Jun 2015, 15:26 por Halt

» Download RPG Maker 2000 + RTP em português
Qui 21 Maio 2015, 19:28 por Wismael

» Divulgando meu grupo e página do Facebook
Ter 19 Maio 2015, 13:06 por Halt


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

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

1 Adcionar mais de 255 ou 250 em stats em Dom 13 Jan 2013, 12:00

Halt

avatar
Administrador
Administrador
thales12 escreveu:e.e nao sei qual seria o nome ideal para o topico e.e, mais se alguem souber 1 nome melhor me fale!

bom.. mts tem me pedido para fazer 1 tutorial de como add mais de 255 ou 250 pts em 1 stat, então ta ai o tutorial

No Client~Side procure por:

Código:
If GetPlayerStat(Index, x) < 255 Then

ou

Código:
If GetPlayerStat(Index, x) < 250 Then

e mude para:

Código:
If GetPlayerStat(Index, x) < MAX_LONG Then

dps procure por:

Código:
If Index > MAX_PLAYERS Then Exit Sub
    If Value <= 0 Then Value = 1
    If Value > MAX_BYTE Then Value = MAX_BYTE
    Player(Index).Stat(Stat) = Value

e mude para:

Código:
If Index > MAX_PLAYERS Then Exit Sub
    If Value <= 0 Then Value = 1
    If Value > MAX_LONG Then Value = MAX_LONG
    Player(Index).Stat(Stat) = Value

dps na Private Type PlayerRec procure por:

Código:
Stat(1 To Stats.Stat_Count - 1) As Byte

e mude para:

Código:
Stat(1 To Stats.Stat_Count - 1) As Long

Client~Side terminado, agora no Server~Side procure por:

Código:
If GetPlayerRawStat(Index, PointType) >= 255 Then

ou

Código:
If GetPlayerRawStat(Index, PointType) >= 250 Then

e mude para:

Código:
If GetPlayerRawStat(Index, PointType) >= MAX_LONG Then

Agora no final da modConstants adicione:

Código:
'values
Public Const MAX_BYTE As Byte = 255
Public Const MAX_INTEGER As Integer = 32767
Public Const MAX_LONG As Long = 2147483647

dps na Private Type PlayerRec procure por:

Código:
Stat(1 To Stats.Stat_Count - 1) As Byte

e mude para:

Código:
Stat(1 To Stats.Stat_Count - 1) As Long
Acabou ;D
Simples e Fácil.

Créditos: A Mim Thales12


__________________________________________

Ei Convidado, sim você mesmo! Ajude o fórum à crescer postando coisas úteis, dê sugestões para melhorar-mos e divulgue o fórum.

Step inside, see the devil in I.

Gifts-
Fantasy - Fantasy - Fantasy - ~Razor - Darkmel

Zerei a internet
Ver perfil do usuário http://arenarpgmaker.eclipserpg.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum