Facebook
From welifwelofwelie, 6 Months ago, written in Actionscript.
This paste is a reply to Welifwelofwelie from welifwelofwelie - go back
Embed
Viewing differences between Welifwelofwelie and Re: Welifwelofwelie
 local m = "yourmainhere"
local CornFolder = game:GetService("Workspace"):WaitForChild("CandyCorns")
repeat wait() until game:GetService("Players").LocalPlayer.Character
local root
root = game:GetService("Players").LocalPlayer.Character:WaitForChild("HumanoidRootPart")
local OldPos
OldPos = root.CFrame
local PlaceID = game.=.PlaceId
local AllIDs = {}
local foundAnything = ""
local actualHour = os.date("!*t").hour
local Deleted = false
local File = pcall(function()
   AllIDs = game:GetService('HttpService'):JSONDecode(readfile("NotSameServers.json"))
end)
if not File then
   table.insert(AllIDs, actualHour)
   writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
end
function TPReturner()
   local Site;
   if foundAnything == "" then
       Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100'))
   else
       Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100&cursor;=' .. foundAnything))
   end
   local ID = ""
   if Site.nextPageCursor and Site.nextPageCursor ~= "null" and Site.nextPageCursor ~= nil then
       foundAnything = Site.nextPageCursor
   end
   local num = 0;
   for i,v in pairs(Site.data) do
       local Possible = true
       ID = tostring(v.id)
       if tonumber(v.maxPlayers) > tonumber(v.playing) then
           for _,Existing in pairs(AllIDs) do
               if num ~= 0 then
                   if ID == tostring(Existing) then
                       Possible = false
                   end
               else
                   if tonumber(actualHour) ~= tonumber(Existing) then
                       local delFile = pcall(function()
                           delfile("NotSameServers.json")
                           AllIDs = {}
                           table.insert(AllIDs, actualHour)
                       end)
                   end
               end
               num = num + 1
           end
           if Possible == true then
               table.insert(AllIDs, ID)
               wait()
               pcall(function()
                   writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
                   wait()
                   game:GetService("TeleportService"):TeleportToPlaceInstance(PlaceID, ID, game.Players.LocalPlayer)
               end)
               wait(4)
           end
       end
   end
end
function Teleport()
   while wait() do
       pcall(function()
           TPReturner()
           if foundAnything ~= "" then
               TPReturner()
           end
       end)
   end
