Roblox-Bot-Lua/Main/GaG/UltimateOptimizedSystem.lua
2025-07-21 10:41:54 +07:00

1088 lines
35 KiB
Lua

-- Ultimate Optimized System
-- ระบบรวมที่ปรับปรุงการเก็บของ ขายของ และเลี้ยงสัตว์ให้เร็วขึ้นและ Smooth ขึ้น
print("🚀 Loading Ultimate Optimized System...")
-- Services
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local TweenService = game:GetService("TweenService")
local HttpService = game:GetService("HttpService")
local LocalPlayer = Players.LocalPlayer
local PlayerGui = LocalPlayer:WaitForChild("PlayerGui")
local Leaderstats = LocalPlayer:WaitForChild("leaderstats")
local Backpack = LocalPlayer:WaitForChild("Backpack")
print("✅ Services loaded")
-- ป้องกันการรันซ้ำ
if _G.UltimateOptimizedSystemLoaded then
print("⚠️ Ultimate Optimized System already loaded, removing old one...")
if _G.UltimateOptimizedSystemUI then
_G.UltimateOptimizedSystemUI:Destroy()
end
end
_G.UltimateOptimizedSystemLoaded = true
-- Game Objects
local GameEvents = ReplicatedStorage:WaitForChild("GameEvents")
local Farms = workspace:WaitForChild("Farm")
print("✅ Game objects found")
-- Ultimate Optimized Settings
local UltimateSettings = {
-- Harvest Settings (เก็บของ)
AutoHarvest = true,
HarvestSpeed = "Ultra Fast",
HarvestDelay = 0.001, -- ดีเลย์น้อยที่สุด
MaxHarvestPerSecond = 100, -- เก็บสูงสุดต่อวินาที
ParallelHarvest = true, -- เก็บแบบ Parallel
BatchHarvest = true, -- เก็บเป็นชุด
HarvestBatchSize = 25, -- ขนาดชุด
UseThreading = true,
MaxThreads = 8,
-- Sell Settings (ขายของ)
AutoSell = true,
SellThreshold = 70, -- ขายเมื่อเหลือ 70%
SellImmediately = true, -- ขายทันทีเมื่อเต็ม
SellDelay = 0.05, -- ดีเลย์ขาย
TeleportDelay = 0.1, -- ดีเลย์เทเลพอร์ต
BatchSell = true,
MaxSellAttempts = 3,
-- Pet Settings (เลี้ยงสัตว์)
AutoHatchEgg = true,
AutoFeedPets = true,
AutoBuyEggs = true,
AutoEquipPets = true,
SelectedEggType = "Common Egg",
MaxPetsToHatch = 10,
HatchInterval = 30, -- ฟักไข่ทุก 30 วินาที
FeedInterval = 60, -- ให้อาหารทุก 60 วินาที
BuyInterval = 120, -- ซื้อไข่ทุก 2 นาที
-- Performance Settings
MaxInventorySlots = 200,
UseSmoothAnimations = true,
AnimationDuration = 0.5,
UseCache = true,
CacheDuration = 0.05,
SmartInventory = true,
-- Harvest Filter
HarvestGolden = true,
HarvestSpecial = false,
HarvestNormal = true
}
-- Performance Variables
local HarvestCache = {}
local LastCacheTime = 0
local IsHarvesting = false
local IsSelling = false
local IsProcessingPets = false
local LastHatchTime = 0
local LastFeedTime = 0
local LastBuyTime = 0
local LastSellTime = 0
local SellCooldown = 1
-- Pet Data
local PetEggTypes = {
["Common Egg"] = { HatchTime = 600, Price = 100, Rarity = "Common" },
["Uncommon Egg"] = { HatchTime = 1200, Price = 500, Rarity = "Uncommon" },
["Rare Egg"] = { HatchTime = 7200, Price = 2500, Rarity = "Rare" },
["Legendary Egg"] = { HatchTime = 14400, Price = 10000, Rarity = "Legendary" },
["Mythical Egg"] = { HatchTime = 18400, Price = 50000, Rarity = "Mythical" }
}
local PetEvents = {}
-- Find Player's Farm
local function GetFarm(PlayerName)
local AllFarms = Farms:GetChildren()
for _, Farm in pairs(AllFarms) do
local Important = Farm:FindFirstChild("Important")
if Important then
local Data = Important:FindFirstChild("Data")
if Data then
local Owner = Data:FindFirstChild("Owner")
if Owner and Owner.Value == PlayerName then
return Farm
end
end
end
end
return nil
end
local MyFarm = GetFarm(LocalPlayer.Name)
if not MyFarm then
warn("❌ Cannot find player's farm!")
game:GetService("StarterGui"):SetCore("SendNotification", {
Title = "Ultimate Optimized System",
Text = "ไม่พบฟาร์มของคุณ!",
Duration = 5
})
return
end
print("✅ Found player farm: " .. MyFarm.Name)
local MyImportant = MyFarm:FindFirstChild("Important")
local PlantsPhysical = MyImportant:FindFirstChild("Plants_Physical")
-- Find Pet Events
local function FindPetEvents()
print("🔍 ค้นหา Pet RemoteEvents...")
for _, obj in pairs(ReplicatedStorage:GetDescendants()) do
if obj:IsA("RemoteEvent") or obj:IsA("RemoteFunction") then
local name = obj.Name:lower()
if name:find("pet") or name:find("egg") or name:find("hatch") or
name:find("feed") or name:find("animal") or name:find("equip") or
name:find("buy") or name:find("sell") or name:find("spawn") then
PetEvents[obj.Name] = obj
print("🐾 พบ Pet Event: " .. obj.Name)
end
end
end
if next(PetEvents) == nil then
print("⚠️ ไม่พบ Pet Events เฉพาะ จะใช้ GameEvents แทน")
local possibleEvents = {
"HatchEgg", "FeedPet", "BuyEgg", "EquipPet", "UnequipPet", "SellPet",
"Hatch", "Feed", "Buy", "Equip", "Unequip", "Sell"
}
for _, eventName in pairs(possibleEvents) do
local event = GameEvents:FindFirstChild(eventName)
if event then
PetEvents[eventName] = event
print("🐾 พบ GameEvent: " .. eventName)
end
end
end
end
FindPetEvents()
-- Ultra Fast Harvest Functions
local function ShouldHarvestPlant(Plant)
local plantName = Plant.Name:lower()
local specialEffects = {
"shocked", "moonlit", "twisted", "burnt", "frozen", "wet",
"bloodlit", "zombified", "celestial", "disco", "plasma",
"voidtouched", "honeyglazed", "pollinated", "chilled",
"radiant", "aurora", "crystal", "shadow", "ethereal"
}
local hasSpecialEffect = false
for _, effect in pairs(specialEffects) do
if plantName:find(effect) then
hasSpecialEffect = true
break
end
end
local isGolden = plantName:find("golden") or plantName:find("gold")
if Plant:IsA("Model") and Plant.PrimaryPart then
local primaryPart = Plant.PrimaryPart
if primaryPart.Color == Color3.new(1, 0.8, 0) or
primaryPart.Color == Color3.fromRGB(255, 215, 0) then
isGolden = true
end
if primaryPart:FindFirstChild("PointLight") or
primaryPart:FindFirstChild("SpotLight") or
primaryPart:FindFirstChild("SurfaceLight") then
hasSpecialEffect = true
end
end
if hasSpecialEffect and not UltimateSettings.HarvestSpecial then
return false
end
if isGolden and not UltimateSettings.HarvestGolden then
return false
end
if not isGolden and not hasSpecialEffect and not UltimateSettings.HarvestNormal then
return false
end
return true
end
local function GetHarvestablePlants()
local currentTime = tick()
if UltimateSettings.UseCache and (currentTime - LastCacheTime) < UltimateSettings.CacheDuration then
return HarvestCache
end
local Plants = {}
local function CollectHarvestable(Parent)
for _, Plant in pairs(Parent:GetChildren()) do
if #Plants >= UltimateSettings.MaxHarvestPerSecond then
break
end
local Fruits = Plant:FindFirstChild("Fruits")
if Fruits then
CollectHarvestable(Fruits)
end
local Prompt = Plant:FindFirstChild("ProximityPrompt", true)
if Prompt and Prompt.Enabled and ShouldHarvestPlant(Plant) then
table.insert(Plants, Plant)
end
end
end
CollectHarvestable(PlantsPhysical)
HarvestCache = Plants
LastCacheTime = currentTime
return Plants
end
local function HarvestPlant(Plant)
local Prompt = Plant:FindFirstChild("ProximityPrompt", true)
if Prompt and Prompt.Enabled then
fireproximityprompt(Prompt)
return true
end
return false
end
local function BatchHarvestPlants(Plants, startIndex, endIndex)
local harvested = 0
for i = startIndex, endIndex do
if Plants[i] then
if HarvestPlant(Plants[i]) then
harvested = harvested + 1
end
end
end
return harvested
end
-- Inventory Functions
local function GetTotalInventoryCount()
local totalCount = 0
local Character = LocalPlayer.Character
local function CountFromParent(Parent)
for _, Tool in pairs(Parent:GetChildren()) do
if Tool:IsA("Tool") then
totalCount = totalCount + 1
end
end
end
CountFromParent(Backpack)
if Character then
CountFromParent(Character)
end
return totalCount
end
local function GetCropsCount()
local cropsCount = 0
local Character = LocalPlayer.Character
local function CountFromParent(Parent)
for _, Tool in pairs(Parent:GetChildren()) do
if Tool:IsA("Tool") then
local ItemString = Tool:FindFirstChild("Item_String")
if ItemString then
cropsCount = cropsCount + 1
end
end
end
end
CountFromParent(Backpack)
if Character then
CountFromParent(Character)
end
return cropsCount
end
-- Ultra Fast Sell Functions
local function ShouldSell()
local currentTime = tick()
if (currentTime - LastSellTime) < SellCooldown then
return false, "cooldown"
end
local totalItems = GetTotalInventoryCount()
local cropsCount = GetCropsCount()
if UltimateSettings.SellImmediately and totalItems >= UltimateSettings.MaxInventorySlots then
return true, "กระเป๋าเต็มทันที (" .. totalItems .. "/" .. UltimateSettings.MaxInventorySlots .. ")"
end
if totalItems >= (UltimateSettings.MaxInventorySlots - 5) then
return true, "กระเป๋าใกล้เต็ม (" .. totalItems .. "/" .. UltimateSettings.MaxInventorySlots .. ")"
end
if totalItems >= (UltimateSettings.MaxInventorySlots * UltimateSettings.SellThreshold / 100) then
return true, "ถึงเกณฑ์ขาย (" .. math.floor((totalItems / UltimateSettings.MaxInventorySlots) * 100) .. "%)"
end
if cropsCount > 0 and totalItems >= 10 then
return true, "มีผลผลิต (" .. cropsCount .. " ชิ้น)"
end
return false, "ยังไม่ถึงเวลา"
end
local function SellInventory()
if IsSelling then return false end
IsSelling = true
local Character = LocalPlayer.Character
if not Character then
IsSelling = false
return false
end
local HumanoidRootPart = Character:FindFirstChild("HumanoidRootPart")
if not HumanoidRootPart then
IsSelling = false
return false
end
local Previous = HumanoidRootPart.CFrame
local ShecklesCount = Leaderstats:FindFirstChild("Sheckles")
print("💰 เริ่มขายของ...")
HumanoidRootPart.CFrame = CFrame.new(62, 4, -26)
wait(UltimateSettings.TeleportDelay)
local soldAmount = 0
local previousSheckles = ShecklesCount and ShecklesCount.Value or 0
if ShecklesCount then
local SellEvent = GameEvents:FindFirstChild("Sell_Inventory")
if SellEvent then
local attempts = 0
if UltimateSettings.BatchSell then
while attempts < UltimateSettings.MaxSellAttempts do
if ShecklesCount.Value ~= previousSheckles then
soldAmount = ShecklesCount.Value - previousSheckles
break
end
SellEvent:FireServer()
wait(UltimateSettings.SellDelay)
attempts = attempts + 1
end
else
SellEvent:FireServer()
wait(UltimateSettings.SellDelay)
if ShecklesCount.Value ~= previousSheckles then
soldAmount = ShecklesCount.Value - previousSheckles
end
end
if soldAmount > 0 then
print("💰 ขายสำเร็จ! ได้เงิน " .. soldAmount .. " sheckles")
else
print("⚠️ ขายไม่สำเร็จ")
end
else
print("❌ ไม่พบ Sell Event")
end
end
HumanoidRootPart.CFrame = Previous
wait(UltimateSettings.TeleportDelay)
IsSelling = false
LastSellTime = tick()
return soldAmount > 0
end
-- Pet Functions
local function GetAllPets()
local pets = {}
local Character = LocalPlayer.Character
local function isPetTool(tool)
if not tool:IsA("Tool") then return false end
local indicators = {
"PetData", "Pet_Data", "PetInfo", "Pet_Info",
"AnimalData", "Animal_Data", "CreatureData",
"IsPet", "Pet", "Animal", "Creature"
}
for _, indicator in pairs(indicators) do
if tool:FindFirstChild(indicator) then
return true, indicator
end
end
local name = tool.Name:lower()
local petNames = {
"dog", "cat", "bunny", "rabbit", "chicken", "cow", "pig", "sheep",
"bee", "ant", "butterfly", "dragonfly", "mouse", "rat", "hamster"
}
for _, petName in pairs(petNames) do
if name:find(petName) then
return true, "NameMatch"
end
end
return false
end
for _, tool in pairs(Backpack:GetChildren()) do
local isPet, indicator = isPetTool(tool)
if isPet then
table.insert(pets, {
Tool = tool,
Name = tool.Name,
Location = "Backpack",
Indicator = indicator
})
end
end
if Character then
for _, tool in pairs(Character:GetChildren()) do
local isPet, indicator = isPetTool(tool)
if isPet then
table.insert(pets, {
Tool = tool,
Name = tool.Name,
Location = "Equipped",
Indicator = indicator
})
end
end
end
return pets
end
local function GetAvailableEggs()
local eggs = {}
local Character = LocalPlayer.Character
local function isEggTool(tool)
if not tool:IsA("Tool") then return false end
local indicators = {
"EggData", "Egg_Data", "EggInfo", "Egg_Info",
"HatchData", "Hatch_Data", "IsEgg", "Egg"
}
for _, indicator in pairs(indicators) do
if tool:FindFirstChild(indicator) then
return true, indicator
end
end
local name = tool.Name:lower()
if name:find("egg") then
return true, "NameMatch"
end
for eggType, _ in pairs(PetEggTypes) do
if tool.Name == eggType then
return true, "EggTypeMatch"
end
end
return false
end
local function CollectFromParent(Parent)
for _, tool in pairs(Parent:GetChildren()) do
local isEgg, indicator = isEggTool(tool)
if isEgg then
table.insert(eggs, {
Tool = tool,
Name = tool.Name,
Indicator = indicator
})
end
end
end
CollectFromParent(Backpack)
if Character then
CollectFromParent(Character)
end
return eggs
end
-- Smooth Pet Actions
local function SmoothHatchEgg(eggData)
if not eggData or not eggData.Tool then return false end
local eggTool = eggData.Tool
print("🥚 กำลังฟักไข่: " .. eggTool.Name)
if UltimateSettings.UseSmoothAnimations then
local Character = LocalPlayer.Character
if Character and Character:FindFirstChild("Humanoid") then
local Humanoid = Character:FindFirstChild("Humanoid")
Humanoid.WalkSpeed = 0
wait(UltimateSettings.AnimationDuration)
Humanoid.WalkSpeed = 16
end
end
local methods = {
function()
if PetEvents.HatchEgg then
PetEvents.HatchEgg:FireServer(eggTool)
return "HatchEgg Event"
end
end,
function()
for eventName, event in pairs(PetEvents) do
if eventName:lower():find("hatch") then
event:FireServer(eggTool)
return eventName .. " Event"
end
end
end,
function()
local events = {"HatchEgg", "Hatch", "Pet_Hatch", "Egg_Hatch"}
for _, eventName in pairs(events) do
local event = GameEvents:FindFirstChild(eventName)
if event then
event:FireServer(eggTool)
return eventName .. " GameEvent"
end
end
end
}
for _, method in pairs(methods) do
local success, result = pcall(method)
if success and result then
print("✅ ฟักไข่สำเร็จ: " .. eggTool.Name .. " ด้วยวิธี " .. result)
return true
end
end
return false
end
local function SmoothFeedPet(petData)
if not petData or not petData.Tool then return false end
local petTool = petData.Tool
print("🍼 กำลังให้อาหาร: " .. petTool.Name)
if UltimateSettings.UseSmoothAnimations then
local Character = LocalPlayer.Character
if Character and Character:FindFirstChild("Humanoid") then
local Humanoid = Character:FindFirstChild("Humanoid")
Humanoid.WalkSpeed = 0
wait(UltimateSettings.AnimationDuration)
Humanoid.WalkSpeed = 16
end
end
local methods = {
function()
if PetEvents.FeedPet then
PetEvents.FeedPet:FireServer(petTool)
return "FeedPet Event"
end
end,
function()
for eventName, event in pairs(PetEvents) do
if eventName:lower():find("feed") then
event:FireServer(petTool)
return eventName .. " Event"
end
end
end,
function()
local events = {"FeedPet", "Feed", "Pet_Feed", "Animal_Feed"}
for _, eventName in pairs(events) do
local event = GameEvents:FindFirstChild(eventName)
if event then
event:FireServer(petTool)
return eventName .. " GameEvent"
end
end
end
}
for _, method in pairs(methods) do
local success, result = pcall(method)
if success and result then
print("✅ ให้อาหารสำเร็จ: " .. petTool.Name .. " ด้วยวิธี " .. result)
return true
end
end
return false
end
local function SmoothBuyEgg(eggType)
if not PetEggTypes[eggType] then return false end
print("🛒 กำลังซื้อไข่: " .. eggType)
if UltimateSettings.UseSmoothAnimations then
local Character = LocalPlayer.Character
if Character and Character:FindFirstChild("Humanoid") then
local Humanoid = Character:FindFirstChild("Humanoid")
Humanoid.WalkSpeed = 0
wait(UltimateSettings.AnimationDuration)
Humanoid.WalkSpeed = 16
end
end
local methods = {
function()
if PetEvents.BuyEgg then
PetEvents.BuyEgg:FireServer(eggType)
return "BuyEgg Event"
end
end,
function()
for eventName, event in pairs(PetEvents) do
if eventName:lower():find("buy") then
event:FireServer(eggType)
return eventName .. " Event"
end
end
end,
function()
local events = {"BuyEgg", "Buy", "Pet_Buy", "Egg_Buy"}
for _, eventName in pairs(events) do
local event = GameEvents:FindFirstChild(eventName)
if event then
event:FireServer(eggType)
return eventName .. " GameEvent"
end
end
end
}
for _, method in pairs(methods) do
local success, result = pcall(method)
if success and result then
print("✅ ซื้อไข่สำเร็จ: " .. eggType .. " ด้วยวิธี " .. result)
return true
end
end
return false
end
-- Main Loops
local function UltraFastHarvestLoop()
if not UltimateSettings.AutoHarvest or IsSelling or IsProcessingPets then return end
local currentCount = GetTotalInventoryCount()
if currentCount >= UltimateSettings.MaxInventorySlots then
if ShouldSell() then
SellInventory()
end
return
end
local Plants = GetHarvestablePlants()
if #Plants == 0 then return end
local availableSlots = UltimateSettings.MaxInventorySlots - currentCount
local maxHarvest = math.min(#Plants, availableSlots, UltimateSettings.MaxHarvestPerSecond)
if UltimateSettings.ParallelHarvest and UltimateSettings.UseThreading then
local threads = {}
local batchSize = math.ceil(maxHarvest / UltimateSettings.MaxThreads)
for i = 1, UltimateSettings.MaxThreads do
local startIndex = (i - 1) * batchSize + 1
local endIndex = math.min(i * batchSize, maxHarvest)
if startIndex <= endIndex then
local thread = spawn(function()
return BatchHarvestPlants(Plants, startIndex, endIndex)
end)
table.insert(threads, thread)
end
end
local totalHarvested = 0
for _, thread in pairs(threads) do
totalHarvested = totalHarvested + (thread or 0)
end
if totalHarvested > 0 then
print("⚡ Ultra Fast Harvest: " .. totalHarvested .. " ต้น")
end
else
local harvested = 0
for i = 1, maxHarvest do
if HarvestPlant(Plants[i]) then
harvested = harvested + 1
end
wait(UltimateSettings.HarvestDelay)
end
if harvested > 0 then
print("⚡ Ultra Fast Harvest: " .. harvested .. " ต้น")
end
end
end
local function UltraFastSellLoop()
if not UltimateSettings.AutoSell or IsSelling then return end
local shouldSell, reason = ShouldSell()
if not shouldSell then return end
local totalItems = GetTotalInventoryCount()
local cropsCount = GetCropsCount()
print("💰 ขาย " .. cropsCount .. " ผลผลิต (" .. reason .. ") - ทั้งหมด " .. totalItems .. " ชิ้น")
local success = SellInventory()
if success then
print("✅ ขายสำเร็จ!")
else
print("❌ ขายไม่สำเร็จ")
end
end
local function SmoothHatchEggLoop()
if not UltimateSettings.AutoHatchEgg or IsProcessingPets then return end
local currentTime = tick()
if (currentTime - LastHatchTime) < UltimateSettings.HatchInterval then return end
local eggs = GetAvailableEggs()
if #eggs == 0 then return end
print("🥚 พบไข่ทั้งหมด " .. #eggs .. " ฟอง")
IsProcessingPets = true
local hatchedCount = 0
for _, eggData in pairs(eggs) do
if hatchedCount >= UltimateSettings.MaxPetsToHatch then break end
if not UltimateSettings.AutoHatchEgg then break end
if SmoothHatchEgg(eggData) then
hatchedCount = hatchedCount + 1
wait(2)
end
wait(0.5)
end
if hatchedCount > 0 then
print("✅ ฟักไข่สำเร็จทั้งหมด " .. hatchedCount .. " ฟอง")
end
LastHatchTime = currentTime
IsProcessingPets = false
end
local function SmoothFeedPetsLoop()
if not UltimateSettings.AutoFeedPets or IsProcessingPets then return end
local currentTime = tick()
if (currentTime - LastFeedTime) < UltimateSettings.FeedInterval then return end
local pets = GetAllPets()
if #pets == 0 then return end
print("🐾 พบสัตว์เลี้ยงทั้งหมด " .. #pets .. " ตัว")
IsProcessingPets = true
local fedCount = 0
for _, petData in pairs(pets) do
if not UltimateSettings.AutoFeedPets then break end
if SmoothFeedPet(petData) then
fedCount = fedCount + 1
wait(1)
end
wait(0.3)
end
if fedCount > 0 then
print("✅ ให้อาหารสำเร็จทั้งหมด " .. fedCount .. " ตัว")
end
LastFeedTime = currentTime
IsProcessingPets = false
end
local function SmoothBuyEggsLoop()
if not UltimateSettings.AutoBuyEggs or IsProcessingPets then return end
local currentTime = tick()
if (currentTime - LastBuyTime) < UltimateSettings.BuyInterval then return end
local eggs = GetAvailableEggs()
if #eggs >= UltimateSettings.MaxPetsToHatch then return end
local eggType = UltimateSettings.SelectedEggType
local eggInfo = PetEggTypes[eggType]
if eggInfo then
print("🔄 กำลังซื้อไข่: " .. eggType .. " (ราคา: " .. eggInfo.Price .. ")")
if SmoothBuyEgg(eggType) then
print("✅ ซื้อไข่สำเร็จ: " .. eggType)
else
print("❌ ซื้อไข่ไม่สำเร็จ: " .. eggType)
end
else
print("⚠️ ไม่พบข้อมูลไข่: " .. eggType)
end
LastBuyTime = currentTime
end
-- Start All Loops
local function StartUltimateOptimizedLoops()
print("🚀 Starting Ultimate Optimized Loops...")
-- Ultra Fast Harvest Loop
spawn(function()
while _G.UltimateOptimizedSystemLoaded do
local success, err = pcall(UltraFastHarvestLoop)
if not success then
print("⚠️ Harvest error: " .. tostring(err))
end
wait(0.05)
end
end)
-- Ultra Fast Sell Loop
spawn(function()
while _G.UltimateOptimizedSystemLoaded do
local success, err = pcall(UltraFastSellLoop)
if not success then
print("⚠️ Sell error: " .. tostring(err))
end
wait(0.5)
end
end)
-- Smooth Hatch Egg Loop
spawn(function()
while _G.UltimateOptimizedSystemLoaded do
local success, err = pcall(SmoothHatchEggLoop)
if not success then
print("⚠️ Hatch error: " .. tostring(err))
end
wait(UltimateSettings.HatchInterval)
end
end)
-- Smooth Feed Pets Loop
spawn(function()
while _G.UltimateOptimizedSystemLoaded do
local success, err = pcall(SmoothFeedPetsLoop)
if not success then
print("⚠️ Feed error: " .. tostring(err))
end
wait(UltimateSettings.FeedInterval)
end
end)
-- Smooth Buy Eggs Loop
spawn(function()
while _G.UltimateOptimizedSystemLoaded do
local success, err = pcall(SmoothBuyEggsLoop)
if not success then
print("⚠️ Buy error: " .. tostring(err))
end
wait(UltimateSettings.BuyInterval)
end
end)
print("✅ All Ultimate Optimized Loops started")
end
-- Simple UI
local function CreateUltimateOptimizedUI()
print("🎨 Creating Ultimate Optimized UI...")
local oldUI = PlayerGui:FindFirstChild("UltimateOptimizedSystemUI")
if oldUI then oldUI:Destroy() end
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "UltimateOptimizedSystemUI"
ScreenGui.Parent = PlayerGui
ScreenGui.ResetOnSpawn = false
_G.UltimateOptimizedSystemUI = ScreenGui
local MainFrame = Instance.new("Frame")
MainFrame.Name = "MainFrame"
MainFrame.Parent = ScreenGui
MainFrame.BackgroundColor3 = Color3.fromRGB(25, 25, 30)
MainFrame.BorderSizePixel = 0
MainFrame.Position = UDim2.new(0, 50, 0, 50)
MainFrame.Size = UDim2.new(0, 350, 0, 400)
MainFrame.Active = true
MainFrame.Draggable = true
local Corner = Instance.new("UICorner")
Corner.CornerRadius = UDim.new(0, 12)
Corner.Parent = MainFrame
local Stroke = Instance.new("UIStroke")
Stroke.Parent = MainFrame
Stroke.Color = Color3.fromRGB(255, 100, 100)
Stroke.Thickness = 2
-- Title
local Title = Instance.new("TextLabel")
Title.Parent = MainFrame
Title.BackgroundColor3 = Color3.fromRGB(255, 100, 100)
Title.BorderSizePixel = 0
Title.Size = UDim2.new(1, 0, 0, 40)
Title.Font = Enum.Font.SourceSansBold
Title.Text = "🚀 Ultimate Optimized System"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.TextSize = 16
local TitleCorner = Instance.new("UICorner")
TitleCorner.CornerRadius = UDim.new(0, 12)
TitleCorner.Parent = Title
-- Content
local ContentFrame = Instance.new("ScrollingFrame")
ContentFrame.Parent = MainFrame
ContentFrame.BackgroundTransparency = 1
ContentFrame.Position = UDim2.new(0, 10, 0, 50)
ContentFrame.Size = UDim2.new(1, -20, 1, -60)
ContentFrame.CanvasSize = UDim2.new(0, 0, 0, 500)
ContentFrame.ScrollBarThickness = 8
-- Toggle Functions
local function CreateToggle(text, yPos, callback, defaultState)
local ToggleFrame = Instance.new("Frame")
ToggleFrame.Parent = ContentFrame
ToggleFrame.BackgroundColor3 = Color3.fromRGB(35, 35, 40)
ToggleFrame.BorderSizePixel = 0
ToggleFrame.Position = UDim2.new(0, 0, 0, yPos)
ToggleFrame.Size = UDim2.new(1, 0, 0, 30)
local FrameCorner = Instance.new("UICorner")
FrameCorner.CornerRadius = UDim.new(0, 6)
FrameCorner.Parent = ToggleFrame
local Label = Instance.new("TextLabel")
Label.Parent = ToggleFrame
Label.BackgroundTransparency = 1
Label.Position = UDim2.new(0, 10, 0, 0)
Label.Size = UDim2.new(1, -70, 1, 0)
Label.Font = Enum.Font.SourceSans
Label.Text = text
Label.TextColor3 = Color3.fromRGB(255, 255, 255)
Label.TextSize = 12
Label.TextXAlignment = Enum.TextXAlignment.Left
local Toggle = Instance.new("TextButton")
Toggle.Parent = ToggleFrame
Toggle.BackgroundColor3 = defaultState and Color3.fromRGB(50, 200, 100) or Color3.fromRGB(200, 100, 100)
Toggle.BorderSizePixel = 0
Toggle.Position = UDim2.new(1, -60, 0, 5)
Toggle.Size = UDim2.new(0, 55, 0, 20)
Toggle.Font = Enum.Font.SourceSansBold
Toggle.Text = defaultState and "เปิด" or "ปิด"
Toggle.TextColor3 = Color3.fromRGB(255, 255, 255)
Toggle.TextSize = 10
local ToggleCorner = Instance.new("UICorner")
ToggleCorner.CornerRadius = UDim.new(0, 4)
ToggleCorner.Parent = Toggle
local isOn = defaultState or false
Toggle.MouseButton1Click:Connect(function()
isOn = not isOn
Toggle.Text = isOn and "เปิด" or "ปิด"
local targetColor = isOn and Color3.fromRGB(50, 200, 100) or Color3.fromRGB(200, 100, 100)
TweenService:Create(Toggle, TweenInfo.new(0.3), {
BackgroundColor3 = targetColor
}):Play()
if callback then callback(isOn) end
end)
return Toggle
end
-- Create Toggles
CreateToggle("⚡ Ultra Fast Harvest", 10, function(state) UltimateSettings.AutoHarvest = state end, UltimateSettings.AutoHarvest)
CreateToggle("💰 Ultra Fast Sell", 50, function(state) UltimateSettings.AutoSell = state end, UltimateSettings.AutoSell)
CreateToggle("🥚 Smooth Hatch", 90, function(state) UltimateSettings.AutoHatchEgg = state end, UltimateSettings.AutoHatchEgg)
CreateToggle("🍼 Smooth Feed", 130, function(state) UltimateSettings.AutoFeedPets = state end, UltimateSettings.AutoFeedPets)
CreateToggle("🛒 Smooth Buy", 170, function(state) UltimateSettings.AutoBuyEggs = state end, UltimateSettings.AutoBuyEggs)
CreateToggle("🔄 Parallel Harvest", 210, function(state) UltimateSettings.ParallelHarvest = state end, UltimateSettings.ParallelHarvest)
CreateToggle("📦 Batch Harvest", 250, function(state) UltimateSettings.BatchHarvest = state end, UltimateSettings.BatchHarvest)
CreateToggle("🎭 Smooth Animations", 290, function(state) UltimateSettings.UseSmoothAnimations = state end, UltimateSettings.UseSmoothAnimations)
print("✅ Ultimate Optimized UI created")
end
-- Initialize
print("🚀 Initializing Ultimate Optimized System...")
wait(1)
CreateUltimateOptimizedUI()
StartUltimateOptimizedLoops()
game:GetService("StarterGui"):SetCore("SendNotification", {
Title = "🚀 Ultimate Optimized System",
Text = "ระบบรวมที่ปรับปรุงแล้วพร้อมใช้งาน!",
Duration = 3
})
print("🚀 " .. string.rep("=", 50))
print("✅ Ultimate Optimized System พร้อมใช้งาน!")
print("⚡ การปรับปรุง:")
print(" - เก็บของเร็วขึ้น (Ultra Fast Harvest)")
print(" - ขายของเร็วขึ้น (Ultra Fast Sell)")
print(" - เลี้ยงสัตว์ Smooth ขึ้น (Smooth Pet System)")
print(" - ระบบ Threading สำหรับประสิทธิภาพสูงสุด")
print(" - Smart Inventory Management")
print(" - Parallel Processing")
print("🚀 " .. string.rep("=", 50))
return {
Settings = UltimateSettings,
UI = _G.UltimateOptimizedSystemUI,
MyFarm = MyFarm
}