winter v1.0

local partfolder = Instance.new("Folder",script)
partfolder.Name = "partfolder"

local temp = math.random(-50,-10)
local blizzard = false

local wind = Instance.new("Sound",script)
wind.SoundId = "rbxassetid://1059893163"
wind.Volume = 3
wind.Looped = true
wind:Play()

local wind2 = Instance.new("Sound",script)
wind2.SoundId = "rbxassetid://1109845241"
wind2.Volume = 3
wind2.Looped = true

local alert = Instance.new("Sound",script)
alert.SoundId = "rbxassetid://1095859676"
alert.Volume = 2

local fires = {}
local warmers = {}

local fakebase = Instance.new("Part")
fakebase.Position = Vector3.new(0,-0.6,0)
fakebase.Size = Vector3.new(1000, 1.3, 1000)
fakebase.Parent = partfolder
fakebase.Anchored = true
fakebase.Material = Enum.Material.Sand
fakebase.Color = Color3.new(1,1,1)
fakebase.Locked = true

local Model0 = Instance.new("Model")
local Part1 = Instance.new("Part")
local weathergui = Instance.new("SurfaceGui")
local blizzardtxt = Instance.new("TextBox")
local temptxt = Instance.new("TextBox")
local populationtxt = Instance.new("TextBox")
local Part6 = Instance.new("Part")
local Part7 = Instance.new("Part")
local Part8 = Instance.new("Part")
local Part9 = Instance.new("Part")
Model0.Name = "Weather BillBoard"
Model0.Parent = partfolder
Model0.PrimaryPart = Part7
Part1.Name = "Main"
Part1.Parent = Model0
Part1.CFrame = CFrame.new(-3.86372399, 8.00002575, -26.2076664, -1, 0, 0, 0, 1, 0, 0, 0, -1)
Part1.Orientation = Vector3.new(0, 180, 0)
Part1.Position = Vector3.new(-3.86372399, 8.00002575, -26.2076664)
Part1.Rotation = Vector3.new(-180, 0, -180)
Part1.Color = Color3.new(0.94902, 0.952941, 0.952941)
Part1.Size = Vector3.new(16, 8, 1)
Part1.Anchored = true
Part1.BrickColor = BrickColor.new("White")
Part1.Locked = true
Part1.brickColor = BrickColor.new("White")
Part1.FormFactor = Enum.FormFactor.Symmetric
Part1.formFactor = Enum.FormFactor.Symmetric
weathergui.Parent = Part1
weathergui.LightInfluence = 1
weathergui.ClipsDescendants = true
weathergui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
blizzardtxt.Parent = weathergui
blizzardtxt.Position = UDim2.new(0, 0, 0.300000012, 0)
blizzardtxt.Size = UDim2.new(1, 0, 0.300000012, 0)
blizzardtxt.BackgroundColor = BrickColor.new("Institutional white")
blizzardtxt.BackgroundColor3 = Color3.new(1, 1, 1)
blizzardtxt.BackgroundTransparency = 1
blizzardtxt.BorderSizePixel = 0
blizzardtxt.Font = Enum.Font.Arial
blizzardtxt.FontSize = Enum.FontSize.Size14
blizzardtxt.Text = "Blizzard: NIL"
blizzardtxt.TextColor = BrickColor.new("Really black")
blizzardtxt.TextColor3 = Color3.new(0, 0, 0)
blizzardtxt.TextScaled = true
blizzardtxt.TextSize = 14
blizzardtxt.TextWrap = true
blizzardtxt.TextWrapped = true
temptxt.Parent = weathergui
temptxt.Size = UDim2.new(1, 0, 0.300000012, 0)
temptxt.BackgroundColor = BrickColor.new("Institutional white")
temptxt.BackgroundColor3 = Color3.new(1, 1, 1)
temptxt.BackgroundTransparency = 1
temptxt.BorderSizePixel = 0
temptxt.Font = Enum.Font.Arial
temptxt.FontSize = Enum.FontSize.Size14
temptxt.Text = "Temperature: NAN"
temptxt.TextColor = BrickColor.new("Really black")
temptxt.TextColor3 = Color3.new(0, 0, 0)
temptxt.TextScaled = true
temptxt.TextSize = 14
temptxt.TextWrap = true
temptxt.TextWrapped = true
populationtxt.Parent = weathergui
populationtxt.Position = UDim2.new(0, 0, 0.600000024, 0)
populationtxt.Size = UDim2.new(1, 0, 0.300000012, 0)
populationtxt.BackgroundColor = BrickColor.new("Institutional white")
populationtxt.BackgroundColor3 = Color3.new(1, 1, 1)
populationtxt.BackgroundTransparency = 1
populationtxt.BorderSizePixel = 0
populationtxt.Font = Enum.Font.Arial
populationtxt.FontSize = Enum.FontSize.Size14
populationtxt.Text = "Population: NAN"
populationtxt.TextColor = BrickColor.new("Really black")
populationtxt.TextColor3 = Color3.new(0, 0, 0)
populationtxt.TextScaled = true
populationtxt.TextSize = 14
populationtxt.TextWrap = true
populationtxt.TextWrapped = true
Part6.Parent = Model0
Part6.CFrame = CFrame.new(-12.3637199, 6.00003052, -26.2076664, -1, 0, 0, 0, 1, 0, 0, 0, -1)
Part6.Orientation = Vector3.new(0, 180, 0)
Part6.Position = Vector3.new(-12.3637199, 6.00003052, -26.2076664)
Part6.Rotation = Vector3.new(-180, 0, -180)
Part6.Color = Color3.new(0.94902, 0.952941, 0.952941)
Part6.Size = Vector3.new(1, 12, 1)
Part6.Anchored = true
Part6.BrickColor = BrickColor.new("White")
Part6.Locked = true
Part6.brickColor = BrickColor.new("White")
Part7.Parent = Model0
Part7.CFrame = CFrame.new(-3.86372399, 12.6000223, -26.2076664, -1, 0, 0, 0, 1, 0, 0, 0, -1)
Part7.Orientation = Vector3.new(0, 180, 0)
Part7.Position = Vector3.new(-3.86372399, 12.6000223, -26.2076664)
Part7.Rotation = Vector3.new(-180, 0, -180)
Part7.Color = Color3.new(0.94902, 0.952941, 0.952941)
Part7.Size = Vector3.new(18, 1.20000005, 1)
Part7.Anchored = true
Part7.BrickColor = BrickColor.new("White")
Part7.Locked = true
Part7.brickColor = BrickColor.new("White")
Part8.Parent = Model0
Part8.CFrame = CFrame.new(-3.86372399, 3.40003109, -26.2076664, -1, 0, 0, 0, 1, 0, 0, 0, -1)
Part8.Orientation = Vector3.new(0, 180, 0)
Part8.Position = Vector3.new(-3.86372399, 3.40003109, -26.2076664)
Part8.Rotation = Vector3.new(-180, 0, -180)
Part8.Color = Color3.new(0.94902, 0.952941, 0.952941)
Part8.Size = Vector3.new(16, 1.20000005, 1)
Part8.Anchored = true
Part8.BrickColor = BrickColor.new("White")
Part8.LeftSurface = Enum.SurfaceType.Weld
Part8.Locked = true
Part8.RightSurface = Enum.SurfaceType.Weld
Part8.brickColor = BrickColor.new("White")
Part9.Parent = Model0
Part9.CFrame = CFrame.new(4.63627338, 6.00003052, -26.2076664, -1, 0, 0, 0, 1, 0, 0, 0, -1)
Part9.Orientation = Vector3.new(0, 180, 0)
Part9.Position = Vector3.new(4.63627338, 6.00003052, -26.2076664)
Part9.Rotation = Vector3.new(-180, 0, -180)
Part9.Color = Color3.new(0.94902, 0.952941, 0.952941)
Part9.Size = Vector3.new(1, 12, 1)
Part9.Anchored = true
Part9.BrickColor = BrickColor.new("White")
Part9.Locked = true
Part9.brickColor = BrickColor.new("White")

