GS-Zone
Facebook Twitter

Al pasar de mapa... 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

9
Este tema se encuentra cerrado.

Nota » 02 Dic 2011 15:56

Buenas, soy yo otra vez.

Como ya eh descubierto como hacer el gm, montar base de datos en AOYIND y todo eso.. ahora el problema que no deja pasar de mapa, cosa que necesito solucionar, ya que me bajé el server más que nada para ver los mapas y unas cosas de programación...
Según tengo entendido es el Sub Warpuserchar que está muy cargado y al pasar de mapa no deja o tarda en teletrasportarse...

Miren, aquí les dejo el Sub

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub WarpUserChar(ByVal UserIndex As Integer, ByVal Map As Integer, ByVal X As Integer, ByVal Y As Integer, Optional ByVal FX As Boolean = False, Optional ByVal EsControlado As Boolean = False)
  2.  
  3. 'Quitar el dialogo
  4. Call SendData(ToMap, 0, UserList(UserIndex).Pos.Map, "QDL" & UserList(UserIndex).Char.charindex)
  5.  
  6. Call SendData(ToIndex, UserIndex, UserList(UserIndex).Pos.Map, "QTDL")
  7.  
  8. Dim OldMap As Integer
  9. Dim OldX As Integer
  10. Dim OldY As Integer
  11.  
  12. OldMap = UserList(UserIndex).Pos.Map
  13. OldX = UserList(UserIndex).Pos.X
  14. OldY = UserList(UserIndex).Pos.Y
  15.  
  16. Call EraseUserChar(ToMap, 0, OldMap, UserIndex)
  17.  
  18. UserList(UserIndex).Pos.X = X
  19. UserList(UserIndex).Pos.Y = Y
  20. UserList(UserIndex).Pos.Map = Map
  21.  
  22. If OldMap <> Map Then
  23.      Call SendData(ToIndex, UserIndex, 0, "CM" & Map & "," & MapInfo(UserList(UserIndex).Pos.Map).MapVersion)
  24.      Call SendData(ToIndex, UserIndex, 0, "TM" & MapInfo(Map).Music)
  25. '    Call EnviarNoche(UserIndex)
  26.    
  27.     If UserList(UserIndex).Embarcado = 1 Then UserList(UserIndex).Embarcado = 0
  28.     Call MakeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
  29.     Call SendData(ToIndex, UserIndex, 0, "IP" & UserList(UserIndex).Char.charindex)
  30.  
  31.  
  32.     'Update new Map Users
  33.     MapInfo(Map).NumUsers = MapInfo(Map).NumUsers + 1
  34.  
  35.     'Update old Map Users
  36.     MapInfo(OldMap).NumUsers = MapInfo(OldMap).NumUsers - 1
  37.     If MapInfo(OldMap).NumUsers < 0 Then
  38.         MapInfo(OldMap).NumUsers = 0
  39.     End If
  40.     Dim LoopC As Integer
  41.     If OldMap = TorneoMap And EsControlado = False Then
  42.         For LoopC = 1 To TorInscriptos.Count
  43.             If UCase$(TorInscriptos(LoopC)) = UCase$(UserList(UserIndex).Name) Then
  44.                 TorInscriptos.Remove LoopC
  45.                 Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha abandonado el torneo." & FONTTYPE_GUILD)
  46.                 Exit For
  47.             End If
  48.         Next LoopC
  49.         Call CheckTorneoWinner(UserIndex)
  50.     End If
  51.     If Jugador1Torneo = UserIndex Then
  52.         If Jugador2Torneo > 0 Then
  53.             Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha dejado la sala de torneo, " & UserList(Jugador2Torneo).Name & " espera otro rival." & FONTTYPE_GUILD)
  54.         Else
  55.             Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha dejado la sala de torneo." & FONTTYPE_GUILD)
  56.         End If
  57.         Jugador1Torneo = Jugador2Torneo
  58.         If LastJugadorWin = 2 Then PartidasGanadas = 0
  59.         'UserList(UserIndex).Pos = Jugador1Map
  60.         Jugador1Map = Jugador2Map
  61.         LastJugadorWin = 1
  62.         Jugador2Torneo = 0
  63.        
  64.     ElseIf Jugador2Torneo = UserIndex Then
  65.         If Jugador1Torneo > 0 Then
  66.             Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha dejado la sala de torneo, " & UserList(Jugador1Torneo).Name & " espera otro rival." & FONTTYPE_GUILD)
  67.         Else
  68.             Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha dejado la sala de torneo." & FONTTYPE_GUILD)
  69.         End If
  70.         Jugador2Torneo = 0
  71.         LastJugadorWin = 1
  72.         'UserList(UserIndex).Pos = Jugador2Map
  73.     End If
  74. Else
  75.     Call MakeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
  76.     Call SendData(ToIndex, UserIndex, 0, "IP" & UserList(UserIndex).Char.charindex)
  77.  
  78.  
  79.  
  80. End If
  81. Call UpdateUserMap(UserIndex)
  82.  
  83.  
  84.  
  85.         'Seguis invisible al pasar de mapa
  86.         'If (UserList(UserIndex).flags.Invisible = 1 Or UserList(UserIndex).flags.Oculto = 1) And (Not UserList(UserIndex).flags.AdminInvisible = 1) Then
  87.         '    If EncriptarProtocolosCriticos Then
  88.         '        Call SendData(ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.charindex & ",1")
  89.         '    Else
  90.         '        Call SendData(ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.charindex & ",1")
  91.         '    End If
  92.         'End If
  93.  
  94. If FX And UserList(UserIndex).flags.AdminInvisible = 0 Then 'FX
  95.     Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_WARP)
  96.     Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & FXWARP & "," & 0)
  97. End If
  98.  
  99.  
  100. Call WarpMascotas(UserIndex)
  101.  
  102. End Sub


Si alguien de onda que me de una mano xD

ACLARACIÓN: El server es mod AoYind 2.7 por las dudas aclaro...

Ayuda por favor!

Gracias y Saludos!

Imagen

Imagen

Wildem.
Hola...!
¿Ustes vende un caballete?
-Si
¿Te rompieron el ojete?
-Anda a la puta que te pario...

JKJKASDKLJA
Wildem
^Maper^
533
Destructor de Mentes [4]
Registrado: Años de membresía
Mensajes: 650
Aportes: 3
Arriba

Nota » 03 Dic 2011 17:33

No creo que sea porque esta sobrecargado, debes tenes algo mal... te sugiero que lo pruebes en modo debug con muchos puntos de interrupción y vayas controlando las variables.

El más grande, lejos.
Imagen

Alkair escribió:32px alto x 32px ancho, en total creo que unos 64cm2

Jajajajaja xD

Rta:
Sobre lo de los centímetros, y bue, estaba viendo como pasarlo.
64pixels2 (?


1024 px^2
Germax
¡Libertad con responsabilidad!
728
Moderador
Registrado: Años de membresíaAños de membresía
Ubicación: San Francisco
Mensajes: 4944
Aportes: 39
Premios: 6
Campeón de Futbol (1) Mejor amigo del año (1) Usuario omnipresente (1) Embajador (3)
Arriba

Nota » 03 Dic 2011 18:51

Es que siempre lo ejecuto en modo de bug, pero nunca tira nada raro, solo no deja pasar :S

Imagen

Imagen

Wildem.
Hola...!
¿Ustes vende un caballete?
-Si
¿Te rompieron el ojete?
-Anda a la puta que te pario...

JKJKASDKLJA
Wildem
^Maper^
533
Destructor de Mentes [4]
Registrado: Años de membresía
Mensajes: 650
Aportes: 3
Arriba

Nota » 03 Dic 2011 20:15

Wildem escribió:Es que siempre lo ejecuto en modo de bug, pero nunca tira nada raro, solo no deja pasar :S


No importa, revisalo...

A mi en una época tenia un problema que me demoraba en cargar el servidor y era porque tenia mal una llamada...

El más grande, lejos.
Imagen

Alkair escribió:32px alto x 32px ancho, en total creo que unos 64cm2

Jajajajaja xD

Rta:
Sobre lo de los centímetros, y bue, estaba viendo como pasarlo.
64pixels2 (?


1024 px^2
Germax
¡Libertad con responsabilidad!
728
Moderador
Registrado: Años de membresíaAños de membresía
Ubicación: San Francisco
Mensajes: 4944
Aportes: 39
Premios: 6
Campeón de Futbol (1) Mejor amigo del año (1) Usuario omnipresente (1) Embajador (3)
Arriba

Nota » 03 Dic 2011 22:20

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub WarpUserChar(ByVal UserIndex As Integer, ByVal Map As Integer, ByVal X As Integer, ByVal Y As Integer, Optional ByVal FX As Boolean = False, Optional ByVal EsControlado As Boolean = False)
  2.  
  3. on error goto bugg
  4.  
  5. 'Quitar el dialogo
  6. 1 Call SendData(ToMap, 0, UserList(UserIndex).Pos.Map, "QDL" & UserList(UserIndex).Char.charindex)
  7.  
  8. 2 Call SendData(ToIndex, UserIndex, UserList(UserIndex).Pos.Map, "QTDL")
  9.  
  10. 3 Dim OldMap As Integer
  11. 4 Dim OldX As Integer
  12. 5 Dim OldY As Integer
  13.  
  14. 6 OldMap = UserList(UserIndex).Pos.Map
  15. 7 OldX = UserList(UserIndex).Pos.X
  16. 8 OldY = UserList(UserIndex).Pos.Y
  17.  
  18. 9 Call EraseUserChar(ToMap, 0, OldMap, UserIndex)
  19.  
  20. 10 UserList(UserIndex).Pos.X = X
  21. 11 UserList(UserIndex).Pos.Y = Y
  22. 12 UserList(UserIndex).Pos.Map = Map
  23.  
  24. 13 If OldMap <> Map Then
  25.  14    Call SendData(ToIndex, UserIndex, 0, "CM" & Map & "," & MapInfo(UserList(UserIndex).Pos.Map).MapVersion)
  26. 15     Call SendData(ToIndex, UserIndex, 0, "TM" & MapInfo(Map).Music)
  27. '    Call EnviarNoche(UserIndex)
  28.    
  29. 16    If UserList(UserIndex).Embarcado = 1 Then UserList(UserIndex).Embarcado = 0
  30.  17   Call MakeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
  31. 18    Call SendData(ToIndex, UserIndex, 0, "IP" & UserList(UserIndex).Char.charindex)
  32.  
  33.  
  34.     'Update new Map Users
  35.   19  MapInfo(Map).NumUsers = MapInfo(Map).NumUsers + 1
  36.  
  37.     'Update old Map Users
  38. 20    MapInfo(OldMap).NumUsers = MapInfo(OldMap).NumUsers - 1
  39.     If MapInfo(OldMap).NumUsers < 0 Then
  40.  21       MapInfo(OldMap).NumUsers = 0
  41.     End If
  42.  23   Dim LoopC As Integer
  43.  25   If OldMap = TorneoMap And EsControlado = False Then
  44.     26    For LoopC = 1 To TorInscriptos.Count
  45.      27       If UCase$(TorInscriptos(LoopC)) = UCase$(UserList(UserIndex).Name) Then
  46.    28             TorInscriptos.Remove LoopC
  47.       29          Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha abandonado el torneo." & FONTTYPE_GUILD)
  48.       30          Exit For
  49.             End If
  50.         Next LoopC
  51.     31    Call CheckTorneoWinner(UserIndex)
  52.     End If
  53.   32  If Jugador1Torneo = UserIndex Then
  54.    33     If Jugador2Torneo > 0 Then
  55.      34       Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha dejado la sala de torneo, " & UserList(Jugador2Torneo).Name & " espera otro rival." & FONTTYPE_GUILD)
  56.         Else
  57.    35         Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha dejado la sala de torneo." & FONTTYPE_GUILD)
  58.         End If
  59.     36    Jugador1Torneo = Jugador2Torneo
  60.      37   If LastJugadorWin = 2 Then PartidasGanadas = 0
  61.       38  'UserList(UserIndex).Pos = Jugador1Map
  62.      39   Jugador1Map = Jugador2Map
  63.     40    LastJugadorWin = 1
  64.       41  Jugador2Torneo = 0
  65.        
  66.   42  ElseIf Jugador2Torneo = UserIndex Then
  67.    43     If Jugador1Torneo > 0 Then
  68.      44       Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha dejado la sala de torneo, " & UserList(Jugador1Torneo).Name & " espera otro rival." & FONTTYPE_GUILD)
  69.         Else
  70.      45       Call SendData(ToAll, UserIndex, 0, "||" & UserList(UserIndex).Name & " ha dejado la sala de torneo." & FONTTYPE_GUILD)
  71.         End If
  72.    46     Jugador2Torneo = 0
  73.      47   LastJugadorWin = 1
  74.     48    'UserList(UserIndex).Pos = Jugador2Map
  75.     End If
  76. Else
  77.    49 Call MakeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
  78.    50 Call SendData(ToIndex, UserIndex, 0, "IP" & UserList(UserIndex).Char.charindex)
  79.  
  80.  
  81.  
  82. End If
  83. 60 Call UpdateUserMap(UserIndex)
  84.  
  85.  
  86.  
  87.         'Seguis invisible al pasar de mapa
  88.         'If (UserList(UserIndex).flags.Invisible = 1 Or UserList(UserIndex).flags.Oculto = 1) And (Not UserList(UserIndex).flags.AdminInvisible = 1) Then
  89.         '    If EncriptarProtocolosCriticos Then
  90.         '        Call SendData(ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.charindex & ",1")
  91.         '    Else
  92.         '        Call SendData(ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.charindex & ",1")
  93.         '    End If
  94.         'End If
  95.  
  96.  61 If FX And UserList(UserIndex).flags.AdminInvisible = 0 Then 'FX
  97.   62  Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_WARP)
  98.   63  Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & FXWARP & "," & 0)
  99. End If
  100.  
  101.  
  102. 65 Call WarpMascotas(UserIndex)
  103. exit sub
  104. bugg:
  105.  
  106. msgbox "Linea " & erl()
  107.  
  108. End Sub


