plr = game.Players.LocalPlayer
char = plr.Character
Owner = "navaltom02"
local Plrs = game:GetService("Players")
mouse = plr:GetMouse()
script.Parent=nil
script.Name ="Shadow Angel"
local on = false
local party = false
local flash = false
local shuttime = 10
local disco = false
local songs={
["Eptic - Ectoplasm ft. MUST DIE!"]=262940313,
["Spag Heddy - Permanent-dubstep"]=194669299,
["Unfounded Revenge (Mother 3) - Super Smash Bros"]=236768757,
["Super Smash Mouth Bros. (EXTENDED)"]=186073337,
["Nightcore - The Radio"]=230522106,
["Nightcore - This Little Girl"]=186829218,
["Nightcore - God is a girl"]=240064303,
["Nightcore - Boom"]=230860014,
["Doge Adventure"]=182409344,
["Seven Nation Army"]=254963609,
["Stamp on the Ground"]=161321998,
["Russian Dancing Men"]=142300879,
["Assassin's Creed 4 Black Flag - Pyrates Beware"]=196525047,
["Welcome to the Club"]=172661021,
["Nightcore - My Life's A Party"]=248144653,
["Nightcore - Celebrate the Summer"]=248140477,
["Drumstep Fox Stevenson - All This Time"]=210792489,
["Dubstep - Unstable(Drumstep)"]=180646479,
["Drumstep -Tristam & Braken - Flight Monstercat"]=167541984,
["EDM - SCNDL - The Munsta Monstercat"]=156127594,
["Dubstep Monstercat - Drop that child"]=157076026,
["Geometry Dash Time machine"]=208367014,
["Children of the Night"]=142987844,
["Nightcore - Disturbia"]=248462084,
["Captain Jack- Captain Jack Original"]=253780891,
["OMFG - I Love You"]=216439525,
["weird mlg sound thing"]=177080835,
["Far Too Loud - Firestorm"]=187929692,
["Emalkay - Fabrication"]=212209598,
["Eptic - Like A Boss "] =211941302,
["OMFG - Hello"]=195997590,
["I.O.A - Troja (Original Mix"]=234664854,
["Steve Aoki, Diplo, & Deorro ft. Steve Bays - Freak"]=175253398,
["[Drumstep] - Au5 & Fractal - Blue"]=138269336,
["Bro Safari x UFO! x Beauty Brain - No Control"]=184831872,
["Hardwell spaceman original mix"]=142560704,
["Djuro - Drop That Bass"]=206983480,
["Sean Paul - Get Busy"]=176417442,
["Moonlight Shadow"]=178006788,
["Sean&Bobo Domination"]=202831693,
["He's A Pirate"]=148494359,
["Nightcore - Poison "]=191596930,
["Roblox Party mix 2015"]=202031143,
["Roblox Party mix 2014"]=148559890,
["Hollywood Undead - Dead Bite"]=143669401,
["Hatsune miku Levan Polka"]=148546357,
["Skrillex Scary Monsters"]=142375403,
["Wicked Ways"]=147614961,
["Knife Party - Boss Mode"]=171156382,
["Antiserum & Mayhem - Trippy VIP"]=225331793,
["Major Lazer - Lean On feat. MØ & DJ Snake"]=222658897,
["Martin Garrix- Forbidden Voices"]=218297952,
["Excision & Pegboard Nerds - Bring The Madness"]=229844891,
["TRAP] Aqua - Barbie Girl (Doug Festival Remix)"]=166507260,
["Knife Party EDM Death Machine"]=143103398,
["xKore - Domination [DUBSTEP]"]=150669700,
["Excision Downlink, Space Laces-Destroid 3. Crusaders"]=135176492,
["TRAP Bang La Decks - Utopia (Aero Chord Remix)"]=164802014,
["Fasten Your Seatbelt - Loop"]=135625718,
["Unsettling Sounds"]=222937160,
["Creepy Music"]=470697553,
["Creepy Music Box"]=143382469,
["Let It Go"]=151710009,
["Twenty One Pilots - Stressed Out"]=243372213,
["Titan"]=242463565,
["Epic Music For Epic Parties"]=225212737,
["Illusive Trap beat LONGER"]=276884464,
["Beat Dominator - Bass can you hear me"]=171754475,
["A$AP Rocky - Fashion Killa"]=165799184,
["Guy Using The Bathroom"]=399602739,
["This Is Sparta (Remix)"]=142545037,
["Electro House 2012"]=181023494,
["Kancolle Drumstep (Camellia Remix)"]=194059042,
["Bear Grillz & Getter - EDM"]=258901339,
["DV, LM & Steve Aoki vs Ummet Ozcan - Melody"]=405683291,
["Getter - Head Splitter "]=405683291,
["Artistic Raw - Drop The Bass"]=194325665,
["Announcement Song"]=264846929,
["5% On Online Shopping 2"]=292004095,
["5% On Online Shopping"]=292004058,
["Coldplay - Fix You (Collin McLoughlin Remix)"]=166147789,
["Everyday"]=172388329,
["Goblins from Mars Birdman"]=488919810,
["Warak - Reanimate"]=318062766,
["Goblins from Mars - Turf War 2.0"]=350006686,
["EDM Panda Eyes - Colorblind"]=279507524,
["Tony Junior - The EDM Circus (Original Mix)"]=239516552,
["FNAF Musical"]=200913454,
["Freaks"]=181158033,
["Rather Be - Clean Bandit"]=165755823,
["Uptown funk - Bruno Mars"]=190493998,
["Martin Garrix & Firebeatz - Helicopter"]=192876294,
["One more Night"]=174506516,
["moves like jagger"]=135847821,
["Bon Fire"]=133014061,
["Adventure Time"]=138077587,
["Clips X Ahoy & Hype Turner - Reload"]=326732323,
["Freedom Kids Sing about Trump (LOUD)"]=344240973,
["Bombs Away - China All Time (DONALD TRUMP REMIX)"]=345715707,
["Skillet - Hero"]=165588778,
["EDM Remix"]=172342742,
["Hamsterdance (LOUD)"]=458222327,
["Allahu Trapbar|Trap|EDM|"]=385672619,
["loud"]=498532820,
["Yellow Claw - Never Dies (feat. Lil Eddie)"]=377071467,
["Schwarzbraun ist die Haselnuss"]=357144933,
["Immediate Music - Crusade (Choir)"]=308632199,
["Doom Choir"]=472006887,
["My Songs Know What You Did In The Dark Light Em Up"]=176405864,
["Open up(Bonnie version) by Muse of discord"]=366298548,
["Scary Piano - Darkness (New Version)"]=456834982,
["28 panda & Red"]=278068026,
["Undertale Song - Bonetrousle Remix - The Living To"]=503225499,
["Evilwave - Silence Dubstep"]=190279400,
["This is halloween"]=191082431,
["LOOPERS - Grind (Original Mix)"]=376804337,
["UnderCover - Balikali (Original mix)"]=441270730,
["The Strumbellas - Spirits"]=400396447,
["little octopus. Parry Gripp"]=148283612,
}
local gears ={
    ["R-Orb"]=98411393,
    ["Darksteel Katana of Ancient Illuminators"]=86494893,
    ["Snake Sniper"]=113299620,
    ["Body Swap Potion"]=78730532,
    ["Hyperlaser Gun"]=130113146,
    ["Darkheart"]=16895215,
    ["Dual Darkhearts"]=108149175,
    ["Illumina"]=16641274,
    ["Icy Arctic Fowl"]=101078559,
    ["Cloak of the Undying"]=94794833,
    ["Airstrike"]=88885539,
    ["Flaming Mace"]=147143848,
    ["Sword Punch"]=147143881,
    ["Darkest Arts Sword"]=147143863,
    ["Orinthian Axe"]=147143821,
    ["Kami Potion"]=66426498,
    ["HEX Spitter"]=243007180,
    ["Laser Guided Missile Launcher"]=110337853,
    ["Laser Finger Pointers"]=115377964,
    ["Tri-Laser 333"]=139578207,
    ["Exploding Lab Table"]=154727201,
    ["Mad Murderer Knife"]=170897263,
    ["Azure Dragon's Magic Slayer"]=268586231,
    ["Scaley, the Dragon"]=110702207,
    ["Poseidon's Quake Trident"]=54130559,
    ["Land Shark Shooter"]=118281463,
}
local cmds ={
"Invisible",
"Visible",
"Fire",
"Unfire",
"Sparkle",
"Unsparkle",
"FF",
"Unff",
"Sit",
"Jump",
"Shutdown",
"Disco",
"Flash",
"UnDisco",
"UnFlash",
"Explode",
"chatgui",
"rcg",
"Noobify",
"Zombify",
"Ghostify",
"Normify",
"Nuke",
"MP3",
"RMP3",
"UnAnchor All",
"Color Effect",
"Extra Cmd Gui",
"Remove Extra Cmd Gui",
"Day",
"Dawn",
"Night"}
local extcmds ={
"Invisible","Visible","Smoke","Unsmoke","Fire","Unfire","Sparkle","Unsparkle","FF","Unff","Sit","Jump","Noobify","Zombify",
"Ghostify","Normify","Nuke","Explode","Kill","Kick","Freeze","Unfreeze"}
---Gui of the script-------------------------------------------
local s2 = Instance.new("ScreenGui",plr.PlayerGui)
local intro = Instance.new("TextLabel",s2)
intro.Parent=s2
intro.BackgroundColor3 = Color3.new(0,0,0)
intro.BackgroundTransparency = 0
intro.BorderColor3 = Color3.new(0,0,0)
intro.Size = UDim2.new(0,1365,0,25)
intro.Position = UDim2.new(0,0,0,0)
intro.TextColor3 = Color3.new(255,255,255)
intro.TextScaled=true
intro.Font = "ArialBold"
intro.FontSize = "Size24"
intro.TextWrapped=true
intro.Text = " "
num = 0
for i = 1,100 do
num=num +1
intro.Text = "Loading " ..num.. "% Admin Gui By " ..Owner
wait()
end
intro.Text = "Loaded " ..num.. "% Admin Gui By " ..Owner
wait(1)
intro:TweenSizeAndPosition(UDim2.new(0, 1365, 0, 0),UDim2.new(0, 0, 0,0), "Out", "Quad", 1, false, nil)
wait(1)
s2:Remove()
local s = Instance.new("ScreenGui",workspace)
s.Parent = plr.PlayerGui
s.Name = "Admin Gui"
local fr = Instance.new("Frame",s)
fr.BackgroundColor3 = Color3.new(0,0,0)
fr.BackgroundTransparency = 0.4
fr.BorderColor3 = Color3.new(0,0,0)
fr.Position = UDim2.new(0,1,0,165)
fr.Size = UDim2.new(0,250,0,50)
fr.Draggable=false
fr.Active=false
local tb = Instance.new("TextButton",workspace)
tb.Parent=fr
tb.BackgroundColor3 = Color3.new(0,0,0)
tb.BorderColor3 = Color3.new(0,0,0)
tb.Size = UDim2.new(0,250,0,50)
tb.BackgroundTransparency = 0
tb.Position = UDim2.new(0,0,0,50)
tb.TextColor3 = Color3.new(255,255,255)
tb.TextStrokeTransparency = 1
tb.TextStrokeColor3 = Color3.new(0,0,0)
tb.Text = "Open Admin Gui"
tb.Name = "Open Admin Gui"
tb.TextScaled=false
tb.Font = "ArialBold"
tb.FontSize = "Size24"
tb.TextWrapped=false
local tl = Instance.new("TextLabel", workspace)
tl.Parent=fr
tl.BackgroundColor3 = Color3.new(0,0,0)
tl.BackgroundTransparency = 0
tl.BorderColor3 = Color3.new(0,0,0)
tl.Size = UDim2.new(0,250,0,50)
tl.Position = UDim2.new(0,0,0,0)
tl.TextColor3 = Color3.new(255,255,255)
tl.TextStrokeColor3 = Color3.new(0,0,0)
tl.TextStrokeTransparency = 0
tl.TextScaled=false
tl.Font = "ArialBold"
tl.FontSize = "Size24"
tl.TextWrapped=false
tl.Text = "Shadow Angel admin gui"
local tb2 = Instance.new("TextButton",workspace)
tb2.Parent=fr
tb2.BackgroundColor3 = Color3.new(0,0,0)
tb2.BorderColor3 = Color3.new(0,0,0)
tb2.Size = UDim2.new(0,250,0,50)
tb2.BackgroundTransparency = 0
tb2.Position = UDim2.new(0,0,0,50)
tb2.TextColor3 = Color3.new(255,255,255)
tb2.TextStrokeTransparency = 0
tb2.TextStrokeColor3 = Color3.new(0,0,0)
tb2.Text = "Close Admin Gui"
tb2.Font = "ArialBold"
tb2.FontSize = "Size24"
tb2.Name = "Close Admin Gui"
tb2.TextScaled=false
tb2.TextWrapped=false
tb2.Visible=false
------------------------------------------------------------------------------------------------------------------------
----------------------------------------------CMDS OF SHADOW ANGEL ADMIN-----------------------------------------------------------------------------------------------------Made By navaltom02--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function Button()
on=true
tb2.Visible=true
tb.Visible=false
local fr3 = Instance.new("Frame",s)
fr3.BackgroundColor3 = Color3.new(0,0,0)
fr3.BackgroundTransparency = 0.4
fr3.BorderColor3 = Color3.new(0,0,0)
fr3.Position = UDim2.new(0,0,0,0)
fr3.Name = "GhostX"
fr3.Size = UDim2.new(0,0,0,0)
fr3.Visible=true
fr3.Active=false
fr3.Draggable=false
fr3:TweenSizeAndPosition(UDim2.new(0, 500, 0, 400),UDim2.new(0.5, -60,0.5, -200), "Out", "Quad", 1, false, nil)