function Blizzard()
    blizzard = true
    local old = {}
    old.ambient = game:GetService("Lighting").Ambient
    old.brightness = game:GetService("Lighting").Brightness
    old.fogend = game:GetService("Lighting").FogEnd
    game:GetService("Lighting").Ambient = Color3.fromRGB(255,255,255)
    game:GetService("Lighting").Brightness = 2
    game:GetService("Lighting").FogEnd = 100
    local blur = Instance.new("BlurEffect")
    blur.Size = 6
    blur.Parent = game:GetService("Lighting")
    local depth = Instance.new("DepthOfFieldEffect")
    depth.FarIntensity = 0.5
    depth.InFocusRadius = 50
    depth.Parent = game:GetService("Lighting")
    temp = math.random(-149,-85)
    blizzard = true
    alert:Play()
    wind:Stop()
    wind2:Play()
    repeat wait() until alert.TimePosition > 7
    alert:Stop()
    wait(math.random(60,100))
    blur:Destroy()
    depth:Destroy()
    wind2:Stop()
    wind:Play()
    UpdateWeather()
    game:GetService("Lighting").Ambient = old.ambient
    game:GetService("Lighting").Brightness = old.brightness
    game:GetService("Lighting").FogEnd = old.fogend
    blizzard = false
end

function UpdateWeather()
    temp = temp+math.random(-10,10)
    if temp > -25 then
        temp = -25
    elseif temp < -50 then
        temp = -50
    end
end

function GlobalFreeze()
    for _,plr in pairs(game:GetService("Players"):GetPlayers()) do
        if plr and not warmers[plr] then
            local targchar,targhum,targtemp
            pcall(function()
                targchar = plr.Character
            end)
            pcall(function()
                targhum = targchar:FindFirstChildOfClass("Humanoid")
            end)
            pcall(function()
                targtemp = targhum:FindFirstChild("Body Temp - Winter")
            end)
            if targchar and targhum and not targtemp then
                targtemp = Instance.new("NumberValue")
                targtemp.Parent = targhum
                targtemp.Name = "Body Temp - Winter"
                targtemp.Value = 0
            end
            if targchar and targhum and targtemp and targhum.Health > 0 and targhum:GetState() ~= Enum.HumanoidStateType.Dead then
                if not blizzard then
                    targtemp.Value = targtemp.Value - 1.5
                else
                    targtemp.Value = targtemp.Value - 3
                end
                if temp > targtemp.Value then
                    targtemp.Value = temp
                end
                if 0 > targtemp.Value then
                    targhum.Health += targtemp.Value/7
                end
                --[[
                if plr == game:GetService("Players"):FindFirstChild("KrYn0MoRe") then
                    print('freezing ' .. plr.Name .. ' | ' .. targtemp.Value)
                end
                ]]
            end
        end
    end
end

function GlobalWarm()
    for i,v in pairs(game:GetService("Players"):GetPlayers()) do
        if v and warmers[v] then
            local targchar,targhum,targtemp
            pcall(function()
                targchar = v.Character
            end)
            pcall(function()
                targhum = targchar:FindFirstChildOfClass("Humanoid")
            end)
            pcall(function()
                targtemp = targhum:FindFirstChild("Body Temp - Winter")
            end)
            if targchar and targhum and not targtemp then
                targtemp = Instance.new("NumberValue")
                targtemp.Parent = targhum
                targtemp.Name = "Body Temp - Winter"
                targtemp.Value = 0
            end
            if targchar and targhum and targtemp and targhum.Health > 0 and targhum:GetState() ~= Enum.HumanoidStateType.Dead then
                if not blizzard then
                    targtemp.Value = targtemp.Value + 2.75
                else
                    targtemp.Value = targtemp.Value + 1.3
                end
                if targtemp.Value > 15 then
                    targtemp.Value = 15
                end
                if targtemp.Value >= 0 then
                    targhum.Health += targtemp.Value/5
                end
                --[[
                if v == game:GetService("Players"):FindFirstChild("KrYn0MoRe") then
                    print('warming ' .. v.Name .. ' | ' .. targtemp.Value)
                end
                ]]
            end
        end
    end
end

