JustPaste
HomeCategoriesAboutDonateContactTerms of UsePrivacy Policy
JustPaste

Free online notepad — write and share instantly

Navigate

  • Home
  • Timeline
  • Categories

Info

  • About
  • Donate
  • Contact

Legal

  • Terms of Use
  • Privacy Policy

© 2026 JustPaste.app. All rights reserved.

Made with ♥ by JustPaste

Untitled Page | JustPaste.app
about 1 month ago8 views
👨‍💻Programming
-- ===== KHỞI TẠO =====
local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer
local Workspace = game:GetService("Workspace")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local CoreGui = game:GetService("CoreGui")
local RunService = game:GetService("RunService")
local TweenService = game:GetService("TweenService")

-- Kiểm tra môi trường
local ExecutorName = "Unknown"
local executorInfo = {
    syn = "Synapse X",
    krnl = "Krnl",
    fluxus = "Fluxus",
    scriptware = "ScriptWare",
    getexecutorname = "Unknown",
    is_sirhurt = "SirHurt",
    iselectron = "Electron",
    IsElectron = "Electron",
    is_zeta = "Zeta",
    is_proto = "Proto",
    is_wearedevs = "WeAreDevs",
    is_owor = "Owor",
    is_swift = "Swift",
    is_seliware = "Seliware",
    is_velocity = "Velocity",
    is_aurora = "Aurora",
    is_calamari = "Calamari",
    is_redz = "Redz",
    is_quantum = "Quantum",
    is_necros = "Necros",
    is_crescendo = "Crescendo",
    is_syn = "Syn",
    is_valyse = "Valyse",
    is_xeno = "Xeno"
}

for key, name in pairs(executorInfo) do
    if _G[key] ~= nil then
        ExecutorName = name
        break
    end
end

if getexecutorname then
    pcall(function()
        ExecutorName = getexecutorname()
    end)
end

print("[Universal] Meow Farm đang khởi động trên: " .. ExecutorName)

-- ===== BIẾN CẤU HÌNH =====
local Settings = {
    AutoFarm = false,
    AutoQuest = false,
    FastAttack = false,
    FPSBoost = false,
    FreezeMob = false,
    BoostSpeed = false,
    AutoLum = false,
    AutoFruit = false,
    AutoRandomFruit = false
}

