Advertisement
memberhero

Void Place 1 CR Test

Dec 19th, 2020 (edited)
341
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.69 KB | None | 0 0
  1. local rplr = owner
  2. local Faker = NLS ([=[
  3.  
  4.  
  5. local plr = game.Players.LocalPlayer
  6. local m = plr:GetMouse()
  7. local remote = Instance.new("RemoteEvent",script)
  8. remote.Name = "Server"
  9. Server = remote
  10.  
  11. m.KeyDown:Connect(function(k)
  12. remote:FireServer('KeyDown',k)
  13. end)
  14. m.KeyUp:Connect(function(k)
  15. remote:FireServer('KeyUp',k)
  16. end)
  17. m.Button1Down:Connect(function()
  18. remote:FireServer('Button1Down')
  19. end)
  20. m.Button1Up:Connect(function()
  21. remote:FireServer('Button1Up')
  22. end)
  23. m.Button2Down:Connect(function()
  24. remote:FireServer('Button2Down')
  25. end)
  26. m.Button2Up:Connect(function()
  27. remote:FireServer('Button2Up')
  28. end)
  29. game:GetService("UserInputService").InputBegan:Connect(function(input)
  30. remote:FireServer('UISBegan',{KeyCode=input.KeyCode,UserInputType=input.UserInputType,UserInputState=input.UserInputState})
  31. end)
  32. game:GetService("UserInputService").InputEnded:Connect(function(input)
  33. remote:FireServer('UISEnded',{KeyCode=input.KeyCode,UserInputType=input.UserInputType,UserInputState=input.UserInputState})
  34. end)
  35. local hit = m.Hit
  36. local target = m.Target
  37. local cframecam = game.Workspace.CurrentCamera.CFrame
  38. local UIS = game:GetService("UserInputService")
  39. script.Parent.Server:FireServer('UIS',{UIS=game:GetService("UserInputService")})
  40. while wait(1/30)do
  41. if hit~=m.Hit or target~=m.Target then
  42. script.Parent.Server:FireServer('Hit',{Hit = m.Hit})
  43. script.Parent.Server:FireServer('Target',{Target = m.Target})
  44. hit = m.Hit
  45. target = m.Target
  46. end
  47. end
  48. ]=], owner.Character)
  49. local plr = rplr
  50. local char = plr.Character
  51. char.Archivable = true
  52. local cam = workspace:WaitForChild("Camera")
  53.  
  54. local fakechar = char:Clone()
  55. fakechar.Head.face.Texture = ""
  56. fakechar.Parent = workspace
  57.  
  58. local FakeArm1 = Instance.new("Weld",rplr.Character.Torso)
  59. FakeArm1.Name = "Left Shoulder"
  60.  
  61. local FakeArm2 = Instance.new("Weld",rplr.Character.Torso)
  62. FakeArm2.Name = "Right Shoulder"
  63.  
  64. local FakeAnimator = Instance.new("LocalScript",rplr.Character.Humanoid)
  65. FakeAnimator.Name = "Animator"
  66.  
  67. local FakeAnimate = Instance.new("Script",rplr.Character)
  68. FakeAnimate.Name = "Animate"
  69.  
  70. local Everything = Instance.new("RemoteEvent",game.ReplicatedStorage)
  71. Everything.Name = math.random(100000,1000000000)
  72.  
  73. local WeldRemote = Instance.new("RemoteEvent",game.ReplicatedStorage)
  74. WeldRemote.Name = math.random(100000,1000000000)
  75.  
  76. local Damage = Instance.new("RemoteEvent",game.ReplicatedStorage)
  77. Damage.Name = math.random(100000,1000000000)
  78.  
  79. local Settings = Instance.new("Folder",game.ReplicatedStorage)
  80. Settings.Name = math.random(100000,1000000000)
  81.  
  82. local Equipped = Instance.new("BoolValue",Settings)
  83. Equipped.Name = "Equipped"
  84. Equipped.Value = false
  85.  
  86. --Nebula's thing that prevents arms falling off.
  87. NewInstance = function(instance,parent,properties)
  88. local inst = Instance.new(instance)
  89. inst.Parent = parent
  90. if(properties)then
  91. for i,v in next, properties do
  92. pcall(function() inst[i] = v end)
  93. end
  94. end
  95. return inst;
  96. end
  97.  
  98. local CF={N=CFrame.new,A=CFrame.Angles}
  99.  
  100. local Head = rplr.Character:WaitForChild'Head'
  101. local Torso = rplr.Character:WaitForChild'Torso'
  102. local LArm = rplr.Character:WaitForChild'Left Arm'
  103. local RArm = rplr.Character:WaitForChild'Right Arm'
  104. local LLeg = rplr.Character:WaitForChild'Left Leg'
  105. local RLeg = rplr.Character:WaitForChild'Right Leg'
  106. local Root = rplr.Character:WaitForChild'HumanoidRootPart'
  107.  
  108. local function newMotor(P0,P1,C0,C1)
  109. return NewInstance('Motor',P0,{Part0=P0,Part1=P1,C0=C0,C1=C1})
  110. end
  111.  
  112. local welds = {}
  113. --
  114. table.insert(welds,newMotor(Torso,RArm,CF.N(1.5,.5,0),CF.N(0,.5,0)))
  115. table.insert(welds,newMotor(Torso,LArm,CF.N(-1.5,.5,0),CF.N(0,.5,0)))
  116.  
  117. --[[table.insert(welds,newMotor(Torso,Head,CF.N(0,1.5,0),CF.N()))
  118. table.insert(welds,newMotor(Root,Torso,CF.N(),CF.N()))
  119. table.insert(welds,newMotor(Torso,RLeg,CF.N(.5, -2, 0),CF.N(0,0,0)))
  120. table.insert(welds,newMotor(Torso,RArm,CF.N(1.5, 0, 0),CF.N(0,0,0)))
  121. table.insert(welds,newMotor(Torso,LLeg,CF.N(-.5, -2, 0),CF.N(0,0,0)))
  122. table.insert(welds,newMotor(Torso,LArm,CF.N(-1.5, 0, 0),CF.N(0,0,0)))
  123. ]]
  124. --end
  125. WeldRemote:FireAllClients(welds)
  126.  
  127. local reqq = nil
  128. local keyy = nil
  129. function CreateGui(currentplr)
  130. local Gui = Instance.new("ScreenGui",currentplr.PlayerGui)
  131. Gui.Name = "Rep"
  132. local DamageValue = Instance.new("StringValue")
  133. DamageValue.Name = "DamageRemoteName"
  134. DamageValue.Parent = Gui
  135. local FolderValue = Instance.new("StringValue")
  136. FolderValue.Name = "FolderName"
  137. FolderValue.Parent = Gui
  138. local PlayerValue = Instance.new("ObjectValue")
  139. PlayerValue.Name = "Player"
  140. PlayerValue.Parent = Gui
  141. local RemoteValue = Instance.new("StringValue")
  142. RemoteValue.Name = "DRemoteName"
  143. RemoteValue.Parent = Gui
  144. local WeldValue = Instance.new("StringValue")
  145. WeldValue.Name = "WeldRemoteName"
  146. WeldValue.Parent = Gui
  147. return Gui
  148. end
  149.  
  150. Server.OnServerEvent:Connect(function(nothing,request,key)
  151. if request == 'KeyDown' then
  152. Everything:FireAllClients(request,key)
  153. elseif request == 'KeyUp' then
  154. Everything:FireAllClients(request,key)
  155. elseif request == 'Button1Down' then
  156. Everything:FireAllClients(request)
  157. elseif request == 'Button1Up' then
  158. Everything:FireAllClients(request)
  159. elseif request == 'Button2Down' then
  160. Everything:FireAllClients(request)
  161. elseif request == 'Button2Up' then
  162. Everything:FireAllClients(request)
  163. elseif request == 'Hit' then
  164. Everything:FireAllClients(request,key.Hit)
  165. elseif request == 'Target' then
  166. Everything:FireAllClients(request,key.Target)
  167. elseif request == 'UISBegan' then
  168. Everything:FireAllClients(request,key)
  169. elseif request == 'UISEnded' then
  170. Everything:FireAllClients(request,key)
  171. end
  172. end)
  173.  
  174. Everything.OnServerEvent:Connect(function(plr, req, aaa)
  175. if req == "Equipper" then
  176. if plr == rplr then
  177. Equipped.Value = aaa
  178. end
  179. end
  180. end)
  181.  
  182. local RepFolder = script.Rep
  183. for i,v in pairs(game.Players:GetPlayers())do
  184. CurrentGui = CreateGui(v)
  185. CurrentGui.RemoteName.Value = Everything.Name
  186. CurrentGui.WeldRemoteName.Value = WeldRemote.Name
  187. CurrentGui.FolderName.Value = Settings.Name
  188. CurrentGui.DamageRemoteName.Value = Damage.Name
  189.  
  190. NLS ([=[
  191. local rplr = script.Parent.Player.Value
  192. local RepStorage = game.ReplicatedStorage
  193. local Remote = RepStorage:WaitForChild(script.Parent.RemoteName.Value)
  194. local lplr = game.Players.LocalPlayer
  195. local ms = lplr:GetMouse()
  196. local WeldRemote = RepStorage:WaitForChild(script.Parent.WeldRemoteName.Value)
  197. local welds = nil
  198. local damageremote = game.ReplicatedStorage[script.Parent.DamageRemoteName.Value]
  199. WeldRemote.OnClientEvent:connect(function(aaa)
  200. welds=aaa
  201. end)
  202. game:GetService("RunService").RenderStepped:Connect(function()
  203. if rplr ~= lplr then return end
  204. workspace.CurrentCamera.CameraSubject = rplr.Character
  205. end)
  206. function LoadLibrary(thing)
  207. if thing=="RbxGui" then
  208. return require(script.LoadLibrary.RbxGui)
  209. elseif thing=="RbxStamper" then
  210. return require(script.LoadLibrary.RbxStamper)
  211. elseif thing=="RbxUtility" then
  212. return require(script.LoadLibrary.RbxUtility)
  213. end
  214. end
  215. local Settings = game.ReplicatedStorage[script.Parent.FolderName.Value]
  216. --[[saver
  217. coroutine.resume(coroutine.create(function()
  218. local AutoEquipper=Saver:InvokeServer("AcquireData")
  219. if AutoEquipper then
  220. for _, gotteninfo in pairs(AutoEquipper)do
  221. equipped = gotteninfo.Equipped
  222. end
  223. end
  224.  
  225. if equipped == true then
  226. weaponweld.Part0 = rarm
  227. weaponweld.C1=clerp(weaponweld.C1,cf(0,1,0)*angles(math.rad(0),math.rad(0),math.rad(0)),.3)
  228. equipped = true
  229. else
  230. equipped = false
  231. weaponweld.C1=clerp(weaponweld.C1,cf(-3,0,-0.5)*angles(math.rad(0),math.rad(0),math.rad(-40)),.5)
  232. weaponweld.Part0 = tors
  233.  
  234. end
  235. end))
  236. --]]
  237. if lplr ~= rplr then
  238. local PlayerGui = Instance.new("Folder",rplr)
  239. PlayerGui.Name = "PlayerGui"
  240. end
  241.  
  242. local UISB = Instance.new("BindableEvent")
  243. local UISE = Instance.new("BindableEvent")
  244. local KD = Instance.new("BindableEvent")
  245. local KU = Instance.new("BindableEvent")
  246. local B1D = Instance.new("BindableEvent")
  247. local B1U = Instance.new("BindableEvent")
  248. local B2D = Instance.new("BindableEvent")
  249. local B2U = Instance.new("BindableEvent")
  250. local Ht = Instance.new("BindableEvent")
  251. local Trg = Instance.new("BindableEvent")
  252. local mouse = {}
  253. UserInputService = {InputBegan=UISB.Event,InputEnded=UISE.Event}
  254. mouse.KeyDown = KD.Event
  255. mouse.KeyUp = KU.Event
  256. mouse.Button1Down = B1D.Event
  257. mouse.Button1Up = B1U.Event
  258. mouse.Button2Down = B2D.Event
  259. mouse.Button2Up = B2U.Event
  260. mouse.Hit = Ht
  261. mouse.Target = nil
  262.  
  263. Remote.OnClientEvent:Connect(function(request,key)
  264. if request == 'KeyDown' then
  265. KD:Fire(key)
  266. elseif request == 'KeyUp' then
  267. KU:Fire(key)
  268. elseif request == 'Button1Down' then
  269. B1D:Fire()
  270. elseif request == 'Button1Up' then
  271. B1U:Fire()
  272. elseif request == 'Button2Down' then
  273. B2D:Fire()
  274. elseif request == 'Button2Up' then
  275. B2U:Fire()
  276. elseif request == 'Hit' then
  277. mouse.Hit = key
  278. elseif request == 'Target' then
  279. mouse.Target = key
  280. elseif request == 'UISBegan' then
  281. UISB:Fire(key)
  282. elseif request == 'UISEnded' then
  283. UISE:Fire(key)
  284. end
  285. end)
  286. wait(0.2)
  287. ]=], CurrentGui);
  288. WeldRemote:FireAllClients(welds)
  289. end
  290.  
  291. Damage.OnServerEvent:Connect(function(plr,hum,value)
  292. hum.Health = value
  293. end)
  294.  
  295. game.Players.PlayerAdded:Connect(function(plr)
  296. ---repeat wait() until plr.PlayerGui
  297. ---local RepEveryone = rplr.PlayerGui.Rep:Clone()
  298. ---RepEveryone.Parent = plr.PlayerGui
  299. ---RepEveryone.Player.Value = rplr
  300. ---RepEveryone.Main.Disabled = false
  301. CurrentGui = CreateGui(plr)
  302. CurrentGui.RemoteName.Value = Everything.Name
  303. CurrentGui.WeldRemoteName.Value = WeldRemote.Name
  304. CurrentGui.FolderName.Value = Settings.Name
  305. CurrentGui.DamageRemoteName.Value = Damage.Name
  306.  
  307. NLS ([=[
  308. local rplr = script.Parent.Player.Value
  309. local RepStorage = game.ReplicatedStorage
  310. local Remote = RepStorage:WaitForChild(script.Parent.RemoteName.Value)
  311. local lplr = game.Players.LocalPlayer
  312. local ms = lplr:GetMouse()
  313. local WeldRemote = RepStorage:WaitForChild(script.Parent.WeldRemoteName.Value)
  314. local welds = nil
  315. local damageremote = game.ReplicatedStorage[script.Parent.DamageRemoteName.Value]
  316. WeldRemote.OnClientEvent:connect(function(aaa)
  317. welds=aaa
  318. end)
  319. game:GetService("RunService").RenderStepped:Connect(function()
  320. if rplr ~= lplr then return end
  321. workspace.CurrentCamera.CameraSubject = rplr.Character
  322. end)
  323. function LoadLibrary(thing)
  324. if thing=="RbxGui" then
  325. return require(script.LoadLibrary.RbxGui)
  326. elseif thing=="RbxStamper" then
  327. return require(script.LoadLibrary.RbxStamper)
  328. elseif thing=="RbxUtility" then
  329. return require(script.LoadLibrary.RbxUtility)
  330. end
  331. end
  332. local Settings = game.ReplicatedStorage[script.Parent.FolderName.Value]
  333. --[[saver
  334. coroutine.resume(coroutine.create(function()
  335. local AutoEquipper=Saver:InvokeServer("AcquireData")
  336. if AutoEquipper then
  337. for _, gotteninfo in pairs(AutoEquipper)do
  338. equipped = gotteninfo.Equipped
  339. end
  340. end
  341.  
  342. if equipped == true then
  343. weaponweld.Part0 = rarm
  344. weaponweld.C1=clerp(weaponweld.C1,cf(0,1,0)*angles(math.rad(0),math.rad(0),math.rad(0)),.3)
  345. equipped = true
  346. else
  347. equipped = false
  348. weaponweld.C1=clerp(weaponweld.C1,cf(-3,0,-0.5)*angles(math.rad(0),math.rad(0),math.rad(-40)),.5)
  349. weaponweld.Part0 = tors
  350.  
  351. end
  352. end))
  353. --]]
  354. if lplr ~= rplr then
  355. local PlayerGui = Instance.new("Folder",rplr)
  356. PlayerGui.Name = "PlayerGui"
  357. end
  358.  
  359. local UISB = Instance.new("BindableEvent")
  360. local UISE = Instance.new("BindableEvent")
  361. local KD = Instance.new("BindableEvent")
  362. local KU = Instance.new("BindableEvent")
  363. local B1D = Instance.new("BindableEvent")
  364. local B1U = Instance.new("BindableEvent")
  365. local B2D = Instance.new("BindableEvent")
  366. local B2U = Instance.new("BindableEvent")
  367. local Ht = Instance.new("BindableEvent")
  368. local Trg = Instance.new("BindableEvent")
  369. local mouse = {}
  370. UserInputService = {InputBegan=UISB.Event,InputEnded=UISE.Event}
  371. mouse.KeyDown = KD.Event
  372. mouse.KeyUp = KU.Event
  373. mouse.Button1Down = B1D.Event
  374. mouse.Button1Up = B1U.Event
  375. mouse.Button2Down = B2D.Event
  376. mouse.Button2Up = B2U.Event
  377. mouse.Hit = Ht
  378. mouse.Target = nil
  379.  
  380. Remote.OnClientEvent:Connect(function(request,key)
  381. if request == 'KeyDown' then
  382. KD:Fire(key)
  383. elseif request == 'KeyUp' then
  384. KU:Fire(key)
  385. elseif request == 'Button1Down' then
  386. B1D:Fire()
  387. elseif request == 'Button1Up' then
  388. B1U:Fire()
  389. elseif request == 'Button2Down' then
  390. B2D:Fire()
  391. elseif request == 'Button2Up' then
  392. B2U:Fire()
  393. elseif request == 'Hit' then
  394. mouse.Hit = key
  395. elseif request == 'Target' then
  396. mouse.Target = key
  397. elseif request == 'UISBegan' then
  398. UISB:Fire(key)
  399. elseif request == 'UISEnded' then
  400. UISE:Fire(key)
  401. end
  402. end)
  403. wait(0.2)
  404. ]=], CurrentGui);
  405. WeldRemote:FireAllClients(welds)
  406. end)
  407. rplr.CharacterAdded:Connect(function()
  408. for i,v in pairs(game.Players:GetPlayers())do
  409. if v.PlayerGui:FindFirstChild("Rep") then
  410. v.PlayerGui.Rep:Destroy()
  411. end
  412. script:Destroy()
  413. end
  414. end)
  415.  
  416. fakechar:Destroy()
  417.  
  418.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement