--Made by xMinerHaven, Hope you enjoy!--
--Version 1.4, Made on Thanksgiving 2015--
--Thanks for buying/using--
l = game:service("Lighting")
r = game:service("RunService")
while true do
l:SetMinutesAfterMidnight(l:GetMinutesAfterMidnight()+1)
wait(.5)
end
I'm not sure if it will work, but I'll leave it up to you guys.

2 comments
"will it work" test it yourself...
Don't get the RunService unless you need it, which in this case you don't, I believe that service would only work in LocalScripts which would cause error in a Server Script in server mode. Also, :service is deprecated and should not be used in new work, use :GetService instead.