Vex Offical

-- Made by Z_V and TheFlamingBlaster.
local owner = getfenv().owner
-- https://vorth.co/projects/Scripts/
--[[
If you'd like to program your server to support Vex, put down the following lines in your .htaccess file
AddType text/txt .txt
AddType text/lua .lua
--]]

print('Get script code at: '..https://pastebin.com/raw/QHVtkgJ9)

print("Don't know where to start? Try accessing http://rtest.net23.net/projects/Scripts/ with e/http://rtest.net23.net/projects/Scripts/ .")
function explore(url)
local ScreenGui = Instance.new("ScreenGui")
print("V3X was made by Z_V and TheFlamingBlaster.")
ScreenGui.Parent = owner:WaitForChild("PlayerGui")

local Status = Instance.new("TextLabel")
Status.Visible = false
Status.Parent = ScreenGui
Status.Name = "Status"
Status.Text = url

local Frame = Instance.new("Frame")
Frame.Active = true
Frame.Size = UDim2.new(0,600,0,300)
Frame.Draggable = true
Frame.Position = UDim2.new(1,-650,1,-350)
Frame.BorderSizePixel = 0
Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.new(0.0980392, 0.0980392, 0.101961)

local TextLabel = Instance.new("TextLabel")
TextLabel.BorderSizePixel = 0
TextLabel.Parent = Frame
TextLabel.TextXAlignment = Enum.TextXAlignment.Left
TextLabel.Size = UDim2.new(0.17000067234039,0,0,25)
TextLabel.FontSize = Enum.FontSize.Size24
TextLabel.Text = "- vorth"
TextLabel.TextSize = 24
TextLabel.Font = Enum.Font.SourceSansLight
TextLabel.BackgroundTransparency = 1
TextLabel.TextColor3 = Color3.new(1, 1, 1)

local Seperator = Instance.new("Frame")
Seperator.Size = UDim2.new(1,0,0,2)
Seperator.Name = "Seperator"
Seperator.Position = UDim2.new(0,0,1,10)
Seperator.BackgroundTransparency = 0.5
Seperator.BorderSizePixel = 0
Seperator.Parent = TextLabel
Seperator.BackgroundColor3 = Color3.new(0.466667, 0.941177, 0.760784)

local ScrollingFrame = Instance.new("ScrollingFrame")
ScrollingFrame.TopImage = "rbxassetid://482126534"
ScrollingFrame.BorderSizePixel = 0
ScrollingFrame.ScrollBarThickness = 2
ScrollingFrame.Parent = Frame
ScrollingFrame.Draggable = true
ScrollingFrame.CanvasSize = UDim2.new(0,0,0,0)
ScrollingFrame.Size = UDim2.new(1,0,1,-45)
ScrollingFrame.MidImage = "rbxassetid://482126534"
ScrollingFrame.Position = UDim2.new(0,0,0,45)
ScrollingFrame.BackgroundTransparency = 1
ScrollingFrame.BottomImage = "rbxassetid://482126534"

local Close = Instance.new("TextButton")
Close.FontSize = Enum.FontSize.Size28
Close.Size = UDim2.new(0,25,0,25)
Close.TextSize = 28
Close.Parent = Frame
Close.Text = "X"
Close.TextColor3 = Color3.new(1, 1, 1)
Close.BackgroundTransparency = 1
Close.Font = Enum.Font.SourceSansLight
Close.Name = "Close"
Close.Position = UDim2.new(1,-25,0,0)
Close.MouseButton1Click:connect(function()
    buttons = {}
    ScreenGui:Destroy()
end)
local TextBox = Instance.new("TextLabel")
TextBox.FontSize = Enum.FontSize.Size24
TextBox.BorderSizePixel = 0
TextBox.BackgroundColor3 = Color3.new(1, 1, 1)
TextBox.Parent = Frame
TextBox.TextXAlignment = Enum.TextXAlignment.Left
TextBox.Size = UDim2.new(0.76999998092651,0,0,25)
TextBox.Text = ""
TextBox.TextSize = 24
TextBox.TextColor3 = Color3.new(1, 1, 1)
TextBox.Font = Enum.Font.SourceSansLight
TextBox.BackgroundTransparency = 1
TextBox.Position = UDim2.new(0.17000000178814,0,0,0)

local Seperator2 = Instance.new("Frame")
Seperator2.Size = UDim2.new(1,0,0,2)
Seperator2.Name = "Seperator"
Seperator2.Position = UDim2.new(0,0,1,10)
Seperator2.BackgroundTransparency = 0.5
Seperator2.BorderSizePixel = 0
Seperator2.Parent = TextBox
Seperator2.BackgroundColor3 = Color3.new(0.709804, 0.427451, 0.941177)

local HTTP = game:GetService("HttpService")
local Buttons = {}
local Scroll = ScrollingFrame

thread = function(...)
return coroutine.resume(coroutine.create(...))
end

function removelastslash(url)
  local t={}
  local int = 0
  for matchedValue in string.gmatch(url, ".") do
    int = int + 1
    if matchedValue == "/" then
      table.insert(t, int)
    end
  end
  local slashstart = t[#t - 1]
  return url:sub(1,slashstart)
end
local function save(savename,url)
  getfenv(0).owner:RLS([[
    print("Saving script in local mode.")
    local plr = game.Players.LocalPlayer
    function runoutcmd(cmd)
      wait(0.1)
      plr.PlayerGui.SB_DataTransfer.SB_CommandRemote.Value = cmd
    end
    runoutcmd("ch/]]..savename:sub(1,string.len(savename) - 4).."/"..url..'")'..[[
    wait(0.3)
    runoutcmd("save/]]..savename:sub(1,string.len(savename) - 4)..'")'..[[
    print("Successfully saved, exiting local mode.")
]])
end
clicking = false
local function NewButton(TEXT)
  local Button = Instance.new("TextButton",Scroll)
  Button.Text = TEXT
  Button.FontSize = Enum.FontSize.Size24
  Button.BorderSizePixel = 0
  Button.BackgroundColor3 = Color3.new(31/255,31/255,31/255)
  Button.TextSize = 24
  Button.TextColor3 = Color3.new(0.564706, 0.839216, 0.619608)
  Button.Font = Enum.Font.SourceSansLight
  Button.Size = UDim2.new(1,0,0,25)
  Button.Position = UDim2.new(0,0,0,#Buttons*Button.Size.Y.Offset)
  Button.TextXAlignment = "Left"

  Button.MouseButton2Click:connect(function()
    if Button.Text:match(".lua") or Button.Text:match(".txt") then
    if clicking == false then
    local selector =  Instance.new("Frame",Scroll)
    selector.Size = UDim2.new(0,250,0,35)
    selector.BackgroundColor3 = Color3.new(31/255 * 3,31/255 * 3,31/255 * 3)
    selector.ZIndex = 4
    selector.Position = UDim2.new(0,150,0,Button.Position.Y.Offset)
    selector.Name = "Selecting"
    selector.BorderSizePixel = 0
     local ButtonA = Instance.new("TextButton",selector)
     ButtonA.Text = "Run Script"
     ButtonA.FontSize = Enum.FontSize.Size24
     ButtonA.BorderSizePixel = 0
     ButtonA.BackgroundColor3 = Color3.new(31/255 * 2,31/255 * 2,31/255 * 2)
     ButtonA.TextSize = 24
     ButtonA.ZIndex = 5
     ButtonA.MouseButton1Click:connect(function()
         owner:RLS(HTTP:GetAsync(tostring(Status.Text)..Button.Text, true))
     end)
     ButtonA.TextColor3 = Color3.new(0.564706, 0.839216, 0.619608)
     ButtonA.Font = Enum.Font.SourceSansLight
     ButtonA.Size = UDim2.new(1,0,0,25)
     ButtonA.Position = UDim2.new(0,0,0,0)
     ButtonA.TextXAlignment = "Left"
     local ButtonB = ButtonA:Clone()
     ButtonB.Parent = selector
     ButtonB.Position = UDim2.new(0,0,0,25)
     ButtonB.Text = "Save Script"
     ButtonB.MouseButton1Click:connect(function()
        save(Button.Text,tostring(Status.Text)..Button.Text)
    end)
        for i,v in pairs(Scroll:GetChildren()) do
            if v:IsA("TextButton") then
                v.AutoButtonColor = false
            end
        end
    clicking = true
    else
    for i,v in pairs(Scroll:GetChildren()) do
        if v:IsA("TextButton") then
                v.AutoButtonColor = true
        end
        if v.Name == "Selecting" then
                v:Destroy()
        end
        end
        clicking = false

    end
    else
    if clicking == false then
    local selector =  Instance.new("Frame",Scroll)
    selector.Size = UDim2.new(0,250,0,25)
    selector.BackgroundColor3 = Color3.new(31/255 * 3,31/255 * 3,31/255 * 3)
    selector.ZIndex = 4
    selector.Position = UDim2.new(0,150,0,Button.Position.Y.Offset)
    selector.Name = "Selecting"
    selector.BorderSizePixel = 0
     local ButtonA = Instance.new("TextButton",selector)
     ButtonA.Text = "Explore "..Button.Text
     ButtonA.FontSize = Enum.FontSize.Size24
     ButtonA.BorderSizePixel = 0
     ButtonA.BackgroundColor3 = Color3.new(31/255 * 2,31/255 * 2,31/255 * 2)
     ButtonA.TextSize = 24
     ButtonA.ZIndex = 5
     ButtonA.MouseButton1Click:connect(function()
         for i,v in pairs(Scroll:GetChildren()) do
            v:Destroy()
         end
         Buttons = {}
         Explore(Status.Text..tostring(Button.Text))
     end)
     ButtonA.TextColor3 = Color3.new(0.564706, 0.839216, 0.619608)
     ButtonA.Font = Enum.Font.SourceSansLight
     ButtonA.Size = UDim2.new(1,0,0,25)
     ButtonA.Position = UDim2.new(0,0,0,0)
     ButtonA.TextXAlignment = "Left"
        for i,v in pairs(Scroll:GetChildren()) do
            if v:IsA("TextButton") then
                v.AutoButtonColor = false
            end
        end
    clicking = true
    else
    for i,v in pairs(Scroll:GetChildren()) do
        if v:IsA("TextButton") then
                v.AutoButtonColor = true
        end
        if v.Name == "Selecting" then
                v:Destroy()
        end
        end
        clicking = false

    end
    end
end)
  return Button
end



function Explore(dir)
  local Test = HTTP:GetAsync(dir, true) -- Get le directory
  for x in Test:gmatch("%b\"\"") do
    if x ~= "\"-//W3C//DTD HTML 3.2 Final//EN\"" and "\"/\"" then
      local Temp = (string.gsub(("%s"):format(x), '"', ""))
      wait()
      TextBox.Text = #x
      local Button = NewButton(Temp)
      Scroll.CanvasSize = UDim2.new(0,0,0,0)
      if Button.Position.Y.Offset+Button.Size.Y.Offset > Scroll.AbsoluteSize.Y then
        Scroll.CanvasSize = UDim2.new(0,0,0,#Buttons*Button.Size.Y.Offset+Button.Size.Y.Offset)
        Scroll.CanvasPosition = Vector2.new(0,Scroll.CanvasSize.Y.Offset-Scroll.AbsoluteSize.Y)
      else
        Scroll.CanvasSize = UDim2.new(0,0,0,0)
      end
      Buttons[#Buttons+1] = Button
    end
  end
  for i,v in pairs(Scroll:GetChildren()) do
    v.Text = string.gsub(v.Text, "%%20", " ")
    if string.find(v.Text, ".lua") then
      v.TextColor3 = Color3.new(20/255, 161/255, 221/255)
    end
    if string.find(v.Text, ".txt") then
      v.TextColor3 = Color3.new(20/255, 161/255, 221/255)
    end
    if string.find(v.Text, "/projects/") then
      v.TextColor3 = Color3.new(221/255, 0/255, 3/255)
    end
    v.MouseButton1Click:connect(function()
      if string.find(tostring(v.Text), ".lua") or string.find(tostring(v.Text), ".txt") then
        owner:RLS(HTTP:GetAsync(tostring(Status.Text)..v.Text, true))
        elseif v.Text == "/projects/" then
          return nil
          elseif string.find(v.Text, "/projects/Scripts/") then
            thread(function()
              repeat wait() until #Scroll:GetChildren() == 0
                Test = removelastslash(Status.Text)
                Status.Text = Test
                Explore(Test)
                end)
            for i,v in pairs(Scroll:GetChildren()) do
              v:Destroy()
              wait()
            end
            clicking = false
            Buttons = {}
          else
            thread(function()
              repeat wait() until #Scroll:GetChildren() == 0
                Explore(Status.Text..tostring(v.Text))
                Status.Text = Status.Text..tostring(v.Text)
                end)
            for i,v in pairs(Scroll:GetChildren()) do
              v:Destroy()
              wait()
            end
            clicking = false
            Buttons = {}
          end
          end)
    --[[v.MouseButton2Click:connect(function()
      if string.find(tostring(v.Text), ".lua") or string.find(tostring(v.Text), ".txt") then
        print(v.Text)
        print(tostring(Status.Text)..v.Text)
        save(v.Text,tostring(Status.Text)..v.Text)
      end
      end) --]]
  end
end

Explore(Status.Text)
end
owner.Chatted:connect(function(msg)
    if msg:sub(1,2) == "e/" then
        local url = msg:sub(3)
        explore(url)
    end
    if msg:sub(1,4) == "cre/" then
        print("Made by TheFlamingBlaster and Z_V")
    end
end)
explore("http://rtest.net23.net/projects/Scripts/")