(Problema URGENTE) !!!!!!!!!!

Ir abajo

(Problema URGENTE) !!!!!!!!!!

Mensaje por fryda el 30/3/2016, 2:45 am

Miren , hoy nesesito mucha ayuda con un tema que se bugea muchisimo .

El tema es que cuando yo pongo /ira ,/sum y tál se bugea un personaje , se crea un clon cerca de el que es muy molesto , se dupean npc y pjs tal cual son imagenes que se quedan congeladas en el mapa que a menos que la aplaste otro usuario o gm no se van Ej : El personaje ''Anacleta'' tiene a una copia sulla al lado de ella que la hace caminar con saltos y que solo el personaje lo ve , espero que me entiendan Saludos c:


fryda
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 254
Localización : Que les importa
Fecha de inscripción : 16/07/2013

Ver perfil de usuario

Volver arriba Ir abajo

Re: (Problema URGENTE) !!!!!!!!!!

Mensaje por BenjaXZ el 30/3/2016, 6:20 am

El error es tan viejo jaja... Que versión tenes ese bug? si es una 13.0 intenta buscar esta función:
Código:
Function NextOpenUser() As Integer
Y la remplazas hasta el end Function por esto:
Código:
Function NextOpenUser() As Integer
    Dim LoopC As Long
 
    For LoopC = 1 To MaxUsers + 1
        If LoopC > MaxUsers Then Exit For
        If (UserList(LoopC).ConnID = -1 And UserList(LoopC).flags.UserLogged = False) Then Exit For
    Next LoopC
 
    NextOpenUser = LoopC
End Function
avatar
BenjaXZ
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 439
Localización : Dolores
Fecha de inscripción : 29/05/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: (Problema URGENTE) !!!!!!!!!!

Mensaje por fryda el 30/3/2016, 4:57 pm

@BenjaXZ escribió:El error es tan viejo jaja... Que versión tenes ese bug? si es una 13.0 intenta buscar esta función:
Código:
Function NextOpenUser() As Integer
Y la remplazas hasta el end Function por esto:
Código:
Function NextOpenUser() As Integer
    Dim LoopC As Long
  
    For LoopC = 1 To MaxUsers + 1
        If LoopC > MaxUsers Then Exit For
        If (UserList(LoopC).ConnID = -1 And UserList(LoopC).flags.UserLogged = False) Then Exit For
    Next LoopC
  
    NextOpenUser = LoopC
End Function


Ahora lo pruebo !! gracias

fryda
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 254
Localización : Que les importa
Fecha de inscripción : 16/07/2013

Ver perfil de usuario

Volver arriba Ir abajo

Re: (Problema URGENTE) !!!!!!!!!!

Mensaje por Toyz el 30/3/2016, 5:23 pm

Es un problema del sistema de áreas, no tengo mucho conocimiento sobre el sistema, pero te tiro la data en donde es.
Espero que encuentres la solución, saludos.
PD: La próxima poné un titulo más explicito al thread.


Última edición por El Perro Justiciero el 30/3/2016, 5:55 pm, editado 1 vez
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: (Problema URGENTE) !!!!!!!!!!

Mensaje por BenjaXZ el 30/3/2016, 5:54 pm

Si es de áreas buscas en este sub
Código:
Public Sub SendToUserAreaButindex(ByVal UserIndex As Integer, ByVal sdData As String)
Código:
Dim AreaY As Integer
y agregar:
Código:
sdData = sdData & ENDC
En este sub haces lo mismo;
Código:
Public Sub SendToNpcArea(ByVal NpcIndex As Long, ByVal sdData As String)
avatar
BenjaXZ
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 439
Localización : Dolores
Fecha de inscripción : 29/05/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: (Problema URGENTE) !!!!!!!!!!

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.