No estás conectado. Conéctate o registrate

Cuando moris regresas a tu ciudad de origen(con form)

Ir abajo  Mensaje [Página 1 de 1.]

RoNiN

avatar
Usuario
Usuario
EN EL SERVIDOR

Buscamos:
Código:
Sub UserDie(ByVal UserIndex As Integer)

y al final agregamos:
Código:
Call WriteFormDead(UserIndex)

Buscamos:
Código:
MiniStats

y abajo agregamos:
Código:
FormDead

Buscamos:
Código:
Meditate

Y debajo agregamos:
Código:
Regresar

Buscamos:
Código:
 
Case ClientPacketID.Resucitate

Y arriba agregamos:

Código:
Case ClientPacketID.Regresar
Call HandleRegresar(UserIndex)

Buscamos:
Código:
Private Sub HandleRest(ByVal UserIndex As Integer)

Y arriba agregamos:

Código:
Private Sub HanDleRegresar(ByVal UserIndex As Integer)
With UserList(UserIndex)
Call .incomingData.ReadByte
 
If Not .flags.Muerto = 1 Then
Call WriteConsoleMsg(UserIndex, "¡Solo podes usar este comando estando muerto!", FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If
 
Select Case .Regresar
 
Case eCiudad.cArghal
Call WarpUserChar(UserIndex, Arghal.map, Arghal.X, Arghal.Y)
Call WriteConsoleMsg(UserIndex, "Has sido transportado a Arghal", FontTypeNames.FONTTYPE_INFO)
 
Case eCiudad.cBanderbill
Call WarpUserChar(UserIndex, Banderbill.map, Banderbill.X, Banderbill.Y)
Call WriteConsoleMsg(UserIndex, "Has sido transportado a Banderbill", FontTypeNames.FONTTYPE_INFO)
 
Case eCiudad.cLindos
Call WarpUserChar(UserIndex, Lindos.map, Lindos.X, Lindos.Y)
Call WriteConsoleMsg(UserIndex, "Has sido transportado a Lindos", FontTypeNames.FONTTYPE_INFO)
 
Case eCiudad.cNix
Call WarpUserChar(UserIndex, Nix.map, Nix.X, Nix.Y)
Call WriteConsoleMsg(UserIndex, "Has sido transportado a Nix", FontTypeNames.FONTTYPE_INFO)
 
Case eCiudad.cUllathorpe
Call WarpUserChar(UserIndex, Ullathorpe.map, Ullathorpe.X, Ullathorpe.Y)
Call WriteConsoleMsg(UserIndex, "Has sido transportado a Ullathorpe", FontTypeNames.FONTTYPE_INFO)
 
End Select
End With
End Sub
 
Public Sub WriteFormDead(ByVal UserIndex As Integer)
 
On Error GoTo Errhandler
    Call UserList(UserIndex).outgoingData.WriteByte(ServerPacketID.FormDead)
Exit Sub
 
Errhandler:
    If Err.Number = UserList(UserIndex).outgoingData.NotEnoughSpaceErrCode Then
        Call FlushBuffer(UserIndex)
        Resume
    End If
End Sub


AHOR EN EL CLIENTE
Buscamos:
Código:
Meditate

Y abajo ponemos:
Código:
 Regresar

Buscamos:
Código:
MiniStats

y abajo agregamos:
Código:
FormDead


Buscamos:
Código:
      Case ServerPacketID.logged                  ' LOGGED
            Call HandleLogged

Y debajo ponemos:
Código:
Case ServerPacketID.FormDead
            Call HandleFormDead

Buscamos:

Código:
Private Sub HandleLogged()

Y arriba ponemos:

Código:
Private Sub HandleFormDead()
    Call incomingData.ReadByte
frmMuere.Show
End Sub

Buscamos:

Código:
Public Sub WriteReward()


Y arriba ponemos:
Código:
Public Sub WriteRegresar()
Call outgoingData.WriteByte(ClientPacketID.Regresar)
End Sub


Buscamos:
Código:

Case "/RECOMPENSA"
Call WriteReward

Y abajo agregamos:
Código:
Case "/Regresar"
Call WriteRegresar

Agregamos este form:

[Tienes que estar registrado y conectado para ver este vínculo]

Ver perfil de usuario

kratos

avatar
Usuario
Usuario
Buen aporte!
Segui asi
10 Estrellas Nos estamos Viendo




Saludos!

Ver perfil de usuario

Invitado


Invitado
Buen Aporte.


Segui así. Very Happy

Contenido patrocinado


Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.

 

Crear foro | © PunBB | Foro gratis de asistencia | Contactar | Denunciar un abuso | foro gratis