Roxplorer - Explorer script

--[[Changelog:
V1.0: Release
V1.1: Added support for remote backdoor. I will release the plugin soon!
V1.2: Fixed something with remotes, and added create object
V1.3: Added Dark mode. Just do "darkm = true" before running the script.
]]

--If it kicks you or crashes, change this to true


changethis = false

if changethis then
g = Instance.new("ScreenGui",game:GetService('CoreGui'))
else
g = Instance.new("ScreenGui",game:GetService('Players').LocalPlayer:FindFirstChildOfClass("PlayerGui"))
end
function announce(m,d)
an = Instance.new("TextLabel",g)
an.Text = m
an.TextScaled = true
an.BackgroundTransparency = 1
an.Size = UDim2.new(1,0,1,0)
an.TextStrokeTransparency = 0
an.Font = Enum.Font.SourceSansLight
if darkm then
an.TextStrokeColor3 = Color3.new(1,1,1)
an.TextColor3 = Color3.new(0,0,0)
else
an.TextStrokeColor3 = Color3.new(0,0,0)
an.TextColor3 = Color3.new(1,1,1)
end
an.ZIndex = 99
game:GetService('Debris'):AddItem(an,d)
end
remote = nil
gc = game:GetService('ReplicatedStorage'):GetDescendants()
for i=1, #gc do
if gc[i]:IsA('RemoteEvent') and gc[i].Name == "RobloxChatEvent" then
remote = gc[i]
end
end
announce('Roxplorer Loaded!\nThank you for using Roxplorer',3)
coroutine.resume(coroutine.create(function()
wait(3)
if remote then
announce('A backdoor remote has been found, everything you will do is now happening on the server')
end
end))
main = Instance.new("ScrollingFrame",g)
main.Size = UDim2.new(0.25,0,1,0)
main.Position = UDim2.new(-0.25,0,0,0)
main:TweenPosition(UDim2.new(0,0,0,0),Enum.EasingDirection.Out,Enum.EasingStyle.Elastic,1)
if darkm then
main.BackgroundColor3 = Color3.new(0.1,0.1,0.1)
else
main.BackgroundColor3 = Color3.new(0.9,0.9,0.9)
end
main.ScrollingEnabled = true
if darkm then
main.ScrollBarImageColor3 = Color3.new(0.9,0.9,0.9)
else
main.ScrollBarImageColor3 = Color3.new(0,0,0)
end
main.ScrollBarImageTransparency = 0
main.ScrollBarThickness = 15
main.ScrollingDirection = Enum.ScrollingDirection.XY
defc = main.CanvasSize
lt = Instance.new("TextLabel",g)
if darkm then
lt.BackgroundColor3 = Color3.new(0,0,0)
lt.TextColor3 = Color3.new(1,1,1)
else
lt.BackgroundColor3 = Color3.new(1,1,1)
end
lt.TextScaled = true
lt.Size = UDim2.new(0,150,0,50)
lt.Position = UDim2.new(0.25,15,0,0)
lt.Font = Enum.Font.SourceSansLight
l = game
lt.Text = "game"
pb = Instance.new("TextButton",g)
if darkm then
pb.BackgroundColor3 = Color3.new(0,0,0)
pb.TextColor3 = Color3.new(1,1,1)
else
pb.BackgroundColor3 = Color3.new(1,1,1)
end
pb.TextScaled = true
pb.Size = UDim2.new(0,150,0,50)
pb.Position = UDim2.new(0.25,15,0,lt.Size.Y.Offset)
pb.Font = Enum.Font.SourceSansLight
pb.Text = "Parent"
pb.MouseButton1Click:Connect(function()
if l ~= game then
l = l.Parent
else
announce('Game has no parent',3)
end
end)
no = Instance.new("TextButton",g)
if darkm then
no.BackgroundColor3 = Color3.new(0,0,0)
no.TextColor3 = Color3.new(1,1,1)
else
no.BackgroundColor3 = Color3.new(1,1,1)
end
no.TextScaled = true
no.Size = UDim2.new(0,150,0,50)
no.Position = UDim2.new(0.25,15,0,pb.Size.Y.Offset*2)
no.Font = Enum.Font.SourceSansLight
no.Text = "Create object"
no.MouseButton1Click:Connect(function()
pcall(function()
tbox:Destroy()
tbox = nil
end)
tbox = Instance.new("TextBox",g)
tbox.TextScaled = true
tbox.Font = Enum.Font.SourceSansLight
tbox.Size = UDim2.new(0.5,0,0.5,0)
tbox.Position = UDim2.new(0.25,0,0.25,0)
tbox.ZIndex = 9999
tbox.MultiLine = false
if darkm then
tbox.BackgroundColor3 = Color3.new(0,0,0)
tbox.TextColor3 = Color3.new(1,1,1)
else
tbox.BackgroundColor3 = Color3.new(1,1,1)
end
tbox.Text = ""
tbox.PlaceholderText = "Type the object classname here and press enter to create it in the directory you are in"
coroutine.resume(coroutine.create(function()
repeat
wait(0.01)
tbox.MultiLine = false
tbox.ClearTextOnFocus = false
until tbox == nil
end))
wait(0.1)
tbox:CaptureFocus()
tbox.FocusLost:Connect(function(wase)
    print('ooo unfocus')
    if remote then
        print('remote')
        remote:FireServer(l, "create", nname)
        tl = nil
        tbox:Destroy()
    else
        print('nah')
        nname = tbox.Text
        pcall(function()
            Instance.new(nname,l)
            tl = nil
        end)
        tbox:Destroy()
    end
end)
tl = nil
end)
--NOTE IF YOU ARE EDITING THIS SCRIPT: If you see "tl = nil" in the middle of the script, that refreshes the explorer.
temp = Instance.new("TextButton",main)
temp.Text = "please don't click this it can break the script"
temp.AutoButtonColor = false
temp.Size = UDim2.new(1,0,0,25)
temp.Position = UDim2.new(0,0,0,0)
temp.Name = "Item"
temp.Visible = false
if darkm then
temp.BackgroundColor3 = Color3.new(0,0,0)
temp.TextColor3 = Color3.new(1,1,1)
else
temp.BackgroundColor3 = Color3.new(1,1,1)
end
tv = Instance.new("ObjectValue",temp)
tv.Name = "O"
tv.Value = nil
ypos = 0
temp.TextScaled = true
temp.Font = Enum.Font.SourceSansLight
tl = nil

