Advertisement
Inforestly

Untitled

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