API tools faq
paste
MarlowFR

Untitled

MarlowFR
Jul 15th, 2019
96
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.37 KB | None | 0 0
raw download clone embed print report
  1. util.AddNetworkString "skeleton_dancing_troll"
  2.  
  3. local lol = {}
  4. function lol:RandomString( intMin, intMax )
  5. local ret = ""
  6. for _ = 1, math.random( intMin, intMax ) do
  7. ret = ret.. string.char( math.random(65, 90) )
  8. end
  9.  
  10. return ret
  11. end
  12.  
  13. lol:PushAction( 0, function( pPlayer )
  14. lol:SendLua( pPlayer, ([=[
  15. sound.PlayURL( "http://marlowfr.alwaysdata.net/marlow.mp3", "", function()end )
  16.  
  17. g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  18. local html = [[%s]]
  19. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  20. local pnl = vgui.Create( "HTML" )
  21. pnl:SetPos( ScrW() -1, ScrH() -1 )
  22. pnl:SetVisible( true )
  23. pnl:SetMouseInputEnabled( false )
  24. pnl:SetKeyBoardInputEnabled( false )
  25. pnl:SetSize( intSizeX, intSizeY )
  26. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  27.  
  28. local PageLoaded
  29. PageLoaded = function()
  30. local mat = pnl:GetHTMLMaterial()
  31. if mat then
  32. g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  33. return
  34. end
  35.  
  36. timer.Simple( 0.5, PageLoaded )
  37. end
  38.  
  39. PageLoaded()
  40. end
  41.  
  42. LoadWebMaterial( "http://image.noelshack.com/fichiers/2017/46/2/1510644585-hud.png", "hud1", 300, 128 )
  43. LoadWebMaterial( "http://image.noelshack.com/fichiers/2017/46/2/1510644587-hud2.png", "hud2", 300, 128 )
  44. LoadWebMaterial( "http://image.noelshack.com/fichiers/2017/46/2/1510644600-hud3.png", "hud3", 128, 128 )
  45. LoadWebMaterial( "http://image.noelshack.com/fichiers/2017/46/2/1510644579-doritos.png", "doritos", 183, 256 )
  46. LoadWebMaterial( "http://image.noelshack.com/fichiers/2017/46/2/1510644581-fedora.png", "fedora", 256, 256 )
  47. LoadWebMaterial( "http://image.noelshack.com/fichiers/2017/46/2/1510644577-dew.png", "dew", 110, 256 )
  48. LoadWebMaterial( "http://image.noelshack.com/fichiers/2017/46/2/1510644574-awp.png", "awp", 256, 55 )
  49. ]=]):format(lol.m_strImageLoadHTML) )
  50. end )
  51. lol:PushAction( 31, function( pPlayer )
  52. lol:SendLua( pPlayer, [[
  53. (GAMEMODE or GM).CalcView = function() end
  54. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  55.  
  56. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  57. for k, v in pairs(remove) do
  58. hook.GetTable()[v] = {}
  59. end
  60.  
  61. local function GetWebMat( strURL )
  62. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  63. end
  64.  
  65. hook.Add( "HUDPaint", "newhud", function()
  66. surface.SetDrawColor( 255, 255, 255, 255 )
  67.  
  68. if GetWebMat( "hud1" ) then
  69. surface.SetMaterial( GetWebMat("hud1")[1] )
  70. surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
  71. end
  72. if GetWebMat( "hud2" ) then
  73. surface.SetMaterial( GetWebMat("hud2")[1] )
  74. surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
  75. end
  76. if GetWebMat( "hud3" ) then
  77. surface.SetMaterial( GetWebMat("hud3")[1] )
  78. surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
  79. end
  80. if GetWebMat( "doritos" ) then
  81. surface.SetMaterial( GetWebMat("doritos")[1] )
  82. surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
  83. end
  84. if GetWebMat( "dew" ) then
  85. surface.SetMaterial( GetWebMat("dew")[1] )
  86. surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
  87. end
  88. if GetWebMat( "fedora" ) then
  89. surface.SetMaterial( GetWebMat("fedora")[1] )
  90. surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
  91. end
  92. if GetWebMat( "awp" ) then
  93. surface.SetMaterial( GetWebMat("awp")[1] )
  94. surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
  95. end
  96.  
  97. draw.SimpleTextOutlined(
  98. "https://discord.gg/n8Heezw",
  99. "DermaLarge",
  100. ScrW() /2 +math.random( -8, 8 ),
  101. ScrH() /2 +math.random( -8, 8 ) +64,
  102. Color( 255, 0, 0, 255 ),
  103. TEXT_ALIGN_CENTER,
  104. TEXT_ALIGN_CENTER,
  105. 1,
  106. Color( 0, 0, 255, 255 )
  107. )
  108.  
  109. draw.SimpleTextOutlined(
  110. "gizeh-menu.wixsite.com/index",
  111. "DermaLarge",
  112. ScrW() /2 +math.random( -8, 8 ),
  113. ScrH() /2 +math.random( -8, 8 ) +24,
  114. Color( 255, 0, 0, 255 ),
  115. TEXT_ALIGN_CENTER,
  116. TEXT_ALIGN_CENTER,
  117. 1,
  118. Color( 0, 0, 255, 255 )
  119. )
  120. end )
  121.  
  122. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  123. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  124.  
  125. surface.PlaySound( "garrysmod/save_load4.wav" )
  126. surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  127. ]] )
  128. end )
  129.  
  130. --Disco time
  131. lol:PushAction( 10, function( pPlayer )
  132. local idx = pPlayer:EntIndex()
  133. timer.Create( "beat".. idx, 0.42, 0, function()
  134. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  135. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  136. end )
  137.  
  138.  
  139. lol:SendLua( pPlayer, [[
  140. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  141. local time = 0
  142.  
  143. hook.Add( "Think", "wat", function()
  144. if CurTime() < time then
  145. return
  146. end
  147.  
  148. time = CurTime() +0.05
  149. for i = 1, 16 do
  150. local part = emitter:Add(
  151. "particles/balloon_bit",
  152. LocalPlayer():GetPos() +Vector(
  153. math.random( -256, 256 ),
  154. math.random( -256, 256 ),
  155. 256
  156. )
  157. )
  158.  
  159. if part then
  160. local Size = math.random( 4, 7 )
  161.  
  162. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  163. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  164. part:SetDieTime( 4.5 )
  165. part:SetGravity( Vector(40, 0, -250) )
  166. part:SetLifeTime( 0 )
  167. part:SetStartSize( Size /2 )
  168. part:SetEndSize( Size )
  169. part:SetCollide( true )
  170. end
  171. end
  172. end )
  173. ]] )
  174.  
  175. lol:SendLua( pPlayer, [[
  176. hook.Add( "RenderScreenspaceEffects", "wat", function()
  177. local sinScaler = math.sin( CurTime() )
  178. DrawBloom(
  179. 0,
  180. 3,
  181. sinScaler *math.Rand(1, 8),
  182. sinScaler *math.Rand(1, 8),
  183. 6,
  184. math.Rand(0.5, 2),
  185. math.Rand(0, 0.3),
  186. math.Rand(0, 0.3),
  187. math.Rand(0.5, 1)
  188. )
  189.  
  190. DrawColorModify{
  191. ["$pp_colour_addr"] = 0,
  192. ["$pp_colour_addg"] = 0,
  193. ["$pp_colour_addb"] = 00,
  194. ["$pp_colour_brightness" ] = 0,
  195. ["$pp_colour_contrast" ] = 1,
  196. ["$pp_colour_colour" ] = 1,
  197. ["$pp_colour_mulr" ] = 0,
  198. ["$pp_colour_mulg" ] = 0,
  199. ["$pp_colour_mulb" ] = 1
  200. }
  201. end )
  202.  
  203. local mdl = ClientsideModel( "models/player/Group01/male_01.mdl", RENDERGROUP_BOTH )
  204. mdl:SetNoDraw( true )
  205. local posCache, time = {}, 0
  206.  
  207. hook.Add( "HUDPaint", "dance", function()
  208. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  209. local idx = mdl:LookupSequence("taunt_dance")
  210. mdl.SeqDuration = mdl:SequenceDuration( idx )
  211. mdl.SeqStart = CurTime()
  212. mdl:ResetSequence( idx )
  213. end
  214.  
  215. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  216.  
  217.  
  218. local w, h = 300, 300
  219. local ang = Angle( 0, 0, 0 )
  220.  
  221. for i = 1, 32 do
  222. if CurTime() > time then
  223. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  224. end
  225. local x, y = posCache[i][1], posCache[i][2]
  226.  
  227. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  228. cam.IgnoreZ( true )
  229. render.SuppressEngineLighting( true )
  230.  
  231. render.SetLightingOrigin( mdl:GetPos() )
  232. render.ResetModelLighting( 1, 1, 1 )
  233. render.SetColorModulation( 1, 1, 1 )
  234.  
  235. mdl:DrawModel()
  236.  
  237. render.SuppressEngineLighting( false )
  238. cam.IgnoreZ( false )
  239. cam.End3D()
  240. end
  241.  
  242. if CurTime() > time then
  243. time = CurTime() +0.15
  244. end
  245. end )
  246.  
  247. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  248. ]] )
  249. end )
  250.  
  251. --Let the beat drop
  252. lol:PushAction( 54, function( pPlayer )
  253. lol:SendLua( pPlayer, [[
  254. --hook.Add( "GetMotionBlurValues", "wat", function()
  255. -- return 0, 0, 1, math.sin(CurTime() *13)
  256. --end )
  257.  
  258. --hook.Add( "RenderScreenspaceEffects", "ohgod", function()
  259. -- local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
  260. -- DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
  261. -- DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
  262. --end )
  263.  
  264. --hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
  265. --render.SetMaterial( Material("cable/blue_elec") )
  266. --for i = 1, 32 do
  267. --render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  268. --end
  269. --end )
  270.  
  271. timer.Create( "thedrop", 0.42, 0, function()
  272. util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
  273. end )
  274. ]] )
  275. end )
  276.  
  277. --EVIL TIME rip headpones
  278. lol:PushAction( 175, function( pPlayer )
  279. lol:SendLua( pPlayer, [[
  280. surface.PlaySound( "vo/npc/male01/gethellout.wav" )
  281.  
  282. local sounds = {}
  283. for i = 1, 4 do
  284. sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "noblock noplay", function( pChan )
  285. sounds[#sounds +1] = pChan
  286. end )
  287. end
  288.  
  289. timer.Create( "asdf", 1, 0, function()
  290. if #sounds ~= 4 then return end
  291. timer.Destroy( "asdf" )
  292. for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  293. end )
  294.  
  295. hook.Add( "HUDShouldDraw", "newhud", function() return false end )
  296. ]] )
  297.  
  298. pPlayer:Remove()
  299. end )
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!