Untitled
unknown
plain_text
3 years ago
6.7 kB
5
Indexable
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
Editor is loading...