Untitled

mail@pastecode.io avatar
unknown
plain_text
2 years ago
2.9 kB
6
Indexable
Never
Public Class SPPerfection
    Private Sub TextBox_SPPSlot_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPSlot.TextChanged
        If TextBox_SPPSlot.Text = "" Then
            TextBox_SPPSlot.Text = "0"
        End If
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " " + TextBox_SPP.Text
    End Sub
    Private Sub TextBox_SPP_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPP.TextChanged
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 0 " + TextBox_SPP.Text
    End Sub
    Private Sub TextBox_SPPAtk_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPAtk.TextChanged
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 1 " + TextBox_SPPAtk.Text
    End Sub
    Private Sub TextBox_SPPDef_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPDef.TextChanged
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 2 " + TextBox_SPPDef.Text
    End Sub
    Private Sub TextBox_SPPProp_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPProp.TextChanged
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 3 " + TextBox_SPPProp.Text
    End Sub
    Private Sub TextBox_SPPHPMP_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPHPMP.TextChanged
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 4 " + TextBox_SPPHPMP.Text
    End Sub
    Private Sub TextBox_SPPFire_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPFire.TextChanged
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 5 " + TextBox_SPPFire.Text
    End Sub
    Private Sub TextBox_SPPWater_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPWater.TextChanged
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 6 " + TextBox_SPPWater.Text
    End Sub
    Private Sub TextBox_SPPLight_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPLight.TextChanged
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 7 " + TextBox_SPPLight.Text
    End Sub
    Private Sub TextBox_SPPShadow_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPPShadow.TextChanged
        TextBox_SPPCommand.Text = "$Perfection " + TextBox_SPPSlot.Text + " 8 " + TextBox_SPPShadow.Text
    End Sub
    Private Sub GunaCheckBox_SPPE_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_SPPE.CheckedChanged
        If GunaCheckBox_SPPE.Checked Then
            Label_SPPName.Visible = True
            TextBox_SPPName.Visible = True
        Else
            Label_SPPName.Visible = False
            TextBox_SPPName.Visible = False
        End If
        TextBox_SPPCommand.Text = "$edit " + TextBox_SPPName.Text + "$Perfection" + " " + TextBox_SPPSlot.Text
    End Sub
End Class