comando "/HOGAR" FIX y comando "/REGRESAR fix"

Este tema se encuentra cerrado.

» 08 Ene 2012 23:50

Bueno.. esto es un fix de: comando_hogar_t3n4.html#pqfi

su error era que el handle era un private, en realidad los handles siempre son public cuando son de este tipo de codigos.
Busquen:

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

    Private Sub HanDleHogar(ByVal UserIndex As Integer)
    With UserList(UserIndex)
    Call .incomingData.ReadByte
    If Not UserList(UserIndex).flags.Muerto = 1 Then
    Call WriteConsoleMsg(UserIndex, "¡Solo podes usar este comando estando muerto!", FontTypeNames.FONTTYPE_INFO)
    Exit Sub
    Else
    Call WarpUserChar(UserIndex, 1, 50, 50)
    Call WriteConsoleMsg(UserIndex, "Has sido transportado a la ciudad", FontTypeNames.FONTTYPE_INFO)
    Exit Sub
    End If
    End With
    End Sub

Y simplemente reemplazenlo por:

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

    Public Sub HanDleHogar(ByVal UserIndex As Integer)
    With UserList(UserIndex)
    Call .incomingData.ReadByte
    If Not UserList(UserIndex).flags.Muerto = 1 Then
    Call WriteConsoleMsg(UserIndex, "¡Solo podes usar este comando estando muerto!", FontTypeNames.FONTTYPE_INFO)
    Exit Sub
    Else
    Call WarpUserChar(UserIndex, 1, 50, 50)
    Call WriteConsoleMsg(UserIndex, "Has sido transportado a la ciudad", FontTypeNames.FONTTYPE_INFO)
    End If
    End With
    End Sub

edit: y de paso le saque un exit sub que tenia de mas, el handle original :p

Ahora el comando_regresar_primer_code_en_12_x_t8AK.html tenia el mismo error asi que esto:

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

    Private Sub HanDleRegresar(ByVal UserIndex As Integer)
    With UserList(UserIndex)
    Call .incomingData.ReadByte
    Call WarpUserChar(UserIndex, M, X, Y)
    Call WriteConsoleMsg(UserIndex, "Has regresado a la ciudad", FontTypeNames.FONTTYPE_INFO)
    Exit Sub
    End If
    End With
    End Sub

reemplazenlo por esto:

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

    Public Sub HanDleRegresar(ByVal UserIndex As Integer)
    With UserList(UserIndex)
    Call .incomingData.ReadByte
    Call WarpUserChar(UserIndex, M, X, Y)
    Call WriteConsoleMsg(UserIndex, "Has regresado a la ciudad", FontTypeNames.FONTTYPE_INFO)
    End With
    End Sub

cosas hechas: removi ese end if y el exit sub, ya que nunca habia usado un condicional y arregle lo del private x public.

Saludos; Luuq

» 08 Ene 2012 23:53

Buen aporte .

» 08 Ene 2012 23:56

ahi tambien puse un fix del /REGRESAR, ya qe lo acabe de ver y tenia el mismo error + un end if y un exit sub de más haha.

#

Este post ha sido eliminado por Franeg95 en 09 Ene 2012 00:50.
Razón: La respuesta era un Offtopic, sin relación con la tematica.

#

Este post ha sido eliminado por Franeg95 en 09 Ene 2012 00:47.
Razón: La respuesta era innecesaria. No le agregaba nada nuevo al tema.

#

Este post ha sido eliminado por Franeg95 en 09 Ene 2012 00:50.
Razón: La respuesta era un Offtopic, sin relación con la tematica.

#

Este post ha sido eliminado por Franeg95 en 09 Ene 2012 00:50.
Razón: La respuesta era un Offtopic, sin relación con la tematica.

» 09 Ene 2012 00:48

che kpo flashaste cualqiera con lo de public, de onda no mas

» 09 Ene 2012 00:51

Que tiene que ver que sea Public o Private? Si estan en el mismo modulo O.o

» 09 Ene 2012 02:05

Buen aporte luuq

» 19 Ene 2012 20:56

Buen aporte, a alguien que recien empieza le va a venir bien.

Saludos

» 19 Ene 2012 21:01

Fijate que estás pasando a Público algo innecesario, para llamar a esos Private Sub lo llamas desde el ID del Paquete enviado por el Cliente. Y eso se encuentra en el mismo módulo.

Esto me huele a que tus aportes son puro Copy & Paste, y además, aprendiste a programar en Base al Argentum y no como debería ser, desde cero.

Samke escribió:Buen aporte, a alguien que recien empieza le va a venir bien.

Saludos

¿Como podes decir buen aporte?, parece un Robo de post lo que haces.

Saludos.

Este tema se encuentra cerrado.

comando "/HOGAR" FIX y comando "/REGRESAR fix"

¿Quién está conectado?