Mover pj.

En el Server
Buscamos:

If MapData(UserList(UserIndex).pos.Map, UserList(UserIndex).pos.X, UserList(UserIndex).pos.Y).UserIndex

Y Reemplazamos todo el If por:

If MapData(UserList(UserIndex).pos.Map, UserList(UserIndex).pos.X, UserList(UserIndex).pos.Y).UserIndex Then
Dim tIndex As Integer
Dim NposMap As Integer
Dim NposX As Integer
Dim NposY As Integer
NposMap = UserList(UserIndex).pos.Map
NposX = UserList(UserIndex).pos.X
NposY = UserList(UserIndex).pos.Y + 1
tIndex = MapData(UserList(UserIndex).pos.Map, UserList(UserIndex).pos.X, UserList(UserIndex).pos.Y).UserIndex
Call SendData(ToIndex, tIndex, 0, "!!Un personaje se ha conectado en tu misma posición, reconectate.")
Call WarpUserChar(UserIndex, NposMap, NposX, NposY, True)
End If

Fuente: Infect-Zone.