local Human
for _, v in pairs(World:GetChildren()) do
    if v:IsA("Human") and v.Job == "Programmer" then
        Human = v
    end
end

local Energy = Human.Energy
local Stamina = Human.Stamina
local Hunger = Human.HungerBar
local Region = Human.Address:FindFirstChild("Region")
local Time = World.UTC:GetGMT(Region).MilitaryTime
local Day = World.UTC:GetGMT(Region).DayOfWeek
local House = Human.Address.House
local Bathroom = House:FindFirstChild("Bathroom")
local GamingChair = House:FindFirstChild("PC-Room").GamingChair
local Table = House:FindFirstChild("Living-Room").Table
local Store = World:FindFirstChild("GroceryStore")

local function WakeUpFunc(Human)
    Human.Body:Circadian_Rhythm.Connected:Function()
    Human.Body.Brain:WakeUp()
end

while true do
    Time = World.UTC:GetGMT(Region).MilitaryTime
    Day = World.UTC:GetGMT(Region).DayOfWeek

    if Time >= 630 and Human.Body:GetState() == "Sleeping" then
        WakeUpFunc(Human)
    end

    if Human.Body.Brain:GetState() == "Barely-Woke-Up" then
        if Energy >= 50 and Stamina >= 100 and Human.Location == "Bed" then
            Human.Legs:MoveTo(Bathroom)
            Human.Legs.MoveToFinished:Wait()
            Human.Arms:ChangeStateTo("Rinse face")
            Human.Arms.StateFinished:Wait()

            local ToothBrush = Bathroom:FindFirstChild("Personal-ToothBrush")
            Human.Arms:ChangeStateTo("Tooth-brush", ToothBrush)
            Human.Arms.StateFinished:Wait()

            if Day == "Saturday" or Day == "Sunday" then
                Human.Legs:MoveTo(Store)
                Human.WholeBody:ChangeStateTo("BuyGroceries")
                Human.WholeBody.StateFinished:Wait()
                Human.Legs:MoveTo(House)
                Human.WholeBody:ChangeStateTo("UnloadGroceries")
            else
                Human.Legs:MoveTo(Table)
                Human.WholeBody:ChangeStateTo("PrepareFood", "Eat")
                Human.WholeBody.StateFinished:Wait()

                Human.Legs:MoveTo(GamingChair)
                Human.Arms:ChangeStateTo("Start-Up-PC")
                Human.Arms.StateFinished:Wait()
                Human.WholeBody:ChangeStateTo("Programming")

                while Time < 2400 do
                    Time = World.UTC:GetGMT(Region).MilitaryTime

                    if (Time >= 1330 and Time < 1900 and Hunger > 74) or (Time >= 1900 and Time < 2400 and Hunger > 74) then
                        Human.Legs:MoveTo(Table)
                        Human.WholeBody:ChangeStateTo("PrepareFood", "Eat")
                        Human.WholeBody.StateFinished:Wait()
                        Human.Legs:MoveTo(GamingChair)
                        Human.Arms:ChangeStateTo("Start-Up-PC")
                        Human.Arms.StateFinished:Wait()
                        Human.WholeBody:ChangeStateTo("Programming")
                    elseif Time >= 2400 or Hunger <= 20 then
                        Human.Legs:MoveTo(Bed)
                        Human.WholeBody:ChangeStateTo("Sleep", "Dream")
                        Human.WholeBody.StateFinished:Wait()
                        break
                    end

                    wait(1)
                end
            end
        end
    end

    wait(1)
end