end
local function CollectCorn(Corn)
OldPos = root.CFrame
root.CFrame = Corn.CFrame + Vector3.new(0,10,0)
wait(1)
root.CFrame = OldPos
end
for Index, CornObj in pairs(CornFolder:GetChildren()) do
CollectCorn(CornObj)
end
-- If you'd like to use a script before server hopping (Like a Automatic Chest collector you can put the Teleport() after it collected everything.
Teleport()
CornFolder.ChildAdded:Connect(CollectCorn)
game:GetService("Players").LocalPlayer.CharacterAdded:Connect(function()
root = game:GetService("Players").LocalPlayer.Character:WaitForChild("HumanoidRootPart")
end) local a = "youralthere"
loadstring(game:HttpGet("https://raw.githubusercontent.com/Skrapisismyscript/Scripts/main/SlapBattles"))(); loadstring(game:HttpGet("https://raw.githubusercontent.com/sinret/rbxscript.com-scripts-reuploads-/main/sb", true))() loadstring(game:HttpGet("https://raw.githubusercontent.com/dizyhvh/slap_battles_gui/main/0.lua"))() game:GetService("Players").USERNAMEHERE.PlayerGui.AdminPanel.Enabled=true
game:GetService("Players").USERNAMEHERE.PlayerGui.BanGUI.Enabled=true loadstring(game:HttpGet('https://raw.githubusercontent.com/katrina367/ScriptBlox-Projects/main/OblivionAutoEXEV1'))() loadstring(game:HttpGet('https://raw.githubusercontent.com/katrina367/ScriptBlox-Projects/main/OblivionAutoEXEV1'))() local vu = game:GetService("VirtualUser")
game:GetService("Players").LocalPlayer.Idled:connect(function()
   vu:Button2Down(Vector2.new(0,0),workspace.CurrentCamera.CFrame)
   wait(1)
   vu:Button2Up(Vector2.new(0,0),workspace.CurrentCamera.CFrame)
end)
local OrionLib = loadstring(game:HttpGet(('https://raw.githubusercontent.com/shlexware/Orion/main/source')))()
local Window = OrionLib:MakeWindow({Name = "Cloud Hub (SB)", HidePremium = true, SaveConfig = false, ConfigFolder = "CloudHub"})
local Tab = Window:MakeTab({
 Name = "Main",
 Icon = "rbxassetid://4483345998",
 PremiumOnly = false
})
--Slapples farm
Tab:AddButton({
 Name = "Autofarm slapples (Golden one too)",
 Callback = function()
        while true do
    wait(0.5)
spawn(function()
for i, v in pairs(game:GetService("Workspace").Arena.island5.Slapples:GetDescendants()) do
  if v:IsA("TouchTransmitter") then
    firetouchinterest(game.Players.LocalPlayer.Character.Head, v.Parent, 0)
    task.wait()
    firetouchinterest(game.Players.LocalPlayer.Character.Head, v.Parent, 1)
  end
 end
end)
end
   end
})
--Megarock farm
Tab:AddButton({
 Name = "Autofarm MegaRock (Keep game running)",
 Callback = function()
        local function customtwn(input, studspersecond, offset)
   local char = game:GetService("Players").LocalPlayer.Character;
   local input = input or error("input is nil");
   local studspersecond = studspersecond or 1000;
   local offset = offset or CFrame.new(0,0,0);
   local vec3, cframe;
   if typeof(input) == "table" then
       vec3 = Vector3.new(unpack(input)); cframe = CFrame.new(unpack(input));
   elseif typeof(input) ~= "Instance" then
       return error("wrong format used");
   end;
   Time = (char.HumanoidRootPart.Position - (vec3 or input.Position)).magnitude/studspersecond;
   local twn = game.TweenService:Create(char.HumanoidRootPart, TweenInfo.new(Time,Enum.EasingStyle.Linear), {CFrame = (cframe or input.CFrame) * offset});
   twn:Play();
   twn.Completed:Wait();
end;
local e = Instance.new("Part")
e.Parent = game:GetService"Workspace"
e.Size = Vector3.new(50,50,50)
e.Position = Vector3.new(9000,9000,9000)
e.Anchored = true
lplr = game.Players.LocalPlayer.Character
if lplr.isInArena == false then
     fireclickdetector(game.Workspace.Lobby.DiamondGlove.ClickDetector)
     wait(1)
     firetouchinterest(lplr.Head, game:GetService("Workspace").Lobby.Teleport1, 0)
     wait(.5)
     customtwn({9000, 9100, 9000}, 100000)
     task.wait(3)
     keypress(0x45)
     task.wait(.5)
     keyrelease(0x45)
     else
         lplr.Humanoid.Health = 0
         wait(5)
         fireclickdetector(game.Workspace.Lobby.DiamondGlove.ClickDetector)
         wait(3)
         customtwn({-368.266, 328.214, 3.93014}, 100)
         wait(1)
         customtwn({9000, 9100, 9000}, 100000)
         task.wait(3)
         keypress(0x45)
         task.wait(.5)
         keyrelease(0x45)
   end end
})
Tab:AddButton({
 Name = "Trap Autofarm (Keep game running)",
 Callback = function()
        local function customtwn(input, studspersecond, offset)
   local char = game:GetService("Players").LocalPlayer.Character;
   local input = input or error("input is nil");
   local studspersecond = studspersecond or 1000;
   local offset = offset or CFrame.new(0,0,0);
   local vec3, cframe;
   if typeof(input) == "table" then
       vec3 = Vector3.new(unpack(input)); cframe = CFrame.new(unpack(input));
   elseif typeof(input) ~= "Instance" then
       return error("wrong format used");
   end;
   Time = (char.HumanoidRootPart.Position - (vec3 or input.Position)).magnitude/studspersecond;
   local twn = game.TweenService:Create(char.HumanoidRootPart, TweenInfo.new(Time,Enum.EasingStyle.Linear), {CFrame = (cframe or input.CFrame) * offset});
   twn:Play();
   twn.Completed:Wait();
end;
local e = Instance.new("Part")
e.Parent = game:GetService"Workspace"
e.Size = Vector3.new(50,50,50)
e.Position = Vector3.new(9000,9000,9000)
e.Anchored = true
lplr = game.Players.LocalPlayer.Character
if lplr.isInArena == false then
fireclickdetector(game:GetService("Workspace").Lobby.Brick.ClickDetector)
wait(.5)
firetouchinterest(lplr.Head, game.Workspace.Lobby.Teleport1, 0)
wait(.5)
customtwn({9000, 9100, 9000}, 100000)
task.wait(1)
while game.Players.LocalPlayer.PlayerGui.BRICKCOUNT.ImageLabel.TextLabel.Text > 1000 and wait(.5) do
    keypress(0x45)
    task.wait(.5)
    keyrelease(0x45)
    end
    else
        lplr.Humanoid.Health = 0
        wait(5)
        fireclickdetector(game:GetService("Workspace").Lobby.Brick.ClickDetector)
        wait(.5)
        customtwn({-368.266, 328.214, 3.93014}, 100)
        wait(2)
        customtwn({9000, 9100, 9000}, 100000)
        task.wait(1)
        while tonumber(game.Players.LocalPlayer.PlayerGui.BRICKCOUNT.ImageLabel.TextLabel.Text) < 1000 and wait(.5) do
            keypress(0x45)
            wait(1)
            keyrelease(0x45)
            end
   end end}) local player = game.Players.LocalPlayer