-- ===== TẠO UI =====
local function CreateUI()
    -- Xóa UI cũ nếu có
    for _, v in pairs(CoreGui:GetChildren()) do
        if v.Name == "MeowUniversalUI" then
            v:Destroy()
        end
    end
    
    local ScreenGui = Instance.new("ScreenGui")
    ScreenGui.Parent = CoreGui
    ScreenGui.Name = "MeowUniversalUI"
    ScreenGui.ResetOnSpawn = false
    ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
    
    -- Logo Meow
    local Logo = Instance.new("TextLabel")
    Logo.Parent = ScreenGui
    Logo.Size = UDim2.new(0, 55, 0, 55)
    Logo.Position = UDim2.new(0, 5, 0, 5)
    Logo.BackgroundTransparency = 1
    Logo.Text = "🐱"
    Logo.TextSize = 45
    Logo.TextColor3 = Color3.fromRGB(255, 200, 50)
    Logo.Name = "MeowLogo"
    
    -- Main Frame
    local MainFrame = Instance.new("Frame")
    MainFrame.Parent = ScreenGui
    MainFrame.Size = UDim2.new(0, 240, 0, 440)
    MainFrame.Position = UDim2.new(0, 65, 0, 5)
    MainFrame.BackgroundColor3 = Color3.fromRGB(20, 20, 35)
    MainFrame.BackgroundTransparency = 0.1
    MainFrame.BorderSizePixel = 2
    MainFrame.BorderColor3 = Color3.fromRGB(255, 180, 0)
    MainFrame.Active = true
    MainFrame.Draggable = true
    MainFrame.Name = "MainFrame"
    
    -- Title
    local TitleBar = Instance.new("Frame")
    TitleBar.Parent = MainFrame
    TitleBar.Size = UDim2.new(1, 0, 0, 32)
    TitleBar.BackgroundColor3 = Color3.fromRGB(255, 180, 0)
    TitleBar.BorderSizePixel = 0
    
    local Title = Instance.new("TextLabel")
    Title.Parent = TitleBar
    Title.Size = UDim2.new(1, -30, 1, 0)
    Title.BackgroundTransparency = 1
    Title.Text = "🐱 MEOW FARM"
    Title.TextColor3 = Color3.fromRGB(0, 0, 0)
    Title.Font = Enum.Font.GothamBold
    Title.TextSize = 16
    Title.TextXAlignment = Enum.TextXAlignment.Center
    
    -- Executor name
    local ExecLabel = Instance.new("TextLabel")
    ExecLabel.Parent = TitleBar
    ExecLabel.Size = UDim2.new(0, 100, 1, 0)
    ExecLabel.Position = UDim2.new(1, -105, 0, 0)
    ExecLabel.BackgroundTransparency = 1
    ExecLabel.Text = ExecutorName
    ExecLabel.TextColor3 = Color3.fromRGB(0, 0, 0)
    ExecLabel.Font = Enum.Font.Gotham
    ExecLabel.TextSize = 10
    ExecLabel.TextXAlignment = Enum.TextXAlignment.Right
    
    -- Close Button
    local CloseBtn = Instance.new("TextButton")
    CloseBtn.Parent = TitleBar
    CloseBtn.Size = UDim2.new(0, 26, 1, -4)
    CloseBtn.Position = UDim2.new(1, -28, 0, 2)
    CloseBtn.BackgroundColor3 = Color3.fromRGB(255, 50, 50)
    CloseBtn.Text = "✕"
    CloseBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
    CloseBtn.Font = Enum.Font.GothamBold
    CloseBtn.TextSize = 14
    CloseBtn.BorderSizePixel = 0
    CloseBtn.MouseButton1Click:Connect(function()
        ScreenGui:Destroy()
    end)
    
    -- Hàm tạo nút
    local function CreateButton(parent, text, yPos, callback)
        local btn = Instance.new("TextButton")
        btn.Parent = parent
        btn.Size = UDim2.new(0.9, 0, 0, 29)
        btn.Position = UDim2.new(0.05, 0, 0, yPos)
        btn.BackgroundColor3 = Color3.fromRGB(45, 45, 70)
        btn.TextColor3 = Color3.fromRGB(240, 240, 255)
        btn.Text = text
        btn.Font = Enum.Font.Gotham
        btn.TextSize = 13
        btn.BorderSizePixel = 1
        btn.BorderColor3 = Color3.fromRGB(70, 70, 95)
        btn.BackgroundTransparency = 0.2
        btn.MouseButton1Click:Connect(callback)
        return btn
    end
    
    -- Tạo các nút
    local yPos = 38
    local btnList = {}
    
    local buttonDefs = {
        {"[ ] Auto Đánh Mob", function()
            Settings.AutoFarm = not Settings.AutoFarm
            btnList[1].Text = Settings.AutoFarm and "[X] Auto Đánh Mob" or "[ ] Auto Đánh Mob"
        end},
        {"[ ] Auto Nhận Nhiệm Vụ", function()
            Settings.AutoQuest = not Settings.AutoQuest
            btnList[2].Text = Settings.AutoQuest and "[X] Auto Nhận Nhiệm Vụ" or "[ ] Auto Nhận Nhiệm Vụ"
        end},
        {"[ ] Fast Attack", function()
            Settings.FastAttack = not Settings.FastAttack
            btnList[3].Text = Settings.FastAttack and "[X] Fast Attack" or "[ ] Fast Attack"
        end},
        {"[ ] FPS Boost", function()
            Settings.FPSBoost = not Settings.FPSBoost
            btnList[4].Text = Settings.FPSBoost and "[X] FPS Boost" or "[ ] FPS Boost"
        end},
        {"[ ] Freeze Mob", function()
            Settings.FreezeMob = not Settings.FreezeMob
            btnList[5].Text = Settings.FreezeMob and "[X] Freeze Mob" or "[ ] Freeze Mob"
        end},
        {"[ ] Boost Speed", function()
            Settings.BoostSpeed = not Settings.BoostSpeed
            btnList[6].Text = Settings.BoostSpeed and "[X] Boost Speed" or "[ ] Boost Speed"
        end},
        {"[ ] Auto Lụm Rương", function()
            Settings.AutoLum = not Settings.AutoLum
            btnList[7].Text = Settings.AutoLum and "[X] Auto Lụm Rương" or "[ ] Auto Lụm Rương"
        end},
        {"[ ] Auto Nhặt Fruit", function()
            Settings.AutoFruit = not Settings.AutoFruit
            btnList[8].Text = Settings.AutoFruit and "[X] Auto Nhặt Fruit" or "[ ] Auto Nhặt Fruit"
        end},
        {"[ ] Auto Random Fruit", function()
            Settings.AutoRandomFruit = not Settings.AutoRandomFruit
            btnList[9].Text = Settings.AutoRandomFruit and "[X] Auto Random Fruit" or "[ ] Auto Random Fruit"
        end}
    }
    
    for i, data in ipairs(buttonDefs) do
        local btn = CreateButton(MainFrame, data[1], yPos, data[2])
        btnList[i] = btn
        yPos = yPos + 33
    end
    
    -- Status
    local Status = Instance.new("TextLabel")
    Status.Parent = MainFrame
    Status.Size = UDim2.new(1, 0, 0, 22)
    Status.Position = UDim2.new(0, 0, 1, -24)
    Status.BackgroundTransparency = 1
    Status.Text = "🐱 Universal - " .. ExecutorName
    Status.TextColor3 = Color3.fromRGB(255, 200, 50)
    Status.Font = Enum.Font.Gotham
    Status.TextSize = 11
    
    return ScreenGui, MainFrame
end

-- Tạo UI
local ScreenGui, MainFrame = CreateUI()

print("[Universal] UI đã tạo thành công")

-- ===== HÀM TIỆN ÍCH =====
local function GetCharacter()
    local char = LocalPlayer.Character
    if not char then return nil end
    local hum = char:FindFirstChild("Humanoid")
    if not hum or hum.Health <= 0 then return nil end
    return char
end

local function GetPart(obj)
    return obj:FindFirstChild("Torso") or obj:FindFirstChild("PrimaryPart") or obj:FindFirstChild("Head") or obj:FindFirstChild("UpperTorso")
end

-- ===== TÌM MOB =====
local function GetNearestMob(char)
    local nearest = nil
    local shortest = math.huge
    local part = GetPart(char)
    if not part then return nil end
    
    for _, v in pairs(Workspace:GetDescendants()) do
        if v:IsA("Model") and v:FindFirstChild("Humanoid") then
            local hum = v:FindFirstChild("Humanoid")
            if hum and hum.Health > 0 and v.Name ~= LocalPlayer.Name then
                local t = GetPart(v)
                if t then
                    local dist = (t.Position - part.Position).Magnitude
                    if dist < shortest and dist <= 35 then
                        nearest = v
                        shortest = dist
                    end
                end
            end
        end
    end
    return nearest
end

-- ===== TÌM NPC QUEST =====
local function GetQuestNPC(char)
    local nearest = nil
    local shortest = math.huge
    local part = GetPart(char)
    if not part then return nil end
    
    local keywords = {"quest", "npc", "king", "sage", "trainer", "master", "elder", "giver", "chief", "leader", "vendor", "merchant"}
    
    for _, v in pairs(Workspace:GetDescendants()) do
        if v:IsA("Model") and v:FindFirstChild("Humanoid") then
            local hum = v:FindFirstChild("Humanoid")
            if hum and hum.Health > 0 then
                local name = (v.Name or ""):lower()
                for _, kw in pairs(keywords) do
                    if string.find(name, kw) then
                        local t = GetPart(v)
                        if t then
                            local dist = (t.Position - part.Position).Magnitude
                            if dist < shortest and dist <= 45 then
                                nearest = v
                                shortest = dist
                            end
                        end
                        break
                    end
                end
            end
        end
    end
    return nearest
end

-- ===== DI CHUYỂN =====
local function MoveTo(position, char)
    local part = GetPart(char)
    if part then
        pcall(function()
            part.CFrame = CFrame.new(position)
        end)
    end
end

-- ===== TẤN CÔNG =====
local function AttackMob(mob, char)
    local tool = char:FindFirstChildOfClass("Tool")
    if tool then
        pcall(function()
            tool:Activate()
            wait(Settings.FastAttack and 0.05 or 0.25)
            tool:Deactivate()
        end)
    else
        local backpack = LocalPlayer:FindFirstChild("Backpack")
        if backpack then
            local tool2 = backpack:FindFirstChildOfClass("Tool")
            if tool2 then
                pcall(function()
                    tool2.Parent = char
                    wait(0.1)
                    tool2:Activate()
                    wait(Settings.FastAttack and 0.05 or 0.25)
                    tool2:Deactivate()
                end)
            end
        end
    end
end

-- ===== AUTO QUEST =====
local function AutoAcceptQuest()
    local char = GetCharacter()
    if not char then return end
    
    local npc = GetQuestNPC(char)
    if npc then
        local t = GetPart(npc)
        if t then
            MoveTo(t.Position, char)
            wait(0.5)
            
            local click = t:FindFirstChildWhichIsA("ClickDetector")
            if click then
                pcall(function()
                    fireclickdetector(click)
                end)
            end
            
            local remotes = ReplicatedStorage:FindFirstChild("Remotes") or ReplicatedStorage:FindFirstChild("Remote")
            if remotes then
                local comm = remotes:FindFirstChild("CommF_") or remotes:FindFirstChild("Comm")
                if comm then
                    pcall(function()
                        comm:InvokeServer("StartQuest")
                    end)
                end
            end
        end
    end
end

