Como no título, é um sistema de magia de escudo. Este escudo irá receber o dano do jogador em sentido "Player Vs NPC" e "Player Vs Player". O sistema até onde foi testado, funciona na lógica:

[Lógica]
Dano = 100 com Escudo do Jogador = 200
-> Dano = -100 (Saída da Sub) , Escudo do jogador atual = 100

Dano = 200 com Escudo do Jogador = 100
-> Dano = 100 , Escudo do jogador atual = 0 ----> Continua o Dano , dando 100 de dano na vida normal.
[Fim da lógica]

O sistema conta com: 

- Novo vital: Vitals.Shielding;
- Escudo será: Vital da Magia + Porcentagem do HP máximo escolhido no editor + Porcentagem do MP máximo escolhido no editor;
- Quantidade de escudo sendo mostrada no canto superior esquerdo da tela.

OBS. IMPORTANTE: Como o sistema vai adicionar mais um "VitalType", então pode ser necessário a criação de novas contas. Caso seu projeto já esteja online com contas Oficiais, basta criar uma variável no "PlayerRec" nova e indicar como "Escudo" ao invés do "VitalType".

Sem mais delongas, vamos ao sistema, primeiramente vamos começar com o cliente.




- 1x Label, Caption: "% of MP:"
- 1x TextBox, Name: "txtShieldMP" , Caption: " "

Ainda no "frmEditor_Spell" , na parte de "Forms", na "cmbType" , na propriedade "List" , mude isto:

Código:

Damage HP
Damage MP
Heal HP
Heal MP
Warp

 
Para isto:

Código:

Damage HP
Damage MP
Heal HP
Heal MP
Warp
Shielding


Agora, dê dois cliques na "cmbType" e na sua parte lógica, procure isto:

Código:

Spell(EditorIndex).Type = cmbType.ListIndex

E logo abaixo adicione isto:

Código:

'Shield
    If Spell(EditorIndex).Type = SPELL_TYPE_SHIELD Then
        fraShield.Visible = True
    Else
        fraShield.Visible = False
    End If

Agora, dê dois cliques na "txtShieldHP" e adicione isto:

Código:

If Not IsNumeric(txtShieldHP.text) Then Exit Sub
    If Not Len(txtShieldHP.text) > 0 Then Exit Sub
    Spell(EditorIndex).PercVitalHP = txtShieldHP.text

E finalmente, dê dois cliques na "txtShieldMP" e adicione isto:

Código:

If Not IsNumeric(txtShieldMP.text) Then Exit Sub
    If Not Len(txtShieldMP.text) > 0 Then Exit Sub
    Spell(EditorIndex).PercVitalMP = txtShieldMP.text

Agora, em "ModGameEditors", na "Public Sub SpellEditorInit()" , procure por esta parte:

Código:

' find the sound we have set
        If .cmbSound.ListCount >= 0 Then
            For i = 0 To .cmbSound.ListCount
                If .cmbSound.List(i) = Trim$(Spell(EditorIndex).Sound) Then
                    .cmbSound.ListIndex = i
                    SoundSet = True
                End If
            Next
            If Not SoundSet Or .cmbSound.ListIndex = -1 Then .cmbSound.ListIndex = 0
        End If

E logo abaixo adicione isto:

Código:

'Shield
        .txtShieldHP.text = Spell(EditorIndex).PercVitalHP
        .txtShieldMP.text = Spell(EditorIndex).PercVitalMP

Agora, em "ModConstants" , procure por:

Código:

Public Const SPELL_TYPE_WARP As Byte = 4

E logo abaixo adicione:

Código:

Public Const SPELL_TYPE_SHIELD As Byte = 5 'Shield

Agora, em "ModEnumerations", procure por esta parte:

Código:

' Vitals used by Players, Npcs and Classes
Public Enum Vitals
    HP = 1
    MP
    ' Make sure Vital_Count is below everything else
    Vital_Count
End Enum

E substitua por isto:

Código:

' Vitals used by Players, Npcs and Classes
Public Enum Vitals
    HP = 1
    MP
    Shielding
    ' Make sure Vital_Count is below everything else
    Vital_Count
End Enum

Ainda em "ModEnumerations", procure por:

Código:

SPlayerMp

E abaixo adicione isto:

Código:

SPlayerShield

Agora, em "ModHandleData", na "Public Sub InitMessages()", abaixo de:

Código:

HandleDataSub(SPlayerMp) = GetAddress(AddressOf HandlePlayerMp)

Adicione isto:

Código:

HandleDataSub(SPlayerShield) = GetAddress(AddressOf HandlePlayerShield)

Ainda em "ModHandleData", procure pela "Private Sub HandlePlayerMp" , e ABAIXO DESTE SUB , ou seja, logo abaixo depois do primeiro "End Sub", adicione esta Sub:

Código:

Private Sub HandlePlayerShield(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
    
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    Player(MyIndex).Vital(Vitals.Shielding) = Buffer.ReadLong
    Set Buffer = Nothing

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "HandlePlayerShield", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Agora, em "ModDirectDraw7", procure por esta parte:

Código:

' draw FPS
    If BFPS Then
        Call DrawText(TexthDC, Camera.Right - (Len("FPS: " & GameFPS) * 8), Camera.top + 1, Trim$("FPS: " & GameFPS), QBColor(Yellow))
    End If

 
E logo abaixo adicione isto:

Código:

'Draw shield amount if > 0
    If Player(MyIndex).Vital(Vitals.Shielding) > 0 Then
        Call DrawText(TexthDC, Camera.Left, Camera.top + 12, Trim$("Shield: " & Player(MyIndex).Vital(Vitals.Shielding)), QBColor(Yellow))
    End If

Finalmente, em "ModTypes" procure pela "Private Type SpellRec" e logo abaixo ANTES DO PRIMEIRO "End Type", adicione isto:

Código:

'Shield
    PercVitalHP As Long
    PercVitalMP As Long

Agora o client~side está pronto, vamos ao server~side.