Public Shared Sub GetPlayerEffects(ByVal Client As GameClient)

            Dim MyDD As Mount = Client.Character.GetMount
            Dim Stats As String = MyDD.EffectsToString

            If Stats <> Nothing Then

                If Stats.Contains(",") Then

                    Dim Stat() As String = Stats.Split(",")
                    For Each Effet As String In Stat
                        Dim Pos() As String = Effet.Split("#")
                        Dim Type As String = Convert.ToInt32(Pos(0), 16)
                        Dim Value As String = Convert.ToInt32(Pos(1), 16)
                        UseEffectMount(Client.Character.Player, Type, Value)
                    Next

                Else

                    Dim Pos() As String = Stats.Split("#")
                    Dim Type As String = Convert.ToInt32(Pos(0), 16)
                    Dim Value As String = Convert.ToInt32(Pos(1), 16)
                    UseEffectMount(Client.Character.Player, Type, Value)

                End If

            End If

        End Sub