API tools faq
paste
Awooslayer699

Untitled

Awooslayer699
Mar 22nd, 2019
124
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 11.39 KB | None | 0 0
raw download clone embed print report diff
  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,Mouse,mouse,UserInputService,ContextActionService = owner
  3. local RealPlayer = Player
  4. do print("FE Compatibility code by Mokiros")local a=RealPlayer;script.Parent=a.Character;local b=Instance.new("RemoteEvent")b.Name="UserInput_Event"local function c()local d={_fakeEvent=true,Functions={},Connect=function(self,e)table.insert(self.Functions,e)end}d.connect=d.Connect;return d end;local f={Target=nil,Hit=CFrame.new(),KeyUp=c(),KeyDown=c(),Button1Up=c(),Button1Down=c()}local g={InputBegan=c(),InputEnded=c()}local CAS={Actions={},BindAction=function(self,h,i,j,...)CAS.Actions[h]=i and{Name=h,Function=i,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function k(self,l,...)local d=f[l]if d and d._fakeEvent then for m,e in pairs(d.Functions)do e(...)end end end;f.TrigEvent=k;g.TrigEvent=k;b.OnServerEvent:Connect(function(n,o)if n~=a then return end;f.Target=o.Target;f.Hit=o.Hit;if not o.isMouse then local p=o.UserInputState==Enum.UserInputState.Begin;if o.UserInputType==Enum.UserInputType.MouseButton1 then return f:TrigEvent(p and"Button1Down"or"Button1Up")end;for m,d in pairs(CAS.Actions)do for m,q in pairs(d.Keys)do if q==o.KeyCode then d.Function(d.Name,o.UserInputState,o)end end end;f:TrigEvent(p and"KeyDown"or"KeyUp",o.KeyCode.Name:lower())g:TrigEvent(p and"InputBegan"or"InputEnded",o,false)end end)b.Parent=NLS([==[local a=game:GetService("Players").LocalPlayer;local b=script:WaitForChild("UserInput_Event")local c=a:GetMouse()local d=game:GetService("UserInputService")local e=function(f,g)if g then return end;b:FireServer({KeyCode=f.KeyCode,UserInputType=f.UserInputType,UserInputState=f.UserInputState,Hit=c.Hit,Target=c.Target})end;d.InputBegan:Connect(e)d.InputEnded:Connect(e)local h,i;while wait(1/30)do if h~=c.Hit or i~=c.Target then h,i=c.Hit,c.Target;b:FireServer({isMouse=true,Target=i,Hit=h})end end]==],Player.Character)local r=game;local s={__index=function(self,q)local t=rawget(self,"_RealService")if t then return t[q]end end,__newindex=function(self,q,u)local t=rawget(self,"_RealService")if t then t[q]=u end end,__call=function(self,...)local t=rawget(self,"_RealService")if t then return t(...)end end}local function v(d,w)d._RealService=typeof(w)=="string"and r:GetService(w)or w;return setmetatable(d,s)end;local x={GetService=function(self,t)return self[t]end,Players=v({LocalPlayer=v({GetMouse=function(self)return f end},Player)},"Players"),UserInputService=v(g,"UserInputService"),ContextActionService=v(CAS,"ContextActionService")}rawset(x.Players,"localPlayer",x.Players.LocalPlayer)x.service=x.GetService;x.RunService=v({RenderStepped=r:GetService("RunService").Heartbeat,BindToRenderStep=function(self,h,m,i)self._btrs[h]=self.Heartbeat:Connect(i)end,UnbindFromRenderStep=function(self,h)self._btrs[h]:Disconnect()end},"RunService")setmetatable(x,{__index=function(self,t)return r:GetService(t)or typeof(r[t])=="function"and function(m,...)return r[t](r,...)end or r[t]end,__newindex=s.__newindex,__call=s.__call})game,owner=x,x.Players.LocalPlayer end
  5.  
  6. --[[
  7.     REMAKE / YOU WANT WHAT ?
  8.     Created by tomonaoboys
  9.     Changed from Old Version:Targeting System, Key press, some effects
  10.     Health is broken. yeah.
  11.     and this script is not for R15.(Old Version too)
  12.     Move list (* is require Target)
  13.     Q : Target         :Target someone. Can Target R15.
  14.     F : Kill Target   *
  15.     G : Erase Target  *
  16.     C : Teleport Self
  17. --]]
  18.  
  19. local Lighting=game:FindFirstChildOfClass("Lighting")local Players=game:FindFirstChildOfClass("Players")local PL=Players.LocalPlayer
  20. debri=game:GetService("Debris")Ghost=false
  21. PC=PL.Character Phm=PC:FindFirstChildOfClass("Humanoid")
  22. PL:ClearCharacterAppearance()
  23. PC.Archivable=true Targeted=nil Mouse=PL:GetMouse()
  24. Invisible=false
  25. ring="rbxassetid://3270017"
  26. function PlaySound(ID,Volume,Speed)spawn(function()local s=Instance.new("Sound",workspace)s.SoundId=ID s.Volume=Volume s.PlaybackSpeed=Speed s:Play()s.PlayOnRemove=true wait(10)s.Volume=0 s:Remove()end)end
  27. local Tabillboard=Instance.new("BillboardGui",nil)Tabillboard.Size=UDim2.new(1,0,1,0)Tabillboard.ExtentsOffsetWorldSpace=Vector3.new(0,4,0)targettext=Instance.new("TextLabel",Tabillboard)targettext.Size=UDim2.new(1,0,1,0)targettext.BackgroundTransparency=1 targettext.BorderSizePixel=0 targettext.Font="Bodoni" targettext.TextColor3=Color3.fromRGB(255,0,0)targettext.TextSize=20 targettext.TextStrokeTransparency=0 Tabillboard.AlwaysOnTop=true targettext.Text=""
  28. local namebillboard=Instance.new("BillboardGui",PC["Head"])namebillboard.Size=UDim2.new(1,0,1,0)namebillboard.ExtentsOffsetWorldSpace=Vector3.new(0,4,0)nametext=Instance.new("TextLabel",namebillboard)nametext.Size=UDim2.new(1,0,1,0)nametext.BackgroundTransparency=1 nametext.BorderSizePixel=0 nametext.Font="Bodoni" nametext.TextColor3=Color3.fromRGB(120,0,0)nametext.TextSize=30 nametext.TextStrokeTransparency=0 namebillboard.AlwaysOnTop=true nametext.Text=tostring(PL)namebillboard.Name=" billboard"namebillboard.Enabled=false
  29. local TMark=Instance.new("BillboardGui",nil)TMark.AlwaysOnTop=true TMark.Size=UDim2.new(8,0,8,0)local timg=Instance.new("ImageLabel",TMark)timg.Size=UDim2.new(1,0,1,0)timg.Image="rbxassetid://418573253"timg.BackgroundTransparency=1 timg.ImageTransparency=.6
  30. function clear()Targeted=nil TMark.Enabled=false TMark.Parent=nil TMark.Enabled=false Tabillboard.Parent=nil Tabillboard.Enabled=false end
  31. function a(part)
  32.     local j=Instance.new("BodyVelocity",part)j.MaxForce=Vector3.new(1/0,1/0,1/0)j.Velocity=Vector3.new(0,0,0)
  33. end
  34. function mov(part,vec3)
  35.     local j=Instance.new("BodyVelocity",part)j.MaxForce=Vector3.new(1/0,1/0,1/0)j.Velocity=vec3
  36. end
  37. spawn(function()
  38.     while wait()do
  39.         if PC:FindFirstChildOfClass("ForceField")then PC:FindFirstChildOfClass("ForceField").Visible=false else Instance.new("ForceField",PC)end
  40.         Phm.MaxHealth=(1/0)/(1/0)Phm.HealthDisplayType="AlwaysOff"Phm.Health=(1/0)/(1/0)Phm.WalkSpeed=8 Phm.PlatformStand=false
  41.         if Ghost then PC.Parent=workspace.CurrentCamera else PC.Parent=workspace end
  42.         local cl=PC:Clone()
  43.         local c=cl:GetChildren()timg.Rotation=timg.Rotation+3
  44.         nametext.Position=UDim2.new(0,math.random(5)-math.random(5),0,math.random(5)-math.random(5))
  45.         local B=Instance.new("SelectionSphere")B.Color3=Color3.fromRGB(60,0,0)B.Visible=true B.Transparency=0.5 local part=Instance.new("Part")part.CanCollide=false part.Transparency=1 part.Size=Vector3.new(7,7,7)B.Parent=part part.CFrame=PC.Torso.CFrame part.Parent=workspace if Invisible==false then B.Adornee=part end part.Anchored=true debri:AddItem(part,.1)
  46.         for i=1,#c do if c[i]:IsA("Humanoid")then c[i]:Destroy()end if c[i]:IsA("Part")then c[i].CanCollide=false c[i].Anchored=true if c[i].Name~="HumanoidRootPart"then c[i].Color=Color3.new(0,0,0)c[i].Transparency=.5 c[i].Material="Neon"else c[i]:Destroy()end if c[i].Name=="Head"then c[i][" billboard"].Enabled=true end end end debri:AddItem(cl,.1)cl.Parent=workspace
  47.         local c=PC:GetChildren()for i=1,#c do if c[i]:IsA("Part")then c[i].Locked=true c[i].Anchored=false c[i].Transparency=1 end end
  48.         local child=PC.Torso:GetChildren()for i=1,#child do if child[i]:IsA("Motor6D")==false then child[i]:Destroy()end end
  49.         local child=PC["Left Arm"]:GetChildren()for i=1,#child do child[i]:Destroy()end
  50.         local child=PC["Left Leg"]:GetChildren()for i=1,#child do child[i]:Destroy()end
  51.         local child=PC["Right Arm"]:GetChildren()for i=1,#child do child[i]:Destroy()end
  52.         local child=PC["Right Leg"]:GetChildren()for i=1,#child do child[i]:Destroy()end
  53.         local child=PC.Head:GetChildren()for i=1,#child do if child[i]:IsA("SpecialMesh")==false then if child[i].Name~=" billboard"then child[i]:Destroy()end end end
  54.     end
  55. end)
  56. game:GetService("UserInputService").InputBegan:connect(function(Key, Gpe)
  57.     if not Gpe then
  58.         if Key.KeyCode==Enum.KeyCode.Q then
  59.             if Mouse.Target~=nil then
  60.                 if tostring(Mouse.Target.Parent)~=PL.Name then
  61.                     if Mouse.Target.Parent~=nil then
  62.                         if Mouse.Target.Parent:FindFirstChildOfClass("Humanoid")~=nil then
  63.                             Tabillboard.Enabled=true
  64.                             Targeted=Mouse.Target.Parent
  65.                             print(Targeted)
  66.                             Tabillboard.Parent=Targeted TMark.Parent=Targeted
  67.                             if Targeted:FindFirstChild("Torso")~=nil then
  68.                             Tabillboard.Adornee=Targeted.Torso
  69.                             TMark.Adornee=Targeted.Torso TMark.Enabled=true
  70.                             targettext.Text="Targeted:"..tostring(Targeted)
  71.                             else
  72.                                 Tabillboard.Adornee=Targeted.UpperTorso
  73.                                 TMark.Adornee=Targeted.UpperTorso
  74.                                 targettext.Text="Targeted:"..tostring(Targeted)
  75.                             end
  76.                         end
  77.                     end
  78.                 end
  79.             end
  80.         elseif Key.KeyCode==Enum.KeyCode.One then
  81.             clear()
  82.         elseif Key.KeyCode==Enum.KeyCode.Zero then
  83.             if Ghost then Ghost=false print("Ghost Deactived")else Ghost=true print("Ghost Actived")end
  84.         elseif Key.KeyCode==Enum.KeyCode.F then
  85.             if Targeted~=nil then
  86.                 PlaySound("rbxassetid://130779009",5,1)
  87.                 Targeted:FindFirstChildOfClass("Humanoid").Health=nil Targeted:FindFirstChildOfClass("Humanoid").MaxHealth=nil Targeted:BreakJoints()local pos=nil
  88.                 if Targeted:FindFirstChild("Torso")~=nil then pos=Targeted.Torso.Position else pos=Targeted.UpperTorso.Position end
  89.                 local p1=Instance.new("Part")p1.Anchored=true p1.Material="Neon"p1.CanCollide=false local m=Instance.new("SpecialMesh",p1)m.MeshType="Sphere"p1.Color=Color3.new(1,0,0)p1.Size=Vector3.new(0,0,0)
  90.                 local p2=p1:Clone()local m2=p2["Mesh"]m2.MeshId=ring
  91.                 for i=0,1,.05 do
  92.                     p1.Parent=nil p2.Parent=nil p1.Position=pos p2.Position=pos p1.Transparency=i p2.Transparency=i p2.Orientation=Vector3.new(90,0,0)
  93.                     m.Scale=Vector3.new(200-i*50,200-i*50,200-i*50)
  94.                     m2.Scale=Vector3.new(16+i*5,16+i*5,10+i*5)
  95.                     p1.Parent=workspace p2.Parent=workspace wait()
  96.                 end p1:Destroy()p2:Destroy()
  97.             end
  98.         elseif Key.KeyCode==Enum.KeyCode.G then
  99.             if Targeted~=nil then
  100.                 PlaySound("rbxassetid://130779009",5,1)
  101.                 Targeted:FindFirstChildOfClass("Humanoid").Health=nil Targeted:FindFirstChildOfClass("Humanoid").MaxHealth=nil Targeted:BreakJoints()local pos=nil
  102.                 if Targeted:FindFirstChild("Torso")~=nil then pos=Targeted.Torso.Position else pos=Targeted.UpperTorso.Position end
  103.                 local OT=Targeted clear()OT:Remove()
  104.                 local p1=Instance.new("Part")p1.Anchored=true p1.Material="Neon"p1.CanCollide=false local m=Instance.new("SpecialMesh",p1)m.MeshType="Sphere"p1.Color=Color3.new(.3,0,.5)p1.Size=Vector3.new(0,0,0)
  105.                 local p2=p1:Clone()local m2=p2["Mesh"]m2.MeshId=ring p2.Color=Color3.new(1,1,1)
  106.                 for i=0,1,.05 do
  107.                     p1.Parent=nil p2.Parent=nil p1.Position=pos p2.Position=pos p1.Transparency=i p2.Transparency=i p2.Orientation=Vector3.new(90,0,0)
  108.                     m.Scale=Vector3.new(200-i*50,200-i*50,200-i*50)
  109.                     m2.Scale=Vector3.new(20-i*5,20-i*5,20-i*5)
  110.                     p1.Parent=workspace p2.Parent=workspace wait()
  111.                 end p1:Destroy()p2:Destroy()
  112.             end
  113.         elseif Key.KeyCode==Enum.KeyCode.C then
  114.             PlaySound("rbxassetid://260433746",5,1)
  115.             local part2=Instance.new("Part",workspace)part2.Shape="Ball"part2.Size=Vector3.new(10,10,10)part2.CanCollide=false part2.Anchored=true part2.Material="Neon"part2.CFrame=PC.Torso.CFrame part2.Color=Color3.new(1,1,1)
  116.             PC.Torso.CFrame=Mouse.Hit+Vector3.new(0,3,0)
  117.             local part=Instance.new("Part",workspace)part.Color=Color3.new(1,1,1)part.Shape="Ball"part.Size=Vector3.new(10,10,10)part.CanCollide=false part.Anchored=true part.Material="Neon"part.CFrame=Mouse.Hit+Vector3.new(0,3,0)
  118.             for i=0,1,.02 do part.Transparency=i part2.Transparency=i wait(.02)end
  119.             part:Destroy()part2:Destroy()
  120.         end
  121.     end
  122. end)
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!