Será un prqueño aporte pero todo sirve para reparar estas cosas feas
Post Original de Kringer_97 : se_baja_de_la_barca_solo_si_esta_cerca_de_una_costa_tjtk.html
Buscamos en el Servidor :
- Public Sub DoNavega(ByVal UserIndex As Integer, ByRef Barco As ObjData, ByVal Slot As Integer)
Y debajo de estas 2 lineas :
- Dim ModNave As Long
- ModNave = ModNavegacion(UserList(UserIndex).Clase)
Ponemos :
- If HayAgua(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.x, UserList(UserIndex).Pos.y) = True And HayAgua(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.x - 1, UserList(UserIndex).Pos.y) = True And HayAgua(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.x + 1, UserList(UserIndex).Pos.y) = True And _
- HayAgua(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.x, UserList(UserIndex).Pos.y - 1) = True And HayAgua(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.x, UserList(UserIndex).Pos.y + 1) = True Then
- SendData SendTarget.ToIndex, UserIndex, 0, "||No puedes dejar de navegar en el agua!!" & FONTTYPE_INFO
- Exit Sub
- End If
Salute y feliz año nuevo!





400![Oraculo [5] Oraculo [5]](./images/ranks/Rango29.gif)

![Dragon Ancestral [4] Dragon Ancestral [4]](./images/ranks/Rango33.gif)



![Dragon Ancestral [2] Dragon Ancestral [2]](./images/ranks/Rango31.gif)


![Dragon Ancestral [3] Dragon Ancestral [3]](./images/ranks/Rango32.gif)

![Aprendiz [5] Aprendiz [5]](./images/ranks/Rango10.gif)

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

![Aprendiz [3] Aprendiz [3]](./images/ranks/Rango8.gif)


