[E.O]Spell Linear 100% Funcional (verdadeiro) [FIX]

Tópico retirado da ALDEIARPG(MMORPGBR)

Bem vc deve estar se perguntando pra que outro tópico de spell linear, sendo que existes vários outros aqui. 
Resposta: é que todos os que existem não funcionam 100%, sempre tem algum bug, ou algo do tipo e esse meu sim funciona 100%, chega de enrolar e vamos para o tutorial.


antes de mais nada Spell Linear, é spell em area ou magia reta.


1° Abra o sourcer do Cliente


procure por:

Código:

Public Const SPELL_TYPE_WARP As Byte = 4

abaixo adicione:

Código:

Public Const SPELL_TYPE_LINEAR As Byte = 5 ' ou o proximo numero

abra a FrmEditor_Spell, de 2 cliques na cmbType e adicione:

Código:

Spell(EditorIndex).Type = cmbType.ListIndex
    If cmbType.text = "Linear" Then
        scrlRange.Value = 0
        chkAOE.Value = 1
    End If

agora adicione no final da lista:

Linear

Cliente pronto, agora vamos para o Servidor~

na sub Public Sub CastSpell procure por:

Código:

Dim x, y As Long

e em baixo adicione:

Código:

Dim Linha, Calculate As Long

ainda na mesma sub em procure por

Código:

Case 2 ' targetted

acima do END SELECT adicione:

Código:

Case SPELL_TYPE_LINEAR
                        DidCast = True
                        Linha = 1
                        Do While Linha < Spell(spellnum).AoE
                
                            Select Case GetPlayerDir(index)
                
                                Case DIR_UP
                                    Calculate = GetPlayerY(index) - Linha
                                    If Calculate <= 0 Then Exit Sub
                                    If Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index) - Linha).Type = TILE_TYPE_BLOCKED Then Exit Sub
                                    SendAnimation GetPlayerMap(index), Spell(spellnum).SpellAnim, GetPlayerX(index), GetPlayerY(index) - Linha
                                    IsUseLinear index, spellnum, Vital, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index) - Linha
                                    
                                Case DIR_DOWN
                                    Calculate = GetPlayerY(index) + Linha
                                    If Calculate >= Map(Linha).MaxY Then Exit Sub
                                    If Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index) + Linha).Type = TILE_TYPE_BLOCKED Then Exit Sub
                                    SendAnimation GetPlayerMap(index), Spell(spellnum).SpellAnim, GetPlayerX(index), GetPlayerY(index) + Linha
                                    IsUseLinear index, spellnum, Vital, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index) + Linha
                                Case DIR_LEFT
                                    Calculate = GetPlayerX(index) - Linha
                                    If Calculate <= 0 Then Exit Sub
                                    If Map(GetPlayerMap(index)).Tile(GetPlayerX(index) - Linha, GetPlayerY(index)).Type = TILE_TYPE_BLOCKED Then Exit Sub
                                    SendAnimation GetPlayerMap(index), Spell(spellnum).SpellAnim, GetPlayerX(index) - Linha, GetPlayerY(index)
                                    IsUseLinear index, spellnum, Vital, GetPlayerMap(index), GetPlayerX(index) - Linha, GetPlayerY(index)
                                Case DIR_RIGHT
                                    Calculate = GetPlayerX(index) + Linha
                                    If Calculate <= 0 Then Exit Sub
                                    If Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).Type = TILE_TYPE_BLOCKED Then Exit Sub
                                    SendAnimation GetPlayerMap(index), Spell(spellnum).SpellAnim, GetPlayerX(index) + Linha, GetPlayerY(index)
                                    IsUseLinear index, spellnum, Vital, GetPlayerMap(index), GetPlayerX(index) + Linha, GetPlayerY(index)
                            End Select
                          Linha = Linha + 1
                        Loop

em baixo da Public Sub StunNPC


adicione:

Código:

Function IsUseLinear(ByVal index As Integer, ByVal spellnum As Integer, ByVal Vital As Long, ByVal Mapa As Integer, ByVal x As Byte, ByVal y As Byte)
        Dim i As Long

        '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, 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, Vital, spellnum
        Next
    End Function

abaixo de:
CÓDIGO:

Código:

Public Const SPELL_TYPE_WARP As Byte = 4

 
adicione:
CÓDIGO:

Código:

Public Const SPELL_TYPE_LINEAR As Byte = 5

acho que é só, caso de algum erro me informe aqui no TÓPICO.


obs: spell baseado nos status, funciona com este tutorial :)

PARA QUEM QUISER EM FOR EM VEZ DE DO WHILE Troque a case SPELL_TYPE_LINEAR por essa:

Código:

Case SPELL_TYPE_LINEAR
                        DidCast = True
                        for Linha =1 < Spell(spellnum).AoE
                
                            Select Case GetPlayerDir(index)
                
                                Case DIR_UP
                                    Calculate = GetPlayerY(index) - Linha
                                    If Calculate <= 0 Then Exit Sub
                                    If Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index) - Linha).Type = TILE_TYPE_BLOCKED Then Exit Sub
                                    SendAnimation GetPlayerMap(index), Spell(spellnum).SpellAnim, GetPlayerX(index), GetPlayerY(index) - Linha
                                    IsUseLinear index, spellnum, Vital, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index) - Linha
                                    
                                Case DIR_DOWN
                                    Calculate = GetPlayerY(index) + Linha
                                    If Calculate >= Map(Linha).MaxY Then Exit Sub
                                    If Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index) + Linha).Type = TILE_TYPE_BLOCKED Then Exit Sub
                                    SendAnimation GetPlayerMap(index), Spell(spellnum).SpellAnim, GetPlayerX(index), GetPlayerY(index) + Linha
                                    IsUseLinear index, spellnum, Vital, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index) + Linha
                                Case DIR_LEFT
                                    Calculate = GetPlayerX(index) - Linha
                                    If Calculate <= 0 Then Exit Sub
                                    If Map(GetPlayerMap(index)).Tile(GetPlayerX(index) - Linha, GetPlayerY(index)).Type = TILE_TYPE_BLOCKED Then Exit Sub
                                    SendAnimation GetPlayerMap(index), Spell(spellnum).SpellAnim, GetPlayerX(index) - Linha, GetPlayerY(index)
                                    IsUseLinear index, spellnum, Vital, GetPlayerMap(index), GetPlayerX(index) - Linha, GetPlayerY(index)
                                Case DIR_RIGHT
                                    Calculate = GetPlayerX(index) + Linha
                                    If Calculate <= 0 Then Exit Sub
                                    If Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).Type = TILE_TYPE_BLOCKED Then Exit Sub
                                    SendAnimation GetPlayerMap(index), Spell(spellnum).SpellAnim, GetPlayerX(index) + Linha, GetPlayerY(index)
                                    IsUseLinear index, spellnum, Vital, GetPlayerMap(index), GetPlayerX(index) + Linha, GetPlayerY(index)
                            End Select
                        Next

Vlw Cara, Funcionou +1 Cred 
Tu é o cara '-'

Testei e funcionou muito bom

+1 kawan, u_u devem ter te enchido muito pra você postar algo cara, e bruno, tem como, já vi um tutorial desse tipo mas foi em outro fórum, se eu tiver salvo aqui em algum lugar posto com os créditos mas não é certeza.

Kross escreveu:+1 kawan, u_u devem ter te enchido muito pra você postar algo cara, e bruno, tem como, já vi um tutorial desse tipo mas foi em outro fórum, se eu tiver salvo aqui em algum lugar posto com os créditos mas não é certeza.

é, eu perturbei muito no skype e.e
+1 kawan '-'

da mesma forma que vc pertubou ele eu te pertubo pra modificar a minha engine e vc deve saber como é ficar esperando neh, seu...

Bom dia, onde eu devo colocar o "Linear"??? Eu fiz o tutorial mas na hora de criar a spell não aparece a opção Linear...

cara eu usei esse tutorial aqui e funciona corretamente. A lista que que é pra por o Linear é o cbmType (um combobox na frmEditor_Spell q nada mais é que a janela de edição das spells), é o primeiro combobox do editor de magias que vc escolhe o tipo de magia q vai ser se é damage HP, damage MP ou Heal HP... ai vc clica nesse combobox e la nas propriedade voc clica no list e adiciona ao fim da lista o "Linear" (sem as aspas)!
Exemplo:


OBS:Talvez o teu nao tenha o Warp e o Buff mas vc simplesmente adiciona o Linear a baixo do que tiver na sua lista! Espero ter ajudado

CÓDIGO:

Código:

Case 2 ' targetted