¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



 
ÍndiceIndiceÚltimas imágenesBuscarRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 2 usuarios en línea: 0 Registrados, 0 Ocultos y 2 Invitados

Ninguno

El record de usuarios en línea fue de 22 durante el Lun Jun 08, 2020 2:43 am
Mejores posteadores
Rango
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
Habauc
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
Trogclodita
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
WhoTeR
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
Tomm-
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
ZankuR
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
GM-PekeMixz
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
LuciMoyo
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
MwM
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
Diclut s2 Lalaa♥
Graficos Via .Bmp 13.0 Dx8 Vote_lcapGraficos Via .Bmp 13.0 Dx8 Voting_barGraficos Via .Bmp 13.0 Dx8 Vote_rcap 
Estadísticas
Tenemos 98 miembros registrados
El último usuario registrado es Stephelinmu

Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.

 

 Graficos Via .Bmp 13.0 Dx8

Ir abajo 
AutorMensaje
powerid
Inicial
Inicial
powerid


Cantidad de envíos : 18
Fecha de inscripción : 14/08/2013
Edad : 24
Localización : Pehuajo

Graficos Via .Bmp 13.0 Dx8 Empty
MensajeTema: Graficos Via .Bmp 13.0 Dx8   Graficos Via .Bmp 13.0 Dx8 Icon_minitimeMiér Ago 14, 2013 2:19 pm

Es algo básico, y simple de realizar, perfecto para aquellos que desean trabajar de manera más fluida y más organizada a la hora de desarrollar sus Cliente/Servior en la parte visual. (Ahorran bastante tiempo)

En el cliente buscan:
Código:
Private Function LoadSurface(ByVal fileIndex As Long) As Direct3DTexture8

Y lo reemplazan todo por:
Código:
Private Function LoadSurface(ByVal fileIndex As Long) As Direct3DTexture8
'**************************************************************
'Loads the surface named fileIndex + ".bmp" and inserts it to the
'surface list in the listIndex position
'**************************************************************
On Error GoTo ErrHandler
 
    Dim newSurface As SURFACE_ENTRY_DYN
    Dim surface_desc As D3DSURFACE_DESC
    Dim texture_info As D3DXIMAGE_INFO
 
    'get Bitmap
    'Call Get_Bitmap(ResourcePath, CStr(fileIndex) & ".BMP", bmpInfo, data)
    Dim fileNumber As String
    fileNumber = App.path & "\Graficos\" & CStr(fileIndex) & ".bmp"
 
    With newSurface
        .fileIndex = fileIndex
     
        'Set last access time (if we didn't we would reckon this texture as the one lru)
        .lastAccess = GetTickCount
     
        Set .Surface = DirectD3D.CreateTextureFromFileEx(DirectDevice, fileNumber, _
                D3DX_DEFAULT, D3DX_DEFAULT, 3, 0, D3DFMT_A8R8G8B8, D3DPOOL_MANAGED, D3DX_FILTER_NONE, _
                D3DX_FILTER_NONE, &HFF000000, texture_info, ByVal 0)
 
        newSurface.Surface.GetLevelDesc 0, surface_desc
     
    End With
 
    'Insert surface to the list
    With surfaceList(fileIndex Mod HASH_TABLE_SIZE)
        .surfaceCount = .surfaceCount + 1
     
        ReDim Preserve .SurfaceEntry(1 To .surfaceCount) As SURFACE_ENTRY_DYN
     
        .SurfaceEntry(.surfaceCount) = newSurface
     
        Set LoadSurface = newSurface.Surface
    End With
 
    'Update used bytes
    usedBytes = usedBytes + surface_desc.Size
 
    'Check if we have exceeded our allowed share of memory usage
    Do While usedBytes > maxBytesToUse
        'Remove a file. If no file could be removed we continue, if the file was previous to our surface we update the index
        If Not RemoveLRU() Then
            Exit Do
        End If
    Loop
Exit Function
 
ErrHandler:
 
End Function

Abren el siguiente archivo (en la carpeta de juego), para que les descomprima los gráficos y les elimine los anteriores Graphics.AO creados y listo:
https://mega.co.nz/#!EZE1DZ7J!HblANmrkD ... K7D2g-7KJg
Volver arriba Ir abajo
http://Www.sleyderao.es.tl
 
Graficos Via .Bmp 13.0 Dx8
Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Talleres Taller Argentum :: Programación-
Cambiar a: