Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Developers Tools
        '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        '/
        'My.Settings.Reset()
        'My.Settings.Reload()
        'Me.Update()
        'Me.Refresh()
        'devexe.Visible = True
        '\
        '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        Health.Text = "Physical Health: " & My.Settings.health & "/100"
        money.Text = "Money(USD): " & My.Settings.money
        level.Text = "Level: " & My.Settings.level
        exp.Value = My.Settings.exp
        exp.Maximum = exp.Maximum * My.Settings.level
        If My.Settings.jobs = "0" Then
            Button3.Enabled = False
        Else
            Button1.Enabled = False
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Random As New Random
        Dim chancepeice13357 As String = ""
        chancepeice13357 = Random.Next(1, 10)
        If chancepeice13357 = "7" Then
            MsgBox("Congratulations! You got a job! You start monday!", MsgBoxStyle.Information, "Rolled Chance Peice 13357")
            My.Settings.jobs = "1"
            Button1.Enabled = False
            Button3.Enabled = True
            Me.Update()
            Me.Refresh()
            My.Settings.exp = My.Settings.exp + 200
            exp.Value = My.Settings.exp
            exp.Refresh()
        Else
            MsgBox("Sorry buddy. You didn't get the job, try again next time?", MsgBoxStyle.Information, "Rolled Chance Peice 13357")
        End If
    End Sub

    Private Sub syscheck_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles syscheck.Tick
        If exp.Value = exp.Maximum Then
            My.Settings.level = My.Settings.level + +1
            exp.Maximum = exp.Maximum * My.Settings.level
            exp.Value = My.Settings.exp
            level.Text = "Level: " & My.Settings.level
            Me.Update()
            Me.Refresh()
        End If
        If My.Settings.level = "10" Then
            MsgBox("You have beat the game. Very easy isn't it?, THe game will restart next time you run it.", MsgBoxStyle.Information, "")
            Me.Close()
        End If
        If My.Settings.health = "0" Then
            MsgBox("YOU HAVE DIED! Due to dying, your character has been reset.", MsgBoxStyle.Critical, "")
            My.Settings.Reset()
            My.Settings.Reload()
            Me.Update()
            Me.Refresh()
        End If
        If energy.Value = "0" Then
            hpdrain.Start()
        Else
            hpdrain.Stop()
        End If

    End Sub

    Private Sub devexe_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles devexe.TextChanged
        If devexe.Text = "fullexp" Then
            exp.Value = exp.Maximum
        End If
        If devexe.Text = "lackexercise" Then
            exercisex.Value = 100
        End If
        If devexe.Text = "devexercise" Then
            exercise.Interval = 15000
        End If
        If devexe.Text = "devmoney" Then
            My.Settings.money = "50000"
            money.Text = "Money(USD): " & My.Settings.money
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If My.Settings.money < "005" Then
            MsgBox("You cannot enter, you need $50.00.")
        End If
        If My.Settings.money >= "005" Then
            MsgBox("Thank you for coming to Run4Heart Gym!", MsgBoxStyle.Information, "")
            exercisex.Value = 0
            My.Settings.money = My.Settings.money - 50
            money.Text = "Money(USD): " & My.Settings.money
        End If
    End Sub

    Private Sub exercise_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exercise.Tick
        exercisex.Increment(1)

        If exercisex.Value = "100" Then
            If tool.Text = "exer1" Then
                hpdrain.Stop()
            Else
                hpdrain.Start()
                tool.Text = "exer1"
                MsgBox("YOU ARE DYING FROM CRITICAL LACK OF EXERCISE!", MsgBoxStyle.Critical, "")
            End If
        End If
    End Sub

    Private Sub hpdrain_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpdrain.Tick
        My.Settings.health = My.Settings.health - 1
        Health.Text = "Physical Health: " & My.Settings.health & "/100"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If energy.Value = "100" Then
            working.Visible = True
            workingx.Start()
        Else
            MsgBox("You are too tired to work.")
        End If
    End Sub

    Private Sub workingx_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles workingx.Tick
        working.Increment(1)
        Dim Random As New Random
        Dim igain As String = ""
        igain = Random.Next(100, 300)
        Dim igain1 As String = ""
        igain1 = Random.Next(50, 200)
        If working.Value = working.Maximum Then
            workingx.Stop()
            MsgBox("You have finished working. You are now exhausted! Might wanna get some rest.", MsgBoxStyle.Information, "")
            MsgBox("Your boss gives you your paycheck. its for $" & igain & ".", MsgBoxStyle.Information, "")
            MsgBox("You gain experience for working! You gained: " & igain1 & ".", MsgBoxStyle.Information, "")
            My.Settings.money = My.Settings.money + +igain
            money.Text = "Money(USD): " & My.Settings.money
            My.Settings.exp = My.Settings.exp + +igain1
            exp.Value = My.Settings.exp
            energy.Value = Random.Next(5, 60)
            workingx.Stop()
            working.Value = 0
            working.Visible = False
            Me.Update()
            Me.Refresh()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If My.Settings.money < "150" Then
            MsgBox("You cannot enter, you need $150.00.")
        End If
        If My.Settings.money >= "150" Then
            MsgBox("Have a nice sleep?", MsgBoxStyle.Information, "")
            energy.Value = 100
            My.Settings.money = My.Settings.money - 150
            money.Text = "Money(USD): " & My.Settings.money
        End If
    End Sub
End Class