GS-Zone
Facebook Twitter

Cliente DX 8 Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

8
Este tema se encuentra cerrado.

Nota » 05 Jun 2011 01:15

Nesecitaria el Cliente en DX8 :P El que encontre No andaba bien. Nos vemos :P
Facundo Pirex
Reencarnacion, Kurt Donald Cobain
Newbie [1]
Registrado: Junio 2011
Mensajes: 2
Arriba

Nota » 05 Jun 2011 15:13

q problema tenia



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
681
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3545
Aportes: 40
Arriba

Nota » 05 Jun 2011 15:17

Lo mismo digo :S
Este cliente DX8 es el primero q salio, de este se basaron las otras versiones haci q no creo q haya problemas :S
En q falla?

Saludos!

Franco77
I.A.C.C ♥
281
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Cordoba
Mensajes: 1471
Aportes: 31
Premios: 4
Mejor aporte del año (2) Embajador (2)
Arriba

Nota » 05 Jun 2011 15:35

Franco77 escribió:Lo mismo digo :S
Este cliente DX8 es el primero q salio, de este se basaron las otras versiones haci q no creo q haya problemas :S
En q falla?

Saludos!


aa, creo q ya se cual es el problema...

no se ve nada en el mapa no? solo dibuja objetos y npc no?

si es eso reemplaza el SwitchMap por este

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub SwitchMap(ByVal map As Integer)
  2. '**************************************************************
  3. 'Formato de mapas optimizado para reducir el espacio que ocupan.
  4. 'Diseñado y creado por Juan Martín Sotuyo Dodero (Maraxus) (juansotuyo@hotmail.com)
  5. '**************************************************************
  6.     Dim Y As Long
  7.     Dim X As Long
  8.     Dim tempint As Integer
  9.     Dim ByFlags As Byte
  10.     Dim handle As Integer
  11.    
  12.     handle = FreeFile()
  13.    
  14.     Open App.path & "\MAPAS\" & "Mapa" & map & ".map" For Binary As handle
  15.     Seek handle, 1
  16.            
  17.     'map Header
  18.     Get handle, , MapInfo.MapVersion
  19.     Get handle, , MiCabecera
  20.     Get handle, , tempint
  21.     Get handle, , tempint
  22.     Get handle, , tempint
  23.     Get handle, , tempint
  24.    
  25.     'Load arrays
  26.     For Y = YMinMapSize To YMaxMapSize
  27.         For X = XMinMapSize To XMaxMapSize
  28.             Get handle, , ByFlags
  29.             MapData(X, Y).luz = 0
  30.             MapData(X, Y).particle_group = 0
  31.             MapData(X, Y).Blocked = (ByFlags And 1)
  32.            
  33.             Get handle, , MapData(X, Y).Graphic(1).grhindex
  34.             InitGrh MapData(X, Y).Graphic(1), MapData(X, Y).Graphic(1).grhindex
  35.            
  36.             'Layer 2 used?
  37.             If ByFlags And 2 Then
  38.                 Get handle, , MapData(X, Y).Graphic(2).grhindex
  39.                 InitGrh MapData(X, Y).Graphic(2), MapData(X, Y).Graphic(2).grhindex
  40.             Else
  41.                 MapData(X, Y).Graphic(2).grhindex = 0
  42.             End If
  43.                
  44.             'Layer 3 used?
  45.             If ByFlags And 4 Then
  46.                 Get handle, , MapData(X, Y).Graphic(3).grhindex
  47.                 InitGrh MapData(X, Y).Graphic(3), MapData(X, Y).Graphic(3).grhindex
  48.             Else
  49.                 MapData(X, Y).Graphic(3).grhindex = 0
  50.             End If
  51.                
  52.             'Layer 4 used?
  53.             If ByFlags And 8 Then
  54.                 Get handle, , MapData(X, Y).Graphic(4).grhindex
  55.                 InitGrh MapData(X, Y).Graphic(4), MapData(X, Y).Graphic(4).grhindex
  56.             Else
  57.                 MapData(X, Y).Graphic(4).grhindex = 0
  58.             End If
  59.            
  60.             'Trigger used?
  61.             If ByFlags And 16 Then
  62.                 Get handle, , MapData(X, Y).Trigger
  63.             Else
  64.                 MapData(X, Y).Trigger = 0
  65.             End If
  66.            
  67.             'Erase NPCs
  68.             If MapData(X, Y).CharIndex > 0 Then
  69.                 Call EraseChar(MapData(X, Y).CharIndex)
  70.             End If
  71.            
  72.             'Erase OBJs
  73.             MapData(X, Y).ObjGrh.grhindex = 0
  74.         Next X
  75.     Next Y
  76.    
  77.     Close handle
  78.    
  79.     MapInfo.Name = ""
  80.     MapInfo.Music = ""
  81.    
  82.     CurMap = map
  83. End Sub
  84.  



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
681
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3545
Aportes: 40
Arriba

Nota » 05 Jun 2011 16:06

GoDKeR escribió:
Franco77 escribió:Lo mismo digo :S
Este cliente DX8 es el primero q salio, de este se basaron las otras versiones haci q no creo q haya problemas :S
En q falla?

Saludos!


aa, creo q ya se cual es el problema...

no se ve nada en el mapa no? solo dibuja objetos y npc no?

si es eso reemplaza el SwitchMap por este

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub SwitchMap(ByVal map As Integer)
  2. '**************************************************************
  3. 'Formato de mapas optimizado para reducir el espacio que ocupan.
  4. 'Diseñado y creado por Juan Martín Sotuyo Dodero (Maraxus) (juansotuyo@hotmail.com)
  5. '**************************************************************
  6.     Dim Y As Long
  7.     Dim X As Long
  8.     Dim tempint As Integer
  9.     Dim ByFlags As Byte
  10.     Dim handle As Integer
  11.    
  12.     handle = FreeFile()
  13.    
  14.     Open App.path & "\MAPAS\" & "Mapa" & map & ".map" For Binary As handle
  15.     Seek handle, 1
  16.            
  17.     'map Header
  18.     Get handle, , MapInfo.MapVersion
  19.     Get handle, , MiCabecera
  20.     Get handle, , tempint
  21.     Get handle, , tempint
  22.     Get handle, , tempint
  23.     Get handle, , tempint
  24.    
  25.     'Load arrays
  26.     For Y = YMinMapSize To YMaxMapSize
  27.         For X = XMinMapSize To XMaxMapSize
  28.             Get handle, , ByFlags
  29.             MapData(X, Y).luz = 0
  30.             MapData(X, Y).particle_group = 0
  31.             MapData(X, Y).Blocked = (ByFlags And 1)
  32.            
  33.             Get handle, , MapData(X, Y).Graphic(1).grhindex
  34.             InitGrh MapData(X, Y).Graphic(1), MapData(X, Y).Graphic(1).grhindex
  35.            
  36.             'Layer 2 used?
  37.             If ByFlags And 2 Then
  38.                 Get handle, , MapData(X, Y).Graphic(2).grhindex
  39.                 InitGrh MapData(X, Y).Graphic(2), MapData(X, Y).Graphic(2).grhindex
  40.             Else
  41.                 MapData(X, Y).Graphic(2).grhindex = 0
  42.             End If
  43.                
  44.             'Layer 3 used?
  45.             If ByFlags And 4 Then
  46.                 Get handle, , MapData(X, Y).Graphic(3).grhindex
  47.                 InitGrh MapData(X, Y).Graphic(3), MapData(X, Y).Graphic(3).grhindex
  48.             Else
  49.                 MapData(X, Y).Graphic(3).grhindex = 0
  50.             End If
  51.                
  52.             'Layer 4 used?
  53.             If ByFlags And 8 Then
  54.                 Get handle, , MapData(X, Y).Graphic(4).grhindex
  55.                 InitGrh MapData(X, Y).Graphic(4), MapData(X, Y).Graphic(4).grhindex
  56.             Else
  57.                 MapData(X, Y).Graphic(4).grhindex = 0
  58.             End If
  59.            
  60.             'Trigger used?
  61.             If ByFlags And 16 Then
  62.                 Get handle, , MapData(X, Y).Trigger
  63.             Else
  64.                 MapData(X, Y).Trigger = 0
  65.             End If
  66.            
  67.             'Erase NPCs
  68.             If MapData(X, Y).CharIndex > 0 Then
  69.                 Call EraseChar(MapData(X, Y).CharIndex)
  70.             End If
  71.            
  72.             'Erase OBJs
  73.             MapData(X, Y).ObjGrh.grhindex = 0
  74.         Next X
  75.     Next Y
  76.    
  77.     Close handle
  78.    
  79.     MapInfo.Name = ""
  80.     MapInfo.Music = ""
  81.    
  82.     CurMap = map
  83. End Sub
  84.  

¿Que tiene que ver eso? xD...

Lo que pasa seguro es que no pasaste los graficos a ^2 (Potencia por 2)...

Fijate que hay un programa que puso Blizzard si no me confundo, que es para eso...



Adios.
[K]alamar
Proyectando Ideas
20
Newbie [4]
Registrado: Mayo 2011
Mensajes: 108
Arriba

Nota » 05 Jun 2011 16:14

