How do I make this script last longer? (Day/Night and Fog)

****************How do I make this script last longer? It seems too short of a day and night when I use this. local util = require(246630385)

local speed = 2.5

local l = game.Lighting

-- Colors local black = util.Color(0, 0, 0) local lightBlack = util.Color(0, 0, 0) local red = util.Color(71, 51, 51) local orange = util.Color(71, 71, 51) local pink = util.Color(91, 71, 71) local grey = util.Color(192, 192, 192)

-- Fog Levels local highStart = 0 local highEnd = 300 local mediumStart = 0 local mediumEnd = 200 local lowStart = 0 local lowEnd = 1200

l.FogColor = grey -- default fog l.FogStart = mediumStart l.FogEnd = mediumEnd l.TimeOfDay = "15:00:00" -- default time of day

--[[ Time Table / Black | High Fog 1440 = 24:00/00:00 -- Night / | 1380 = 23:00 / | 1320 = 22:00 / | 1260 = 21:00 / | 1200 = 20:00 / Black | High Fog 1140 = 19:00 / Light Black [18:30] | Medium Fog 1080 = 18:00 -- Sunset/ Orange /\ Red / Pink | Low Fog

•  = 17:30             -- Normal/ Grey                         | Medium Fog
  
  

  1020 = 17:00 / | 960 = 16:00 / | 900 = 15:00 / | 840 = 14:00 ------------------- Start Time ---------------------------------- 780 = 13:00 / | 720 = 12:00 -- Midday / Grey | Medium Fog 660 = 11:00 / | 600 = 10:00 / | 540 = 9:00 / | 480 = 8:00 / | 420 = 7:00 / |

•  =  6:30            -- Normal / Grey                         | Medium Fog
  
  

  360 = 6:00 -- Sunrise/ Orange / Red /\ Pink | Low Fog 300 = 5:00 / Light Black [5:30] | Medium Fog 240 = 4:00 / Black | High Fog 180 = 3:00 / | 120 = 2:00 / | 60 = 1:00 / | 0 = 00:00/24:00 -- Night / | / Black | High Fog

]]--

function set(val) l:SetMinutesAfterMidnight(val) end

function get(val) return l:GetMinutesAfterMidnight() end

while true do wait(1/speed) -- for 24,000 seconds to equal a day (or at least close to a day). set(get() + 1) local t = get() if t == 0 or t == 1440 or t == 1200 or t == 240 then l.FogColor = black l.FogStart = highStart l.FogEnd = highEnd elseif t == 330 or t == 1110 then l.FogColor = lightBlack l.FogStart = mediumStart l.FogEnd = mediumEnd elseif t == 345 or t == 1095 then -- for 15 minutes l.FogColor = red l.FogStart = lowStart l.FogEnd = lowEnd elseif t == 360 or t == 1080 then l.FogColor = orange l.FogStart = lowStart l.FogEnd = lowEnd elseif t == 375 or t == 1065 then -- for 15 minutes l.FogColor = pink l.FogStart = lowStart l.FogEnd = lowEnd elseif t == 390 or t == 720 or t == 1050 then l.FogColor = grey l.FogStart = mediumStart l.FogEnd = mediumEnd end end