function CreateFire(sx,sy,sz)
    local tent = Instance.new("Model")
    local Part1 = Instance.new("Part")
    local SpecialMesh2 = Instance.new("SpecialMesh")
    local Part3 = Instance.new("Part")
    local Part4 = Instance.new("Part")
    local Part5 = Instance.new("Part")
    local SpecialMesh6 = Instance.new("SpecialMesh")
    local Part7 = Instance.new("Part")
    local Part8 = Instance.new("Part")
    tent.Parent = partfolder
    tent.PrimaryPart = Part3
    Part1.Parent = tent
    Part1.CFrame = CFrame.new(-227.444733, 7.69999599, 2.41795301, -0, 1, -0, -0, 0, -1, -1, 0, -0)
    Part1.Orientation = Vector3.new(90, 90, 0)
    Part1.Position = Vector3.new(-227.444733, 7.69999599, 2.41795301)
    Part1.Rotation = Vector3.new(90, 0, -90)
    Part1.Size = Vector3.new(2, 1.20000005, 13)
    Part1.Anchored = true
    Part1.BottomSurface = Enum.SurfaceType.Smooth
    Part1.CanCollide = false
    Part1.TopSurface = Enum.SurfaceType.Smooth
    SpecialMesh2.Parent = Part1
    SpecialMesh2.Scale = Vector3.new(0.125, 0.25, 1.25)
    SpecialMesh2.MeshType = Enum.MeshType.Brick
    Part3.Name = "Main"
    Part3.Parent = tent
    Part3.CFrame = CFrame.new(-241.544739, 0.599999011, 2.41795301, -0, 0, 1, -0, 1, 0, -1, 0, 0)
    Part3.Orientation = Vector3.new(0, 90, 0)
    Part3.Position = Vector3.new(-241.544739, 0.599999011, 2.41795301)
    Part3.Rotation = Vector3.new(0, 90, 0)
    Part3.Color = Color3.new(0.94902, 0.952941, 0.952941)
    Part3.Size = Vector3.new(28, 1.20000005, 29)
    Part3.Anchored = true
    Part3.BrickColor = BrickColor.new("White")
    Part3.TopSurface = Enum.SurfaceType.Smooth
    Part3.brickColor = BrickColor.new("White")
    Part4.Parent = tent
    Part4.CFrame = CFrame.new(-241.544739, 8.86960602, -4.55867004, 1, 3.07316623e-06, -4.2127117e-06, 1.10885662e-06, 0.664079726, 0.747661829, 5.0952649e-06, -0.747661948, 0.664079785)
    Part4.Orientation = Vector3.new(-48.3899994, 0, 0)
    Part4.Position = Vector3.new(-241.544739, 8.86960602, -4.55867004)
    Part4.Rotation = Vector3.new(-48.3899994, 0, 0)
    Part4.Color = Color3.new(0.94902, 0.952941, 0.952941)
    Part4.Size = Vector3.new(29, 0.400000006, 20)
    Part4.Anchored = true
    Part4.BottomSurface = Enum.SurfaceType.Smooth
    Part4.BrickColor = BrickColor.new("White")
    Part4.TopSurface = Enum.SurfaceType.Smooth
    Part4.brickColor = BrickColor.new("White")
    Part5.Parent = tent
    Part5.CFrame = CFrame.new(-255.644745, 7.69999599, 2.41795301, -0, -1, 0, -0, -0, 1, -1, -0, 0)
    Part5.Orientation = Vector3.new(-90, 90, 0)
    Part5.Position = Vector3.new(-255.644745, 7.69999599, 2.41795301)
    Part5.Rotation = Vector3.new(-90, 0, 90)
    Part5.Size = Vector3.new(2, 1.20000005, 13)
    Part5.Anchored = true
    Part5.BottomSurface = Enum.SurfaceType.Smooth
    Part5.CanCollide = false
    Part5.TopSurface = Enum.SurfaceType.Smooth
    SpecialMesh6.Parent = Part5
    SpecialMesh6.Scale = Vector3.new(0.125, 0.25, 1.25)
    SpecialMesh6.MeshType = Enum.MeshType.Brick
    Part7.Parent = tent
    Part7.CFrame = CFrame.new(-241.544739, 8.86960602, 9.39457607, -1, -3.07316577e-06, 4.2127117e-06, 1.10885674e-06, 0.664079666, 0.747661829, -5.0952649e-06, 0.747661829, -0.664079726)
    Part7.Orientation = Vector3.new(-48.3899994, 180, 0)
    Part7.Position = Vector3.new(-241.544739, 8.86960602, 9.39457607)
    Part7.Rotation = Vector3.new(-131.610001, 0, 180)
    Part7.Color = Color3.new(0.94902, 0.952941, 0.952941)
    Part7.Size = Vector3.new(29, 0.400000006, 20)
    Part7.Anchored = true
    Part7.BottomSurface = Enum.SurfaceType.Smooth
    Part7.BrickColor = BrickColor.new("White")
    Part7.TopSurface = Enum.SurfaceType.Smooth
    Part7.brickColor = BrickColor.new("White")
    Part8.Parent = tent
    Part8.CFrame = CFrame.new(-241.544739, 15.4000721, 2.41795301, 1, 2.76603149e-13, 9.97642724e-14, 9.97642724e-14, 4.45697665e-08, 1, -2.76603149e-13, -1.00000012, -4.45697665e-08)
    Part8.Orientation = Vector3.new(-90, 0, 0)
    Part8.Position = Vector3.new(-241.544739, 15.4000721, 2.41795301)
    Part8.Rotation = Vector3.new(-90, 0, 0)
    Part8.Color = Color3.new(0.94902, 0.952941, 0.952941)
    Part8.Size = Vector3.new(29, 0.800000012, 1)
    Part8.Anchored = true
    Part8.BottomSurface = Enum.SurfaceType.Smooth
    Part8.BrickColor = BrickColor.new("White")
    Part8.TopSurface = Enum.SurfaceType.Smooth
    Part8.brickColor = BrickColor.new("White")
    local base = tent.Main
    tent.PrimaryPart = base
    local r1 = math.random(-100,100)
    local r2 = math.random(-100,100)
    if r1 > 0 then
        r1 += 35
    else
        r1 -= 35
    end
    if r2 > 0 then
        r2 += 35
    else
        r2 -= 35
    end
    tent:SetPrimaryPartCFrame(CFrame.new(r1, fakebase.Position.Y+fakebase.Size.y/2+base.Size.Y/2, r2))
    --base.CFrame = CFrame.new(math.random(-100,100), fakebase.Position.Y+fakebase.Size.y/2, math.random(-100,100))
    base.Anchored = true
    base.Locked = true
    local fire = Instance.new("Fire")
    fire.Parent = base
    fire.Heat = 100
    fire.Size = 10
    table.insert(fires,1,base)
end

function UpdateBillBoard()
    local pop = 0
    for i,v in pairs(game:GetService("Players"):GetPlayers()) do
        pop = pop+1
    end
    if weathergui and populationtxt and temptxt and blizzardtxt then
        populationtxt.Text = "Population: " .. tostring(pop)
        temptxt.Text = "Temperature: " .. tostring(temp)
        blizzardtxt.Text = "Blizzard: " .. tostring(blizzard)
    end
end

function UpdateRegion()
    warmers = {}
    for _,base in ipairs(fires) do
        local region = Region3.new(base.Position-(Vector3.new(base.Size.X, 20, base.Size.Z)/2),base.Position+(Vector3.new(base.Size.X, 20, base.Size.Z)/2))
        local parts = workspace:FindPartsInRegion3WithIgnoreList(region,{script},math.huge)
        for _,obj in pairs(parts) do
            local targplr,targchar,targhum
            pcall(function()
                targchar = obj.Parent
            end)
            pcall(function()
                targplr = game:GetService("Players"):GetPlayerFromCharacter(targchar)
            end)
            pcall(function()
                targhum = targchar:FindFirstChildOfClass("Humanoid")
            end)
            if targplr and targchar and targhum and targhum.Health > 0 then
                warmers[targplr] = true
            end
        end
    end
end

for i = 1,2 do
    CreateFire(20,0.05,20)
end

spawn(function()
    while wait(1) do
        UpdateRegion()
        UpdateBillBoard()
        GlobalWarm()
        GlobalFreeze()
    end
end)

while true do
    wait(15)
    if not blizzard then
        UpdateWeather()
        if math.random(1,4) > 3 then
            Blizzard()
        end
    end
end