TextBin

Novo Texto Importar Arquivo

local library = loadstring(game:HttpGet(("https://textbin.net/raw/e2oqz5cybm"),true))()
	            
    local f = debug.getupvalues(require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.InputService).UpdateClickDelay)[1]
    repeat
        wait(.1)
        f = debug.getupvalues(require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.InputService).UpdateClickDelay)[1]
    until f ~= nil
    local Module = game:GetService("ReplicatedStorage").Assets.Modules.ImageService
    local guiserv = require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.GuiService)
	
    local pets = debug.getupvalues(require(Module))[1]
    
    local farm = library:CreateWindow('Auto Farm')
    
    local petlist = require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.PetModule)
    local hatlist = require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.HatModule)
    local raritys = {}
    local moneyz = require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.GuiService)
    local eggtps = {}
    local eggsnames = {}
    local egginfo = require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.EggModule)
    local crateinfo = require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.CrateModule)
    for i,d in pairs(require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.EggModule)) do
        if game.Workspace.Eggs:FindFirstChild(i) then
            eggtps[i] = game.Workspace.Eggs[i].Hotkey
        end
        table.insert(eggsnames, i)
    end
    for i,d in pairs(require(game:GetService("ReplicatedStorage").Assets.Modules.ItemDataService.CrateModule)) do
        if game.Workspace.Eggs:FindFirstChild(i) then
            eggtps[i] = game.Workspace.Eggs[i].Hotkey
        end
        table.insert(eggsnames, i)
    end
   
    eggs:Section("Open Eggs / Crates")
    eggs:SearchBox("Egg", {
        location = eggs.flags,
        flag = "egg",
        list = eggsnames
     }, function()end)
    
    eggs:Toggle('Buy Eggs', {flag = "eggs"})
    if triple then
        eggs:Toggle('Buy Eggs (3x)', {flag = "three"})
    end
	local cccc = require(game:GetService("ReplicatedStorage").Assets.Modules.EggService)
    repeat
        wait()
        cccc = require(game:GetService("ReplicatedStorage").Assets.Modules.EggService)
    until cccc ~= nil
    local hat1 = cccc.HatchEgg
    --local hat3 = cccc.MultiHatchEgg
    eggs:Toggle('Skip Animation', {flag = "soa"},function(gh)
        cccc.HatchEgg = (gh == true and function()end or hat1)
        --cccc.MultiHatchEgg = (gh == true and function()end or hat3)
    end)
	eggs:Dropdown("Manage Inventory", {location = _G, flag = "AutoInv", list = {"Delete Pets", "Delete Hats", "Auto Delete Off"}}, function() _G.itemInv = {} end)
    for i,d in pairs(raritys) do
        eggs:Toggle('Delete '..i, {flag = tostring(i)})
    end
   -- hats:Section("Delete Hats")
    --for i,d in pairs(raritys) do
       -- hats:Toggle('Delete '..i, {flag = tostring(i)})
   -- end
   -- hats:Toggle('Delete Easy Legendary',{flag = 'easyleg'})
    eggs:Toggle('Delete Easy Legendary',{flag = 'easyleg'})
	
	eggs:Toggle('Custom Delete',{flag = 'customdelete'})
	eggs:Box('Name', {
        flag = "DeleteName",
        type = 'text'
    })
	
	eggs:Toggle('Make Pets Shiny', {flag = "shiny"})
    --eggs:Toggle('Show Alert(s)', {flag = "alerts"})
	eggs:Section("Upgrade Pets")
    
   
--    eggs:Toggle('Enchant Pets', {flag = "upgrade"})

eggs:Box('Enchant Shiny(s)', {flag = 'enchantshinypetname', type="text"})
	eggs:Box('Enchant Normal(s)', {flag = "enchantnormalpetname", type = 'text'})

eggs:Button('Use +1s on Pet', function()
		local maxEnchant = 40
		local maxLevel = 25
		local f = debug.getupvalues(require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.InputService).UpdateClickDelay)[1]
		repeat
			wait(.1)
			f = debug.getupvalues(require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.InputService).UpdateClickDelay)[1]
		until f ~= nil
		local playerData = f:InvokeServer("GetPlayerData")
		local potionIndex = require(game:GetService("ReplicatedStorage").Assets.Modules.Library.index)["POTIONS"]
		local petIndex = require(game:GetService("ReplicatedStorage").Assets.Modules.Library.index)["PETS"]
		for i,d in  pairs(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.PetsFrame.Pets.Container.Frame:GetChildren()) do
			if d.Name ~= "UIGridLayout" then
				if d.ImageColor3 == Color3.new(0, 1, 0) then
					local petID = d.GUID.Value
					for x,y in pairs(playerData[petIndex]) do
						if y[1] == petID then
							local petLevel = y[4]
							local petEnchant = y[9]
							for k,v in pairs(playerData[potionIndex]) do
								if v[2] == "Level1" and petLevel < maxLevel then
									f:FireServer("UsePotionOnPet",v[1],petID)
									petLevel = petLevel + 1
								end
								if v[2] == "Enchant1" then
									if y[8] and petEnchant < maxEnchant then
										f:FireServer("UsePotionOnPet",v[1],petID)
										petEnchant = petEnchant + 1
									elseif not y[8] and y[4] == maxLevel and petEnchant < maxEnchant then
										f:FireServer("UsePotionOnPet",v[1],petID)
										petEnchant = petEnchant + 1
									end
								end
								print(petLevel,petEnchant)
							end
						end
					end
				end
			end
		end
     end)
	eggs:Button('Max Lvl/Ench Selected', function()
		local maxEnchant = 40
		local maxLevel = 25
		local f = debug.getupvalues(require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.InputService).UpdateClickDelay)[1]
		repeat
			wait(.1)
			f = debug.getupvalues(require(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.ClientScript.Modules.InputService).UpdateClickDelay)[1]
		until f ~= nil
		local playerData = f:InvokeServer("GetPlayerData")
		local potionIndex = require(game:GetService("ReplicatedStorage").Assets.Modules.Library.index)["POTIONS"]
		local petIndex = require(game:GetService("ReplicatedStorage").Assets.Modules.Library.index)["PETS"]
		for i,d in  pairs(game:GetService("Players").LocalPlayer.PlayerGui.ScreenGui.PetsFrame.Pets.Container.Frame:GetChildren()) do
			if d.Name ~= "UIGridLayout" then
				if d.ImageColor3 == Color3.new(0, 1, 0) then
					local usedLevel = false
					local usedEnchant = false
					local petID = d.GUID.Value
					for k,v in pairs(playerData[potionIndex]) do
						for x,y in pairs(playerData[petIndex]) do
							if y[1] == petID then
								if v[2] == "LevelMax" and not usedLevel and y[4] < maxLevel then
									f:FireServer("UsePotionOnPet",v[1],petID)
									usedLevel = true
								end
								if v[2] == "EnchantMax" and not usedEnchant then
									if y[8] and y[9] < maxEnchant then
										f:FireServer("UsePotionOnPet",v[1],petID)
										usedEnchant = true
									elseif not y[8] and y[4] == maxLevel and y[9] < maxEnchant then
										f:FireServer("UsePotionOnPet",v[1],petID)
										usedEnchant = true
									elseif not y[8] and usedLevel and y[9] < maxEnchant then
										f:FireServer("UsePotionOnPet",v[1],petID)
										usedEnchant = true
									end
								end
							end
						end
					end
				end
			end
		end
     end)
	eggs:Toggle('Use Max Potion(s)', {flag = 'automaxpotion'})
	eggs:Box('Shiny Pet(s)', {flag = 'usepotionshinypetname', type="text"})
	eggs:Box('Normal Pet(s)', {flag = "usepotionnormalpetname", type = 'text'})

_G.sell = false
    local range = 200
    
    local plr = game.Players.LocalPlayer
    local char = plr.Character
    local root = char.HumanoidRootPart
   
    function toTarget(pos, targetPos, targetCFrame)
        local tween_s = game:service"TweenService"
        local info = TweenInfo.new((targetPos - pos).Magnitude/70, Enum.EasingStyle.Quad)
       -- local tic_k = tick()
        local tween, err = pcall(function()
            local tween = tween_s:Create(plr.Character["HumanoidRootPart"], info, {CFrame = targetCFrame})
            tween:Play()
        end)
        if not tween then return err end
    end
	
	--function toTarget(pos, targetPos, targetCFrame)
		--local tween, err = pcall(function()local tween = game:service"TweenService":Create(plr.Character["HumanoidRootPart"], TweenInfo.new((targetPos - pos).Magnitude/50, Enum.EasingStyle.Quad), {CFrame = targetCFrame})tween:Play()end)
		--if not tween then return err end
   --end
   
   local skiptargets = {}
   
	spawn(function()
		while wait() do
			if not _G.collectingchests and not _G.sell and farm.flags.tot == true and not ((eggs.flags.eggs == true or eggs.flags.three == true) and _G.canafford) then
				local distance = math.huge
				local target
				for i,v in pairs(game:GetService("Workspace").HalloweenWorld.Houses:GetChildren()) do
					if v:WaitForChild("Activation"):WaitForChild("Tag"):WaitForChild("BillboardGui"):WaitForChild("Tag").Text == "Trick Or Treat!" and v:WaitForChild("Activation"):WaitForChild("Active").Value and (root.Position - v.Activation.Root.Position).Magnitude < distance and v ~= skiptargets[1] and v ~= skiptargets[2] and v ~= skiptargets[3] then
						distance = (root.Position - v.Activation.Root.Position).Magnitude
						target = v.Activation.Root
						if #skiptargets == 3 then
							table.remove(skiptargets, 1)
						end
					end
				end
				if not farm.flags.walk and target ~= nil and target.Parent.Active.Value and target.Parent.Tag.BillboardGui.Tag.Text == "Trick Or Treat!" then
					toTarget(root.Position,target.Position + Vector3.new(0,2,0),target.CFrame + Vector3.new(0,2,0))
				end
				local starttime = os.time()
				local connection
				if farm.flags.walk and target ~= nil and target.Parent.Active.Value and target.Parent.Tag.BillboardGui.Tag.Text == "Trick Or Treat!" then
					game:GetService("Players").LocalPlayer.Character.Humanoid:MoveTo(Vector3.new(2486.85, 55.0488, -294.33))
					connection = game:GetService("Players").LocalPlayer.Character.Humanoid.MoveToFinished:Connect(function()
						game:GetService("Players").LocalPlayer.Character.Humanoid:MoveTo(target.Position, target)
						connection:Disconnect()
						connection = nil
					end)
				end
				repeat
					wait(5)
				until target == nil or not target.Parent.Active.Value or target.Parent.Tag.BillboardGui.Tag.Text ~= "Trick Or Treat!" or os.time() > starttime + 10
				if target and target.Parent.Active.Value and farm.flags.walk then
					table.insert(skiptargets, target.Parent.Parent)
					print("Skipping target")
				end
			end
		end
	end)