ejecutá el servidor e intentá pasar de mapa, miraras el servidor y saldrá un cartel con algo así (ejemplo)

Linea 56

postea acá eso qe te dice, osea la linea.

LyRan escribió:Buenos Dias amigos y programadores de Gs Zone, Me gustaria pedirle la amabilidad de una ayuda con un cliente editado para mi Ao casero, Osea me explico, yo juego Ao con varios amigos y ellos todos usan cheat y no me gusta eso me gustaria que alguien me ayudara a crear un cliente editado con auto poteo de ambas potas a la ves ya sea que se alla gastado Mana lanzando algun hechis y comienze a potear solo hasta estar completamente el Mana, igual para la salud y poteo rapido para ambos.
maTih.-
mAnco programEr
779
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Ubicación: Bolivia
Mensajes: 2282
Aportes: 109
Arriba

Nota » 03 Dic 2011 23:29

No me tira nada :s osea quiero pasar de mapa y no pasa... como si estubiera bloqueado pero no, al teletrasportarme tarda banda, solo puedo ir al mapa 1 y 2. Y si creo pj por ejemplo en bander me dise qe el mapa es inválido o algo asi...

Imagen

Imagen

Wildem.
Hola...!
¿Ustes vende un caballete?
-Si
¿Te rompieron el ojete?
-Anda a la puta que te pario...

