Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

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

Copiar Sprite

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Copiar Sprite em Dom 06 Nov 2011, 08:04

Ricardo


Membro
Membro
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

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum