Lo que hace el código es que al morir nos abra una ventanita (Formulario hablando mejor
[SERVIDOR]
1) Buscamos:
- Select Case UCase$(Left$(rdata, 3))
y debajo agregamos:
- Case "TLP" ' Nos teletransporta a X Mapa si tamos muertos
- Call WarpUserChar(UserIndex, X, Xx, Xy, True)
- Exit Sub
[CLIENTE]
1) Creamos un nuevo formulario con el nombre: frmMuerte
2) Creamos dos labels o botones con los siguientes nombres: Warp - Caminar
3) Dentro del código de "Warp" metemos:
- Call SendData ("TLP")
- Unload Me
4) Dentro del código de "Caminar" agregamos:
- Unload Me
5) Buscamos en el Mod_TCP:
- If charlist(CharIndex).muerto Then
y abajo agregamos:
- frmMuerte.Show
Espero que les sirva, yo lo probé y andubo
- Call WarpUserChar(UserIndex, X, Xx, Xy, True)
X = Mapa
Xx = Coordenada en X
Xy = Coordenada en Y
Saludos!
EDIT: Les dejo una imagencita que hice para que la usen en este código






45![Aprendiz [2] Aprendiz [2]](./images/ranks/Rango7.gif)

![Newbie [6] Newbie [6]](./images/ranks/Rango5.gif)
