Private Sub Centaur_Bandits_Battle_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click, picPicture.Click, lblPHP.Click, lblPHPBar.Click, lblAAHP.Click, lblAAHPBar.Click, lblABHP.Click, lblABHPBar.Click, lblACHP.Click, lblACHPBar.Click, lblECHP.Click, lblECHPBar.Click, lblEBHP.Click, lblEBHPBar.Click, lblEAHP.Click, lblEAHPBar.Click, lblNHP.Click, lblNHPBar.Click, lblText.Click
        TurnSub()
    End Sub

    Private Sub TurnSub()
        Select Case Turn
            Case Is = 0
                If PKnockDown = True Then
                    lblText.Text = "You are knocked down and cannot attack."
                ElseIf PKnockDown = False Then
                    DisplayButtons()
                    PlayerTurn = True
                    lblText.Text = "What will you do?"
                End If
            Case Is = 1
                If Pet = True Then
                    TurnPet()
                Else
                    Turn = 2
                    TurnSub()
                End If
            Case Is = 2
                If Deception = True Then
                    TurnDeception()
                Else
                    Turn = 3
                    TurnSub()
                End If
            Case Is = 3
                If Rogue = True Then
                    TurnRogue()
                Else
                    Turn = 4
                    TurnSub()
                End If
            Case Is = 4
                If EC = True Then
                    TurnCentaurC()
                Else
                    Turn = 5
                    TurnSub()
                End If
            Case Is = 5
                If EB = True Then
                    TurnCentaurB()
                Else
                    Turn = 6
                    TurnSub()
                End If
            Case Is = 6
                If EA = True Then
                    TurnCentaurA()
                Else
                    Turn = 7
                    TurnSub()
                End If
            Case Is = 7
                TurnCentaurN()
            Case Is = 8
                Cooldowns()
                Conditions()
        End Select
    End Sub