-- Pasang Script ini di StarterPlayer -> StarterPlayerScripts atau StarterGui
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")
-- Pengaturan Kunci Utama
local KUNCI_VALID = "127764273000599"
-- ====================================================
-- 1. SELEKSI AWAL: MEMBUAT PANEL LOGIN (KEY SYSTEM)
-- ====================================================
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "SystemVerificationGui"
screenGui.ResetOnSpawn = false
screenGui.Parent = playerGui
-- Frame Login
local loginFrame = Instance.new("Frame")
loginFrame.Size = UDim2.new(0, 280, 0, 160)
loginFrame.Position = UDim2.new(0.5, -140, 0.4, -80)
loginFrame.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
loginFrame.Active = true
loginFrame.Draggable = true
loginFrame.Parent = screenGui
local cornerLogin = Instance.new("UICorner")
cornerLogin.CornerRadius = UDim.new(0, 8)
cornerLogin.Parent = loginFrame
-- Judul Login
local loginTitle = Instance.new("TextLabel")
loginTitle.Size = UDim2.new(1, 0, 0, 30)
loginTitle.Text = "Masukkan Kunci Akses"
loginTitle.TextColor3 = Color3.fromRGB(255, 255, 255)
loginTitle.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
loginTitle.Font = Enum.Font.SourceSansBold
loginTitle.TextSize = 14
loginTitle.Parent = loginFrame
-- Input Teks Kunci
local keyInput = Instance.new("TextBox")
keyInput.Size = UDim2.new(0, 240, 0, 35)
keyInput.Position = UDim2.new(0.5, -120, 0.4, 0)
keyInput.PlaceholderText = "Ketik kunci di sini..."
keyInput.Text = ""
keyInput.ClearTextOnFocus = true
keyInput.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
keyInput.Parent = loginFrame
-- Tombol Verifikasi
local loginButton = Instance.new("TextButton")
loginButton.Size = UDim2.new(0, 240, 0, 35)
loginButton.Position = UDim2.new(0.5, -120, 0.7, 5)
loginButton.Text = "VERIFIKASI KUNCI"
loginButton.BackgroundColor3 = Color3.fromRGB(230, 126, 34)
loginButton.TextColor3 = Color3.fromRGB(255, 255, 255)
loginButton.Font = Enum.Font.SourceSansBold
loginButton.TextSize = 14
loginButton.Parent = loginFrame
-- ====================================================
-- 2. FUNGSI UTAMA: HANYA BERJALAN JIKA KUNCI BENAR
-- ====================================================
local function bukaScriptUtama()
-- Menghapus panel login agar bersih
loginFrame:Destroy()
-- Membuat Panel Fitur (Hanya dibuat setelah lolos verifikasi kunci)
local mainFrame = Instance.new("Frame")
mainFrame.Size = UDim2.new(0, 260, 0, 160)
mainFrame.Position = UDim2.new(0.5, -130, 0.4, -80)
mainFrame.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
mainFrame.Active = true
mainFrame.Draggable = true
mainFrame.Parent = screenGui
local cornerMain = Instance.new("UICorner")
cornerMain.CornerRadius = UDim.new(0, 8)
cornerMain.Parent = mainFrame
local mainTitle = Instance.new("TextLabel")
mainTitle.Size = UDim2.new(1, 0, 0, 30)
mainTitle.Text = "Drill Simulator UI - Akses Diterima"
mainTitle.TextColor3 = Color3.fromRGB(0, 255, 150)
mainTitle.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
mainTitle.Font = Enum.Font.SourceSansBold
mainTitle.TextSize = 14
mainTitle.Parent = mainFrame
-- Input Angka Uang
local moneyInput = Instance.new("TextBox")
moneyInput.Size = UDim2.new(0, 220, 0, 35)
moneyInput.Position = UDim2.new(0.5, -110, 0.35, 0)
moneyInput.PlaceholderText = "Jumlah visual uang..."
moneyInput.Text = ""
moneyInput.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
moneyInput.Parent = mainFrame
-- Tombol Kirim Perubahan
local setButton = Instance.new("TextButton")
setButton.Size = UDim2.new(0, 220, 0, 35)
setButton.Position = UDim2.new(0.5, -110, 0.65, 5)
setButton.Text = "Sesuaikan Tampilan Uang"
setButton.BackgroundColor3 = Color3.fromRGB(0, 150, 255)
setButton.TextColor3 = Color3.fromRGB(255, 255, 255)
setButton.Font = Enum.Font.SourceSansBold
setButton.TextSize = 14
setButton.Parent = mainFrame
-- Aksi ganti nilai visual leaderstats pemain
setButton.MouseButton1Click:Connect(function()
local amount = tonumber(moneyInput.Text)
if amount then
local leaderstats = player:FindFirstChild("leaderstats")
if leaderstats then
-- Menyesuaikan nama mata uang Drill Digging Simulator
local money = leaderstats:FindFirstChild("Money") or leaderstats:FindFirstChild("Cash") or leaderstats:FindFirstChild("Coins")
if money then
money.Value = amount
end
end
end
end)
end
-- ====================================================
-- 3. LOGIKA DETEKSI TOMBOL LOGIN
-- ====================================================
loginButton.MouseButton1Click:Connect(function()
-- Cek secara akurat apakah teks input persis sama dengan KUNCI_VALID
if keyInput.Text == KUNCI_VALID then
print("Kunci Benar! Membuka script...")
bukaScriptUtama() -- Memanggil fungsi pembuat GUI utama
else
-- Jika salah, panel utama tidak akan pernah dibuat
keyInput.Text = ""
keyInput.PlaceholderText = "KUNCI SALAH! Akses Ditolak."
-- Efek berkedip merah tanda error singkat
loginFrame.BackgroundColor3 = Color3.fromRGB(150, 0, 0)
task.wait(0.3)
loginFrame.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
end
end)
Comments
Join the discussion about this script.
No comments yet
Be the first to share your thoughts!