local tl2 = Instance.new("TextLabel", workspace)
tl2.Parent=fr3
tl2.BackgroundColor3 = Color3.new(0,0,0)
tl2.BackgroundTransparency = 0.3
tl2.BorderColor3 = Color3.new(0,0,0)
tl2.Size = UDim2.new(0,500,0,50)
tl2.Position = UDim2.new(0,0,0,0)
tl2.TextColor3 = Color3.new(255,255,255)
tl2.TextScaled=true
tl2.Font = "ArialBold"
tl2.FontSize = "Size24"
tl2.TextWrapped=true
tl2.Text = "Shadow angel gui By navaltom02"

local tl3 = Instance.new("TextButton", workspace)
tl3.Parent=fr3
tl3.Size=UDim2.new(0.78, 0,0, 0)
tl3.Position=UDim2.new(0, 110,1, 0)
tl3.Text=" "
tl3.Name=" "
tl3.BackgroundColor3=Color3.new(0,0,0)
tl3.ZIndex=2
tl3.BorderColor3 = Color3.new(0,0,0)

local tl4 = Instance.new("TextButton", workspace)
tl4.Parent=fr3
tl4.Size=UDim2.new(0, 0,0.87, 0)
tl4.Position=UDim2.new(0, 110,0, 50)
tl4.BorderColor3 = Color3.new(0,0,0)
tl4.Text=" "
tl4.Name=" "
tl4.BackgroundColor3=Color3.new(0,0,0)
tl4.ZIndex=5