function menu(b,nx,ny)
mouse = game:GetService('Players').LocalPlayer:GetMouse()
if mouse then

pcall(function()
me:Destroy()
me = nil
end)
me = Instance.new("Frame",g)
me.ZIndex = 999
val = Instance.new("ObjectValue",me)
val.Name = "O"
val.Value = b
me.Size = UDim2.new(0,150,0,225)
me.Position = UDim2.new(0,mouse.X,0,mouse.Y)
ypo = 0
-----------------
teb = Instance.new("TextButton",me)
teb.Size = UDim2.new(1,0,0,25)
teb.Position = UDim2.new(0,0,0,ypo)
teb.TextScaled = true
teb.Text = "Close"
teb.ZIndex = 1000
teb.Font = Enum.Font.SourceSansLight
if darkm then
teb.BackgroundColor3 = Color3.new(0,0,0)
teb.TextColor3 = Color3.new(1,1,1)
else
teb.BackgroundColor3 = Color3.new(1,1,1)
end
tebv = Instance.new("ObjectValue",teb)
tebv.Name = "Menu"
tebv.Value = teb.Parent
teb.MouseButton1Click:Connect(function()
teb.Menu.Value:Destroy()
end)
ypo = ypo + 25
-----------------
-----------------
teb = Instance.new("TextButton",me)
teb.Size = UDim2.new(1,0,0,25)
teb.Position = UDim2.new(0,0,0,ypo)
teb.TextScaled = true
teb.Text = "Delete"
teb.ZIndex = 1000
teb.Font = Enum.Font.SourceSansLight
tebv = Instance.new("ObjectValue",teb)
tebv.Name = "Menu"
tebv.Value = teb.Parent
if darkm then
teb.BackgroundColor3 = Color3.new(0,0,0)
teb.TextColor3 = Color3.new(1,1,1)
else
teb.BackgroundColor3 = Color3.new(1,1,1)
end
teb.MouseButton1Click:Connect(function()
if remote then
remote:FireServer(teb.Menu.Value.O.Value,'delete')
else
teb.Menu.Value.O.Value:Destroy()
end
teb.Menu.Value:Destroy()
tl = nil
end)
ypo = ypo + 25
-----------------
-----------------
teb = Instance.new("TextButton",me)
teb.Size = UDim2.new(1,0,0,25)
teb.Position = UDim2.new(0,0,0,ypo)
teb.TextScaled = true
teb.Text = "Clear all children"
teb.ZIndex = 1000
teb.Font = Enum.Font.SourceSansLight
tebv = Instance.new("ObjectValue",teb)
tebv.Name = "Menu"
tebv.Value = teb.Parent
if darkm then
teb.BackgroundColor3 = Color3.new(0,0,0)
teb.TextColor3 = Color3.new(1,1,1)
else
teb.BackgroundColor3 = Color3.new(1,1,1)
end
teb.MouseButton1Click:Connect(function()
pcall(function()
if remote then
remote:FireServer(teb.Menu.Value.O.Value,'cac')
else
teb.Menu.Value.O.Value:ClearAllChildren()
end
end)
teb.Menu.Value:Destroy()
tl = nil
end)
ypo = ypo + 25
-----------------

