Advertisement
BjeffeHund

Untitled

Apr 5th, 2022 (edited)
113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.53 KB | None | 0 0
  1. --loadstring(game:HttpGet("https://pastebin.com/raw/EnvPuzX1", true))()
  2.  
  3. local Player = game:GetService("Players").LocalPlayer
  4.  
  5. loadstring(game:HttpGet('https://pastebin.com/raw/cwDSpepQ', true))()
  6. local Window = library:AddWindow("Lol")
  7. local Main_Tab = Window:AddTab("General")
  8. local Boss_Tab = Window:AddTab("Boss")
  9. local Killaura_Tab = Window:AddTab("Killaura")
  10. local Misc_Tab = Window:AddTab("Misc")
  11.  
  12. --// GENERAL TAB
  13.  
  14. local DoScript = false
  15. Main_Tab:AddSwitch("Enable Autofarm", function(Value)
  16. DoScript = Value
  17. end)
  18.  
  19. local GunOrSword = "Gun" --"Gun" = gun, "Sword" = sword
  20. local DropdownData_GunOrSword = Main_Tab:AddDropdown("Gun or Sword", function(Value)
  21. GunOrSword = Value
  22. end)
  23.  
  24. DropdownData_GunOrSword:Add("Gun")
  25. DropdownData_GunOrSword:Add("Sword")
  26.  
  27. local ChosenMob = ""
  28. Main_Tab:AddTextBox("Mob name (All mobs = All)", function(Value)
  29. ChosenMob = Value:lower()
  30. end)
  31.  
  32. --// BOSS TAB
  33.  
  34. local DoBoss = false
  35. Boss_Tab:AddSwitch("Boss Autofarm", function(Value)
  36. GunOrSword = "Gun"
  37. DoBoss = Value
  38. end)
  39.  
  40. local BossTeleporter = ""
  41. local DropdownData_Boss = Boss_Tab:AddDropdown("Boss name", function(Value)
  42. ChosenMob = Value:lower()
  43. BossTeleporter = Value .. " Teleporter"
  44. end)
  45.  
  46. DropdownData_Boss:Add("Fury Ruler")
  47. DropdownData_Boss:Add("Alpha Ruler")
  48. DropdownData_Boss:Add("Elemental Overlord")
  49. DropdownData_Boss:Add("Alpha Destructive Overlord")
  50. DropdownData_Boss:Add("Fury Destructive Overlord")
  51. DropdownData_Boss:Add("Overlord of Overlords")
  52. DropdownData_Boss:Add("Ascension Mage")
  53. DropdownData_Boss:Add("Space King")
  54. DropdownData_Boss:Add("Evil Tank Boss")
  55. DropdownData_Boss:Add("Chocolate Mutant")
  56.  
  57. --// KILLAURA TAB
  58.  
  59. local DoKillaura = false
  60. Killaura_Tab:AddSwitch("Killaura", function(Value)
  61. DoKillaura = Value
  62. end)
  63.  
  64. local KillauraRadius = 0
  65. Killaura_Tab:AddSlider("Killaura radius", function(Value)
  66. KillauraRadius = Value
  67. end, {
  68. ["min"] = 0,
  69. ["max"] = 300,
  70. })
  71.  
  72. --// MISC TAB
  73.  
  74. local Firerate = 60
  75. Misc_Tab:AddSlider("Shots per second", function(Value)
  76. Firerate = Value
  77. end, {
  78. ["min"] = 0,
  79. ["max"] = 60,
  80. })
  81.  
  82. Firerate = 40
  83.  
  84. local DistanceZ = 10
  85. Misc_Tab:AddSlider("Distance from mob (Z)", function(Value)
  86. DistanceZ = Value
  87. end, {
  88. ["min"] = 10,
  89. ["max"] = 100,
  90. })
  91.  
  92. local StandOnPart = Instance.new("Part")
  93. StandOnPart.Parent = workspace
  94. StandOnPart.Size = Vector3.new(30, 5, 30)
  95. StandOnPart.CFrame = CFrame.new(500, 500, 580)
  96. StandOnPart.Anchored = true
  97.  
  98. local Blacklist = {
  99. "DEAD DPS DUMMY R15",
  100. "DEAD DPS DUMMY R6",
  101. "Green Spirit",
  102. "Bomb Elf",
  103. "Elf",
  104. "Golden Elf"
  105. }
  106.  
  107. local function GetClosest()
  108. local Closest
  109. local Last = math.huge
  110.  
  111. local KillauraTable = {}
  112. for Index, Value in next, workspace.MobFolder:GetChildren() do
  113. if table.find(Blacklist, Value.Name) then --Readbility
  114. Value:Destroy()
  115. end
  116.  
  117. if ((ChosenMob == "all" or Value.Name:lower() == ChosenMob or Value.Name:lower():find(ChosenMob)) or DoKillaura) and Value:FindFirstChild("HumanoidRootPart") and Value:FindFirstChild("Head") and Value:FindFirstChildWhichIsA("Humanoid") and Value:FindFirstChildWhichIsA("Humanoid").Health > 0 then
  118.  
  119. local Dist = (Player.Character.HumanoidRootPart.Position - Value.HumanoidRootPart.Position).Magnitude
  120. if (DoKillaura and Dist <= KillauraRadius) or not DoKillaura then
  121. print("yee")
  122. if Last > Dist then
  123. Closest = Value
  124. Last = Dist
  125. end
  126. end
  127.  
  128. elseif Value:FindFirstChildWhichIsA("Humanoid") and Value:FindFirstChildWhichIsA("Humanoid").Health <= 0 then
  129. Value:Destroy()
  130. end
  131. end
  132.  
  133. return Closest
  134. end
  135.  
  136. local function IsSword(Tool)
  137. return Tool:FindFirstChild("Event")
  138. end
  139.  
  140. local Part1 = 0.4/0.5
  141. local Key = 15 * Part1 / 1 --Remote key for sword
  142. local Tool --We need it to be a global for our equip function to work
  143.  
  144. local function FireRemote()
  145. Tool = Player.Character:FindFirstChildWhichIsA("Tool")
  146. if Tool then
  147.  
  148. local Closest = GetClosest()
  149. if Closest then
  150. if GunOrSword == "Gun" then
  151. local Connection = getconnections(Player:GetMouse().Button1Down)
  152. local FoundNestedFunction = false
  153.  
  154. for _, Value in next, Connection do
  155. if Value.Function then
  156. for Index, Upvalue in next, getupvalues(Value.Function) do
  157. if type(Upvalue) == "function" then
  158.  
  159. for a, b in next, getupvalues(Upvalue) do
  160. if type(b) == "function" then
  161. FoundNestedFunction = true
  162. b()
  163. break
  164. end
  165. end
  166.  
  167. if not FoundNestedFunction then
  168. Upvalue()
  169. end
  170.  
  171. end
  172. end
  173. end
  174. end
  175.  
  176. else
  177.  
  178. local Dist = (Closest.HumanoidRootPart.Position - Player.Character.HumanoidRootPart.Position).Magnitude
  179. warn(Dist)
  180. if Dist <= 2 and IsSword(Tool) then
  181. Tool.Event:FireServer("Hit", Closest:FindFirstChildWhichIsA("Humanoid"), Key, nil, false, 0)
  182. Tool["Sword Swing"].ServerAnimationsSend:FireServer("Animation4", {
  183. "AnimationLength",
  184. 2.3,
  185. Key,
  186. false,
  187. nil,
  188. 0,
  189. Closest:FindFirstChildWhichIsA("Humanoid")
  190. })
  191. Tool.Handle.SwordHit:Play()
  192. end
  193. end
  194. end
  195. end
  196.  
  197. end
  198.  
  199. --Add other teleporters
  200.  
  201. local AscTrial = workspace:WaitForChild("Ascension Trial Maps"):WaitForChild("Evil Island")
  202. local AllEvents = workspace:WaitForChild("ALL EVENTS")
  203.  
  204. AscTrial:WaitForChild("Evil Tank Boss Teleporter").Parent = workspace.Overworld.SpawnBuilding["Boss Teleporters"]
  205. AscTrial:WaitForChild("Void Teleporter").Parent = workspace.Overworld.SpawnBuilding["Boss Teleporters"]
  206.  
  207. local TempPortal = AllEvents:WaitForChild("CHRISTMAS OVERWORLD"):WaitForChild("Chocolate Mutant Portal")
  208. TempPortal.Name = "Chocolate Mutant Teleporter"
  209. TempPortal.Parent = workspace.Overworld.SpawnBuilding["Boss Teleporters"]
  210.  
  211. local OldNamecall
  212. OldNamecall = hookmetamethod(game, "__namecall", function(Self, ...)
  213. local Args = {...}
  214.  
  215. if getnamecallmethod() == "FindPartOnRayWithIgnoreList" and Self == workspace and tostring(getcallingscript()) ~= "ControlModule" then
  216. local Target = GetClosest()
  217.  
  218. if Target then
  219. return Target.Head, Target.Head.Position
  220. end
  221. end
  222.  
  223. return OldNamecall(Self, unpack(Args))
  224. end)
  225.  
  226. Player.CharacterAdded:Connect(function(Char)
  227. Player.Backpack:WaitForChild(Tool.Name).Parent = Char
  228. end)
  229.  
  230. local FPSCount = 0
  231. game:GetService('RunService').Stepped:connect(function()
  232. if (DoScript or DoBoss or DoKillaura) and Player.Character and Player.Character:FindFirstChild("HumanoidRootPart") then
  233.  
  234. --For our fireremote function, so that we're getting the right script closure
  235. for Index, Value in next, Player.Character:GetChildren() do
  236. if Value:IsA("Tool") and Value:FindFirstChild("LocalScript") then
  237. Value.LocalScript.Disabled = false
  238. end
  239. end
  240.  
  241. for Index, Value in next, Player.Backpack:GetChildren() do
  242. if Value:IsA("Tool") and Value:FindFirstChild("LocalScript") then
  243. Value.LocalScript.Disabled = true
  244. end
  245. end
  246.  
  247. local Closest = GetClosest()
  248. if Closest then
  249. if GunOrSword == "Gun" then
  250. if DoBoss then
  251. Player.Character.HumanoidRootPart.CFrame = StandOnPart.CFrame * CFrame.new(0, 2, 0)
  252. Closest.HumanoidRootPart.CFrame = Player.Character.HumanoidRootPart.CFrame * CFrame.new(0, 15, DistanceZ)
  253. Closest.HumanoidRootPart.CanCollide = false
  254. else
  255. Closest.HumanoidRootPart.CFrame = Player.Character.HumanoidRootPart.CFrame * CFrame.new(0, 15, DistanceZ)
  256. end
  257. else
  258. Player.Character.HumanoidRootPart.CFrame = Closest.HumanoidRootPart.CFrame * CFrame.new(0, 0, 2)
  259. end
  260. else
  261. if DoBoss then
  262. local TelePad = workspace.Overworld.SpawnBuilding["Boss Teleporters"]:FindFirstChild(BossTeleporter)
  263. local TempTool = Player.Character:FindFirstChildWhichIsA("Tool")
  264.  
  265. if TempTool then
  266. TempTool.Parent = Player.Backpack
  267. end
  268.  
  269. Player.Character.HumanoidRootPart.CFrame = TelePad.NumberOfPlayers.CFrame
  270. fireclickdetector(TelePad.Button.ClickDetector)
  271.  
  272. if TempTool then
  273. TempTool.Parent = Player.Character
  274. end
  275. end
  276. end
  277.  
  278. FPSCount = FPSCount + 1
  279. if FPSCount >= 60 then
  280. FPSCount = 0
  281. end
  282.  
  283. if Firerate >= FPSCount then
  284. FireRemote()
  285. end
  286. end
  287. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement