-- إنشاء النافذة
local screenGui = Instance.new("ScreenGui")
screenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

local window = Instance.new("Frame")
window.Size = UDim2.new(0.35, 0, 0.9, 0) -- حجم النافذة (35% عرض، 90% ارتفاع)
window.Position = UDim2.new(0.65, 0, 0.05, 0) -- موقع النافذة (في الجانب الأيمن)
window.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2) -- لون الخلفية
window.Parent = screenGui

-- جعل حواف النافذة دائرية
local corner = Instance.new("UICorner")
corner.CornerRadius = UDim.new(0.1, 0) -- جعل الحواف دائرية
corner.Parent = window

-- عنوان النافذة
local title = Instance.new("TextLabel")
title.Size = UDim2.new(0.8, 0, 0.1, 0) -- حجم العنوان
title.Position = UDim2.new(0.1, 0, 0.05, 0) -- موقع العنوان (في الأعلى)
title.Text = "سكربت اكادمية دراجون العسكرية(مهكر)" -- نص العنوان
title.TextColor3 = Color3.new(1, 1, 1) -- لون النص
title.TextScaled = true -- تكبير النص ليتناسب مع الحجم
title.BackgroundTransparency = 1 -- خلفية شفافة
title.Parent = window

-- عنوان "تنقلات"
local teleportTitle = Instance.new("TextLabel")
teleportTitle.Size = UDim2.new(0.8, 0, 0.1, 0) -- حجم العنوان
teleportTitle.Position = UDim2.new(0.1, 0, 0.15, 0) -- موقع العنوان (فوق الأزرار)
teleportTitle.Text = "تنقلات" -- نص العنوان
teleportTitle.TextColor3 = Color3.new(1, 1, 1) -- لون النص
teleportTitle.BackgroundTransparency = 1 -- خلفية شفافة
teleportTitle.Parent = window

-- زر "تنقل إلى ردهة"
local roomButton = Instance.new("TextButton")
roomButton.Size = UDim2.new(0.8, 0, 0.1, 0) -- حجم الزر
roomButton.Position = UDim2.new(0.1, 0, 0.3, 0) -- موقع الزر
roomButton.Text = "تنقل إلى ردهة" -- نص الزر
roomButton.BackgroundColor3 = Color3.new(0, 0.5, 1) -- لون الخلفية
roomButton.TextColor3 = Color3.new(1, 1, 1) -- لون النص
roomButton.Parent = window

-- جعل الزر دائريًا
local roomButtonCorner = Instance.new("UICorner")
roomButtonCorner.CornerRadius = UDim.new(0.5, 0) -- جعل الزر دائريًا
roomButtonCorner.Parent = roomButton

-- زر "تنقل إلى مكان تدريب"
local trainingButton = Instance.new("TextButton")
trainingButton.Size = UDim2.new(0.8, 0, 0.1, 0) -- حجم الزر
trainingButton.Position = UDim2.new(0.1, 0, 0.45, 0) -- موقع الزر
trainingButton.Text = "تنقل إلى مكان تدريب" -- نص الزر
trainingButton.BackgroundColor3 = Color3.new(0, 0.5, 1) -- لون الخلفية
trainingButton.TextColor3 = Color3.new(1, 1, 1) -- لون النص
trainingButton.Parent = window

-- جعل الزر دائريًا
local trainingButtonCorner = Instance.new("UICorner")
trainingButtonCorner.CornerRadius = UDim.new(0.5, 0) -- جعل الزر دائريًا
trainingButtonCorner.Parent = trainingButton

-- زر "تنقل إلى منطقة تدريب2"
local training2Button = Instance.new("TextButton")
training2Button.Size = UDim2.new(0.8, 0, 0.1, 0) -- حجم الزر
training2Button.Position = UDim2.new(0.1, 0, 0.6, 0) -- موقع الزر
training2Button.Text = "تنقل إلى منطقة تدريب2" -- نص الزر
training2Button.BackgroundColor3 = Color3.new(0, 0.5, 1) -- لون الخلفية
training2Button.TextColor3 = Color3.new(1, 1, 1) -- لون النص
training2Button.Parent = window

-- جعل الزر دائريًا
local training2ButtonCorner = Instance.new("UICorner")
training2ButtonCorner.CornerRadius = UDim.new(0.5, 0) -- جعل الزر دائريًا
training2ButtonCorner.Parent = training2Button

-- زر "الفوز في سباق الرمل"
local winRaceButton = Instance.new("TextButton")
winRaceButton.Size = UDim2.new(0.8, 0, 0.1, 0) -- حجم الزر
winRaceButton.Position = UDim2.new(0.1, 0, 0.75, 0) -- موقع الزر
winRaceButton.Text = "الفوز في سباق الرمل" -- نص الزر
winRaceButton.BackgroundColor3 = Color3.new(0, 0.5, 1) -- لون الخلفية
winRaceButton.TextColor3 = Color3.new(1, 1, 1) -- لون النص
winRaceButton.Parent = window

-- جعل الزر دائريًا
local winRaceButtonCorner = Instance.new("UICorner")
winRaceButtonCorner.CornerRadius = UDim.new(0.5, 0) -- جعل الزر دائريًا
winRaceButtonCorner.Parent = winRaceButton

