SetroStudio Autobuilder (Not RetroStudio!)

print("all owned by Childx AKA SynChild Server!")
print("only works for SetroStudio not retro studio kids!")
local CoreGui = game:GetService("CoreGui")
local UIS = game:GetService('UserInputService')
local HttpService = game:GetService("HttpService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local vu = game:GetService("VirtualUser")
local Players = game:GetService("Players")
local Player = Players.LocalPlayer

if game.PlaceId ~= 13233904225 then
    local message = Instance.new('Message', workspace)
    message.Text = "Hey, you're in the wrong place. This only works in studio mode."
    return
end
do
    local OldUI = CoreGui:FindFirstChild("AutoBuildGui")
    if OldUI then
        OldUI:Destroy()
    end
end

warn('\n\n\n\n\nThanks for using RetroStudio Auto Build by discord.gg/FloofyPlasma! \n\n\nPress the insert key to toggle the UI. KNOW ITS NOT FOR RETRO STUDIO ITS FOR FRICKING SETROSTUDIO')

local RemoteFunctions = ReplicatedStorage.RemoteFunctions
local RemoteEvents = ReplicatedStorage.RemoteEvents

local CreateObjectEvent = RemoteFunctions.CreateObject
local ObjectPropertyChangeRequestEvent = RemoteFunctions.ChangeObjectPropertyAndReturn
local CheckpointEvent = RemoteEvents.ChangeHistoryInteractionRequested

local AutoBuildGui, MainFrame, TitleLabel, ModelBox, NameBox, StartButton, CompletedSound = loadstring(game:HttpGet("https://raw.githubusercontent.com/FloofyPlasma/RetroStudio-Auto-Build/main/UI.lua"))()()
local Properties = loadstring(game:HttpGet("https://raw.githubusercontent.com/FloofyPlasma/RetroStudio-Auto-Build/main/Properties.lua"))()
local HashLib = require(ReplicatedStorage:WaitForChild('HashLib'))

local CreatedInstances = 0

local function Hash(Time)
    return HashLib.md5((("%*\224\182\158"):format(Time)))
end

local function CreateNewInstance(ClassName, Parent)
    local Time = os.time()
    local Success, Result = pcall(CreateObjectEvent.InvokeServer, CreateObjectEvent, ClassName, Parent, Hash(Time), Time)
    CreatedInstances = CreatedInstances + 1

    if not Success then
        warn(Result)
    end

    return Result
end

local function SetInstanceProperty(Object, PropertyName, NewValue)
    ObjectPropertyChangeRequestEvent:InvokeServer(Object, PropertyName, NewValue)
end

local function ScanModel(Model, ServerParent)
    if not ServerParent then
        ServerParent = CreateNewInstance(Model.ClassName, workspace)
        task.spawn(SetInstanceProperty, ServerParent, "Name", Model.Name)
    end

    for _,Child in ipairs(Model:GetChildren()) do
        --task.spawn(function()
            local Properties = Properties[Child.ClassName]

            if not Properties then
                continue
            end

            local NewObject = CreateNewInstance(Child.ClassName, ServerParent)
            local IsAnchored = Child:GetAttribute("Anchored")

            if IsAnchored ~= nil then
                Child.Anchored = IsAnchored
            end

            if Child:IsA("BasePart") then
                SetInstanceProperty(NewObject, "FormFactor", "Custom")
            end

            for _,Property in ipairs(Properties) do
                SetInstanceProperty(NewObject, Property, Child[Property])
            end

            if IsAnchored ~= nil then
                Child.Anchored = true
            end

            ScanModel(Child, NewObject)
        --end)
    end
end

local function GetAssets(AssetId)
    local Model = game:GetObjects("rbxassetid://"..AssetId)

    if not Model then return end

    Model = Model[1]

    for _,Object in ipairs(Model:GetDescendants()) do
        pcall(function()
            Object:SetAttribute("Anchored", Object.Anchored)
            Object.Anchored = true
        end)
    end

    return Model
end

local function Start(AssetId, ModelName)
    local Model = GetAssets(AssetId)

    if not Model then return end

    Model.Name = ModelName
    local StartTime = tick()
    CreatedInstances = 0
    warn('\n\n\nStarting! This may take a while depending on the size of your model.\n\n\nPlease be patient thanks :3\n\n\n')
    --SetCheckpoint()
    ScanModel(Model)
    --SetCheckpoint()
    CompletedSound:Play()
    warn('\n\n\nFinished! Took ' .. tick() - StartTime .. ' seconds to create '.. tostring(CreatedInstances) .. ' instances.\n\n\n')
    Model:Destroy()
end

local function Init()
    local AssetId = tonumber(ModelBox.Text) or 0
    local ModelName = tostring(NameBox.Text) or 'Model'
    Start(AssetId, ModelName)
end

StartButton.Activated:Connect(Init)

UIS.InputBegan:Connect(function(Input)
    if Input.KeyCode == Enum.KeyCode.Insert then
        AutoBuildGui.Enabled = not AutoBuildGui.Enabled
    end
end)

Player.Idled:Connect(function()
   vu:Button2Down(Vector2.new(0,0),workspace.CurrentCamera.CFrame)
   task.wait(1)
   vu:Button2Up(Vector2.new(0,0),workspace.CurrentCamera.CFrame)
end)

return {}