frmAddCharacter.vb

Imports System.Data.SQLite

Public Class frmAddCharacter

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        chkManagePlanets.Visible = False ' Not in use

        ' Always check all
        ESIScopesString = ""
        chkReadAgentsResearch.Checked = True
        chkReadAssets.Checked = True
        chkReadBlueprints.Checked = True
        chkReadCharacterJobs.Checked = True
        chkReadCorporationAssets.Checked = True
        chkReadCorporationBlueprints.Checked = True
        chkReadCorporationJobs.Checked = True
        chkReadCorporationMembership.Checked = True
        chkReadStandings.Checked = True
        chkReadStructures.Checked = True
        chkReadStructureMarkets.Checked = True
        'chkManagePlanets.Checked = True

        ' Set the tool tips for api
        With ttAPI
            .SetToolTip(chkReadAgentsResearch, "Reads a list of research agents' information for a character")
            .SetToolTip(chkReadAssets, "Reads a list of the character's assets")
            .SetToolTip(chkReadBlueprints, "Reads a list of blueprints the character owns")
            .SetToolTip(chkReadCharacterJobs, "Reads a list of the character's industry jobs")
            .SetToolTip(chkReadStandings, "Reads a list of character standings from agents, NPC corporations, and factions")

            .SetToolTip(chkReadCorporationAssets, "Reads a list of the corporation assets")
            .SetToolTip(chkReadCorporationBlueprints, "Reads a list of blueprints the corporation owns")
            .SetToolTip(chkReadCorporationJobs, "List industry jobs run by a corporation")
            .SetToolTip(chkReadCorporationMembership, "List of the current members a corporation and titles (for corp roles)")

            .SetToolTip(chkReadStructures, "Reads information about specific structures")
            .SetToolTip(chkReadStructureMarkets, "Reads market orders from a specific structure")

            .SetToolTip(chkManagePlanets, "Reads a list of all planetary colonies and layouts owned by a character")
        End With

    End Sub

    Private Sub btnEVESSOLogin_Click(sender As Object, e As EventArgs) Handles btnEVESSOLogin.Click
        Dim ESIConnection As New ESI
        Dim CharacterData As New SavedTokenData
        Dim CharCorpID As Long = 0

        Me.Cursor = Cursors.WaitCursor
        Call EnableDisableForm(False) ' Disable until we return
        Application.DoEvents()

        ' Strip the last space
        ESIScopesString = ESIScopesString.Substring(0, Len(ESIScopesString) - 1)

        '  Set the final scopes string - always needs skills
        ESIScopesString = "esi-skills.read_skills.v1 " & ESIScopesString

        ' Set the new character data first. This will load the data in the table or update it if they choose a character already loaded
        If ESIConnection.SetCharacterData(False, CharacterData, "", False, True, CharCorpID) Then

            ' Refresh the token data to get new scopes list if they added/removed
            If CharacterData.CharacterID <> DummyCharacterID And CharacterData.CharacterID > 0 Then
                Call SelectedCharacter.RefreshTokenData(CharacterData.CharacterID, CharCorpID)
            End If

            ' If they loaded a character for the first time, set it from Dummy to this character as the default
            If SelectedCharacter.ID = DummyCharacterID Then
                ' See if only one other character exists in db (the one we just added)
                Dim rsCheck As SQLiteDataReader
                DBCommand = New SQLiteCommand("SELECT COUNT(*) FROM ESI_CHARACTER_DATA WHERE CHARACTER_ID <> " & DummyCharacterID, EVEDB.DBREf)
                rsCheck = DBCommand.ExecuteReader
                rsCheck.Read()

                If rsCheck.GetInt32(0) = 1 Then
                    ' They only have one other character in the db and the selected is dummy, so set this to the default
                    rsCheck.Close()
                    DBCommand = New SQLiteCommand("SELECT CHARACTER_NAME FROM ESI_CHARACTER_DATA WHERE CHARACTER_ID <> " & DummyCharacterID, EVEDB.DBREf)
                    rsCheck = DBCommand.ExecuteReader
                    rsCheck.Read()
                    Me.Cursor = Cursors.WaitCursor
                    Application.DoEvents()
                    Call SetDefaultCharacter(rsCheck.GetString(0))
                    Me.Cursor = Cursors.Default
                    Application.DoEvents()
                End If
            Else
                MsgBox("Character successfully added to IPH", vbInformation, Application.ProductName)
            End If
        Else
            ' Didn't load, so show the re-enter info button
            If Not CancelESISSOLogin Then
                MsgBox("The Character failed to load. Please check application registration information.")
            End If
        End If

        Me.Cursor = Cursors.Default
        Call EnableDisableForm(True)
        Application.DoEvents()

        ' Close the form - users will have to select what one to set as default
        Me.Hide()

    End Sub

    Private Sub UpdateScopesString(AppendString As String, AddString As Boolean)
        If AddString Then
            ESIScopesString &= AppendString & " "
        Else
            ' Need to remove the string, parse and remove, then rebuild
            Dim Scopes As String()

            Scopes = ESIScopesString.Split(New Char() {" "c})
            ESIScopesString = "" ' Reset

            For i = 0 To Scopes.Count - 1
                If Scopes(i) <> AppendString And Trim(Scopes(i)) <> "" Then
                    ESIScopesString &= Scopes(i) & " "
                End If
            Next
        End If

    End Sub

    Private Sub chkReadStandings_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadStandings.CheckedChanged, CheckBox4.CheckedChanged
        With chkReadStandings
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadAgentsResearch_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadAgentsResearch.CheckedChanged, CheckBox3.CheckedChanged
        With chkReadAgentsResearch
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadCharacterJobs_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadCharacterJobs.CheckedChanged, CheckBox5.CheckedChanged
        With chkReadCharacterJobs
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadAssets_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadAssets.CheckedChanged, CheckBox2.CheckedChanged
        With chkReadAssets
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadBlueprints_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadBlueprints.CheckedChanged, CheckBox1.CheckedChanged
        With chkReadBlueprints
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkManagePlanets_CheckedChanged(sender As Object, e As EventArgs) Handles chkManagePlanets.CheckedChanged
        With chkManagePlanets
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadCorporationMembership_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadCorporationMembership.CheckedChanged
        With chkReadCorporationMembership
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadCorporationJobs_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadCorporationJobs.CheckedChanged
        With chkReadCorporationJobs
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadCorporationAssets_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadCorporationAssets.CheckedChanged
        With chkReadCorporationAssets
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadCorporationBlueprints_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadCorporationBlueprints.CheckedChanged
        With chkReadCorporationBlueprints
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadStructures_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadStructures.CheckedChanged
        With chkReadStructures
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub chkReadStructureMarkets_CheckedChanged(sender As Object, e As EventArgs) Handles chkReadStructureMarkets.CheckedChanged
        With chkReadStructureMarkets
            Call UpdateScopesString(.Text, .Checked)
        End With
    End Sub

    Private Sub EnableDisableForm(Setting As Boolean)
        btnEVESSOLogin.Enabled = False
        chkManagePlanets.Enabled = Setting
        chkReadAgentsResearch.Enabled = Setting
        chkReadAssets.Enabled = Setting
        chkReadBlueprints.Enabled = Setting
        chkReadCharacterJobs.Enabled = Setting
        chkReadCorporationAssets.Enabled = Setting
        chkReadCorporationBlueprints.Enabled = Setting
        chkReadCorporationJobs.Enabled = Setting
        chkReadCorporationMembership.Enabled = Setting
        chkReadStandings.Enabled = Setting
        chkReadStructures.Enabled = Setting
        chkReadStructureMarkets.Enabled = Setting
    End Sub
End Class