local UserInputService = game:GetService("UserInputService")
local TweenService = game:GetService("TweenService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

local ScreenGui = Instance.new("ScreenGui")
local MainFrame = Instance.new("Frame")
local UICorner = Instance.new("UICorner")
local UIStroke = Instance.new("UIStroke")
local Title = Instance.new("TextLabel")

local MessageBox = Instance.new("TextBox")
local UserBox = Instance.new("TextBox")
local SendBtn = Instance.new("TextButton")

ScreenGui.Name = "ExternalUI"
ScreenGui.Parent = game:GetService("CoreGui")
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

MainFrame.Name = "MainFrame"
MainFrame.Parent = ScreenGui
MainFrame.BackgroundColor3 = Color3.fromRGB(15, 15, 15)
MainFrame.BorderSizePixel = 0
MainFrame.Position = UDim2.new(1, -180, 0, 50)
MainFrame.Size = UDim2.new(0, 180, 0, 110)

UICorner.CornerRadius = UDim.new(0, 4)
UICorner.Parent = MainFrame

UIStroke.Color = Color3.fromRGB(45, 45, 45)
UIStroke.Thickness = 1
UIStroke.Parent = MainFrame

Title.Name = "Title"
Title.Parent = MainFrame
Title.BackgroundTransparency = 1
Title.Position = UDim2.new(0, 8, 0, 2)
Title.Size = UDim2.new(1, -16, 0, 15)
Title.Font = Enum.Font.Code
Title.Text = "Sloppy Gui"
Title.TextColor3 = Color3.fromRGB(180, 180, 180)
Title.TextSize = 10
Title.TextXAlignment = Enum.TextXAlignment.Left

MessageBox.Parent = MainFrame
MessageBox.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
MessageBox.Position = UDim2.new(0, 5, 0, 20)
MessageBox.Size = UDim2.new(1, -10, 0, 20)
MessageBox.Font = Enum.Font.Code
MessageBox.PlaceholderText = "Message..."
MessageBox.Text = ""
MessageBox.TextColor3 = Color3.fromRGB(255,255,255)
MessageBox.TextScaled = true
MessageBox.TextWrapped = true
MessageBox.ClearTextOnFocus = false

local MBcorner = Instance.new("UICorner")
MBcorner.CornerRadius = UDim.new(0, 3)
MBcorner.Parent = MessageBox

UserBox.Parent = MainFrame
UserBox.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
UserBox.Position = UDim2.new(0, 5, 0, 45)
UserBox.Size = UDim2.new(1, -10, 0, 20)
UserBox.Font = Enum.Font.Code
UserBox.PlaceholderText = "User..."
UserBox.Text = ""
UserBox.TextColor3 = Color3.fromRGB(255,255,255)
UserBox.TextScaled = true
UserBox.TextWrapped = true
UserBox.ClearTextOnFocus = false

local UBcorner = Instance.new("UICorner")
UBcorner.CornerRadius = UDim.new(0, 3)
UBcorner.Parent = UserBox

SendBtn.Parent = MainFrame
SendBtn.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
SendBtn.Position = UDim2.new(0, 5, 0, 70)
SendBtn.Size = UDim2.new(1, -10, 0, 20)
SendBtn.Font = Enum.Font.Code
SendBtn.Text = "Send"
SendBtn.TextColor3 = Color3.fromRGB(255,255,255)
SendBtn.TextScaled = true
SendBtn.TextWrapped = true
SendBtn.AutoButtonColor = false

local SBCorner = Instance.new("UICorner")
SBCorner.CornerRadius = UDim.new(0, 3)
SBCorner.Parent = SendBtn

local dragging, dragInput, dragStart, startPos

local function update(input)
    local delta = input.Position - dragStart
    MainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end

MainFrame.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = MainFrame.Position

        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)

MainFrame.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
        dragInput = input
    end
end)

UserInputService.InputChanged:Connect(function(input)
    if input == dragInput and dragging then
        update(input)
    end
end)

SendBtn.MouseEnter:Connect(function()
    TweenService:Create(SendBtn, TweenInfo.new(0.2), {BackgroundColor3 = Color3.fromRGB(35, 35, 35)}):Play()
end)

SendBtn.MouseLeave:Connect(function()
    TweenService:Create(SendBtn, TweenInfo.new(0.2), {BackgroundColor3 = Color3.fromRGB(25, 25, 25)}):Play()
end)

SendBtn.MouseButton1Click:Connect(function()
    local msg = MessageBox.Text
    local usr = UserBox.Text

    local Event = ReplicatedStorage.Shared.Packages.Network.rev_PlayMessage

    pcall(function()
        firesignal(Event.OnClientEvent, msg, "Dev", usr)
    end)

    pcall(function()
        Event.OnClientEvent:Fire(msg, "Dev", usr)
    end)

    pcall(function()
        Event:FireServer(msg, "Dev", usr)
    end)

    MessageBox.Text = ""
end)