Bug en todos los 12.1 DX8

» 27 Dic 2011 21:51

Este es un bug que traen todos los 12.1 DX8 de GS-Zone, pensé que era solo de mi servidor pero revisando otros servidores me di cuenta que todos tienen este problema.. SOLO LOS 12.1 DX8

Se clonan los NPC y Usuarios.. Ambos se quedan en un mismo target.. Si es un NPC, cuando matas al que no es el clon, el clon deja de moverse y ocupa un target (el mismo en todos los mapas).. Al igual que los usuarios, a diferencia que los usuario cuando salen del rango del clon, el clon deja de moverse en el mismo target pero ocupa dicho espacio.

No encontré la solución aún.

» 27 Dic 2011 21:57

Mmm que raro que no pase en 11.5 dx8 ya que son el mismo engine. Medio raro no??
Para mi es el modulo áreas tendrías que fijarte

» 27 Dic 2011 22:07

Ya me fije en todas esas cosas

Es como un fantasma.. Ya le voy a encontrar la vuelta.

» 27 Dic 2011 22:10

Lanzers escribió:Ya me fije en todas esas cosas Es como un fantasma.. Ya le voy a encontrar la vuelta.

Y cuando lo encuentres postealo que a algunos les va a venir re bien

» 27 Dic 2011 22:20

Eso pienso hacer

Si alguien tiene alguna idea.

» 27 Dic 2011 22:26

Remplaza el sub renderscreen por:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Sub RenderScreen(ByVal tilex As Integer, ByVal tiley As Integer, ByVal PixelOffsetX As Integer, ByVal PixelOffsetY As Integer)
'**************************************************************
'Author: Aaron Perkins
'Last Modify Date: 8/14/2007
'Last modified by: Juan Martín Sotuyo Dodero (Maraxus)
'Renders everything to the viewport
'**************************************************************
    Dim Y           As Long     'Keeps track of where on map we are
    Dim X           As Long     'Keeps track of where on map we are
    Dim screenminY  As Integer  'Start Y pos on current screen
    Dim screenmaxY  As Integer  'End Y pos on current screen
    Dim screenminX  As Integer  'Start X pos on current screen
    Dim screenmaxX  As Integer  'End X pos on current screen
    Dim minY        As Integer  'Start Y pos on current map
    Dim maxY        As Integer  'End Y pos on current map
    Dim minX        As Integer  'Start X pos on current map
    Dim maxX        As Integer  'End X pos on current map
    Dim ScreenX     As Integer  'Keeps track of where to place tile on screen
    Dim ScreenY     As Integer  'Keeps track of where to place tile on screen
    Dim minXOffset  As Integer
    Dim minYOffset  As Integer
    Dim PixelOffsetXTemp As Integer 'For centering grhs
    Dim PixelOffsetYTemp As Integer 'For centering grhs
    
    
    'Figure out Ends and Starts of screen
    screenminY = tiley - HalfWindowTileHeight
    screenmaxY = tiley + HalfWindowTileHeight
    screenminX = tilex - HalfWindowTileWidth
    screenmaxX = tilex + HalfWindowTileWidth
    
    minY = screenminY - TileBufferSize
    maxY = screenmaxY + TileBufferSize
    minX = screenminX - TileBufferSize
    maxX = screenmaxX + TileBufferSize
    
    'Make sure mins and maxs are allways in map bounds
    If minY < XMinMapSize Then
        minYOffset = YMinMapSize - minY
        minY = YMinMapSize
    End If
    
    If maxY > YMaxMapSize Then maxY = YMaxMapSize
    
    If minX < XMinMapSize Then
        minXOffset = XMinMapSize - minX
        minX = XMinMapSize
    End If
    
    If maxX > XMaxMapSize Then maxX = XMaxMapSize
    
    'If we can, we render around the view area to make it smoother
    If screenminY > YMinMapSize Then
        screenminY = screenminY - 1
    Else
        screenminY = 1
        ScreenY = 1
    End If
    
    If screenmaxY < YMaxMapSize Then screenmaxY = screenmaxY + 1
    
    If screenminX > XMinMapSize Then
        screenminX = screenminX - 1
    Else
        screenminX = 1
        ScreenX = 1
    End If
    
    If screenmaxX < XMaxMapSize Then screenmaxX = screenmaxX + 1
    
    'Draw floor layer
    For Y = screenminY To screenmaxY
        For X = screenminX To screenmaxX
            
            'Layer 1 **********************************
            Call DDrawGrhtoSurface(MapData(X, Y).Graphic(1), _
                (ScreenX - 1) * TilePixelWidth + PixelOffsetX, _
                (ScreenY - 1) * TilePixelHeight + PixelOffsetY, _
                0, 1)
            '******************************************
            
            ScreenX = ScreenX + 1
        Next X
        
        'Reset ScreenX to original value and increment ScreenY
        ScreenX = ScreenX - X + screenminX
        ScreenY = ScreenY + 1
    Next Y
    
    'Draw floor layer 2
    ScreenY = minYOffset - TileBufferSize
    For Y = minY To maxY
        ScreenX = minXOffset - TileBufferSize
        For X = minX To maxX
            
            'Layer 2 **********************************
            If MapData(X, Y).Graphic(2).GrhIndex <> 0 Then
                Call DDrawTransGrhtoSurface(MapData(X, Y).Graphic(2), _
                        ScreenX * TilePixelWidth + PixelOffsetX, _
                        ScreenY * TilePixelHeight + PixelOffsetY, _
                        1, 1)
            End If
            '******************************************
            
            ScreenX = ScreenX + 1
        Next X
        ScreenY = ScreenY + 1
    Next Y
    
    'Draw Transparent Layers
    ScreenY = minYOffset - TileBufferSize
    For Y = minY To maxY
        ScreenX = minXOffset - TileBufferSize
        For X = minX To maxX
            PixelOffsetXTemp = ScreenX * TilePixelWidth + PixelOffsetX
            PixelOffsetYTemp = ScreenY * TilePixelHeight + PixelOffsetY
            
            With MapData(X, Y)
                'Object Layer **********************************
                If .ObjGrh.GrhIndex <> 0 Then
                    Call DDrawTransGrhtoSurface(.ObjGrh, _
                            PixelOffsetXTemp, PixelOffsetYTemp, 1, 1)
                End If
                '***********************************************
                
                
                'Char layer ************************************
                If .CharIndex <> 0 Then
                    Call CharRender(.CharIndex, PixelOffsetXTemp, PixelOffsetYTemp)
                End If
                '*************************************************
                
                
                'Layer 3 *****************************************
                If .Graphic(3).GrhIndex <> 0 Then
                    'Draw
                    Call DDrawTransGrhtoSurface(.Graphic(3), _
                            PixelOffsetXTemp, PixelOffsetYTemp, 1, 1)
                End If
                '************************************************
            End With
            
            ScreenX = ScreenX + 1
        Next X
        ScreenY = ScreenY + 1
    Next Y
    
    If Not bTecho Then
        'Draw blocked tiles and grid
        ScreenY = minYOffset - TileBufferSize
        For Y = minY To maxY
            ScreenX = minXOffset - TileBufferSize
            For X = minX To maxX
                
                'Layer 4 **********************************
                If MapData(X, Y).Graphic(4).GrhIndex Then
                    'Draw
                    Call DDrawTransGrhtoSurface(MapData(X, Y).Graphic(4), _
                        ScreenX * TilePixelWidth + PixelOffsetX, _
                        ScreenY * TilePixelHeight + PixelOffsetY, _
                        1, 1)
                End If
                '**********************************
                
                ScreenX = ScreenX + 1
            Next X
            ScreenY = ScreenY + 1
        Next Y
    End If
    
