local SR4M = Instance.new("ScreenGui")
local mainframe = Instance.new("Frame")
local topframe = Instance.new("Frame")
local topframeshading = Instance.new("Frame")
local topframe_2 = Instance.new("Frame")
local homebutton = Instance.new("TextButton")
local creditsbutton = Instance.new("TextButton")
local scriptsbutton = Instance.new("TextButton")
local homeframe = Instance.new("ImageLabel")
local TextLabel = Instance.new("TextLabel")
local TextLabel_2 = Instance.new("TextLabel")
local TextLabel_3 = Instance.new("TextLabel")
local TextLabel_4 = Instance.new("TextLabel")
local scriptsframe = Instance.new("ImageLabel")
local TextLabel_5 = Instance.new("TextLabel")
local TextButton = Instance.new("TextButton")
local TextButton_2 = Instance.new("TextButton")
local TextButton_3 = Instance.new("TextButton")
local TextLabel_6 = Instance.new("TextLabel")
local ScrollingFrame = Instance.new("ScrollingFrame")
local normal = Instance.new("TextButton")
local moon = Instance.new("TextButton")
local cosmic = Instance.new("TextButton")
local birchock = Instance.new("TextButton")
local birchock_2 = Instance.new("TextButton")
local cybernaut = Instance.new("TextButton")
local chromium = Instance.new("TextButton")
local slider = Instance.new("ImageLabel")
local creditsframe = Instance.new("ImageLabel")
local TextLabel_7 = Instance.new("TextLabel")
local TextLabel_8 = Instance.new("TextLabel")
local TextLabel_9 = Instance.new("TextLabel")
local ImageButton = Instance.new("ImageButton")
local xbutton = Instance.new("TextButton")

SR4M.Name = "SR4M"
SR4M.Parent = game.CoreGui

mainframe.Name = "mainframe"
mainframe.Parent = SR4M
mainframe.BackgroundColor3 = Color3.new(0.176471, 0.176471, 0.176471)
mainframe.Position = UDim2.new(0.273260087, 0, 0.191897482, 0)
mainframe.Size = UDim2.new(0, 474, 0, 342)

topframe.Name = "topframe"
topframe.Parent = mainframe
topframe.BackgroundColor3 = Color3.new(0.105882, 0.105882, 0.105882)
topframe.BorderSizePixel = 0
topframe.ClipsDescendants = true
topframe.Position = UDim2.new(-0.00113365718, 0, -0.0345058329, 0)
topframe.Size = UDim2.new(0, 474, 0, 43)

topframeshading.Name = "topframeshading"
topframeshading.Parent = mainframe
topframeshading.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
topframeshading.BorderSizePixel = 0
topframeshading.Position = UDim2.new(0.00210970454, 0, 0.0761677623, 0)
topframeshading.Size = UDim2.new(0, 472, 0, 5)

topframe_2.Name = "topframe"
topframe_2.Parent = mainframe
topframe_2.BackgroundColor3 = Color3.new(0.105882, 0.105882, 0.105882)
topframe_2.BorderSizePixel = 0
topframe_2.Position = UDim2.new(-0.00113365706, 0, 0.880216002, 0)
topframe_2.Size = UDim2.new(0, 474, 0, 40)

homebutton.Name = "homebutton"
homebutton.Parent = topframe_2
homebutton.BackgroundColor3 = Color3.new(1, 1, 1)
homebutton.BackgroundTransparency = 1
homebutton.Position = UDim2.new(0.0140587389, 0, -0.128578901, 0)
homebutton.Size = UDim2.new(0, 77, 0, 50)
homebutton.Font = Enum.Font.GothamBold
homebutton.Text = "Home"
homebutton.TextColor3 = Color3.new(1, 1, 1)
homebutton.TextSize = 21
homebutton.MouseButton1Down:connect(function()
	slider:TweenPosition(UDim2.new(0.03, 0,0.965, 0), "Out", "Quint", .5)
	homeframe.Visible = true
	creditsframe.Visible = false
	scriptsframe.Visible = false
end)

creditsbutton.Name = "creditsbutton"
creditsbutton.Parent = topframe_2
creditsbutton.BackgroundColor3 = Color3.new(1, 1, 1)
creditsbutton.BackgroundTransparency = 1
creditsbutton.Position = UDim2.new(0.79945147, 0, -0.13334465, 0)
creditsbutton.Size = UDim2.new(0, 77, 0, 50)
creditsbutton.Font = Enum.Font.GothamBold
creditsbutton.Text = "Credits"
creditsbutton.TextColor3 = Color3.new(1, 1, 1)
creditsbutton.TextSize = 21
creditsbutton.MouseButton1Down:connect(function()
	slider:TweenPosition(UDim2.new(0.817, 0,0.968, 0), "Out", "Quint", .5)
	homeframe.Visible = false
	creditsframe.Visible = true
	scriptsframe.Visible = false
end)

scriptsbutton.Name = "scriptsbutton"
scriptsbutton.Parent = topframe_2
scriptsbutton.BackgroundColor3 = Color3.new(1, 1, 1)
scriptsbutton.BackgroundTransparency = 1
scriptsbutton.Position = UDim2.new(0.415403217, 0, -0.125871301, 0)
scriptsbutton.Size = UDim2.new(0, 77, 0, 50)
scriptsbutton.Font = Enum.Font.GothamBold
scriptsbutton.Text = "Scripts"
scriptsbutton.TextColor3 = Color3.new(1, 1, 1)
scriptsbutton.TextSize = 21
scriptsbutton.MouseButton1Down:connect(function()
	slider:TweenPosition(UDim2.new(0.431, 0,0.965, 0), "Out", "Quint", .5)
	homeframe.Visible = false
	creditsframe.Visible = false
	scriptsframe.Visible = true
end)

homeframe.Name = "homeframe"
homeframe.Parent = mainframe
homeframe.BackgroundColor3 = Color3.new(1, 1, 1)
homeframe.BackgroundTransparency = 1
homeframe.Position = UDim2.new(0.0302935243, 0, 0.129118621, 0)
homeframe.Size = UDim2.new(0, 447, 0, 241)
homeframe.Image = "rbxassetid://2851926732"
homeframe.ImageColor3 = Color3.new(0.105882, 0.105882, 0.105882)
homeframe.ScaleType = Enum.ScaleType.Slice
homeframe.SliceCenter = Rect.new(12, 12, 12, 12)

TextLabel.Parent = homeframe
TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel.BackgroundTransparency = 1
TextLabel.Position = UDim2.new(0.274979651, 0, -0.0019826144, 0)
TextLabel.Size = UDim2.new(0, 200, 0, 50)
TextLabel.Font = Enum.Font.GothamBold
TextLabel.Text = "Welcome to Speed Run 4 Madness"
TextLabel.TextColor3 = Color3.new(1, 1, 1)
TextLabel.TextSize = 18

TextLabel_2.Parent = homeframe
TextLabel_2.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_2.BackgroundTransparency = 1
TextLabel_2.Position = UDim2.new(0.268268228, 0, 0.143493965, 0)
TextLabel_2.Size = UDim2.new(0, 200, 0, 50)
TextLabel_2.Font = Enum.Font.GothamBold
TextLabel_2.Text = "Here, you will find premium scripts for"
TextLabel_2.TextColor3 = Color3.new(1, 1, 1)
TextLabel_2.TextSize = 16

TextLabel_3.Parent = homeframe
TextLabel_3.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_3.BackgroundTransparency = 1
TextLabel_3.Position = UDim2.new(0.234711185, 0, 0.239033163, 0)
TextLabel_3.Size = UDim2.new(0, 200, 0, 50)
TextLabel_3.Font = Enum.Font.GothamBold
TextLabel_3.Text = " Speed Run 4 on Roblox."
TextLabel_3.TextColor3 = Color3.new(1, 1, 1)
TextLabel_3.TextSize = 16

TextLabel_4.Parent = homeframe
TextLabel_4.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_4.BackgroundTransparency = 1
TextLabel_4.Position = UDim2.new(0.616114616, 0, 0.833118498, 0)
TextLabel_4.Size = UDim2.new(0, 200, 0, 50)
TextLabel_4.Font = Enum.Font.GothamBold
TextLabel_4.Text = "find the easter egg btw"
TextLabel_4.TextColor3 = Color3.new(1, 1, 1)
TextLabel_4.TextSize = 9

scriptsframe.Name = "scriptsframe"
scriptsframe.Parent = mainframe
scriptsframe.BackgroundColor3 = Color3.new(1, 1, 1)
scriptsframe.BackgroundTransparency = 1
scriptsframe.Position = UDim2.new(0.0324032307, 0, 0.165825382, 0)
scriptsframe.Size = UDim2.new(0, 441, 0, 233)
scriptsframe.Visible = false
scriptsframe.Image = "rbxassetid://2851926732"
scriptsframe.ImageColor3 = Color3.new(0.105882, 0.105882, 0.105882)
scriptsframe.ScaleType = Enum.ScaleType.Slice
scriptsframe.SliceCenter = Rect.new(12, 12, 12, 12)

TextLabel_5.Parent = scriptsframe
TextLabel_5.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_5.BackgroundTransparency = 1
TextLabel_5.Position = UDim2.new(0.274238497, 0, 0.00304231048, 0)
TextLabel_5.Size = UDim2.new(0, 200, 0, 50)
TextLabel_5.Font = Enum.Font.GothamBold
TextLabel_5.Text = "Scripts"
TextLabel_5.TextColor3 = Color3.new(1, 1, 1)
TextLabel_5.TextSize = 25

TextButton.Parent = scriptsframe
TextButton.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
TextButton.BorderSizePixel = 0
TextButton.Position = UDim2.new(0.0383662209, 0, 0.25053978, 0)
TextButton.Size = UDim2.new(0, 200, 0, 32)
TextButton.Font = Enum.Font.GothamSemibold
TextButton.Text = "Auto Complete All Levels"
TextButton.TextColor3 = Color3.new(1, 1, 1)
TextButton.TextSize = 14
TextButton.MouseButton1Down:connect(function()
	local rs = game:GetService("ReplicatedStorage")
local count = 1
local a = 0
repeat
   repeat
       rs.BeatLevel:FireServer()
       count = count +math.abs(1)
       if not haveGetGenv then wait(.05)end
   until count == 30
   rs.SetDimension:FireServer("Birchock")
   count = 1
   a = a + math.abs(1)
until a
game.Players.LocalPlayer.Character.Humanoid:ChangeState(15)
end)


TextButton_2.Parent = scriptsframe
TextButton_2.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
TextButton_2.BorderSizePixel = 0
TextButton_2.Position = UDim2.new(0.0383662246, 0, 0.465645224, 0)
TextButton_2.Size = UDim2.new(0, 200, 0, 32)
TextButton_2.Font = Enum.Font.GothamSemibold
TextButton_2.Text = "Infinite Gems"
TextButton_2.TextColor3 = Color3.new(1, 1, 1)
TextButton_2.TextSize = 14
TextButton_2.MouseButton1Down:connect(function()

local times = 15 -- cycles (30*times)stage btw dont worry about floating point precision error i used abs
local rs = game:GetService("ReplicatedStorage")
rs.BuyTrail:FireServer("Final Destiny A")--
rs.BuyTrail:FireServer("Final Destiny B")--
rs.BuyTrail:FireServer("Final Destiny C")--
if rs:FindFirstChild("HasStar") then rs.HasStar:Destroy() end
if rs:FindFirstChild("GetLevel") then rs.GetLevel:Destroy() end
rs.SetZombieMode:FireServer(true)
rs.SetGamemode:FireServer("Mirror", true)
rs.SetGamemode:FireServer("Ragequit", true)
rs.SetGamemode:FireServer("Impossible", true)
rs.SetGamemode:FireServer("Ridiculous", true)
local count = 1
local a = 0
repeat
   repeat
       rs.BeatLevel:FireServer()
       count = count +math.abs(1)
       if not haveGetGenv then wait(.05) end
   until count == 30
   rs.SetDimension:FireServer("Birchock")
   count = 1
   a = a + math.abs(1)
until a == times
game.Players.LocalPlayer.Character.Humanoid:ChangeState(15)
end)

TextButton_3.Parent = scriptsframe
TextButton_3.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
TextButton_3.BorderSizePixel = 0
TextButton_3.Position = UDim2.new(0.0383662246, 0, 0.698680937, 0)
TextButton_3.Size = UDim2.new(0, 200, 0, 32)
TextButton_3.Font = Enum.Font.GothamSemibold
TextButton_3.Text = "All Trails Free"
TextButton_3.TextColor3 = Color3.new(1, 1, 1)
TextButton_3.TextSize = 14
TextButton_3.MouseButton1Down:connect(function()
	local rs = game:GetService("ReplicatedStorage")
	rs.BuyTrail:FireServer("Final Destiny A")--
	rs.BuyTrail:FireServer("Final Destiny B")--
	rs.BuyTrail:FireServer("Final Destiny C")--
	if rs:FindFirstChild("HasStar") then rs.HasStar:Destroy() end
	if rs:FindFirstChild("GetLevel") then rs.GetLevel:Destroy() end
	rs.SetZombieMode:FireServer(true)
	rs.SetGamemode:FireServer("Mirror", true)
	rs.SetGamemode:FireServer("Ragequit", true)
	rs.SetGamemode:FireServer("Impossible", true)
	rs.SetGamemode:FireServer("Ridiculous", true)
end)