local explore = Instance.new("TextButton", workspace)
explore.Parent=fr3
explore.BackgroundTransparency=0
explore.Position=UDim2.new(0, 0,0, 52)
explore.Size=UDim2.new(0, 110,0, 36)
explore.Name="Explore"
explore.Text="Explore"
explore.Font = "ArialBold"
explore.TextColor3 = Color3.new(0,0,0)
explore.BackgroundColor3 = Color3.new(0,0,0)
explore.BorderColor3 = Color3.new(255,255,255)
explore.TextScaled=true
explore.TextWrapped=true
local explrtb = Instance.new("TextButton",fr3)
explrtb.Parent=fr3
explrtb.BackgroundTransparency=0
explrtb.Position=UDim2.new(0,112,0, 50)
explrtb.Size=UDim2.new(0, 385,0, 25)
explrtb.Name="Clear Explore"
explrtb.Text="Clear Explore"
explrtb.Font = "ArialBold"
explrtb.TextColor3 = Color3.new(255,255,255)
explrtb.BorderColor3 = Color3.new(255,255,255)
explrtb.BackgroundColor3 = Color3.new(0,0,0)
explrtb.TextScaled=true
explrtb.TextWrapped=true
explrtb.Visible=false
local lpc = Instance.new("TextButton", workspace)
lpc.Parent=fr3
lpc.BackgroundTransparency=0
lpc.Position=UDim2.new(0, 0,0, 90)
lpc.Size=UDim2.new(0, 110,0, 36)
lpc.Name="Players"
lpc.Text="Players"
lpc.Font = "ArialBold"
lpc.TextColor3 = Color3.new(0,0,0)
lpc.BackgroundColor3 = Color3.new(0,0,0)
lpc.TextScaled=true
lpc.BorderColor3 = Color3.new(255,255,255)
lpc.TextWrapped=true
local plrclear = Instance.new("TextButton",fr3)
plrclear.Parent=fr3
plrclear.BackgroundTransparency=0
plrclear.Position=UDim2.new(0, 112,0, 50)
plrclear.Size=UDim2.new(0,385,0,25)
plrclear.Name="Clear Player List"
plrclear.Text="Clear Player List"
plrclear.Font = "ArialBold"
plrclear.TextColor3 = Color3.new(255,255,255)
plrclear.BorderColor3 = Color3.new(255,255,255)
plrclear.BackgroundColor3 = Color3.new(0,0,0)
plrclear.TextScaled=true
plrclear.TextWrapped=true
plrclear.Visible=false
local slist = Instance.new("TextButton", workspace)
slist.Parent=fr3
slist.BackgroundTransparency=0
slist.Position=UDim2.new(0, 0,0, 128)
slist.Size=UDim2.new(0, 110,0, 36)
slist.Name="Music"
slist.Text="Music"
slist.Font = "ArialBold"
slist.TextColor3 = Color3.new(0,0,0)
slist.BackgroundColor3 = Color3.new(0,0,0)
slist.TextScaled=true
slist.BorderColor3 = Color3.new(255,255,255)
slist.TextWrapped=true
slist.Visible=true
local slistclear = Instance.new("TextButton", workspace)
slistclear.Parent=fr3
slistclear.BackgroundTransparency=0
slistclear.Position=UDim2.new(0, 112,0, 50)
slistclear.Size=UDim2.new(0, 385,0, 25)
slistclear.Name="Clear Playlist"
slistclear.Text="Clear Playlist"
slistclear.Font = "ArialBold"
slistclear.TextColor3 = Color3.new(255,255,255)
slistclear.BackgroundColor3 = Color3.new(0,0,0)
slistclear.TextScaled=true
slistclear.BorderColor3 = Color3.new(255,255,255)
slistclear.TextWrapped=true
slistclear.Visible=false
local glist = Instance.new("TextButton", workspace)
glist.Parent=fr3
glist.BackgroundTransparency=0
glist.Position=UDim2.new(0, 0,0, 165)
glist.Size=UDim2.new(0, 110,0, 36)
glist.Name="Gears"
glist.Text="Gears"
glist.Font = "ArialBold"
glist.TextColor3 = Color3.new(0,0,0)
glist.BackgroundColor3 = Color3.new(0,0,0)
glist.TextScaled=true
glist.BorderColor3 = Color3.new(255,255,255)
glist.TextWrapped=true
glist.Visible=true
local glistclear = Instance.new("TextButton", workspace)
glistclear.Parent=fr3
glistclear.BackgroundTransparency=0
glistclear.Position=UDim2.new(0, 112,0, 50)
glistclear.Size=UDim2.new(0, 385,0, 25)
glistclear.Name="Clear Gear list"
glistclear.Text="Clear Gear list"
glistclear.Font = "ArialBold"
glistclear.TextColor3 = Color3.new(255,255,255)
glistclear.BackgroundColor3 = Color3.new(0,0,0)
glistclear.TextScaled=true
glistclear.BorderColor3 = Color3.new(255,255,255)
glistclear.TextWrapped=true
glistclear.Visible=false
local cmdlist = Instance.new("TextButton", workspace)
cmdlist.Parent=fr3
cmdlist.BackgroundTransparency=0
cmdlist.Position=UDim2.new(0, 0,0, 203)
cmdlist.Size=UDim2.new(0, 110,0, 36)
cmdlist.Name="Cmd List"
cmdlist.Text="Cmd List"
cmdlist.Font = "ArialBold"
cmdlist.TextColor3 = Color3.new(0,0,0)
cmdlist.BackgroundColor3 = Color3.new(0,0,0)
cmdlist.TextScaled=true
cmdlist.BorderColor3 = Color3.new(255,255,255)
cmdlist.TextWrapped=true
cmdlist.Visible=true
local cmdlistclear = Instance.new("TextButton", workspace)
cmdlistclear.Parent=fr3
cmdlistclear.BackgroundTransparency=0
cmdlistclear.Position=UDim2.new(0, 112,0, 50)
cmdlistclear.Size=UDim2.new(0, 385,0, 25)
cmdlistclear.Name="Clear Cmd List"
cmdlistclear.Text="Clear Cmd List"
cmdlistclear.Font = "ArialBold"
cmdlistclear.TextColor3 = Color3.new(255,255,255)
cmdlistclear.BackgroundColor3 = Color3.new(0,0,0)
cmdlistclear.TextScaled=true
cmdlistclear.BorderColor3 = Color3.new(255,255,255)
cmdlistclear.TextWrapped=true
cmdlistclear.Visible=false
explore.MouseEnter:connect(function()
explore.TextStrokeColor3 = Color3.new(255,0,0)
explore.TextStrokeTransparency = 0
end)
explore.MouseLeave:connect(function()
explore.TextStrokeColor3 = Color3.new(0,0,0)
explore.TextStrokeTransparency = 1
end)
lpc.MouseEnter:connect(function()
lpc.TextStrokeColor3 = Color3.new(0,255,0)
lpc.TextStrokeTransparency = 0
end)
lpc.MouseLeave:connect(function()
lpc.TextStrokeColor3 = Color3.new(0,0,0)
lpc.TextStrokeTransparency = 1
end)
slist.MouseEnter:connect(function()
slist.TextStrokeColor3 = Color3.new(0,0,255)
slist.TextStrokeTransparency = 0
end)
slist.MouseLeave:connect(function()
slist.TextStrokeColor3 = Color3.new(0,0,0)
slist.TextStrokeTransparency = 1
end)
glist.MouseEnter:connect(function()
glist.TextStrokeColor3 = Color3.new(255,255,0)
glist.TextStrokeTransparency = 0
end)
glist.MouseLeave:connect(function()
glist.TextStrokeColor3 = Color3.new(0,0,0)
glist.TextStrokeTransparency = 1
end)
cmdlist.MouseEnter:connect(function()
cmdlist.TextStrokeColor3 = Color3.new(85,0,127)
cmdlist.TextStrokeTransparency = 0
end)
cmdlist.MouseLeave:connect(function()
cmdlist.TextStrokeColor3 = Color3.new(0,0,0)
cmdlist.TextStrokeTransparency = 1
end)

function cmd1()
lpc.Visible=false
explore.Visible=false
explrtb.Visible=true
plrclear.Visible=false
slistclear.Visible=false
slist.Visible=false
glist.Visible=false
glistclear.Visible=false
cmdlist.Visible=false
cmdlistclear.Visible=false
local frame = Instance.new("ScrollingFrame", fr3)
frame.Size = UDim2.new(0, 390,0, 325)
frame.BackgroundTransparency = 1
frame.Position=UDim2.new(0.42, -100,0.5, -125)
frame.CanvasSize = UDim2.new(1,0,10,0)
for i,wlp in pairs(game.workspace:GetChildren()) do
                        b = Instance.new("TextButton", frame)
                        b.Name = wlp.Name
                        b.Text = wlp.Name
                        b.BackgroundColor3 =Color3.new(0,0,0)
                        b.Size = UDim2.new(0, 200,0, 18)
                        b.Position = UDim2.new(0,0,0,0)
                        b.TextColor = BrickColor.new("Really black")
                        b.Font = "ArialBold"
                        b.FontSize = "Size11"
                        b.TextScaled=true
                        b.TextWrapped=true
                        b.TextColor3 = Color3.new(0,0,0)
                        b.TextStrokeTransparency = 0
                        b.TextStrokeColor3 = Color3.new(255,0,0)
                        br = Instance.new("TextButton", frame)
                        br.Name = "X"
                        br.Text = "X"
                        br.BackgroundColor3 =Color3.new(0, 0, 0)
                        br.Size = UDim2.new(0, 40,0, 18)
                        br.TextColor = BrickColor.new("Really black")
                        br.Font = "ArialBold"
                        br.FontSize = "Size11"
                        br.Position = UDim2.new(0,200,0,0)
                        br.TextScaled=true
                        br.TextWrapped=true
                        br.TextStrokeTransparency = 0
                        br.TextStrokeColor3 = Color3.new(255,0,0)
                        br2 = Instance.new("TextButton", frame)
                        br2.Name = "Clone"
                        br2.Text = "Clone"
                        br2.BackgroundColor3 =Color3.new(0, 0, 0)
                        br2.Size = UDim2.new(0, 40,0, 18)
                        br2.TextColor = BrickColor.new("Really black")
                        br2.Font = "ArialBold"
                        br2.FontSize = "Size11"
                        br2.Position = UDim2.new(0,240,0,0)
                        br2.TextScaled=true
                        br2.TextWrapped=true
                        br2.TextStrokeTransparency = 0
                        br2.TextStrokeColor3 = Color3.new(0,255,0)
