Cada X segundos se me sale el pj

Estado
Cerrado para nuevas respuestas.

Khadul

Ahora me toca aprender.
A lo que me refiero es que vuelve a la pantalla donde tenes que cargar los datos, osea, el Log In.

Pero es de lo mas incomodo, estas caminando por la ciudad y se te sale,

Alguno tiene alguna idea de lo que puede provocar esto ?

Gracias.

__________

Edit:
Tengo dx8 y ore 1.0
 

-GanjaH^

Semper Widia Staff
Pueden ser varias cosas .. desde cuando te pasa eso ? , o sea implementaste algun codigo en especial y se te empezo a bugear ?
 

Benja.-

Club Atlético Independiente
Ejecuta en modo debug con interrupcion en todos los errores y deci qe linea te marca y que error te marca.
 

Mafia

Juree!
No se si le va a marcar algun error.Em, cuando te descargastes el AO esto ya pasaba? Agregastes algun codigo que influya en el sub CloseScoket ?
Incluistes algun codigo en el cual alla influenciado en el de CheckKeys?
 

Khadul

Ahora me toca aprender.
Código:
S
ub CheckKeys()
'*****************************************************************
'Checks keys and respond
'*****************************************************************
On Error Resume Next
    'Don't allow any these keys during movement..
    If UserMoving = 0 Then
        If Not UserEstupido Then
            'Move Up
            If GetKeyState(vbKeyUp) < 0 Then
                If frmMain.TrainingMacro.Enabled Then frmMain.DesactivarMacroHechizos
                Call MoveTo(NORTH)
                frmMain.Coord.Caption = "(" & UserMap & "," & UserPos.X & "," & UserPos.Y & ")"
                Exit Sub
            End If
        
            'Move Right
            If GetKeyState(vbKeyRight) < 0 Then
                If frmMain.TrainingMacro.Enabled Then frmMain.DesactivarMacroHechizos
                Call MoveTo(EAST)
                frmMain.Coord.Caption = "(" & UserMap & "," & UserPos.X & "," & UserPos.Y & ")"
                Exit Sub
            End If
        
            'Move down
            If GetKeyState(vbKeyDown) < 0 Then
                If frmMain.TrainingMacro.Enabled Then frmMain.DesactivarMacroHechizos
                Call MoveTo(SOUTH)
                frmMain.Coord.Caption = "(" & UserMap & "," & UserPos.X & "," & UserPos.Y & ")"
                Exit Sub
            End If
        
            'Move left
            If GetKeyState(vbKeyLeft) < 0 Then
                If frmMain.TrainingMacro.Enabled Then frmMain.DesactivarMacroHechizos
                Call MoveTo(WEST)
                frmMain.Coord.Caption = "(" & UserMap & "," & UserPos.X & "," & UserPos.Y & ")"
                Exit Sub
            End If
        Else
            Dim kp As Boolean
            kp = (GetKeyState(vbKeyUp) < 0) Or _
                GetKeyState(vbKeyRight) < 0 Or _
                GetKeyState(vbKeyDown) < 0 Or _
                GetKeyState(vbKeyLeft) < 0
            If kp Then Call RandomMove
            If frmMain.TrainingMacro.Enabled Then frmMain.DesactivarMacroHechizos
            frmMain.Coord.Caption = "(" & UserPos.X & "," & UserPos.Y & ")"
        End If
    End If
End Sub
y el otro no lo encontré
 

Midraks

Creador de AOWeb
Ex-Staff
Puede ser por que tengas la velocidad de movimiento muy rapida, mira, buscá:
engineBaseSpeed =

Y anda cambiando los valores.
 

Benja.-

Club Atlético Independiente
Midraks dijo:
Puede ser por que tengas la velocidad de movimiento muy rapida, mira, buscá:
engineBaseSpeed =

Y anda cambiando los valores.
Vos decis por el antish? Porque si es por eso que le saque el antish que viene y listo, que use la speed que quiere :p.

Saludos
 
Estado
Cerrado para nuevas respuestas.
Arriba