Ayuda! En que me equivoco?!!

» 14 May 2009 20:37

Bueno, el error es que desde que puse este codigo, no puedo logear, queda como "Completando conexion con el servidor". (ES UN SISTEMA QUE CON EL COMANDO "/ARENA1" VAS A LA ARENA NUMERO 1, eso mismo voy a hacer con Arena2, 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22, pero para hacer eso, primero tiene que funcionar la Primera

...
AGRADEZCO SU AYUDA!

El codigo lo hice asi:

Server:

BUSCAR:

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

Public type userflags

Abajo poner:

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

EnArena1 as byte

Buscar:

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

Sub userdie

Cuando empieza el sub poner:

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

If UserList(UserIndex).flags.EnArena1 = 1 Then
Call WarpUserChar(UserIndex, 1, 50, 50, True)
UserList(UserIndex).flags.EnArena1 = 0
End If

[donde dice WARPUSERCHAR(USERINDEX,1,50,50,true)] HAY QUE PONER EL MAPA QUE QUERAMOS.

Buscar:

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

Private Enum ClientPacketID

Va a decir:

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

Loginexistingchar

Arriba de eso, pero después de ClientPacketID poner:

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

Arena1

Buscar :

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

        Case ClientPacketID.CheckSlot               '/SLOT
            Call HandleCheckSlot(UserIndex)

Abajo de eso poner:

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

       Case ClientPacketID.Arena1
            Call HandleArena1(UserIndex)

Buscar:

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

private sub handlecara

Entre el end function q esta arriba y esa linea, poner:

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

Private Sub HandleArena1(ByVal UserIndex As Integer)
With UserList(UserIndex)
Call .incomingData.ReadByte
 
If .Stats.ELV < 40 Then
Call WriteConsoleMsg(UserIndex, "Tienes que ser mayor a nivel 40!!", FontTypeNames.FONTTYPE_INFO)
Exit Sub
 
ElseIf .flags.Muerto = 1 Then
Call WriteConsoleMsg(UserIndex, "Estas muerto, solo los vivos pueden entrar a una Arena!", FontTypeNames.FONTTYPE_INFO)
Exit Sub
  
ElseIf .Pos.map = 14 Then
Call WriteConsoleMsg(UserIndex, "No podes a la arena desde la carcel.", FontTypeNames.FONTTYPE_INFO)
Exit Sub
 
ElseIf .flags.EnArena1 = 1 Then
Call WriteConsoleMsg(UserIndex, "Ya estas en la arena 1", FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
 
If .flags.Enarena1 = 0 Then
.flags.Enarena1 = 1
Call WarpUserChar(UserIndex, 22,50,50)
Call WriteConsoleMsg(UserIndex, "Bienvenido a Arena 1", FontTypeNames.FONTTYPE_INFO)
End If
Exit Sub
End If
 
End With
End Sub

CLIENTE:

Buscar:

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

private enum clientpacketid

Debajo de:

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

Public FontTypes(18) As tFont 

Poner:

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

Public Sub WriteArena1()
    Call outgoingData.WriteByte(ClientPacketID.Arena1)
End Sub

Buscar:

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

Case "/MEDITAR"

Abajo de:

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

Call WriteMeditate

Poner:

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

Case "/ARENA1"
call WriteArena

Ayuda! En que me equivoco?!!

¿Quién está conectado?