Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


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

    avatar
    ADM 666
    Novato
    Novato


    Mensagens : 10
    Créditos : 1

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

    Mensagem por ADM 666 Qui Mar 23, 2023 10:33 am

    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.
    [E.O]Add HP e MP nos equipamentos. Hpmp10

    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.

    Valentine, Kotol, Uchiha ~, Mizuki e Nando Moura gostam desta mensagem


      Data/hora atual: Qua maio 22, 2024 8:18 am