Advertisement
yawatest

Untitled

Jul 7th, 2022
720
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
JavaScript 24.09 KB | None
  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)
Advertisement
RAW Paste Data Copied
Advertisement