'TODO : Check this!!
    If bLluvia(UserMap) = 1 Then
        If bRain Then
            'Figure out what frame to draw
            If llTick < GetTickCount - 50 Then
                iFrameIndex = iFrameIndex + 1
                If iFrameIndex > 7 Then iFrameIndex = 0
                llTick = GetTickCount
            End If
 
            For Y = 0 To 4
                For X = 0 To 4
                    Call Device_Textured_Render(LTLluvia(Y) - 256, LTLluvia(X) - 256, SurfaceDB.Surface(15168), RLluvia(iFrameIndex))
                Next X
            Next Y
        End If
    End If
End Sub

No sé si tendrá algo que ver

» 27 Dic 2011 22:28

No no tiene nada que ver pero igual Shak

Yo no se por que pero para mi tiene algo que ver con las areas para mi es eso

» 27 Dic 2011 22:29

miqueas150 escribió:No no tiene nada que ver pero igual Shak

Yo no se por que pero para mi tiene algo que ver con las areas para mi es eso

¿El sub render screen no es donde se dibuja todo en el render?

» 27 Dic 2011 22:30

Shak, no sé de donde sacaste ese Renderscreen pero está muy modificado y bugear el render del cliente (Se ve la pantalla negra), después lo miro bien, igual nada que ver :A

Edit:

Shak escribió:¿El sub render screen no es donde se dibuja todo en el render?

Si pero no justifica la clonacion, cuando se clona el char de un NPC por ejemplo, el char tiene block y toda la papirola.

» 27 Dic 2011 22:31

Lanzers escribió:Shak, no sé de donde sacaste ese Renderscreen pero está muy modificado y bugear el render del cliente (Se ve la pantalla negra), después lo miro bien, igual nada que ver :A

lo saqué del 13.0 dx8 JAJAJAJAJAJAAJAJAJAJJA

» 27 Dic 2011 22:33

Shak escribió: saqué del 13.0 dx8 JAJAJAJAJAJAAJAJAJAJJA

Jjjaa esas mezclas incompatibles que hacian.

PD: Cuando me desocupe reviso a fondo el modareas

Edit: Al parecer el modareas no es, y creo que el problema esta en el cliente.

Bug en todos los 12.1 DX8

¿Quién está conectado?