How do I make this script gives points during a specified time?

Hello!

I am currently working on a script that gives points starting from 6 AM to 8PM. Here's what I got so far:

amount = 2 --Amount of power we will give each time
timedelay = 5 --Amount of Seconds in between each time the power is rewarded 
currencyname = "Power" --Name 

minutesAfterMidnight = 0

while true do
    minutesAfterMidnight = minutesAfterMidnight + .5
    game.Lighting:SetMinutesAfterMidnight(minutesAfterMidnight)
    wait(0.1)

if game.Lighting.ClockTime == 6.000 then --checks for 6AM
    while true do
        wait(timedelay)
        for i,v in pairs(game.Players:GetPlayers()) do
            if v:FindFirstChild("leaderstats") and v then 
                v.leaderstats[currencyname].Value = v.leaderstats[currencyname].Value + amount
            end
        end
    end
end
end

For some reason the time stops at 6 and gives me a few points. Am I looping something incorrectly?