GS-Zone

Solicitud a Clan Ir al Indice

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

29

Nota » 29 Dic 2011 17:34

Estoy re caliente porque ya testeando el servidor me aparece este error de mierda, bueno lo que pasa es cuando Mando solicitud al clan me aparece "Ese clan no existe! Avise a un administrador." me cago en la puta.
Dios alguna solución?

Holis
ADM 2013
561
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Argentina
Mensajes: 3112
Aportes: 9

Nota » 29 Dic 2011 17:42

Primero no hay necesidad de insultar

Segundo Tenes creada la carpeta Guilds ??
Última edición por miqueas150 el 29 Dic 2011 17:42, editado 1 vez en total

Imagen
Ninja en progreso
929 (+5)
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Nota » 29 Dic 2011 17:50

miqueas150 escribió:Primero no hay necesidad de insultar

Segundo Tenes creada la carpeta Guilds ??



Te insulte a vos? No, así que señorito a guardar palabras.


Esa pregunta no se hace, es mas que obvia.

Holis
ADM 2013
561
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Argentina
Mensajes: 3112
Aportes: 9

Nota » 29 Dic 2011 17:53

Faqe escribió:
miqueas150 escribió:Primero no hay necesidad de insultar

Segundo Tenes creada la carpeta Guilds ??



Te insulte a vos? No, así que señorito a guardar palabras.


Esa pregunta no se hace, es mas que obvia.

Tocaste algo referente a los clanes ?

Imagen
Ninja en progreso
929 (+5)
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Nota » 29 Dic 2011 17:58

miqueas150 escribió:
Faqe escribió:
miqueas150 escribió:Primero no hay necesidad de insultar

Segundo Tenes creada la carpeta Guilds ??



Te insulte a vos? No, así que señorito a guardar palabras.


Esa pregunta no se hace, es mas que obvia.

Tocaste algo referente a los clanes ?



Si.

Holis
ADM 2013
561
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Argentina
Mensajes: 3112
Aportes: 9

Nota » 29 Dic 2011 18:01

Que cosa xD
Los paquetes ?
Los subs en el servidor ?

Imagen
Ninja en progreso
929 (+5)
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13

Nota » 29 Dic 2011 18:27

Le puse un sistema de Castillos por GuildPoints.

Holis
ADM 2013
561
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Argentina
Mensajes: 3112
Aportes: 9

Nota » 29 Dic 2011 19:25

Pasanos todo el codigo relacionado con la solicitud de clan. Desde que envia el paquete hasta que verifica en el servidor si existe o no.

Imagen
Staff Tierras Legendarias
405
Oraculo [5]
Registrado: Años de membresía
Ubicación: Villa del parque
Mensajes: 1927
Aportes: 9

