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

por Pablo Kawan Sáb Dez 20, 2014 2:06 pm

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

NAO AJUDO EM PROJETOS!

~~SÓ FIZ ESSE FIX PQ 3 PESSOAS ME PEDIRAM! E O VALENTINE NÃO ARRUMOU O TUTO DELE~~

Créditos

Dazateam (Rodrigo)

Valentine - Por postar o tópico original

Kawanzii (Pablo ou Kawan) - Por desbugar u-u

por Spooky Sáb Dez 20, 2014 9:24 pm

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

por Benderfb Qua Dez 24, 2014 10:26 pm

Testei e funcionou muito bom Very Happy

por brunouchihakiller Dom Dez 28, 2014 9:35 pm

Realmente muito bom +1 cred, mas teria como adapta-la pra ao invés de linear ela ser do tipo projetil? Ao invez de fazer uma linha ela fazer o percurso ate atingir o numero de SQMs definidos?

por XWlash Dom Dez 28, 2014 10:34 pm

+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.

por Spooky Seg Dez 29, 2014 9:32 am

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

por GalaxyHells Seg Dez 29, 2014 12:36 pm

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

por RonaldsSTARK Qua Nov 01, 2017 8:56 am

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

por silipinho Qua Nov 01, 2017 2:13 pm

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:
[E.O]Spell Linear 100% Funcional (verdadeiro) [FIX] Ghjghj10