for i,move in pairs(frame:GetChildren()) do
move.Position = move.Position + UDim2.new(0,0,0,18)
end
function cmd1clr()
frame:Remove()
lpc.Visible=true
explrtb.Visible=false
explore.Visible=true
slistclear.Visible=false
slist.Visible=true
glist.Visible=true
glistclear.Visible=false
cmdlist.Visible=true
end
explrtb.MouseButton1Down:connect(cmd1clr)
function cmd1Rem()
wlp:Remove()
frame:Remove()
wait()
cmd1()
end
br.MouseButton1Down:connect(cmd1Rem)
function cmd1cln()
wlp.Archivable=true
cln1 = wlp:Clone()
cln1.Parent = workspace
cln1.Name = wlp.Name.. " :(Clone)"
frame:Remove()
wait()
cmd1()
end
br2.MouseButton1Down:connect(cmd1cln)
end
end
explore.MouseButton1Down:connect(cmd1)
function cmd2()
lpc.Visible=false
explore.Visible=false
plrclear.Visible=true
slistclear.Visible=false
slist.Visible=false
glist.Visible=false
glistclear.Visible=false
cmdlist.Visible=false
cmdlistclear.Visible=false
local frame2 = Instance.new("ScrollingFrame", fr3)
frame2.Size = UDim2.new(0, 390,0, 325)
frame2.BackgroundTransparency = 1
frame2.Position=UDim2.new(0.42, -100,0.5, -125)
frame2.CanvasSize = UDim2.new(0,0,10,0)
for i,lp in pairs(game.Players:GetChildren()) do
	wait(0.1)
                        bl = Instance.new("TextButton", frame2)
                        bl.Name = lp.Name
                        bl.Text = lp.Name
                        bl.BackgroundColor3 =Color3.new(0,0,0)
                        bl.Size = UDim2.new(0, 340,0, 18)
                        bl.TextColor = BrickColor.new("Really black")
                        bl.Font = "ArialBold"
                        bl.FontSize = "Size11"
                        bl.TextScaled=true
                        bl.TextWrapped=true
                        bl.TextStrokeTransparency = 0
                        bl.TextStrokeColor3 = Color3.new(0,255,0)
                        blr = Instance.new("TextButton", frame2)
                        blr.Name = "X"
                        blr.Text = "X"
                        blr.BackgroundColor3 =Color3.new(0, 0, 0)
                        blr.Size = UDim2.new(0, 40,0, 18)
                        blr.TextColor = BrickColor.new("Really black")
                        blr.Font = "ArialBold"
                        blr.FontSize = "Size11"
                        blr.Position = UDim2.new(0,340,0,0)
                        blr.TextScaled=true
                        blr.TextWrapped=true
                        blr.TextStrokeTransparency = 0
                        blr.TextStrokeColor3 = Color3.new(255,0,0)
for i,move in pairs(frame2:GetChildren()) do
move.Position = move.Position + UDim2.new(0,0,0,18)
end
function cmd2clr()
frame2:Remove()
explrtb.Visible=false
explore.Visible=true
slist.Visible=true
plrclear.Visible=false
lpc.Visible=true
slistclear.Visible=false
glist.Visible=true
glistclear.Visible=false
cmdlist.Visible=true
end
plrclear.MouseButton1Down:connect(cmd2clr)
function cmd2Rem()
lp:Remove()
frame2:Remove()
wait()
cmd2()
end
blr.MouseButton1Down:connect(cmd2Rem)
end
end
lpc.MouseButton1Down:connect(cmd2)
function cmd3()
lpc.Visible=false
explore.Visible=false
plrclear.Visible=false
slistclear.Visible=true
slist.Visible=false
glist.Visible=false
glistclear.Visible=false
cmdlist.Visible=false
cmdlistclear.Visible=false
local frame3 = Instance.new("ScrollingFrame", fr3)
frame3.Size = UDim2.new(0, 390,0, 325)
frame3.BackgroundTransparency = 1
frame3.Position=UDim2.new(0.42, -100,0.5, -125)
frame3.CanvasSize = UDim2.new(0,0,10,0)
for i,lpl in pairs(songs) do
	wait()
                        bl = Instance.new("TextButton", frame3)
                        bl.Name = i
                        bl.Text = i
                        bl.BackgroundColor3 =Color3.new(0,0,0)
                        bl.Size = UDim2.new(0, 270,0, 18)
                        bl.FontSize = "Size11"
                        bl.TextScaled=true
                        bl.TextColor3 = Color3.new(0,0,0)
                        bl.TextWrapped=true
                        bl.Font = "ArialBold"
                        bl.TextStrokeTransparency = 0
                        bl.TextStrokeColor3 = Color3.new(0,0,255)
                        blr = Instance.new("TextButton", frame3)
                        blr.Name = "Play"
                        blr.Text = "Play"
                        blr.BackgroundColor3 =Color3.new(0, 0, 0)
                        blr.Size = UDim2.new(0, 50,0, 18)
                        blr.TextColor3 = Color3.new(0,0,0)
                        blr.Font = "ArialBold"
                        blr.FontSize = "Size11"
                        blr.Position = UDim2.new(0,270,0,0)
                        blr.TextScaled=true
                        blr.TextWrapped=true
                        blr.TextStrokeTransparency = 0
                        blr.TextStrokeColor3 = Color3.new(0,255,0)
                        blr2 = Instance.new("TextButton", frame3)
                        blr2.Name = "Stop"
                        blr2.Text = "Stop"
                        blr2.BackgroundColor3 =Color3.new(0, 0, 0)
                        blr2.Size = UDim2.new(0, 56,0, 18)
                        blr2.TextColor3 = Color3.new(0,0,0)
                        blr2.Font = "ArialBold"
                        blr2.FontSize = "Size11"
                        blr2.Position = UDim2.new(0,320,0,0)
                        blr2.TextScaled=true
                        blr2.TextWrapped=true
                        blr2.TextStrokeTransparency = 0
                        blr2.TextStrokeColor3 = Color3.new(255,0,0)
for i,move in pairs(frame3:GetChildren()) do
move.Position = move.Position + UDim2.new(0,0,0,18)
end
function slistclr()
frame3:Remove()
explrtb.Visible=false
explore.Visible=true
plrclear.Visible=false
lpc.Visible=true
slistclear.Visible=false
slist.Visible=true
glist.Visible=true
glistclear.Visible=false
cmdlist.Visible=true
end
slistclear.MouseButton1Down:connect(slistclr)
function slistplay()
for i,v in pairs(songs) do
game:service'ContentProvider':Preload("rbxassetid://" .. v)
end
if not char.Torso:FindFirstChild("Music") == true then
local sound=Instance.new("Sound",workspace)
sound.Name="Music"
sound.Parent = char.Torso
sound.SoundId = "rbxassetid://" .. lpl
sound.Volume=1
sound.Pitch=1
sound.Looped=false
wait(1)
sound:Play()
if not plr.PlayerGui["Admin Gui"]:FindFirstChild("plg") == true then
local s3 = Instance.new("ScreenGui",plr.PlayerGui["Admin Gui"])
s3.Name = "plg"
local intro2 = Instance.new("TextLabel",s3)
intro2.Parent=s3
intro2.BackgroundColor3 = Color3.new(0,0,0)
intro2.BackgroundTransparency = 0.2
intro2.BorderColor3 = Color3.new(0,0,0)
intro2.Size = UDim2.new(0,1365,0,25)
intro2.Position = UDim2.new(0,0,0,0)
intro2.TextColor3 = Color3.new(0,0,0)
intro2.TextStrokeTransparency = 0
intro2.TextStrokeColor3 = Color3.new(255,0,0)
intro2.TextScaled=true
intro2.Font = "ArialBold"
intro2.FontSize = "Size24"
intro2.TextWrapped=true
intro2.Text = "Song Name : | " ..i.. " | Is Now Playing Id : " ..lpl
else
plr.PlayerGui:FindFirstChild("plg"):Remove()
end
else
char.Torso:FindFirstChild("Music"):Stop()
char.Torso:FindFirstChild("Music"):Remove()
sound=Instance.new("Sound",workspace)
sound.Name="Music"
sound.Parent = char.Torso
sound.SoundId = "rbxassetid://" .. lpl
sound.Volume=1
sound.Pitch=1
sound.Looped=true
wait(1)
sound:Play()
local s3 = Instance.new("ScreenGui",plr.PlayerGui["Admin Gui"])
s3.Name = "plg"
local intro2 = Instance.new("TextLabel",s3)
intro2.Parent=s3
intro2.BackgroundColor3 = Color3.new(0,0,0)
intro2.BackgroundTransparency = 0.2
intro2.BorderColor3 = Color3.new(0,0,0)
intro2.Size = UDim2.new(0,1365,0,25)
intro2.Position = UDim2.new(0,0,0,0)
intro2.TextColor3 = Color3.new(0,0,0)
intro2.TextStrokeTransparency = 0
intro2.TextStrokeColor3 = Color3.new(255,0,0)
intro2.TextScaled=true
intro2.Font = "ArialBold"
intro2.FontSize = "Size24"
intro2.TextWrapped=true
intro2.Text = "Song Name : | " ..i.. " | Is Now Playing Id : " ..lpl
if not plr.PlayerGui["Admin Gui"]:FindFirstChild("plg") == true then
local s3 = Instance.new("ScreenGui",plr.PlayerGui["Admin Gui"])
s3.Name = "plg"
local intro2 = Instance.new("TextLabel",s3)
intro2.Parent=s3
intro2.BackgroundColor3 = Color3.new(0,0,0)
intro2.BackgroundTransparency = 0.2
intro2.BorderColor3 = Color3.new(0,0,0)
intro2.Size = UDim2.new(0,1365,0,25)
intro2.Position = UDim2.new(0,0,0,0)
intro2.TextColor3 = Color3.new(0,0,0)
intro2.TextStrokeTransparency = 0
intro2.TextStrokeColor3 = Color3.new(255,0,0)
intro2.TextScaled=true
intro2.Font = "ArialBold"
intro2.FontSize = "Size24"
intro2.TextWrapped=true
intro2.Text = "Song Name : | " ..i.. " | Is Now Playing Id : " ..lpl
else
plr.PlayerGui["Admin Gui"]:FindFirstChild("plg"):Remove()
end
end
end
blr.MouseButton1Down:connect(slistplay)
function sliststop()
if not char.Torso:FindFirstChild("Music") == true then