spawn(function()
        while wait() do
			
		local canaffordold = _G.canafford
			if not _G.sell and not _G.collectingchests and not _G.autoguessing and (eggs.flags.eggs == true or eggs.flags.three == true) then
				--local currentWorld = _G.world
                if eggs.flags.egg ~= nil then
                    if (egginfo[eggs.flags.egg] or crateinfo[eggs.flags.egg]) then
						local cost = (egginfo[eggs.flags.egg] or crateinfo[eggs.flags.egg]).Cost
						local e = 0
						e = cost[2]
						if eggs.flags.three then 
							e = e * 3
						end
						if currencys[cost[1]] and _G.sell ~= true then
							if currencys[cost[1]].Value >= e then
								_G.canafford = true
								if eggtps[eggs.flags.egg] then
									if game.Players.LocalPlayer.Character and game.Players.LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
										if (eggtps[eggs.flags.egg].Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).Magnitude > 10 then
											if not farm.flags.walk then
												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)
												toTarget(game.Players.LocalPlayer.Character.HumanoidRootPart.Position,eggtps[eggs.flags.egg].Position,eggtps[eggs.flags.egg].CFrame)
											else
												game:GetService("Players").LocalPlayer.Character.Humanoid:MoveTo(eggtps[eggs.flags.egg].Position, eggtps[eggs.flags.egg])
											end
										end
										
										--while (eggtps[eggs.flags.egg].Position - game.Players.LocalPlayer.Character.HumanoidRootPart.Position).Magnitude > 10 do
											--wait(.25)
										--end
										
												if eggs.flags.three == true then
													f["FireServer"](f, "PurchaseEgg",eggs.flags.egg, 'Multi')
												else
													f["FireServer"](f, "PurchaseEgg",eggs.flags.egg)
												end

end
								end
							else
								_G.canafford = false
							end
						else
							_G.canafford = false
						end
					else
						_G.canafford = false
					end
                else
                    _G.canafford = false
                end
            else
                _G.canafford = false
            end
			
			if canaffordold ~= _G.canafford then
				_G.canaffordchange = true
			end
			--if canaffordold ~= _G.canaffordchange and not _G.canaffordchange and not _G.collectingchests and (eggs.flags.eggs == true or eggs.flags.three == true) and farm.flags.Drops then
			if not _G.canafford and not _G.collectingchests and not _G.autoguessing and not _G.sell and (eggs.flags.eggs == true or eggs.flags.three == true) and _G.canaffordchange == true and farm.flags.Drops == true and not (_G.currentWorld == "Event" or _G.currentWorld == "Overworld" or _G.currentWorld == "Mystic Forest") then
				_G.canaffordchange = false
				for k,d in pairs(_G.islandchests["GiantChests"]) do
					for i,v in pairs(game:GetService("Workspace").FloatingIslands:GetDescendants()) do
						if v.Name == "Chest" and v.ClassName == "Model" and v.Parent.Name == d then 
							--game:GetService("Players").LocalPlayer.Character:WaitForChild("HumanoidRootPart").CFrame = v.Parent.Collision.CFrame
							f["FireServer"](f, "TeleportToCheckpoint", v.Parent.Name)
							--wait(1)
						end
					end
				end
			end
			
				
			
        end
    end)

Configurações do Texto

Título do Texto : [Opcional]

Guardar na Pasta : [Opcional]

Syntax Highlighting : [Opcional]

Expiração do Texto : [Opcional]

Status do Texto : [Opcional]

Senha : [Opcional]

Descrição: [Opcional]

Tags: [Opcional]

Criptografar Texto (?)

No momento você não está logado, isso significa que você não pode editar ou excluir nada que você poste. Cadastre-se ou faça o Login

Configurações do Texto

Idiomas do site