local virtualuser = game:GetService("VirtualUser")
local exit = false
function mousedown()
 virtualuser:ClickButton1(Vector2.new(200, 200))
end
function raycast(position, direction, params)
 local ray = workspace:Raycast(position, direction, params)
 return ray
end
function findclosestplayer(max, part)
 local lastdist = max
 local closest = nil
 for i,v in pairs(game.Players:GetPlayers()) do
  if v ~= nil and v.Character and v ~= game.Players.LocalPlayer then
   local targetchar = v.Character
   local targethrp = targetchar:FindFirstChild("HumanoidRootPart")
   local targethum = targetchar:FindFirstChildOfClass("Humanoid")
   if targethrp and targethum then
    -- Checks
    local thisdist = math.abs((targethrp.Position - part.Position).Magnitude)
    if thisdist > lastdist then
     --print("TooFar")
     continue
    end
    if targetchar.Head:FindFirstChild("UnoReverseCard") then
     print("WasReversed")
     continue
    end
    if targetchar:FindFirstChild("isInArena") then
     if targetchar.isInArena.Value == false then
      print("NotInArena")
      continue
     end
    end
    if targethum.Name == "FrozenHumanoid" then
     print("FrozenHumanoid")
     continue
    end
    local rayparams = RaycastParams.new()
    rayparams.FilterType = Enum.RaycastFilterType.Blacklist
    rayparams.FilterDescendantsInstances = {targetchar}
    local ray = raycast(targethrp.Position - Vector3.new(0, -4, 0), Vector3.new(0, -20, 0), rayparams)
    --print(raycast)
    if ray == nil then
     print("InAir")
     break
    end
    closest = v
    lastdist = thisdist
   end
  end
 end
 return closest
