Error al borrar PJ de clanes.

Ir abajo

Error al borrar PJ de clanes.

Mensaje por Maxii el 19/1/2016, 10:12 pm

http://www.gs-zone.org/temas/borrar-y-recuperar-pj-con-pin.39843/

Al borrar el PJ, no se borra el clan en Guilds, guildsinfo.inf, haciendo que se bugee y no puedas entrar a Clanes/Fundar clan con el nuevo PJ hecho, alguna ayuda?


Última edición por Maxii el 28/1/2016, 8:34 pm, editado 2 veces
avatar
Maxii
Nivel 5
Nivel 5

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 178
Edad : 23
Localización : Equestria, Canterlot
Fecha de inscripción : 07/10/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: Error al borrar PJ de clanes.

Mensaje por Toyz el 19/1/2016, 10:38 pm

@Maxii escribió:http://www.gs-zone.org/temas/f1-level-f2-skills-f3-resetear-pj-para-13-0-dervet.90223/

No sé como poner dichos códigos para hacer el reset hasta determinado LVL

Busca en el servidor:

Código:
Public Sub HandleReset(ByVal UserIndex As Integer)

Abajo de:

Código:
With UserList(UserIndex)

Pones:

Código:
If UserList(UserIndex).Stats.ELV > 25 Then
Call WriteConsoleMsg(UserIndex, "Eres mayor de nivel 25, ya no puedes resetear.", FontTypeNames.FONTTYPE_GUILD)
Exit Sub
End If


Lo otro después lo reviso y del tema de las túnicas etc, es que están mal posicionadas.
Saludos.
avatar
Toyz
Administrador
Administrador

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

Ver perfil de usuario

Volver arriba Ir abajo

Re: Error al borrar PJ de clanes.

Mensaje por Maxii el 19/1/2016, 11:01 pm

G Toyz escribió:
@Maxii escribió:http://www.gs-zone.org/temas/f1-level-f2-skills-f3-resetear-pj-para-13-0-dervet.90223/

No sé como poner dichos códigos para hacer el reset hasta determinado LVL

Busca en el servidor:

Código:
Public Sub HandleReset(ByVal UserIndex As Integer)

Abajo de:

Código:
With UserList(UserIndex)

Pones:

Código:
If UserList(UserIndex).Stats.ELV > 25 Then
Call WriteConsoleMsg(UserIndex, "Eres mayor de nivel 25, ya no puedes resetear.", FontTypeNames.FONTTYPE_GUILD)
Exit Sub
End If


Lo otro después lo reviso y del tema de las túnicas etc, es que están mal posicionadas.
Saludos.


Una cosa ya hecha, gracias!
avatar
Maxii
Nivel 5
Nivel 5

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 178
Edad : 23
Localización : Equestria, Canterlot
Fecha de inscripción : 07/10/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: Error al borrar PJ de clanes.

Mensaje por Sativa el 21/1/2016, 4:57 am

ponele borrar personaje con pin y te lo soluciona todo
http://www.gs-zone.org/temas/borrar-y-recuperar-pj-con-pin.39843/
avatar
Sativa
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 2871
Fecha de inscripción : 26/05/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: Error al borrar PJ de clanes.

Mensaje por Maxii el 21/1/2016, 2:57 pm

@Sativa escribió:ponele borrar personaje con pin y te lo soluciona todo
http://www.gs-zone.org/temas/borrar-y-recuperar-pj-con-pin.39843/

Justamente éste puse jaja, pero cuando borro el PJ, no se borra en definitiva todo.. queda el clan haciendo que se bugee y no puedas entrar a ningun clan o crashee, o sea.. no borra nada de la carpeta Guilds
avatar
Maxii
Nivel 5
Nivel 5

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 178
Edad : 23
Localización : Equestria, Canterlot
Fecha de inscripción : 07/10/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: Error al borrar PJ de clanes.

Mensaje por Sativa el 21/1/2016, 9:19 pm

Pasate por el post original que este.
http://www.gs-zone.org/temas/borrar-y-recuperar-pj-con-pin.39843/

lee los comentarios que algunos usuarios tuvieron algunos errores parecidos al tuyo, y fíjate si pusiste bien todo el código.
avatar
Sativa
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 2871
Fecha de inscripción : 26/05/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: Error al borrar PJ de clanes.

Mensaje por Toyz el 27/1/2016, 4:46 am

Fíjate si tenes bien está parte:

