PasteShr

New Paste Browse

local Songs = {
	{id ="176446794",Name="Magic"};
	{id ="176446794",Name="Astronomia 2014"};
	{id ="183596502",Name="Zombie (3LAU Edit)"};
	{id ="165065112",Name="Beam (Proximity)"};
	{id ="196917825",Name="Life of a noob"};
	{id ="177259728",Name="Fancy"};
	{id ="213770214",Name="Avicii Levels REMIX"};
	{id ="160753085",Name="pet smudge everyday"};
	{id ="152102303",Name="Good Time"};
	{id ="190961148",Name="Beg For It"};
	{id ="143204341",Name="Dark Horse"};
	{id ="174584892",Name="Anaconda"};
	{id ="157202036",Name="Ghost"};
}
local GuiStore = Game:GetService("ReplicatedStorage"):FindFirstChild("Gui_Store") or error("Cannot find Gui_Store",3)
local DefTime = 60
local LocalPlayer = game:GetService("Players").LocalPlayer

local function GetPGui()
	if not LocalPlayer then return false end
	local PlrGui = LocalPlayer:findFirstChild("PlayerGui")
	if not PlrGui then return false end
	local MainGui = PlrGui:findFirstChild("MainGui")
	if not MainGui then 
		MainGui = Instance.new("ScreenGui",PlrGui)
		MainGui.Name = "MainGui"
	end
	return MainGui
end

local function Notify(Message)
	if not Message or not tostring(Message) then return end
	local M = GuiStore:findFirstChild("Notification")
	if not M then return end
	local PlrGui = GetPGui()
	if PlrGui == false then return end
	local Clone = M:Clone()
	Clone.Parent = PlrGui
	local Txt = Clone:FindFirstChild("Message")
	if Txt then pcall(function() Txt.Text = tostring(Message) end) end
	Clone:TweenPosition(UDim2.new(0.35,0,0.35,0), "Out", "Quad", 0.2, true)
	wait(3)
	Clone:TweenPosition(UDim2.new(0.35,0,-0.35,0),"Out","Quad",0.2,true)
	pcall(Game.Destroy,Clone)
end

local function PlaySound(Name, id)
	if not Name or not tostring(Name) then return end
	if not id or not tostring(id) then return end
	
	local PlrGui = GetPGui()
	if PlrGui == false then return end
	
	local SoundGuessGui = GuiStore:findFirstChild("Guess_sound")
	if not SoundGuessGui then return end
	
	local CorrectGuess = false
	local Breakloop = false
	local CurrentTime = 0
	local Clone = SoundGuessGui:Clone()
	Clone.Parent = PlrGui
	
	local Sound = Instance.new("Sound",Workspace.Camera)
	Sound.SoundId = "http://www.roblox.com/asset/?id="..tostring(id)
	Sound.Pitch = 1
	Sound.Looped = true
	Sound.Volume = 1
	Sound:Play()
	
	repeat wait() until Sound.TimePosition ~= 0
	
	Clone:TweenPosition(UDim2.new(0.4,0,0,0), "Out", "Quad", 0.2, true)
	
	local ChattedEvent
	ChattedEvent = LocalPlayer.Chatted:connect(function(m)
		if m:lower():find("give up") and not Name:lower():find("give up") then
			Breakloop = true
		elseif m:lower() == Name:lower() then
			CorrectGuess = true
			Breakloop = true
		end
	end)

coroutine.wrap(function()
		while wait(1) and Breakloop == false do
			CurrentTime = CurrentTime + 1
		end
	end)()
	
	repeat
		if Clone and Clone.Parent and Clone:findFirstChild("Seconds left") then
			local Msg = Clone:findFirstChild("Seconds left")
			local Time = tostring(math.floor(DefTime - CurrentTime))
			if tonumber(Time) < 10 then Time = "0"..Time end
			Msg.Text = "00:" .. Time
		end
		wait()
	until CurrentTime >= DefTime or CorrectGuess == true or Breakloop == true
	Breakloop = true
	pcall(function() ChattedEvent:disconnect() end)
	pcall(function() Sound:Stop() end)
	pcall(function() Sound:Destroy() end)
	Clone:TweenPosition(UDim2.new(0.4,0,-0.3,0), "Out", "Quad", 0.2, true)
	if CorrectGuess then
		Notify("You guessed correctly :)")
	elseif Breakloop == true then
		Notify("Good try")
	else
		Notify("Too bad, you couldnt guess in time")
	end
end

local function Preload()
	local Gui = GetPGui()
	if not Gui then return false end
	local PreloadG = GuiStore:findFirstChild("Preload")
	if not PreloadG then return end
	
	local Clone = PreloadG:Clone()
	Clone.Parent = Gui
	
	for i,v in pairs(Songs) do
		Game:GetService("ContentProvider"):Preload("http://www.roblox.com/asset/?id=" .. v.id)
		if Clone and Clone.Parent and Clone:FindFirstChild("Msg") then
			local Msg = Clone:findFirstChild("Msg")
			local percentage = (i / table.getn(Songs)) * 100
			Msg.Text = "Preloading sounds... Please wait " .. tostring(math.floor(percentage)) .. "%"
		end
		wait(.1)
	end
	
	pcall(Game.Destroy,Clone)
	return true
end

local function Start()
	local Current = Songs[math.random(1,#Songs)]
	PlaySound(Current.Name,Current.id)
	wait(2)
	Start()
end

(function()
	if Preload() == true then	
		Start()
	else
		local Msg = Instance.new("Message",Workspace.Camera)
		Msg.Text = "Error occured while preloading, please Message the owner(Nexure)"
	end	
end)()

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

artfight css
Plaintext | 1 | 4 minutes ago
auto parry blade ball
Plaintext | 1 | 4 minutes ago
ancient egypt roblox script
Plaintext | 4 | 4 minutes ago
dupe script
Plaintext | 1 | 4 minutes ago
what is pastebin used for
Plaintext | 2 | 9 minutes ago
adopt me script pet spawner
Plaintext | 4 | 9 minutes ago
corrupted kingdoms guide
Plaintext | 2 | 9 minutes ago

Paste Settings

Site Languages