[E.O]Add HP e MP nos equipamentos.

Bom, esse tutorial é bem simples, com ele você vai adicionar a opção de ter HP ou MP extra nos seus itens ou os dois ao mesmo tempo, vai da sua escolha hahaha.

Client-Side

Procure pela frmEditor_Item, é deixa a assim.


Criando duas HscrollBar e duas Label com os seguintes (Name); 

HscrollBar = scrlMaxHP e scrlMaxMP

Dentro de cada uma colocar

Código:

Private Sub scrlMaxHP_Change()
    If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub
    lblMaxHP.Caption = "Max HP: " & scrlMaxHP.value
    Item(EditorIndex).MaxVital(HP) = scrlMaxHP.value
End Sub

Private Sub scrlMaxMP_Change()
    If EditorIndex = 0 Or EditorIndex > MAX_ITEMS Then Exit Sub
    lblMaxMP.Caption = "Max MP: " & scrlMaxMP.value
    Item(EditorIndex).MaxVital(MP) = scrlMaxMP.value
End Sub

Label = lblMaxHP e lblMaxMP

Proximo passo

Procure por

Código:

Public Sub ItemEditorInit

Antes de 

Código:

' Basic requirements

Adicionar 

Código:

frmEditor_Item.scrlMaxHP.value = .MaxVital(HP)
frmEditor_Item.scrlMaxMP.value = .MaxVital(MP)

Agora em

Código:

Private Type ItemRec

Depois de

Código:

Paperdoll as long

Coloque

Código:

MaxVital(1 To Vitals.Vital_Count - 1) As Long

Client pronto.

Server-side.

Procure por

Código:

Private Type ItemRec

Depois de

Código:

Paperdoll as long

Coloque

Código:

MaxVital(1 To Vitals.Vital_Count - 1) As Long

Agora procure por 

Function GetPlayerMaxVital

Vai aparece Case HP e Case MP

Em cada um você vai colocar esse codigo

Para HP

Código:

For i = 1 To Equipment.Equipment_Count - 1
                    If Player(index).Equipment(i) > 0 Then
                    If Item(Player(index).Equipment(i)).MaxVital(HP) > 0 Then
                    GetPlayerMaxVital = GetPlayerMaxVital + Item(Player(index).Equipment(i)).MaxVital(HP)
                    End If
                    End If
                    Next

Para MP

Código:

For i = 1 To Equipment.Equipment_Count - 1
                    If Player(index).Equipment(i) > 0 Then
                    If Item(Player(index).Equipment(i)).MaxVital(MP) > 0 Then
                    GetPlayerMaxVital = GetPlayerMaxVital + Item(Player(index).Equipment(i)).MaxVital(MP)
                    End If
                    End If
                    Next

Finalizado o tutorial, teste antes de compilar e salvar.