Mini map para tu AO

Hola!!
En muchos vs esta el problema dle minimapa osea "uno dice Estoy en medio de un boque y nose donde esta la cueva y tenes que tar 1 ora buscando una cueva " por eso les traigo como crear el minimapa !!



1- Buscamos :



Public Type GrhData
sX As Integer
sY As Integer
FileNum As Integer
pixelWidth As Integer
pixelHeight As Integer
TileWidth As Single
TileHeight As Single
NumFrames As Integer
Frames(1 To 25) As Integer
Speed As Integer
End Type



Y lo reemplazamos por :


Public Type GrhData
sX As Integer
sY As Integer
FileNum As Integer
pixelWidth As Integer
pixelHeight As Integer
TileWidth As Single
TileHeight As Single
NumFrames As Integer
Frames(1 To 25) As Integer
Speed As Integer
Active As Boolean
MiniMap_color As Long
End Type



2- En cualquier modulo agregamos:



Public Sub DibujarMiniMapa()

Dim map_x As Long, map_y As Long

For map_y = 1 To 100
For map_x = 1 To 100
If MapData(map_x, map_y).Graphic(1).GrhIndex > 0 Then
SetPixel frmMain.MiniMap.hdc, map_x, map_y, GrhData(MapData(map_x, map_y).Graphic(1).GrhIndex).MiniMap_color
End If
Next map_x
Next map_y

SetPixel frmMain.MiniMap.hdc, UserPos.X, UserPos.Y, RGB(255, 0, 0)
SetPixel frmMain.MiniMap.hdc, UserPos.X + 1, UserPos.Y, RGB(255, 0, 0)
SetPixel frmMain.MiniMap.hdc, UserPos.X - 1, UserPos.Y, RGB(255, 0, 0)
SetPixel frmMain.MiniMap.hdc, UserPos.X, UserPos.Y - 1, RGB(255, 0, 0)
SetPixel frmMain.MiniMap.hdc, UserPos.X, UserPos.Y + 1, RGB(255, 0, 0)

frmMain.MiniMap.Refresh

End Sub



3- Buscamos:



Do Until Grh <= 0



Y debajo agregamos:


GrhData(Grh).Active = True



4- Buscamos (Sub LoadGrhData):


Loop
'************************************************

Close #1



Y debajo agregamos:


Dim count As Long

Open IniPath & "minimap.dat" For Binary As #1
Seek #1, 1
For count = 1 To 15000
If GrhData(count).Active Then
Get #1, , GrhData(count).MiniMap_color
End If
Next count
Close #1



5- Buscamos:


Call SetConnected



Y debajo agregamos:


Call DibujarMiniMapa



6- Buscamos:


Call SendData("M" & Direccion)



Y debajo agregamos:


Call DibujarMiniMapa



7- Agregamos al modulo Declaraciones :


Public Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long



8- Agregamos un picturebox al frmMain con las siguientes propiedades: Name = Minimap, ScaleMode = 3, Widht = 100, Height = 100, AutoRedraw = True

-------------------------------------------------------------------------

COMO GENERAR EL MINIMAP.DAT?

1- Descargamos esta aplicación: AO Minimap Color Finder

2- La colocamos dentro de la carpeta del cliente de argentum.

3- Ejecutamos la aplicación,y presionamos el boton 'Cargar Graficos.ind' y luego 'Comenzar!' y esperaremos a que termine el proceso..

4- Ya podemos borrar el AO Minimap Color Finder.exe y disfrutar del minimapa

AVISO: El minimap.dat se genera una sola vez y ya queda en la carpeta 'INIT' .. Solo hay que volver a generarlo si indexamos una nueva superficie

Rango escribió:

Lindo aporte

y El link de Minimap Color Finder?.

Y para que versiónes es?

Acordate ponerlo en código todo eso.

Suerte!

Lo que pasa, es que hay mucho Copy Paste aquí...
Versión: Cualquiera, solo crea un PicBox que se actualiza en pos y de imagen tiene el mapa e.e
Link subido por mi: http://www.mediafire.com/?1s74yhwms7wgli8

lindo aporte

me va a servir en el futuro