TextLabel_6.Parent = scriptsframe
TextLabel_6.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_6.BackgroundTransparency = 1
TextLabel_6.Position = UDim2.new(0.512471676, 0, 0.124463521, 0)
TextLabel_6.Size = UDim2.new(0, 200, 0, 50)
TextLabel_6.Font = Enum.Font.SourceSans
TextLabel_6.Text = "    Dimensions Teleporter"
TextLabel_6.TextColor3 = Color3.new(1, 1, 1)
TextLabel_6.TextSize = 20

ScrollingFrame.Parent = scriptsframe
ScrollingFrame.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
ScrollingFrame.BorderSizePixel = 0
ScrollingFrame.Position = UDim2.new(0.526077092, 0, 0.293456107, 0)
ScrollingFrame.Size = UDim2.new(0, 194, 0, 153)

normal.Name = "normal"
normal.Parent = ScrollingFrame
normal.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
normal.BorderSizePixel = 0
normal.Position = UDim2.new(-0.00276571512, 0, -0.00053319335, 0)
normal.Size = UDim2.new(0, 160, 0, 32)
normal.Font = Enum.Font.GothamSemibold
normal.Text = "Normal"
normal.TextColor3 = Color3.new(1, 1, 1)
normal.TextSize = 14
normal.MouseButton1Down:connect(function()
	game.ReplicatedStorage.SetDimension:FireServer("Normal")
end)

moon.Name = "moon"
moon.Parent = ScrollingFrame
moon.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
moon.BorderSizePixel = 0
moon.Position = UDim2.new(-0.00276571512, 0, 0.0681363046, 0)
moon.Size = UDim2.new(0, 160, 0, 32)
moon.Font = Enum.Font.GothamSemibold
moon.Text = "Moon"
moon.TextColor3 = Color3.new(1, 1, 1)
moon.TextSize = 14
moon.MouseButton1Down:connect(function()
	game.ReplicatedStorage.SetDimension:FireServer("Moon")
end)

cosmic.Name = "cosmic"
cosmic.Parent = ScrollingFrame
cosmic.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
cosmic.BorderSizePixel = 0
cosmic.Position = UDim2.new(-0.00276571559, 0, 0.136805832, 0)
cosmic.Size = UDim2.new(0, 160, 0, 32)
cosmic.Font = Enum.Font.GothamSemibold
cosmic.Text = "Cosmic"
cosmic.TextColor3 = Color3.new(1, 1, 1)
cosmic.TextSize = 14
cosmic.MouseButton1Down:connect(function()
	game.ReplicatedStorage.SetDimension:FireServer("Cosmic")
end)

birchock.Name = "birchock"
birchock.Parent = ScrollingFrame
birchock.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
birchock.BorderSizePixel = 0
birchock.Position = UDim2.new(-0.00276571559, 0, 0.203329504, 0)
birchock.Size = UDim2.new(0, 160, 0, 32)
birchock.Font = Enum.Font.GothamSemibold
birchock.Text = "Birchock"
birchock.TextColor3 = Color3.new(1, 1, 1)
birchock.TextSize = 14
birchock.MouseButton1Down:connect(function()
	game.ReplicatedStorage.SetDimension:FireServer("Birchock")
end)

birchock_2.Name = "birchock"
birchock_2.Parent = ScrollingFrame
birchock_2.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
birchock_2.BorderSizePixel = 0
birchock_2.Position = UDim2.new(-0.00276571559, 0, 0.203329504, 0)
birchock_2.Size = UDim2.new(0, 160, 0, 32)
birchock_2.Font = Enum.Font.GothamSemibold
birchock_2.Text = "Birchock"
birchock_2.TextColor3 = Color3.new(1, 1, 1)
birchock_2.TextSize = 14
birchock.Visible = false

cybernaut.Name = "cybernaut"
cybernaut.Parent = ScrollingFrame
cybernaut.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
cybernaut.BorderSizePixel = 0
cybernaut.Position = UDim2.new(-0.00276571559, 0, 0.271999031, 0)
cybernaut.Size = UDim2.new(0, 160, 0, 32)
cybernaut.Font = Enum.Font.GothamSemibold
cybernaut.Text = "Cybernaut"
cybernaut.TextColor3 = Color3.new(1, 1, 1)
cybernaut.TextSize = 14
cybernaut.MouseButton1Down:connect(function()
	game.ReplicatedStorage.SetDimension:FireServer("Cybernaut")
end)

