SHARE
TWEET

Script Copy

a guest Feb 16th, 2019 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- made by TheFlamingBlaster
  2. print("Script stealer by TheFlamingBlaster successfully started up.")
  3. print("December 30th, 2016.")
  4. print("Click on a player to freeze them, hit c to run their currently running scripts under yourself.")
  5. print("This only works with localscripts")
  6. print("This won't allow you to get the code of the scripts.")
  7.  
  8. if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
  9. local Player,Mouse,mouse,UserInputService,ContextActionService = owner
  10. do
  11.     print("FE Compatibility code by B34ST_GH0ST")
  12.     script.Parent = Player.Character
  13.  
  14.     --RemoteEvent for communicating
  15.     local Event = Instance.new("RemoteEvent")
  16.     Event.Name = "UserInput_Event"
  17.  
  18.     --Fake event to make stuff like Mouse.KeyDown work
  19.     local function fakeEvent()
  20.         local t = {_fakeEvent=true,Connect=function(self,f)self.Function=f end}
  21.         t.connect = t.Connect
  22.         return t
  23.     end
  24.  
  25.     --Creating fake input objects with fake variables
  26.     local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent()}
  27.     local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
  28.     local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
  29.         CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
  30.     end}
  31.     --Merged 2 functions into one by checking amount of arguments
  32.     CAS.UnbindAction = CAS.BindAction
  33.  
  34.     --This function will trigger the events that have been :Connect()'ed
  35.     local function te(self,ev,...)
  36.         local t = m[ev]
  37.         if t and t._fakeEvent and t.Function then
  38.             t.Function(...)
  39.         end
  40.     end
  41.     m.TrigEvent = te
  42.     UIS.TrigEvent = te
  43.  
  44.     Event.OnServerEvent:Connect(function(plr,io)
  45.         if plr~=Player then return end
  46.         if io.isMouse then
  47.             m.Target = io.Target
  48.             m.Hit = io.Hit
  49.         else
  50.             local b = io.UserInputState == Enum.UserInputState.Begin
  51.             if io.UserInputType == Enum.UserInputType.MouseButton1 then
  52.                 return m:TrigEvent(b and "Button1Down" or "Button1Up")
  53.             end
  54.             for _,t in pairs(CAS.Actions) do
  55.                 for _,k in pairs(t.Keys) do
  56.                     if k==io.KeyCode then
  57.                         t.Function(t.Name,io.UserInputState,io)
  58.                     end
  59.                 end
  60.             end
  61.             m:TrigEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
  62.             UIS:TrigEvent(b and "InputBegan" or "InputEnded",io,false)
  63.         end
  64.     end)
  65.     Event.Parent = NLS([==[
  66.     local Player = game:GetService("Players").LocalPlayer
  67.     local Event = script:WaitForChild("UserInput_Event")
  68.  
  69.     local UIS = game:GetService("UserInputService")
  70.     local input = function(io,a)
  71.         if a then return end
  72.         --Since InputObject is a client-side instance, we create and pass table instead
  73.         Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState})
  74.     end
  75.     UIS.InputBegan:Connect(input)
  76.     UIS.InputEnded:Connect(input)
  77.  
  78.     local Mouse = Player:GetMouse()
  79.     local h,t
  80.     --Give the server mouse data 30 times every second, but only if the values changed
  81.     --If player is not moving their mouse, client won't fire events
  82.     while wait(1/30) do
  83.         if h~=Mouse.Hit or t~=Mouse.Target then
  84.             h,t=Mouse.Hit,Mouse.Target
  85.             Event:FireServer({isMouse=true,Target=t,Hit=h})
  86.         end
  87.     end]==],Player.Character)
  88.     Mouse,mouse,UserInputService,ContextActionService = m,m,UIS,CAS
  89. end
  90.  
  91. local plr = owner
  92. function exe(cmd)
  93. owner.PlayerGui.SB_DataTransfer.SB_CommandRemote.Value = cmd
  94. end
  95. local adornees
  96. local destroyit = false
  97. local lasttarget
  98. local currenttarget
  99. local changed = {}
  100. mouse.Button1Down:connect(function()
  101.     if mouse.Target then
  102.     if mouse.Target.Parent.ClassName == "Model" then
  103.     currenttarget = mouse.Target.Parent
  104.     lasttarget = mouse.Target.Parent
  105.     adornees = Instance.new("Model",plr.Character)
  106.     for i,v in pairs(mouse.Target.Parent:GetChildren()) do
  107.         local s = Instance.new("SelectionBox",adornees)
  108.         if v:IsA("Part") then
  109.             if v.Name == "Torso" then
  110.                 local lasso = Instance.new("SelectionPartLasso",adornees)
  111.                 lasso.Humanoid = plr.Character.Humanoid
  112.                 lasso.Part = v
  113.             end
  114.             s.Adornee = v
  115.             if v.Anchored == false then
  116.                 table.insert(changed,v)
  117.                 v.Anchored = true
  118.             end
  119.         end
  120.        
  121.     end
  122.     destroyit = true
  123.     end
  124.     end
  125. end)
  126. game:GetService('UserInputService').InputBegan:connect(function(input,processed)
  127.     if mouse.Target and destroyit == true then
  128.     if input.KeyCode == Enum.KeyCode.C then
  129.         --currenttarget:Destroy()
  130.         for i,v in pairs(currenttarget:GetChildren()) do
  131.             if v:IsA("LocalScript") then
  132.                 local c = v
  133.                 c.Parent = plr.Character
  134.                 c.Name = "Stolen"
  135.                 exe('local a = '..v:GetFullName()..':Clone() a.Parent = getfenv().owner.Character print(a.Parent)')
  136.                 print(c.Parent)
  137.             end
  138.         end
  139.         adornees:Destroy()
  140.     end
  141.     end
  142. end)
  143. mouse.Button1Up:connect(function()
  144.     if destroyit == true then
  145.     currenttarget = nil
  146.     for i,v in pairs(changed) do
  147.         v.Anchored = false
  148.     end
  149.     changed = {}
  150.     adornees:Destroy()
  151.     destroyit = false
  152.     end
  153. end)
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