[Aporte] IAO clon con Inframundo

Ir abajo

[Aporte] IAO clon con Inframundo

Mensaje por Shermie80 el Jue Ago 22, 2013 8:27 pm

Buscan en el Cliente

Código:
Private Function CrearGrafico
Y Reemplazan por

Código:
Private Function CrearGrafico(ByVal Archivo As Integer, _
                              ByRef texwidth As Long, _
                              ByRef textheight As Long) As Direct3DTexture8
 
    '**************************************************************
  'Author: Juan Martín Sotuyo Dodero
    'menduz was here
  '
    '**************************************************************
  'On Error GoTo Err
    Dim surface_desc As D3DSURFACE_DESC
    Dim texture_info As D3DXIMAGE_INFO
    Dim Index        As Integer
 
    Index = Archivo Mod HASH_TABLE_SIZE
 
    With TexList(Index)
        .surfaceCount = .surfaceCount + 1
        ReDim Preserve .SurfaceEntry(1 To .surfaceCount) As SURFACE_ENTRY_DYN
 
        With .SurfaceEntry(.surfaceCount)
     
            .FileName = Archivo
 
            .UltimoAcceso = GetTickCount
         
            Set .Texture = D3DX.CreateTextureFromFileEx(device, _
            App.Path & "\GRAFICOS\" & CStr(Archivo) & ".bmp", _
            D3DX_DEFAULT, D3DX_DEFAULT, 3, 0, D3DFMT_A8R8G8B8, _
            D3DPOOL_MANAGED, D3DX_FILTER_NONE, D3DX_FILTER_NONE, _
            &HFF000000, texture_info, ByVal 0)
 
            .Texture.GetLevelDesc 0, surface_desc
            .texture_width = texture_info.width
            .texture_height = texture_info.height
            .size = surface_desc.size
            texwidth = .texture_width
            textheight = .texture_height
         
            Set CrearGrafico = .Texture
            mFreeMemoryBytes = mFreeMemoryBytes - surface_desc.size
 
            Do While mFreeMemoryBytes < 0
 
                If Not RemoveLRU() Then
 
                    Exit Do
 
                End If
 
            Loop
 
            Exit Function
 
Err:
            Debug.Print "ERROR EN GRHLOAD>" & Archivo & ".bmp" & "-Desc:" & Err.Description
        End With
    End With
 
End Function
Y Listo

Aca les dejo los graficos de IAO descomprimidos Clic Aquí

Shermie80
Shermie80



CoverAOStaff
Aportes : 55
Mensajes : 139
Puntos : 822
Edad : 22

Ver perfil de usuario http://todo-argentum.foroargentina.net

Volver arriba Ir abajo

Re: [Aporte] IAO clon con Inframundo

Mensaje por Zenitram el Lun Sep 02, 2013 10:01 pm

y los npcs ?
Zenitram
Zenitram



Aportes : 10
Mensajes : 65
Puntos : 130
Edad : 18

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte] IAO clon con Inframundo

Mensaje por Shermie80 el Lun Sep 02, 2013 10:45 pm

Saurus escribió:y los npcs ?
Datealos Smile 
Shermie80
Shermie80



CoverAOStaff
Aportes : 55
Mensajes : 139
Puntos : 822
Edad : 22

Ver perfil de usuario http://todo-argentum.foroargentina.net

Volver arriba Ir abajo

Re: [Aporte] IAO clon con Inframundo

Mensaje por Zenitram el Lun Sep 02, 2013 10:57 pm

mmm pero tenes el link
¬¬ y aparte ya los tengo datiados
Zenitram
Zenitram



Aportes : 10
Mensajes : 65
Puntos : 130
Edad : 18

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte] IAO clon con Inframundo

Mensaje por Shermie80 el Miér Sep 04, 2013 10:07 am

Que link tengo?
Aporte como agregar los Graficos sin compresion no los Npcs.dat..
Shermie80
Shermie80



CoverAOStaff
Aportes : 55
Mensajes : 139
Puntos : 822
Edad : 22

Ver perfil de usuario http://todo-argentum.foroargentina.net

Volver arriba Ir abajo

Re: [Aporte] IAO clon con Inframundo

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.