Untitled

mail@pastecode.io avatar
unknown
plain_text
2 years ago
4.3 kB
3
Indexable
Never
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