MADE BY WeakenedHalo658#5624
FEATURE:
- AFK THING
GAME LINK:
ORE SMELTING TYCOON
SCRIPT:
--Start Args
print("Instantce Ran")
--Variables
getgenv().AutoSmelt = false
getgenv().AutoCollect = false
getgenv().IntervalTime = 5
--Functions
function GetTycoon()
local PlayerName = game.Players.LocalPlayer.Name
local tycoons = game.Workspace.Tycoons:GetDescendants()
for index, value in ipairs(tycoons) do
if value.Name == "Owner" then
if tostring(value.Value) == tostring(PlayerName) then
if tostring(value.Parent.ClassName) == "Model" then
local TycoonName = value.Parent.Name
return game:GetService("Workspace"):WaitForChild("Tycoons"):FindFirstChild(TycoonName)
end
end
end
end
end
function FireServer(arg)
game:GetService("Players").LocalPlayer.Backpack:FindFirstChild("Pick Ores").Collect:FireServer(arg)
end
function CollectOres()
local Tycoon = GetTycoon()
local Drops = Tycoon.Drops:GetChildren()
for index, value in ipairs(Drops) do
FireServer(value)
end
end
function AutoSmelt()
local Tycoon = GetTycoon()
local ClickDetector = Tycoon.Smelter.Smelt.ClickDetector
fireclickdetector(ClickDetector)
end
function FireObby(dif)
local Part = game.Players.LocalPlayer.Character.LeftFoot
local ObbyEasy = game:GetService("Workspace").EasyObby.Reward
local ObbyHard = game:GetService("Workspace").HardObby.Reward
if dif == "Hard" then
firetouchinterest(Part, ObbyHard, 1)
wait()
firetouchinterest(Part, ObbyHard, 0)
else
firetouchinterest(Part, ObbyEasy, 1)
wait()
firetouchinterest(Part, ObbyEasy, 0)
end
end
--Main
coroutine.wrap(function()
while true do
if getgenv().AutoCollect == true then
CollectOres()
end
if getgenv().AutoSmelt == true then
AutoSmelt()
end
wait(getgenv().IntervalTime)
end
end)()
--Gui
local library = loadstring(game:HttpGet(('https://raw.githubusercontent.com/bloodball/-back-ups-for-libs/main/wall%20v3')))()
local w = library:CreateWindow("OreTycoon") -- Creates the window
local b = w:CreateFolder("Actions")
b:Toggle("AutoCollect",function(bool)
getgenv().AutoCollect = bool
end)
b:Toggle("AutoSmelt",function(bool)
getgenv().AutoSmelt = bool
end)
b:Box("Wait Time","number",function(value)
if value < 1 then
getgenv().IntervalTime = 1
value = 1
print(value)
else
if value >5 then
getgenv().IntervalTime = 5
value = 5
print(value)
else
getgenv().IntervalTime = value
print(value)
end
end
end)
b:Button("Easy Obby Reward",function()
FireObby("Easy")
end)
b:Button("Hard Obby Reward",function()
FireObby("Hard")
end)
b:Button("Rebirth (Broken)",function()
print("Error, feature broken")
end)