Al pegar se mueve el arma y el escudo y susurro.

Este el el link del codigo original:
http://www.gs-zone.org/ft30293_moviemiento_de_arma_al_atacar_dx8.html
Yo lo arreglé, y modifique unas cosas, y anda perfecto.



Buscá en el cliente:

Código:

Public Dialogos As New clsDialogs

Arriba poné

Código:

Public MovEscud As Boolean
Public EstaAtacando As Boolean

Buscá en el módulo tile_engine

Código:

If Not moved Then
        'Stop animations
        .Body.Walk(.Heading).Started = 0
        .Body.Walk(.Heading).FrameCounter = 1
 
        .Arma.WeaponWalk(.Heading).Started = 0
        .Arma.WeaponWalk(.Heading).FrameCounter = 1
 
        .Escudo.ShieldWalk(.Heading).Started = 0
        .Escudo.ShieldWalk(.Heading).FrameCounter = 1
 
        .Moving = False
End If

Y reemplazalo por

Código:

If Not moved Then
        'Stop animations
        .Body.Walk(.Heading).Started = 0
        .Body.Walk(.Heading).FrameCounter = 1
 
If EstaAtacando =False Then
        .Arma.WeaponWalk(.Heading).Started = 0
        .Arma.WeaponWalk(.Heading).FrameCounter = 1
End If
 
If MovEscud =False Then
        .Escudo.ShieldWalk(.Heading).Started = 0
        .Escudo.ShieldWalk(.Heading).FrameCounter = 1
 end if
 
        .Moving = False
End If


Buscá

Código:

Case CustomKeys.BindedKey(eKeyType.mKeyAttack)
            If Shift <> 0 Then Exit Sub
         
            If Not MainTimer.Check(TimersIndex.Arrows, False) Then Exit Sub 'Check if arrows interval has finished.
            If Not MainTimer.Check(TimersIndex.CastSpell, False) Then 'Check if spells interval has finished.
                If Not MainTimer.Check(TimersIndex.CastAttack) Then Exit Sub 'Corto intervalo Golpe-Hechizo
            Else
                If Not MainTimer.Check(TimersIndex.Attack) Or UserDescansar Or UserMeditar Then Exit Sub
            End If
         
            If TrainingMacro.Enabled Then DesactivarMacroHechizos
            If macrotrabajo.Enabled Then DesactivarMacroTrabajo
            Call WriteAttack

Y reemplazalo por

Código:

  Case CustomKeys.BindedKey(eKeyType.mKeyAttack)
            If Shift <> 0 Then Exit Sub
         
            If Not MainTimer.Check(TimersIndex.Arrows, False) Then Exit Sub 'Check if arrows interval has finished.
            If Not MainTimer.Check(TimersIndex.CastSpell, False) Then 'Check if spells interval has finished.
                If Not MainTimer.Check(TimersIndex.CastAttack) Then Exit Sub 'Corto intervalo Golpe-Hechizo
            Else
                If Not MainTimer.Check(TimersIndex.Attack) Or UserDescansar Or UserMeditar Then Exit Sub
            End If
         
            If TrainingMacro.Enabled Then DesactivarMacroHechizos
            If macrotrabajo.Enabled Then DesactivarMacroTrabajo
            Call WriteAttack
            If IScombate = True Then
            EstaAtacando = True
        charlist(UserCharIndex).Arma.WeaponWalk(charlist(UserCharIndex).Heading).Started = 1
            MovEscud = True
        charlist(UserCharIndex).escudo.ShieldWalk(charlist(UserCharIndex).Heading).Started = 1
End If


terminamos ese

Ahora el de privados en consola(a distancia)

SERVER


Buscá

Código:

  Call WriteChatOverHead(UserIndex, chat, .Char.CharIndex, vbBlue)
                            Call WriteChatOverHead(targetUserIndex, chat, .Char.CharIndex, vbBlue)
                            Call FlushBuffer(targetUserIndex)


Y reemplazalo por

Código:

  Call WriteConsoleMsg(UserIndex, "Susurraste> " & chat, FontTypeNames.fonttype_conse)
                            Call WriteConsoleMsg(targetUserIndex, "Te susurraron> " & chat, FontTypeNames.fonttype_conse)
                            Call FlushBuffer(targetUserIndex)


Testiado y funcional

Consola y en cabeza también buscá

Código:

  Call WriteChatOverHead(UserIndex, chat, .Char.CharIndex, vbBlue)
                            Call WriteChatOverHead(targetUserIndex, chat, .Char.CharIndex, vbBlue)
                         

Y abajo poné

Código:

  Call WriteConsoleMsg(UserIndex, "Susurraste> " & chat, FontTypeNames.fonttype_conse)
                            Call WriteConsoleMsg(targetUserIndex, "Te susurraron> " & chat, FontTypeNames.fonttype_conse)
                            Call FlushBuffer(targetUserIndex)