Introdução:
Animação/mapa funciona para fazer uma Tileset entrar em animação.
ex:para criar uma Cachoeira para ficar em movimento.
Vamos lá.

1º Client~Side :

procure por:

Código:

' Layers in a map
Public Enum MapLayer
    Ground = 1
    Mask
    Mask2
    Fringe
    Fringe2
    ' Make sure Layer_Count is below everything else
    Layer_Count
End Enum

Troque por:

Código:

' Layers in a map
Public Enum MapLayer
    Ground = 1
    Mask
    Mask2
    Fringe
    Fringe2
    Anim
    ' Make sure Layer_Count is below everything else
    Layer_Count
End Enum

No ModDirectDraw7 procure por essa sub:

Código:

Public Sub BltMapTile(ByVal x As Long, ByVal y As Long)

Troque ela toda por essa:

Código:

Public Sub BltMapTile(ByVal x As Long, ByVal y As Long)
Dim rec As DxVBLib.RECT
Dim i As Long
   
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    With Map.Tile(x, y)
        For i = MapLayer.Ground To MapLayer.Anim
            ' skip tile?
            If (.Layer(i).Tileset > 0 And .Layer(i).Tileset <= NumTileSets) And (.Layer(i).x > 0 Or .Layer(i).y > 0) Then
                ' sort out rec
                rec.top = .Layer(i).y * PIC_Y
                rec.Bottom = rec.top + PIC_Y
                rec.Left = .Layer(i).x * PIC_X
                rec.Right = rec.Left + PIC_X
                ' render
                If i = 6 Then
                    If MapAnim > 0 Then
                        Call Engine_BltFast(ConvertMapX(x * PIC_X), ConvertMapY(y * PIC_Y), DDS_Tileset(.Layer(i).Tileset), rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
                    End If
                Else
                    Call Engine_BltFast(ConvertMapX(x * PIC_X), ConvertMapY(y * PIC_Y), DDS_Tileset(.Layer(i).Tileset), rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
                End If
            End If
        Next
    End With
   
    ' Error handler
    Exit Sub
   
errorhandler:
    HandleError "BltMapTile", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

No frmEditor_Map adicione um "optLayer" novo, ele vai ser o "optLayer(6)" 6 = array, nomeio de "Anim"

Parte Cliente~Side pronta, agora vamos para o Server~Side:

Procure por:

Código:

' Layers in a map
Public Enum MapLayer
    Ground = 1
    Mask
    Mask2
    Fringe
    Fringe2
    ' Make sure Layer_Count is below everything else
    Layer_Count
End Enum

Mude Para:

Código:

' Layers in a map
Public Enum MapLayer
    Ground = 1
    Mask
    Mask2
    Fringe
    Fringe2
    Anim
    ' Make sure Layer_Count is below everything else
    Layer_Count
End Enum

Agora delete todos os mapas e teste.

Créditos:
OmegaZero e Thalles12 - Por Criar o Sitema
jadieljr -por disponibilizar aqui no Fórum e arrumar o Tópico!

Esse sistema faz com q a tile fique animada, no mapeditor tu escolha a opção Animação, ai quando clica na tile dps no mapa essa tile fica piscando !

Server para fazer Rios, mares, arvores de natal, etc.. diversos tipo de animação !

mano pode atualizar para anim com auto tile pq eu tenho auto tile

cara,vc ressucitou um topico de novembro????,nossa mano,e sem falar q o cara q postou foi banido

Scar escreveu:mano pode atualizar para anim com auto tile pq eu tenho auto tile

Leia as regras
http://www.aldeiarpgbr.com/t186-regras-do-forum#1230

Antes que seja banido, por viver ressuscitando tópicos, o autor do tópico está banido, ele não pode atualizar nada.