kukluxk

8 followers•1w ago

15,123 views

Hp & Stamina Bar (NO KEY, FREE)

(学乱) Gakuran

Mobile ready

Play Game link

Description

Enjoy, guys! Just a standard game script-nothing special, but it might come in handy. I might expand the functionality in the future, so stay tuned. It’s all open source. (Made in 5 minutes using AI).

Tested with the following executors:

Script Code

250 lines•9.6 KB

local Players = game:GetService("Players")

local UserInputService = game:GetService("UserInputService")

local player = Players.LocalPlayer

-- Настройка GUI

local screenGui = Instance.new("ScreenGui")

screenGui.Name = "Gakuran_HUD_V5_Mobile"

screenGui.ResetOnSpawn = false

if gethui then

screenGui.Parent = gethui()

elseif syn and syn.protect_gui then

syn.protect_gui(screenGui)

screenGui.Parent = game:GetService("CoreGui")

else

screenGui.Parent = game:GetService("CoreGui")

end

-- ==========================================

-- УМНАЯ ФУНКЦИЯ ПЕРЕТАСКИВАНИЯ (С ОТЛИЧИЕМ КЛИКА ОТ ДРАГА)

-- ==========================================

local function makeDraggable(gui, onClickCallback)

local dragging = false

local dragStart = nil

local startPos = nil

local hasDragged = false

gui.InputBegan:Connect(function(input)

if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then

dragging = true

hasDragged = false

dragStart = input.Position

startPos = gui.Position

end

end)

gui.InputChanged:Connect(function(input)

if dragging and (input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch) then

local delta = input.Position - dragStart

-- Если сдвинули больше чем на 5 пикселей, считаем это перетаскиванием

if math.abs(delta.X) > 5 or math.abs(delta.Y) > 5 then

hasDragged = true

gui.Position = UDim2.new(

startPos.X.Scale, startPos.X.Offset + delta.X,

startPos.Y.Scale, startPos.Y.Offset + delta.Y

)

end

end)

gui.InputEnded:Connect(function(input)

if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then

dragging = false

-- Если мы НЕ тащили элемент, а просто тапнули — вызываем клик

if not hasDragged and onClickCallback then

onClickCallback()

end

end)

end

-- ==========================================

-- КНОПКА ОТКРЫТИЯ/ЗАКРЫТИЯ (ДЛЯ ТЕЛЕФОНОВ)

-- ==========================================

local toggleBtn = Instance.new("TextButton")

toggleBtn.Size = UDim2.new(0, 45, 0, 45)

toggleBtn.Position = UDim2.new(0, 15, 0, 15) -- В левом верхнем углу

toggleBtn.BackgroundColor3 = Color3.fromRGB(12, 12, 15)

toggleBtn.BackgroundTransparency = 0.2

toggleBtn.BorderSizePixel = 0

toggleBtn.Text = "HUD"

toggleBtn.TextColor3 = Color3.fromRGB(255, 255, 255)

toggleBtn.Font = Enum.Font.GothamBold

toggleBtn.TextSize = 12

toggleBtn.Active = true

toggleBtn.Parent = screenGui

Instance.new("UICorner", toggleBtn).CornerRadius = UDim.new(0, 8)

-- ==========================================

-- ОСНОВНОЕ МЕНЮ

-- ==========================================

local mainFrame = Instance.new("Frame")

mainFrame.Size = UDim2.new(0, 190, 0, 65)

mainFrame.Position = UDim2.new(1, -210, 0, 45)

mainFrame.BackgroundColor3 = Color3.fromRGB(12, 12, 15)

mainFrame.BackgroundTransparency = 0.2

mainFrame.BorderSizePixel = 0

mainFrame.Active = true

mainFrame.Visible = false -- Изначально скрыто

mainFrame.Parent = screenGui

Instance.new("UICorner", mainFrame).CornerRadius = UDim.new(0, 8)

-- Применяем перетаскивание к меню (без клика)

makeDraggable(mainFrame, nil)

-- Применяем перетаскивание к кнопке (с умным кликом)

makeDraggable(toggleBtn, function()

mainFrame.Visible = not mainFrame.Visible

end)

-- Текст HP

local hpText = Instance.new("TextLabel")

hpText.Size = UDim2.new(1, -20, 0, 25)

hpText.Position = UDim2.new(0, 12, 0, 8)

hpText.BackgroundTransparency = 1

hpText.TextColor3 = Color3.fromRGB(255, 80, 80)

hpText.TextSize = 14

hpText.Font = Enum.Font.GothamBold

hpText.TextXAlignment = Enum.TextXAlignment.Left

hpText.Text = "HP: ..."

hpText.Parent = mainFrame

-- Текст Стамины

local stamText = Instance.new("TextLabel")

stamText.Size = UDim2.new(1, -20, 0, 25)

stamText.Position = UDim2.new(0, 12, 0, 32)

stamText.BackgroundTransparency = 1

stamText.TextColor3 = Color3.fromRGB(255, 180, 60)

stamText.TextSize = 14

stamText.Font = Enum.Font.GothamBold

stamText.TextXAlignment = Enum.TextXAlignment.Left

stamText.Text = "STAMINA: ..."

stamText.Parent = mainFrame

-- ==========================================

-- ЛОГИКА HP

-- ==========================================

local hum = nil

local hpConn = nil

