Todo para tu server de AO
¡¡Bienvenido a http://todoao.forumotion.com!! ¡¡Si no estas registrado registrate tendras mas beneficios!!


Hola a todo aca podran encontrar todo lo que nececitan para tu server de AO
 
ÍndicePortalCalendarioMiembrosGrupos de UsuariosRegistrarseConectarseRadio del foro
¡¡Bienvenidos a www.todoao.forosactivos.net!! Donde encontras todo para tu server de AO
-Traigan gente y recibiran a cambio placas muy importantes, y seran parte del grupo de V.I.P .

Comparte | 
 

 Minimapa para tu server !!!

Ir abajo 
AutorMensaje
Lordtano
Admin
Admin
avatar

Mensajes : 7
Puntos : 16068
Fecha de inscripción : 04/02/2010
Edad : 23
Localización : Buenos Aires(Argentina)

MensajeTema: Minimapa para tu server !!!   Jue Feb 04, 2010 9:24 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 http://todoao.forosactivos.net
 
Minimapa para tu server !!!
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Server de Pokemon Online
» 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
» [Post General] Errores Server, bugs y demás

Permisos de este foro:No puedes responder a temas en este foro.
Todo para tu server de AO :: Argentum Online :: Programación-
Cambiar a: