sure,
local players = game:GetService("Players")
local player = script.Parent.Parent.Parent.Parent
local GameSettings = script.Parent.Parent.settings
local bg_noice = player.GameSettings.bg_noice.Value
local tree_count = player.GameSettings.treecount.Value
local lbshown = player.GameSettings.levelbar.Value
local statsshown = player.GameSettings.stats.Value
local daynight = player.GameSettings.daynight.Value
local scrolling = script.Parent.ScrollingFrame
local bg = scrolling.bg_noice.buton
local tc = scrolling.tree_count.buton
local lb = scrolling.level_bar.buton
local ss = scrolling.showstats.buton
local dn = scrolling.daynight.buton
local wind = game:GetService("Workspace").Map.interactivestuff.wind:FindFirstChild("wind")
if bg_noice == true then
wind.Playing = true
bg.BackgroundColor3 = Color3.fromRGB(64, 252, 59)
bg.TextLabel.Text = "AÇIK"
else
wind.Playing = false
bg.BackgroundColor3 = Color3.fromRGB(252, 59, 59)
bg.TextLabel.Text = "KAPALI"
end
bg.MouseButton1Click:Connect(function()
if bg_noice == true then
bg_noice = false
wind.Playing = false
bg.BackgroundColor3 = Color3.fromRGB(252, 59, 59)
bg.TextLabel.Text = "KAPALI"
else
bg_noice = true
wind.Playing = true
bg.BackgroundColor3 = Color3.fromRGB(64,252,59)
bg.TextLabel.Text = "AÇIK"
end
bg.Position = UDim2.new(0.81,0,0.5,2)
wait(.1)
bg.Position = UDim2.new(0.81,0,0.5,0)
end)
bg.MouseEnter:Connect(function()
bg:TweenSize(UDim2.new(0.23,2,1,2),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)
bg.MouseLeave:Connect(function()
bg:TweenSize(UDim2.new(0.23,0,1,0),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)
local extra = game:GetService("ReplicatedStorage").modelstorage.extra
if tree_count == true then
if game:GetService("Workspace").Map.terrain.trees:FindFirstChild("extra") then
game:GetService("Workspace").Map.terrain.trees:FindFirstChild("extra"):Destroy()
end
tc.TextLabel.Text = "AZ"
elseif tree_count == false then
if not game:GetService("Workspace").Map.terrain.trees:FindFirstChild("extra") then
extra:Clone().Parent = game:GetService("Workspace").Map.terrain.trees
end
tc.TextLabel.Text = "ÇOK"
end
tc.MouseButton1Click:Connect(function()
if tree_count == true then
tree_count = false
if game:GetService("Workspace").Map.terrain.trees:FindFirstChild("extra") then
game:GetService("Workspace").Map.terrain.trees:FindFirstChild("extra"):Destroy()
end
tc.TextLabel.Text = "AZ"
else
tree_count = true
if not game:GetService("Workspace").Map.terrain.trees:FindFirstChild("extra") then
extra:Clone().Parent = game:GetService("Workspace").Map.terrain.trees
end
tc.TextLabel.Text = "ÇOK"
end
tc.Position = UDim2.new(0.81,0,0.5,2)
wait(.1)
tc.Position = UDim2.new(0.81,0,0.5,0)
end)
tc.MouseEnter:Connect(function()
tc:TweenSize(UDim2.new(0.23,2,1,2),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)
tc.MouseLeave:Connect(function()
tc:TweenSize(UDim2.new(0.23,0,1,0),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)
local levelbarui = script.Parent.Parent.level_ui
if lbshown == true then
levelbarui.Visible = true
lb.TextLabel.Text = "AÇIK"
lb.BackgroundColor3 = Color3.fromRGB(64,252,59)
else
levelbarui.Visible = false
lb.TextLabel.Text = "KAPALI"
lb.BackgroundColor3 = Color3.fromRGB(252, 59, 59)
end
lb.MouseButton1Click:Connect(function()
if lbshown == true then
lbshown = false
levelbarui.Visible = false
lb.TextLabel.Text = "KAPALI"
lb.BackgroundColor3 = Color3.fromRGB(252, 59, 59)
else
lbshown = true
levelbarui.Visible = true
lb.TextLabel.Text = "AÇIK"
lb.BackgroundColor3 = Color3.fromRGB(64,252,59)
end
lb.Position = UDim2.new(0.81,0,0.5,2)
wait(.1)
lb.Position = UDim2.new(0.81,0,0.5,0)
end)
lb.MouseEnter:Connect(function()
lb:TweenSize(UDim2.new(0.23,2,1,2),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)
lb.MouseLeave:Connect(function()
lb:TweenSize(UDim2.new(0.23,0,1,0),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)
local statsui1 = script.Parent.Parent.point
local statsui2 = script.Parent.Parent.time_spended
if statsshown == true then
statsui1.Visible = true
statsui2.Visible = true
ss.TextLabel.Text = "AÇIK"
ss.BackgroundColor3 = Color3.fromRGB(64,252,59)
else
statsui1.Visible = false
statsui2.Visible = false
ss.TextLabel.Text = "KAPALI"
ss.BackgroundColor3 = Color3.fromRGB(252, 59, 59)
end
ss.MouseButton1Click:Connect(function()
if statsshown == true then
statsshown = false
statsui1.Visible = false
statsui2.Visible = false
ss.TextLabel.Text = "KAPALI"
ss.BackgroundColor3 = Color3.fromRGB(252, 59, 59)
else
statsshown = true
statsui1.Visible = true
statsui2.Visible = true
ss.TextLabel.Text = "AÇIK"
ss.BackgroundColor3 = Color3.fromRGB(64,252,59)
end
ss.Position = UDim2.new(0.81,0,0.5,2)
wait(.1)
ss.Position = UDim2.new(0.81,0,0.5,0)
end)
ss.MouseEnter:Connect(function()
ss:TweenSize(UDim2.new(0.23,2,1,2),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)
ss.MouseLeave:Connect(function()
ss:TweenSize(UDim2.new(0.23,0,1,0),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)
local ls = game:GetService("Lighting")
local dayg = script.day
local nightg = script.night
local function deleteGradient()
if dn:FindFirstChildWhichIsA("UIGradient") then
dn:FindFirstChildWhichIsA("UIGradient"):Destroy()
end
end
if daynight == true then
ls.ClockTime = 12
deleteGradient()
dayg:Clone().Parent = dn
dn.TextLabel.Text = "GÜNDÜZ"
else
ls.ClockTime = 5
deleteGradient()
nightg:Clone().Parent = dn
dn.TextLabel.Text = "GECE"
end
dn.MouseButton1Click:Connect(function()
if daynight == true then
daynight = false
ls.ClockTime = 5
deleteGradient()
nightg:Clone().Parent = dn
dn.TextLabel.Text = "GECE"
else
daynight = true
ls.ClockTime = 12
deleteGradient()
dayg:Clone().Parent = dn
dn.TextLabel.Text = "GÜNDÜZ"
end
dn.Position = UDim2.new(0.81,0,0.5,2)
wait(.1)
dn.Position = UDim2.new(0.81,0,0.5,0)
end)
dn.MouseEnter:Connect(function()
dn:TweenSize(UDim2.new(0.23,2,1,2),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)
dn.MouseLeave:Connect(function()
dn:TweenSize(UDim2.new(0.23,0,1,0),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,.1)
end)