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


Todo sobre AO
 
ÍndiceÚltimas imágenesBuscarRegistrarseConectarse

 

 Minimapa leyendo lectura de Pixeles

Ir abajo 
AutorMensaje
Agus
Admin



Mensajes : 69
Fecha de inscripción : 01/07/2008

Minimapa leyendo lectura de Pixeles Empty
MensajeTema: Minimapa leyendo lectura de Pixeles   Minimapa leyendo lectura de Pixeles EmptyJue Jul 03, 2008 12:15 am

Buscamos
Citación :
Public BackBufferSurface As DirectDrawSurface7
Y agregar Abajo:
Citación :
Public SupBMiniMap As DirectDrawSurface7
Public SupMiniMap As DirectDrawSurface7
agregar en Sub CargarAnimsExtra()
Citación :
Dim DDm As DDSURFACEDESC2
DDm.lHeight = 101
DDm.lWidth = 101
DDm.ddsCaps.lCaps = DDSCAPS_SYSTEMMEMORY
DDm.lFlags = DDSD_CAPS Or DDSD_HEIGHT Or DDSD_WIDTH
Set SupMiniMap = DirectDraw.CreateSurface(DDm)
Set SupBMiniMap = DirectDraw.CreateSurface(DDm)

en el FrmMain , agregar un PictureBox con el nombre de "elPicturebox y un timer con el nombre de eltimercreado,
al picturebox busquen la propiedad ScaleMode y poner en 3-pixel
y al timer ponerle un intervalo de 520 y poner" DibujarMiniMapa elPicturebox " en el evento del timer

luego busca:
Citación :

Case "LOGGED"
logged = True
Y abajo de eso ponemos:
Citación :
frmMain.eltimercreado.enabled = true
Luego busca:
Citación :
Case "FINOK"
#If UsarWrench = 1 Then
frmMain.Socket1.Disconnect
Y debajo ponemos:
[quote]frmMain.eltimercreado.enabled = false[/vb]
Agregamos al final del modulo Mod_TileEngine
Citación :
Public Sub DibujarMiniMapa(ByRef Pic As PictureBox)
Dim DR As RECT
DR.Left = 0
DR.Top = 0
DR.Bottom = 100
DR.Right = 100
SupMiniMap.Blt DR, SupBMiniMap, DR, DDBLT_DONOTWAIT
DR.Left = UserPos.X
DR.Top = UserPos.Y
DR.Bottom = UserPos.Y + 2
DR.Right = UserPos.X + 2
SupMiniMap.BltColorFill DR, vbRed
DR.Left = 0
DR.Top = 0
DR.Bottom = 100
DR.Right = 100
SupMiniMap.BltToDC Pic.hdc, DR, DR

End Sub
Public Sub GenerarMiniMapa()
Dim X As Integer
Dim Y As Integer
Dim i As Integer
Dim DR As RECT
Dim SR As RECT
SR.Left = 0
SR.Top = 0
SR.Bottom = 100
SR.Right = 100
SupBMiniMap.BltColorFill SR, vbBlack
For X = MinYBorder To MaxXBorder
For Y = MinYBorder To MaxYBorder
If MapData(X, Y).Graphic(1).GrhIndex > 0 Then
With MapData(X, Y).Graphic(1)
i = GrhData(.GrhIndex).Frames(1)
End With
SR.Left = GrhData(i).sX
SR.Top = GrhData(i).sY
SR.Bottom = GrhData(i).pixelWidth
SR.Right = GrhData(i).pixelHeight
DR.Left = X
DR.Top = Y
DR.Bottom = Y + 2
DR.Right = X + 2
SupBMiniMap.Blt DR, SurfaceDB.Surface(GrhData(i).FileNum), SR, DDBLT_DONOTWAIT
'SupMiniMap.BltFast x, y, SurfaceDB.GetBMP(GrhData(i).FileNum), Sr, DDBLTFAST_DESTCOLORKEY
End If
Next
Next
End Sub
Y por ultimo agregar en Sub SwitchMap antes del end sub osea debajo de :
Citación :
MapInfo.Name = ""
MapInfo.Music = ""

CurMap = Map
Ponen:
Citación :
GenerarMiniMapa
Volver arriba Ir abajo
https://recompilacionao.forosactivos.com
 
Minimapa leyendo lectura de Pixeles
Volver arriba 
Página 1 de 1.
 Temas similares
-

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