Ore Smelting Tycoon Script

TEXT 527

Ore Smelting Tycoon Script By venuslock on 26th November 2022 10:15:18 PM

--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)

Recent Pastes

Raw Paste

--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)