local function updateHp()

if hum then

hpText.Text = string.format("HP %.0f / %.0f", hum.Health, hum.MaxHealth)

end

local function setupCharacter(char)

hum = char:WaitForChild("Humanoid", 5)

if hpConn then hpConn:Disconnect() end

if hum then

hpConn = hum:GetPropertyChangedSignal("Health"):Connect(updateHp)

updateHp()

else

hpText.Text = "HP: Ошибка"

end

if player.Character then setupCharacter(player.Character) end

player.CharacterAdded:Connect(setupCharacter)

-- ==========================================

-- ЛОГИКА СТАМИНЫ GAKURAN

-- ==========================================

local staminaSource = nil

local sourceType = nil

local lastStamVal = -1

local function findPhysicalStamina()

local char = player.Character

if not char then return nil, nil end

local stats = char:FindFirstChild("Stats") or char:FindFirstChild("Data") or char:FindFirstChild("Folder")

if stats then

local stamObj = stats:FindFirstChild("Stamina") or stats:FindFirstChild("stamina") or stats:FindFirstChild("Energy")

if stamObj and stamObj:IsA("ValueObject") then return stamObj, "Value" end

end

local directStam = char:FindFirstChild("Stamina") or char:FindFirstChild("stamina")

if directStam and directStam:IsA("ValueObject") then return directStam, "Value" end

if char:GetAttribute("Stamina") ~= nil then return "CharAttribute", "Attribute"

elseif player:GetAttribute("Stamina") ~= nil then return "PlayerAttribute", "Attribute" end

return nil, nil

end

local function findGCRelatedStamina()

if not getgc then return nil, nil end

local gctables = getgc()

for _, v in pairs(gctables) do

if type(v) == "table" then

local hasStam = rawget(v, "Stamina") or rawget(v, "stamina") or rawget(v, "_stamina")

if hasStam and type(hasStam) == "number" then

local isCombatTable = rawget(v, "Posture") or rawget(v, "MaxStamina") or rawget(v, "Blocking") or rawget(v, "Stunned") or rawget(v, "MaxStam")

if isCombatTable then return v, "Table" end

end

return nil, nil

end

local function resolveStaminaSource()

local src, t = findPhysicalStamina()

if src then staminaSource = src; sourceType = t; return end

src, t = findGCRelatedStamina()

if src then staminaSource = src; sourceType = t; return end

staminaSource = nil; sourceType = nil

end

player.CharacterRemoving:Connect(function()

staminaSource = nil; sourceType = nil; lastStamVal = -1

end)

task.spawn(function()

local scanCooldown = 0

while task.wait(0.05) do

-- Если источник не найден, ищем его ДАЖЕ если меню скрыто (чтобы потом показать сразу)

if not staminaSource then

if tick() - scanCooldown > 3 then

scanCooldown = tick()

resolveStaminaSource()

end

if mainFrame.Visible then

stamText.Text = "STAMINA: Поиск..."

end

continue

end

-- Если меню закрыто, не тратим ресурсы на обновление текста

if not mainFrame.Visible then continue end

local currentStam = nil

local success = pcall(function()

if sourceType == "Value" then currentStam = staminaSource.Value

elseif sourceType == "Attribute" then

local char = player.Character

if staminaSource == "CharAttribute" and char then currentStam = char:GetAttribute("Stamina")

else currentStam = player:GetAttribute("Stamina") end

elseif sourceType == "Table" then

currentStam = rawget(staminaSource, "Stamina") or rawget(staminaSource, "stamina") or rawget(staminaSource, "_stamina")

end

end)

if not success or currentStam == nil then

staminaSource = nil; sourceType = nil

continue

end

if currentStam ~= lastStamVal then

lastStamVal = currentStam

stamText.Text = string.format("STAMINA %.0f", currentStam)

if currentStam < 30 then stamText.TextColor3 = Color3.fromRGB(255, 100, 100)

else stamText.TextColor3 = Color3.fromRGB(255, 180, 60) end

end

end)

-- Бинд на кнопку INSERT (Для ПК)

UserInputService.InputBegan:Connect(function(input, gp)

if not gp and input.KeyCode == Enum.KeyCode.Insert then

mainFrame.Visible = not mainFrame.Visible

end

end)

Comments

19comments

kukluxkScript Owner•6d ago

Oh, forgot to mention, I won’t be updating this script anymore. I didn't just tweak it, I completely overhauled the entire thing—the style, the features, everything. So from now on, I’ll be working on a brand new script over on my profile. You guys can just forget about this one.

kukluxkScript Owner•6d ago

Hey everyone, just dropped the new script update! Please go check it out! It’s still completely free with no key system. Maybe I’ll add one later when I finish adding all your requested features, but that’s way later.

CookAIMBOTFORESP•1w ago

Btw if you dont mind me asking what executor do you use?

kukluxkScript Owner•1w ago

I’ve decided to put instrument auto-play and auto-parry on hold for now. Using these features is risky, there's a high chance of getting banned, and honestly, they are a massive headache to develop. So, I’m looking into alternatives, like visual features. Things like enemy hitboxes, HP bars, and an indicator for the perfect parry window so you guys can parry manually.

CookAIMBOTFORESP•1w ago

Hey bro I'm reading the comments and they look pretty good I'll try It out and see if I get banned or not but for sure this script looks well made.