Optimización del MiniMapa Lectura de Pixeles (DX8) (3 Capas)

» 20 Jul 2011 19:13

Bueno, estaba haciendo un par de cosas para perder el tiempo, y me di cuenta que la Optimización de MaTeO podría ser más simple y también usar 3 Capas...

Necesitaremos:
Crear un Shape dentro del Minimap (PictureBox) con las siguientes Propiedades/Características:

Name: UserShp
Height: 4
Width: 4

Ahora al Código.
_____________
Borrar los Sub:

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

Public Sub ActualizarMiniMapa(ByVal tHeading As E_Heading)

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

Public Sub DibujarMiniMapa()

Ahora al final del Modulo General agregan:

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

Public Sub ActualizarMiniMapa(ByVal tHeading As E_Heading)
        frmMain.UseShp.Left = UserPos.X
        frmMain.UserShp.Top = UserPos.Y
        frmMain.Minimap.Refresh
End Sub
Public Sub DibujarMiniMapa()
    Dim map_x As Long, map_y As Long, i As Byte
    For map_y = 1 To 100
        For map_x = 1 To 100
            For i = 1 To 3
                If MapData(map_x, map_y).Graphic(i).grhindex > 0 Then
                    SetPixel frmMain.Minimap.hdc, map_x, map_y, GrhData(MapData(map_x, map_y).Graphic(i).grhindex).MiniMap_color
                End If
            Next i
        Next map_x
    Next map_y
   
    frmMain.Minimap.Refresh
    Call ActualizarMiniMapa(0)
End Sub
 

_____________

Espero que os sirva.

Imagen:
Imagen

Adiós.

» 20 Jul 2011 19:23

Muy buen aporte fers, lo lograstes.

Saludos

» 20 Jul 2011 19:45

Samke escribió:Muy buen aporte fers, lo lograstes.

Saludos

Lograr que?

... Si no me tomó más de 5 minutos

...

Igualmente yo hago el bucle para que me cree las imágenes del Minimap y hacer el sistema de mini mapas con lectura de imágenes más fácil.

Adiós.

» 20 Jul 2011 20:00

Buen aporte, gracias.

Saludos.

» 20 Jul 2011 20:57

Si quieren que también cargue los techos, en el Sub DibujarMinimapa, en este code:

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

For i = 1 To 3
                If MapData(map_x, map_y).Graphic(i).grhindex > 0 Then
                    SetPixel frmMain.Minimap.hdc, map_x, map_y, GrhData(MapData(map_x, map_y).Graphic(i).grhindex).MiniMap_color
                End If

Cambien en el For i = 1 to 3 por For i = 1 to 4.

Código:

Reemplazar todo el Public Sub DibujarMiniMapa() por:

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

Rem Minimapa de Ore 1.0a Optimizado por Lord Fers...
Public Sub DibujarMiniMapa()
    Dim map_x As Long, map_y As Long, i As Byte
    For map_y = 1 To 100
        For map_x = 1 To 100
            For i = 1 To 4 'Capa 1, 2, 3, 4 (Depende cual elijas)
                If MapData(map_x, map_y).Graphic(i).grhindex > 0 Then
                    SetPixel frmMain.Minimap.hdc, map_x, map_y, GrhData(MapData(map_x, map_y).Graphic(i).grhindex).MiniMap_color
                End If
            Next i
        Next map_x
    Next map_y
   
    frmMain.Minimap.Refresh
    Call ActualizarMiniMapa(0)
End Sub

» 02 Ago 2011 23:32

Che y esto:

ByVal tHeading As E_Heading

Onda nunca lo usas.

» 03 Ago 2011 01:00

Buen aporte.

Optimización del MiniMapa Lectura de Pixeles (DX8) (3 Capas)

¿Quién está conectado?