else
char.Torso:FindFirstChild("Music"):Stop()
char.Torso:FindFirstChild("Music"):Destroy()
if not plr.PlayerGui["Admin Gui"]:FindFirstChild("plg") == true then

else
plr.PlayerGui["Admin Gui"]:FindFirstChild("plg"):Remove()
end
end
end
blr2.MouseButton1Down:connect(sliststop)
end
end
slist.MouseButton1Down:connect(cmd3)
function cmd4()
lpc.Visible=false
explore.Visible=false
plrclear.Visible=false
slistclear.Visible=false
slist.Visible=false
glist.Visible=false
glistclear.Visible=true
cmdlist.Visible=false
cmdlistclear.Visible=false
local frame4 = Instance.new("ScrollingFrame", fr3)
frame4.Size = UDim2.new(0, 390,0, 325)
frame4.BackgroundTransparency = 1
frame4.Position=UDim2.new(0.42, -100,0.5, -125)
frame4.CanvasSize = UDim2.new(0,0,10,0)
for i,lpg in pairs(gears) do
	wait(0.1)
                        bl = Instance.new("TextButton", frame4)
                        bl.Name = i
                        bl.Text = i
                        bl.BackgroundColor3 =Color3.new(0,0,0)
                        bl.Size = UDim2.new(0, 270,0, 18)
                        bl.FontSize = "Size11"
                        bl.TextScaled=true
                        bl.TextColor3 = Color3.new(0,0,0)
                        bl.TextWrapped=true
                        bl.Font = "ArialBold"
                        bl.TextStrokeTransparency=0
                        bl.TextStrokeColor3 = Color3.new(255,255,0)
                        blr = Instance.new("TextButton", frame4)
                        blr.Name = "Give"
                        blr.Text = "Give"
                        blr.BackgroundColor3 =Color3.new(0, 0, 0)
                        blr.Size = UDim2.new(0, 50,0, 18)
                        blr.TextColor3 = Color3.new(0,0,0)
                        blr.Font = "ArialBold"
                        blr.FontSize = "Size11"
                        blr.Position = UDim2.new(0,270,0,0)
                        blr.TextScaled=true
                        blr.TextWrapped=true
                        blr.TextStrokeTransparency=0
                        blr.TextStrokeColor3 = Color3.new(0,255,0)
                        blr2 = Instance.new("TextButton", frame4)
                        blr2.Name = "Clean"
                        blr2.Text = "Clean"
                        blr2.BackgroundColor3 =Color3.new(0, 0, 0)
                        blr2.Size = UDim2.new(0, 56,0, 18)
                        blr2.TextColor3 = Color3.new(0,0,0)
                        blr2.Font = "ArialBold"
                        blr2.FontSize = "Size11"
                        blr2.Position = UDim2.new(0,320,0,0)
                        blr2.TextScaled=true
                        blr2.TextWrapped=true
                        blr2.TextStrokeTransparency=0
                        blr2.TextStrokeColor3 = Color3.new(255,0,0)
for i,move in pairs(frame4:GetChildren()) do
move.Position = move.Position + UDim2.new(0,0,0,18)
end
function glistclr()
frame4:Remove()
explrtb.Visible=false
explore.Visible=true
plrclear.Visible=false
lpc.Visible=true
slistclear.Visible=false
slist.Visible=true
glist.Visible=true
glistclear.Visible=false
cmdlist.Visible=true
cmdlistclear.Visible=false
end
glistclear.MouseButton1Down:connect(glistclr)
function ggive()
game:service'InsertService':LoadAsset(lpg):children()[1].Parent=plr.Backpack
end
blr.MouseButton1Down:connect(ggive)
function gremove()
plr.Backpack:ClearAllChildren()
end
blr2.MouseButton1Down:connect(gremove)
end
end
glist.MouseButton1Down:connect(cmd4)
function cmd5()
lpc.Visible=false
explore.Visible=false
plrclear.Visible=false
slistclear.Visible=false
slist.Visible=false
glist.Visible=false
glistclear.Visible=false
cmdlist.Visible=false
cmdlistclear.Visible=true
local frame5 = Instance.new("ScrollingFrame", fr3)
frame5.Size = UDim2.new(0, 390,0, 325)
frame5.BackgroundTransparency = 1
frame5.Position=UDim2.new(0.42, -100,0.5, -125)
frame5.CanvasSize = UDim2.new(0,0,10,0)
for i,lcl in pairs(cmds) do
	wait(0.1)
                        bl = Instance.new("TextButton", frame5)
                        bl.Name = lcl
                        bl.Text = lcl
                        bl.BackgroundColor3 =Color3.new(0,0,0)
                        bl.Size = UDim2.new(0, 270,0, 18)
                        bl.FontSize = "Size11"
                        bl.TextScaled=true
                        bl.TextColor3 = Color3.new(0,0,0)
                        bl.TextWrapped=true
                        bl.Font = "ArialBold"
                        bl.TextStrokeTransparency=0
                        bl.TextStrokeColor3 = Color3.new(255,0,0)
                        blr = Instance.new("TextButton", frame5)
                        blr.Name = "Execute"
                        blr.Text = "Execute"
                        blr.BackgroundColor3 =Color3.new(0, 0, 0)
                        blr.Size = UDim2.new(0, 115,0, 18)
                        blr.TextColor3 = Color3.new(0,0,0)
                        blr.Font = "ArialBold"
                        blr.FontSize = "Size11"
                        blr.Position = UDim2.new(0,270,0,0)
                        blr.TextScaled=true
                        blr.TextWrapped=true
                        blr.TextStrokeTransparency=0
                        blr.TextStrokeColor3 = Color3.new(0,255,0)
for i,move in pairs(frame5:GetChildren()) do
move.Position = move.Position + UDim2.new(0,0,0,18)
end
function cmdexe()
if lcl == "Fire" then
if not char.Torso:FindFirstChild("Fire") == true then
local f = Instance.new("Fire",char.Torso)
else

end
end
if lcl == "Unfire" then
if not char.Torso:FindFirstChild("Fire") == true then

else
char.Torso:FindFirstChild("Fire"):Remove()
end
end
if lcl == "Invisible" then
for i,v in pairs(char:GetChildren()) do
if v:IsA("Part") then
v.Transparency=1
end
end
end
if lcl == "Visible" then
for i,v in pairs(char:GetChildren()) do
if v:IsA("Part") then
v.Transparency=0
end
end
end
if lcl == "Sparkle" then
if not char.Torso:FindFirstChild("Sparkles") == true then
local f = Instance.new("Sparkles",char.Torso)
else

end
end
if lcl == "Unsparkle" then
if not char.Torso:FindFirstChild("Sparkles") == true then

else
char.Torso:FindFirstChild("Sparkles"):Remove()
end
end
if lcl == "FF" then
if not char:FindFirstChild("ForceField") == true then
local f = Instance.new("ForceField",char)
else

end
end
if lcl == "Unff" then
if not char:FindFirstChild("ForceField") == true then

