Cliente
Buscamos:
- Meditate '/MEDITAR
y Abajo ponemos:
- Ulla '/ULLA By Kapleo
Luego buscamos:
- Public Sub WriteReward()
y Arriba ponemos:
- Public Sub WriteUlla()
- Call outgoingData.WriteByte(ClientPacketID.Ulla)
- End Sub
Luego Buscamos:
- Case "/RECOMPENSA"
- Call WriteReward
y Abajo ponemos:
- Case "/ULLA"
- Call WriteUlla
Server:
Buscamos:
- Meditate '/MEDITAR
y Abajo ponemos:
- Ulla '/ULLA By Kapleo
Luego buscamos:
- Case ClientPacketID.Resucitate '/RESUCITAR
- Call HandleResucitate(UserIndex)
y abajo ponemos:
- Case ClientPacketID.Ulla '/ULLA
- Call HanDleUlla(UserIndex)
Luego buscamos:
- Private Sub HandleRest(ByVal UserIndex As Integer)
y cuando termina el sub ponemos:
- Private Sub HanDleUlla(ByVal UserIndex As Integer)
- With UserList(UserIndex)
- Call .incomingData.ReadByte
- If .Pos.map = XX Then
- Call WriteConsoleMsg(UserIndex, "Debes salir del dungeon para ir a la ciudad.", 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
Las XX las reemplazan por el mapa del dungeon.
Espero les sirva, lo acabo de hacer y me parece que es funcional, cualquier cosa me avisan






120![Aprendiz [7] Aprendiz [7]](./images/ranks/Rango12.gif)

![Legendario Inmortal [1] Legendario Inmortal [1]](./images/ranks/Rango36.gif)
![Oraculo [3] Oraculo [3]](./images/ranks/Rango27.gif)


![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)
![Newbie [1] Newbie [1]](./images/ranks/Rango0.gif)
