Cualquier comando

Estado
Cerrado para nuevas respuestas.

Lherius

Dragón Ancestral Lvl 6
Especialista de Diseño
Bueno miren noc que tengo mal pero Pongo /si /ci /telep ponga el /y cualquier cosa SE ME CIERRA EL JUEGO OSEA DICE CERRANDO JUEEGO 0 SEGUNDOS UNA AYUDA , me parece que el ERROR ta en el SERVIDOR.

Gracias! Lherius!
 

-GanjaH^

Semper Widia Staff
Y seguramente este en el servidor xD, andá al vb, abrí el código del servidor, y antes de ejecutarlo en modo debug, andá a herramientas > Opciones > abrí la solapa "General" y tilda la opcion que dice "Modo de interrupción en todos los errores", despues ejecuta el servidor, y cuando pongas algun comando, te va a marcar la linea donde estaria el error.
 

Lherius

Dragón Ancestral Lvl 6
Especialista de Diseño
Código:
Sub WarpUserChar(ByVal UserIndex As Integer, ByVal Map As Integer, ByVal X As Integer, ByVal Y As Integer, Optional ByVal FX As Boolean = False)
 
Dim OldMap As Integer
Dim OldX As Integer
Dim OldY As Integer
 
    'Quitar el dialogo
    Call SendToUserArea(UserIndex, "QDL" & UserList(UserIndex).Char.CharIndex) ' ACA ME TIRA EL ERROR :(
    Call SendData(SendTarget.ToIndex, UserIndex, UserList(UserIndex).Pos.Map, "QTDL")
    
    OldMap = UserList(UserIndex).Pos.Map
    OldX = UserList(UserIndex).Pos.X
    OldY = UserList(UserIndex).Pos.Y
    
    Call EraseUserChar(SendTarget.ToMap, 0, OldMap, UserIndex)
        
    If OldMap <> Map Then
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "CM" & Map & "," & MapInfo(UserList(UserIndex).Pos.Map).MapVersion)
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "TM" & MapInfo(Map).Music)
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "N~" & MapInfo(Map).name)
        'Update new Map Users
        MapInfo(Map).NumUsers = MapInfo(Map).NumUsers + 1
    
        'Update old Map Users
        MapInfo(OldMap).NumUsers = MapInfo(OldMap).NumUsers - 1
        If MapInfo(OldMap).NumUsers < 0 Then
            MapInfo(OldMap).NumUsers = 0
        End If
    End If
    
    UserList(UserIndex).Pos.X = X
    UserList(UserIndex).Pos.Y = Y
    UserList(UserIndex).Pos.Map = Map
    
    Call MakeUserChar(SendTarget.ToMap, 0, Map, UserIndex, Map, X, Y)
    Call SendData(SendTarget.ToIndex, UserIndex, 0, "IP" & UserList(UserIndex).Char.CharIndex)
    
    'Seguis invisible al pasar de mapa
    If (UserList(UserIndex).flags.Invisible = 1 Or UserList(UserIndex).flags.Oculto = 1) And (Not UserList(UserIndex).flags.AdminInvisible = 1) Then
        Call SendToUserArea(UserIndex, "NOVER" & UserList(UserIndex).Char.CharIndex & ",1", EncriptarProtocolosCriticos)
    End If
    
    If FX And UserList(UserIndex).flags.AdminInvisible = 0 Then 'FX
        Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_WARP)
        Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFF" & UserList(UserIndex).Char.CharIndex & "," & FXIDs.FXWARP & ",0")
    End If
    
    Call WarpMascotas(UserIndex)
End Sub

