Public Sub RideMount()
            If Not Client.Character.Mount.HasMount Then Exit Sub

            With Client.Character

                If .Mount.Ride Then
                    .Mount.Ride = False
                    .Player.Stats.ResetMountEffect()
                Else
                    If .Items.IsObjectOnPos(ItemsHandler.Positions.FAMILIER) Then
                        .Items.MoveItem(Client, _
                                        .Items.GetObjectOnPos(ItemsHandler.Positions.FAMILIER).UniqueID, _
                                        ItemsHandler.Positions.NONE, 1)
                    End If
                    If .GetMount.Effects.Count > 0 Then
                        .GetMount.Effects = MountHandler.GetEffectsListByLevel(.GetMount.Level, .GetMount.Cerficat)
                    End If
                    MountHandler.GetPlayerEffects(Client)

                    .Mount.Ride = True
                End If

                .SendAccountStats()
                .GetMap.RefreshCharacter(Client)

                'End If
            End With

        End Sub