Código:
Public Sub KillCharINFO(ByVal User As String)
On Error Resume Next
 
Dim c As String
Dim d As String
Dim f As String
Dim g As String
Dim H As Byte
Dim i As String
Dim j As String
 
 
c = GetVar(App.Path & "\CHARFILE\" & User & ".chr", "GUILD", "GUILDINDEX")
d = GetVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & c, "founder")
f = GetVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & c, "GuildName")
g = GetVar(App.Path & "\guilds\" & f & "-members.mem", "INIT", "NroMembers")
j = GetVar(App.Path & "\guilds\" & f & "-members.mem", "Members", "Member" & g)
 
 
 
    If c = "" Then
        Kill (App.Path & "\CHARFILE\" & User & ".chr")
    Else
 
        If d <> User Then
            guilds(c).ExpulsarMiembro (User)
        Else
            For H = 1 To g
         
    i = GetVar(App.Path & "\guilds\" & f & "-members.mem", "Members", "Member" & H)
 
                If i = User Then Call WriteVar(App.Path & "\guilds\" & f & "-members.mem", "Members", "Member" & H, j): Call WriteVar(App.Path & "\guilds\" & f & "-members.mem", "INIT", "NroMembers", g - 1)
 
    Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & c, "EleccionesAbiertas", "1")
    Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & c, "EleccionesFinalizan", DateAdd("d", 1, Now))
Call WriteVar(App.Path & "\guilds\" & f & "-votaciones.vot", "INIT", "NumVotos", "0")
            Next H
         
        End If
    Kill (App.Path & "\CHARFILE\" & User & ".chr")
  End If
 
End Sub
     
         
Public Function GenerateRandomKey(ByVal User As String) As Integer
On Error Resume Next
 
        GenerateRandomKey = RandomNumber(500, 1600) + RandomNumber(5000, 16000)
        Call WriteVar(App.Path & "\CHARFILE\" & User & ".chr", "INIT", "Password", GenerateRandomKey)
 
End Function


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

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

Ver perfil de usuario

Volver arriba Ir abajo

Re: Error al borrar PJ de clanes.

Mensaje por Maxii el 28/1/2016, 8:34 pm

G Toyz escribió:Fíjate si tenes bien está parte:

Código:
Public Sub KillCharINFO(ByVal User As String)
On Error Resume Next
 
Dim c As String
Dim d As String
Dim f As String
Dim g As String
Dim H As Byte
Dim i As String
Dim j As String
 
 
c = GetVar(App.Path & "\CHARFILE" & User & ".chr", "GUILD", "GUILDINDEX")
d = GetVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & c, "founder")
f = GetVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & c, "GuildName")
g = GetVar(App.Path & "\guilds" & f & "-members.mem", "INIT", "NroMembers")
j = GetVar(App.Path & "\guilds" & f & "-members.mem", "Members", "Member" & g)
 
 
 
    If c = "" Then
        Kill (App.Path & "\CHARFILE" & User & ".chr")
    Else
  
        If d <> User Then
            guilds(c).ExpulsarMiembro (User)
        Else
            For H = 1 To g
          
    i = GetVar(App.Path & "\guilds" & f & "-members.mem", "Members", "Member" & H)
 
                If i = User Then Call WriteVar(App.Path & "\guilds" & f & "-members.mem", "Members", "Member" & H, j): Call WriteVar(App.Path & "\guilds" & f & "-members.mem", "INIT", "NroMembers", g - 1)
 
    Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & c, "EleccionesAbiertas", "1")
    Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & c, "EleccionesFinalizan", DateAdd("d", 1, Now))
Call WriteVar(App.Path & "\guilds" & f & "-votaciones.vot", "INIT", "NumVotos", "0")
            Next H
          
        End If
    Kill (App.Path & "\CHARFILE" & User & ".chr")
   End If
 
End Sub
      
          
Public Function GenerateRandomKey(ByVal User As String) As Integer
On Error Resume Next
 
        GenerateRandomKey = RandomNumber(500, 1600) + RandomNumber(5000, 16000)
        Call WriteVar(App.Path & "\CHARFILE" & User & ".chr", "INIT", "Password", GenerateRandomKey)
 
End Function


Sigue igual.
avatar
Maxii
Nivel 5
Nivel 5

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 178
Edad : 23
Localización : Equestria, Canterlot
Fecha de inscripción : 07/10/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: Error al borrar PJ de clanes.

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


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