Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
- Dim txtLvl As Integer
- Dim txtHP As Integer
- Dim txtAtk As Integer
- Dim txtDef As Integer
- Dim txtSpecialAttack As Integer
- Dim txtSpecialDefense As Integer
- Dim txtSpeed As Integer
- Dim lblHP As integer
- Dim lblAtk As Integer
- Dim lblDef As Integer
- Dim lblSpecialDefense As Integer
- Dim lblSpecialAttack As Integer
- Dim lblSpeed As Integer
- Dim txtStatHP As Integer
- Dim txtStatAtk As Integer
- Dim txtStatDef As Integer
- Dim txtStatSpecialDefense As Integer
- Dim txtStatSpecialAttack As Integer
- Dim txtStatSpeed As Integer
- 'Check for invalid IVs
- 'COPYRIGHT 2011 JAMES GETROST
- If txtHP > 32 Then
- If txtAtk > 32 Then
- If txtDef > 32 Then
- If txtSpecialAttack > 32 Then
- If txtSpecialDefense > 32 Then
- If txtSpeed > 32 Then
- If txtStatAtk > 32 Then
- If txtStatDef > 32 Then
- If txtStatHP > 32 Then
- If txtStatSpeed > 32 Then
- If txtSpecialAttack > 32 Then
- If txtSpecialDefense > 32 Then
- MessageBox.Show("IVs cannot be greater than 31", "Invalid IV")
- Else
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- End If
- 'Used with Permission
- 'EOF
- 'Calculating the HP Stats
- lblHP.text = CInt(txtLvl - 1) * (txtHP * txtStatHP) + 10
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement