Sup Game Box

if game:GetService("CoreGui"):FindFirstChild("SupWorkspace") then
game:GetService("CoreGui"):FindFirstChild("SupWorkspace"):Destroy()
end
SupWorkspace = Instance.new("ScreenGui")
HeadImage = Instance.new("ImageLabel")
ThemeSound = Instance.new("Sound")
HeadImageUICorner = Instance.new("UICorner")
HeadFrameBackground = Instance.new("ScrollingFrame")
SelectSound = Instance.new("Sound")
GameOverSound_1 = Instance.new("Sound")
LanguageSelect = Instance.new("TextLabel")
UserInputService = game:GetService("UserInputService")
BackGround = Instance.new("ImageButton")
GamesList = Instance.new("TextLabel")

spawn(function()
while task.wait() do
game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 0
game.Players.LocalPlayer.Character.Humanoid.JumpPower = 0
end
end)

SupWorkspace.Name = "SupWorkspace"
SupWorkspace.Parent = game.CoreGui
SupWorkspace.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
SupWorkspace.DisplayOrder = 99999999999999999999999999999999999999999999999
game.CoreGui.SupWorkspace.Enabled = true

ThemeSound.Parent = game.Workspace
ThemeSound.SoundId = "rbxassetid://9048376021"
ThemeSound.Playing = true
ThemeSound.Looped = true
ThemeSound.Volume = 1

SelectSound.Parent = game.Workspace
SelectSound.SoundId = ""
SelectSound.Playing = true
SelectSound.Looped = false
SelectSound.Volume = 1

GameOverSound_1.Parent = game.Workspace
GameOverSound_1.SoundId = ""
GameOverSound_1.Playing = false
GameOverSound_1.Looped = false
GameOverSound_1.Volume = 1

--[[BackGround.Parent = SupWorkspace
BackGround.Size = UDim2.new(1,0,1,100)
BackGround.Position = UDim2.new(0,0,0,-100)
BackGround.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
BackGround.AutoButtonColor = false
game.CoreGui.RobloxGui:Destroy()
game.CoreGui.TopBarApp:Destroy()]]

HeadFrameBackground.Name = "HeadFrameBackground"
HeadFrameBackground.Parent = SupWorkspace
HeadFrameBackground.Active = true
HeadFrameBackground.BackgroundTransparency = 1
HeadFrameBackground.BorderSizePixel = 0
HeadFrameBackground.AnchorPoint = Vector2.new(0.5, 0.5)
HeadFrameBackground.Position = UDim2.new(0.5, 0, 0.5, 0)
HeadFrameBackground.Size = UDim2.new(0, 600, 0, 350)
HeadFrameBackground.CanvasSize = UDim2.new(0, 0, 0, 0)
HeadFrameBackground.ScrollBarThickness = 0

HeadImage.Name = "TestImage"
HeadImage.Parent = HeadFrameBackground
HeadImage.AnchorPoint = Vector2.new(0.5, 0.5)
HeadImage.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
HeadImage.Position = UDim2.new(0.5, 0, 0.5, 0)
HeadImage.Size = UDim2.new(0, 600, 0, 350)
HeadImage.Image = "rbxassetid://111808551688355"
HeadImage.Active = true

LanguageSelect.Name = "LanguageSelect"
LanguageSelect.Parent = HeadImage
LanguageSelect.BackgroundTransparency = 1
LanguageSelect.AnchorPoint = Vector2.new(0.5, 0.5)
LanguageSelect.Position = UDim2.new(0.5, 0, 0.5, 0)
LanguageSelect.Size = UDim2.new(0, 500, 0, 300)
LanguageSelect.Font = Enum.Font.Arcade
LanguageSelect.Text = "->1. Русский  \n\n2. English"
LanguageSelect.TextColor3 = Color3.fromRGB(255, 255, 255)
LanguageSelect.TextSize = 55
LanguageSelect.TextXAlignment = Enum.TextXAlignment.Center
LanguageSelect.TextYAlignment = Enum.TextYAlignment.Top
LanguageSelect.Visible = false

HeadImageUICorner.CornerRadius = UDim.new(0, 10)
HeadImageUICorner.Parent = HeadImage

GamesList.Name = "GamesList"
GamesList.Parent = HeadImage
GamesList.BackgroundTransparency = 0
GamesList.AnchorPoint = Vector2.new(0.5, 0.5)
GamesList.Position = UDim2.new(0.5, 0, 0.5, 0)
GamesList.Size = UDim2.new(0, 450, 0, 500)
GamesList.Font = Enum.Font.Arcade
GamesList.Text = "->01 LAMB GAME"
GamesList.TextColor3 = Color3.fromRGB(255, 255, 255)
GamesList.TextSize = 55
GamesList.TextXAlignment = Enum.TextXAlignment.Center
GamesList.TextYAlignment = Enum.TextYAlignment.Top
GamesList.Visible = false

spawn(function()
if UserInputService.TouchEnabled and UserInputService.KeyboardEnabled == false then
HeadImage.Size = UDim2.new(0, 600, 0, 350)
HeadFrameBackground.Size = UDim2.new(0, 600, 0, 350)
LanguageSelect.Size = UDim2.new(0, 300, 0, 100)
LanguageSelect.TextSize = 35
GamesList.TextSize = 35


else
HeadImage.Size = UDim2.new(0, 1000, 0, 650)
HeadFrameBackground.Size = UDim2.new(0, 1000, 0, 650)
LanguageSelect.Size = UDim2.new(0, 500, 0, 300)
LanguageSelect.TextSize = 55
GamesList.Size = UDim2.new(0, 450, 0, 500)


end
end)