[K]alamar escribió:
GoDKeR escribió:
Franco77 escribió:Lo mismo digo :S
Este cliente DX8 es el primero q salio, de este se basaron las otras versiones haci q no creo q haya problemas :S
En q falla?

Saludos!


aa, creo q ya se cual es el problema...

no se ve nada en el mapa no? solo dibuja objetos y npc no?

si es eso reemplaza el SwitchMap por este

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub SwitchMap(ByVal map As Integer)
  2. '**************************************************************
  3. 'Formato de mapas optimizado para reducir el espacio que ocupan.
  4. 'Diseñado y creado por Juan Martín Sotuyo Dodero (Maraxus) (juansotuyo@hotmail.com)
  5. '**************************************************************
  6.     Dim Y As Long
  7.     Dim X As Long
  8.     Dim tempint As Integer
  9.     Dim ByFlags As Byte
  10.     Dim handle As Integer
  11.    
  12.     handle = FreeFile()
  13.    
  14.     Open App.path & "\MAPAS\" & "Mapa" & map & ".map" For Binary As handle
  15.     Seek handle, 1
  16.            
  17.     'map Header
  18.     Get handle, , MapInfo.MapVersion
  19.     Get handle, , MiCabecera
  20.     Get handle, , tempint
  21.     Get handle, , tempint
  22.     Get handle, , tempint
  23.     Get handle, , tempint
  24.    
  25.     'Load arrays
  26.     For Y = YMinMapSize To YMaxMapSize
  27.         For X = XMinMapSize To XMaxMapSize
  28.             Get handle, , ByFlags
  29.             MapData(X, Y).luz = 0
  30.             MapData(X, Y).particle_group = 0
  31.             MapData(X, Y).Blocked = (ByFlags And 1)
  32.            
  33.             Get handle, , MapData(X, Y).Graphic(1).grhindex
  34.             InitGrh MapData(X, Y).Graphic(1), MapData(X, Y).Graphic(1).grhindex
  35.            
  36.             'Layer 2 used?
  37.             If ByFlags And 2 Then
  38.                 Get handle, , MapData(X, Y).Graphic(2).grhindex
  39.                 InitGrh MapData(X, Y).Graphic(2), MapData(X, Y).Graphic(2).grhindex
  40.             Else
  41.                 MapData(X, Y).Graphic(2).grhindex = 0
  42.             End If
  43.                
  44.             'Layer 3 used?
  45.             If ByFlags And 4 Then
  46.                 Get handle, , MapData(X, Y).Graphic(3).grhindex
  47.                 InitGrh MapData(X, Y).Graphic(3), MapData(X, Y).Graphic(3).grhindex
  48.             Else
  49.                 MapData(X, Y).Graphic(3).grhindex = 0
  50.             End If
  51.                
  52.             'Layer 4 used?
  53.             If ByFlags And 8 Then
  54.                 Get handle, , MapData(X, Y).Graphic(4).grhindex
  55.                 InitGrh MapData(X, Y).Graphic(4), MapData(X, Y).Graphic(4).grhindex
  56.             Else
  57.                 MapData(X, Y).Graphic(4).grhindex = 0
  58.             End If
  59.            
  60.             'Trigger used?
  61.             If ByFlags And 16 Then
  62.                 Get handle, , MapData(X, Y).Trigger
  63.             Else
  64.                 MapData(X, Y).Trigger = 0
  65.             End If
  66.            
  67.             'Erase NPCs
  68.             If MapData(X, Y).CharIndex > 0 Then
  69.                 Call EraseChar(MapData(X, Y).CharIndex)
  70.             End If
  71.            
  72.             'Erase OBJs
  73.             MapData(X, Y).ObjGrh.grhindex = 0
  74.         Next X
  75.     Next Y
  76.    
  77.     Close handle
  78.    
  79.     MapInfo.Name = ""
  80.     MapInfo.Music = ""
  81.    
  82.     CurMap = map
  83. End Sub
  84.  

¿Que tiene que ver eso? xD...

Lo que pasa seguro es que no pasaste los graficos a ^2 (Potencia por 2)...

Fijate que hay un programa que puso Blizzard si no me confundo, que es para eso...



Adios.


ya me estoy cansando de las boludeces q postias...

el problema q trae el cliente de Menduz y es un problema con el DirMaps, no tiene nada q ver los graficos a ^2



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
681
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3545
Aportes: 40
Arriba

Nota » 05 Jun 2011 16:17

GoDKeR escribió:
[K]alamar escribió:
GoDKeR escribió:
aa, creo q ya se cual es el problema...

no se ve nada en el mapa no? solo dibuja objetos y npc no?

