~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:
2) Mude para:
3) No modTypes, procure por:
4) Troque todo o codigo por esse:
Parte do Client-Side Terminada
5) Abra o Server-Side, vá no modConstants, e procure por:
6) Mude para:
7) No modTypes, procure por:
Troque todo o codigo por esse:
Parte do Server-Side Terminada.
9) Delete todas as contas do seu jogo.
Tutorial terminado, espero que gostem.
~Créditos~
Slash (Adriano)
•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 codigo 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 codigo 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) Delete todas as contas do seu jogo.
Tutorial terminado, espero que gostem.
~Créditos~
Slash (Adriano)