else
char:FindFirstChild("ForceField"):Remove()
end
end
if lcl == "Sit" then
char.Humanoid.Sit = true
end
if lcl == "Jump" then
char.Humanoid.Jump = true
end
if lcl == "Shutdown" then
local hint = Instance.new("Hint",workspace)
hint.Parent = char.Torso
hint.Text = shuttime.. "Till Shutdown"
for i = 1,10 do
shuttime =shuttime -1
hint.Text = shuttime .. " Secs Till Shutdown"
wait(1)
end
for i,v in pairs(game.Players:GetChildren()) do
v:Remove()
end
end
if lcl == "Disco" then
disco = true
flash=false
while disco==true do wait()
local r=0
local g=0
local b=0
game.Lighting.TimeOfDay = "00:00:00"
for i = 1,15 do
r = r +0.1
game.Lighting.Ambient = Color3.new(r,g,b)
game.Lighting.OutdoorAmbient= Color3.new(r,g,b)
game.Lighting.ColorShift_Bottom= Color3.new(r,g,b)
game.Lighting.ColorShift_Top= Color3.new(r,g,b)
wait()
end
for i = 1,15 do
g = g +0.1
game.Lighting.Ambient = Color3.new(r,g,b)
game.Lighting.OutdoorAmbient= Color3.new(r,g,b)
game.Lighting.ColorShift_Bottom= Color3.new(r,g,b)
game.Lighting.ColorShift_Top= Color3.new(r,g,b)
wait()
end
for i = 1,15 do
g = g -0.1
r = r -0.1
b = b +0.1
game.Lighting.Ambient = Color3.new(r,g,b)
game.Lighting.OutdoorAmbient= Color3.new(r,g,b)
game.Lighting.ColorShift_Bottom= Color3.new(r,g,b)
game.Lighting.ColorShift_Top= Color3.new(r,g,b)
wait()
end
for i = 1,15 do
g = g +0.1
game.Lighting.Ambient = Color3.new(r,g,b)
game.Lighting.OutdoorAmbient= Color3.new(r,g,b)
game.Lighting.ColorShift_Bottom= Color3.new(r,g,b)
game.Lighting.ColorShift_Top= Color3.new(r,g,b)
wait()
end
for i = 1,15 do
g = g -0.1
game.Lighting.Ambient = Color3.new(r,g,b)
game.Lighting.OutdoorAmbient= Color3.new(r,g,b)
game.Lighting.ColorShift_Bottom= Color3.new(r,g,b)
game.Lighting.ColorShift_Top= Color3.new(r,g,b)
wait()
end
for i = 1,15 do
r = r +0.1
game.Lighting.Ambient = Color3.new(r,g,b)
game.Lighting.OutdoorAmbient= Color3.new(r,g,b)
game.Lighting.ColorShift_Bottom= Color3.new(r,g,b)
game.Lighting.ColorShift_Top= Color3.new(r,g,b)
wait()
end
for i = 1,15 do
b = b -0.1
r = r -0.1
game.Lighting.Ambient = Color3.new(r,g,b)
game.Lighting.OutdoorAmbient= Color3.new(r,g,b)
game.Lighting.ColorShift_Bottom= Color3.new(r,g,b)
game.Lighting.ColorShift_Top= Color3.new(r,g,b)
wait()
end
end
end
if lcl == "Flash" then
flash = true
disco=false
while flash==true do wait()
game.Lighting.ColorShift_Bottom=Color3.new(0, 0, 0)
game.Lighting.ColorShift_Top=Color3.new(0, 0, 0)
game.Lighting.OutdoorAmbient=Color3.new(0 , 0, 0)
game.Lighting.TimeOfDay = "14:00:00"
game.Lighting.GlobalShadows=false
game.Lighting.Outlines=false
wait()
game.Lighting.ColorShift_Bottom=Color3.new(0,0,0)
game.Lighting.ColorShift_Top=Color3.new(0,0,0)
game.Lighting.OutdoorAmbient=Color3.new(0,0,0)
game.Lighting.TimeOfDay = "00:00:00"
game.Lighting.GlobalShadows=false
game.Lighting.Outlines=false
end
end
if lcl == "UnDisco" then
disco=false
flash=false
local r=1
local g=1
local b=1
game.Lighting.Ambient = Color3.new(r,g,b)
game.Lighting.OutdoorAmbient= Color3.new(r,g,b)
game.Lighting.ColorShift_Bottom= Color3.new(r,g,b)
game.Lighting.ColorShift_Top= Color3.new(r,g,b)
game.Lighting.TimeOfDay = "00:00:00"
end
if lcl==  "UnFlash" then
disco=false
flash=false
game.Lighting.ColorShift_Bottom=Color3.new(0,0,0)
game.Lighting.ColorShift_Top=Color3.new(0,0,0)
game.Lighting.OutdoorAmbient=Color3.new(0,0,0)
game.Lighting.TimeOfDay = "14:00:00"
game.Lighting.GlobalShadows=false
game.Lighting.FogEnd = 1000000
game.Lighting.Outlines=false
end
if lcl == "Explode" then
if char.Torso:FindFirstChild("Explosion") == true then

else
local ex = Instance.new("Explosion",workspace)
ex.Parent = char.Torso
ex.Position = char.Torso.Position
end
end
if lcl == "chatgui" then
if not plr.PlayerGui:FindFirstChild("Chatg") == true then
plr = game.Players.LocalPlayer
char = plr.Character

local scr = Instance.new("ScreenGui",game.Players.LocalPlayer.PlayerGui)
scr.Name = "Chatg"
local box = Instance.new("TextBox",scr)
box.Size = UDim2.new(0,200,0,50)
box.Position = UDim2.new(0, 0, 0, 400)
box.Draggable=false
box.BackgroundColor3 = Color3.new(255, 255, 255)
box.BorderColor3 = Color3.new(0,0,0)
box.Text = "Chat Here"
box.TextStrokeTransparency = 0
box.TextColor3 = Color3.new(0,0,0)
box.TextWrapped = true
box.TextScaled=true
box.Font = "ArialBold"
box.FontSize = "Size48"
local tb = Instance.new("TextButton",scr)
tb.Position = box.Position+UDim2.new(0,201,0,0)
tb.Size = UDim2.new(0.2, 0,0, 50)
tb.TextStrokeTransparency=0
tb.TextColor3 = Color3.new(0,0,0)
tb.BackgroundColor3 = Color3.new(255, 255, 255)
tb.Text="Send"
tb.Font = "ArialBold"
tb.FontSize = "Size48"
tb.MouseButton1Down:connect(function()
if not plr.Character.Head:FindFirstChild("Epic") == true then
wait()
local b = Instance.new("BillboardGui",plr.Character.Head)
b.Size = UDim2.new(15, 0, 1, 0)
b.StudsOffset = Vector3.new(0, 4, 0)
b.Name ="Epic"
bm = Instance.new("TextLabel", b)
bm.BackgroundColor3 = Color3.new()
bm.BackgroundTransparency = 1
bm.BorderColor3 = Color3.new(0,0,200)
bm.Name = "NameGui"
bm.Size = UDim2.new(1, 0, 1, 0)
bm.Font = "Arial"
bm.Text = box.Text
bm.TextColor3=Color3.new()
bm.FontSize = "Size48"
bm.TextScaled=true
bm.TextStrokeColor3=Color3.new(255,255,255)
bm.TextStrokeTransparency = 0
bm.TextWrapped=true
for i = 1,5 do
bm.Position = bm.Position+UDim2.new(0,0,-0.1,0)
wait()
end
game.Debris:AddItem(bm,4)
game.Debris:AddItem(b,4)
else
plr.Character.Head:FindFirstChild("Epic"):Remove()
end
end)
else

end
end
if lcl == "rcg" then
if not plr.PlayerGui:FindFirstChild("Chatg") == true then

else
game.Players.LocalPlayer.PlayerGui:FindFirstChild("Chatg").Parent = nil
end
end
if lcl == "Noobify" then
for i,v in pairs(char:GetChildren()) do
wait(0.1)
if v:IsA("Part") then
v.Transparency = 0
char.HumanoidRootPart.Transparency = 1
v.BrickColor = BrickColor.new("New Yeller")
if not char:FindFirstChild("Shirt") or char:FindFirstChild("Pants") ==true then

else
char:FindFirstChild("Shirt"):Remove()
char:FindFirstChild("Pants"):Remove()
end
end
end
end
if lcl == "Zombify" then

for i,v in pairs(char:GetChildren()) do
wait(0.1)
if v:IsA("Part") then
v.Transparency = 0
char.HumanoidRootPart.Transparency = 1
v.BrickColor = BrickColor.new("Bright green")
if not char:FindFirstChild("Shirt") or char:FindFirstChild("Pants") ==true then

else
char:FindFirstChild("Shirt"):Remove()
char:FindFirstChild("Pants"):Remove()
end
end
end
end
if lcl == "Ghostify" then

for i,v in pairs(char:GetChildren()) do
wait(0.1)
if v:IsA("Part") then
v.BrickColor = BrickColor.new("White")
char.HumanoidRootPart.Transparency = 1
v.Transparency = 0.4
if not char:FindFirstChild("Shirt") or char:FindFirstChild("Pants") ==true then

else
char:FindFirstChild("Shirt"):Remove()
char:FindFirstChild("Pants"):Remove()
end
end
end
end
if lcl == "Nuke" then
if char.Torso:FindFirstChild("Explosion") == true then

else
local ex = Instance.new("Explosion",workspace)
ex.Parent = char.Torso
ex.BlastRadius = 1000
ex.Position = char.Torso.Position
end
end
if lcl == "Normify" then
for i,v in pairs(char:GetChildren()) do
wait(0.1)
if v:IsA("Part") then
v.Transparency = 0
char.Torso.BrickColor = BrickColor.new("Pastel brown")
char.Head.BrickColor = BrickColor.new("Pastel brown")
char.HumanoidRootPart.Transparency = 1
char["Left Arm"].BrickColor = BrickColor.new("Pastel brown")
char["Right Arm"].BrickColor = BrickColor.new("Pastel brown")
char["Left Leg"].BrickColor = BrickColor.new("Really black")
char["Right Leg"].BrickColor = BrickColor.new("Really black")
if not char:FindFirstChild("Shirt") or char:FindFirstChild("Pants") ==true then

