API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 21st, 2020
2,278
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.34 KB | None | 0 0
raw download clone embed print report
  1. local vu = game:GetService("VirtualUser")
  2. game:GetService("Players").LocalPlayer.Idled:connect(function()
  3. vu:Button2Down(Vector2.new(0,0),workspace.CurrentCamera.CFrame)
  4. wait(1)
  5. vu:Button2Up(Vector2.new(0,0),workspace.CurrentCamera.CFrame)
  6. end)
  7.  
  8. local library = loadstring(game:HttpGet("https://pastebin.com/raw/EBSNtywp", true))()
  9.  
  10. local f = debug.getupvalues(require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.InputService).UpdateClickDelay)[1]
  11. repeat
  12. wait(.1)
  13. f = debug.getupvalues(require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.InputService).UpdateClickDelay)[1]
  14. until f ~= nil
  15. local Module = game:GetService("ReplicatedStorage").Assets.Modules.ImageService-- your module here
  16.  
  17. local pets = debug.getupvalues(require(Module))[1]
  18.  
  19. local farm = library:CreateWindow('Auto Farm')
  20.  
  21. local petlist = require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.PetModule)
  22. local raritys = {}
  23. local moneyz = require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.GuiService)
  24.  
  25. local currencys = {}
  26. local canafford = false
  27. for i,d in pairs(moneyz) do
  28. if string.find(i,"Changed") ~= nil then
  29. currencys[i:sub(1, #i-7)] = debug.getupvalues(d)[3]
  30. end
  31. end
  32. for i,d in pairs(petlist) do
  33. if d["Rarity"] ~= "Legendary" then
  34. raritys[d["Rarity"]] = true
  35. end
  36. end
  37. local eggs = library:CreateWindow('Auto Egg')
  38. local misc = library:CreateWindow('Misc')
  39. misc:Section("Swap")
  40. local tpyes = require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.WorldService)
  41. local worlds = {}
  42. for i,d in pairs(debug.getupvalue(tpyes.SetWorld,3)) do
  43. table.insert(worlds,i)
  44. end
  45. misc:Dropdown("World", {
  46. location = _G,
  47. flag = "world",
  48. list = worlds
  49. })
  50.  
  51. misc:Button('Swap World', function()
  52. if _G.world ~= nil then
  53. tpyes.SetWorld(tpyes,_G.world)
  54. end
  55. end)
  56. misc:Section("Unlock")
  57. misc:Button('Unlock Islands', function()
  58. for i , v in pairs(game:GetService("Workspace").FloatingIslands:GetChildren()) do
  59. if #v:GetChildren() > 0 then
  60. for i ,v in pairs(v:GetChildren()) do
  61. game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = v.Collision.CFrame
  62. wait(1)
  63. end
  64. end
  65. end
  66. end)
  67. misc:Section("Collect")
  68. misc:Button("Collect chests", function()
  69. for i,v in pairs(game:GetService("Workspace").FloatingIslands:GetDescendants()) do
  70. if v.Name == "Chest" and v.ClassName == "Model" then
  71. f["FireServer"](f, "TeleportToCheckpoint", v.Parent.Name)
  72. wait(0.25)
  73. repeat
  74. f["FireServer"](f, "CollectChestReward", v.Parent.Name)
  75. wait()
  76. until v.Regen.Enabled == true
  77. wait(0.25)
  78. end
  79. end
  80. end)
  81. misc:Section("Misc")
  82. local cccc = require(game:GetService("ReplicatedStorage").Assets.Modules.EggService)
  83. repeat
  84. wait()
  85. cccc = require(game:GetService("ReplicatedStorage").Assets.Modules.EggService)
  86. until cccc ~= nil
  87. local hat1 = cccc.HatchEgg
  88. local hat3 = cccc.MultiHatchEgg
  89. misc:Toggle('Skip Animation', {flag = "soa"},function(gh)
  90. cccc.HatchEgg = (gh == true and function()end or hat1)
  91. cccc.MultiHatchEgg = (gh == true and function()end or hat3)
  92. end)
  93.  
  94. local eggtps = {}
  95. local eggsnames = {}
  96. local egginfo = require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.EggModule)
  97. local crateinfo = require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.CrateModule)
  98. for i,d in pairs(require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.EggModule)) do
  99. if game.Workspace.Eggs:FindFirstChild(i) then
  100. eggtps[i] = game.Workspace.Eggs[i].Hotkey
  101. end
  102. table.insert(eggsnames, i)
  103. end
  104. for i,d in pairs(require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.CrateModule)) do
  105. if game.Workspace.Eggs:FindFirstChild(i) then
  106. eggtps[i] = game.Workspace.Eggs[i].Hotkey
  107. end
  108. table.insert(eggsnames, i)
  109. end
  110. local function ownsgamepass(userid,gamepassid)
  111. local mar = game:GetService"MarketplaceService"
  112. local s,res = pcall(mar.UserOwnsGamePassAsync,mar,userid,gamepassid)
  113. if not s then
  114. res = false
  115. end
  116. return res
  117. end
  118.  
  119. local triple = ownsgamepass(game.Players.LocalPlayer.UserId, 5502695)
  120. eggs:Section("Open Eggs")
  121. eggs:SearchBox("Egg", {
  122. location = eggs.flags,
  123. flag = "egg",
  124. list = eggsnames
  125. }, function()end)
  126.  
  127. eggs:Toggle('Buy Eggs', {flag = "eggs"})
  128. if triple then
  129. eggs:Toggle('Buy Eggs (3x)', {flag = "three"})
  130. end
  131. eggs:Section("Delete Pets")
  132. for i,d in pairs(raritys) do
  133. eggs:Toggle('Delete '..i, {flag = tostring(i)})
  134. end
  135. eggs:Toggle('Delete Easy Legendary',{flag = 'easyleg'})
  136. eggs:Section("Upgrade Pets")
  137.  
  138. eggs:Toggle('Make Pets Shiny', {flag = "shiny"})
  139.  
  140. eggs:Toggle('Enchant Pets', {flag = "upgrade"})
  141.  
  142. function toTarget(pos, targetPos, targetCFrame)
  143. local tween_s = game:service"TweenService"
  144. local info = TweenInfo.new((targetPos - pos).Magnitude/80, Enum.EasingStyle.Quad)
  145. local tic_k = tick()
  146. local tween, err = pcall(function()
  147. local tween = tween_s:Create(plr.Character["HumanoidRootPart"], info, {CFrame = targetCFrame})
  148. tween:Play()
  149. end)
  150. if not tween then return err end
  151. end
  152. spawn(function()
  153. while wait() do
  154. if eggs.flags.eggs == true or eggs.flags.three == true then
  155. if eggs.flags.egg ~= nil then
  156. if (egginfo[eggs.flags.egg] or crateinfo[eggs.flags.egg]) then
  157. local cost = (egginfo[eggs.flags.egg] or crateinfo[eggs.flags.egg]).Cost
  158. local e = 0
  159. if eggs.flags.three then
  160. e = cost[2]
  161. e = e * 3
  162. end
  163. if currencys[cost[1]] then
  164. if currencys[cost[1]].Value >= e then
  165. canafford = true
  166. if eggtps[eggs.flags.egg] then
  167. if game.Players.LocalPlayer.Character and game.Players.LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
  168. if (eggtps[eggs.flags.egg].Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).Magnitude > 10 then
  169. game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = CFrame.new(game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame.X,eggtps[eggs.flags.egg].Position.Y,game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame.Z)
  170. toTarget(game.Players.LocalPlayer.Character.HumanoidRootPart.Position,eggtps[eggs.flags.egg].Position,eggtps[eggs.flags.egg].CFrame)
  171. else
  172. if eggs.flags.three == true then
  173. f["FireServer"](f, "PurchaseEgg",eggs.flags.egg, 'Multi')
  174. else
  175. f["FireServer"](f, "PurchaseEgg",eggs.flags.egg)
  176. end
  177. end
  178. end
  179. end
  180. else
  181. canafford = false
  182. end
  183. else
  184. canafford = false
  185. end
  186. else
  187. canafford = false
  188. end
  189. else
  190. canafford = false
  191. end
  192. else
  193. canafford = false
  194. end
  195. end
  196. end)
  197. farm:Section("Farm")
  198. farm:Toggle('Auto-Bubble Blow', {flag = 'Bubble'})
  199.  
  200.  
  201. farm:Toggle('Auto-Sell', {flag = 'Sell'})
  202.  
  203. farm:Box('Radius', {
  204. flag = "Rad",
  205. type = 'number'
  206. })
  207. farm:Toggle("Farm Drops", {flag = 'Drops'})
  208. farm:Section("Minigames")
  209. farm:Toggle('Auto-Guess Pet', {flag = 'Guess'})
  210.  
  211. farm:Toggle('Friendly mode', {flag = 'Friendly'})
  212.  
  213.  
  214. farm:Credits()
  215.  
  216. spawn(function()
  217. while wait(.1) do
  218. if farm.flags.Bubble then
  219. if f then
  220. f['FireServer'](f,'BlowBubble')
  221. else
  222. f = debug.getupvalues(require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.InputService).UpdateClickDelay)[1]
  223. end
  224. end
  225. end
  226. end)
  227.  
  228. spawn(function()
  229. while wait(.1) do
  230. if farm.flags.Sell then
  231. local a = string.split(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.StatsFrame.Bubble.Amount.Text,'/')
  232. if a[1] == a[2] then
  233. f['FireServer'](f,"Teleport","Sell")
  234. wait(.1)
  235. f['FireServer'](f,'Sell')
  236. end
  237. end
  238. end
  239. end)
  240.  
  241.  
  242. game:GetService("Workspace").GuessThatPet.GuessThatPetBoard.SurfaceGui.Frame.Main.Pet.Changed:Connect(function ()
  243. if farm.flags.Guess then
  244. for i,d in pairs(pets) do
  245. if d == game:GetService("Workspace").GuessThatPet.GuessThatPetBoard.SurfaceGui.Frame.Main.Pet.Image then
  246. if farm.flags.Friendly then
  247. game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer(i, "All")
  248. end
  249. game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer(i, "All")
  250. end
  251. end
  252. end
  253. end)
  254.  
  255.  
  256.  
  257.  
  258. local range = 100
  259.  
  260. local plr = game.Players.LocalPlayer
  261. local char = plr.Character
  262. local root = char.HumanoidRootPart
  263.  
  264. function toTarget(pos, targetPos, targetCFrame)
  265. local tween_s = game:service"TweenService"
  266. local info = TweenInfo.new((targetPos - pos).Magnitude/50, Enum.EasingStyle.Quad)
  267. local tic_k = tick()
  268. local tween, err = pcall(function()
  269. local tween = tween_s:Create(plr.Character["HumanoidRootPart"], info, {CFrame = targetCFrame})
  270. tween:Play()
  271. end)
  272. if not tween then return err end
  273. end
  274.  
  275. --game:GetService('RunService').Stepped:connect(function()
  276. -- if farm.flags.Drops then
  277. -- game.Players.LocalPlayer.Character.Humanoid:ChangeState(11)
  278. -- end
  279. --end)
  280. local target = nil
  281. spawn(function ()
  282. while wait() do
  283. if farm.flags.Drops or target then
  284. game.Players.LocalPlayer.Character.Humanoid:ChangeState(11)
  285. end
  286. end
  287. end)
  288.  
  289. spawn(function()
  290. while wait(.2) do
  291. if farm.flags.Drops then
  292. local closest = nil
  293. local dis = math.huge
  294. for i , v in pairs(game.Workspace.Pickups:GetChildren()) do
  295. range = farm.flags.Rad
  296. if tonumber(range) ~= nil then
  297. if v:FindFirstChild('TouchInterest') and (root.Position-v.Position).magnitude <= tonumber(range) and (root.Position-v.Position).magnitude < dis and farm.flags.Drops and canafford ~= true then
  298. --root.CFrame = CFrame.new(root.CFrame.X,v.CFrame.Y,root.CFrame.Z)
  299. closest = v
  300. dis = (root.Position-v.Position).magnitude
  301. end
  302. end
  303. end
  304. if closest ~= nil and (target == nil or target.Parent == nil) then
  305. local dis = closest.CFrame.Y - root.CFrame.Y
  306. if dis < (closest.Size.Y * -1) or dis > closest.Size.Y then
  307. root.CFrame = CFrame.new(root.CFrame.X,closest.CFrame.Y + 2,root.CFrame.Z)
  308. end
  309. toTarget(root.Position,closest.Position + Vector3.new(0,2,0),closest.CFrame + Vector3.new(0,2,0))
  310. end
  311. end
  312. end
  313. end)
  314.  
  315. local Module = game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.GuiService-- your module here
  316. local gg = require(Module)
  317.  
  318.  
  319.  
  320.  
  321. local function GetRarity(name)
  322. local entry = petlist[name]
  323. if entry ~= nil then
  324. return petlist[name]['Rarity']
  325. else
  326. return "error"
  327. end
  328. end
  329.  
  330. local function Delete(Id)
  331. f['FireServer'](f,'DeletePet',Id)
  332. end
  333. repeat wait() until typeof(gg.TryShowPetsFrame) == "function"
  334. local get = debug.getupvalues(require(Module).TryShowPetsFrame)[3]["PetsFrame"]
  335. spawn(function ()
  336. while wait(30) do
  337. if eggs.flags.upgrade then
  338. for i = 0 , 50 , 1 do
  339. f["FireServer"](f, "EnchantPet", id)
  340. end
  341. end
  342. for i,d in pairs(get.Pets.Container.Frame:GetChildren()) do
  343. if d:FindFirstChild("GUID") then
  344. local id = d.GUID.Value
  345. local name = d.Inner.PetName.Text
  346. local rarity = GetRarity(name)
  347. if eggs.flags.shiny then
  348. local count = 0
  349. for te,tr in pairs(d.Parent:GetChildren()) do
  350. if tr:FindFirstChild("GUID") and tr.Inner.PetName.Text == name and not tr:FindFirstChild("Shine") then
  351. count = count + 1
  352. end
  353. end
  354. if count >= 10 then
  355. f["FireServer"](f, "MakePetShiny", id)
  356. end
  357. end
  358. end
  359. end
  360.  
  361. end
  362. end)
  363. local Eggs = require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.EggModule)
  364. local EasyLeg = {}
  365. for i , v in pairs(Eggs) do
  366. for i , v in pairs(v.Rarities) do
  367. if GetRarity(v[1]) == 'Legendary' and v[2] >= 0.1 then
  368. table.insert(EasyLeg,v[1])
  369. end
  370. end
  371. end
  372. local pn = require(game:GetService("ReplicatedStorage").Assets.Modules.Library.index)["PETS"]
  373. spawn(function()
  374. while wait(0.1) do
  375. local a = game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.GuiService
  376. local e = f:InvokeServer("GetPlayerData")
  377. for i,d in pairs(e[pn]) do
  378. local id = d[1]
  379. local name = d[2]
  380. local rarity = GetRarity(name)
  381. if eggs.flags[rarity] == true then
  382. Delete(id)
  383. elseif eggs.flags.easyleg then
  384. for i , v in pairs(EasyLeg) do
  385. if v == name then
  386. Delete(id)
  387. end
  388. end
  389. end
  390. end
  391. end
  392. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!