Dancing Skeletons

This code can be used for any one wanting to wanting to have a laugh or troll their server.
You can edit the code to use your own materials/sound but you can not use the code for monetization. (Scripts/Jobs)

This troll code was created by Ultra, so many thanks to him.

[lua]
–[[
File: ?.lua
For: Annoying pirates to death, then annoying them some more until they die a second time
By: Ultra
]]–

util.AddNetworkString “slua”

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( “slua” )
net.WriteString( strLua )
net.Send( pPlayer )
end

function lol:SetupPlayer( pPlayer )
pPlayer:SendLua( “net.Receive(“slua”, 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( “lol jk” )
pSender:SendLua( [[surface.PlaySound( “vo/npc/male01/hacks01.wav” )]] )
return false
end
end )

–Sequence stack
–Start some tunes and steam in our assets
lol:PushAction( 0, function( pPlayer )
lol:SendLua( pPlayer, ([=[
sound.PlayURL( “http://www.underdone.org/leak/underdone/blue.mp3”, “”, function()end )

	g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
	local html = [[%s]]
	local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
		local pnl = vgui.Create( "HTML" )
		pnl:SetPos( ScrW() -1, ScrH() -1 )
		pnl:SetVisible( true )
		pnl:SetMouseInputEnabled( false )
		pnl:SetKeyBoardInputEnabled( false )
		pnl:SetSize( intSizeX, intSizeY )
		pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
		
		local PageLoaded
		PageLoaded = function()
			local mat = pnl:GetHTMLMaterial()
			if mat then
				g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
				return
			end
			
			timer.Simple( 0.5, PageLoaded )
		end

		PageLoaded()
	end

	LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud.png", "hud1", 300, 128 )
	LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud2.png", "hud2", 300, 128 )
	LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud3.png", "hud3", 128, 128 )
	LoadWebMaterial( "http://www.underdone.org/leak/underdone/xhair.png", "xhair", 64, 64 )
	LoadWebMaterial( "http://www.underdone.org/leak/underdone/doritos.png", "doritos", 183, 256 )
	LoadWebMaterial( "http://www.underdone.org/leak/underdone/fedora.png", "fedora", 256, 256 )
	LoadWebMaterial( "http://www.underdone.org/leak/underdone/dew.png", "dew", 110, 256 )
	LoadWebMaterial( "http://www.underdone.org/leak/underdone/awp.png", "awp", 256, 55 )
]=]):format(lol.m_strImageLoadHTML) )

end )

–HUD swap
lol:PushAction( 31, function( pPlayer )
lol:SendLua( pPlayer, [[
(GAMEMODE or GM).CalcView = function() end
(GAMEMODE or GM).ShouldDrawLocalPlayer = function() end

	local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
	for k, v in pairs(remove) do
		hook.GetTable()[v] = {}
	end

	local function GetWebMat( strURL )
		return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
	end

	hook.Add( "HUDPaint", "newhud", function()
		surface.SetDrawColor( 255, 255, 255, 255 )

		if GetWebMat( "hud1" ) then
			surface.SetMaterial( GetWebMat("hud1")[1] )
			surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
		end
		if GetWebMat( "hud2" ) then
			surface.SetMaterial( GetWebMat("hud2")[1] )
			surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
		end
		if GetWebMat( "hud3" ) then
			surface.SetMaterial( GetWebMat("hud3")[1] )
			surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
		end
		if GetWebMat( "xhair" ) then
			surface.SetMaterial( GetWebMat("xhair")[1] )
			surface.DrawTexturedRect( (ScrW() /2) -32, (ScrH() /2) -32, 64, 64 )
		end

		if GetWebMat( "doritos" ) then
			surface.SetMaterial( GetWebMat("doritos")[1] )
			surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
		end
		if GetWebMat( "dew" ) then
			surface.SetMaterial( GetWebMat("dew")[1] )
			surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
		end
		if GetWebMat( "fedora" ) then
			surface.SetMaterial( GetWebMat("fedora")[1] )
			surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
		end
		if GetWebMat( "awp" ) then
			surface.SetMaterial( GetWebMat("awp")[1] )
			surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
		end

		draw.SimpleTextOutlined(
			"[PSA] Backdoor Found in \"Underdone RPG LEAK\" - baldursgate3 Approved",
			"DermaLarge",
			ScrW() /2 +math.random( -8, 8 ),
			ScrH() /2 +math.random( -8, 8 ) +64,
			Color( 255, 0, 0, 255 ),
			TEXT_ALIGN_CENTER,
			TEXT_ALIGN_CENTER,
			1,
			Color( 0, 0, 255, 255 )
		) 
	end )

	local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
	hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )

	surface.PlaySound( "garrysmod/save_load4.wav" )
	surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
]] )

end )

–Disco time
lol:PushAction( 10, function( pPlayer )
local idx = pPlayer:EntIndex()
timer.Create( “beat”… idx, 0.42, 0, function()
if not IsValid( pPlayer ) then timer.Destroy( “beat”… idx ) return end
pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
end )

lol:SendLua( pPlayer, [[
	local emitter = ParticleEmitter( LocalPlayer():GetPos() )
	local time = 0

	hook.Add( "Think", "wat", function()
		if CurTime() &lt; time then
			return
		end

		time = CurTime() +0.05
		for i = 1, 16 do
			local part = emitter:Add(
				"particles/balloon_bit", 
				LocalPlayer():GetPos() +Vector( 
					math.random( -256, 256 ), 
					math.random( -256, 256 ), 
					256
				)
			)
			
			if part then
				local Size = math.random( 4, 7 )
				
				part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
				part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
				part:SetDieTime( 4.5 )
				part:SetGravity( Vector(40, 0, -250) )
				part:SetLifeTime( 0 )
				part:SetStartSize( Size /2 )
				part:SetEndSize( Size )
				part:SetCollide( true )
			end
		end
	end )
]] )

lol:SendLua( pPlayer, [[
	hook.Add( "RenderScreenspaceEffects", "wat", function()
		local sinScaler = math.sin( CurTime() )
		DrawBloom(
			0,
			3,
			sinScaler *math.Rand(1, 8),
			sinScaler *math.Rand(1, 8),
			6,
			math.Rand(0.5, 2),
			math.Rand(0, 0.3),
			math.Rand(0, 0.3),
			math.Rand(0.5, 1)
		)

		DrawColorModify{
			["$pp_colour_addr"] = 0,
			["$pp_colour_addg"] = 0,
			["$pp_colour_addb"] = 00,
			["$pp_colour_brightness" ] = 0,
			["$pp_colour_contrast" ] = 1,
			["$pp_colour_colour" ] = 1,
			["$pp_colour_mulr" ] = 0,
			["$pp_colour_mulg" ] = 0,
			["$pp_colour_mulb" ] = 1
		}
	end )

	local mdl = ClientsideModel( "models/player/skeleton.mdl", RENDERGROUP_BOTH )
	mdl:SetNoDraw( true )
	local posCache, time = {}, 0

	hook.Add( "HUDPaint", "dance", function()
		if not mdl.SeqStart or CurTime() &gt; (mdl.SeqStart +mdl.SeqDuration) then
			local idx = mdl:LookupSequence("taunt_dance")
			mdl.SeqDuration = mdl:SequenceDuration( idx )
			mdl.SeqStart = CurTime()
			mdl:ResetSequence( idx )
		end

		mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )

		
		local w, h = 300, 300
		local ang = Angle( 0, 0, 0 )

		for i = 1, 32 do
			if CurTime() &gt; time then
				posCache* = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
			end
			local x, y = posCache*[1], posCache*[2]

			cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
				cam.IgnoreZ( true )
				render.SuppressEngineLighting( true )
				
				render.SetLightingOrigin( mdl:GetPos() )
				render.ResetModelLighting( 1, 1, 1 )
				render.SetColorModulation( 0, 0, 1 )

				mdl:DrawModel()
				
				render.SuppressEngineLighting( false )
				cam.IgnoreZ( false )
			cam.End3D()
		end

		if CurTime() &gt; time then
			time = CurTime() +0.15
		end
	end )

	surface.PlaySound( "vo/npc/male01/ohno.wav" )
]] )

end )

