MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

Spell de Copiar a Sprite do Player

4 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse Origins :: Tutoriais

Ir para baixo

Spell de Copiar a Sprite do Player Empty Spell de Copiar a Sprite do Player

Mensagem por alenaldo Qui 03 Jan 2013, 22:55

Client~Side

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

Name: chkCSprite
Caption: Copiar Sprite


E adicione isso dentro dele:

CÓDIGO:
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:
Código:
CSprite as Boolean


Procure por:

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


E abaixo adicione:

CÓDIGO:
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:
Código:
CSprite as Boolean


Procure por:

CÓDIGO:
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:
Código:
  Dim SpellCastType As Long


Adicione:

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


Procure por:

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


Acima adicione:

CÓDIGO:
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
Eu (por disponibiliza aqui)
alenaldo
alenaldo
Membro
Membro

Mensagens : 128

http://naruto-new-empire.webnode.com

Ir para o topo Ir para baixo

Spell de Copiar a Sprite do Player Empty Re: Spell de Copiar a Sprite do Player

Mensagem por Over~ Qui 03 Jan 2013, 22:56

Nossa cara muito bom parabéns.
+1Cred.

Abraços,
Over~.
Over~
Over~
Membro Vitalicio
Membro Vitalicio

Mensagens : 565

Ir para o topo Ir para baixo

Spell de Copiar a Sprite do Player Empty Re: Spell de Copiar a Sprite do Player

Mensagem por alenaldo Qui 03 Jan 2013, 23:01

Over~ escreveu:Nossa cara muito bom parabéns.
+1Cred.

Abraços,
Over~.
Ai seu PM la , eu jogo sim Naruto Force manda Skype face algo de contato, ainda não posso manda PM Smile
alenaldo
alenaldo
Membro
Membro

Mensagens : 128

http://naruto-new-empire.webnode.com

Ir para o topo Ir para baixo

Spell de Copiar a Sprite do Player Empty Re: Spell de Copiar a Sprite do Player

Mensagem por Valentine Sex 04 Jan 2013, 11:52

Ele fica com a roupa copiada para SEMPRE? e cara pelo amor de deus, não usa PlayerWarp, crie um send que envia apenas o novo gráfico do jogador, é muito mais rápido e leve.
avatar
Valentine
Membro de Honra
Membro de Honra

Mensagens : 472

http://www.aldeiarpgbr.com

Ir para o topo Ir para baixo

Spell de Copiar a Sprite do Player Empty Re: Spell de Copiar a Sprite do Player

Mensagem por Caio~ C10 Sex 04 Jan 2013, 18:59

Pra colocar tempo eu ainda não fiz, mas pra não usar PlayerWarp basta substituir essa parte:

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

Por essa:
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 UpSprite(index)
                Exit Sub
            ElseIf targetType = TARGET_TYPE_NPC Then
                Call SetPlayerSprite(index, Npc(TempPlayer(index).target).Sprite)
                Call UpSprite(index)
                Exit Sub
            End If
        End If

Agora crie essa sub no final do módulo:
Código:
Private Sub UpSprite(ByVal index As Long)
    Call SendPlayerData(index)
End Sub

Muito simples, e realmente é muito mais leve que usar PlayerWarp.
Caio~ C10
Caio~ C10
Membro Veterano
Membro Veterano

Mensagens : 803

http://www.mmorpgbr.com/t10695-evolution-games

Ir para o topo Ir para baixo

Spell de Copiar a Sprite do Player Empty Re: Spell de Copiar a Sprite do Player

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse Origins :: Tutoriais

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