si es eso reemplaza el SwitchMap por este

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub SwitchMap(ByVal map As Integer)
  2. '**************************************************************
  3. 'Formato de mapas optimizado para reducir el espacio que ocupan.
  4. 'Diseñado y creado por Juan Martín Sotuyo Dodero (Maraxus) (juansotuyo@hotmail.com)
  5. '**************************************************************
  6.     Dim Y As Long
  7.     Dim X As Long
  8.     Dim tempint As Integer
  9.     Dim ByFlags As Byte
  10.     Dim handle As Integer
  11.    
  12.     handle = FreeFile()
  13.    
  14.     Open App.path & "\MAPAS\" & "Mapa" & map & ".map" For Binary As handle
  15.     Seek handle, 1
  16.            
  17.     'map Header
  18.     Get handle, , MapInfo.MapVersion
  19.     Get handle, , MiCabecera
  20.     Get handle, , tempint
  21.     Get handle, , tempint
  22.     Get handle, , tempint
  23.     Get handle, , tempint
  24.    
  25.     'Load arrays
  26.     For Y = YMinMapSize To YMaxMapSize
  27.         For X = XMinMapSize To XMaxMapSize
  28.             Get handle, , ByFlags
  29.             MapData(X, Y).luz = 0
  30.             MapData(X, Y).particle_group = 0
  31.             MapData(X, Y).Blocked = (ByFlags And 1)
  32.            
  33.             Get handle, , MapData(X, Y).Graphic(1).grhindex
  34.             InitGrh MapData(X, Y).Graphic(1), MapData(X, Y).Graphic(1).grhindex
  35.            
  36.             'Layer 2 used?
  37.             If ByFlags And 2 Then
  38.                 Get handle, , MapData(X, Y).Graphic(2).grhindex
  39.                 InitGrh MapData(X, Y).Graphic(2), MapData(X, Y).Graphic(2).grhindex
  40.             Else
  41.                 MapData(X, Y).Graphic(2).grhindex = 0
  42.             End If
  43.                
  44.             'Layer 3 used?
  45.             If ByFlags And 4 Then
  46.                 Get handle, , MapData(X, Y).Graphic(3).grhindex
  47.                 InitGrh MapData(X, Y).Graphic(3), MapData(X, Y).Graphic(3).grhindex
  48.             Else
  49.                 MapData(X, Y).Graphic(3).grhindex = 0
  50.             End If
  51.                
  52.             'Layer 4 used?
  53.             If ByFlags And 8 Then
  54.                 Get handle, , MapData(X, Y).Graphic(4).grhindex
  55.                 InitGrh MapData(X, Y).Graphic(4), MapData(X, Y).Graphic(4).grhindex
  56.             Else
  57.                 MapData(X, Y).Graphic(4).grhindex = 0
  58.             End If
  59.            
  60.             'Trigger used?
  61.             If ByFlags And 16 Then
  62.                 Get handle, , MapData(X, Y).Trigger
  63.             Else
  64.                 MapData(X, Y).Trigger = 0
  65.             End If
  66.            
  67.             'Erase NPCs
  68.             If MapData(X, Y).CharIndex > 0 Then
  69.                 Call EraseChar(MapData(X, Y).CharIndex)
  70.             End If
  71.            
  72.             'Erase OBJs
  73.             MapData(X, Y).ObjGrh.grhindex = 0
  74.         Next X
  75.     Next Y
  76.    
  77.     Close handle
  78.    
  79.     MapInfo.Name = ""
  80.     MapInfo.Music = ""
  81.    
  82.     CurMap = map
  83. End Sub
  84.  

¿Que tiene que ver eso? xD...

Lo que pasa seguro es que no pasaste los graficos a ^2 (Potencia por 2)...

Fijate que hay un programa que puso Blizzard si no me confundo, que es para eso...



Adios.


ya me estoy cansando de las boludeces q postias...

el problema q trae el cliente de Menduz y es un problema con el DirMaps, no tiene nada q ver los graficos a ^2


No te enojes GodKer, me refiero a que el dice que el Problema es el Cliente :P...

Ademas, yo trabajo con esa version y no tengo ese problema del DirMaps.
[K]alamar
Proyectando Ideas
20
Newbie [4]
Registrado: Mayo 2011
Mensajes: 108
Arriba

Nota » 06 Jun 2011 22:12

WTF? No entendi un Carajo :P Yo nesecitaria un CLIENTE EN DX 8. No como arreglarlo

PD:Gracias igual :P
Facundo Pirex
Reencarnacion, Kurt Donald Cobain
Newbie [1]
Registrado: Junio 2011
Mensajes: 2
Arriba
Este tema se encuentra cerrado.

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados