Solicitud a Clan

» 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?

» 29 Dic 2011 17:42

Primero no hay necesidad de insultar

Segundo Tenes creada la carpeta Guilds ??

» 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.

» 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 ?

» 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.

» 29 Dic 2011 18:01

Que cosa

Los paquetes ?
Los subs en el servidor ?

» 29 Dic 2011 18:27

Le puse un sistema de Castillos por GuildPoints.

» 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.

» 30 Dic 2011 09:55

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Sub a_RechazarAspiranteChar(ByRef Aspirante As String, ByVal Guild As Integer, ByRef Detalles As String)
    Aspirante = Replace(Aspirante, "\", "")
    Aspirante = Replace(Aspirante, "/", "")
    Aspirante = Replace(Aspirante, ".", "")
    Call Guilds(Guild).InformarRechazoEnChar(Aspirante, Detalles)
End Sub
 
Public Function a_ObtenerRechazoDeChar(ByRef Aspirante As String) As String
    Aspirante = Replace(Aspirante, "\", "")
    Aspirante = Replace(Aspirante, "/", "")
    Aspirante = Replace(Aspirante, ".", "")
    a_ObtenerRechazoDeChar = GetVar(CharPath & Aspirante & ".chr", "GUILD", "MotivoRechazo")
    Call WriteVar(CharPath & Aspirante & ".chr", "GUILD", "MotivoRechazo", vbNullString)
End Function
 
 
 
Public Function a_DetallesAspirante(ByVal UserIndex As Integer, ByRef Nombre As String) As String
Dim GI              As Integer
Dim NroAspirante    As Integer
 
    GI = UserList(UserIndex).GuildIndex
    If GI <= 0 Or GI > CANTIDADDECLANES Then
        Exit Function
    End If
    
    If Not m_EsGuildLeader(UserList(UserIndex).name, GI) Then
        Exit Function
    End If
    
    NroAspirante = Guilds(GI).NumeroDeAspirante(Nombre)
    If NroAspirante > 0 Then
        a_DetallesAspirante = Guilds(GI).DetallesSolicitudAspirante(NroAspirante)
    End If
    
End Function
Public Function a_RechazarAspirante(ByVal UserIndex As Integer, ByRef Nombre As String, ByRef motivo As String, ByRef refError As String) As Boolean
Dim GI              As Integer
Dim UI              As Integer
Dim NroAspirante    As Integer
 
    a_RechazarAspirante = False
    GI = UserList(UserIndex).GuildIndex
    If GI <= 0 Or GI > CANTIDADDECLANES Then
        refError = "No perteneces a ningún clan"
        Exit Function
    End If
 
    NroAspirante = Guilds(GI).NumeroDeAspirante(Nombre)
 
    If NroAspirante = 0 Then
        refError = Nombre & " no es aspirante a tu clan"
        Exit Function
    End If
 
    Call Guilds(GI).RetirarAspirante(Nombre, NroAspirante)
    refError = "Fue rechazada tu solicitud de ingreso a " & Guilds(GI).GuildName
    a_RechazarAspirante = True
 
End Function
Public Function a_DetallesPersonaje(ByVal UserIndex As Integer, ByRef Personaje As String, ByRef refError As String) As String
Dim GI          As Integer
Dim NroAsp      As Integer
Dim tStr        As String
Dim UserFile    As String
Dim Peticiones  As String
Dim Miembro     As String
Dim GuildActual As Integer
 
 
 
    a_DetallesPersonaje = vbNullString
    
    GI = UserList(UserIndex).GuildIndex
    If GI <= 0 Or GI > CANTIDADDECLANES Then
        refError = "No perteneces a ningún clan"
        Exit Function
    End If
    
    If Not m_EsGuildLeader(UserList(UserIndex).name, GI) Then
        refError = "No eres el líder de tu clan"
        Exit Function
    End If
    
    Personaje = Replace(Personaje, "\", vbNullString)
    Personaje = Replace(Personaje, "/", vbNullString)
    Personaje = Replace(Personaje, ".", vbNullString)
    
    NroAsp = Guilds(GI).NumeroDeAspirante(Personaje)
    
    If NroAsp = 0 Then
        If InStr(1, Guilds(GI).GetMemberList("."), Personaje, vbTextCompare) <= 0 Then
            refError = "El personaje no es ni aspirante ni miembro del clan"
            Exit Function
        End If
    End If
    
    'ahora traemos la info
    
    UserFile = CharPath & Personaje & ".chr"
 
    tStr = Personaje & "¬"
    tStr = tStr & GetVar(UserFile, "INIT", "Raza") & "¬"
    tStr = tStr & GetVar(UserFile, "INIT", "Clase") & "¬"
    tStr = tStr & GetVar(UserFile, "INIT", "Genero") & "¬"
    tStr = tStr & GetVar(UserFile, "STATS", "ELV") & "¬"
    tStr = tStr & GetVar(UserFile, "STATS", "GLD") & "¬"
    tStr = tStr & GetVar(UserFile, "STATS", "Banco") & "¬"
    tStr = tStr & GetVar(UserFile, "REP", "Promedio") & "¬"
    
    Peticiones = GetVar(UserFile, "GUILD", "Pedidos")
    tStr = tStr & IIf(Len(Peticiones) > 400, ".." & Right$(Peticiones, 400), Peticiones) & "¬"
    
    Miembro = GetVar(UserFile, "GUILD", "Miembro")
    tStr = tStr & IIf(Len(Miembro) > 400, ".." & Right$(Miembro, 400), Miembro) & "¬"
    
    GuildActual = val(GetVar(UserFile, "GUILD", "GuildIndex"))
    If GuildActual > 0 And GuildActual <= CANTIDADDECLANES Then
        tStr = tStr & "<" & Guilds(GuildActual).GuildName & ">" & "¬"
    Else
        tStr = tStr & "Ninguno" & "¬"
    End If
 
    tStr = tStr & GetVar(UserFile, "FACCIONES", "EjercitoReal") & "¬"
    tStr = tStr & GetVar(UserFile, "FACCIONES", "EjercitoCaos") & "¬"
    tStr = tStr & GetVar(UserFile, "FACCIONES", "CiudMatados") & "¬"
    tStr = tStr & GetVar(UserFile, "FACCIONES", "CrimMatados") & "¬"
    
    a_DetallesPersonaje = tStr
End Function
 
Public Function a_NuevoAspirante(ByVal UserIndex As Integer, ByRef Clan As String, ByRef Solicitud As String, ByRef refError As String) As Boolean
Dim ViejoSolicitado     As String
Dim ViejoGuildINdex     As Integer
Dim ViejoNroAspirante   As Integer
Dim NuevoGuildIndex     As Integer
 
    a_NuevoAspirante = False
 
    If UserList(UserIndex).GuildIndex > 0 Then
        refError = "Ya perteneces a un clan, debes salir del mismo antes de solicitar ingresar a otro"
        Exit Function
    End If
    
    If EsNewbie(UserIndex) Then
        refError = "Los newbies no tienen derecho a entrar a un clan."
        Exit Function
    End If
 
    NuevoGuildIndex = GuildIndex(Clan)
    If NuevoGuildIndex = 0 Then
        refError = "Ese clan no existe! Avise a un administrador."
        Exit Function
    End If
    
    If Not m_EstadoPermiteEntrar(UserIndex, NuevoGuildIndex) Then
        refError = "Tu no puedes entrar a un clan de alineación " & Alineacion2String(Guilds(NuevoGuildIndex).Alineacion)
        Exit Function
    End If
 
    If Guilds(NuevoGuildIndex).CantidadAspirantes >= MAXASPIRANTES Then
        refError = "El clan tiene demasiados aspirantes. Contáctate con un miembro para que procese las solicitudes."
        Exit Function
    End If
 
    ViejoSolicitado = GetVar(CharPath & UserList(UserIndex).name & ".chr", "GUILD", "ASPIRANTEA")
 
    If ViejoSolicitado <> vbNullString Then
        'borramos la vieja solicitud
        ViejoGuildINdex = CInt(ViejoSolicitado)
        If ViejoGuildINdex <> 0 Then
            ViejoNroAspirante = Guilds(ViejoGuildINdex).NumeroDeAspirante(UserList(UserIndex).name)
            If ViejoNroAspirante > 0 Then
                Call Guilds(ViejoGuildINdex).RetirarAspirante(UserList(UserIndex).name, ViejoNroAspirante)
            End If
        Else
            'RefError = "Inconsistencia en los clanes, avise a un administrador"
            'Exit Function
        End If
    End If
    
    Call Guilds(NuevoGuildIndex).NuevoAspirante(UserList(UserIndex).name, Solicitud)
    a_NuevoAspirante = True
End Function
 
Public Function a_AceptarAspirante(ByVal UserIndex As Integer, ByRef Aspirante As String, ByRef refError As String) As Boolean
Dim GI              As Integer
Dim NroAspirante    As Integer
Dim AspiranteUI     As Integer
 
    'un pj ingresa al clan :D
 
    a_AceptarAspirante = False
    
    GI = UserList(UserIndex).GuildIndex
    If GI <= 0 Or GI > CANTIDADDECLANES Then
        refError = "No perteneces a ningún clan"
        Exit Function
    End If
    
    If Not m_EsGuildLeader(UserList(UserIndex).name, GI) Then
        refError = "No eres el líder de tu clan"
        Exit Function
    End If
    
    NroAspirante = Guilds(GI).NumeroDeAspirante(Aspirante)
    
    If NroAspirante = 0 Then
        refError = "El Pj no es aspirante al clan"
        Exit Function
    End If
    
    AspiranteUI = NameIndex(Aspirante)
    If AspiranteUI > 0 Then
        'pj Online
        If Not m_EstadoPermiteEntrar(AspiranteUI, GI) Then
            refError = Aspirante & " no puede entrar a un clan " & Alineacion2String(Guilds(GI).Alineacion)
            Call Guilds(GI).RetirarAspirante(Aspirante, NroAspirante)
            Exit Function
        End If
    Else
        If Not m_EstadoPermiteEntrarChar(Aspirante, GI) Then
            refError = Aspirante & " no puede entrar a un clan"
            Call Guilds(GI).RetirarAspirante(Aspirante, NroAspirante)
            Exit Function
        End If
    End If
    'el pj es aspirante al clan y puede entrar
    
    Call Guilds(GI).RetirarAspirante(Aspirante, NroAspirante)
    Call Guilds(GI).AceptarNuevoMiembro(Aspirante)
 
    a_AceptarAspirante = True
 
End Function

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

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

Eso es no?

» 30 Dic 2011 15:54

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

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

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

» 30 Dic 2011 20:50

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

» 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

» 30 Dic 2011 22:31

No entiendo muy bien, pero es Clan as String?

» 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

» 31 Dic 2011 12:45

No entiendo, como consigo el valor? as interger asd

Solicitud a Clan

¿Quién está conectado?