Merge pull request #530 from Wyr0X/fix-meditar-invi

Fix meditar invi
ao-org · Mar 13, 2024 · 1d361b3 · 1d361b3
2 parents 0f4d264 + acc5bdb
commit 1d361b3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git 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
@@ -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)
         '<EhHeader>
         On Error GoTo WriteSetInvisible_Err
         '</EhHeader>
-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))
         '<EhFooter>
         Exit Sub