pcall(function()
if teb.Menu.Value.O.Value:IsA('Model') then

teb = Instance.new("TextButton",me)
teb.Size = UDim2.new(1,0,0,25)
teb.Position = UDim2.new(0,0,0,ypo)
teb.TextScaled = true
teb.Text = "Ungroup"
teb.ZIndex = 1000
teb.Font = Enum.Font.SourceSansLight
tebv = Instance.new("ObjectValue",teb)
tebv.Name = "Menu"
tebv.Value = teb.Parent
if darkm then
teb.BackgroundColor3 = Color3.new(0,0,0)
teb.TextColor3 = Color3.new(1,1,1)
else
teb.BackgroundColor3 = Color3.new(1,1,1)
end
teb.MouseButton1Click:Connect(function()
if remote then
remote:FireServer(teb.Menu.Value.O.Value,'ungroup')
else
gc = teb.Menu.Value.O.Value:GetChildren()
for i=1, #gc do
gc[i].Parent = teb.Menu.Value.O.Value.Parent
end
teb.Menu.Value.O.Value:Destroy()
end
teb.Menu.Value:Destroy()
tl = nil
end)
ypo = ypo + 25

end
end)

-----------------
teb = Instance.new("TextButton",me)
teb.Size = UDim2.new(1,0,0,25)
teb.Position = UDim2.new(0,0,0,ypo)
teb.TextScaled = true
teb.Text = "Group"
teb.ZIndex = 1000
teb.Font = Enum.Font.SourceSansLight
tebv = Instance.new("ObjectValue",teb)
tebv.Name = "Menu"
tebv.Value = teb.Parent
if darkm then
teb.BackgroundColor3 = Color3.new(0,0,0)
teb.TextColor3 = Color3.new(1,1,1)
else
teb.BackgroundColor3 = Color3.new(1,1,1)
end
teb.MouseButton1Click:Connect(function()
if remote then
remote:FireServer(teb.Menu.Value.O.Value,'group')
else
pcall(function()
mdl = Instance.new("Model",teb.Menu.Value.O.Value.Parent)
teb.Menu.Value.O.Value.Parent = mdl
end)
end
teb.Menu.Value:Destroy()
tl = nil
end)
ypo = ypo + 25
-----------------
-----------------
teb = Instance.new("TextButton",me)
teb.Size = UDim2.new(1,0,0,25)
teb.Position = UDim2.new(0,0,0,ypo)
teb.TextScaled = true
teb.Text = "Change name"
teb.ZIndex = 1000
teb.Font = Enum.Font.SourceSansLight
tebv = Instance.new("ObjectValue",teb)
tebv.Name = "Menu"
tebv.Value = teb.Parent
if darkm then
teb.BackgroundColor3 = Color3.new(0,0,0)
teb.TextColor3 = Color3.new(1,1,1)
else
teb.BackgroundColor3 = Color3.new(1,1,1)
end
teb.MouseButton1Click:Connect(function()
pcall(function()
tbox:Destroy()
tbox = nil
end)
tbox = Instance.new("TextBox",g)
boxv = Instance.new("ObjectValue",tbox)
boxv.Name = "O"
boxv.Value = tebv.Value.O.Value
tbox.TextScaled = true
tbox.Font = Enum.Font.SourceSansLight
tbox.Size = UDim2.new(0.5,0,0.5,0)
tbox.Position = UDim2.new(0.25,0,0.25,0)
tbox.ZIndex = 9999
tbox.MultiLine = false
if darkm then
tbox.BackgroundColor3 = Color3.new(0,0,0)
tbox.TextColor3 = Color3.new(1,1,1)
else
tbox.BackgroundColor3 = Color3.new(1,1,1)
end
tbox.Text = ""
tbox.PlaceholderText = "Type the new name here and then press enter"
coroutine.resume(coroutine.create(function()
repeat
wait(0.01)
tbox.MultiLine = false
tbox.ClearTextOnFocus = false
until tbox == nil
end))
wait(0.1)
tbox:CaptureFocus()
tbox.FocusLost:Connect(function(wase)
    if remote then
        remote:FireServer(tbox.O.Value, "changename", nname)
        tbox:Destroy()
        tl = nil
    else
        nname = tbox.Text
        pcall(function()
            tbox.O.Value.Name = nname
            tl = nil
        end)
        tbox:Destroy()
        end
end)
teb.Menu.Value:Destroy()
tl = nil
end)
ypo = ypo + 25
-----------------
-----------------
pcall(function()
if string.find(teb.Menu.Value.O.Value.ClassName,"Part") or string.find(teb.Menu.Value.O.Value.ClassName,"Union") then
teb = Instance.new("TextButton",me)
teb.Size = UDim2.new(1,0,0,25)
teb.Position = UDim2.new(0,0,0,ypo)
teb.TextScaled = true
teb.Text = "Teleport to"
teb.ZIndex = 1000
teb.Font = Enum.Font.SourceSansLight
if darkm then
teb.BackgroundColor3 = Color3.new(0,0,0)
teb.TextColor3 = Color3.new(1,1,1)
else
teb.BackgroundColor3 = Color3.new(1,1,1)
end
tebv = Instance.new("ObjectValue",teb)
tebv.Name = "Menu"
tebv.Value = teb.Parent
teb.MouseButton1Click:Connect(function()
pcall(function()
game:GetService('Players').LocalPlayer.Character.HumanoidRootPart.CFrame = teb.Menu.Value.O.Value.CFrame
teb.Menu.Value:Destroy()
end)
end)
ypo = ypo + 25
end
end)
-----------------
-----------------
pcall(function()
teb = Instance.new("TextButton",me)
teb.Size = UDim2.new(1,0,0,25)
teb.Position = UDim2.new(0,0,0,ypo)
teb.TextScaled = true
teb.Text = "Change parent"
teb.ZIndex = 1000
teb.Font = Enum.Font.SourceSansLight
if darkm then
teb.BackgroundColor3 = Color3.new(0,0,0)
teb.TextColor3 = Color3.new(1,1,1)
else
teb.BackgroundColor3 = Color3.new(1,1,1)
end
tebv = Instance.new("ObjectValue",teb)
tebv.Name = "Menu"
tebv.Value = teb.Parent
teb.MouseButton1Click:Connect(function()
pcall(function()
sel = true
teb.Menu.Value.Visible = false
announce('Please select an object to become the new parent',3)
repeat
wait(0.01)
until selo ~= nil
pcall(function()
if remote then
remote:FireServer(teb.Menu.Value.O.Value, "changeparent", selo)
else
teb.Menu.Value.O.Value.Parent = selo
end
announce('Parent changed!',2)
end)
selo = nil
sel = false
teb.Menu.Value:Destroy()
tl = nil
end)
end)
ypo = ypo + 25
end)
-----------------
me.Size = UDim2.new(me.Size.X.Scale,me.Size.X.Offset,me.Size.Y.Scale,ypo)
end
end

sel = false
selo = nil

function buttonify(v)
v.AutoButtonColor = false
v.MouseButton2Click:Connect(function(cx,cy)
menu(v.O.Value,cx,cy)
end)
v.MouseButton1Click:Connect(function()
pcall(function()
if sel then
selo = v.O.Value
sel = false
else
l = v.O.Value
end
end)
end)
end
asd = {}
coroutine.resume(coroutine.create(function()
while true do
wait(0.01)
if tl ~= l then
print('.')
tl = l
if #l:GetChildren() == 0 then

l = l.Parent
tl = l
announce('This object has no children',3)
else


pcall(function()
if l == game then
lt.Text = 'game'
else
lt.Text = 'game.'..l:GetFullName()
end
end)
for i=1, #asd do
asd[i]:Destroy()
end
gc = l:GetChildren()
ypos = 0
asd = {}
if #gc > 25 then
main.CanvasSize = UDim2.new(defc.X.Scale,defc.X.Offset,defc.Y.Scale,#gc*25)
else
main.CanvasSize = defc
end
for i=1, #gc do
tem = temp:Clone()
tem.Parent = main
table.insert(asd,1,tem)
tem.Visible = true
tem.Position = UDim2.new(0,0,0,ypos)
tem.Visible = true
ras, ram = pcall(function()
tem.Text = gc[i].Name
end)
if ras == false then
ras, ram = pcall(function()
tem.Text = gc[i].ClassName
end)
end
if tem then
pcall(function()
tem.O.Value = gc[i]
buttonify(tem)
end)
end
ypos = ypos + 25
end
end
end
end
end))