-- زر "تجميع الي"
local autoTeleportButton = Instance.new("TextButton")
autoTeleportButton.Size = UDim2.new(0.8, 0, 0.1, 0) -- حجم الزر
autoTeleportButton.Position = UDim2.new(0.1, 0, 0.9, 0) -- موقع الزر
autoTeleportButton.Text = "تشغيل تجميع الي" -- نص الزر
autoTeleportButton.BackgroundColor3 = Color3.new(0, 0.5, 1) -- لون الخلفية
autoTeleportButton.TextColor3 = Color3.new(1, 1, 1) -- لون النص
autoTeleportButton.Parent = window

-- جعل الزر دائريًا
local autoTeleportButtonCorner = Instance.new("UICorner")
autoTeleportButtonCorner.CornerRadius = UDim.new(0.5, 0) -- جعل الزر دائريًا
autoTeleportButtonCorner.Parent = autoTeleportButton

-- زر الإغلاق
local closeButton = Instance.new("TextButton")
closeButton.Size = UDim2.new(0.1, 0, 0.1, 0) -- حجم الزر
closeButton.Position = UDim2.new(0.85, 0, 0.02, 0) -- موقع الزر (في الزاوية اليمنى العليا)
closeButton.Text = "X" -- نص الزر
closeButton.BackgroundColor3 = Color3.new(1, 0, 0) -- لون الخلفية
closeButton.TextColor3 = Color3.new(1, 1, 1) -- لون النص
closeButton.Parent = window

-- جعل زر الإغلاق دائريًا
local closeButtonCorner = Instance.new("UICorner")
closeButtonCorner.CornerRadius = UDim.new(0.5, 0) -- جعل الزر دائريًا
closeButtonCorner.Parent = closeButton

-- وظيفة النقل إلى موقع محدد
local function teleportPlayerTo(position)
    local player = game.Players.LocalPlayer
    local character = player.Character
    if character and character:FindFirstChild("HumanoidRootPart") then
        character.HumanoidRootPart.CFrame = position
    end
end

-- زر "تنقل إلى ردهة"
roomButton.MouseButton1Click:Connect(function()
    local target = workspace.dmg:GetChildren()[2]
    if target then
        teleportPlayerTo(target.CFrame)
    else
        warn("لم يتم العثور على الردهة!")
    end
end)

-- زر "تنقل إلى مكان تدريب"
trainingButton.MouseButton1Click:Connect(function()
    local target = workspace.TrainingSystem:FindFirstChild("SpatialArea2")
    if target then
        teleportPlayerTo(target.CFrame)
    else
        warn("لم يتم العثور على مكان التدريب!")
    end
end)

-- زر "تنقل إلى منطقة تدريب2"
training2Button.MouseButton1Click:Connect(function()
    local target = workspace.TrainingSystem:FindFirstChild("SpatialArea")
    if target then
        teleportPlayerTo(target.CFrame)
    else
        warn("لم يتم العثور على منطقة التدريب2!")
    end
end)

-- زر "الفوز في سباق الرمل"
winRaceButton.MouseButton1Click:Connect(function()
    local target = workspace.Maps.Map1:FindFirstChild("WinPart")
    if target then
        teleportPlayerTo(target.CFrame)
    else
        warn("لم يتم العثور على منطقة الفوز في سباق الرمل!")
    end
end)

-- وظيفة إغلاق النافذة
closeButton.MouseButton1Click:Connect(function()
    screenGui:Destroy() -- إغلاق النافذة
end)

-- متغير لتتبع حالة التجميع التلقائي
local isAutoTeleporting = false

-- وظيفة التجميع التلقائي
local function autoTeleport()
    while isAutoTeleporting do
        wait(3) -- انتظر ثلاث ثوانٍ

        local bitcoinFolder = workspace:FindFirstChild("Bitcoin")
        if bitcoinFolder then
            -- النقل إلى Bitcoin.Bitcoin
            local bitcoin = bitcoinFolder:FindFirstChild("Bitcoin")
            if bitcoin then
                teleportPlayerTo(bitcoin.CFrame)
                wait(3) -- انتظر ثلاث ثوانٍ قبل الانتقال إلى الموقع التالي
            end

            -- النقل إلى العنصر الثالث في Bitcoin
            local thirdChild = bitcoinFolder:GetChildren()[3]
            if thirdChild then
                teleportPlayerTo(thirdChild.CFrame)
                wait(3) -- انتظر ثلاث ثوانٍ قبل الانتقال إلى الموقع التالي
            end

            -- النقل إلى العنصر الثاني في Bitcoin
            local secondChild = bitcoinFolder:GetChildren()[2]
            if secondChild then
                teleportPlayerTo(secondChild.CFrame)
                wait(3) -- انتظر ثلاث ثوانٍ قبل الانتقال إلى الموقع التالي
            end

            -- النقل إلى العنصر الرابع في Bitcoin
            local fourthChild = bitcoinFolder:GetChildren()[4]
            if fourthChild then
                teleportPlayerTo(fourthChild.CFrame)
            end
        else
            warn("لم يتم العثور على مجلد Bitcoin في workspace!")
        end
    end
end

-- زر "تجميع الي"
autoTeleportButton.MouseButton1Click:Connect(function()
    isAutoTeleporting = not isAutoTeleporting -- تبديل حالة التجميع التلقائي
    if isAutoTeleporting then
        autoTeleportButton.Text = "إيقاف تجميع الي"
        autoTeleport() -- بدء التجميع التلقائي
    else
        autoTeleportButton.Text = "تشغيل تجميع الي"
    end
end)