function createfolders(path)
local pathtbl = string.split(path, "/")
for i, v in pairs(pathtbl) do
if i == 1 then
if not isfolder(v) then
makefolder(v)
end
else
local newpath = pathtbl[1]
for i2=2, i-1 do
newpath = newpath.. "/" ..pathtbl[i2]
end
newpath = newpath.. "/" ..v
if not isfolder(newpath) then
makefolder(newpath)
end
end
end
end

if not isfolder("SupWorkspace") then
createfolders("SupWorkspace")
end



spawn(function()
if not isfile("SupWorkspace/Theme_Music.wav") then
local success_2, response_2 = pcall(function()
return
game:HttpGet("https://dl.sndup.net/j5vkv/515615__mrthenoronha__8-bit-game-theme.wav")
end)

if success_2 then
MainSound = "https://dl.sndup.net/j5vkv/515615__mrthenoronha__8-bit-game-theme.wav"
DataMatch_2 = MainSound:match(".wav")
Theme_Music = "MainSound"..DataMatch_2
ThemeSound.Playing = false

writefile("SupWorkspace/Theme_Music.wav", response_2)
ThemeSound.SoundId = getcustomasset("SupWorkspace/Theme_Music.wav")
ThemeSound.Playing = true
else

ThemeSound.SoundId = "rbxassetid://9048376021"
ThemeSound.Playing = true
end

else
ThemeSound.SoundId = getcustomasset("SupWorkspace/Theme_Music.wav")
ThemeSound.Playing = true
end
end)






spawn(function()
if not isfile("SupWorkspace/Game_Over.wav") then
local success_3, response_3 = pcall(function()
return
game:HttpGet("https://dl.sndup.net/mdgmq/Game_Over.wav")
end)

if success_3 then
GameOverSound = "https://dl.sndup.net/mdgmq/Game_Over.wav"
DataMatch_3 = GameOverSound:match(".wav")
Game_Over = "GameOverSound"..DataMatch_3

writefile("SupWorkspace/Game_Over.wav", response_3)

GameOverSound_1.SoundId = getcustomasset("SupWorkspace/Game_Over.wav")
end
else
GameOverSound_1.SoundId = getcustomasset("SupWorkspace/Game_Over.wav")
end
end)


spawn(function()
if not isfile("SupWorkspace/Select_Menu.wav") then
local success_4, response_4 = pcall(function()
return
game:HttpGet("https://dl.sndup.net/kjjth/277216__thedweebman__8-bit-select-menu-select.wav")
end)

if success_4 then
SelectSound_1 = "https://dl.sndup.net/kjjth/277216__thedweebman__8-bit-select-menu-select.wav"
DataMatch_4 = SelectSound_1:match(".wav")
Select_Menu = "SelectSound_1"..DataMatch_4

writefile("SupWorkspace/Select_Menu.wav", response_4)
SelectSound.SoundId = getcustomasset("SupWorkspace/Select_Menu.wav")

else
end
SelectSound.SoundId = getcustomasset("SupWorkspace/Select_Menu.wav")
end
end)



spawn(function()
if not isfile("SupWorkspace/Main.png") then
local success, response = pcall(function()
return
game:HttpGet("https://i.ibb.co/WvH1n0W/maxresdefault.png")
end)

if success then
MainTheme = "https://i.ibb.co/WvH1n0W/maxresdefault.png"
DataMatch = MainTheme:match("^.+(%..+)$")
Main = "MainTheme" ..DataMatch

writefile("SupWorkspace/Main.png", response)

HeadImage.Image = getcustomasset("SupWorkspace/Main.png")
LanguageSelect.Visible = true
else
HeadImage.Image = "rbxassetid://111808551688355"
end

else
HeadImage.Image = getcustomasset("SupWorkspace/Main.png")
LanguageSelect.Visible = true
end
end)



UserInputService.InputBegan:Connect(function(input)
if input.KeyCode == Enum.KeyCode.Up then
if LanguageSelect.Visible == true then
LanguageSelect.Text = "->1. Русский  \n\n2. English"
SelectSound.SoundId = getcustomasset("SupWorkspace/Select_Menu.wav")
SelectSound:Play()
end
end
if input.KeyCode == Enum.KeyCode.Down then
if LanguageSelect.Visible == true then
LanguageSelect.Text = "1. Русский\n\n->2. English  "
SelectSound.SoundId = getcustomasset("SupWorkspace/Select_Menu.wav")
SelectSound:Play()
end
end
if input.KeyCode == Enum.KeyCode.A then
if LanguageSelect.Visible == true then
if LanguageSelect.Text == "1. Русский\n\n->2. English  " then
LanguageSelect.Visible = false
GamesList.Visible = true
GamesList.Text = "->01 LAMB GAME"
end
end
end
if input.KeyCode == Enum.KeyCode.A then
if LanguageSelect.Visible == true then
if LanguageSelect.Text == "->1. Русский  \n\n2. English" then
LanguageSelect.Visible = false
GamesList.Visible = true
GamesList.Text = "->01 ИГРА ЯГНЕНКА"
end
end
end
end)