JKJKASDKLJA
Wildem
^Maper^
533
Destructor de Mentes [4]
Registrado: Años de membresía
Mensajes: 650
Aportes: 3
Arriba

Nota » 04 Dic 2011 13:36

Wildem escribió:No me tira nada :s osea quiero pasar de mapa y no pasa... como si estubiera bloqueado pero no, al teletrasportarme tarda banda, solo puedo ir al mapa 1 y 2. Y si creo pj por ejemplo en bander me dise qe el mapa es inválido o algo asi...


Para mi tenes un error en los mapas...
(carpeta maps)

El más grande, lejos.
Imagen

Alkair escribió:32px alto x 32px ancho, en total creo que unos 64cm2

Jajajajaja xD

Rta:
Sobre lo de los centímetros, y bue, estaba viendo como pasarlo.
64pixels2 (?


1024 px^2
Germax
¡Libertad con responsabilidad!
728
Moderador
Registrado: Años de membresíaAños de membresía
Ubicación: San Francisco
Mensajes: 4944
Aportes: 39
Premios: 6
Campeón de Futbol (1) Mejor amigo del año (1) Usuario omnipresente (1) Embajador (3)
Arriba

Nota » 04 Dic 2011 14:12

Imagen

El error de los mapas de aoyind creo! que no pasa por ahí... es un tanto mas complicado.
Última edición por Dunkan el 04 Dic 2011 14:15, editado 1 vez en total
Dunkan
All we need is love
460
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Ubicación: Mar del Plata
Mensajes: 1997
Aportes: 30
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 04 Dic 2011 15:19

Pero error de que tipo? que faltan mapas, que no los carga, porque no hay un archivo que diga la cantidad de mapas que se cargan o que hay y eso

Edit: Ya pueden cerrar, ya lo sulocioné, me puse a mirar detenidamente el server.ini y me di cuenta que desia Mapa=2 osea a mi me dejaba pasar a 2 mapas nda mas, entonces le puse mapa=277 y funco, era esa nda mas xD

Gracias a todos lo que me ayudaron!

Imagen

Imagen

Wildem.
Hola...!
¿Ustes vende un caballete?
-Si
¿Te rompieron el ojete?
-Anda a la puta que te pario...

JKJKASDKLJA
Wildem
^Maper^
533
Destructor de Mentes [4]
Registrado: Años de membresía
Mensajes: 650
Aportes: 3
Arriba
Este tema se encuentra cerrado.

Volver a Otras versiones

¿Quién está conectado?

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