chromium.Name = "chromium"
chromium.Parent = ScrollingFrame
chromium.BackgroundColor3 = Color3.new(0.0627451, 0.0627451, 0.0627451)
chromium.BorderSizePixel = 0
chromium.Position = UDim2.new(-0.0079203546, 0, 0.340668559, 0)
chromium.Size = UDim2.new(0, 160, 0, 32)
chromium.Font = Enum.Font.GothamSemibold
chromium.Text = "Chromium"
chromium.TextColor3 = Color3.new(1, 1, 1)
chromium.TextSize = 14
chromium.MouseButton1Down:connect(function()
	game.ReplicatedStorage.SetDimension:FireServer("Chromium")
end)

slider.Name = "slider"
slider.Parent = mainframe
slider.BackgroundColor3 = Color3.new(1, 1, 1)
slider.BackgroundTransparency = 1
slider.Position = UDim2.new(0.0302935261, 0, 0.967836261, 0)
slider.Size = UDim2.new(0, 59, 0, 2)
slider.Image = "rbxassetid://2851926732"
slider.ScaleType = Enum.ScaleType.Slice
slider.SliceCenter = Rect.new(12, 12, 12, 12)

creditsframe.Name = "creditsframe"
creditsframe.Parent = mainframe
creditsframe.BackgroundColor3 = Color3.new(1, 1, 1)
creditsframe.BackgroundTransparency = 1
creditsframe.Position = UDim2.new(0.0345129371, 0, 0.139509588, 0)
creditsframe.Size = UDim2.new(0, 441, 0, 233)
creditsframe.Visible = false
creditsframe.Image = "rbxassetid://2851926732"
creditsframe.ImageColor3 = Color3.new(0.105882, 0.105882, 0.105882)
creditsframe.ScaleType = Enum.ScaleType.Slice
creditsframe.SliceCenter = Rect.new(12, 12, 12, 12)

TextLabel_7.Parent = creditsframe
TextLabel_7.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_7.BackgroundTransparency = 1
TextLabel_7.Position = UDim2.new(0.27402088, 0, -0.0019826144, 0)
TextLabel_7.Size = UDim2.new(0, 200, 0, 50)
TextLabel_7.Font = Enum.Font.GothamBold
TextLabel_7.Text = "Credits"
TextLabel_7.TextColor3 = Color3.new(1, 1, 1)
TextLabel_7.TextSize = 18

TextLabel_8.Parent = creditsframe
TextLabel_8.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_8.BackgroundTransparency = 1
TextLabel_8.Position = UDim2.new(0.27402088, 0, 0.332781345, 0)
TextLabel_8.Size = UDim2.new(0, 200, 0, 50)
TextLabel_8.Font = Enum.Font.GothamBold
TextLabel_8.Text = "Scripter/GUI Developer: Cursed#5898"
TextLabel_8.TextColor3 = Color3.new(1, 1, 1)
TextLabel_8.TextSize = 18

TextLabel_9.Parent = creditsframe
TextLabel_9.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel_9.BackgroundTransparency = 1
TextLabel_9.Position = UDim2.new(0.269485742, 0, 0.513038874, 0)
TextLabel_9.Size = UDim2.new(0, 200, 0, 50)
TextLabel_9.Font = Enum.Font.GothamBold
TextLabel_9.Text = "Scripter: abdefourteen#4567"
TextLabel_9.TextColor3 = Color3.new(1, 1, 1)
TextLabel_9.TextSize = 18

ImageButton.Parent = mainframe
ImageButton.BackgroundColor3 = Color3.new(1, 1, 1)
ImageButton.BackgroundTransparency = 1
ImageButton.Position = UDim2.new(0.244725734, 0, -0.0614035055, 0)
ImageButton.Size = UDim2.new(0, 236, 0, 60)
ImageButton.Image = "rbxassetid://3495561662"

xbutton.Name = "xbutton"
xbutton.Parent = mainframe
xbutton.BackgroundColor3 = Color3.new(1, 1, 1)
xbutton.BackgroundTransparency = 1
xbutton.Position = UDim2.new(0.930379808, 0, -0.0614034981, 0)
xbutton.Size = UDim2.new(0, 46, 0, 41)
xbutton.Font = Enum.Font.GothamSemibold
xbutton.Text = "X"
xbutton.TextColor3 = Color3.new(1, 1, 1)
xbutton.TextSize = 14
xbutton.MouseButton1Down:connect(function()
	SR4M:Destroy()
end)