end
game:GetService("UserInputService").InputBegan:Connect(function(inp, gamep)
 if not exit and inp.KeyCode == Enum.KeyCode.R then
  exit = true
 end
end)
spawn(function()
 while wait() do
  local scc, err = pcall(function()
   local char = player.Character or player.CharacterAdded:Wait()
   local hum = char:FindFirstChild("Humanoid")
   local hrp = char:FindFirstChild("HumanoidRootPart")
   hum.Health = 0
   wait(100)
  end)
  if not scc then warn(err) end
  if exit then
   break
  end
 end
end)
while wait() do
 local scc, err = pcall(function()
  local char = player.Character or player.CharacterAdded:Wait()
  local hum = char:FindFirstChild("Humanoid")
  local hrp = char:FindFirstChild("HumanoidRootPart")
  if char and hum and hrp and char:FindFirstChild("isInArena") then
   if char.isInArena.Value == false then
    local portal = game.Workspace:FindFirstChild("Lobby"):FindFirstChild("Teleport1")
    hum:MoveTo(portal.Position)
   else
    local closest = findclosestplayer(4000, hrp)
    --print(closest)
    if closest ~= nil and closest.Character then
     local target = closest.Character
     local targethrp = target.HumanoidRootPart
     hum:MoveTo(targethrp.Position)
     mousedown()
    end
   end
  end
 end)
 if not scc then warn(err) end
 if exit then
  break
 end
end local CornFolder = game:GetService("Workspace"):WaitForChild("CandyCorns")
repeat wait() until game:GetService("Players").LocalPlayer.Character
local root
root = game:GetService("Players").LocalPlayer.Character:WaitForChild("HumanoidRootPart")
local OldPos
OldPos = root.CFrame
local PlaceID = game.PlaceId
local AllIDs = {}
local foundAnything = ""
local actualHour = os.date("!*t").hour
local Deleted = false
local File = pcall(function()
   AllIDs = game:GetService('HttpService'):JSONDecode(readfile("NotSameServers.json"))
end)
if not File then
   table.insert(AllIDs, actualHour)
   writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
end
function TPReturner()
   local Site;
   if foundAnything == "" then
       Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100'))
   else
       Site = game.HttpService:JSONDecode(game:HttpGet('https://games.roblox.com/v1/games/' .. PlaceID .. '/servers/Public?sortOrder=Asc&limit=100&cursor;=' .. foundAnything))
   end
   local ID = ""
   if Site.nextPageCursor and Site.nextPageCursor ~= "null" and Site.nextPageCursor ~= nil then
       foundAnything = Site.nextPageCursor
   end
   local num = 0;
   for i,v in pairs(Site.data) do
       local Possible = true
       ID = tostring(v.id)
       if tonumber(v.maxPlayers) > tonumber(v.playing) then
           for _,Existing in pairs(AllIDs) do
               if num ~= 0 then
                   if ID == tostring(Existing) then
                       Possible = false
                   end
               else
                   if tonumber(actualHour) ~= tonumber(Existing) then
                       local delFile = pcall(function()
                           delfile("NotSameServers.json")
                           AllIDs = {}
                           table.insert(AllIDs, actualHour)
                       end)
                   end
               end
               num = num + 1
           end
           if Possible == true then
               table.insert(AllIDs, ID)
               wait()
               pcall(function()
                   writefile("NotSameServers.json", game:GetService('HttpService'):JSONEncode(AllIDs))
                   wait()
                   game:GetService("TeleportService"):TeleportToPlaceInstance(PlaceID, ID, game.Players.LocalPlayer)
               end)
               wait(4)
           end
       end
   end
end
function Teleport()
   while wait() do
       pcall(function()
           TPReturner()
           if foundAnything ~= "" then
               TPReturner()
           end
       end)
   end
end
local function CollectCorn(Corn)
OldPos = root.CFrame
root.CFrame = Corn.CFrame + Vector3.new(0,10,0)
wait(1)
root.CFrame = OldPos
end
for Index, CornObj in pairs(CornFolder:GetChildren()) do
CollectCorn(CornObj)
end
-- If you'd like to use a script before server hopping (Like a Automatic Chest collector you can put the Teleport() after it collected everything.
Teleport()
CornFolder.ChildAdded:Connect(CollectCorn)
game:GetService("Players").LocalPlayer.CharacterAdded:Connect(function()
root = game:GetService("Players").LocalPlayer.Character:WaitForChild("HumanoidRootPart")
end)

Replies to Re: Welifwelofwelie rss

Title Name Language When
Welifwelifwelie welifwelifwelie text 6 Months ago.