DevComp

--Game: https://www.roblox.com/games/4429677678/Development-Company-Tycoon


if game:GetService("CoreGui"):FindFirstChild("FinityUI") then
    game.CoreGui.FinityUI:Destroy()
end
local desc = [[
This was a pretty fun script to make ngl
]]
local plr = game.Players.LocalPlayer
local Finity = loadstring(game:HttpGet("http://finity.vip/scripts/finity_lib.lua"))()
local FinityWindow = Finity.new(true)
FinityWindow.ChangeToggleKey(Enum.KeyCode.Semicolon)
local CreditsCategory = FinityWindow:Category("Credits/Info")
local CreditsCreator = CreditsCategory:Sector("Finity Library Creator:")
local ScriptCredit = CreditsCategory:Sector("Cheat Credit:")
local Description = CreditsCategory:Sector("Description:")
CreditsCreator:Cheat("Label", "detourious @ v3rmillion.net")
ScriptCredit:Cheat("Label", "brianops16 @ v3rmillion.net")
Description:Cheat("Label", desc)
local Cheats = FinityWindow:Category("Cheats")
local S1 = Cheats:Sector("Main Cheats")
--https://detourious.gitbook.io/project-finity/docs

local Positions = {}
local AutoType = "Normal"

function GetTycoon()
    local tycoon = nil
    for i,v in pairs(game:GetService("Workspace")["CompaniesFolder"]:GetChildren()) do
        if v.Owner.Value == plr then
            tycoon = v
        end
    end
    return tycoon
end

local tycoon = GetTycoon()

function MoveItem(Name,Id,cfrmae)
    local args;
    args = {
        [1] = Name,
        [2] = cfrmae,
        [3] = 1,
        [4] = Id,
        [5] = "Company",
        [6] = 1,
    }

    game:GetService("ReplicatedStorage").Remote.MoveItem:InvokeServer(unpack(args))
end

function isin(tbl,obj)
    for i,v in pairs(tbl) do
        if i == obj or v == obj then
            return true
        end
    end
    return false
end

S1:Cheat("Dropdown", "Programmer Options", function(Option) --Dropdowns
    AutoType = Option
end, {
    options = {
        "Normal",
        "Fast"
    }
})

S1:Cheat("Checkbox","ProgrammerAuto",
function(State)
    if not State then
        Positions = {}
        _G.on = 0
    else
        _G.on = 1
        while _G.on == 1 do
            if plr["DayStarted"].Value then
                for i,v in pairs(tycoon["CompanyModel"]["Floors"]:GetChildren()) do
                    for a,b in pairs(v.Company:GetChildren()) do
                        if b then
                            pcall(function()
                                local I = b.Info
                                local W = I.Worker
                                local ID = I.PlacedIndex.Value
                                if W.WorkerClass.Value == "Programmer" then
                                    if W.Tired.Value then
                                        b.WorkerController.Remote.WakeUp:FireServer()
                                    end
                                    if W.IsWorking.Value and W.CurrentProject.Value == "None" then
                                        if not isin(Positions,ID) then
                                            Positions[ID] = b.Parts["Chair seat"].CFrame
                                        end
                                        MoveItem(b.Name,ID,Positions[ID] * CFrame.new(.12,1.5,-2))
                                        wait(.1)
                                    elseif not W.IsWorking.Value and AutoType == "Normal" then
                                        game:GetService("ReplicatedStorage").Remote.StartWorking:InvokeServer(ID,1)
                                    elseif AutoType == "Fast" then
                                        game:GetService("ReplicatedStorage").Remote.StartWorking:InvokeServer(ID,1)
                                    end
                                end
                            end)
                        end
                    end
                end
            end
            wait()
        end
    end
end
)
S1:Cheat("Checkbox","DesignerAuto",
function(State)
    if not State then
        Positions = {}
        _G.on1 = 0
    else
        _G.on1 = 1
        while _G.on1 == 1 do
            if plr["DayStarted"].Value then
                for i,v in pairs(tycoon["CompanyModel"]["Floors"]:GetChildren()) do
                    for a,b in pairs(v.Company:GetChildren()) do
                        if b then
                            pcall(function()
                                local I = b.Info
                                local W = I.Worker
                                local ID = I.PlacedIndex.Value
                                if W.WorkerClass.Value == "Designer" then
                                    if not W.IsWorking.Value or W.Full.Value then
                                        b.WorkerController.Remote.CollectDesigns:InvokeServer()
                                    end
                                end
                            end)
                        end
                    end
                end
            end
            wait()
        end
    end
end
)

S1:Cheat("Button", "Refresh Programmers", function() --Button
    for i,v in pairs(tycoon["CompanyModel"]["Floors"]:GetChildren()) do
        for a,b in pairs(v.Company:GetChildren()) do
            if b then
                pcall(function()
                    local I = b.Info
                    local W = I.Worker
                    local ID = I.PlacedIndex.Value
                    if W.WorkerClass.Value == "Programmer" then
                        if not isin(Positions,ID) then
                            Positions[ID] = b.Parts["Chair seat"].CFrame
                        end
                        MoveItem(b.Name,ID,Positions[ID] * CFrame.new(.12,1.5,-2))
                        wait(.1)
                    end
                end)
            end
        end
    end
end)