Untitled
unknown
plain_text
3 years ago
4.3 kB
5
Indexable
Public Class SPPerfection '######################################################## SPECIALIST CARDS PERFECTION ######################################################## Private Sub TextBox_SPPSlot_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPSlot.TextChanged '######################################################## SP PERFECTION ######################################################## If TextBox_SPPSlot.Text = "" Or "0" Then TextBox_SPPCommand.Text = "$Perfection " + "0 " + "0 " + TextBox_SPP.Text TextBox_SPPCommand.Text = "$Perfection " + "0 " + "1 " + TextBox_SPPAtk.Text Else TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 0 " + TextBox_SPP.Text TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 1 " + TextBox_SPPAtk.Text End If '######################################################## SP PERFECTION ATK ######################################################## If TextBox_SPPSlot.Text = "" Or "0" Then TextBox_SPPCommand.Text = "$Perfection " + "0 " + "1 " + TextBox_SPPAtk.Text Else TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 1 " + TextBox_SPPAtk.Text End If '######################################################## SP PERFECTION DEF ######################################################## If TextBox_SPPSlot.Text = "" Or "0" Then TextBox_SPPCommand.Text = "$Perfection " + "0 " + "2 " + TextBox_SPPDef.Text Else TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 2 " + TextBox_SPPDef.Text End If '######################################################## SP PERFECTION PROP ######################################################## If TextBox_SPPSlot.Text = "" Or "0" Then TextBox_SPPCommand.Text = "$Perfection " + "0 " + "3 " + TextBox_SPPProp.Text Else TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 3 " + TextBox_SPPProp.Text End If '######################################################## SP PERFECTION HP/MP ######################################################## If TextBox_SPPSlot.Text = "" Or "0" Then TextBox_SPPCommand.Text = "$Perfection " + "0 " + "4 " + TextBox_SPPHPMP.Text Else TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 4 " + TextBox_SPPHPMP.Text End If '######################################################## SP PERFECTION FIRE ######################################################## If TextBox_SPPSlot.Text = "" Or "0" Then TextBox_SPPCommand.Text = "$Perfection " + "0 " + "5 " + TextBox_SPPFire.Text Else TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 5 " + TextBox_SPPFire.Text End If '######################################################## SP PERFECTION WATER ######################################################## If TextBox_SPPSlot.Text = "" Or "0" Then TextBox_SPPCommand.Text = "$Perfection " + "0 " + "6 " + TextBox_SPPWater.Text Else TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 6 " + TextBox_SPPWater.Text End If '######################################################## SP PERFECTION LIGHT ######################################################## If TextBox_SPPSlot.Text = "" Or "0" Then TextBox_SPPCommand.Text = "$Perfection " + "0 " + "7 " + TextBox_SPPLight.Text Else TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 7 " + TextBox_SPPLight.Text End If '######################################################## SP PERFECTION SHADOW ######################################################## If TextBox_SPPSlot.Text = "" Or "0" Then TextBox_SPPCommand.Text = "$Perfection " + "0 " + "8 " + TextBox_SPPShadow.Text Else TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 8 " + TextBox_SPPShadow.Text End If End Sub
Editor is loading...