Animaçao De Mapa

    Compartilhe
    avatar
    FuckStyle
    Membro Ativo

    Mensagens : 49
    Level : 3
    Data de inscrição : 02/11/2011

    default Animaçao De Mapa

    Mensagem por FuckStyle em Qui Nov 03, 2011 4:59 pm

    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 pelo sistema e tutorial

    Créditos:FuckStyle Por trazer ao forum
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Re: Animaçao De Mapa

    Mensagem por Thales12 em Qui Nov 03, 2011 10:05 pm

    Cade os meus créditos ? '-'
    avatar
    FuckStyle
    Membro Ativo

    Mensagens : 49
    Level : 3
    Data de inscrição : 02/11/2011

    default Re: Animaçao De Mapa

    Mensagem por FuckStyle em Qui Nov 03, 2011 11:25 pm

    Esse tuto é do omegaZero , foi voce que fez ? '-'
    avatar
    math320
    Membro

    Mensagens : 9
    Level : 0
    Data de inscrição : 17/02/2012

    default Re: Animaçao De Mapa

    Mensagem por math320 em Dom Fev 26, 2012 2:45 am

    Poderia atualizalo para autotile?
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Re: Animaçao De Mapa

    Mensagem por Thales12 em Sab Mar 03, 2012 4:21 am

    nao entendo math '-'
    explique melhor

    Conteúdo patrocinado

    default Re: Animaçao De Mapa

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Dom Nov 18, 2018 11:39 pm