ÍndiceCalendarioIndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 1 usuario en línea: 0 Registrados, 0 Ocultos y 1 Invitado

Ninguno

La mayor cantidad de usuarios en línea fue 16 el Miér Ago 07, 2013 8:12 pm.
Mejores posteadores
Rango
 
Habauc
 
Trogclodita
 
WhoTeR
 
Tomm-
 
ZankuR
 
GM-PekeMixz
 
LuciMoyo
 
MwM
 
Diclut s2 Lalaa♥
 
Estadísticas
Tenemos 97 miembros registrados.
El último usuario registrado es PekeMixzGamer1

Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.

Comparte | 
 

 Mini map para tu AO

Ir abajo 
AutorMensaje
GM-PekeMixz
Capitan Primero
Capitan Primero
avatar

Cantidad de envíos : 81
Fecha de inscripción : 24/07/2013
Edad : 20
Localización : Boulogne

MensajeTema: Mini map para tu AO   Miér Jul 24, 2013 4:53 pm

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
Volver arriba Ir abajo
Ver perfil de usuario https://www.facebook.com/CiudadesPerdidasAo
Rango
Administrador
Administrador


Cantidad de envíos : 191
Fecha de inscripción : 13/07/2013

MensajeTema: Re: Mini map para tu AO   Miér Jul 24, 2013 4:57 pm

Lindo aporte

y El link de Minimap Color Finder?.

Y para que versiónes es?

Acordate ponerlo en código todo eso.

Suerte!


Saludos y Suerte!

______________________________


Taller-Argentum fue creado el Sáb Jul 13, 2013 2:34 pm, es decir, lleva exactamente 1976 días de vida.Hasta ahora sus 97 usuarios han escrito 1289 temas en los 56 foros que existen.Tu, Invitado, has escrito 0 posts desde que te registraste el
Volver arriba Ir abajo
Ver perfil de usuario http://taller-argentum.foroargentina.net
Diclut s2 Lalaa♥
Pre-Avanzado
Pre-Avanzado
avatar

Cantidad de envíos : 44
Fecha de inscripción : 24/07/2013
Edad : 28
Localización : CAO Staff

MensajeTema: Re: Mini map para tu AO   Miér Jul 24, 2013 5:45 pm

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: mediafire.com ?1s74yhwms7wgli8
Volver arriba Ir abajo
Ver perfil de usuario
LuciMoyo
Capitan
avatar

Cantidad de envíos : 61
Fecha de inscripción : 19/07/2013
Edad : 18
Localización : de por Hay donde nadie sabe

MensajeTema: Re: Mini map para tu AO   Sáb Jul 27, 2013 9:35 am

lindo aporte

me va a servir en el futuro
Volver arriba Ir abajo
Ver perfil de usuario https://www.facebook.com/luciano.e.moyano
Contenido patrocinado




MensajeTema: Re: Mini map para tu AO   

Volver arriba Ir abajo
 
Mini map para tu AO
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Un poco de Música Friki: Hoy bandas sonoras para una friki partida de rol épica
» Busco Reflecting Pool x3 para GP Barcelona 2009
» Cartas para el Nacional
» Busco ideas para mazo de Modern
» Como hacer para que eBolivia tenga mas poblacion

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