Movimiento de consola

» 15 Ene 2012 20:37

Jeje, si esta en el render la consola..

» 15 Ene 2012 20:40

Si pusiste esta: consola_en_render_dx8_tb2L.html

Modifica el: Public Const ComienzoY As Integer = 200

Con el 200 ta en el medio anda sumandole de a 50.. creo que un 300 o 350 quedaria bien.. y si poniendo eso te la baja hace lo contrario.. resta de a 50.

» 15 Ene 2012 22:17

miqueas150 escribió:
Wildem escribió:Deja alguna foto de lo que queres hacer sino no savemos

Tiene consola en render el pancho

Posteame el sub de la consola que seguro esta el la dx8engine.cls

Aaa, no savia, pense que queria hacer mover la consola ingame o algo asi "pancho"

» 15 Ene 2012 22:25

Wildem escribió:
miqueas150 escribió:
Wildem escribió:Deja alguna foto de lo que queres hacer sino no savemos

Tiene consola en render el pancho

Posteame el sub de la consola que seguro esta el la dx8engine.cls

Aaa, no savia, pense que queria hacer mover la consola ingame o algo asi "pancho"

No tenes permito usar mi palabra " Pancho " tiene derechos de autor solo lo puede usar miqueas150 in gs-zone

» 15 Ene 2012 22:26

Ok miqueas4545128756

» 16 Ene 2012 15:54

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

Sub ShowNextFrame()
    Static OffsetCounterX As Single
    Static OffsetCounterY As Single
        If UserMoving Then
            '****** Move screen Left and Right if needed ******
            If AddtoUserPos.X <> 0 Then
                OffsetCounterX = OffsetCounterX - ScrollPixelsPerFrameX * AddtoUserPos.X * timerTicksPerFrame
                If Abs(OffsetCounterX) >= Abs(32 * AddtoUserPos.X) Then
                    OffsetCounterX = 0
                    AddtoUserPos.X = 0
                    UserMoving = False
                End If
            End If
            
            '****** Move screen Up and Down if needed ******
            If AddtoUserPos.y <> 0 Then
                OffsetCounterY = OffsetCounterY - ScrollPixelsPerFrameY * AddtoUserPos.y * timerTicksPerFrame
                If Abs(OffsetCounterY) >= Abs(32 * AddtoUserPos.y) Then
                    OffsetCounterY = 0
                    AddtoUserPos.y = 0
                    UserMoving = False
                End If
            End If
        End If
        Call RenderScreen(UserPos.X - AddtoUserPos.X, UserPos.y - AddtoUserPos.y, OffsetCounterX, OffsetCounterY)
        RenderConsola
End Sub
 
Sub RenderScreen(ByVal tilex As Integer, ByVal tiley As Integer, ByVal PixelOffsetX As Integer, ByVal PixelOffsetY As Integer)
On Error Resume Next
'**************************************************************
'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 Integer     'Keeps track of where on map we are
    Dim X                   As Integer     '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
    Dim CurrentGrhIndex     As Integer
    Dim offx                As Integer
    Dim offy                As Integer
 
    '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
        ParticleOffsetX = (Engine_PixelPosX(screenminX) - PixelOffsetX)
    ParticleOffsetY = (Engine_PixelPosY(screenminY) - PixelOffsetY)
    
 
    
    'Draw floor layer
    For y = screenminY To screenmaxY
        For X = screenminX To screenmaxX
            'Layer 1 **********************************
            
#If HARDCODED = True Then
                    If MapData(X, y).Graphic(1).Started = 1 Then
                        MapData(X, y).Graphic(1).FrameCounter = MapData(X, y).Graphic(1).FrameCounter + (timerElapsedTime * GrhData(MapData(X, y).Graphic(1).grhindex).NumFrames / MapData(X, y).Graphic(1).Speed)
                        If MapData(X, y).Graphic(1).FrameCounter > GrhData(MapData(X, y).Graphic(1).grhindex).NumFrames Then
                            MapData(X, y).Graphic(1).FrameCounter = (MapData(X, y).Graphic(1).FrameCounter Mod GrhData(MapData(X, y).Graphic(1).grhindex).NumFrames) + 1
                            
                            If MapData(X, y).Graphic(1).Loops <> -1 Then
                                If MapData(X, y).Graphic(1).Loops > 0 Then
                                    MapData(X, y).Graphic(1).Loops = MapData(X, y).Graphic(1).Loops - 1
                                Else
                                    MapData(X, y).Graphic(1).Started = 0
                                End If
                            End If
                        End If
                    End If
 
                CurrentGrhIndex = GrhData(MapData(X, y).Graphic(1).grhindex).Frames(MapData(X, y).Graphic(1).FrameCounter)
 
                Device_Box_Textured_Render CurrentGrhIndex, _
                    (ScreenX - 1) * 32 + PixelOffsetX, (ScreenY - 1) * 32 + PixelOffsetY, _
                    GrhData(CurrentGrhIndex).pixelWidth, GrhData(CurrentGrhIndex).pixelHeight, _
                    MapData(X, y).light_value, _
                    GrhData(CurrentGrhIndex).sX, GrhData(CurrentGrhIndex).sY, _
                    False _
                    , 0
