Untitled

mail@pastecode.io avatar
unknown
plain_text
2 years ago
6.7 kB
2
Indexable
Never
Private Sub CreateNewCommandTextB()

        If Not GunaRadioButton_BAB.Checked AndAlso Not GunaRadioButton_BTFC.Checked AndAlso Not GunaRadioButton_BPVPDmg.Checked AndAlso Not GunaRadioButton_BPVPDef.Checked AndAlso Not GunaRadioButton_BFHD.Checked AndAlso Not GunaRadioButton_BFHS.Checked AndAlso Not GunaRadioButton_BFHJ.Checked AndAlso Not GunaRadioButton_BFHM.Checked AndAlso Not GunaRadioButton_BUH.Checked AndAlso Not GunaRadioButton_BDS.Checked AndAlso Not GunaRadioButton_BAS.Checked AndAlso Not GunaRadioButton_BFA.Checked AndAlso Not GunaRadioButton_BPH.Checked AndAlso Not GunaRadioButton_BAM.Checked AndAlso Not GunaRadioButton_BBL.Checked AndAlso Not GunaRadioButton_BEL.Checked AndAlso Not GunaRadioButton_BSL.Checked AndAlso Not GunaRadioButton_BLL.Checked AndAlso Not GunaRadioButton_BSK.Checked OrElse ComboBox_BItem.SelectedIndex = -1 Then Return
        Dim CommandTextB = "$ci "
        Select Case True
            Case GunaRadioButton_BAB.Checked : CommandTextB &= BAB(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BTFC.Checked : CommandTextB &= BTFC(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BPVPDmg.Checked : CommandTextB &= BPVPDmg(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BPVPDef.Checked : CommandTextB &= BPVPDef(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFHD.Checked : CommandTextB &= BFHD(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFHS.Checked : CommandTextB &= BFHS(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFHJ.Checked : CommandTextB &= BFHJ(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFHM.Checked : CommandTextB &= BFHM(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BUH.Checked : CommandTextB &= BUH(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BDS.Checked : CommandTextB &= BDS(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BAS.Checked : CommandTextB &= BAS(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFA.Checked : CommandTextB &= BFA(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BPH.Checked : CommandTextB &= BPH(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BAM.Checked : CommandTextB &= BAM(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BBL.Checked : CommandTextB &= BBL(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BEL.Checked : CommandTextB &= BEL(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BSL.Checked : CommandTextB &= BSL(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BLL.Checked : CommandTextB &= BLL(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BSK.Checked : CommandTextB &= BSK(ComboBox_BItem.SelectedIndex)
        End Select
        If TextBox_BAmount.Text = "0" Or "1" Then
            CommandTextB &= ""
            If TextBox_BAmount.Text > "1" Then
                CommandTextB &= " " + TextBox_BAmount.Text
            End If
        End If
        TextBox_BCommand.Text = CommandTextB
        If GunaCheckBox_BSkillE.Checked Then
            TextBox_BCommand.Text = "$edit " + TextBox_BName.Text + " " + CommandTextB
        End If

    End Sub

    Private Sub CreateNewCommandTextBSkill()

        If Not GunaRadioButton_BAB.Checked AndAlso Not GunaRadioButton_BTFC.Checked AndAlso Not GunaRadioButton_BPVPDmg.Checked AndAlso Not GunaRadioButton_BPVPDef.Checked AndAlso Not GunaRadioButton_BFHD.Checked AndAlso Not GunaRadioButton_BFHS.Checked AndAlso Not GunaRadioButton_BFHJ.Checked AndAlso Not GunaRadioButton_BFHM.Checked AndAlso Not GunaRadioButton_BUH.Checked AndAlso Not GunaRadioButton_BDS.Checked AndAlso Not GunaRadioButton_BAS.Checked AndAlso Not GunaRadioButton_BFA.Checked AndAlso Not GunaRadioButton_BPH.Checked AndAlso Not GunaRadioButton_BAM.Checked AndAlso Not GunaRadioButton_BBL.Checked AndAlso Not GunaRadioButton_BEL.Checked AndAlso Not GunaRadioButton_BSL.Checked AndAlso Not GunaRadioButton_BLL.Checked AndAlso Not GunaRadioButton_BSK.Checked OrElse ComboBox_BItem.SelectedIndex = -1 Then Return
        Dim CommandTextBSkill = "$AddSkill "
        Select Case True
            Case GunaRadioButton_BAB.Checked : CommandTextBSkill &= BABSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BTFC.Checked : CommandTextBSkill &= BTFCSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BPVPDmg.Checked : CommandTextBSkill &= BPVPDmgSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BPVPDef.Checked : CommandTextBSkill &= BPVPDefSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFHD.Checked : CommandTextBSkill &= BFHDSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFHS.Checked : CommandTextBSkill &= BFHSSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFHJ.Checked : CommandTextBSkill &= BFHJSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFHM.Checked : CommandTextBSkill &= BFHMSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BUH.Checked : CommandTextBSkill &= BUHSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BDS.Checked : CommandTextBSkill &= BDSSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BAS.Checked : CommandTextBSkill &= BASSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BFA.Checked : CommandTextBSkill &= BFASkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BPH.Checked : CommandTextBSkill &= BPHSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BAM.Checked : CommandTextBSkill &= BAMSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BBL.Checked : CommandTextBSkill &= BBLSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BEL.Checked : CommandTextBSkill &= BELSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BSL.Checked : CommandTextBSkill &= BSLSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BLL.Checked : CommandTextBSkill &= BLLSkill(ComboBox_BItem.SelectedIndex)
            Case GunaRadioButton_BSK.Checked : CommandTextBSkill &= BSKSkill(ComboBox_BItem.SelectedIndex)
        End Select
        If GunaCheckBox_BSkill.Checked Then
            TextBox_BCommand.Text = CommandTextBSkill
        End If
        TextBox_BCommand.Text = CommandTextBSkill
        If GunaCheckBox_BSkill.Checked AndAlso GunaCheckBox_BSkillE.Checked Then
            TextBox_BCommand.Text = "$edit " + TextBox_BName.Text + " " + CommandTextBSkill
        End If

    End Sub