Nota » 30 Dic 2011 09:55

  1. Public Sub a_RechazarAspiranteChar(ByRef Aspirante As String, ByVal Guild As Integer, ByRef Detalles As String)
  2.     Aspirante = Replace(Aspirante, "\", "")
  3.     Aspirante = Replace(Aspirante, "/", "")
  4.     Aspirante = Replace(Aspirante, ".", "")
  5.     Call Guilds(Guild).InformarRechazoEnChar(Aspirante, Detalles)
  6. End Sub
  7.  
  8. Public Function a_ObtenerRechazoDeChar(ByRef Aspirante As String) As String
  9.     Aspirante = Replace(Aspirante, "\", "")
  10.     Aspirante = Replace(Aspirante, "/", "")
  11.     Aspirante = Replace(Aspirante, ".", "")
  12.     a_ObtenerRechazoDeChar = GetVar(CharPath & Aspirante & ".chr", "GUILD", "MotivoRechazo")
  13.     Call WriteVar(CharPath & Aspirante & ".chr", "GUILD", "MotivoRechazo", vbNullString)
  14. End Function
  15.  
  16.  
  17.  
  18. Public Function a_DetallesAspirante(ByVal UserIndex As Integer, ByRef Nombre As String) As String
  19. Dim GI              As Integer
  20. Dim NroAspirante    As Integer
  21.  
  22.     GI = UserList(UserIndex).GuildIndex
  23.     If GI <= 0 Or GI > CANTIDADDECLANES Then
  24.         Exit Function
  25.     End If
  26.    
  27.     If Not m_EsGuildLeader(UserList(UserIndex).name, GI) Then
  28.         Exit Function
  29.     End If
  30.    
  31.     NroAspirante = Guilds(GI).NumeroDeAspirante(Nombre)
  32.     If NroAspirante > 0 Then
  33.         a_DetallesAspirante = Guilds(GI).DetallesSolicitudAspirante(NroAspirante)
  34.     End If
  35.    
  36. End Function
  37. Public Function a_RechazarAspirante(ByVal UserIndex As Integer, ByRef Nombre As String, ByRef motivo As String, ByRef refError As String) As Boolean
  38. Dim GI              As Integer
  39. Dim UI              As Integer
  40. Dim NroAspirante    As Integer
  41.  
  42.     a_RechazarAspirante = False
  43.     GI = UserList(UserIndex).GuildIndex
  44.     If GI <= 0 Or GI > CANTIDADDECLANES Then
  45.         refError = "No perteneces a ningún clan"
  46.         Exit Function
  47.     End If
  48.  
  49.     NroAspirante = Guilds(GI).NumeroDeAspirante(Nombre)
  50.  
  51.     If NroAspirante = 0 Then
  52.         refError = Nombre & " no es aspirante a tu clan"
  53.         Exit Function
  54.     End If
  55.  
  56.     Call Guilds(GI).RetirarAspirante(Nombre, NroAspirante)
  57.     refError = "Fue rechazada tu solicitud de ingreso a " & Guilds(GI).GuildName
  58.     a_RechazarAspirante = True
  59.  
  60. End Function
  61. Public Function a_DetallesPersonaje(ByVal UserIndex As Integer, ByRef Personaje As String, ByRef refError As String) As String
  62. Dim GI          As Integer
  63. Dim NroAsp      As Integer
  64. Dim tStr        As String
  65. Dim UserFile    As String
  66. Dim Peticiones  As String
  67. Dim Miembro     As String
  68. Dim GuildActual As Integer
  69.  
  70.  
  71.  
  72.     a_DetallesPersonaje = vbNullString
  73.    
  74.     GI = UserList(UserIndex).GuildIndex
  75.     If GI <= 0 Or GI > CANTIDADDECLANES Then
  76.         refError = "No perteneces a ningún clan"
  77.         Exit Function
  78.     End If
  79.    
  80.     If Not m_EsGuildLeader(UserList(UserIndex).name, GI) Then
  81.         refError = "No eres el líder de tu clan"
  82.         Exit Function
  83.     End If
  84.    
  85.     Personaje = Replace(Personaje, "\", vbNullString)
  86.     Personaje = Replace(Personaje, "/", vbNullString)
  87.     Personaje = Replace(Personaje, ".", vbNullString)
  88.    
  89.     NroAsp = Guilds(GI).NumeroDeAspirante(Personaje)
  90.    
  91.     If NroAsp = 0 Then
  92.         If InStr(1, Guilds(GI).GetMemberList("."), Personaje, vbTextCompare) <= 0 Then
  93.             refError = "El personaje no es ni aspirante ni miembro del clan"
  94.             Exit Function
  95.         End If
  96.     End If
  97.    
  98.     'ahora traemos la info
  99.    
  100.     UserFile = CharPath & Personaje & ".chr"
  101.  
  102.     tStr = Personaje & "¬"
  103.     tStr = tStr & GetVar(UserFile, "INIT", "Raza") & "¬"
  104.     tStr = tStr & GetVar(UserFile, "INIT", "Clase") & "¬"
  105.     tStr = tStr & GetVar(UserFile, "INIT", "Genero") & "¬"
  106.     tStr = tStr & GetVar(UserFile, "STATS", "ELV") & "¬"
  107.     tStr = tStr & GetVar(UserFile, "STATS", "GLD") & "¬"
  108.     tStr = tStr & GetVar(UserFile, "STATS", "Banco") & "¬"
  109.     tStr = tStr & GetVar(UserFile, "REP", "Promedio") & "¬"
  110.    
  111.     Peticiones = GetVar(UserFile, "GUILD", "Pedidos")
  112.     tStr = tStr & IIf(Len(Peticiones) > 400, ".." & Right$(Peticiones, 400), Peticiones) & "¬"
  113.    
  114.     Miembro = GetVar(UserFile, "GUILD", "Miembro")
  115.     tStr = tStr & IIf(Len(Miembro) > 400, ".." & Right$(Miembro, 400), Miembro) & "¬"
  116.    
  117.     GuildActual = val(GetVar(UserFile, "GUILD", "GuildIndex"))
  118.     If GuildActual > 0 And GuildActual <= CANTIDADDECLANES Then
  119.         tStr = tStr & "<" & Guilds(GuildActual).GuildName & ">" & "¬"
  120.     Else
  121.         tStr = tStr & "Ninguno" & "¬"
  122.     End If
  123.  
  124.     tStr = tStr & GetVar(UserFile, "FACCIONES", "EjercitoReal") & "¬"
  125.     tStr = tStr & GetVar(UserFile, "FACCIONES", "EjercitoCaos") & "¬"
  126.     tStr = tStr & GetVar(UserFile, "FACCIONES", "CiudMatados") & "¬"
  127.     tStr = tStr & GetVar(UserFile, "FACCIONES", "CrimMatados") & "¬"
  128.    
  129.     a_DetallesPersonaje = tStr
  130. End Function
  131.  
  132. Public Function a_NuevoAspirante(ByVal UserIndex As Integer, ByRef Clan As String, ByRef Solicitud As String, ByRef refError As String) As Boolean
  133. Dim ViejoSolicitado     As String
  134. Dim ViejoGuildINdex     As Integer
  135. Dim ViejoNroAspirante   As Integer
  136. Dim NuevoGuildIndex     As Integer
  137.  
  138.     a_NuevoAspirante = False
  139.  
  140.     If UserList(UserIndex).GuildIndex > 0 Then
  141.         refError = "Ya perteneces a un clan, debes salir del mismo antes de solicitar ingresar a otro"
  142.         Exit Function
  143.     End If
  144.    
  145.     If EsNewbie(UserIndex) Then
  146.         refError = "Los newbies no tienen derecho a entrar a un clan."
  147.         Exit Function
  148.     End If
  149.  
  150.     NuevoGuildIndex = GuildIndex(Clan)
  151.     If NuevoGuildIndex = 0 Then
  152.         refError = "Ese clan no existe! Avise a un administrador."
  153.         Exit Function
  154.     End If
  155.    
  156.     If Not m_EstadoPermiteEntrar(UserIndex, NuevoGuildIndex) Then
  157.         refError = "Tu no puedes entrar a un clan de alineación " & Alineacion2String(Guilds(NuevoGuildIndex).Alineacion)
  158.         Exit Function
  159.     End If
  160.  
  161.     If Guilds(NuevoGuildIndex).CantidadAspirantes >= MAXASPIRANTES Then
  162.         refError = "El clan tiene demasiados aspirantes. Contáctate con un miembro para que procese las solicitudes."
  163.         Exit Function
  164.     End If
  165.  
  166.     ViejoSolicitado = GetVar(CharPath & UserList(UserIndex).name & ".chr", "GUILD", "ASPIRANTEA")
  167.  
  168.     If ViejoSolicitado <> vbNullString Then
  169.         'borramos la vieja solicitud
  170.         ViejoGuildINdex = CInt(ViejoSolicitado)
  171.         If ViejoGuildINdex <> 0 Then
  172.             ViejoNroAspirante = Guilds(ViejoGuildINdex).NumeroDeAspirante(UserList(UserIndex).name)
  173.             If ViejoNroAspirante > 0 Then
  174.                 Call Guilds(ViejoGuildINdex).RetirarAspirante(UserList(UserIndex).name, ViejoNroAspirante)
  175.             End If
  176.         Else
  177.             'RefError = "Inconsistencia en los clanes, avise a un administrador"
  178.             'Exit Function
  179.         End If
  180.     End If
  181.    
  182.     Call Guilds(NuevoGuildIndex).NuevoAspirante(UserList(UserIndex).name, Solicitud)
  183.     a_NuevoAspirante = True
  184. End Function
  185.  
  186. Public Function a_AceptarAspirante(ByVal UserIndex As Integer, ByRef Aspirante As String, ByRef refError As String) As Boolean
  187. Dim GI              As Integer
  188. Dim NroAspirante    As Integer
  189. Dim AspiranteUI     As Integer
  190.  
  191.     'un pj ingresa al clan :D
  192.  
  193.     a_AceptarAspirante = False
  194.    
  195.     GI = UserList(UserIndex).GuildIndex
  196.     If GI <= 0 Or GI > CANTIDADDECLANES Then
  197.         refError = "No perteneces a ningún clan"
  198.         Exit Function
  199.     End If
  200.    
  201.     If Not m_EsGuildLeader(UserList(UserIndex).name, GI) Then
  202.         refError = "No eres el líder de tu clan"
  203.         Exit Function
  204.     End If
  205.    
  206.     NroAspirante = Guilds(GI).NumeroDeAspirante(Aspirante)
  207.    
  208.     If NroAspirante = 0 Then
  209.         refError = "El Pj no es aspirante al clan"
  210.         Exit Function
  211.     End If
  212.    
  213.     AspiranteUI = NameIndex(Aspirante)
  214.     If AspiranteUI > 0 Then
  215.         'pj Online
  216.         If Not m_EstadoPermiteEntrar(AspiranteUI, GI) Then
  217.             refError = Aspirante & " no puede entrar a un clan " & Alineacion2String(Guilds(GI).Alineacion)
  218.             Call Guilds(GI).RetirarAspirante(Aspirante, NroAspirante)
  219.             Exit Function
  220.         End If
  221.     Else
  222.         If Not m_EstadoPermiteEntrarChar(Aspirante, GI) Then
  223.             refError = Aspirante & " no puede entrar a un clan"
  224.             Call Guilds(GI).RetirarAspirante(Aspirante, NroAspirante)
  225.             Exit Function
  226.         End If
  227.     End If
  228.     'el pj es aspirante al clan y puede entrar
  229.    
  230.     Call Guilds(GI).RetirarAspirante(Aspirante, NroAspirante)
  231.     Call Guilds(GI).AceptarNuevoMiembro(Aspirante)
  232.  
  233.     a_AceptarAspirante = True
  234.  
  235. End Function


  1. Case "SOLICITUD"
  2.              rData = Right$(rData, Len(rData) - 9)
  3.              Arg1 = ReadField(1, rData, Asc(","))
  4.              Arg2 = ReadField(2, rData, Asc(","))
  5.              If Not modGuilds.a_NuevoAspirante(UserIndex, Arg1, Arg2, tStr) Then
  6.                 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & tStr & FONTTYPE_GUILD)
  7.              Else
  8.                 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Tu solicitud ha sido enviada. Espera prontas noticias del líder de " & Arg1 & "." & FONTTYPE_GUILD)
  9.              End If
  10.              Exit Sub



Eso es no?

Holis
ADM 2013
561
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Argentina
Mensajes: 3112
Aportes: 9

Nota » 30 Dic 2011 15:54

  1. NuevoGuildIndex = GuildIndex(Clan)
  2.     If NuevoGuildIndex = 0 Then
  3.         refError = "Ese clan no existe! Avise a un administrador."
  4.         Exit Function
  5.     End If


Hace un punto de interrupcion en NuevoGuildIndex = 0 y fijate cual es el valor de la Variable "CLAN"

Imagen
Staff Tierras Legendarias
405
Oraculo [5]
Registrado: Años de membresía
Ubicación: Villa del parque
Mensajes: 1927
Aportes: 9

Nota » 30 Dic 2011 20:50

Y como se cual es el Valor, osea pongo el punto de interrupción y después que?

Holis
ADM 2013
561
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Argentina
Mensajes: 3112
Aportes: 9

Nota » 30 Dic 2011 21:00

Faqe escribió:Y como se cual es el Valor, osea pongo el punto de interrupción y después que?


Te paras sobre la variable "CLAN" y te tiene que decir su valor

Imagen
Staff Tierras Legendarias
405
Oraculo [5]
Registrado: Años de membresía
Ubicación: Villa del parque
Mensajes: 1927
Aportes: 9

Nota » 30 Dic 2011 22:31

No entiendo muy bien, pero es Clan as String?

Holis
ADM 2013
561
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Argentina
Mensajes: 3112
Aportes: 9

Nota » 31 Dic 2011 02:07

Faqe escribió:No entiendo muy bien, pero es Clan as String?


Me equivoque, pone el punto de interrupcion y fijate el valor de NuevoGuildIndex

Imagen
Staff Tierras Legendarias
405
Oraculo [5]
Registrado: Años de membresía
Ubicación: Villa del parque
Mensajes: 1927
Aportes: 9

Nota » 31 Dic 2011 12:45

No entiendo, como consigo el valor? as interger asd

Holis
ADM 2013
561
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Argentina
Mensajes: 3112
Aportes: 9

Siguiente

Volver a AO 0.11.5

¿Quién está conectado?

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