-- ===== AUTO LỤM RƯƠNG =====
local function AutoLumRuong()
    local char = GetCharacter()
    if not char then return end
    local part = GetPart(char)
    if not part then return end
    
    for _, v in pairs(Workspace:GetDescendants()) do
        if v:IsA("Tool") and v.Parent == Workspace then
            local name = (v.Name or ""):lower()
            if string.find(name, "lum") or string.find(name, "ruong") or string.find(name, "chest") or string.find(name, "box") or string.find(name, "crate") then
                local dist = (v.Position - part.Position).Magnitude
                if dist <= 50 then
                    MoveTo(v.Position, char)
                    wait(0.3)
                    local click = v:FindFirstChildWhichIsA("ClickDetector")
                    if click then
                        pcall(function()
                            fireclickdetector(click)
                        end)
                    end
                end
            end
        end
    end
end

-- ===== AUTO NHẶT FRUIT =====
local function AutoNhatFruit()
    local char = GetCharacter()
    if not char then return end
    local part = GetPart(char)
    if not part then return end
    
    for _, v in pairs(Workspace:GetDescendants()) do
        if v:IsA("Tool") and v.Parent == Workspace then
            local name = (v.Name or ""):lower()
            if string.find(name, "fruit") then
                local dist = (v.Position - part.Position).Magnitude
                if dist <= 55 then
                    MoveTo(v.Position, char)
                    wait(0.3)
                    local click = v:FindFirstChildWhichIsA("ClickDetector")
                    if click then
                        pcall(function()
                            fireclickdetector(click)
                        end)
                    end
                end
            end
        end
    end
end

-- ===== AUTO RANDOM FRUIT =====
local function AutoRandomFruit()
    local fruits = {"Bomb", "Spike", "Spring", "Chop", "Smoke", "Flame", "Ice", "Sand", "Dark", "Light", "Magma", "Rumble", "Paw", "Gravity", "Dough", "Shadow", "Venom", "Control", "Dragon", "Leopard"}
    local selected = fruits[math.random(1, #fruits)]
    
    local remotes = ReplicatedStorage:FindFirstChild("Remotes") or ReplicatedStorage:FindFirstChild("Remote")
    if remotes then
        local comm = remotes:FindFirstChild("CommF_") or remotes:FindFirstChild("Comm")
        if comm then
            pcall(function()
                comm:InvokeServer("Buy", selected)
            end)
        end
    end
end

-- ===== FPS BOOST =====
local function ApplyFPSBoost()
    pcall(function()
        if settings and settings().Rendering then
            settings().Rendering.QualityLevel = 1
        end
        Workspace.Terrain:Clear()
    end)
end

local function FreezeAllMobs()
    for _, v in pairs(Workspace:GetDescendants()) do
        if v:IsA("Model") and v:FindFirstChild("Humanoid") and v.Name ~= LocalPlayer.Name then
            pcall(function()
                v.Humanoid.WalkSpeed = 0
                v.Humanoid.JumpPower = 0
            end)
        end
    end
end

local function BoostPlayerSpeed()
    local char = GetCharacter()
    if char then
        local hum = char:FindFirstChild("Humanoid")
        if hum then
            pcall(function()
                hum.WalkSpeed = 60
            end)
        end
    end
end

-- ===== VÒNG LẶP CHÍNH =====
spawn(function()
    local questCooldown = 0
    local fruitCooldown = 0
    
    print("[Universal] Vòng lặp chính đã bắt đầu")
    
    while wait(0.1) do
        local char = GetCharacter()
        if not char then
            wait(1)
            continue
        end
        
        -- Auto Farm
        if Settings.AutoFarm then
            local mob = GetNearestMob(char)
            if mob then
                local t = GetPart(mob)
                if t then
                    MoveTo(t.Position, char)
                    AttackMob(mob, char)
                end
            end
        end
        
        -- Auto Quest
        if Settings.AutoQuest and questCooldown <= 0 then
            AutoAcceptQuest()
            questCooldown = 3
        end
        if questCooldown > 0 then
            questCooldown = questCooldown - 0.1
        end
        
        -- Auto Lum Ruong
        if Settings.AutoLum then
            AutoLumRuong()
        end
        
        -- Auto Fruit
        if Settings.AutoFruit then
            AutoNhatFruit()
        end
        
        -- Auto Random Fruit
        if Settings.AutoRandomFruit and fruitCooldown <= 0 then
            AutoRandomFruit()
            fruitCooldown = 300
        end
        if fruitCooldown > 0 then
            fruitCooldown = fruitCooldown - 0.1
        end
        
        -- FPS Boost
        if Settings.FPSBoost then
            ApplyFPSBoost()
        end
        
        -- Freeze Mob
        if Settings.FreezeMob then
            FreezeAllMobs()
        end
        
        -- Boost Speed
        if Settings.BoostSpeed then
            BoostPlayerSpeed()
        end
    end
end)
← Back to timeline