Me marca lo qu esta donde dice : ACA TA EL ERROR :(

Edit : Me baso en Clipster AO
 

Damian

Software Developer
Ex-Staff
Lherius dijo:
Código:
Sub WarpUserChar(ByVal UserIndex As Integer, ByVal Map As Integer, ByVal X As Integer, ByVal Y As Integer, Optional ByVal FX As Boolean = False)
 
Dim OldMap As Integer
Dim OldX As Integer
Dim OldY As Integer
 
    'Quitar el dialogo
    Call SendToUserArea(UserIndex, "QDL" & UserList(UserIndex).Char.CharIndex) ' ACA ME TIRA EL ERROR :(
    Call SendData(SendTarget.ToIndex, UserIndex, UserList(UserIndex).Pos.Map, "QTDL")
    
    OldMap = UserList(UserIndex).Pos.Map
    OldX = UserList(UserIndex).Pos.X
    OldY = UserList(UserIndex).Pos.Y
    
    Call EraseUserChar(SendTarget.ToMap, 0, OldMap, UserIndex)
        
    If OldMap <> Map Then
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "CM" & Map & "," & MapInfo(UserList(UserIndex).Pos.Map).MapVersion)
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "TM" & MapInfo(Map).Music)
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "N~" & MapInfo(Map).name)
        'Update new Map Users
        MapInfo(Map).NumUsers = MapInfo(Map).NumUsers + 1
    
        'Update old Map Users
        MapInfo(OldMap).NumUsers = MapInfo(OldMap).NumUsers - 1
        If MapInfo(OldMap).NumUsers < 0 Then
            MapInfo(OldMap).NumUsers = 0
        End If
    End If
    
    UserList(UserIndex).Pos.X = X
    UserList(UserIndex).Pos.Y = Y
    UserList(UserIndex).Pos.Map = Map
    
    Call MakeUserChar(SendTarget.ToMap, 0, Map, UserIndex, Map, X, Y)
    Call SendData(SendTarget.ToIndex, UserIndex, 0, "IP" & UserList(UserIndex).Char.CharIndex)
    
    'Seguis invisible al pasar de mapa
    If (UserList(UserIndex).flags.Invisible = 1 Or UserList(UserIndex).flags.Oculto = 1) And (Not UserList(UserIndex).flags.AdminInvisible = 1) Then
        Call SendToUserArea(UserIndex, "NOVER" & UserList(UserIndex).Char.CharIndex & ",1", EncriptarProtocolosCriticos)
    End If
    
    If FX And UserList(UserIndex).flags.AdminInvisible = 0 Then 'FX
        Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_WARP)
        Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFF" & UserList(UserIndex).Char.CharIndex & "," & FXIDs.FXWARP & ",0")
    End If
    
    Call WarpMascotas(UserIndex)
End Sub

Me marca lo qu esta donde dice : ACA TA EL ERROR :(

Edit : Me baso en Clipster AO
Que error te marca?
 

Khardus

Newbie Lvl 6
remplaza ese sub por este

Sub WarpUserChar(ByVal userindex As Integer, ByVal Map As Integer, ByVal x As Integer, ByVal y As Integer, Optional ByVal FX As Boolean = False)

Dim OldMap As Integer
Dim OldX As Integer
Dim OldY As Integer

'Quitar el dialogo
Call SendToUserArea(userindex, "QDL" & UserList(userindex).char.CharIndex)
Call SendData(SendTarget.toindex, userindex, UserList(userindex).pos.Map, "QTDL")

OldMap = UserList(userindex).pos.Map
OldX = UserList(userindex).pos.x
OldY = UserList(userindex).pos.y

Call EraseUserChar(SendTarget.ToMap, 0, OldMap, userindex)

If OldMap <> Map Then
Call SendData(SendTarget.toindex, userindex, 0, "CM" & Map & "," & MapInfo(UserList(userindex).pos.Map).MapVersion)
Call SendData(SendTarget.toindex, userindex, 0, "TM" & MapInfo(Map).Music)
Call SendData(SendTarget.toindex, userindex, 0, "N~" & MapInfo(Map).name)

'Update new Map Users
MapInfo(Map).NumUsers = MapInfo(Map).NumUsers + 1

'Update old Map Users
MapInfo(OldMap).NumUsers = MapInfo(OldMap).NumUsers - 1
If MapInfo(OldMap).NumUsers < 0 Then
MapInfo(OldMap).NumUsers = 0
End If
End If

UserList(userindex).pos.x = x
UserList(userindex).pos.y = y
UserList(userindex).pos.Map = Map

Call MakeUserChar(SendTarget.ToMap, 0, Map, userindex, Map, x, y)
Call SendData(SendTarget.toindex, userindex, 0, "IP" & UserList(userindex).char.CharIndex)

'Seguis invisible al pasar de mapa
If (UserList(userindex).flags.Invisible = 1 Or UserList(userindex).flags.Oculto = 1) And (Not UserList(userindex).flags.AdminInvisible = 1) Then
Call SendToUserArea(userindex, "NOVER" & UserList(userindex).char.CharIndex & ",1", EncriptarProtocolosCriticos)
End If

If FX And UserList(userindex).flags.AdminInvisible = 0 Then 'FX
Call SendData(SendTarget.ToPCArea, userindex, UserList(userindex).pos.Map, "TW" & SND_WARP)
Call SendData(SendTarget.ToPCArea, userindex, UserList(userindex).pos.Map, "CFX" & UserList(userindex).char.CharIndex & "," & FXIDs.FXWARP & ",0")
End If

Call WarpMascotas(userindex)
End Sub
saludos.
 
Estado
Cerrado para nuevas respuestas.
Arriba