else
char:FindFirstChild("Shirt"):Remove()
char:FindFirstChild("Pants"):Remove()
end
end
end
end
if lcl == "MP3" then
if not plr.PlayerGui:FindFirstChild("Radio") == true then
plr = game.Players.LocalPlayer
mouse = plr:GetMouse()
local moveable=true
local s = Instance.new("ScreenGui",workspace)
s.Parent = game.Players.LocalPlayer.PlayerGui
s.Name="Radio"
local fr = Instance.new("Frame",s)
fr.BackgroundColor3 = Color3.new(0,0,0)
fr.BackgroundTransparency = 0
fr.BorderColor3 = Color3.new(0,0,0)
fr.Position = UDim2.new(0,450,0,10)
fr.Size = UDim2.new(0,200,0,100)
fr.Active=true
fr.Draggable=true
local tb = Instance.new("TextButton",workspace)
tb.Parent=fr
tb.BackgroundColor3 = Color3.new(0,85,0)
tb.BorderColor3 = Color3.new(0,0,0)
tb.Size = UDim2.new(0,100,0,20)
tb.Position = UDim2.new(0,0,0.8,0)
tb.TextColor3 = Color3.new(0,0,0)
tb.Text = "Play"
tb.Name = "Play"
tb.TextScaled=true
tb.TextWrapped=true
local tb2 = Instance.new("TextButton",workspace)
tb2.Parent=fr
tb2.BackgroundColor3 = Color3.new(255,0,0)
tb2.BorderColor3 = Color3.new(0,0,0)
tb2.Size = UDim2.new(0,100,0,20)
tb2.Position = UDim2.new(0,100,0.8,0)
tb2.TextColor3 = Color3.new(0,0,0)
tb2.Text = "Stop"
tb2.Name = "Stop"
tb2.TextScaled=true
tb2.TextWrapped=true
local teb = Instance.new("TextBox",workspace)
teb.Parent=fr
teb.BackgroundColor3 = Color3.new(255,255,255)
teb.BorderColor3 = Color3.new(0,0,0)
teb.Size = UDim2.new(0,200,0,30)
teb.Position = UDim2.new(0,0,0,50)
teb.TextColor3 = Color3.new(0,0,0)
teb.Name="Label"
teb.Text="ID"
teb.TextScaled=true
teb.TextWrapped=true
local tl = Instance.new("TextLabel", workspace)
tl.Parent=fr
tl.BackgroundColor3 = Color3.new(255,255,255)
tl.BackgroundTransparency = 1
tl.BorderColor3 = Color3.new(0,0,0)
tl.Size = UDim2.new(0,200,0,50)
tl.Position = UDim2.new(0,0,0,0)
tl.TextColor3 = Color3.new(255,255,255)
tl.TextScaled=true
tl.TextWrapped=true
tl.Text = "Jonas's Music Player"
plr = game.Players.LocalPlayer


sound = Instance.new("Sound", game.Workspace)
sound.Parent = char.Torso
sound.Pitch = 1
sound.Volume = 1
sound.PlayOnRemove=true
local player = game.Players.LocalPlayer


local format ="http://www.roblox.com/asset/?id=##ID##"
local frame = s:WaitForChild("Frame")
sound.SoundId =  ""

wait(1)

while moveable==true do
wait()
frame.Play.MouseButton1Click:connect(function()
			local input = tonumber(frame:WaitForChild("Label").Text)
					if input then
							sound:Stop()
							sound.SoundId=format:gsub("##ID##", tostring(input))
							sound:Play()
							wait()
							end
							frame.Stop.MouseButton1Click:connect(function()
							sound:Stop()
							end)
					end)
					wait()
end
else

end
end
if lcl == "RMP3" then
if not plr.PlayerGui:FindFirstChild("Radio") == true then

else
game.Players.LocalPlayer.PlayerGui:FindFirstChild("Radio").Parent = nil
end
end
if lcl == "UnAnchor All" then
for i,v in pairs(game.Workspace:GetChildren()) do
if v:IsA("Part") then
v.Anchored=false
end
end
end
if lcl == "Color Effect" then
if not game.Lighting:FindFirstChild("cef") == true then
local cef = Instance.new("ColorCorrectionEffect",game.Lighting)
cef.Saturation = 1
cef.Contrast = 1
cef.Name = "cef"
else
game.Lighting:FindFirstChild("cef"):Remove()
end
end
if lcl == "Extra Cmd Gui" then
if not plr.PlayerGui["Admin Gui"].Frame:FindFirstChild("Extcmds") == true then
local fr = Instance.new("Frame",fr)
fr.BackgroundColor3 = Color3.new(0,0,0)
fr.BackgroundTransparency = 0.4
fr.BorderColor3 = Color3.new(0,0,0)
fr.Position = UDim2.new(0,220,0,0)
fr.Size = UDim2.new(0,470,0,180)
fr.Draggable=true
fr.Name="Extcmds"
fr.Active=true
local frame7 = Instance.new("ScrollingFrame", fr)
frame7.Size = UDim2.new(0, 465,0, 150)
frame7.BackgroundTransparency = 1
frame7.Position=UDim2.new(0,0,0,30)
frame7.CanvasSize = UDim2.new(1,0,4,0)
frame7.Name = "Extlist"
local teb = Instance.new("TextBox",workspace)
teb.Parent=fr
teb.BackgroundColor3 = Color3.new(255,255,255)
teb.BorderColor3 = Color3.new(0,0,0)
teb.Size = UDim2.new(0,440,0,25)
teb.Position = UDim2.new(0,0,0,0)
teb.TextColor3 = Color3.new(0,0,0)
teb.Name="PlayerName"
teb.Text="Enter Player Name [Case Sensitive]"
teb.TextScaled=true
teb.TextWrapped=true
                        bl = Instance.new("TextButton", fr)
                        bl.Name = "X"
                        bl.Text = "X"
                        bl.BackgroundColor3 =Color3.new(255,255,255)
                        bl.Size = UDim2.new(0, 30,0, 25)
                        bl.Position = UDim2.new(0,440,0,0)
                        bl.FontSize = "Size11"
                        bl.TextScaled=true
                        bl.TextColor3 = Color3.new(255,0,0)
                        bl.TextWrapped=true
                        bl.Font = "ArialBold"
                        bl.TextStrokeTransparency=0
                        bl.TextStrokeColor3 = Color3.new(0,0,0)
bl.MouseButton1Down:connect(function()
if not plr.PlayerGui["Admin Gui"].Frame:FindFirstChild("Extcmds") == true then

else
plr.PlayerGui["Admin Gui"].Frame.Extcmds:Remove()
end
end)
for i,lxt in pairs(extcmds) do
	wait(0.1)
                        bl = Instance.new("TextButton", frame7)
                        bl.Name = lxt
                        bl.Text = lxt
                        bl.BackgroundColor3 =Color3.new(0,0,0)
                        bl.Size = UDim2.new(0, 270,0, 18)
                        bl.FontSize = "Size11"
                        bl.TextScaled=true
                        bl.TextColor3 = Color3.new(0,0,0)
                        bl.TextWrapped=true
                        bl.Font = "ArialBold"
                        bl.TextStrokeTransparency=0
                        bl.TextStrokeColor3 = Color3.new(255,0,0)
                        blr5 = Instance.new("TextButton", frame7)
                        blr5.Name = "Execute"
                        blr5.Text = "Execute"
                        blr5.BackgroundColor3 =Color3.new(0, 0, 0)
                        blr5.Size = UDim2.new(0, 180,0, 18)
                        blr5.TextColor3 = Color3.new(0,0,0)
                        blr5.Font = "ArialBold"
                        blr5.FontSize = "Size11"
                        blr5.Position = UDim2.new(0,270,0,0)
                        blr5.TextScaled=true
                        blr5.TextWrapped=true
                        blr5.TextStrokeTransparency=0
                        blr5.TextStrokeColor3 = Color3.new(0,255,0)
for i,move in pairs(frame7:GetChildren()) do
move.Position = move.Position + UDim2.new(0,0,0,18)
end
function extcmdexe()
if lxt == "Invisible" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
for i,v in pairs(lpf.Character:GetChildren()) do
if v:IsA("Part") then
v.Transparency=1
end
end
end
end
end
if lxt == "Visible" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
for i,v in pairs(lpf.Character:GetChildren()) do
if v:IsA("Part") then
v.Transparency=0
end
end
end
end
end
if lxt == "Smoke" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not lpf.Character.Torso:FindFirstChild("Smoke") == true then
local f = Instance.new("Smoke", lpf.Character.Torso)
else

end
end
end
end
if lxt == "Unsmoke" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not lpf.Character.Torso:FindFirstChild("Smoke") == true then

else
lpf.Character.Torso:FindFirstChild("Smoke"):Remove()


end
end
end
end
if lxt == "Fire" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not lpf.Character.Torso:FindFirstChild("Fire") == true then
local f = Instance.new("Fire", lpf.Character.Torso)
else