#Else
                Call Draw_Grh(MapData(X, y).Graphic(1), _
                        (ScreenX - 1) * 32 + PixelOffsetX, _
                        (ScreenY - 1) * 32 + PixelOffsetY, _
                        0, 1, , X, y)
                If MapData(X, y).Graphic(2).grhindex <> 0 Then
                Call Draw_Grh(MapData(X, y).Graphic(2), (ScreenX - 1) * 32 + PixelOffsetX, (ScreenY - 1) * 32 + PixelOffsetY, 1, 1, , X, y)
                End If
#End If
            '******************************************
            ScreenX = ScreenX + 1
        Next X
 
        'Reset ScreenX to original value and increment ScreenY
        ScreenX = ScreenX - X + screenminX
        ScreenY = ScreenY + 1
    Next y
    
 
                'Layer 2 **********************************
    
    ScreenY = minYOffset - TileBufferSize
    For y = minY To maxY
        ScreenX = minXOffset - TileBufferSize
        For X = minX To maxX
            PixelOffsetXTemp = ScreenX * 32 + PixelOffsetX
            PixelOffsetYTemp = ScreenY * 32 + PixelOffsetY
            With MapData(X, y)
                '******************************************
 
                'Object Layer **********************************
                If .ObjGrh.grhindex <> 0 Then
                
                    Call Draw_Grh(.ObjGrh, _
                            PixelOffsetXTemp, PixelOffsetYTemp, 1, 1, , X, y)
 
                End If
                '***********************************************
                
                'Char layer ************************************
                If .CharIndex <> 0 Then
                    Call Char_Render(.CharIndex, PixelOffsetXTemp, PixelOffsetYTemp, X, y)
                End If
                '*************************************************
                
                
                'Layer 3 *****************************************
                If .Graphic(3).grhindex <> 0 Then
                    Call Draw_Grh(.Graphic(3), _
                            PixelOffsetXTemp, PixelOffsetYTemp, 1, 1, , X, y)
                End If
                '************************************************
 
            End With
            ScreenX = ScreenX + 1
        Next X
        ScreenY = ScreenY + 1
    Next y
    ScreenY = minYOffset - 5
                    
                    
                    D3DDevice.SetRenderState D3DRS_SRCBLEND, D3DBLEND_ONE
                    D3DDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_ONE
    
 
    ScreenY = minYOffset - TileBufferSize
    For y = minY To maxY
        ScreenX = minXOffset - TileBufferSize
        For X = minX To maxX
            With MapData(X, y)
                '***********************************************
                If .particle_group > 0 Then
                
                Particle_Group_Render .particle_group, ScreenX * 32 + PixelOffsetX, ScreenY * 32 + PixelOffsetY
                
                End If
            End With
            ScreenX = ScreenX + 1
        Next X
        ScreenY = ScreenY + 1
    Next y
                    
                    D3DDevice.SetRenderState D3DRS_SRCBLEND, D3DBLEND_SRCALPHA
                    D3DDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA
                    D3DDevice.SetRenderState D3DRS_ALPHABLENDENABLE, 1
                    
    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
                    Call Draw_Grh(MapData(X, y).Graphic(4), _
                        ScreenX * 32 + PixelOffsetX, _
                        ScreenY * 32 + PixelOffsetY, _
                        1, 1, , X, y)
                End If
                '**********************************
                
                ScreenX = ScreenX + 1
            Next X
            ScreenY = ScreenY + 1
        Next y
    End If
        If Niebla Then
    WeatherDoFog = 10
    Engine_Weather_UpdateFog
End If
 
            LastOffsetX = ParticleOffsetX
            LastOffsetY = ParticleOffsetY
End Sub

» 16 Ene 2012 17:09

Malisimo el server. Primero aprende a programar y despues pone online un servidor.
Todo lo de aca es copy & paste y encima bugeado.

Haces perder tiempo a la gente.

» 16 Ene 2012 21:03

Shalvaid escribió:Malisimo el server. Primero aprende a programar y despues pone online un servidor.
Todo lo de aca es copy & paste y encima bugeado.

Haces perder tiempo a la gente.

Eso decirlo por mp flaco no desvirtues mi vercion

y te dije el sub de renderizacion de la consola no el renderscreen -_-"

Movimiento de consola

¿Quién está conectado?