SHARE
TWEET

Untitled

mattysaechao123 Dec 14th, 2019 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
  2. local Player = owner
  3. local Mouse,mouse,UserInputService,ContextActionService
  4. do
  5.     script.Parent = RhiBel00351
  6.     local CAS = {Actions={}}
  7.     local Event = Instance.new("RemoteEvent")
  8.     Event.Name = "UserInput_Event"
  9.     Event.Parent = Player.Character
  10.     local fakeEvent = function()
  11.         local t = {_fakeEvent=true}
  12.         t.Connect = function(self,f)self.Function=f end
  13.         t.connect = t.Connect
  14.         return t
  15.     end
  16.     local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent()}
  17.     local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
  18.     function CAS:BindAction(name,fun,touch,...)
  19.         CAS.Actions[name] = {Name=name,Function=fun,Keys={...}}
  20.     end
  21.     function CAS:UnbindAction(name)
  22.         CAS.Actions[name] = nil
  23.     end
  24.     local function te(self,ev,...)
  25.         local t = m[ev]
  26.         if t and t._fakeEvent and t.Function then
  27.             t.Function(...)
  28.         end
  29.     end
  30.     m.TrigEvent = te
  31.     UIS.TrigEvent = te
  32.     Event.OnServerEvent:Connect(function(plr,io)
  33.         if plr~=Player then return end
  34.         if io.isMouse then
  35.             m.Target = io.Target
  36.             m.Hit = io.Hit
  37.         elseif io.UserInputType == Enum.UserInputType.MouseButton1 then
  38.             if io.UserInputState == Enum.UserInputState.Begin then
  39.                 m:TrigEvent("Button1Down")
  40.             else
  41.                 m:TrigEvent("Button1Up")
  42.             end
  43.         else
  44.             for n,t in pairs(CAS.Actions) do
  45.                 for _,k in pairs(t.Keys) do
  46.                     if k==io.KeyCode then
  47.                         t.Function(t.Name,io.UserInputState,io)
  48.                     end
  49.                 end
  50.             end
  51.             if io.UserInputState == Enum.UserInputState.Begin then
  52.                 m:TrigEvent("KeyDown",io.KeyCode.Name:lower())
  53.                 UIS:TrigEvent("InputBegan",io,false)
  54.             else
  55.                 m:TrigEvent("KeyUp",io.KeyCode.Name:lower())
  56.                 UIS:TrigEvent("InputEnded",io,false)
  57.             end
  58.         end
  59.     end)
  60.     NLS([==[
  61.     local Player = game:GetService("Players").LocalPlayer
  62.    
  63.     local Char = Player.Character
  64.     local Event = Char:WaitForChild("UserInput_Event")
  65.    
  66.     local UIS = game:GetService("UserInputService")
  67.    
  68.     local input = function(io,a)
  69.         if a then return end
  70.         local io = {KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState}
  71.         Event:FireServer(io)
  72.     end
  73.     UIS.InputBegan:Connect(input)
  74.     UIS.InputEnded:Connect(input)
  75.     local Changed = false
  76.     local Mouse = Player:GetMouse()
  77.     local h,t = Mouse.Hit,Mouse.Target
  78.     while wait(1/30) do
  79.         if h~=Mouse.Hit or t~=Mouse.Target then
  80.             Event:FireServer({isMouse=true,Target=Mouse.Target,Hit=Mouse.Hit})
  81.             h,t=Mouse.Hit,Mouse.Target
  82.         end
  83.     end
  84.     ]==],Player.Character)
  85.     Mouse,mouse,UserInputService,ContextActionService = m,m,UIS,CAS
  86. end
  87.  
  88. ------C0RRUPTION SERVER DESTRUCTION SCRIPT
  89. ------SPREAD THE C0RRUPTION
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158. for i,v in pairs(game.Players:GetChildren()) do game:GetService("Chat"):Chat(v.Character.Head,"SPREAD THE C0RRUPTION \n SPREAD THE C0RRUPTION \n SPREAD THE C0RRUPTION \n SPREAD THE C0RRUPTION \n SPREAD THE C0RRUPTION") end
  159.  
  160. function a(b)
  161. for i,v in next, b:GetChildren() do
  162. if v:IsA("Part") then
  163. bbg = Instance.new("BillboardGui")
  164. bbg.Adornee=v
  165. bbg.Parent=v
  166. bbg.Size=UDim2.new(3,0,3,0)
  167. bbg.StudsOffset=Vector3.new(0,2,0)
  168. fr = Instance.new("Frame", bbg)
  169. fr.BackgroundTransparency=1
  170. fr.Size=UDim2.new(1,0,1,0)
  171. tl = Instance.new("TextLabel", fr)
  172. tl.FontSize="Size48"
  173. tl.BackgroundTransparency=1
  174. tl.Text="SPREAD THE C0RRUPTION"
  175. tl.TextColor3=Color3.new(0.5,0,255)
  176. tl.Size=UDim2.new(1,0,1,0)
  177. end
  178. a(v)
  179. end
  180. end
  181. a(workspace)
  182.  
  183. game.Lighting.TimeOfDay = "14"
  184. game.Lighting.Brightness = 0
  185. game.Lighting.Ambient=Color3.new(0.5,0,1);
  186. game.Lighting.FogEnd=100;
  187. game.Lighting.FogColor=Color3.new(0.5,0,1);
  188. game.Workspace.Terrain.WaterColor=Color3.new(0.5,0,1);
  189. o1 = Instance.new("Sky")
  190. o1.Name = "Desert Sky"
  191. o1.Parent = game.Lighting
  192. o1.SkyboxBk = "http://www.roblox.com/asset/?id=701987397"
  193. o1.SkyboxDn = "http://www.roblox.com/asset/?id=701987397"
  194. o1.SkyboxFt = "http://www.roblox.com/asset/?id=701987397"
  195. o1.SkyboxLf = "http://www.roblox.com/asset/?id=701987397"
  196. o1.SkyboxRt = "http://www.roblox.com/asset/?id=701987397"
  197. o1.SkyboxUp = "http://www.roblox.com/asset/?id=701987397"
  198.  
  199. WARSOUNDS = true -- plays war sounds
  200. -------------------------
  201. if WARSOUNDS == true then
  202. myears = Instance.new('Sound')
  203. myears.Parent = workspace
  204. myears.Looped = true
  205. myears.Name = "Darude on meth"
  206. myears.Playing = true
  207. myears.SoundId = "rbxassetid://259174997"
  208. myears.Volume = 10
  209. myears.TimePosition = 0
  210. end
  211.  
  212. local ID =701987397 --id here
  213. function spamDecal(v)
  214.     if v:IsA("Part") then
  215.         for i=0, 5 do
  216.             D = Instance.new("Decal")
  217.             D.Name = "MYDECALHUE"
  218.             D.Face = i
  219.             D.Parent = v
  220.             D.Texture = ("http://www.roblox.com/asset/?id="..Id)
  221.         end
  222.     else
  223.         if v:IsA("Model") then
  224.             for a,b in pairs(v:GetChildren()) do
  225.                 spamDecal(b)
  226.             end
  227.         end
  228.     end
  229. end
  230. function decalspam(id) --use this function, not the one on top
  231.     Id = id
  232.     for i,v in pairs(game.Workspace:GetChildren()) do
  233.         if v:IsA("Part") then
  234.         for i=0, 5 do
  235.             D = Instance.new("Decal")
  236.             D.Name = "MYDECALHUE"
  237.             D.Face = i
  238.             D.Parent = v
  239.             D.Texture = ("http://www.roblox.com/asset/?id="..id)
  240.         end
  241.     else
  242.         if v:IsA("Model") then
  243.             for a,b in pairs(v:GetChildren()) do
  244.                 spamDecal(b)
  245.             end
  246.         end
  247.     end
  248. end
  249. end
  250.  
  251. decalspam(ID)
  252.  
  253. colorc=Instance.new("ColorCorrectionEffect",game.Lighting)
  254. wait()
  255. spawn(function()
  256.    while wait() do
  257.        colorc.Contrast=math.random(-1,1)
  258.        colorc.Saturation=math.random(-1,1)
  259.        colorc.TintColor = Color3.new(0.5, 0, 1)
  260.    end
  261. end)
  262.  
  263. Scale = 0.3
  264.  
  265.  
  266. function DarkColor(Source)
  267.     for _, Part in pairs(Source:GetChildren()) do
  268.         if Part:IsA("Clothing") or Part:IsA("CharacterMesh") or Part:IsA("BodyColors") or Part:IsA("Decal") or Part:IsA("Texture") or Part:IsA("ShirtGraphic") or Part:IsA("CylinderMesh") or Part:IsA("BlockMesh") then
  269.             Part:Remove()
  270.         elseif Part:IsA("BasePart") then
  271.             if Part:FindFirstChild("Mesh") == nil then
  272.                 local Mesh = Instance.new("SpecialMesh", Part)
  273.                 Mesh.MeshType = "FileMesh"
  274.                 Mesh.MeshId = "http://www.roblox.com/Asset/?id=9856898"
  275.                 Mesh.TextureId = "http://www.roblox.com/Asset/?id=48358980"
  276.                 Mesh.Scale = Part.Size * 2
  277.                 Mesh.VertexColor = Vector3.new(Part.BrickColor.r, Part.BrickColor.g, Part.BrickColor.b)
  278.                 Part.BrickColor = BrickColor.new("Institutional white")
  279.             end
  280.             if Part:FindFirstChild("Direction") == nil then
  281.                 local Direction = Instance.new("BoolValue", Part)
  282.                 Direction.Name = "Direction"
  283.                 Direction.Value = math.random(1, 2) == 1 and false or true
  284.             end
  285.             if Part:FindFirstChild("") == nil then
  286.                 local Increment = Instance.new("NumberValue", Part)
  287.                 Increment.Name = "Increment"
  288.                 Increment.Value = math.random(0, 1000) / 1000
  289.             end
  290.             if Part:FindFirstChild("OriginalColor") == nil then
  291.                 local OriginalColor = Instance.new("Vector3Value", Part)
  292.                 OriginalColor.Name = "OriginalColor"
  293.                 OriginalColor.Value = Part.Mesh.VertexColor
  294.             end
  295.             if Part.Increment.Value <= 0 then
  296.                 Part.Direction.Value = true
  297.             elseif Part.Increment.Value >= 1 then
  298.                 Part.Direction.Value = false
  299.             end
  300.             Part.Increment.Value = Part.Increment.Value + (Scale * (Part.Direction.Value and 1 or -1))
  301.             Part.Mesh.VertexColor = Part.OriginalColor.Value * Part.Increment.Value
  302.         end
  303.         DarkColor(Part)
  304.     end
  305. end
  306.  
  307.  
  308. while true do
  309.     DarkColor(Workspace)
  310.     wait()
  311. end
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352.  
  353.  
  354.  
  355.  
  356.  
  357.  
  358.  
  359.  
  360.  
  361.  
  362.  
  363. ------C0RRUPTION SERVER DESTRUCTION SCRIPT
  364. ------SPREAD THE C0RRUPTION
RAW Paste Data
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
 
Top