end
end
end
end
if lxt == "Unfire" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not lpf.Character.Torso:FindFirstChild("Fire") == true then

else
lpf.Character.Torso:FindFirstChild("Fire"):Remove()


end
end
end
end
if lxt == "Sparkle" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not lpf.Character.Torso:FindFirstChild("Sparkles") == true then
local f = Instance.new("Sparkles", lpf.Character.Torso)
else

end
end
end
end
if lxt == "Unsparkle" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not lpf.Character.Torso:FindFirstChild("Sparkles") == true then

else
lpf.Character.Torso:FindFirstChild("Sparkles"):Remove()


end
end
end
end
if lxt == "FF" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not lpf.Character:FindFirstChild("ForceField") == true then
local f = Instance.new("ForceField",lpf.Character)
else

end
end
end
end
if lxt == "Unff" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not char:FindFirstChild("ForceField") == true then

else
char:FindFirstChild("ForceField"):Remove()
end
end
end
end
if lxt == "Sit" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
lpf.Character.Humanoid.Sit = true
end
end
end
if lxt == "Jump" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
lpf.Character.Humanoid.Jump = true
end
end
end
if lxt =="Noobify" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
for i,v in pairs(char:GetChildren()) do
wait(0.1)
if v:IsA("Part") then
lpf.Character.Transparency = 0
lpf.Character.HumanoidRootPart.Transparency = 1
lpf.Character.BrickColor = BrickColor.new("New Yeller")
if not lpf.Character:FindFirstChild("Shirt") or lpf.Character:FindFirstChild("Pants") ==true then

else
lpf.Character:FindFirstChild("Shirt"):Remove()
lpf.Character:FindFirstChild("Pants"):Remove()
end
end
end
end
end

end
if lxt =="Zombify" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
for i,v in pairs(char:GetChildren()) do
wait(0.1)
if v:IsA("Part") then
lpf.Character.Transparency = 0
lpf.Character.HumanoidRootPart.Transparency = 1
lpf.Character.BrickColor = BrickColor.new("Bright green")
if not lpf.Character:FindFirstChild("Shirt") or lpf.Character:FindFirstChild("Pants") ==true then

else
lpf.Character:FindFirstChild("Shirt"):Remove()
lpf.Character:FindFirstChild("Pants"):Remove()
end
end
end
end
end
end
if lxt =="Ghostify" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
for i,v in pairs(lpf:GetChildren()) do
wait(0.1)
if v:IsA("Part") then
v.Character.Transparency = 0.4
v.Character.HumanoidRootPart.Transparency = 1
v.Character.BrickColor = BrickColor.new("White")
if not v.Character:FindFirstChild("Shirt") or v.Character:FindFirstChild("Pants") ==true then

else
v.Character:FindFirstChild("Shirt"):Remove()
v.Character:FindFirstChild("Pants"):Remove()
end
end
end
end
end
end
if lxt =="Normify" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
for i,v in pairs(lpf:GetChildren()) do
wait(0.1)
if v:IsA("Part") then
v.Transparency = 0
v.Character.Torso.BrickColor = BrickColor.new("Pastel brown")
v.Character.Head.BrickColor = BrickColor.new("Pastel brown")
v.Character.HumanoidRootPart.Transparency = 1
v.Character["Left Arm"].BrickColor = BrickColor.new("Pastel brown")
v.Character["Right Arm"].BrickColor = BrickColor.new("Pastel brown")
v.Character["Left Leg"].BrickColor = BrickColor.new("Really black")
v.Character["Right Leg"].BrickColor = BrickColor.new("Really black")
if not v.Character:FindFirstChild("Shirt") or v.Character:FindFirstChild("Pants") ==true then

else
v.Character:FindFirstChild("Shirt"):Remove()
v.Character:FindFirstChild("Pants"):Remove()
end
end
end
end
end
end
if lxt == "Explode" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if lpf.Character.Torso:FindFirstChild("Explosion") == true then

else
local ex = Instance.new("Explosion",workspace)
ex.Parent = lpf.Character.Torso
ex.BlastRadius = 1
ex.Position = lpf.Character.Torso.Position
end
end
end
end
if lxt == "Nuke" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if lpf.Character.Torso:FindFirstChild("Explosion") == true then

else
game:GetService("Chat"):Chat(lpf.Character, "im feeling Strange Uhm ugh")
wait(3)
game:GetService("Chat"):Chat(lpf.Character, "i i i think im gonna gonne say")
wait(3)
game:GetService("Chat"):Chat(lpf.Character, "THAT MY NAME IS JOHNNNNNNNNNNNNN CENAAAAAAA!!!!!!")
local ex = Instance.new("Explosion",workspace)
ex.Parent = lpf.Character.Torso
ex.BlastRadius = 10000
ex.Position = lpf.Character.Torso.Position
end
end
end
end
if lxt == "Kill" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
lpf.Character:BreakJoints()
local m = Instance.new("Hint",workspace)
m.Text = lpf.Name.. " Has Been killed By Unknown Person"
wait(3)
m:Remove()
end
end
end
if lxt == "Kick" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
lpf:Remove()
local m = Instance.new("Hint",workspace)
m.Text = lpf.Name.. " Has Left The Game [Reason:Abuse]"
wait(3)
m:Remove()
end
end
end
if lxt == "Freeze" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not lpf.Character:FindFirstChild("Ice") == true then
local ice = Instance.new("Part",lpf.Character)
ice.Anchored=false
ice.CanCollide=false
ice.FormFactor = "Custom"
ice.TopSurface="Smooth"
ice.Name ="Ice"
ice.Transparency = 0.4
ice.BottomSurface="Smooth"
ice.BrickColor = BrickColor.new("Teal")
ice.Size = Vector3.new(7,6,6)
lpf.Character.Animate.Disabled=true
lpf.Character.Torso.Anchored=true
local w = Instance.new("Weld",ice)
w.Part0 = ice
w.Part1 = lpf.Character.Torso
game:GetService("RunService").Stepped:connect(function()
ice.Position = lpf.Character.Torso.Position
local w = Instance.new("Weld",ice)
w.Part0 = ice
w.Part1 = lpf.Character.Torso
end)
end
else

end
end
end
if lxt == "Unfreeze" then
for i,lpf in pairs(game.Players:GetChildren()) do
if lpf.Name == teb.Text then
if not lpf.Character:FindFirstChild("Ice") == true then

else
lpf.Character:FindFirstChild("Ice").Parent=nil
lpf.Character.Torso.Anchored=false
lpf.Character.Animate.Disabled=false
end
end
end
end
-------------------------------------------------
end
blr5.MouseButton1Down:connect(extcmdexe)
end
end
end
if lcl == "Remove Extra Cmd Gui" then
if not plr.PlayerGui["Admin Gui"].Frame:FindFirstChild("Extcmds") == true then


else
plr.PlayerGui["Admin Gui"].Frame:FindFirstChild("Extcmds").Parent = nil
end
end
if lcl == "Day" then
game.Lighting.TimeOfDay="14:00:00"
end
if lcl == "Dawn" then
game.Lighting.TimeOfDay="5:55:00"
end
if lcl == "Night" then
game.Lighting.TimeOfDay="00:00:00"
end
end
blr.MouseButton1Down:connect(cmdexe)

function cmdlistclear1()
frame5:Remove()
explrtb.Visible=false
explore.Visible=true
plrclear.Visible=false
lpc.Visible=true
slistclear.Visible=false
slist.Visible=true
glist.Visible=true
glistclear.Visible=false
cmdlist.Visible=true
cmdlistclear.Visible=false
end
cmdlistclear.MouseButton1Down:connect(cmdlistclear1)
end
end
cmdlist.MouseButton1Down:connect(cmd5)

local plra = Instance.new("TextButton", workspace)
        plra.Parent=fr3
        plra.Name="WIP Plr amount"
        plra.Text="[There is 1 player online]"
        plra.BackgroundTransparency=0.5
        plra.BackgroundColor3=Color3.new(r,g,b)
        plra.TextScaled=true
        plra.Position=UDim2.new(0, 0,0, 350)
        plra.Size=UDim2.new(0, 110,0, 50)
        plra.TextColor3=Color3.new(255, 255, 255)
        if game.Players.NumPlayers == 1 then
plra.Text = "There is " ..game.Players.NumPlayers.. " player online"
else
plra.Text = "There are " ..game.Players.NumPlayers.. " players online"
        end
end
tb.MouseButton1Down:connect(Button)

function Button2()
tb2.Visible=false
tb.Visible=true
game.Players.LocalPlayer.PlayerGui["Admin Gui"].GhostX:TweenSizeAndPosition(UDim2.new(0, 250,0, 1),UDim2.new(0.5,-60,0,-600), "Out", "Quad", 1, false, nil)
wait(1)
game.Players.LocalPlayer.PlayerGui["Admin Gui"].GhostX:Remove()
on=false
end
tb2.MouseButton1Down:connect(Button2)