Imports SunDofus___Realm.Packet.Identification
Imports SunDofus___Realm.Packet.Server
Imports SunDofus___Realm.Packet.Identification.Success
Namespace Realm
    Public Class RealmParser

        Public _ToParse As String = ("")
        Public _Client As Client.RealmClient

        Public Sub Parse()
            Select Case _Client._RealmState
                Case Client.RealmState.State.OnCheckVersion : CheckVersion()
                Case Client.RealmState.State.OnCheckAccount : CheckAccount()
                Case Client.RealmState.State.OnServerList : ServerList()
            End Select
        End Sub

        Private Sub CheckVersion()
            If _ToParse = CorrectVersion Then
                _Client._RealmState = Client.RealmState.State.OnCheckAccount
            Else
                _Client.Send(New Packet.Identification.LoginFailed _
                             (LoginFailed.LoginFailed.WrongVersion))
                _Client.Disconect()
            End If
        End Sub

        Private Sub CheckAccount()
            Dim AuthStr() As String = _ToParse.Split("#")
            Dim Username As String = AuthStr(0)
            Dim Password As String = AuthStr(1)
            Dim Account As Client.RealmAccount = SQL.PG.PgAccount.GetAccount(Username)
            If Not Account Is Nothing Then
                If Utils.StringUtils.CryptPassword(Account.GetContent("password"), _Client.LoginKey) = Password Then
                    If Not Account.GetContent("banned") = 1 Then
                        If Not RealmServer.IsConnected(Account.GetContent("username")) Then
                            _Client._Account = Account
                            _Client.Update()
                            _Client.Send(New Pseudo(Account.GetContent("pseudo")))
                            _Client.Send(New Communauty(0))
                            _Client.Send(New Hosts(GameServer.gameServerList))
                            _Client.Send(New Gmlevel(Account.GetContent("gmlevel")))
                            _Client._RealmState = Client.RealmState.State.OnServerList
                            Utils.MyConsole.Info("Client @" & Username & "@ Successfuly authenficated")
                        Else : _Client.Send(New Packet.Identification.LoginFailed _
                            (LoginFailed.LoginFailed.AlreadyConnected))
                        End If
                    Else : _Client.Send(New Packet.Identification.LoginFailed _
                        (LoginFailed.LoginFailed.Banned))
                    End If
                    Else : _Client.Send(New Packet.Identification.LoginFailed _
                            (LoginFailed.LoginFailed.WrongAccount))
                    End If
            Else : _Client.Send(New Packet.Identification.LoginFailed _
                (LoginFailed.LoginFailed.WrongAccount))
            End If
        End Sub

        Private Sub ServerList()
            Select Case Mid(_ToParse, 1, 2)
                Case ("Ax") : _Client.Send(New CharactersList(GameServer.gameServerList, _Client))
                Case ("AX")
                    _Client.Send(New GameKey(GameServer.GetGameServer(_ToParse.Substring(2)), Utils.StringUtils.createGameKey))
            End Select
        End Sub

    End Class
End Namespace