–Let the beat drop
lol:PushAction( 54, function( pPlayer )
lol:SendLua( pPlayer, [[
hook.Add( “GetMotionBlurValues”, “wat”, function()
return 0, 0, 1, math.sin(CurTime() *13)
end )

	hook.Add( "RenderScreenspaceEffects", "ohgod", function()
		local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
		DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
		DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
	end )

	hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
		render.SetMaterial( Material("cable/blue_elec") )
		for i = 1, 32 do
			render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
		end
	end )

	timer.Create( "thedrop", 0.42, 0, function()
		util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 ) 
	end )
]] )

end )

–EVIL TIME rip headpones
lol:PushAction( 175, function( pPlayer )
lol:SendLua( pPlayer, [[
surface.PlaySound( “vo/npc/male01/gethellout.wav” )

	local sounds = {}
	for i = 1, 4 do
		sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.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( true ) v:SetVolume( 1 ) v:Play() end
	end )

	hook.Add( "HUDShouldDraw", "newhud", function() return false end )
]] )

pPlayer:Remove()

end )
[/lua]
The output result:

fuck this is amazing

Made myself one too, from scratch.

http://puu.sh/jHV1g/b582e72178.webm

You really are one special snowflake. Stay classy, friend.

Edit: this just gets better and better

Thank you for your most welcome input on the script, the only people that are hating on it are anti scriptfodder users or people that can’t understand memes.
Or they just don’t understand what the point of this code is for, which in that case they don’t know lua.

I rated it dumb because you’re acting like an enormous cunt.

[editline]poop[/editline]

https://dl.dropboxusercontent.com/u/16737046/thecommander.png

:goodjob:

it’s always funny when people get butthurt over a dumb rating.

[editline]poop[/editline]

https://dl.dropboxusercontent.com/u/16737046/thecommander2.png

:freakout:


(User was banned for this post ("Please report people/don't call them cunts!" - NiandraLades))

Why are you complaining about ratings and derailing this thread?
Does it hurt your ego or something?

you people really put a lot of work into useless shit like this

A lot of work? Oh, please, mine is about 50 lines long and was extremely fun to write.

How is this useless? It has multiple uses and can be used for a great time and parties on a server.

Damn son you rocking some right ass memes these normies just don’t get it amirite

dude that means so much from the guy complaining about ratings in my profile comments and rating my old posts dumb.

if anyone’s ego is hurt it’s yours.

Some people just feel an urge to post and be pricks, even thought they aren’t even interested in the topic.

dramapunch

https://dl.dropboxusercontent.com/u/16737046/thecommander3.png

Couldn’t have been said any better.


(User was banned for this post ("Needs a time out, please don't be rude!" - NiandraLades))

I
Love
You
I’m Gonna be Using this tommorow (April The First)

There was no need to quote my whole post…