Advertisement
DerpyFox

sd

Jul 2nd, 2020
595
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.98 KB | None | 0 0
  1. local library = loadstring(game:HttpGet("https://pastebin.com/raw/kZ20MNui", true))()
  2. local w = library:CreateWindow('WoM')
  3. -- U CAN CHANGE FROM HERE
  4. w:Section('Functions')
  5. local b = w:Button("Inf Stamina", function()
  6. game:GetService("Players").LocalPlayer.bin.Stamina.Changed:Connect(function()
  7. game:GetService("Players").LocalPlayer.bin.Stamina.Value = ((game:GetService("Players").LocalPlayer.bin.MaxStamina.Value-1)*5)+30
  8. end)
  9. end)
  10. local d = w:Button("Remove Cuffs", function()
  11. local plr = game.Players.LocalPlayer.Name
  12. game.Workspace[plr].Jailed:Destroy()
  13. end)
  14. local c = w:Button("Inf Money(700 max)", function()
  15. -- INFINITE MONEY
  16. local Player = game:GetService("Players").LocalPlayer
  17. local Npc = game:GetService("Workspace").NPCs
  18. local Event = game:GetService("ReplicatedStorage").RS.Remotes.Misc.TailorChange
  19. local CharacterData = Player.Character.Data.CharacterData.Value
  20. local Tailors = {}
  21.  
  22.  
  23. local function TailorFinder()
  24. for i,v in pairs(Npc:GetDescendants()) do
  25. if v.Name == "Job" then
  26. if v.Value == "Tailor" then
  27. table.insert(Tailors, v.Parent.Parent)
  28. end
  29. end
  30. end
  31. end
  32. TailorFinder()
  33.  
  34. Event:InvokeServer(tostring(CharacterData), Tailors[1], -700)
  35. end)
  36. local e = w:Button("God Mode (only npcs)", function()
  37. -- GOD MODE
  38. local mt = getrawmetatable(game)
  39. setreadonly(mt, false)
  40. local old = mt.__namecall
  41. lplr = game:GetService("Players").LocalPlayer.Character
  42. mt.__namecall = newcclosure(function(o, ...)
  43. local remotename = tostring(o)
  44. local method = getnamecallmethod()
  45.  
  46. if method == "FireServer" or method == "InvokeServer" then
  47. if remotename == "DealWeaponDamage" or remotename == "DealAttackDamage" then
  48. packed = {...}
  49. if packed[2] == lplr then
  50.  
  51. packed[2] = nil
  52.  
  53. return old(o, unpack(packed))
  54.  
  55. end
  56. end
  57. end
  58.  
  59. return old(o, ...)
  60.  
  61. end)
  62. end)
  63. local t = w:Button("Click Tp (key:b)", function()
  64. --CLICK TP
  65. plr = game.Players.LocalPlayer
  66. hum = plr.Character.HumanoidRootPart
  67. mouse = plr:GetMouse()
  68.  
  69. mouse.KeyDown:connect(function(key)
  70. if key == "b" then
  71. if mouse.Target then
  72. hum.CFrame = CFrame.new(mouse.Hit.x, mouse.Hit.y + 5, mouse.Hit.z)
  73. end
  74. end
  75. end)
  76. end)
  77. local Toggle = w:Toggle("Chest Farm", {flag = "ChestFarm1"})
  78. spawn(
  79. function() --Makes this a new loop within the running script so it doesn't interfere with the rest of the script
  80. while wait(1) do
  81. if w.flags.ChestFarm1 then
  82. -- Chest AutoFarm
  83. -- Settings
  84. local speed = 60
  85.  
  86. -- Variable
  87. local player = game.Players.LocalPlayer
  88. local rs = game:GetService("RunService")
  89.  
  90. -- Find Nearest
  91. function bonk()
  92. local Closest
  93. local D = math.huge
  94. local shid = workspace.Map:GetDescendants()
  95. for i = 1, #shid do local v = shid[i]
  96. if v.Name == "Chest" and v:FindFirstChild("Base") and pcall(function() return player.Character.HumanoidRootPart,player.Character.Humanoid end) and not v:FindFirstChild("Open") then
  97. local newD = player:DistanceFromCharacter(v.Base.Position)
  98. if newD < D then
  99. Closest = v.Base
  100. D = newD
  101. end
  102. end
  103. end
  104. return Closest
  105. end
  106.  
  107. -- Skeet
  108. local near = bonk()
  109. if typeof(near) == "Instance" then
  110. repeat
  111. game:GetService("TweenService"):Create(player.Character.HumanoidRootPart, TweenInfo.new(player:DistanceFromCharacter(near.Position)/speed, Enum.EasingStyle.Linear), {CFrame = near.CFrame}):Play()
  112. wait(player:DistanceFromCharacter(near.Position)/speed)
  113. game.ReplicatedStorage.RS.Remotes.Misc.OpenChest:FireServer(near.Parent)
  114. wait(.1)
  115. until near.Parent:FindFirstChild("Open")
  116. end
  117. wait(.25)
  118. end
  119. end
  120. end
  121. )
  122. local Toggle1 = w:Toggle("Hide Name", {flag = "HideName1"})
  123. spawn(
  124. function() --Makes this a new loop within the running script so it doesn't interfere with the rest of the script
  125. while wait(1) do
  126. if w.flags.HideName1 then
  127. game:GetService("Players").LocalPlayer.Character.Head:WaitForChild("Overhead"):Destroy()
  128. end
  129. end
  130. end
  131. )
  132. w:Section('Credits:')
  133. w:Section('0x45#8396')
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement