Comando para desbuguear sistemas

» 10 Ene 2012 17:06

Bueno, se me ocurrió esto por si se me bugueaba algún sistema de los de agite y que se yo, se los dejo

Lo modifican a su gusto (guiense por los comentarios)

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

Case "/DESBUGUEAR"
            If Not UCase(UserList(UserIndex).name) <> "LEKASAK" Or UCase(UserList(UserIndex).name) <> "NETHIRD" Or _
                UCase(UserList(UserIndex).name) <> "SKYFUN" Then
Call SendData(SendTarget.Toindex, UserIndex, 0, "||Solo Lekasak, Nethird o Skyfun pueden utilizar este comando." & FONTTYPE_INFO)
Exit Sub
End If
                
    Dim Z As Byte, xx As Integer, yy As Integer
    xx = 0: yy = 0
    For Z = 1 To LastUser
      xx = xx + 1
      yy = yy + 1
      
      With UserList(Z).flags
       'Esto lo cambian por las declaraciones de sus sistemas
        .Retando = False
        .Desafiando = False
        .EnClanVsclan = False
      End With
      WarpUserChar Z, 1, 28 + xx, 43 + yy, True
    Next Z
    
'Cambiar haycvc por su declaracion en la que activa el sistema igual que con reto y desafio.
      If HayCvc = True Then
          If UserList(Z).Pos.Map = 59 Then 'Cambiar por su mapa o sacar :P
              WarpUserChar Z, 1, 50, 50, True
              UserList(Z).flags.EnClanVsclan = False
          End If
          HayCvc = False
      End If
    Next Z
Exit Sub
 
If HayReto = True Then
          If UserList(Z).Pos.Map = 59 Then 'Cambiar por su mapa o sacar :P
              WarpUserChar Z, 1, 50, 50, True
              UserList(Z).flags.Retando = False
          End If
          HayReto = False
      End If
    Next Z
Exit Sub
 
If HayDesafio = True Then
          If UserList(Z).Pos.Map = 59 Then 'Cambiar por su mapa o sacar :P
              WarpUserChar Z, 1, 50, 50, True
              UserList(Z).flags.Desfiando = False
          End If
          HayDesafio = False
      End If
    Next Z
Exit Sub
 

Segundo codigo liberado de S-A Ao.

Cualquier cosa me chiflan.

» 10 Ene 2012 17:11

Eso no es debuguear, a eso se le llama resetar, no tiene nada que ver una cosa con la otra. Igualmente, sigue siendo util.

» 10 Ene 2012 17:11

•Parra escribió:Eso no es debuguear, a eso se le llama resetar, no tiene nada que ver una cosa con la otra.

Pero se entiende para que sirve el código

» 10 Ene 2012 17:19

¿Leí mal o teletransporta a todos los usuarios en el servidor a Ullathorpe?

» 10 Ene 2012 17:32

ArzenaTh escribió:¿Leí mal o teletransporta a todos los usuarios en el servidor a Ullathorpe?

no leiste mal. le falto un if que verifique si tiene x Flags para despues resetearselos y teletransportarlos a ulla.

» 10 Ene 2012 17:33

Y el usuario que va a agregar este código justo va a tener los códigos con estos flags?
.Retando = False
.Desafiando = False
.EnClanVsclan = False

Adiós.

» 10 Ene 2012 18:44

Lord Fers escribió:Y el usuario que va a agregar este código justo va a tener los códigos con estos flags?
.Retando = False
.Desafiando = False
.EnClanVsclan = False

Adiós.

Se auto declaran magicamente, no sabias? Podrias dejar una base en ves de poner cosas que a los usuarios no le van andar, igual no tiro abajo lo que hicistes es solo un consejo, buen aporte.

Saludos

» 10 Ene 2012 21:57

Ya lo aclare en el codigo, creo que era medio obio

Mi Canal YouTube · » 11 Ene 2012 11:52

Samke escribió:
Lord Fers escribió:Y el usuario que va a agregar este código justo va a tener los códigos con estos flags?
.Retando = False
.Desafiando = False
.EnClanVsclan = False

Adiós.

Se auto declaran magicamente, no sabias? Podrias dejar una base en ves de poner cosas que a los usuarios no le van andar, igual no tiro abajo lo que hicistes es solo un consejo, buen aporte.

Saludos

aclaro en el code q los cambiaran por sus variables