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.

[Tutorial]Spell linear com direção

+7
GoldSlash
Hitsugaya Kuchiki
Steel
guifs
KURIZZARD²
MrMota
dazateam
11 participantes

Ir para baixo

[Tutorial]Spell linear com direção Empty [Tutorial]Spell linear com direção

Mensagem por dazateam Sáb 25 maio 2013, 11:52

uma pergunta que pode ser feita~

Otro sistema de spell linear?
não isso só faiz vc escolhe uma animação pra cada direção


antes de mais nada vc precissa desse tutorial de spell linear (Clique aqui)

Começando;


Client~side

procure por:
Código:
Private Sub scrlAnim_Change ()

substitua toda essa sub por:
Código:
Private Sub scrlAnim_Change()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

If Not cmbType.text = "Linear" Then
If scrlAnim.Value > 0 Then
        lblAnim.Caption = "Animation: " & Trim$(Animation(scrlAnim.Value).Name)
Else
        lblAnim.Caption = "Animation: None"
End If
Else
        If scrlAnim.Value > 0 Then
        lblAnim.Caption = "Up Animation: " & Trim$(Animation(scrlAnim.Value).Name)
Else
        lblAnim.Caption = "Up Animation: None"
End If
End If
Spell(EditorIndex).SpellAnim = scrlAnim.Value

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

no final dessa form adicione:
Código:
Private Sub scrlAnimDown_Change()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If scrlAnim.Value > 0 Then
        lblAnimDown.Caption = "Down Animation: " & Trim$(Animation(scrlAnimDown.Value).Name)
Else
        lblAnimDown.Caption = "Down Animation: None"
End If
Spell(EditorIndex).SpellAnimDown = scrlAnimDown.Value

' Error handler
Exit Sub
errorhandler:
HandleError "scrlAnimDown_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
Private Sub scrlAnimLeft_Change()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If scrlAnimLeft.Value > 0 Then
        lblAnimLeft.Caption = "Left Animation: " & Trim$(Animation(scrlAnimLeft.Value).Name)
Else
        lblAnimLeft.Caption = "Animation: None"
End If
Spell(EditorIndex).SpellAnimLeft = scrlAnimLeft.Value

' Error handler
Exit Sub
errorhandler:
HandleError "scrlAnimLeft_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
Private Sub scrlAnimRight_Change()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If scrlAnimRight.Value > 0 Then
        lblAnimRight.Caption = "Right Animation: " & Trim$(Animation(scrlAnimRight.Value).Name)
Else
        lblAnimRight.Caption = "Right Animation: None"
End If
Spell(EditorIndex).SpellAnimRight = scrlAnimRight.Value

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

procure por:
Código:
Private type SpellRec

em baixo de:
Código:
SpellAnim As Long

adicione:
Código:
SpellAnimRight As Long
SpellAnimDown As Long
SpellAnimLeft As Long

agora vai n form do editor d spell e crie algo mais o menos assim:
Spoiler:

client pronto agora vamos para o Serv~

procure por:
Código:
Tipo privado SpellRec

desça até achar:
Código:
SpellAnim As Long

em baixo adicione:
Código:
SpellAnimRight As Long
SpellAnimDown As Long
SpellAnimLeft As Long

procure por:
Código:
Function IsUseLinear(ByVal index As Integer, ByVal SpellNum As Integer, ByVal Mapa As Integer, ByVal x As Byte, ByVal y As Byte)

e substitua por:
Código:
Function IsUseLinear(ByVal index As Integer, ByVal SpellNum As Integer, ByVal Mapa As Integer, ByVal x As Byte, ByVal y As Byte)
        Dim i As Long
       
        Select Case GetPlayerDir(index)
       
                Case DIR_UP
                        SendAnimation Mapa, Spell(SpellNum).SpellAnim, x, y
                Case DIR_RIGHT
                        SendAnimation Mapa, Spell(SpellNum).SpellAnimRight, x, y
                Case DIR_DOWN
                        SendAnimation Mapa, Spell(SpellNum).SpellAnimDown, x, y
                Case DIR_LEFT
                        SendAnimation Mapa, Spell(SpellNum).SpellAnimLeft, x, y
        End Select
        'Loop Global Npc
        For i = 1 To MAX_MAP_NPCS
                If MapNpc(Mapa).Npc(i).Num > 0 And MapNpc(Mapa).Npc(i).x = x And MapNpc(Mapa).Npc(i).y = y And MapNpc(Mapa).Npc(i).Vital(HP) > 0 Then PlayerAttackNpc index, i, Spell(SpellNum).Vital, SpellNum
        Next
        'Loop Global Player
        For i = 1 To Player_HighIndex
                If GetPlayerMap(i) = Mapa And GetPlayerX(i) = x And GetPlayerY(i) = y Then PlayerAttackPlayer index, i, Spell(SpellNum).Vital, SpellNum
        Next
