Drag And Drop y desconversor 2da potencia

Ahlev

Newbie Lvl 5
Hola buenas! me pueden llamar Ahlev y vengo a robarles un minuto de su tiempo y pedirle un poquitin de ayuda!

Primero que nada quiero hacer con los codigos del conversor a 2da potencia liberado en GS ZONE, Nose de que aporte lo saque
Quiero que en vez de pasarlos a 2da potencia le saque la 2da potencia ya que indexe bastante graficos y todo eso y tendria que reindexar todo desde un 13.0 virgen
Quiero hacer esto porque elimine la 2da potencia !

Les dejo el modulo a ver si me pueden ayudar!

Código:
'Option Explicit
 
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Public Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long, ByVal wIDNewItem As Long, _
ByVal lpString As Any) As Long
Public Declare Function DrawMenuBar Lib "user32" _
(ByVal hWnd As Long) As Long
'
Public Const MF_BYCOMMAND = &H0&
Public Const MF_ENABLED = &H0&
Public Const MF_GRAYED = &H1&
'
Public Const SC_CLOSE = &HF060&

'Constante para pasar que indica que _
se abre el archivo en modo lectura
Public Const OF_READ = &H0&
 
' Api lOpen para abrir un archivo
Public Declare Function lOpen Lib "kernel32" Alias "_lopen" ( _
                ByVal lpPathName As String, _
                ByVal iReadWrite As Long) As Long
 
' Api lclose para cerrar el archivo
Public Declare Function lclose Lib "kernel32" Alias "_lclose" ( _
                ByVal hFile As Long) As Long
 
' Api GetFileSize para averiguar el tamaño
Public Declare Function GetFileSize Lib "kernel32" ( _
                ByVal hFile As Long, _
                lpFileSizeHigh As Long) As Long
 
Dim lpFSHigh As Long
 
' recupera el tamaño de todos los archivos _
  que cuelgan del directorio ( no incluye subdirectorios )
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Function Tamaño(Numero As Long)
 
Dim Handle As Long
Dim Len_Archivo As Long
Dim Archivo As String
Dim Path As String

