Adam_RBLX

Untitled

Dec 14th, 2022
197
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.10 KB | None | 0 0
  1.  
  2. local VLib = loadstring(game:HttpGet("https://gitlab.com/L1ZOT/test-project/-/raw/main/PJM-GUI"))()
  3. local Win = VLib:Window("Project Meow", "Mining Simulator 2")
  4. local Autofarm = Win:Tab("Autofarm")
  5. local TabEgg = Win:Tab("Eggs")
  6. local Misc = Win:Tab("Misc")
  7. local Teleport = Win:Tab("Teleport")
  8. local Credits = Win:Tab("Credits")
  9.  
  10. local Player = game.Players.LocalPlayer
  11. local TweenService = game:GetService("TweenService")
  12. local LoadModules = require(game.ReplicatedStorage.LoadModule);
  13.  
  14. getgenv().v2 = require(game:GetService("ReplicatedStorage").LoadModule)
  15. getgenv().u6 = v2("ChunkUtil")
  16. getgenv().v3 = v2("Constants")
  17. getgenv().v4 = v3.CellSize * v3.ChunkSize
  18.  
  19. local MainData = game:GetService("RunService"):IsServer() and LoadModules("DataService") or LoadModules("LocalData");
  20.  
  21. Misc:Button("Get Gamepasses (Some Are Visual)", function()
  22. local PassesMod = MainData:GetData("Passes");
  23. PassesMod["Fast Hatch"] = true
  24. PassesMod["MS1Lucky Gamepass"] = true
  25. PassesMod["Infinity Backpack"] = false -- KEPP AT FALSE
  26. PassesMod["MS1Quantum Storage"] = true
  27. PassesMod["Triple Hatch"] = true
  28. PassesMod["Teleporter"] = true
  29. PassesMod["MS1Auto Egg Equip"] = true
  30. PassesMod["MS1Private Mine"] = true
  31. PassesMod["VIP"] = true
  32. PassesMod["Lucky Pass"] = true
  33. PassesMod["MS1Nuke"] = true
  34. PassesMod["2x Gems"] = true
  35. PassesMod["Omega Nuke"] = true
  36. PassesMod["MS12x Dig"] = true
  37. PassesMod["Stronger Pickaxe"] = true
  38. PassesMod["Omega Scythe"] = true
  39. PassesMod["MS12x Shiny Chance"] = true
  40. PassesMod["Small Storage"] = true
  41. PassesMod["More Pets!"] = true
  42. PassesMod["MS12x Tokens"] = true
  43. PassesMod["MS1Teleporter Pad"] = true
  44. PassesMod["Medium Storage"] = true
  45. PassesMod["MS1VIP"] = true
  46. PassesMod["MS1Collapse Meter"] = true
  47. PassesMod["Large Storage"] = true
  48. PassesMod["MS1Mythical Scythe"] = true
  49. PassesMod["MS1Sprint"] = true
  50. end)
  51.  
  52. Autofarm:Toggle("Farm Mouse Pointing", false, function(t)
  53. StartMousePointing = t
  54. end)
  55.  
  56. spawn(function()
  57. while task.wait() do
  58. if StartMousePointing then
  59. pcall(function()
  60. local Workspace = game:GetService("Workspace")
  61. local Module = require(game:GetService("ReplicatedStorage").LoadModule)
  62. local Constants = Module("Constants")
  63. local newRaycast = RaycastParams.new()
  64. newRaycast.CollisionGroup = Constants.CollisionGroups.MineRaycast
  65. local UserInputService = game:GetService("UserInputService")
  66. local CurrentCamera = Workspace.CurrentCamera
  67. local ChunkUtil = Module("ChunkUtil")
  68. local MousePos = UserInputService:GetMouseLocation()
  69.  
  70. local GetPartPos = Workspace:Raycast(CurrentCamera.CFrame.Position, CurrentCamera:ViewportPointToRay(MousePos.x, MousePos.y).Direction.Unit * 150, newRaycast);
  71. local FinalPos = GetPartPos.Position - GetPartPos.Normal;
  72.  
  73. local CellId = ChunkUtil.worldToCell(FinalPos)
  74. game:GetService("ReplicatedStorage").Events.MineBlock:FireServer(CellId)
  75. end)
  76. end
  77. end
  78. end)
  79.  
  80. Autofarm:Toggle("Blox Aura", false, function(t)
  81. BloxAura = t
  82. end)
  83.  
  84. Autofarm:Slider("Chunk Refreshing Speed",0,10,10, function(t)
  85. getgenv().Chunk_Refresh = t
  86. end)
  87.  
  88. spawn(function()
  89. while task.wait(.7) do
  90. if BloxAura then
  91. pcall(function()
  92.  
  93. for i,v in pairs(game:GetService("Workspace").Chunks:GetChildren()) do
  94. for i,v in pairs(v:GetChildren()) do
  95. if v3.MaxSelectionDistance > (v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).Magnitude then
  96. local a = v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position * math.random(0.1, 0.001)
  97. CID2 = a
  98. local convert2 = u6.worldToCell(a - Vector3.new(0,-1,0))
  99.  
  100. game:GetService("ReplicatedStorage").Events.MineBlock:FireServer(convert2)
  101. task.wait(0.001)
  102. end
  103. end
  104. end
  105.  
  106. -- local convert = u6.worldToChunkId(CID2 - Vector3.new(0,1,0))
  107.  
  108. -- for i,v in pairs(game:GetService("Workspace").Chunks[convert]:GetChildren()) do
  109. -- if v3.MaxSelectionDistance > (v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).Magnitude then
  110. -- local a = v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position * math.random(0.1, 0.001)
  111. -- CID = a
  112. -- local nande = u6.worldToCell(CID)
  113. -- -- print(nande)
  114. -- game:GetService("ReplicatedStorage").Events.MineBlock:FireServer(nande)
  115. -- task.wait(0.1)
  116. -- end
  117. -- end
  118. end)
  119. end
  120. end
  121. end)
  122.  
  123. -- spawn(function()
  124. -- while task.wait(.7) do
  125. -- if BloxAura then
  126. -- pcall(function()
  127.  
  128. -- getgenv().b = nil
  129. -- getgenv().CID = 0
  130. -- -- / math.random(2,80)
  131. -- for i,v in pairs(game:GetService("Workspace").Chunks:GetChildren()) do
  132. -- for i,v in pairs(v:GetChildren()) do
  133. -- if v3.MaxSelectionDistance > (v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).Magnitude then
  134. -- local a = v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position * math.random(0.1, 0.001)
  135. -- -- CID = u6.worldToCell(a)
  136. -- CID2 = u6.worldToChunkId(a)
  137. -- -- print(CID)
  138. -- print(CID2)
  139. -- -- game:GetService("ReplicatedStorage").Events.MineBlock:FireServer(CID)
  140. -- -- end
  141. -- task.wait(0.001)
  142. -- end
  143. -- end
  144. -- end
  145. -- wait(getgenv().Chunk_Refresh)
  146. -- -- local v6, v7 = v3.CellSize, v3.ChunkSize
  147. -- end)
  148. -- end
  149. -- end
  150. -- end)
  151.  
  152. -- local ohString1 = "Tool"
  153. -- local ohString2 = "Firebane"
  154.  
  155. -- game:GetService("ReplicatedStorage").Events.PurchaseRebirthShopItem:FireServer(ohString1, ohString2)
  156.  
  157.  
  158. Autofarm:line()
  159.  
  160. local Ore_Table = {}
  161. for i,v in pairs(game:GetService("ReplicatedStorage").Assets.BlockDecorations:GetChildren()) do
  162. table.insert(Ore_Table, v.Name)
  163. end
  164.  
  165. Autofarm:Dropdown("Select target", Ore_Table, function(t)
  166. Select_Ore = t
  167. end)
  168.  
  169. Autofarm:Toggle("Target Selected Block", false, function(t)
  170. StartSelOre = t
  171. end)
  172.  
  173. spawn(function()
  174. while task.wait() do
  175. if StartSelOre then
  176. pcall(function()
  177. -- local plr = game:GetService("Players").LocalPlayer
  178. -- local startPos = plr.Character.HumanoidRootPart
  179. -- local endPos
  180. -- local Module = require(game:GetService("ReplicatedStorage").LoadModule)
  181. -- local ChunkUtil = Module("ChunkUtil")
  182. -- local Constants = Module("Constants")
  183. -- local newRaycast = RaycastParams.new()
  184. -- newRaycast.CollisionGroup = Constants.CollisionGroups.MineRaycast
  185.  
  186. -- for i,v in pairs(game:GetService("Workspace").Decoration:GetChildren()) do
  187. -- if v.Name == Select_Ore then
  188. -- endPos = v
  189. -- end
  190. -- end
  191.  
  192. -- local result = game.workspace:Raycast(startPos.Position, endPos.Position - startPos.Position, newRaycast)
  193. -- local ffs = result.Position - result.Normal
  194. -- game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = endPos.CFrame
  195.  
  196. -- local CellId = ChunkUtil.worldToCell(ffs)
  197. -- game:GetService("ReplicatedStorage").Events.MineBlock:FireServer(CellId)
  198.  
  199. getgenv().b = nil
  200. getgenv().CID = 0
  201. -- / math.random(2,80)
  202. for i,v in pairs(game:GetService("Workspace").Decoration:GetChildren()) do
  203. if v.Name == Select_Ore then
  204. -- game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = CFrame.new(141.009644, -15000, -110.048203, 1, 0, 0, 0, 1, 0, 0, 0, )
  205. if 10 > (v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).Magnitude then
  206. game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = v.CFrame
  207. local h = v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position * math.random(0.1, 0.001)
  208. CGI = u6.worldToCell(h)
  209. print(CGI)
  210. game:GetService("ReplicatedStorage").Events.MineBlock:FireServer(CGI)
  211. end
  212. end
  213. end
  214. -- for i,v in pairs(v:GetChildren()) do
  215. -- if 5 > (v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).Magnitude then
  216. -- local a = v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position * math.random(0.1, 0.001)
  217. -- CID = u6.worldToCell(a)
  218. -- -- CID2 = u6.worldToChunkId(a)
  219. -- -- print(CID)
  220. -- -- print(CID2)
  221. -- game:GetService("ReplicatedStorage").Events.MineBlock:FireServer(CID)
  222. -- -- end
  223. -- task.wait(0.001)
  224. -- end
  225. -- end
  226. -- end
  227.  
  228. end)
  229. end
  230. end
  231. end)
  232.  
  233. Autofarm:line()
  234.  
  235. spawn(function()
  236. local test = require(game:GetService("ReplicatedStorage").SharedModules.Helpers.ToolCanMineBlock)
  237.  
  238. test = function() return true end
  239. end)
  240.  
  241. local SellAreas = {}
  242. for i,v in pairs(game:GetService("Workspace").Teleports:GetChildren()) do
  243. if string.find(v.Name, "Sell") then
  244. table.insert(SellAreas, v.Name)
  245. end
  246. end
  247.  
  248. Autofarm:Dropdown("Select Sell Location", SellAreas, function(t)
  249. Select_Sell_Location = t
  250. end)
  251.  
  252. Autofarm:Toggle("Auto Sell", false, function(t)
  253. Autosell = t
  254. end)
  255. spawn(function()
  256. while task.wait() do
  257. if Autosell then
  258. pcall(function()
  259. local v8 = require(game.ReplicatedStorage.LoadModule);
  260. local v19 = v8("GetBackpackStatus");
  261. local v59 = v19();
  262. if v59.Full then
  263. print("sold")
  264. game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = game:GetService("Workspace").Teleports[Select_Sell_Location].CFrame
  265. game:GetService("ReplicatedStorage").Events.Teleport:FireServer(Select_Sell_Location)
  266. end
  267.  
  268. -- local a = game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.HUD.Left.Backpack.Label.Text
  269. -- if string.match(a, "(.+) / .+") == string.match(a, ".+ / (.+)") then
  270. -- print("sold")
  271. -- game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = game:GetService("Workspace").Teleports[Select_Sell_Location].CFrame
  272. -- -- game:GetService("ReplicatedStorage").Events.Teleport:FireServer(Select_Sell_Location)
  273. -- else
  274. -- end
  275. end)
  276. end
  277. end
  278. end)
  279.  
  280. Autofarm:Toggle("X-ray (Lag)", false, function(t)
  281. startX_Ray = t
  282. end)
  283.  
  284. spawn(function()
  285. while wait() do
  286. if startX_Ray then
  287. pcall(function()
  288. for i,v in pairs(game:GetService("Workspace").Chunks:GetChildren()) do
  289. for i,v in pairs(v:GetChildren()) do
  290. if v3.MaxSelectionDistance > (v.Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).Magnitude then
  291. v.Transparency = 0.7
  292. task.wait(0.001)
  293. end
  294. end
  295. end
  296. end)
  297. end
  298. end
  299. end)
  300.  
  301. Autofarm:line()
  302.  
  303. local Lock_Ore_Table = {}
  304. for i,v in pairs(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.Inventory.Frame.Container.Ores.Content.Frame.Items:GetChildren()) do
  305. if v.ClassName == "Frame" then
  306. table.insert(Lock_Ore_Table, v.Name)
  307. end
  308. end
  309.  
  310. Autofarm:Checklist("Select Ore Lock", "selore", Lock_Ore_Table, function(t)
  311. Sel_OreLock = t
  312. end)
  313.  
  314. Autofarm:Toggle("Auto Lock Selected Ore", false, function(t)
  315. Auto_Lock_Ore = t
  316. end)
  317.  
  318. spawn(function()
  319. while wait() do
  320. if Auto_Lock_Ore then
  321. pcall(function()
  322. for i2,v2 in pairs(checklists["selore"].Value) do
  323. if game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.Inventory.Frame.Container.Ores.Content.Frame.Items[v2].Frame.Locked.Visible then
  324.  
  325. else
  326. local ohString1 = v2
  327. game:GetService("ReplicatedStorage").Events.LockOre:FireServer(ohString1)
  328. end
  329. end
  330. end)
  331. end
  332. end
  333. end)
  334.  
  335. local Eggs_Table = {}
  336. for i,v in pairs(game:GetService("Workspace").Eggs:GetChildren()) do
  337. table.insert(Eggs_Table, v.Name)
  338. end
  339.  
  340. TabEgg:Dropdown("Select Egg", Eggs_Table, function(t)
  341. Slected_Egg = t
  342. end)
  343.  
  344. TabEgg:Toggle("Auto Open Selected Egg", false, function(t)
  345. AutoOpen_Sel_Egg = t
  346. end)
  347.  
  348. spawn(function()
  349. while task.wait() do
  350. if AutoOpen_Sel_Egg then
  351. pcall(function()
  352. -- game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = game:GetService("Workspace").Eggs[Slected_Egg].EggName.CFrame
  353. end)
  354. end
  355. end
  356. end)
  357.  
  358. spawn(function()
  359. while task.wait() do
  360. if AutoOpen_Sel_Egg then
  361. pcall(function()
  362. game:GetService("ReplicatedStorage").Events.OpenEgg:FireServer(Slected_Egg)
  363. end)
  364. end
  365. end
  366. end)
  367.  
  368. spawn(function()
  369. while game:GetService("RunService").Heartbeat:wait() do
  370. if AutoOpen_Sel_Egg then
  371. pcall(function()
  372. if not game:GetService("Workspace"):FindFirstChild("ManahubPart") then
  373. local ManahubPart = Instance.new("Part")
  374. ManahubPart.Name = "ManahubPart"
  375. ManahubPart.Parent = game.Workspace
  376. ManahubPart.Anchored = true
  377. ManahubPart.Transparency = 1
  378. ManahubPart.Size = Vector3.new(30,-0.5,30)
  379. elseif game:GetService("Workspace"):FindFirstChild("ManahubPart") then
  380. game.Workspace["ManahubPart"].CFrame = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame * CFrame.new(0, -3.6, 0)
  381. end
  382. end)
  383. else
  384. if game:GetService("Workspace"):FindFirstChild("ManahubPart") then
  385. game.Workspace.ManahubPart.CFrame = CFrame.new(0,0,0)
  386. end
  387. end
  388. end
  389. end)
  390.  
  391. Misc:Toggle("Auto Buy Tools", false, function(t)
  392. AutoTool = t
  393. end)
  394.  
  395. spawn(function()
  396. while task.wait() do
  397. if AutoTool then
  398. pcall(function()
  399. for i,v in pairs(game:GetService("ReplicatedStorage").Assets.Tools:GetChildren()) do
  400. local ohString1 = "SurfaceTools"
  401. local ohNumber2 = i
  402. game:GetService("ReplicatedStorage").Events.PurchaseShopItem:FireServer(ohString1, ohNumber2)
  403. local ohString1 = "MoltenTools"
  404. local ohNumber2 = i
  405. game:GetService("ReplicatedStorage").Events.PurchaseShopItem:FireServer(ohString1, ohNumber2)
  406. local ohString1 = "FrozenTools"
  407. local ohNumber2 = i
  408. game:GetService("ReplicatedStorage").Events.PurchaseShopItem:FireServer(ohString1, ohNumber2)
  409. local ohString1 = "CyberTools"
  410. local ohNumber2 = 1
  411. game:GetService("ReplicatedStorage").Events.PurchaseShopItem:FireServer(ohString1, ohNumber2)
  412. end
  413. end)
  414. end
  415. wait(1)
  416. end
  417. end)
  418.  
  419. Misc:Toggle("Auto Buy BackPacks", false, function(t)
  420. AutoBackPacks = t
  421. end)
  422.  
  423. spawn(function()
  424. while task.wait() do
  425. if AutoBackPacks then
  426. pcall(function()
  427. for i,v in pairs(game:GetService("ReplicatedStorage").Assets.Backpacks:GetChildren()) do
  428. local ohString1 = "SurfaceBackpacks"
  429. local ohNumber2 = i
  430. game:GetService("ReplicatedStorage").Events.PurchaseShopItem:FireServer(ohString1, ohNumber2)
  431. local ohString1 = "MoltenBackpacks"
  432. local ohNumber2 = i
  433. game:GetService("ReplicatedStorage").Events.PurchaseShopItem:FireServer(ohString1, ohNumber2)
  434. local ohString1 = "FrozenBackpacks"
  435. local ohNumber2 = i
  436. game:GetService("ReplicatedStorage").Events.PurchaseShopItem:FireServer(ohString1, ohNumber2)
  437. local ohString1 = "CyberBackpacks"
  438. local ohNumber2 = i
  439. game:GetService("ReplicatedStorage").Events.PurchaseShopItem:FireServer(ohString1, ohNumber2)
  440. end
  441. end)
  442. end
  443. wait(1)
  444. end
  445. end)
  446.  
  447. Misc:Toggle("Auto Rebirth", false, function(t)
  448. getgenv().Auto_Rebirth = t
  449. end)
  450.  
  451. spawn(function()
  452. while task.wait() do
  453. if Auto_Rebirth then
  454. pcall(function()
  455. game:GetService("ReplicatedStorage").Events.Rebirth:FireServer()
  456. end)
  457. end
  458. end
  459. end)
  460.  
  461. Misc:Toggle("Auto Equip Best Pets", false, function(t)
  462. AutoEquipBest = t
  463. end)
  464.  
  465. spawn(function()
  466. while task.wait() do
  467. if AutoEquipBest then
  468. pcall(function()
  469. game:GetService("ReplicatedStorage").Events.EquipBestPets:FireServer()
  470. end)
  471. end
  472. wait(10)
  473. end
  474. end)
  475.  
  476. Misc:line()
  477.  
  478. Misc:Toggle("Auto Buy Spins", false, function(t)
  479. AutoBuySpins = t
  480. end)
  481.  
  482. spawn(function()
  483. while wait() do
  484. if AutoBuySpins then
  485. pcall(function()
  486. game:GetService("ReplicatedStorage").Events.BuySpinToWin:FireServer()
  487. end)
  488. end
  489. wait(4)
  490. end
  491. end)
  492.  
  493. Misc:Toggle("Auto Use Spins", false, function(t)
  494. AutoUseSpins = t
  495. end)
  496.  
  497. spawn(function()
  498. while wait() do
  499. if AutoUseSpins then
  500. pcall(function()
  501. game:GetService("ReplicatedStorage").Events.PlaySpinToWin:FireServer()
  502. game:GetService("ReplicatedStorage").Events.ClaimSpinToWin:FireServer()
  503. end)
  504. end
  505. wait(4)
  506. end
  507. end)
  508.  
  509. Misc:Toggle("Auto Claim Achievements", false, function(t)
  510. AutoclaimAchievements = t
  511. end)
  512.  
  513. spawn(function()
  514. while wait() do
  515. if AutoclaimAchievements then
  516. pcall(function()
  517. for i,v in pairs(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.Achievements.Frame.Container.Content.Frame:GetChildren()) do
  518. if v.ClassName == "Frame" then
  519. local ohString1 = v.Name
  520. game:GetService("ReplicatedStorage").Events.ClaimAchievementReward:FireServer(ohString1)
  521. end
  522. end
  523. end)
  524. end
  525. wait(4)
  526. end
  527. end)
  528.  
  529. Misc:Toggle("Auto Claim Free Gift", false, function(t)
  530. AutoclaimGif = t
  531. end)
  532.  
  533. spawn(function()
  534. while wait() do
  535. if AutoclaimGif then
  536. pcall(function()
  537. game:GetService("ReplicatedStorage").Events.ClaimJuly4thGift:FireServer()
  538. end)
  539. end
  540. wait(4)
  541. end
  542. end)
  543.  
  544. for i,v in pairs(game:GetService("Workspace").Teleports:GetChildren()) do
  545. Teleport:Button(v.Name, function()
  546. game:GetService("ReplicatedStorage").Events.Teleport:FireServer(v.Name)
  547. end)
  548. end
  549.  
  550. Credits:Label("Credits")
  551.  
  552. Credits:Button("Project Meow Dev Team", function()
  553. setclipboard("https://discord.gg/97anmxFpkU")
  554. end)
  555.  
  556. Credits:Button("Project Meow Discord Server", function()
  557. setclipboard("https://discord.gg/97anmxFpkU")
  558. local req = (syn and syn.request) or (http and http.request) or http_request
  559. if req then
  560. req({
  561. Url = 'http://127.0.0.1:6463/rpc?v=1',
  562. Method = 'POST',
  563. Headers = {
  564. ['Content-Type'] = 'application/json',
  565. Origin = 'https://discord.com'
  566. },
  567. Body = game:GetService('HttpService'):JSONEncode({
  568. cmd = 'INVITE_BROWSER',
  569. nonce = game:GetService('HttpService'):GenerateGUID(false),
  570. args = {code = '97anmxFpkU'}
  571. })
  572. })
  573. end
  574. end)
  575.  
  576. Credits:line()
  577.  
  578. Credits:Button("Destroy Gui", function()
  579. game.CoreGui:FindFirstChild("woof"):Destroy()
  580. end)
  581.  
  582. Credits:Button("Rejoin", function()
  583. local ts = game:GetService("TeleportService")
  584. local p = game:GetService("Players").LocalPlayer
  585. ts:Teleport(game.PlaceId, p)
  586. end)
  587. local function HttpGet(url)
  588. return game:GetService("HttpService"):JSONDecode(htgetf(url))
  589. end
  590. Credits:Button("Server Hop",function()
  591. local PlaceID = game.PlaceId
  592. local AllIDs = {}
  593. local foundAnything = ""
  594. local actualHour = os.date("!*t").hour
  595. local Deleted = false
  596. --[[
  597. local File = pcall(function()
  598. AllIDs = game:GetService('HttpService'):JSONDecode(readfile("NotSameServers.json"))
  599. end)
  600. if not File then
  601. table.insert(AllIDs, actualHour)
  602. writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
  603. end
  604. ]]
  605. function TPReturner()
  606. local Site;
  607. if foundAnything == "" then
  608. Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100'))
  609. else
  610. Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100&cursor=' .. foundAnything))
  611. end
  612. local ID = ""
  613. if Site.nextPageCursor and Site.nextPageCursor ~= "null" and Site.nextPageCursor ~= nil then
  614. foundAnything = Site.nextPageCursor
  615. end
  616. local num = 0;
  617. for i,v in pairs(Site.data) do
  618. local Possible = true
  619. ID = tostring(v.id)
  620. if tonumber(v.maxPlayers) > tonumber(v.playing) then
  621. for _,Existing in pairs(AllIDs) do
  622. if num ~= 0 then
  623. if ID == tostring(Existing) then
  624. Possible = false
  625. end
  626. else
  627. if tonumber(actualHour) ~= tonumber(Existing) then
  628. local delFile = pcall(function()
  629. -- delfile("NotSameServers.json")
  630. AllIDs = {}
  631. table.insert(AllIDs, actualHour)
  632. end)
  633. end
  634. end
  635. num = num + 1
  636. end
  637. if Possible == true then
  638. table.insert(AllIDs, ID)
  639. wait()
  640. pcall(function()
  641. -- writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
  642. wait()
  643. game:GetService("TeleportService"):TeleportToPlaceInstance(PlaceID, ID, game.Players.LocalPlayer)
  644. end)
  645. wait(4)
  646. end
  647. end
  648. end
  649. end
  650.  
  651. function Teleport()
  652. while wait() do
  653. pcall(function()
  654. TPReturner()
  655. if foundAnything ~= "" then
  656. TPReturner()
  657. end
  658. end)
  659. end
  660. end
  661.  
  662. Teleport()
  663. end)
  664.  
  665. Credits:line()
  666.  
  667. VLib:setTheme(Credits)
  668.  
Add Comment
Please, Sign In to add comment