Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!

Aumentando o Level Maximo

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Aumentando o Level Maximo

Mensagem por thales12 em Dom Jul 03, 2011 1:23 pm

~Descrição~
•Vamos aumentar o level maximo para um valor acima de 255.

~Tutorial~

1) Abra o Client~Side, vá no modConstants, e procure por:


Código:
Public Const MAX_LEVELS As Byte = 100
2)Mude para:


Código:
Public Const MAX_LEVELS As Long= 1000 'Mude para o max level desejado
3) No ModTypes, procure por:

Código:
Private Type PlayerRec
4)Troque todo o código por esse:

Código:
Private Type PlayerRec
    ' General
    Name As String
    Class As Byte
    Sprite As Integer
    Level As Long
    EXP As Long
    Access As Byte
    PK As Byte
    ' Vitals
    Vital(1 To Vitals.Vital_Count - 1) As Long
    ' Stats
    Stat(1 To Stats.stat_count - 1) As Long
    POINTS As Long
    ' Worn equipment
    Equipment(1 To Equipment.Equipment_Count - 1) As Byte
    ' Position
    Map As Integer
    X As Byte
    Y As Byte
    Dir As Byte
    ' Client use only
    MaxHP As Long
    MaxMP As Long
    MaxSP As Long
    XOffset As Integer
    YOffset As Integer
    Moving As Byte
    Attacking As Byte
    AttackTimer As Long
    MapGetTimer As Long
    Step As Byte
End Type
Parte do Client~Side Terminada

5) Abra o Server~Side, vá no modConstants, e procure por:

Código:
Public Const MAX_LEVELS As Byte = 100
6) Mude para:


Código:
Public Const MAX_LEVELS As Long= 1000 'Mude para o max level desejado
7) No ModTypes, procure por:


Código:
Private Type PlayerRec
Troque todo o código por esse:


Código:
Private Type PlayerRec
    ' Account
    Login As String * NAME_LENGTH
    Password As String * NAME_LENGTH
   
    ' General
    Name As String * NAME_LENGTH
    Sex As Byte
    Class As Byte
    Sprite As Integer
    Level As Long
    exp As Long
    Access As Byte
    PK As Byte
    ' Vitals
    Vital(1 To Vitals.Vital_Count - 1) As Long
    ' Stats
    Stat(1 To Stats.Stat_Count - 1) As Long
    POINTS As Long
    ' Worn equipment
    Equipment(1 To Equipment.Equipment_Count - 1) As Byte
    ' Inventory
    Inv(1 To MAX_INV) As PlayerInvRec
    Spell(1 To MAX_PLAYER_SPELLS) As Byte
    ' Position
    Map As Integer
    x As Byte
    y As Byte
    Dir As Byte
End Type

Parte do Server~Side Terminada.

9) se tiver alguma conta criada delete todas as contas do seu jogo, se nao tiver deixa assim msm !Smile

Tutorial terminado, espero que gostem.
avatar
thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 22
Localização : Rio de Janeiro

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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