[Aportes indexados] Eliminando Modo Combate (0.11.2)

        Case "TAB" 'Entrar o salir modo combate
            If UserList(UserIndex).flags.ModoCombate Then
                SendData ToIndex, UserIndex, 0, "||Has salido del modo de combate. " & FONTTYPE_INFO
            Else
                SendData ToIndex, UserIndex, 0, "||Has pasado al modo de combate. " & FONTTYPE_INFO
            End If
            UserList(UserIndex).flags.ModoCombate = Not UserList(UserIndex).flags.ModoCombate
            Exit Sub

UserList(UserIndex).flags.ModoCombate = False

            If Not UserList(UserIndex).flags.ModoCombate Then
                Call SendData(ToIndex, UserIndex, 0, "||No estas en modo de combate, presiona la tecla ""C"" para pasar al modo combate. " & FONTTYPE_INFO)
            Else

End If

                Case vbKeyC:
                    Call SendData("TAB")
                    IScombate = Not IScombate

Public IScombate As Boolean

                If IScombate Then Call Dialogos.DrawText(260, 260, "MODO COMBATE", vbRed)

            IScombate = False

            IScombate = False

'[CODE 000]:MatuX
' La hice inline
Sub MostrarFlags()
If IScombate Then
    Call Dialogos.DrawText(260, 260, "MODO COMBATE", vbRed)
End If
'[END]'
End Sub

            Call MostrarFlags