Dim Items As Object() = Pack.Deserialize(e)
        Dim Message As Integer = DirectCast(Items(0), Events)

        Select Case Message

            Case Events.Login

                Dim Username As String = DirectCast(Items(1), String)
                Dim Password As String = DirectCast(Items(2), String)

                Dim U As LeafDataSet1.UsersRow = DB.Users.FindByUsername(Username)
                If Not U Is Nothing AndAlso U.Password = Base.Hash(Password) Then
                    If Not U.Group = Group.Disabled Then
                        c.Send(Pack.Serialize(0, 0, U.Username, U.Leaves, U.Coins, U.Group))
                    Else
                        c.Send(Pack.Serialize(0, 2))
                    End If
                Else
                    c.Send(Pack.Serialize(0, 1))
                End If

            Case Events.Register

                Dim Username As String = DirectCast(Items(1), String)
                Dim U As LeafDataSet1.UsersRow = DB.Users.FindByUsername(Username)
                If U Is Nothing Then
                    DB.Users.AddUsersRow(Username, Base.Hash(DirectCast(Items(2), String)), _
                        DirectCast(Items(3), String), DirectCast(Items(4), String), DirectCast(Items(5), String), _
                       Group.Common, 0, 0, Date.Now)
                    c.Send(Pack.Serialize(1, 0))
                    Users.Update(DB)
                Else
                    c.Send(Pack.Serialize(1, 1))
                End If

            Case Events.Search

                Snippets.Fill(DB.Snippets)
                Dim Query As String = DirectCast(Items(2), String)
                Dim Username As String = DirectCast(Items(3), String)

                Select Case DirectCast(Items(1), Search)

                    Case Search.Store

                        For Each R As LeafDataSet1.SnippetsRow In DB.Snippets.Rows
                            If R.Description.ToLower.Contains(Query.ToLower) Or R.Username.ToLower.Contains(Query.ToLower) Or R.Language.ToLower.Contains(Query.ToLower) Then
                                If R.Good >= 10 Then
                                    c.Send(Pack.Serialize(2, R.ID, R.Username, R.Description, R.Language, R.Leaves, R.Coins, 1))
                                Else
                                    c.Send(Pack.Serialize(2, R.ID, R.Username, R.Description, R.Language, R.Leaves, R.Coins, 0))
                                End If
                            End If
                        Next

                    Case Search.Library

                        For Each S As LeafDataSet1.PurchasesRow In DB.Purchases.Rows
                            If S.Username = Username Then
                                For Each R As LeafDataSet1.SnippetsRow In DB.Snippets.Rows
                                    If R.Description.ToLower.Contains(Query) Or R.Username.ToLower.Contains(Query.ToLower) _
                                        Or R.Language.ToLower.Contains(Query) Then

                                    End If
                                Next
                            End If
                        Next

                End Select