End Function


Pronto Smile

Créditos;
Blizzard
Mortal Angels
Dazateam


Última edição por dazateam em Sáb 01 Jun 2013, 16:32, editado 1 vez(es)
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por MrMota Sáb 25 maio 2013, 12:07

Animação pra cada direção, tipo: soltar a spell linear pra direita e a animação dela ser indo pra direita e soltar pra esquerda, a animação ao contrário?

Legal (:
MrMota
MrMota
Membro Veterano
Membro Veterano

Mensagens : 918

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por dazateam Sáb 25 maio 2013, 12:22

MrMota escreveu:Animação pra cada direção, tipo: soltar a spell linear pra direita e a animação dela ser indo pra direita e soltar pra esquerda, a animação ao contrário?

Legal (:

isso mais vc pd escolhe em deixar todas elas diferentes ^^
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por KURIZZARD² Sáb 25 maio 2013, 14:47

Amigo esse seu codigo eu axo que esta incopleto

Spoiler:

Eu acredito que falto o que fa ir para cima ....

SpellAnimUpown As long

Axo que é assim que escreve '-' se eu tiver errado me corrija Wink
KURIZZARD²
KURIZZARD²
Membro
Membro

Mensagens : 238

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por guifs Sáb 25 maio 2013, 15:12

e se criar uma spell q vá para todos os lados,ela fará um cruz?R: não .-.
guifs
guifs
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por Steel Sáb 25 maio 2013, 15:36

obrigado vc salvo meu projeto
Steel
Steel
Membro Junior
Membro Junior

Mensagens : 77

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por dazateam Sáb 25 maio 2013, 15:43

KURIZZARD² escreveu:Amigo esse seu codigo eu axo que esta incopleto

Spoiler:

Eu acredito que falto o que fa ir para cima ....

SpellAnimUpown As long

Axo que é assim que escreve '-' se eu tiver errado me corrija Wink

KURIZZARD² a animação "up" é a animação normal q vc escolhe quando é spell em area..

c der algum erro só mudar a caption da label:
Código:
Animation: None
pra
Código:
 Up Animation: None
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por Steel Seg 27 maio 2013, 19:29

Aew tem como vc aruma o topico pq tem partes em portugues e da dando erro aqui
Steel
Steel
Membro Junior
Membro Junior

Mensagens : 77

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por Hitsugaya Kuchiki Seg 27 maio 2013, 20:28

KURIZZARD² escreveu:Amigo esse seu codigo eu axo que esta incopleto

Spoiler:

Eu acredito que falto o que fa ir para cima ....

SpellAnimUpown As long

Axo que é assim que escreve '-' se eu tiver errado me corrija Wink

Não, o sistema não está incompleto, ele utilizou o scroll de spell já existente e fez um complemento.
Não testei o sistema, apenas vi de cabeça e parece funcionar, bom conteúdo, continue assim senhor membro!
Hitsugaya Kuchiki
Hitsugaya Kuchiki
Membro
Membro

Mensagens : 153

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por GoldSlash Seg 27 maio 2013, 20:32

Muito bom cara gostei...
Parece funcional.
GoldSlash
GoldSlash
Membro Sênior
Membro Sênior

Mensagens : 383

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por Ricardo Seg 27 maio 2013, 21:17

Bom primeiramente a ideia é boa, mas o sistema não. Não recomendo usar, isso com certeza deve dar lag pra caramba. Dicas:

  • Ao invés de usar "For" use "^" (Potenciação)
  • Não envie vários comandos de animação, envio somente 1, só quem em área.
Ricardo
Ricardo


Mensagens : 1044

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por Steel Sex 31 maio 2013, 15:11

ow amigo aruma o tutorial por favor
Steel
Steel
Membro Junior
Membro Junior

Mensagens : 77

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por dazateam Sex 31 maio 2013, 16:26

Steel escreveu:ow amigo aruma o tutorial por favor

arruma oq ?

tah bem explicado u.u

kk' Smile
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por LoadinGZ Sex 31 maio 2013, 20:41

Eu ja ia perguntar se fazia uma Cruz, como o cara disse que nao..... Brigadao belo tuto.
LoadinGZ
LoadinGZ
Membro
Membro

Mensagens : 205

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por Steel Sex 31 maio 2013, 22:56

Isso


Spoiler:

Spoiler:

Olha Como aparece quando eu coloco no vb

Spoiler:

Acho que e pq os commandos ta em portugues e o vb so le ingles ~~ ajuda pf
Steel
Steel
Membro Junior
Membro Junior

Mensagens : 77

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por GoldSlash Sáb 01 Jun 2013, 04:55

Ricardo escreveu:Bom primeiramente a ideia é boa, mas o sistema não. Não recomendo usar, isso com certeza deve dar lag pra caramba. Dicas:

  • Ao invés de usar "For" use "^" (Potenciação)
  • Não envie vários comandos de animação, envio somente 1, só quem em área.

Que bosta, pra que potenciação, for é muito melhor, ocupa bem menos memória.
Potenciação o caralho.

O melhor seria for each.
GoldSlash
GoldSlash
Membro Sênior
Membro Sênior

Mensagens : 383

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por dazateam Sáb 01 Jun 2013, 13:06

goldslash escreveu:
Ricardo escreveu:Bom primeiramente a ideia é boa, mas o sistema não. Não recomendo usar, isso com certeza deve dar lag pra caramba. Dicas:

  • Ao invés de usar "For" use "^" (Potenciação)
  • Não envie vários comandos de animação, envio somente 1, só quem em área.

Que bosta, pra que potenciação, for é muito melhor, ocupa bem menos memória.
Potenciação o caralho.

O melhor seria for each.

sei nem q merda vcs tao falano kkkkkkkkkkkkkkkkkk

Smile
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por GoldSlash Sáb 01 Jun 2013, 16:16

dazateam escreveu:
sei nem q merda vcs tao falano kkkkkkkkkkkkkkkkkk
Smile

KKKK tranquilos man... Nos estava discutindo um comando, mas pode continuar usando for. É claro q é um dos melhores...
Aliás gostei bastante do seu sistema, muito bom cara.
GoldSlash
GoldSlash
Membro Sênior
Membro Sênior

Mensagens : 383

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por TheKirin Sáb 01 Jun 2013, 16:18

Ta tudo em português, pq?????? o VB n é brasileiro não ok?
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por dazateam Sáb 01 Jun 2013, 16:29

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk mals ai, alguma coisa traduziu o codigo

ja toh arrumano Smile

qualquer erro só posta

agora vo jooga warface *-----*
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por LoadinGZ Sáb 01 Jun 2013, 16:53

Resposta a Seu Problema: Eclipse Origins é em Inglês, como irá colocar um Código em Português? Não tem Como! Você Próprio Respondeu sua Pergunta!
LoadinGZ
LoadinGZ
Membro
Membro

Mensagens : 205

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por dazateam Sáb 01 Jun 2013, 16:59

LoadinGZ escreveu:Resposta a Seu Problema: Eclipse Origins é em Inglês, como irá colocar um Código em Português? Não tem Como! Você Próprio Respondeu sua Pergunta!

ñ pow o sistema tavah em ingles uns 5 kara uso e funciono ai alguma coisa meio loca traduziu o codigo e dexo ele ai tendeu ? Smile
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por TheKirin Sáb 01 Jun 2013, 20:50

Agora sim, vou testar aqui, +1 cred ^^
TheKirin
TheKirin
Membro Vitalicio
Membro Vitalicio

Mensagens : 561

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por Thales12 Dom 02 Jun 2013, 15:09

mude tudo isso para.

Steel escreveu:Isso


Spoiler:

Spoiler:

Olha Como aparece quando eu coloco no vb

Spoiler:

Acho que e pq os commandos ta em portugues e o vb so le ingles ~~ ajuda pf
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por LoadinGZ Dom 02 Jun 2013, 18:26

Testaram e Funcionou? eu já tive o Mesmo Problema que o seu mais eu Não lembro como eu Resolvi..

No seu Caso Traduziu Razz
LoadinGZ
LoadinGZ
Membro
Membro

Mensagens : 205

Ir para o topo Ir para baixo

[Tutorial]Spell linear com direção Empty Re: [Tutorial]Spell linear com direção

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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