Advertisement
Vzurxy

arsenal api

Aug 3rd, 2019
611
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 5.91 KB | None | 0 0
  1. --[[
  2.     tostring was here
  3.     feel free to make edits
  4.     credit me on release
  5.     don't skid shit from here and sell it otherwise i'll crack your script and release it
  6. --]]
  7. local plr = game:service("Players").LocalPlayer
  8. local mouse = plr:GetMouse()
  9. local rs = game:service("RunService")
  10. local rest = game:service("ReplicatedStorage")
  11. local mt = getrawmetatable(game)
  12. local oldIndex = mt.__index
  13. local oldNamecall = mt.__namecall
  14. local oldNewindex = mt.__newindex
  15. local hammerunit2stud = 0.0694
  16. setreadonly(mt, false)
  17. local function getclientscript()
  18.     return plr.PlayerGui.GUI.Client
  19. end
  20. local speedbackup = getsenv(getclientscript()).speedupdate
  21.  
  22.  
  23.  
  24. local function fakehitbox()
  25.     local hitbox = plr.Character.Hitbox
  26.     local clone = hitbox:Clone()
  27.     hitbox:Destroy()
  28.     clone.Parent = plr.Character
  29. end
  30.  
  31. local function nohitbox()
  32.     plr.Character.Hitbox:Destroy()
  33. end
  34.  
  35. local function destroygunanimations()
  36.     for _,v in next, workspace.Camera.Arms:GetChildren() do
  37.         if v:IsA("Animation") or v:IsA("AnimationController") then
  38.             v:Destroy()
  39.         end
  40.     end
  41. end
  42.  
  43. local function destroyarms()
  44.     local left = workspace.Camera.Arms.CSSArms["Left Arm"]
  45.     local right = workspace.Camera.Arms.CSSArms["Right Arm"]
  46.     for _,v in next, left:GetChildren() do
  47.         v:Destroy()
  48.     end
  49.     for _,v in next, right:GetChildren() do
  50.         v:Destroy()
  51.     end
  52. end
  53.  
  54. local function destroyflash()
  55.     workspace.Camera.Arms.Flash:Destroy()
  56. end
  57.  
  58. local function panic(enable) --bool
  59.     for _,v in next, workspace.Camera.Arms:GetChildren() do
  60.         if v:IsA("BasePart") then
  61.             v.CanCollide = enable
  62.         end
  63.     end
  64. end
  65.  
  66. local function weaponslide(enable) --bool
  67.     workspace.Camera.Arms["Left Arm"].CanCollide = enable
  68.     workspace.Camera.Arms["Right Arm"].CanCollide = enable
  69. end
  70.  
  71. local function jointeam(teamname) --example: TGC(G = green), TBC(B = blue), etc for every team. "Random for FFA"
  72.     game:GetService("ReplicatedStorage").Events.JoinTeam:FireServer(teamname)
  73. end
  74.  
  75. local function changecamera(ct) --CameraType
  76.     workspace.Camera.CameraType = ct
  77. end
  78.  
  79. local function turnonserver(angle) -- normal angles are from -1 to 1. However they can be expanded, for example math.huge would make your head unhittable
  80.     game:GetService("ReplicatedStorage").Events.ControlTurn:FireServer(angle)
  81. end
  82.  
  83. local function respawn()
  84.     game:GetService("ReplicatedStorage").Events.SpawnMe:FireServer()
  85. end
  86.  
  87. local function die()
  88.     plr.Character.Head:Destroy()
  89. end
  90.  
  91. local function removehead()
  92.     plr.Character.FakeHead:Destroy()
  93. end
  94.  
  95. local function naked()
  96.     plr.Character.Shirt:Destroy()
  97.     plr.Character.Pants:Destroy()
  98. end
  99.  
  100. local function removehats()
  101.     for _,v in next, plr.Character:GetChildren() do
  102.         if v:IsA("Accessory") then
  103.             v:Destroy()
  104.         end
  105.     end
  106. end
  107.  
  108. local function removeleadershine()
  109.     plr.Character.UpperTorso.TeamLeader:Destroy()
  110. end
  111.  
  112. local function destroywaist()
  113.     plr.Character.UpperTorso.Waist:Destroy()
  114. end
  115.  
  116. local function goinvis()
  117.     destroywaist()
  118.     plr.Character.LowerTorso:Destroy()
  119.     plr.Character.RightUpperLeg:Destroy()
  120.     plr.Character.RightLowerLeg:Destroy()
  121.     plr.Character.RightFoot:Destroy()
  122.     plr.Character.LeftFoot:Destroy()
  123.     plr.Character.LeftUpperLeg:Destroy()
  124.     plr.Character.LeftLowerLeg:Destroy()
  125. end
  126.  
  127. local function removemapkillers()
  128.     for _,v in next, workspace.Map.Killers:GetChildren() do
  129.         v:Destroy()
  130.     end
  131. end
  132.  
  133. local function hookwalkspeed(ws) --int
  134.     getsenv(getclientscript()).speedupdate = function() plr.Character.Humanoid.WalkSpeed = ws end
  135. end
  136.  
  137. local function nocamshake() -- aka norecoil
  138.     getsenv(getclientscript()).ShakeCam = function() end
  139. end
  140.  
  141. local function maxclipammo(amount) --int
  142.     getsenv(getclientscript()).getammo = function() return amount end
  143. end
  144.  
  145. local function editclip(amount) --int
  146.     for i = 1,4 do
  147.         if i == 1 then
  148.             getsenv(getclientscript()).ammocount = amount
  149.         else
  150.             local thing = "ammocount" .. i
  151.             getsenv(getclientscript())[thing] = amount
  152.         end
  153.     end
  154. end
  155.  
  156. local function givebat()
  157.     plr.Name = "DevRolve"
  158.     getsenv(getclientscript()).isadmin = true
  159.     getsenv(getclientscript()).ischad = true
  160.     getsenv(getclientscript()).givetools()
  161. end
  162.  
  163. local function givefastcuffs()
  164.     plr.Name = "mightybaseplate"
  165.     getsenv(getclientscript()).isadmin = true
  166.     getsenv(getclientscript()).ischad = true
  167.     getsenv(getclientscript()).givetools()
  168. end
  169.  
  170. local function spooflevel(lvl) --int note: spoofs on client only, you're going to have to apply the gun on the server using the applygun remote
  171.     plr.Status.Level.Value = lvl
  172. end
  173.  
  174. local function givecreagle()
  175.     getsenv(getclientscript()).isadmin = true
  176.     getsenv(getclientscript()).ischad = true
  177.     mt.__namecall = function(t, ...)
  178.         local args = {...}
  179.         local method = args[#args]
  180.        
  181.         if method == "GetRankInGroup" then
  182.             return 255
  183.         end
  184.  
  185.         if method == "IsInGroup" then
  186.             return true
  187.         end
  188.  
  189.         if method == "FireServer" then
  190.             if t.Name == "ApplyGun" and args[1] == rest.Weapons["Golden Creagle"] then
  191.                 return print("anti-anti-creagle")
  192.             end
  193.         end
  194.        
  195.         return oldNamecall(t, ...)
  196.     end
  197.     getsenv(getclientscript()).givetools()
  198. end
  199.  
  200. local function chat(message,teamonly,idk,dead) --string,bool,bool,bool
  201.     local unpackme =
  202.     {
  203.         message,
  204.         teamonly,
  205.         idk,
  206.         dead
  207.     }
  208.     game:GetService("ReplicatedStorage").Events.PlayerChatted:FireServer(unpack(unpackme))
  209. end
  210.  
  211. local function nospread()
  212.     mt.__index = function(t, k)
  213.         if typeof(t) == "Instance" and  k == "Value" then    
  214.             if oldIndex(t, "Name") == "MaxSpread" then
  215.                 return 0
  216.             end
  217.             if oldIndex(t, "Name") == "Spread" then
  218.                 return 0
  219.             end
  220.         end
  221.         return oldIndex(t, k)
  222.     end
  223. end
  224.  
  225. local function createcreaglerocket(position) --Vector3
  226.     local unpackme =
  227.     {
  228.         "Rocket",
  229.         1000000000,
  230.         position, --mouse.hit.p
  231.         workspace.Camera.CFrame * CFrame.new(1, -0.45, 0),
  232.         100,
  233.         100,
  234.         1,
  235.         13.88,
  236.         "Golden Creagle",
  237.         plr.Character.Hitbox.Position,
  238.         false
  239.     }
  240.     game:GetService("ReplicatedStorage").Events.CreateProjectile:FireServer(unpack(unpackme))
  241. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement