Name: chkCSprite
Caption: Copiar Sprite

Código:

    If chkCSprite.Value = 0 Then
        Spell(EditorIndex).CSprite = False
    Else
        Spell(EditorIndex).CSprite = True
    End If

Código:

CSprite as Boolean

Código:

        If Spell(EditorIndex).IsAoE Then
            .chkAOE.Value = 1
        Else
            .chkAOE.Value = 0
        End If

Código:

        If Spell(EditorIndex).CSprite Then
            .chkCSprite.Value = 1
        Else
            .chkCSprite.Value = 0
        End If

Código:

CSprite as Boolean

Código:

Public Sub CastSpell(ByVal Index As Long, ByVal spellslot As Long, ByVal target As Long, ByVal targetType As Byte)

Código:

    Dim SpellCastType As Long

Código:

    Dim NpcTarget As String, PlayerTarget As String

Código:

    ' find out what kind of spell it is! self cast, target or AOE

Código:

    ' Copiar Sprite
    If Spell(spellnum).CSprite = True Then
        If targetType = TARGET_TYPE_PLAYER Then
            Call SetPlayerSprite(Index, Player(TempPlayer(Index).target).Sprite)
            Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index))
            Exit Sub
        ElseIf targetType = TARGET_TYPE_NPC Then
            Call SetPlayerSprite(Index, NPC(TempPlayer(Index).target).Sprite)
            Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index))
            Exit Sub
        End If
    End If