Path = frmMain.txtDirInicial

    ' verifica la barra separadora de path
    If Mid(Path, Len(Path), 1) <> "\" Then
       Path = Path & "\"
    End If
    
    'Buscamos todos los archivos del directorio
    Archivo = Dir(Path & "\" & Numero & ".bmp")
 
    While Archivo <> ""
        'Mientras no sean directorios
        If Archivo <> "." Or Archivo <> ".." Then
 
            'En handle almacenamos el n° de identificador de archivo. _
            Si es -1 es por que dio error _
            Para abrirlo utilizamos lopen, con la ruta y el tipo de acceso
 
            Handle = lOpen(Path & Archivo, OF_READ)
 
            ' Vamos Almacenando el tamaño
            Len_Archivo = Len_Archivo + GetFileSize(Handle, lpFSHigh)
 
        End If
    ' Buscamos el siguiente archivo
    Archivo = Dir
    Wend
  
    Tamaño = Round(Len_Archivo / 1024)
    ' Cerramos el archivo abierto
    lclose Handle
 
End Function

Public Function ObtenerDimension(ByVal mDimension As Integer)
    If mDimension <= 32 Then
        ObtenerDimension = 32
    ElseIf mDimension <= 64 And mDimension > 32 Then
        ObtenerDimension = 64
    ElseIf mDimension <= 128 And mDimension > 64 Then
        ObtenerDimension = 128
    ElseIf mDimension <= 256 And mDimension > 128 Then
        ObtenerDimension = 256
    ElseIf mDimension <= 512 And mDimension > 256 Then
        ObtenerDimension = 512
    ElseIf mDimension <= 1024 And mDimension > 512 Then
        ObtenerDimension = 1024
    ElseIf mDimension <= 2048 And mDimension > 1024 Then
        ObtenerDimension = 2048
    End If
  
    ObtenerDimension = ObtenerDimension + 4
End Function

Function FileExist(ByVal file As String, ByVal FileType As VbFileAttribute) As Boolean
    FileExist = (Dir$(file, FileType) <> "")
End Function

Function EsPotenciaDos(ByVal N As Integer) As Boolean
Dim i As Byte
For i = 1 To 10
    If 2 ^ i = N Then EsPotenciaDos = True: Exit Function
Next i
End Function

y ahora quiero hacer que el drag and drop sea con click derecho ya que lo tengo con click izquierdo y es malardo en agite, se te mueve todo y es un papelon
Dejo el CLSGraphicalInventory

Código:
'*****************************************************
'Graphical inventory for ORE 0.4.1
'Designed and implemented by Juan Martín Sotuyo Dodero (Maraxus)
'[email protected]
'*****************************************************

'**************************************************************************
'This program is free software; you can redistribute it and/or modify
'it under the terms of the GNU General Public License as published by
'the Free Software Foundation; either version 2 of the License, or
'(at your option) any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'Affero General Public License for more details.
'
'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
'**************************************************************************

Option Explicit

Private InventoryOffset As Long             'Number of lines we scrolled down from topmost
Private InvSelectedItem As Long             'Currently selected item

Dim MouseDownSelectedItem As Long

Private ownTilePixelWidth As Integer
Private ownTilePixelHeight As Integer
Private startdX As Integer
Private startdY As Integer

Private ShowValue As Boolean
Private ValueFormated As Boolean

Private ImgContainer As Boolean
Private InventoryTickCount As Long
Private slotDragged As Integer

Private dragAndDropOn As Boolean


Private Inventory() As Inventory    'User's inventory

Private WithEvents InventoryWindow As PictureBox    'Placeholder where to render the inventory

Public Event dragDone(ByVal originalSlot As Integer, ByVal newSlot As Integer)

#If ConMenuesConextuales = 1 Then
    Dim ItemMenu As Menu    'Menu to be shown as pop up
#End If

Private Sub Class_Initialize()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'
'***************************************************
End Sub

Private Sub Class_Terminate()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'
'***************************************************
End Sub

Public Sub ScrollInventory(ByVal Up As Boolean)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 14/01/2010
'Scrolls the graphical inventory up / down
'14/01/2010: ZaMa - Now redraws inventory only if needed
'***************************************************

    'Only move if there is something to show up /down
    If CanScroll(Up) Then
        InventoryOffset = InventoryOffset + IIf(Up, 1, -1)
      
        'Redraw the inventory if needed
        'DrawInventory
    End If

End Sub

Public Function CanScroll(ByVal Up As Boolean)
'***************************************************
'Author: ZaMa
'Last Modify Date: 14/01/2010
'Determines wether inventory can be scrolled up / down
'***************************************************
    If Up Then
        CanScroll = (InventoryOffset + (InventoryWindow.ScaleHeight \ ownTilePixelHeight)) * _
                    (InventoryWindow.ScaleWidth \ ownTilePixelWidth) < UBound(Inventory)
    Else
        CanScroll = InventoryOffset > 0
    End If
  
End Function

Public Sub SelectGold()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Sets the gold as the currently selected item
'***************************************************
    Dim prevSelectedItem As Long
  
    'Store preivously selected item
    prevSelectedItem = InvSelectedItem
  
    'Select the gold
    InvSelectedItem = FLAGORO
  
    'Redraw old item to deselect it
    If prevSelectedItem <> FLAGORO Then
        'Call DrawInventorySlot(prevSelectedItem)
    End If
End Sub

Public Sub DeselectItem()
'***************************************************
'Author: ZaMa
'Last Modify Date: 30/11/2009
'Deselect the currently selected item
'***************************************************
    If InvSelectedItem = 0 Then Exit Sub
  
    Dim ClearSlot As Byte
  
    ClearSlot = InvSelectedItem
  
    'Select nothing
    InvSelectedItem = 0
  
    'Redraw old item to deselect it
    'Call DrawInventorySlot(ClearSlot)

End Sub

Public Sub ChangeSlotItemAmount(ByVal slot As Byte, ByVal Amount As Long)
'***************************************************
'Author: ZaMa
'Created Date: 30/11/2009
'Last Modify Date: 09/12/2009 (Budi)
'Change the amount of the required item, and update the slot.
'***************************************************
  
    Inventory(slot).Amount = Amount
  
    'Update Amount
    'Call DrawInventorySlot(slot)

End Sub

Public Property Get SelectedItem() As Long
    SelectedItem = InvSelectedItem
End Property

Public Property Get MaxHit(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the max hit of the selected item
'***************************************************
    MaxHit = Inventory(slot).MaxHit
End Property

Public Property Get MinHit(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the min hit of the selected item
'***************************************************
    MinHit = Inventory(slot).MinHit
End Property

Public Property Get MaxDef(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the defense of the selected item
'***************************************************
    MaxDef = Inventory(slot).MaxDef
End Property

Public Property Get MinDef(ByVal slot As Byte) As Integer
'***************************************************
'Author: Budi
'Last Modify Date: 02/1209
'Retrieves the defense of the selected item
'***************************************************
    MinDef = Inventory(slot).MinDef
End Property

Public Property Get GrhIndex(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the grh index of the selected item
'***************************************************
    GrhIndex = Inventory(slot).GrhIndex
End Property

Public Property Get Valor(ByVal slot As Byte) As Single
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the value of the selected item
'***************************************************
    Valor = Inventory(slot).Valor
End Property

Public Property Get Amount(ByVal slot As Byte) As Long
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's amount
'***************************************************
    If slot = FLAGORO Then
        Amount = UserGLD
    ElseIf slot >= LBound(Inventory) And slot <= UBound(Inventory) Then
        Amount = Inventory(slot).Amount
    End If
End Property

Public Property Get ObjIndex(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's object index
'***************************************************
    ObjIndex = Inventory(slot).ObjIndex
End Property

Public Property Get OBJType(ByVal slot As Byte) As Integer
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's object type
'***************************************************
    OBJType = Inventory(slot).OBJType
End Property

Public Property Get ItemName(ByVal slot As Byte) As String
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves the selected item's name
'***************************************************
    ItemName = Inventory(slot).name
End Property

Public Property Get Equipped(ByVal slot As Byte) As Boolean
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Retrieves True if the item at the given pos is eqiupped
'***************************************************
    Equipped = Inventory(slot).Equipped
End Property

Public Property Get MaxObjs() As Byte
'***************************************************
'Author: Torres Patricio (Pato)
'Last Modify Date: 09/16/09
'Retrieves the capacity of the Inventory
'***************************************************
    MaxObjs = UBound(Inventory)
End Property

Public Sub SetMaxObjs(ByVal MaxObjs As Byte)
'***************************************************
'Author: Torres Patricio (Pato)
'Last Modify Date: 09/16/09
'Set the capacity of the Inventary
'***************************************************
    If UBound(Inventory) = MaxObjs Then Exit Sub
  
    ReDim Preserve Inventory(1 To MaxObjs) As Inventory
End Sub

Public Sub ToggleShowValue(ByVal bShow As Boolean)
'***************************************************
'Author: ZaMa
'Last Modify Date: 11/12
'Indicates if the amount of the items in the inventory is shown
'***************************************************
    ShowValue = bShow
  
    Dim slot As Integer
    ' Update Inventory
    'For slot = 1 To Me.MaxObjs
        'DrawInventorySlot (slot)
    'Next slot
End Sub

Public Sub ClearAllSlots()
'***************************************************
'Author: ZaMa
'Last Modify Date: 15/03/2011
'Clear All Slots.
'***************************************************

    Dim slot As Long
    For slot = 1 To Me.MaxObjs
        Call SetItem(slot, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, vbNullString)
    Next slot

End Sub

Public Sub SetItem(ByVal slot As Byte, ByVal eOBJIndex As Integer, ByVal eAmount As Long, ByVal eEquipped As Byte, _
                        ByVal eGrhIndex As Integer, ByVal eObjType As Integer, ByVal eMaxHit As Integer, ByVal eMinHit As Integer, _
                        ByVal MaxDef As Integer, ByVal MinDef As Integer, ByVal eValor As Single, ByVal eName As String)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 12/04/06
'Sets all data for a given inventory slot
'***************************************************
    If slot < 1 Or slot > UBound(Inventory) Then Exit Sub
  
    With Inventory(slot)
        .Amount = eAmount
        .MaxDef = MaxDef
        .MinDef = MinDef
        .Equipped = eEquipped
        .GrhIndex = eGrhIndex
        .MaxHit = eMaxHit
        .MinHit = eMinHit
        .name = eName
        .ObjIndex = eOBJIndex
        .OBJType = eObjType
        .Valor = eValor
    End With
  
    'If InventoryWindow.Visible = False Then InventoryWindow.Visible = True
  
    'Render inventory slot (we don't need to render the whole inventory)
    'Call DrawInventorySlot(slot)
End Sub

Private Function ClickItem(ByVal X As Long, ByVal Y As Long) As Long
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Selects the item clicked if it's valid and return's it's index
'***************************************************
    Dim TempItem As Long
    Dim temp_x As Long
    Dim temp_y As Long
 
    temp_x = X \ 32
    temp_y = Y \ 32
 
    TempItem = temp_x + (temp_y + InventoryOffset) * (InventoryWindow.ScaleWidth \ 32) + 1
 
   'Make sure it's within limits
    If TempItem <= MAX_INVENTORY_SLOTS Then
        ClickItem = TempItem
    End If
End Function

Private Sub DrawInventory()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Renders the inventory to the given PictureBox
'***************************************************
    Dim LoopC As Long

    Dim destRect As RECT
    Dim Inv_Color(0 To 3) As Long
    Dim Sel_Color(0 To 3) As Long
  
    With destRect
        .bottom = InventoryWindow.Height
        .Right = InventoryWindow.Width
    End With

  
    'Clear the inventory window
    Engine_BeginScene
  
        For LoopC = InventoryOffset * (InventoryWindow.ScaleWidth \ ownTilePixelWidth) + 1 To UBound(Inventory)
          
            startdX = ((LoopC - 1) Mod (frmMain.PicInv.Width / 32)) * 32
            startdY = ((LoopC - 1) \ (frmMain.PicInv.Width / 32)) * 32
          
          
            Call Engine_Long_To_RGB_List(Inv_Color(), -1)
          
            Call Engine_Long_To_RGB_List(Sel_Color(), D3DColorARGB(255, 255, 255, 255))
          
            Call DDrawTransGrhIndextoSurface(23651, startdX, startdY, 0, Inv_Color(), 0, False)
          
            If Inventory(LoopC).GrhIndex Then
              
                Call DDrawTransGrhIndextoSurface(Inventory(LoopC).GrhIndex, startdX, startdY, 0, Inv_Color())
              
                If LoopC = SelectedItem Then
                    Call DDrawTransGrhIndextoSurface(2, startdX, startdY, 0, Sel_Color())
                End If
          
                'If equipped we render "E"
                If Inventory(LoopC).Equipped Then
                   ' Fonts_Render_String "E", startdX + 20, startdY + 20, -1, 2
                    DrawText startdX - 3, startdY + 16, "Equip", -1
                End If
              
                'Render the item grh and the amount
                'Fonts_Render_String Inventory(LoopC).Amount, startdX, startdY, -1, 2
                DrawText startdX, startdY, Inventory(LoopC).Amount, -1
            End If
        Next LoopC
      
    Engine_EndScene destRect, InventoryWindow.hwnd
End Sub

Private Sub InventoryWindow_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Implements the mouse move event of the inventory picture box
'Displays a ToolTip of the item under the mouse
'***************************************************
    Dim temp_x As Integer
    Dim temp_y As Integer
    Dim TempItem As Integer
  
    'Exit if it got outside the control's areanv
    If X < 0 Or Y < 0 Or X > InventoryWindow.Width Or Y > InventoryWindow.Height Then _
        Exit Sub
  
        temp_x = X \ ownTilePixelWidth
        temp_y = Y \ ownTilePixelHeight
      
        TempItem = temp_x + (temp_y + InventoryOffset) * (InventoryWindow.ScaleWidth \ ownTilePixelWidth) + 1
  
         If TempItem <= UBound(Inventory) Then
        InventoryWindow.ToolTipText = Inventory(TempItem).name & "= Daño: " & Inventory(TempItem).MinHit & "/" & Inventory(TempItem).MaxHit & " DEF: " & Inventory(TempItem).MinDef & "/" & Inventory(TempItem).MaxDef
    End If

End Sub


Public Sub DrawInv(Optional ByVal r As Boolean = False)
    If GetTickCount - InventoryTickCount > 100 Then
        Call DrawInventory
        InventoryTickCount = GetTickCount
    End If
End Sub
Public Sub Initialize(ByRef DirectD3D As D3DX8, ByRef InvPic As PictureBox, ByVal MaxObjs As Byte, _
                            Optional ByVal FontSize As Integer = 7, Optional ByVal TileWidth As Integer = 32, _
                            Optional ByVal TileHeight As Integer = 32, Optional ByVal startX As Integer = 0, _
                            Optional ByVal startY As Integer = 0, Optional ByVal bImgContainer As Boolean = True, _
                            Optional ByVal bShowText As Boolean = True)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 03/12/09
'Sets the reference to the picture box on which to render the inventory
'03/12/09: I added the optionals args FontSize, TileWidth, TileHeight, startX and startY. (Budi)
'***************************************************
    Set InventoryWindow = InvPic
  
    'Make sure auto-redraw is set to true
    InventoryWindow.AutoRedraw = True
  
    'Set apropiate scale (pixel)
    InventoryWindow.ScaleMode = 3
  
    ReDim Inventory(1 To MaxObjs) As Inventory
  
    'Make sure DirectD3D was correctly initialized
    If DirectD3D Is Nothing Then Exit Sub

    ownTilePixelHeight = TileHeight
    ownTilePixelWidth = TileWidth
    startdX = startX
    startdY = startY
  
    ImgContainer = bImgContainer
    ShowValue = bShowText
  
    If ImgContainer Then _
        InvSelectedItem = ClickItem(1, 1)   'If there is anything there we select the top left item

End Sub

Private Sub InventoryWindow_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Implements the mouse up event of the inventory picture box
'Check outs which item was clicked
'***************************************************
    'Store previously selected item
    Dim prevSelItem As Long
    Dim TempItem As Long
    Dim temp_x As Long
    Dim temp_y As Long
  
    'Exit if it got outside the control's area
    If X < 0 Or Y < 0 Or X > InventoryWindow.Width Or Y > InventoryWindow.Height Then _
        Exit Sub
  
    prevSelItem = InvSelectedItem
  
    If Button = vbRightButton Then
        If dragAndDropOn Then
            temp_x = X \ ownTilePixelWidth
            temp_y = Y \ ownTilePixelHeight
      
            InvSelectedItem = temp_x + (temp_y + InventoryOffset) * (InventoryWindow.ScaleWidth \ ownTilePixelWidth) + 1
          
            Call DrawInventory
          
            If InvSelectedItem <> slotDragged Then
                'RaiseEvent dragDone(slotDragged, InvSelectedItem)
            End If
        End If
    Else
        'Get the currently clickced item
        InvSelectedItem = ClickItem(CInt(X), CInt(Y))
    If InvSelectedItem <> MouseDownSelectedItem And MouseDownSelectedItem <> 0 And InvSelectedItem <> 0 Then
        Call Protocol.WriteSwapObjects(InvSelectedItem, MouseDownSelectedItem)
    End If
        'Update needed inventory slots
        If prevSelItem <> InvSelectedItem Then
            'If prevSelItem <> 0 And prevSelItem <> FLAGORO Then Call DrawInventorySlot(prevSelItem)
            'If InvSelectedItem Then Call DrawInventorySlot(InvSelectedItem)
        End If
    End If
End Sub
Private Sub InventoryWindow_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim TempItem As Long
    If Button = 1 Then 'click derecho
        TempItem = ClickItem(X, Y)
   
        If Inventory(TempItem).GrhIndex Then
            MouseDownSelectedItem = TempItem
            Exit Sub
        End If
    End If
    MouseDownSelectedItem = 0
End Sub
Pense que Dejando asi esto
Código:
[/COLOR]
Private Sub InventoryWindow_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim TempItem As Long
    If MouseBoton = vbRightButton = 1 Then 'click derecho
        TempItem = ClickItem(X, Y)
  
        If Inventory(TempItem).GrhIndex Then
            MouseDownSelectedItem = TempItem
            Exit Sub
        End If
    End If

    MouseDownSelectedItem = 0
End Sub
me iba a funcionar perfectamente, pero realmente no anda :C

Creo que se sigue moviendo igual o me saltaba un error no recuerdo bien
Avisenme y hago un post aparte cualquier cosa, soy nuevo aca..


 

Ahlev

Newbie Lvl 5
Es verdad, mi cliente sin gráficos en potencia 2d venia pesando alrededor de 70 mb. Los pasé a potencia 2 y me pesa 107 MB.!!!
Puede que se vea un poco mejor, pero tendria que pesar menos diria yo!
Si alguien se copa y me da una mano subo el desconversor de 2da potencia y le doy los creditos
 

ReFyCuLx

Newbie Lvl 2
Entre 70 y 107 mb....
Que tienen disco de 1gb en su pc que ratonean tanto el peso?
Hoy en dia todo el mundo tiene minimo 500gb de disco y conexion arriba de 10mb, por lo que lo descargan en muy poco tiempo.
 

Ahlev

Newbie Lvl 5
Entre 70 y 107 mb....
Que tienen disco de 1gb en su pc que ratonean tanto el peso?
Hoy en dia todo el mundo tiene minimo 500gb de disco y conexion arriba de 10mb, por lo que lo descargan en muy poco tiempo.
No quiero discutir sobre este tema, si me ayudas genial, sino tambien genial!
 

Jormot

Overlord
Entre 70 y 107 mb....
Que tienen disco de 1gb en su pc que ratonean tanto el peso?
Hoy en dia todo el mundo tiene minimo 500gb de disco y conexion arriba de 10mb, por lo que lo descargan en muy poco tiempo.
Y la subida a la placa de video (o CPU en caso de raster)? Y el tamaño que ocupan ahi? No estamos usando DXT, estamos usando BMPs.
 

Dr. Miqueas150

The Prophet
Ex-Staff
Y como adivinas la medida anterior del gráfico ?

Ahora otra pregunta, que tiene que ver el tamaño del grafico con la indexacion ? claro a menos que lo hagas con algun indexador automatico, pero si lo haces a mano da lo mismo.

Si antes el grafico era de 32*32 esta indexado como un grafico de 32x32, asi el grafico despues lo agrandes a 1024x1024, la indexacion va a seguir siendo como si fuera un grafico de 32x32, no se va a mover ni mostrar nada más que lo establecido en la posicion del grafico que fue indexado.

Y la subida a la placa de video (o CPU en caso de raster)? Y el tamaño que ocupan ahi? No estamos usando DXT, estamos usando BMPs.
Meh, que se cague la placa que trabaje mierda, cuanto puede sientir la placa gama baja a los graficos de argentum, asi esten en potencia 2 o no.

Por cierto gente.. TextureAtlas en ao FTW
 

Ahlev

Newbie Lvl 5
Pueden cerrar?
nadie logro ayudarme en lo que pedi y se pusieron a discutir en vez de ayudarme, por algo la comunidad esta asi
gracias igualmente voy a buscar otros medios a ver que encuentro.
 

Dr. Miqueas150

The Prophet
Ex-Staff
Pueden cerrar?
nadie logro ayudarme en lo que pedi y se pusieron a discutir en vez de ayudarme, por algo la comunidad esta asi
gracias igualmente voy a buscar otros medios a ver que encuentro.
Ni te molestas en leer lo que se comento en su totalidad, por eso la comunidad esta así, porque gente como vos que viene al foro y espera que le den todo servido para su juego.
 

Ahlev

Newbie Lvl 5
Ni te molestas en leer lo que se comento en su totalidad, por eso la comunidad esta así, porque gente como vos que viene al foro y espera que le den todo servido para su juego.
Nadie pidio todo servido don miqueas, vi publicaciones de cuando recien arrancabas y eras igual, y no pedi todo servido, no pedi nada, pregunte si alguien me podia explicar, pero la comunidad esta asi por gente egoista y agrandada como vos que se cree yisus en un juegl que no supera los 15 ons saludos viejo
 

Dr. Miqueas150

The Prophet
Ex-Staff
Nadie pidio todo servido don miqueas, vi publicaciones de cuando recien arrancabas y eras igual, y no pedi todo servido, no pedi nada, pregunte si alguien me podia explicar, pero la comunidad esta asi por gente egoista y agrandada como vos que se cree yisus en un juegl que no supera los 15 ons saludos viejo
Y se te ayudo dando la información que segun tu nivel vas a entender, pero como no leiste... Todos en la comunidad somos egoistas :'(
 
Arriba