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



 
ÍndiceIndiceÚltimas imágenesBuscarRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 1 usuario en línea: 0 Registrados, 0 Ocultos y 1 Invitado

Ninguno

El record de usuarios en línea fue de 22 durante el Lun Jun 08, 2020 2:43 am
Mejores posteadores
Rango
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
Habauc
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
Trogclodita
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
WhoTeR
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
Tomm-
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
ZankuR
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
GM-PekeMixz
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
LuciMoyo
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
MwM
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
Diclut s2 Lalaa♥
Mini map para tu AO Vote_lcapMini map para tu AO Voting_barMini map para tu AO Vote_rcap 
Estadísticas
Tenemos 98 miembros registrados
El último usuario registrado es Stephelinmu

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

 

 Mini map para tu AO

Ir abajo 
4 participantes
AutorMensaje
GM-PekeMixz
Capitan Primero
Capitan Primero
GM-PekeMixz


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

Mini map para tu AO Empty
MensajeTema: Mini map para tu AO   Mini map para tu AO Icon_minitimeMié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
https://www.facebook.com/CiudadesPerdidasAo
Rango
Administrador
Administrador
avatar


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

Mini map para tu AO Empty
MensajeTema: Re: Mini map para tu AO   Mini map para tu AO Icon_minitimeMié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!
Volver arriba Ir abajo
https://taller-argentum.foroargentina.net
Diclut s2 Lalaa♥
Pre-Avanzado
Pre-Avanzado
Diclut s2 Lalaa♥


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

Mini map para tu AO Empty
MensajeTema: Re: Mini map para tu AO   Mini map para tu AO Icon_minitimeMié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: http://www.mediafire.com/?1s74yhwms7wgli8
Volver arriba Ir abajo
LuciMoyo
Capitan
LuciMoyo


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

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

lindo aporte

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





Mini map para tu AO Empty
MensajeTema: Re: Mini map para tu AO   Mini map para tu AO Icon_minitime

Volver arriba Ir abajo
 
Mini map para tu AO
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Clikea mini map y teletransporta
» Sombra DX7 Para 13.0
» Comandos para un Mod fenix
» Sistema de Gran poder (don ) para 0.11.5
» Interfaces Para todos xD

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