Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.
Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.

Você não está conectado. Conecte-se ou registre-se

Copiar sprite

Ir para baixo  Mensagem [Página 1 de 1]

1Copiar sprite Empty Copiar sprite Sex Fev 17, 2012 12:59 pm

Ricardo

Ricardo
Moderador Local
Moderador Local

Client~Side

Na frmEditor_Spel crie um chekbox com as configurações:

Name: chkCSprite
Caption: Copiar Sprite


E adicione isso dentro dele:

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


Em Type Spellrec adicione no final:

Código:
CSprite as Boolean


Procure por:

Código:
        If Spell(EditorIndex).IsAoE Then
            .chkAOE.Value = 1
        Else
            .chkAOE.Value = 0
        End If


E abaixo adicione:

Código:
        If Spell(EditorIndex).CSprite Then
            .chkCSprite.Value = 1
        Else
            .chkCSprite.Value = 0
        End If


Serve~side

Em Type Spellrec adicione no final:

Código:
CSprite as Boolean


Procure por:

Código:
Public Sub CastSpell(ByVal Index As Long, ByVal spellslot As Long, ByVal target As Long, ByVal targetType As Byte)


Abaixo de:

Código:
    Dim SpellCastType As Long


Adicione:

Código:
    Dim NpcTarget As String, PlayerTarget As String


Procure por:

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


Acima adicione:

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


Creditos:

Ricardo

Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos