diff --git a/Codigo/ModAreas.bas b/Codigo/ModAreas.bas
index 83b7ba6f..505d0d62 100644
--- a/Codigo/ModAreas.bas
+++ b/Codigo/ModAreas.bas
@@ -361,7 +361,7 @@ Private Sub NotifyUser(ByVal UserNotificado As Integer, ByVal UserIngresante As
If sendChar Then
Call MakeUserChar(False, UserNotificado, UserIngresante, UserList(UserIngresante).Pos.map, UserList(UserIngresante).Pos.X, UserList(UserIngresante).Pos.y, 0)
If UserList(UserIngresante).flags.invisible Or UserList(UserIngresante).flags.Oculto Then
- Call WriteSetInvisible(UserNotificado, UserList(UserIngresante).Char.charindex, True)
+ Call WriteSetInvisible(UserNotificado, UserIngresante, True)
End If
End If
End With
diff --git a/Codigo/Protocol_Writes.bas b/Codigo/Protocol_Writes.bas
index 08f837e5..63b14da9 100644
--- a/Codigo/Protocol_Writes.bas
+++ b/Codigo/Protocol_Writes.bas
@@ -2861,17 +2861,17 @@ End Sub
' Writes the "SetInvisible" message to the given user's outgoing data .incomingData.
'
' @param UserIndex User to which the message is intended.
-' @param CharIndex The char turning visible / invisible.
+' @param TargetIndex The user turning visible / invisible.
' @param invisible True if the char is no longer visible, False otherwise.
' @remarks The data is not actually sent until the buffer is properly flushed.
Public Sub WriteSetInvisible(ByVal UserIndex As Integer, _
- ByVal CharIndex As Integer, _
+ ByVal TargetIndex As Integer, _
ByVal invisible As Boolean)
'
On Error GoTo WriteSetInvisible_Err
'
-100 Call modSendData.SendData(ToIndex, UserIndex, PrepareMessageSetInvisible(CharIndex, _
- invisible, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.y))
+100 Call modSendData.SendData(ToIndex, UserIndex, PrepareMessageSetInvisible(UserList(TargetIndex).Char.charindex, _
+ invisible, UserList(TargetIndex).pos.x, UserList(TargetIndex).pos.y))
'
Exit Sub