API tools faq
paste
Advertisement
TheNoscoperOfDank

Computer (Admino OS)

TheNoscoperOfDank
Sep 17th, 2017
99
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 74.43 KB | None | 0 0
raw download clone embed print report
  1. local CurrentPlayer = game:service'Players'.LocalPlayer
  2. local PlayerMouse = CurrentPlayer:GetMouse()
  3. local Character = CurrentPlayer.Character
  4.  
  5. pcall(function()
  6.     Character.Humanoid['Admino'..CurrentPlayer.Name].Disabled=true
  7.     Character.Humanoid['Admino'..CurrentPlayer.Name]:Destroy()
  8. end)
  9. script.Name='Admino'..CurrentPlayer.Name
  10.  
  11. local lrs = game:service'RunService'.RenderStepped
  12. local ud,c3 = UDim2.new,Color3.new
  13.  
  14. local Admino
  15. Admino = {
  16.     Backgrounds={263065080,496620009,510593355,335213044,119945204,38397690,167312682,192050536,152026398,4696595,120582545,167493039,274050234,454292754,466900315,177053058,229293848,122646263,159102803,321434238,120214481,120480107,129805827,251350099,134993390,294851220,91427420,159103087,161729354,451983167,111563465,224033486,159103552,490565976,419023708,159111488,254890271,72090809,148038665,201380429,235907960,118966085,184001465,158549839,135040161,569012987,124111954,617785055,127976057,157765107,172813012,261956734,229544221,381428334,141204418,130675970,114611763,569627808,165460147,165460277,123128917,65246335,113000488,210624979,86219936,542893768,485873381,133109970,147298379,147297851,133461415,248254225,542822127,536363798,167312652,542895503,89552732,65151650,101805028,103684980,385601310,57939071,304922993,13511519,473575489,256418140,136004272,46076174,497195310,28143702,158772801,557860938,483527125,125134380,129296064,436986440,331063936,162704842,108531974,156021502,546688542,192509200,193859832,78289792,339807971,156513166,305407040,363144648,60043055,621825797,621828236,179089950,501279669,403674379,275918945,247421728,126655771,478203228,25719408,50358414,7460070,415408253,91215756,85243064,135112694,161131570,684101235,467373053,65891746,24960278,318592132,424415675,17266396,64198567,230444445,156269405,179089950,248285466,202899851,156314932,151133945,514648696};
  17.     Properties = {'AllowClientInsertModels','BrickColor','Color','ShowDevelopmentGui','ResetPlayerGuiOnSpawn','Parent','CustomPhysicalProperties','WaterColor','WaterTransparency','WaterWaveSize','WaterWaveSpeed','AllowThirdPartySales','FilteringEnabled','StreamingEnabled','Gravity','FallenPartsDestroyHeight','Archivable','AbsolutePosition','AbsoluteSize','AccountAge','AccountAgeReplicate','Active','Adornee','AllowAmbientOcclusion','AllowTeamChangeOnTouch','AluminumQuality','AlwaysOnTop','Ambient','AmbientReverb','Anchored','Angularvelocity','AnimationId','Archivable','AreHingesDetected','AttachmentForward','AttachmentPoint','AttachmentPos','AttachmentRight','AttachmentUp','AutoAssignable','AutoButtonColor','AutoColorCharacters','AvailablePhysicalMemory','Axes','BackgroundColor','BackgroundColor3','BackgroundTransparency','BackSurface','BaseTextureId','BaseUrl','Bevel','Roundness','BinType','BlastPressure','BlastRadius','C0','C1','HeadColor','LeftArmColor','RightArmColor','LeftLegColor','RightLegColor','HumanoidRootPartColor','BodyColor','BodyPart','BorderColor','BorderColor3','BorderSizePixel','BottomSurface','BrickColor','Brightness','Browsable','BubbleChat','BubbleChatLifetime','BubbleChatMaxBubbles','Bulge','Button1DownConnectionCount','Button1UpConnectionCount','Button2DownConnectionCount','Button2UpConnectionCount','C0','C1','CameraMode','CameraSubject','CameraType','CanBeDropped','CanCollide','CartoonFactor','CastShadows','CelestialBodiesShown','CFrame','Cframe','Character','CharacterAppearance','CharacterAutoLoads','ChatScrollLength','ClassicChat','ClassName','ClearTextOnFocus','ClipsDescendants','CollisionSoundEnabled','CollisionSoundVolume','Color','ColorShift_Top','ColorShift_Bottom','Bottom','Top','ConstrainedValue','Contro'..'llingHumanoid','ControlMode','ConversationDistance','CoordinateFrame','CorrodedMetalQuality','CPU','CpuCount','CpuSpeed','CreatorId','CreatorType','CurrentAngle','CurrentCamera','CycleOffset','D','DataCap','DataComplexity','DataComplexityLimit','DataCost','DataReady','Deprecated','DeselectedConnectionCount','DesiredAngle','DiamondPlateQuality','Disabled','DistanceFactor','DistributedGameTime','DopplerScale','Draggable','DraggingV1','Duration','EditorFont','EditorFontSize','EditorTabWidth','ElapsedTime','Elasticity','Enabled','ExplosionType','ExtentsOffset','F0','F1','F2','F3','Face','FaceId','Faces','FieldOfView','Focus','FogColor','FogEnd','FogStart','Font','FontSize','Force','FormFactor','Friction','From','FrontSurface','GearGenreSetting','Genre','GeographicLatitude','GfxCard', 'GlobalShadows','Graphic','GrassQuality','Grip','GripForward','GripPos','GripRight','GripUp','Guest','HeadsUpDisplay','Health','Heat','Hit','Humanoid','IceQuality','Icon','IdleConnectionCount','Image','InitialPrompt','InOut','InUse','IsPaused','IsPlaying','JobId','Jump','KeyDownConnectionCount','KeyUpConnectionCount','LeftLeg','LeftRight','LeftSurface','LinkedSource','LocalPlayer','Location','Locked','LODX','LODY','Looped','Material','MaxActivationDistance','MaxCollisionSounds','MaxExtents','MaxForce','MaxHealth','MaxItems','MaxPlayers','MaxSpeed','MaxThrust','MaxTorque','MaxValue','MaxVelocity','MembershipType','MembershipTypeReplicate','MeshId','MeshType','MinValue','Modal','MouseButton1ClickConnectionCount','MouseButton1DownConnectionCount','MouseButton1UpConnectionCount','MouseButton2ClickConnectionCount','MouseButton2DownConnectionCount','MouseButton2UpConnectionCount','MouseDelta','MouseDragConnectionCount','MouseEnterConnectionCount','MouseHit','MouseLeaveConnectionCount','MouseLock','MouseMovedConnectionCount','MouseTarget','MouseTargetFilter','MouseTargetSurface','MoveConnectionCount','MoveState','MultiLine','Name','NameOcclusion','NetworkOw'..'ner','Neutral','NumPlayers','Offset','Opacity','Origin','OsPlatform','OsVer','OutdoorAmbient','OverlayTextureId','P','PantsTemplate','ParamA','ParamB','Parent','PrimaryPart','Part','Part0','Part1','Pitch','PixelShaderModel','PlaceId','PlasticQuality','PlatformStand','PlayCount','PlayerToHideFrom','PlayOnRemove','Point','Port','Position','Preliminary','PrimaryPart','PrivateWorkingSetBytes','Purpose','RAM','Reflectance','ReplicatedSelectedConnectionCount','ResizeableFaces','ResizeIncrement','Resolution','ResponseDialog','RightLeg','RightSurface','RiseVelocity','RobloxLocked','RobloxVersion','RolloffScale','RotVelocity','Scale','Score','ScriptsDisabled','SecondaryColor','Selected','ShadowColor','Shape','Shiny','ShirtTemplate','ShowDeprecatedObjects','ShowDevelopmentGui','ShowPreliminaryObjects','Sides','Sit','Size','SizeConstraint','SizeOffset','SkinColor','SkyboxBk','SkyboxDn','SkyboxFt','SkyboxLf','SkyboxRt','SkyboxUp','SlateQuality','SoundId','Source','SparkleColor','Specular','StarCount','Steer','StickyWheels','StudsBetweenTextures','StudsOffset','StudsPerTileU','StudsPerTileV','Style','Summary','SuperSa'..'feChatReplicate','Surface','Surface0','Surface1','SurfaceInput','Target','TargetFilter','TargetOffset','TargetPoint','TargetRadius','TargetSurface','TeamColor','Terrain','Text','TextBounds','TextColor','TextColor3','TextFits','TextScaled','TextStrokeColor3','TextStrokeTransparency','TextTransparency','Texture','TextureId','TextureSize','TextWrap','TextWrapped','TextXAlignment','TextYAlignment','Throttle','ThrustD','ThrustP','Ticket','Time','TimeOfDay','To','Tone','ToolTip','TopBottom','TopSurface','Torque','HumanoidRootPart','Transparency','TrussDetail','TurnD','TurnP','TurnSpeed','UnitRay','UserDialog','UserId','Value','Version','VertexColor','VideoCaptureEnabled','VideoMemory','VideoQuality','ViewSizeX','ViewSizeY','Visible','Volume','WalkDirection','WalkSpeed','WalkToPart','WalkToPoint','WheelBackwardConnectionCount','WheelForwardConnectionCount','WindowSize','WireRadius','WoodQuality','X','Y','Z'};
  18.     DecalAssets={200182847};
  19.     --//49,51,51,55,115,97,118
  20.     Sounds = {
  21.         319758951,485859421,191035676,142312040,165065112,166471137,208240682,226788368,193399717,
  22.         274427825,155949200,209864226,211626338,232560219,172427188,180115728,170968526,
  23.         148492408,177956804,132399469,218530627,234627720,182411115,188712851,176454530,
  24.         685204898,736225554,267915404,180795185,263998927,181428192,266427268,215974232,
  25.         177297354,248794208,262158959,282890395,252612142,252614631,252613867,203275374,
  26.         244763119,169898604,173060483,181065299,294185225,657230380,574818336,
  27.     };
  28.     RecentlyUsedPrograms={};
  29.     UIs={};
  30.     Logins={
  31.         {'DestinyProsYT','Westie88',Color3.new(.1,.1,.1),Color3.new(1,1,1),497195310};--167312453};
  32.         {'badbuilder40','builder',c3(0,0,0),c3(1,1,1),122646263},
  33.         {'diamondminer833','diamondscool',c3(.5,0,0),c3(1,1,1),621828236},
  34.     };
  35.     Administrators={
  36.         'DestinyProsYT',
  37.         'badbuilder40',
  38.         'diamondminer833',
  39.     };
  40.     Effects={};
  41.     Functions={};
  42.     Assets={};
  43.     Apps={
  44.         Qeued={};
  45.         Generated={};
  46.         Open={};
  47.     };
  48.     Settings={
  49.         Fonts = {
  50.             Header = 'SciFi',
  51.             Sub_Header = 'SciFi',
  52.         };
  53.     };
  54. };
  55.  
  56. Functions = Admino.Functions
  57. Effects = Admino.Effects
  58.  
  59. Admino.GenCode = math.random()*9e5
  60.  
  61. local CurrentPlayerData=nil
  62. local Official=true
  63.  
  64. function Functions:ConvertColor3(r,g,b)
  65.     return c3(1-(1/r),1-(10/g),1-(10/b)) --//derped
  66. end
  67.  
  68. function Functions:ReturnObjectProperties(Object)
  69.     assert(pcall(function()
  70.         assert(game.IsA(Object,'Instance'))
  71.     end),'Should be ROBLOX instance')
  72.     local Returns = {}
  73.     for _, Value in next, Admino.Properties do
  74.         if pcall(function() return Object[Value] end) and (type(Object[Value]) ~= 'userdata' or not Object:FindFirstChild(Value)) then
  75.             Returns[Value] = Object[Value]
  76.         end
  77.     end
  78.      return Returns
  79. end;
  80.  
  81. --print(Functions:ConvertColor3(170, 0, 255))
  82.  
  83. function Functions:GrabCurrentPlayerData()
  84.     local PlayerData=nil
  85.     local Found=0
  86.     for Index, Data in next, Admino.Logins do
  87.         if Data[1] == tostring(CurrentPlayer) then
  88.             PlayerData=Data
  89.             Found=Found+1
  90.         end
  91.     end
  92.     if PlayerData then
  93.         CurrentPlayerData=PlayerData
  94.     else
  95.         Official=false
  96.         CurrentPlayerData={CurrentPlayer.Name,CurrentPlayer.Name:lower():sub(0,5)..'12'..math.random(-50,50),c3(.25,.25,.25),c3(1,1,1),Admino.Backgrounds[math.random(1,#Admino.Backgrounds)]};
  97.         script:Destroy()
  98.     end
  99.     if Found > 1 then
  100.         error('Found more than one('..Found..') data tables for '..CurrentPlayer.Name,2)
  101.     end
  102. end
  103.  
  104. Functions:GrabCurrentPlayerData()
  105.  
  106. table.foreach(CurrentPlayerData,print)
  107.  
  108. function Functions:GetPlayerImg(User)
  109.     local ID = 'http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username='..tostring(User)
  110.      return ID
  111. end
  112.  
  113. ypcall(function()
  114.     --workspace['computer.']:Destroy()
  115. end)
  116.  
  117. local Monitor, G, MainFrame
  118. function Functions:MakeMonitor()
  119.     pcall(function() workspace['computer.'..CurrentPlayer.Name]:Destroy() end)
  120.     local sc=Instance.new('Script', workspace)
  121.     sc.Name='computer.'..CurrentPlayer.Name
  122.     Admino.Assets.FScript=sc
  123.     Monitor = Instance.new('Part', sc)
  124.     Monitor.Size = Vector3.new(24,14,.1)
  125.     Monitor.Anchored = true
  126.     Monitor.Locked=true
  127.     Monitor.Transparency=0
  128.     Monitor.Color=Color3.new(1,1,1)
  129.     Monitor.Material='SmoothPlastic'
  130.     Monitor.Name='computer.'
  131.     Instance.new('SurfaceLight',Monitor).Face='Back'
  132.     Monitor.CanCollide = false
  133.     Monitor.TopSurface,Monitor.BottomSurface=0,0
  134.     local Flat = Instance.new('BlockMesh', Monitor)
  135.     Flat.Scale = Vector3.new(1,1,0)
  136.     spawn(function()
  137.         for i = 0,1.025,.025 do
  138.             --Monitor.Transparency = 1.3-i
  139.             lrs:wait()
  140.         end
  141.     end)
  142. end
  143.  
  144. function Functions:MakeNewUi(Type)
  145.     local Ui = Instance.new(Type)
  146.    
  147.     local function TypeIsA(Table, Goal)
  148.         for i,v in next, Table do
  149.             if v:lower()==Type:lower() then
  150.                 Goal(Ui)
  151.             end
  152.         end
  153.     end
  154.    
  155.     Ui.ClipsDescendants = true
  156.     Ui.Size = ud(1,0,1,0)
  157.     Ui.BackgroundTransparency = 1
  158.     TypeIsA({'TextButton'}, function(tUi)
  159.         Ui.AutoButtonColor = false
  160.     end)
  161.     Ui.BackgroundColor3 = CurrentPlayerData[3]
  162.     Ui.BorderSizePixel = 0
  163.     TypeIsA({'ImageLabel','ImageButton'}, function(tUi)
  164.        
  165.     end)
  166.     TypeIsA({'TextButton','TextLabel','TextBox'}, function(tUi)
  167.         tUi.TextColor3 = CurrentPlayerData[4]
  168.         tUi.Font = Admino.Settings.Fonts.Header
  169.         tUi.Text=''
  170.         tUi.FontSize = Enum.FontSize.Size18
  171.     end)
  172.     delay(.1,function()
  173.         Admino.UIs[Ui.Name]={Ui,true}
  174.         local oUi=Ui
  175.         spawn(function()
  176.             repeat lrs:wait() until Ui.Parent == nil
  177.             Admino.UIs[oUi.Name]={nil,false}
  178.         end)
  179.     end)
  180.     Ui.ZIndex=7
  181.     return Ui
  182. end
  183.  
  184. function Functions:Center(Ui)
  185.     local co={Ui.Size.X.Offset/2,
  186.                 Ui.Size.Y.Offset/2};
  187.     return ud(.5,-co[1],.5,-co[2])
  188. end
  189.  
  190. function Functions:CenterOffset(Ui, Offset)
  191.     local co={Ui.Size.X.Scale,
  192.                 Ui.Size.X.Offset/2,
  193.                   Ui.Size.Y.Scale,
  194.                     Ui.Size.Y.Offset/2
  195.     };
  196.     return ud(.5+Offset.X.Scale,-co[2]+Offset.X.Offset,.5+Offset.Y.Scale,-co[4]+Offset.Y.Offset)
  197. end
  198.  
  199. local TypeDebs={};
  200. function Effects:Type(Ui, Text, Type, Delay)
  201.     TypeDebs[Ui]=false
  202.     if Type == 'In' then
  203.         local Continue = true
  204.         for i = 0,#Text do
  205.             if TypeDebs[Ui] then
  206.                 Continue = false
  207.                 return
  208.             end
  209.             if not Continue then
  210.                 return
  211.             end
  212.             Ui.Text = Text:sub(0,i)..'|'
  213.             wait(Delay)
  214.         end
  215.         Ui.Text = Text
  216.     elseif Type == 'Out' then
  217.         local Continue = true
  218.         for i = 0,#Text do
  219.             if TypeDebs[Ui] then
  220.                 Continue = false
  221.                 return
  222.             end
  223.             if not Continue then
  224.                 return
  225.             end
  226.             Ui.Text = Text:sub(0,1-i)..'|'
  227.             wait(Delay)
  228.         end
  229.         Ui.Text = Text
  230.     else
  231.         error'Please enter a TransitionType (Out, In)'
  232.     end
  233. end
  234.  
  235. function Functions:Sound(Id ,Rmv)
  236.     local snd=Instance.new('Sound', Character:WaitForChild'Head' or Monitor or workspace)
  237.     if Rmv then
  238.         for index,o in next, snd.Parent:children() do
  239.             if o:IsA'Sound' and o ~= snd then
  240.                 o:Stop()
  241.                 o:Destroy()
  242.             end
  243.         end
  244.     end
  245.     snd.EmitterSize=20
  246.     snd.SoundId=Functions:Asset(Id)
  247.     snd.Volume=.6
  248.     delay(8,function()
  249.         if not snd.Looped and snd.IsPlaying==false then
  250.             snd:Stop()
  251.             snd:Destroy()
  252.         end
  253.     end)
  254.     return snd
  255. end
  256.  
  257. function Effects:Underline(Ui, YOffset, XThickness, YThickness, Color, Fade)
  258.     local Label = Functions:MakeNewUi('TextLabel')
  259.     Label.BackgroundColor3 = Color
  260.     Label.BackgroundTransparency=.2
  261.     Label.Size = ud(0,0,0,YThickness)
  262.     Label.Position = Functions:CenterOffset(Label, ud(0,0,0,YOffset))
  263.     Label.Parent = Ui
  264.     Label.ZIndex = 9
  265.     if Fade then
  266.         Label.BackgroundTransparency = 1
  267.         delay(.5,function()
  268.             Label:TweenSizeAndPosition(ud(0,XThickness,0,YThickness),Functions:CenterOffset(Label,ud(0,-XThickness/2,0,YOffset)),'Out','Back',1,true)
  269.         end)
  270.         for i = 0,1.025,.025 do
  271.             Label.BackgroundTransparency = (1.2 - i)
  272.             lrs:wait()
  273.         end
  274.     else
  275.         Label.Size = ud(0,XThickness,0,YThickness)
  276.         Label.Position = Functions:CenterOffset(Label, ud(0,0,0,YOffset))
  277.     end
  278.     return Label
  279. end
  280.  
  281. function Functions:Asset(Id)
  282.     return 'rbxassetid://'..Id
  283. end
  284.  
  285. function Functions:PlayerImage(User)
  286.     return 'http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username='..tostring(User)
  287. end
  288.  
  289. function Functions:LoginScreenGui(Size,ltbl,Fade)
  290.     if CurrentPlayer.PlayerGui:FindFirstChild'nomnompw' then
  291.     end
  292.     local limit=16
  293.     local SGui = Instance.new('ScreenGui', CurrentPlayer.PlayerGui)
  294.     SGui.Name='nomnompw'
  295.     local Box = Functions:MakeNewUi('TextBox')
  296.     Box.ClearTextOnFocus=true
  297.     Box.TextColor3 = CurrentPlayerData[3]
  298.     Box.TextStrokeTransparency=.9
  299.     Box.Size=Size
  300.     Box.Text = 'Enter your Password'
  301.     Box.Position=Functions:Center(Box)
  302.     Box.BackgroundTransparency=1
  303.     Box.TextStrokeColor3=CurrentPlayerData[3]
  304.     Box.Parent=SGui
  305.     Box.BackgroundColor3 = CurrentPlayerData[4]
  306.     local enabled=true
  307.     if Fade then
  308.         Box.Position = Functions:CenterOffset(Box,ud(0,0,-.4,0))
  309.         for i = 0,1,.05 do
  310.             Box.BackgroundTransparency=1-i
  311.             lrs:wait()
  312.         end
  313.         Box:CaptureFocus()
  314.     end
  315.     local ev
  316.     ev=Box.Focused:connect(function()
  317.         --ev:disconnect()
  318.         Box.ClearTextOnFocus=false
  319.     end)
  320.     local ev2
  321.     local lt=''
  322.     ev2=Box.FocusLost:connect(function()
  323.         if #Box.Text < 1 or Box.Text == 'Enter your Password' then
  324.             Box.Text='Enter your Password'
  325.             Box.ClearTextOnFocus=true
  326.         end
  327.         if Box.Text==CurrentPlayerData[2] then
  328.             ev:disconnect()
  329.             ev2:disconnect()
  330.             Box.Active=false
  331.             Box:TweenPosition(Functions:CenterOffset(Box,ud(0,0,-.55,0)),'Out','Linear',.5,true)
  332.             Box.TextStrokeTransparency=1
  333.             for i = 0,1,.05 do
  334.                 Box.BackgroundTransparency=i
  335.                 Box.TextTransparency=i
  336.                 lrs:wait()
  337.             end
  338.             lt=Box.Text
  339.             SGui:Destroy()
  340.         end
  341.     end)
  342.     Box.BackgroundTransparency=0
  343.     if ltbl.loop then
  344.         while SGui.Parent and enabled do
  345.             lt=Box.Text
  346.             if #Box.Text>limit and Box.Text ~= 'Enter your Password' then
  347.                 Box:ReleaseFocus()
  348.                 Box.Active=false
  349.                 local bft=Box.Text
  350.                 Box.Text='Password '..limit..' character limit.'
  351.                 wait(2)
  352.                 Box.Text=bft:sub(0,limit)
  353.                 Box.Active=true
  354.                 Box:CaptureFocus()
  355.             end
  356.             if #Box.Text>1 and Box.Text ~= 'Enter your Password' then
  357.                 local nt=''
  358.                 ltbl.ui.Text=nt
  359.                 for i = 1,#Box.Text do
  360.                     nt=nt..'*'
  361.                 end
  362.                 ltbl.ui.Text=nt
  363.             elseif #Box.Text==0 then
  364.                 if Box.Text ~= 'Enter your Password' then
  365.                     Box.Text='Enter your Password'
  366.                     ltbl.ui.Text='Enter your Password'
  367.                     Box:ReleaseFocus()
  368.                     Box.ClearTextOnFocus=true
  369.                 end
  370.             end
  371.             lrs:wait()
  372.         end
  373.     end
  374.     return lt
  375. end
  376.  
  377. function Functions:IfRegistered(Player, Function)
  378.     local Bool = false
  379.     for Index, Data in next, Admino.Logins do
  380.         local user=Data[1]
  381.         local pass=Data[2]
  382.         if user == tostring(Player) then
  383.             Bool = true
  384.         end
  385.     end
  386.     Function(Bool)
  387. end
  388.  
  389. function Functions:CreateProgram(Name, Id, Nick, Description, Click)
  390.     table.insert(Admino.Apps.Qeued,{tostring(Name), tonumber(Id), tostring(NickName), tostring(Description), Click})
  391. end;
  392.  
  393. local Search
  394. function Functions:Search(Parent, Function)
  395.     for Index, Object in next, Parent:children() do
  396.         pcall(function()
  397.             Function(Object)
  398.         end)
  399.         Functions:Search(Object, Function)
  400.     end
  401. end
  402.  
  403. function Functions:ShowChar()
  404.     Admino.Functions:Search(Character, function(Object)
  405.         if (Object:IsA'BasePart' or Object:IsA'Decal') and Object.Name ~='HumanoidRootPart' then
  406.             Object.Transparency = 0
  407.         end
  408.     end)
  409. end
  410.  
  411. function Functions:HideChar()
  412.     Admino.Functions:Search(Character, function(Object)
  413.         if (Object:IsA'BasePart' or Object:IsA'Decal') and Object.Name ~='HumanoidRootPart' then
  414.             Object.Transparency = 1
  415.         end
  416.     end)
  417. end
  418.  
  419. local Notes={};
  420. Functions:CreateProgram('Notepad++', 43360681, 'N++', 'Notepad for your... "personal" needs?', function(HF,TF,CF)
  421.     local tb = Functions:MakeNewUi('TextButton')
  422.     tb.Parent=CF
  423.     tb.TextWrapped=true
  424.     table.insert(Notes,tb)
  425.     tb.Text = 'Notepad; '..#Notes
  426.     tb.TextColor3=CurrentPlayerData[3]
  427.     tb.BackgroundColor3=CurrentPlayerData[4]
  428.     tb.Font=Admino.Settings.Fonts.Sub_Header
  429.     tb.TextStrokeTransparency=.9
  430.     tb.TextStrokeColor3=CurrentPlayerData[3]
  431.     tb.TextXAlignment='Left'
  432.     tb.TextYAlignment='Top'
  433.     local SGui
  434.     tb.MouseButton1Click:connect(function()
  435.         pcall(function()
  436.             SGui:Destroy()
  437.         end)
  438.         if CurrentPlayer.PlayerGui:FindFirstChild'nomnoemnp' then CurrentPlayer.PlayerGui:FindFirstChild'nomnoemnp':Destroy() end
  439.         SGui = Instance.new('ScreenGui', CurrentPlayer.PlayerGui)
  440.         SGui.Name='nomnoemnp'
  441.         local Box = Functions:MakeNewUi('TextBox')
  442.         Box.ClearTextOnFocus=false
  443.         Box.TextColor3 = CurrentPlayerData[3]
  444.         Box.TextStrokeTransparency=.9
  445.         Box.Size=ud(1,0,1,0)
  446.         Box.Position=ud(-1,0,0,0)
  447.         Box.Text = tb.Text
  448.         Box.Visible = false
  449.         Box.TextXAlignment='Left'
  450.         --Box.MultiLine=true
  451.         Box.TextYAlignment='Top'
  452.         Box.BackgroundTransparency=1
  453.         Box.TextStrokeColor3=CurrentPlayerData[3]
  454.         Box.Parent=SGui
  455.         Box.BackgroundColor3 = CurrentPlayerData[4]
  456.         Box:CaptureFocus()
  457.         Box.FocusLost:connect(function()
  458.             SGui:Destroy()
  459.         end)
  460.         local isub = '|'
  461.         local l=false
  462.         spawn(function()
  463.             if tb.Text:sub(#tb.Text,#tb.Text)=='|' then
  464.                 tb.Text=tb.Text:sub(1,#tb.Text-1)
  465.             end
  466.             local canc = false
  467.             spawn(function()
  468.                 while not canc do
  469.                     wait(.6)
  470.                     l=not l
  471.                     if l == true then
  472.                         isub='|'
  473.                     else
  474.                         isub=''
  475.                     end
  476.                 end
  477.             end)
  478.             repeat
  479.                 tb.Text=Box.Text..isub
  480.                 lrs:wait()
  481.             until SGui.Parent ~= CurrentPlayer.PlayerGui
  482.             if l then
  483.                 tb.Text=tb.Text:sub(1,#tb.Text-1)
  484.             end
  485.             --print'canc'
  486.             canc=true
  487.             SGui=nil
  488.         end)
  489.     end)
  490. end)
  491. --script.Parent=CurrentPlayer.PlayerGui
  492.  
  493. Functions:CreateProgram('Calculator', 45545182, 'Calc', 'Math stuff man', function(HF,TF,CF)
  494.     HF.Size = UDim2.new(0,150,0,300)
  495. end)
  496.  
  497. local osEVENT = game:service'SoundService':FindFirstChild'osEVENT'
  498. if osEVENT==nil then
  499.     osEVENT = Instance.new('RemoteEvent',game:service'SoundService')
  500.     osEVENT.Name='osEVENT'
  501. end
  502.  
  503. if game.PlaceId == 691043264 then
  504.     Functions:CreateProgram('Lua', 71157241, 'LUA', 'Execute stuff...', function(HF,TF,CF)
  505.         local tb = Functions:MakeNewUi('TextButton')
  506.         tb.Parent=CF
  507.         tb.TextWrapped=true
  508.         tb.Text = ''
  509.         tb.TextColor3=CurrentPlayerData[3]
  510.         tb.BackgroundColor3=CurrentPlayerData[4]
  511.         tb.Font=Admino.Settings.Fonts.Sub_Header
  512.         tb.Size=ud(.6,0,.9,0)
  513.         tb.TextXAlignment='Left'
  514.         tb.TextYAlignment='Top'
  515.    
  516.         local run = Functions:MakeNewUi('TextButton')
  517.         run.Parent=CF
  518.         run.Text = 'Run Script'
  519.         run.BackgroundTransparency=0
  520.         run.TextColor3=CurrentPlayerData[4]
  521.         run.BackgroundColor3=CurrentPlayerData[3]
  522.         run.Font=Admino.Settings.Fonts.Header
  523.         run.Position=ud(0,0,.95,0)
  524.         run.TextSize=11
  525.         run.Size=ud(.6,0,.05,0)
  526.  
  527.         local cleartb = Functions:MakeNewUi('TextButton')
  528.         cleartb.Parent=CF
  529.         cleartb.Text = 'Clear Text'
  530.         cleartb.BackgroundTransparency=0
  531.         cleartb.TextColor3=CurrentPlayerData[4]
  532.         cleartb.BackgroundColor3=CurrentPlayerData[3]
  533.         cleartb.Font=Admino.Settings.Fonts.Header
  534.         cleartb.Position=ud(0,0,.9,0)
  535.         cleartb.TextSize=11
  536.         cleartb.Size=ud(.6,0,.05,0)
  537.  
  538.         local ipos = 0
  539.         local timefromlast=0
  540.         local longestx=0
  541.        
  542.         local clear = Functions:MakeNewUi('TextButton')
  543.         clear.Parent=CF
  544.         clear.Text = 'Clear Output'
  545.         clear.BackgroundTransparency=0
  546.         clear.TextColor3=CurrentPlayerData[4]
  547.         clear.BackgroundColor3=CurrentPlayerData[3]
  548.         clear.Font=Admino.Settings.Fonts.Header
  549.         clear.Position=ud(.6,0,.95,0)
  550.         clear.TextSize=11
  551.         clear.Size=ud(.4,0,.05,0)
  552.    
  553.         local output = Functions:MakeNewUi('ScrollingFrame')
  554.         output.Parent=CF
  555.         output.BackgroundColor3=CurrentPlayerData[3]
  556.         output.Position=ud(.6,0,0,0)
  557.         output.BackgroundTransparency=0
  558.         output.Size=ud(.4,0,.95,0)
  559.  
  560.         function op(argz)
  561.             local txt,code,clr = argz[1],argz[2],argz[3]
  562.             clr=clr or Color3.new(1,1,1)
  563.             txt=' > '..txt or 'NO_TEXT'
  564.             --print(txt,code,clr)
  565.             local is = (tostring(code)==tostring(Admino.GenCode))
  566.             if is then
  567.                 timefromlast=0
  568.                 local lbl = Functions:MakeNewUi('TextLabel')
  569.                 lbl.Parent=output
  570.                 lbl.Position=ud(0,0,0,ipos)
  571.                 lbl.TextSize=10
  572.                 if #txt > longestx then
  573.                     longextx=#txt
  574.                 end
  575.                 --txt=txt:gsub('\n','')
  576.                 lbl.TextColor3 = clr
  577.                 lbl.TextWrapped=true
  578.                 local count=0
  579.                 local notting=true
  580.                 lbl.TextXAlignment='Left'
  581.                 lbl.Text = txt
  582.                 lbl.BackgroundTransparency=1
  583.                 lbl.Size=ud(33,0,0,lbl.TextBounds.Y+5)
  584.                 ipos=ipos+lbl.TextBounds.Y+2
  585.                 spawn(function()
  586.                     while notting do
  587.                         lrs:wait()
  588.                         count=count+1
  589.                         local asx=output.AbsoluteSize.X
  590.                         local tbx=lbl.TextBounds.X
  591.                         --print(tbx,asx)
  592.                         if tbx > asx then
  593.                             lbl.Text=lbl.Text:sub(1+(asx*(count-1)),asx*count)..'\n'..lbl.Text:sub((asx*count)+1)
  594.                         else
  595.                             notting=false
  596.                         end
  597.                     end
  598.                 end)
  599.                 lbl.Size=ud(1,0,0,lbl.TextBounds.Y+5)
  600.             end
  601.         end
  602.  
  603.         op({'Hello world!', Admino.GenCode, Color3.new(1,1,1)})
  604.  
  605.         clear.MouseButton1Click:connect(function()
  606.             output:ClearAllChildren()
  607.             ipos=0
  608.             longestx=0
  609.             timefromlast=0
  610.             op({'Cleared output', Admino.GenCode, BrickColor.new'Dark green'.Color})
  611.         end)
  612.  
  613.         cleartb.MouseButton1Click:connect(function()
  614.             tb.Text=''
  615.             pcall(function()
  616.                 SGui.Text=''
  617.             end)
  618.         end)
  619.  
  620.         local oev = osEVENT.OnClientEvent:connect(function(Argz)
  621.             op(Argz)
  622.         end)
  623.  
  624.         spawn(function()
  625.             local ii=0
  626.             repeat lrs:wait()
  627.                 timefromlast=timefromlast+.05
  628.                 ii=Functions:IntegerLerp(ii,ipos,.15)
  629.                 if timefromlast < 5 then
  630.                     output.CanvasSize=ud(0,longestx,0,ii)
  631.                     output.CanvasPosition=Vector2.new(0,ii)
  632.                 end
  633.             until run.Parent ~= CF
  634.             oev:disconnect()
  635.             --print'dis'
  636.         end)
  637.    
  638.         run.MouseButton1Click:connect(function()
  639.             local lscode = [[
  640.                 local owner = game:service'Players':WaitForChild(']]..CurrentPlayer.Name..[[')
  641.                 local event = game:service'SoundService':WaitForChild'osEVENT'
  642.                 local code = ]]..Admino.GenCode..[[
  643.                 function print(...)
  644.                     local Data, Return = {...}, ""
  645.                     for Index,Value in pairs(Data) do
  646.                         Return = Return .. tostring(Value) .. (Index < #Data and ", " or "")
  647.                     end
  648.                     event:FireClient(owner,{Return,code,Color3.new(1,1,1)})
  649.                 end
  650.                 function warn(...)
  651.                     local Data, Return = {...}, ""
  652.                     for Index,Value in pairs(Data) do
  653.                         Return = Return .. tostring(Value) .. (Index < #Data and ", " or "")
  654.                     end
  655.                     event:FireClient(owner,{Return,code,Color3.new(1,.5,0)})
  656.                 end
  657.                 function ferror(...)
  658.                     local Data, Return = {...}, ""
  659.                     for Index,Value in pairs(Data) do
  660.                         Return = Return .. tostring(Value) .. (Index < #Data and ", " or "")
  661.                     end
  662.                     event:FireClient(owner,{Return,code,Color3.new(.8,0,0)})
  663.                 end
  664.                 delay(20,function()
  665.                     event:FireClient(owner,{'Auto removed script - delay ; 20',code,BrickColor.new'Dark green'.Color})
  666.                     script:Destroy()
  667.                 end)
  668.                 local script = workspace:WaitForChild(']]..tostring(Admino.Assets.FScript.Name)..[[')
  669.             ]]
  670.             local formattedcode = [[
  671.                 pcall(function()
  672.                     local Success, Error = pcall(function()
  673.                         ]]..tb.Text..[[
  674.                     end)
  675.                     if not Success then
  676.                         local err = Error
  677.                         err=err:gsub('ScriptBuilderScript','Admino.sb')
  678.                         err=err:gsub('544','1')
  679.                         ferror(err)
  680.                         local stacks = debug.traceback()
  681.                         stacks=stacks:gsub('ScriptBuilderScript','Admino.sb')
  682.                         event:FireClient(owner,{stacks,code,BrickColor.new'Bright blue'.Color})
  683.                     else
  684.                         event:FireClient(owner,{'Ran script',code,BrickColor.new'Bright blue'.Color})
  685.                     end
  686.                 end)
  687.             ]]
  688.             NS(lscode..'\n\n'..formattedcode, workspace)
  689.         end)
  690.        
  691.         local SGui
  692.         tb.MouseButton1Click:connect(function()
  693.             pcall(function()
  694.                 SGui:Destroy()
  695.             end)
  696.             if CurrentPlayer.PlayerGui:FindFirstChild'nomnoemnp' then CurrentPlayer.PlayerGui:FindFirstChild'nomnoemnp':Destroy() end
  697.             SGui = Instance.new('ScreenGui', CurrentPlayer.PlayerGui)
  698.             SGui.Name='nomnoemnp'
  699.             local Box = Functions:MakeNewUi('TextBox')
  700.             Box.ClearTextOnFocus=false
  701.             Box.TextColor3 = CurrentPlayerData[3]
  702.             Box.TextStrokeTransparency=.9
  703.             Box.Size=ud(1,0,1,0)
  704.             Box.Position=ud(-1,0,0,0)
  705.             Box.Text = tb.Text
  706.             Box.Visible = false
  707.             Box.TextXAlignment='Left'
  708.             --Box.MultiLine=true
  709.             Box.TextYAlignment='Top'
  710.             Box.BackgroundTransparency=1
  711.             Box.TextStrokeColor3=CurrentPlayerData[3]
  712.             Box.Parent=SGui
  713.             Box.BackgroundColor3 = CurrentPlayerData[4]
  714.             Box:CaptureFocus()
  715.             Box.FocusLost:connect(function()
  716.                 SGui:Destroy()
  717.             end)
  718.             local isub = '|'
  719.             local l=false
  720.             spawn(function()
  721.                 if tb.Text:sub(#tb.Text,#tb.Text)=='|' then
  722.                     tb.Text=tb.Text:sub(1,#tb.Text-1)
  723.                 end
  724.                 local canc = false
  725.                 spawn(function()
  726.                     while not canc do
  727.                         wait(.6)
  728.                         l=not l
  729.                         if l == true then
  730.                             isub='|'
  731.                         else
  732.                             isub=''
  733.                         end
  734.                     end
  735.                 end)
  736.                 repeat
  737.                     tb.Text=Box.Text..isub
  738.                     lrs:wait()
  739.                 until SGui.Parent ~= CurrentPlayer.PlayerGui
  740.                 if l then
  741.                     tb.Text=tb.Text:sub(1,#tb.Text-1)
  742.                 end
  743.                 canc=true
  744.                 SGui=nil
  745.             end)
  746.         end)
  747.     end)
  748. end
  749.  
  750. Functions:CreateProgram('Settings',485882401,'Sett','Also self explanitory...',function(HF,TF,CF)
  751. end)
  752.  
  753. spawn(function()
  754.     local nw={};
  755.     for i,v in next, Admino.Backgrounds do
  756.         delay(math.random()*5,function()
  757.             nw[#nw+1]=v
  758.         end)
  759.     end
  760.     repeat wait() until #nw==#Admino.Backgrounds
  761.     wait(.5)
  762.     Admino.Backgrounds=nw
  763.     Functions:Notification('Formatted Admino.Backgrounds', 4)
  764. end)
  765.  
  766. spawn(function()
  767.     local nw={};
  768.     for i,v in next, Admino.Sounds do
  769.         delay(math.random()*5,function()
  770.             nw[#nw+1]=v
  771.         end)
  772.     end
  773.     repeat wait() until #nw==#Admino.Sounds
  774.     wait(.5)
  775.     Admino.Sounds=nw
  776.     Functions:Notification('Formatted Admino.Sounds', 4)
  777. end)
  778.  
  779. Functions:CreateProgram('Gallery', 152445445, 'Images', 'View your favorite, saved, and default images', function(HF,TF,CF)
  780.     local title = Functions:MakeNewUi('TextLabel')
  781.     title.TextColor3 = CurrentPlayerData[3]
  782.     title.TextStrokeTransparency=1
  783.     title.Size=ud(1,0,.1,0)
  784.     title.Text = 'Gallery - '..#Admino.Backgrounds..' assets total'
  785.     title.TextXAlignment='Center'
  786.     title.TextYAlignment='Center'
  787.     title.Font = Admino.Settings.Fonts.Header
  788.     title.BackgroundTransparency=1
  789.     title.Parent=CF
  790.     title.BackgroundColor3 = CurrentPlayerData[4]
  791.  
  792.     spawn(function()
  793.         wait(1)
  794.         Effects:Underline(title, 15, 300, 2, CurrentPlayerData[3], true)
  795.     end)
  796.  
  797.     local scroll = Functions:MakeNewUi('ScrollingFrame')
  798.     scroll.Size=ud(1,0,.9,0)
  799.     scroll.Position = ud(0,0,.1,0)
  800.     scroll.BackgroundTransparency=0
  801.     scroll.TopImage=Functions:Asset(317839361)
  802.     scroll.MidImage=Functions:Asset(317839361)
  803.     scroll.BottomImage=Functions:Asset(317839361)
  804.     scroll.ScrollBarThickness = 5
  805.     scroll.Parent=CF
  806.     scroll.BackgroundColor3 = CurrentPlayerData[4]
  807.  
  808.     local Loaded = 0
  809.     local o,d = 0,0
  810.     local curbg = nil
  811.     local bgs={};
  812.     for i, Id in next, Admino.Backgrounds do
  813.         --local Market = game:service'MarketplaceService'
  814.         --local Asset = Market:GetProductInfo(Id)
  815.        
  816.         local Img = Functions:MakeNewUi('ImageButton')
  817.         Img.Image = Functions:Asset(Id)
  818.         local scl = 2
  819.         local add = .005
  820.         local sx,sy=(.089*scl),(.05*scl)
  821.         Img.Size=ud(sx,0,0,34*2)
  822.         Img.Position = ud(((sx+add)*o)+.05,0,0,((36*2)*d))
  823.         o=o+1
  824.         game:service'RunService'.RenderStepped:wait()
  825.         if sx*(o+1) >= 1 then
  826.             d=d+1
  827.             o=0
  828.             scroll.CanvasSize=ud(0,0,0,((36*2)*d))
  829.         end
  830.         Img.BackgroundColor3 = scroll.BackgroundColor3
  831.         Img.BorderColor3 = CurrentPlayerData[3]
  832.         Img.ImageTransparency=1
  833.         Img.MouseButton1Down:connect(function()
  834.             curbg = Img
  835.             Admino.Assets.Background.Image=Functions:Asset(Id)
  836.         end)
  837.         Img.Parent=scroll
  838.  
  839.         spawn(function()
  840.             for i = 0,1.05,.05 do
  841.                 Img.ImageTransparency=1-i
  842.                 game:service'RunService'.RenderStepped:wait()
  843.             end
  844.         end)
  845.         bgs[#bgs+1]=Img
  846.     end
  847.     while #bgs > 0 do
  848.         lrs:wait()
  849.         for i,Img in next, bgs do
  850.             if Img == nil or Img.Parent == nil then
  851.                 table.remove(bgs,i)
  852.             else
  853.                 if curbg == Img then
  854.                     Img.BorderSizePixel = 2
  855.                 else
  856.                     Img.BorderSizePixel=0
  857.                 end
  858.             end
  859.         end
  860.     end
  861. end)
  862.  
  863. Functions:CreateProgram('Explorer', 27854793, 'Expl', 'Explore the game\'s children', function(HF,TF,CF)
  864.     local funcs = {};
  865.     local title = Functions:MakeNewUi('TextLabel')
  866.     title.TextColor3 = CurrentPlayerData[3]
  867.     title.TextStrokeTransparency=1
  868.     title.Size=ud(1,0,.2,0)
  869.     title.Text = 'Services'
  870.     title.TextXAlignment='Center'
  871.     title.TextYAlignment='Center'
  872.     title.BackgroundTransparency=1
  873.     title.Parent=CF
  874.     title.BackgroundColor3 = CurrentPlayerData[4]
  875.  
  876.     spawn(function()
  877.         wait(1)
  878.         Effects:Underline(title, 15, 80, 2, CurrentPlayerData[3], true)
  879.     end)
  880.  
  881.     local scroll = Functions:MakeNewUi('ScrollingFrame')
  882.     scroll.Size=ud(.8,0,.8,0)
  883.     scroll.Position = ud(.1,0,.2,0)
  884.     scroll.BackgroundTransparency=1
  885.     scroll.TopImage=Functions:Asset(317839361)
  886.     scroll.MidImage=Functions:Asset(317839361)
  887.     scroll.BottomImage=Functions:Asset(317839361)
  888.     scroll.ScrollBarThickness = 5
  889.     scroll.Parent=CF
  890.     scroll.BackgroundColor3 = CurrentPlayerData[4]
  891.  
  892.     function funcs:w()
  893.         return wait(.05)
  894.     end
  895.  
  896.     local buttons={};
  897.     local t = 0
  898.     function funcs:clearscroll()
  899.         t=t+1
  900.         buttons={};
  901.         for i,v in next, scroll:children() do
  902.             --funcs:w()
  903.             pcall(function()
  904.                 spawn(function()
  905.                     v:TweenPosition(ud(1,0,v.Position.Y.Scale,v.Position.Y.Offset),'Out','Quint',2,true)
  906.                     for i = 0,1.05,.05 do
  907.                         pcall(function()
  908.                             v.TextTransparency=v.TextTransparency+.05
  909.                         end)
  910.                         pcall(function()
  911.                             v.BackgroundTransparency=v.BackgroundTransparency+.05
  912.                         end)
  913.                         pcall(function()
  914.                             v.TextStrokeTransparency=v.TextStrokeTransparency+.05
  915.                         end)
  916.                         lrs:wait()
  917.                     end
  918.                     v:Destroy()
  919.                 end)
  920.             end)
  921.         end
  922.         wait(2)
  923.     end
  924.  
  925.     function funcs:bt(i,txt,func)
  926.         delay(0,function()
  927.             if t == i then
  928.                 --funcs:w()
  929.                 local button = Functions:MakeNewUi('TextButton')
  930.                 local index = #buttons
  931.                 buttons[index+1]=button
  932.                 local y = 22*(index)
  933.                 scroll.CanvasSize=ud(0,0,0,y)
  934.                 button.TextColor3 = CurrentPlayerData[3]
  935.                 button.TextStrokeTransparency=.9
  936.                 button.Size=ud(1,0,0,20)
  937.                 button.Position=ud(1,0,0,y)
  938.                 button.Text = txt
  939.                 button.TextXAlignment='Left'
  940.                 button.TextTransparency=1
  941.                 button.TextSize = 12
  942.                 button.Font=Admino.Settings.Fonts.Header
  943.                 --button.TextYAlignment='Top'
  944.                 button.BackgroundTransparency=.6
  945.                 button.TextStrokeColor3=CurrentPlayerData[3]
  946.                 button.Parent=scroll
  947.                 button.BackgroundColor3 = CurrentPlayerData[4]
  948.                 spawn(function()
  949.                     button:TweenPosition(ud(0,0,0,y),'Out','Quint',.5,true)
  950.                     for i = 0,1.05,.05 do
  951.                         button.TextTransparency=1-i
  952.                         lrs:wait()
  953.                     end
  954.                 end)
  955.                 local ev
  956.                 ev=button.MouseButton1Click:connect(function()
  957.                     ev:disconnect()
  958.                     func(button)
  959.                 end)
  960.                 return button
  961.             else
  962.                 return nil
  963.             end
  964.         end)
  965.     end
  966.    
  967.     function funcs:showoptions(obj)
  968.         funcs:clearscroll()
  969.         local st = t
  970.         if obj:IsA'Instance' then
  971.             title.Text = obj:GetFullName()
  972.             if #obj:children() > 0 then
  973.                 local expl=funcs:bt(st,'Explore',function()
  974.                     funcs:showchildren(obj)
  975.                 end)
  976.             end
  977.             pcall(function()
  978.                 if obj ~= game and obj.Parent ~= game then
  979.                     local expl=funcs:bt(st,'Destroy',function()
  980.                         local par = obj.Parent
  981.                         local pn = obj.Name
  982.                         pcall(function()
  983.                             obj:Destroy()
  984.                         end)
  985.                         funcs:clearscroll()
  986.                         local nst = t
  987.                         funcs:bt(nst,'Return to '..pn..'\'s parent object',function()
  988.                             funcs:showchildren(par)
  989.                         end)
  990.                         funcs:bt(nst,'Destroyed '..pn,function()
  991.                         end)
  992.                     end)
  993.                 end
  994.             end)
  995.             if obj ~= game then
  996.                 local tag = 'Return to '..obj.Parent.Name..'\'s children'
  997.                 if obj.Parent==game then
  998.                     tag='Return to explorable services'
  999.                 end
  1000.                 local ret=funcs:bt(st,tag,function()
  1001.                     funcs:showchildren(obj.Parent)
  1002.                 end)
  1003.             elseif obj.Parent == game then
  1004.                 funcs:showservs()
  1005.             end
  1006.             local sprops=funcs:bt(st,'Show Properties',function()
  1007.                 funcs:clearscroll()
  1008.                 local st2 = t
  1009.                 local rett=funcs:bt(st2,'Return to options for '..obj.Name,function()
  1010.                     funcs:showoptions(obj)
  1011.                 end)
  1012.                 local Props = Functions:ReturnObjectProperties(obj)
  1013.                 Props['Children'] = #obj:children()
  1014.                 for index, value in next, Props do
  1015.                     local prop=funcs:bt(st2,tostring(index)..': '..tostring(value),function()
  1016.                     end)
  1017.                 end
  1018.             end)
  1019.         end
  1020.     end
  1021.    
  1022.     function funcs:showchildren(prnt)
  1023.         funcs:clearscroll()
  1024.         local st = t
  1025.         if prnt:IsA'Instance' then
  1026.             local back=funcs:bt(st,'Show me options for '..prnt.Name,function()
  1027.                 funcs:showoptions(prnt)
  1028.             end)
  1029.             for i,v in next, prnt:children() do
  1030.                 pcall(function()
  1031.                     if prnt:IsA'Instance' then
  1032.                         local sub=' - '..v.ClassName
  1033.                         pcall(function()
  1034.                             if prnt==game then
  1035.                                 sub=''
  1036.                             end
  1037.                         end)
  1038.                         local child=funcs:bt(st,v.Name..sub,function()
  1039.                             funcs:showoptions(v)
  1040.                         end)
  1041.                     end
  1042.                 end)
  1043.             end
  1044.         end
  1045.     end
  1046.     function funcs:showservs()
  1047.         funcs:clearscroll()
  1048.         local st = t
  1049.         local servs = {};
  1050.         for i,v in next, game:children() do
  1051.             pcall(function()
  1052.                 if #v:children() > 0 then
  1053.                     table.insert(servs,v)
  1054.                 end
  1055.             end)
  1056.         end
  1057.         local child=funcs:bt(st,'SHOW ME ALL THE DAMN SERVICES!',function()
  1058.             funcs:showoptions(game)
  1059.         end)
  1060.         for i,v in next, servs do
  1061.             local child = funcs:bt(st,v.Name,function()
  1062.                 funcs:showoptions(v)
  1063.             end)
  1064.         end
  1065.     end
  1066.     funcs:showservs()
  1067. end)
  1068.  
  1069. local Audios={};
  1070. local CurrentPlaying = nil
  1071. function Functions:AddSound(Id)
  1072.     for Index, Sound in next, Audios do
  1073.         if Sound:IsA'Sound' then
  1074.             Sound:Stop()
  1075.             Sound.PlayOnRemove=false
  1076.         end
  1077.     end
  1078.     local Sound = Instance.new('Sound', Monitor)
  1079.     Sound.SoundId=Functions:Asset(Id)
  1080.     Sound.Volume=.9
  1081.     CurrentPlaying = Sound
  1082.     table.insert(Audios, Sound)
  1083.     return Sound
  1084. end
  1085.  
  1086. function Functions:IntegerLerp(a,b,c)
  1087.     return a + (b - a) * c;
  1088. end
  1089.  
  1090. Functions:CreateProgram('Messenger',485845332,'MGR','Self explanitory... idiot', function(HF,TF,CF)
  1091. end)
  1092.  
  1093. local cur = nil
  1094. local curSound = nil
  1095. Functions:CreateProgram('SmAudio', 64646186, 'SmA', 'An archive of selected music just for you ;) with extra features as well', function(HF,TF,CF)
  1096.     local title = Functions:MakeNewUi('TextLabel')
  1097.     title.TextColor3 = CurrentPlayerData[3]
  1098.     title.TextStrokeTransparency=1
  1099.     title.Size=ud(1,0,.2,0)
  1100.     title.Text = 'SmAudio Alpha'
  1101.     title.TextXAlignment='Center'
  1102.     title.TextYAlignment='Center'
  1103.     title.Font = Admino.Settings.Fonts.Header
  1104.     title.BackgroundTransparency=1
  1105.     title.Parent=CF
  1106.     title.BackgroundColor3 = CurrentPlayerData[4]
  1107.  
  1108.     spawn(function()
  1109.         wait(1)
  1110.         Effects:Underline(title, 15, 80, 2, CurrentPlayerData[3], true)
  1111.     end)
  1112.  
  1113.     local scroll = Functions:MakeNewUi('ScrollingFrame')
  1114.     scroll.Size=ud(.8,0,.8,0)
  1115.     scroll.Position = ud(.1,0,.2,0)
  1116.     scroll.BackgroundTransparency=0
  1117.     scroll.TopImage=Functions:Asset(317839361)
  1118.     scroll.MidImage=Functions:Asset(317839361)
  1119.     scroll.BottomImage=Functions:Asset(317839361)
  1120.     scroll.ScrollBarThickness = 5
  1121.     scroll.Parent=CF
  1122.     scroll.BackgroundColor3 = CurrentPlayerData[4]
  1123.  
  1124.     local max = 0
  1125.     spawn(function()
  1126.         local y = 0
  1127.         repeat game:service'RunService'.RenderStepped:wait()
  1128.             y=Functions:IntegerLerp(y,max,.02)
  1129.             --print(max)
  1130.             --print(y)
  1131.             --scroll.CanvasSize=ud(0,0,0,y)
  1132.         until CF.Parent == nil
  1133.     end)
  1134.    
  1135.     local play,pause,sound = Functions:Asset(745599404),Functions:Asset(745599001),Functions:Asset(176572847)
  1136.  
  1137.     local Loaded = 0
  1138.     for i, Id in next, Admino.Sounds do
  1139.         delay((math.random()/(math.random()+.2))*3, function()
  1140.             local Market = game:service'MarketplaceService'
  1141.             local Asset = Market:GetProductInfo(Id)
  1142.            
  1143.             local Song = Functions:MakeNewUi('ImageButton')
  1144.             Song.Parent=scroll
  1145.             Song.Image = play
  1146.             local clr=CurrentPlayerData[3]
  1147.             local clr2=CurrentPlayerData[4]
  1148.             Song.BackgroundColor3=clr
  1149.             Song.Size=ud(0,45,0,45)
  1150.             Song.BackgroundTransparency=1
  1151.    
  1152.             local y = (Song.Size.Y.Offset+2)*(i-1)
  1153.             max=max+(Song.Size.Y.Offset+2)
  1154.             local x = Song.Size.X.Offset
  1155.  
  1156.             local author = Functions:MakeNewUi('TextLabel')
  1157.             author.TextColor3 = CurrentPlayerData[3]
  1158.             author.Size=ud(1,-x+10,0,20)
  1159.             author.Position = ud(0,x+10,0,y)
  1160.             author.Text = 'Author  '..Asset.Creator.Name..' ; '..Asset.Creator.Id
  1161.             author.TextXAlignment='Left'
  1162.             author.TextYAlignment='Center'
  1163.             author.TextSize = 16
  1164.             author.Font = Admino.Settings.Fonts.Header
  1165.             author.BackgroundTransparency=1
  1166.             author.TextTransparency=1
  1167.             author.Parent=scroll
  1168.             author.BackgroundColor3 = CurrentPlayerData[3]
  1169.  
  1170.             local name = Functions:MakeNewUi('TextLabel')
  1171.             name.TextColor3 = CurrentPlayerData[3]
  1172.             name.Size=ud(1,-x+10,0,20)
  1173.             name.Position = ud(0,x+10,0,y+(author.TextSize+2))
  1174.             name.Text = 'Name  '..Asset.Name
  1175.             name.TextXAlignment='Left'
  1176.             name.TextYAlignment='Center'
  1177.             name.TextSize = 12
  1178.             name.TextTransparency=1
  1179.             name.Font = Admino.Settings.Fonts.Header
  1180.             name.BackgroundTransparency=1
  1181.             name.Parent=scroll
  1182.             name.BackgroundColor3 = CurrentPlayerData[3]
  1183.  
  1184.             local desc = Functions:MakeNewUi('TextLabel')
  1185.             desc.TextColor3 = CurrentPlayerData[3]
  1186.             local alg = (((name.TextBounds.X+author.TextBounds.X)/1.5)+(10+(author.TextSize+name.TextSize)))
  1187.             desc.Size=ud(1,-x-(alg+scroll.ScrollBarThickness),0,46)
  1188.             desc.Position = ud(1,0,0,y-1)
  1189.             desc.Text = Asset.Creator.Name..': '..Asset.Description
  1190.             desc.BorderSizePixel=0
  1191.             desc.BorderColor3 = CurrentPlayerData[3]
  1192.             desc.TextWrapped=true
  1193.             desc.TextXAlignment='Left'
  1194.             desc.TextTransparency=1
  1195.             desc.TextYAlignment='Top'
  1196.             desc.TextSize = 12
  1197.             desc.Font = Admino.Settings.Fonts.Header
  1198.             desc.BackgroundTransparency=1
  1199.             desc.Parent=scroll
  1200.             desc.BackgroundColor3 = scroll.BackgroundColor3
  1201.             desc.ClipsDescendants=false
  1202.  
  1203.             local line = Functions:MakeNewUi('TextLabel')
  1204.             line.TextColor3 = CurrentPlayerData[3]
  1205.             line.Size=ud(0,1,1,0)
  1206.             line.Position = ud(0,-4,0,0)
  1207.             line.Text = ''
  1208.             line.BackgroundTransparency=0
  1209.             line.BackgroundColor3 = CurrentPlayerData[3]
  1210.             line.Parent=desc
  1211.  
  1212.             if Asset.Description=='Audio' or Asset.Description=='RenderMesh' then
  1213.                 desc:Destroy()
  1214.             else
  1215.                 desc:TweenPosition(ud(0,x+alg,0,y-1),'Out','Quint',1,true)
  1216.             end
  1217.            
  1218.             Song.Position = ud(0,-x,0,y)
  1219.            
  1220.             Song.ZIndex=8
  1221.             Song.MouseEnter:connect(function()
  1222.                 local t=clr2
  1223.                 local tt=.15
  1224.                 clr=c3(t.r-tt,t.b-tt,t.g-tt)
  1225.                 clr2=CurrentPlayerData[3]
  1226.             end)
  1227.             Song.MouseLeave:connect(function()
  1228.                 clr=CurrentPlayerData[3]
  1229.                 clr2=CurrentPlayerData[4]
  1230.             end)
  1231.            
  1232.             Song.MouseButton1Click:connect(function()
  1233.                 if cur == Song then
  1234.                     curSound:Pause()
  1235.                     cur=nil
  1236.                 else
  1237.                     cur=Song
  1238.                     curSound = Functions:AddSound(Id)
  1239.                     curSound.Looped = true
  1240.                     curSound:Play()
  1241.                     clr=CurrentPlayerData[3]
  1242.                     clr2=CurrentPlayerData[4]
  1243.                 end
  1244.             end)
  1245.  
  1246.             spawn(function()
  1247.                 for i = 0,1.05,.05 do
  1248.                     desc.TextTransparency=1-i
  1249.                     desc.BackgroundTransparency=1-i
  1250.                     name.TextTransparency=1-i
  1251.                     author.TextTransparency=1-i
  1252.                     game:service'RunService'.RenderStepped:wait()
  1253.                 end
  1254.             end)
  1255.            
  1256.             spawn(function()
  1257.                 repeat game:service'RunService'.RenderStepped:wait()
  1258.                     if cur == Song then
  1259.                         Song.Image = pause
  1260.                     else
  1261.                         Song.Image = play
  1262.                     end
  1263.                     Song.BackgroundColor3=Song.BackgroundColor3:lerp(clr,.25)
  1264.                     Song.ImageColor3=Song.ImageColor3:lerp(clr2,.25)
  1265.                 until CF.Parent == nil
  1266.             end)
  1267.             Song:TweenPosition(ud(0,0,0,y),'Out','Quint',.5,true)
  1268.             Loaded = Loaded + 1
  1269.         end)
  1270.     end
  1271.     local ii=0
  1272.     repeat
  1273.         wait()
  1274.         title.Text = 'Loading Assets #'..Loaded
  1275.         ii=Functions:IntegerLerp(ii,max+10,.04)
  1276.         scroll.CanvasSize=ud(0,0,0,ii)
  1277.         scroll.CanvasPosition=Vector2.new(0,ii)
  1278.     until Loaded == #Admino.Sounds
  1279.     title.Text = 'SmAudio Beta'
  1280. end)
  1281.  
  1282. function Functions:GeneratePrograms(Distance)
  1283.     --print'k'
  1284.     local Over, Down=0,0
  1285.     for Index, Data in next, Admino.Apps.Qeued do
  1286.         if Down > 7 then
  1287.             return
  1288.         end
  1289.         local maximized,ump,ums
  1290.         lrs:wait()
  1291.         local Icon = Functions:MakeNewUi('ImageButton')
  1292.         Icon.Image=Functions:PlayerImage(CurrentPlayer)
  1293.         Icon.Parent=MainFrame
  1294.         Icon.BackgroundColor3=CurrentPlayerData[4]
  1295.         Icon.Image=Functions:Asset(Data[2])
  1296.         Icon.Size=ud(0,50,0,50)
  1297.         Icon.ZIndex=2
  1298.         Icon.ImageTransparency=0
  1299.         local IconName = Functions:MakeNewUi('TextLabel')
  1300.         IconName.Font=Admino.Settings.Fonts.Header
  1301.         IconName.Parent=Icon
  1302.         IconName.TextYAlignment='Bottom'
  1303.         IconName.TextSize = 10
  1304.         IconName.Text= Data[1]
  1305.         IconName.Size=ud(1,0,0,20)
  1306.         IconName.Position=ud(0,0,1,-20)
  1307.         IconName.ZIndex=2
  1308.         local bgtp = 1
  1309.         Icon.MouseEnter:connect(function()
  1310.             bgtp=.5
  1311.         end)
  1312.         Icon.MouseLeave:connect(function()
  1313.             bgtp=1
  1314.         end)
  1315.         local oi = bgtp
  1316.         lrs:connect(function()
  1317.             oi=Functions:IntegerLerp(oi,bgtp,.3)
  1318.             Icon.BackgroundTransparency=oi
  1319.         end)
  1320.         Admino.Apps.Generated[Data[1]]=Icon
  1321.         if Over >= 13 then
  1322.             Down = Down + 1
  1323.             Over = 0
  1324.         end
  1325.         Icon.Position=ud(0,15+(60*(Over)),0,15+(60*(Down)))
  1326.         Over = Over + 1
  1327.         Icon.ZIndex=2
  1328.         local oic
  1329.         oic=Icon.MouseButton1Click:connect(function()
  1330.             local AlreadyOpen=false
  1331.             for Index, Ting in next, Admino.Apps.Open do
  1332.                 for i = 1,#Ting do
  1333.                     if Data[i] == Ting[i] then
  1334.                         AlreadyOpen=true
  1335.                     end
  1336.                 end
  1337.             end
  1338.             if AlreadyOpen then
  1339.                 warn'nop'
  1340.                 return
  1341.             end
  1342.             table.insert(Admino.Apps.Open,{Data[1],Data[2],Data[3]})
  1343.             Admino.RecentlyUsedPrograms[Data[4]]=Data
  1344.             local HolderFrame = Functions:MakeNewUi('Frame')
  1345.             HolderFrame.ZIndex=3
  1346.             HolderFrame.BackgroundTransparency=0
  1347.             HolderFrame.BorderSizePixel=.1
  1348.             HolderFrame.BorderColor3=CurrentPlayerData[3]
  1349.             HolderFrame.Size=ud(0,600,0,400)
  1350.             HolderFrame.Name='HF'
  1351.             HolderFrame.BackgroundColor3=CurrentPlayerData[3]
  1352.             HolderFrame.Position = Functions:Center(HolderFrame)
  1353.             HolderFrame.Parent = MainFrame
  1354.             maximized,ump,ums=false,HolderFrame.Position,HolderFrame.Size
  1355.             local function Enable()
  1356.                 for i,gui in next, MainFrame:children() do
  1357.                     if gui:IsA'ImageButton' then
  1358.                         gui.Visible=true
  1359.                     end
  1360.                 end
  1361.             end
  1362.             local function Disable()
  1363.                 for i,gui in next, MainFrame:children() do
  1364.                     if gui:IsA'ImageButton' then
  1365.                         gui.Visible=false
  1366.                     end
  1367.                 end
  1368.             end
  1369.            
  1370.             local ev1
  1371.             ev1=HolderFrame.MouseEnter:connect(function()
  1372.                 --print'k1'
  1373.                 Disable()
  1374.             end)
  1375.             local ev2
  1376.             ev2=HolderFrame.MouseLeave:connect(function()
  1377.                 --print'k2'
  1378.                 Enable()
  1379.             end)
  1380.             local InfoFrame = Functions:MakeNewUi('Frame')
  1381.             InfoFrame.ZIndex=4
  1382.             InfoFrame.BackgroundTransparency=0
  1383.             InfoFrame.Size=ud(1,0,0,15)
  1384.             InfoFrame.Name='TF'
  1385.             InfoFrame.BackgroundColor3=CurrentPlayerData[3]
  1386.             for i = 1,3 do
  1387.                 i=i
  1388.                 local CButt = Functions:MakeNewUi('ImageButton')
  1389.                 CButt.Image=Functions:Asset(625953771)
  1390.                 CButt.Parent=InfoFrame
  1391.                 CButt.ImageTransparency=.15
  1392.                 local OCF
  1393.                 --505680534
  1394.                 spawn(function()
  1395.                     local up=.75
  1396.                     local r,g,b=0,0,0
  1397.                     if (i==1) then
  1398.                         r,g,b=.8,.01,.01
  1399.                     elseif (i==2) then
  1400.                         r,g,b=.95,.95,0
  1401.                     elseif (i==3) then
  1402.                         r,g,b=0,.7,0
  1403.                     end
  1404.                     CButt.ImageColor3 = c3(r,g,b)
  1405.                     CButt.MouseEnter:connect(function()
  1406.                         for i = 0,1,.1 do
  1407.                             CButt.ImageColor3 = CButt.ImageColor3:lerp(c3(r+up,g+up,b+up),.13)
  1408.                             lrs:wait()
  1409.                         end
  1410.                     end)
  1411.                     CButt.MouseLeave:connect(function()
  1412.                         for i = 0,1,.1 do
  1413.                             CButt.ImageColor3 = CButt.ImageColor3:lerp(c3(r,g,b),.13)
  1414.                             lrs:wait()
  1415.                         end
  1416.                     end)
  1417.                 end)
  1418.                 --if not OCF then OCF=function()print'missing func'end;end
  1419.                 if (i==1) then
  1420.                     r,g,b=.8,.01,.01
  1421.                     local evv
  1422.                     ev1:disconnect()
  1423.                     ev2:disconnect()
  1424.                     evv=CButt.MouseButton1Click:connect(function()
  1425.                         for Index, Ting in next, Admino.Apps.Open do
  1426.                             if Data[1] == Ting[1] then
  1427.                                 table.remove(Admino.Apps.Open, Index)
  1428.                             end
  1429.                         end
  1430.                         evv:disconnect()
  1431.                         local pos = HolderFrame.Position
  1432.                         HolderFrame.Active=false
  1433.                         HolderFrame:Destroy()
  1434.                     end)
  1435.                 elseif (i==2) then
  1436.                     r,g,b=.95,.95,0
  1437.                     local evv
  1438.                     evv=CButt.MouseButton1Click:connect(function()
  1439.                         if maximized then
  1440.                             HolderFrame:TweenSizeAndPosition(ums,ump,'Out','Sine',.3,true)
  1441.                             maximized=false
  1442.                         else
  1443.                             HolderFrame:TweenSizeAndPosition(ud(1,2,1,-50),ud(0,-1,0,-1),'Out','Quint',.3,true)
  1444.                             maximized=true
  1445.                         end
  1446.                     end)
  1447.                 elseif (i==3) then
  1448.                     r,g,b=0,.7,0
  1449.                     local evv
  1450.                     ev1:disconnect()
  1451.                     ev2:disconnect()
  1452.                     for Index, Ting in next, Admino.Apps.Open do
  1453.                         if Data[1] == Ting[1] then
  1454.                             table.remove(Admino.Apps.Open, Index)
  1455.                         end
  1456.                     end
  1457.                     evv=CButt.MouseButton1Click:connect(function()
  1458.                         evv:disconnect()
  1459.                         HolderFrame:TweenSizeAndPosition(ud(0,50,0,50),Icon.Position,'Out','Quint',.5,true)
  1460.                         wait(.2)
  1461.                         HolderFrame:Destroy()
  1462.                     end)
  1463.                     --Functions:AddToTaskBar(Data[1],Data[2],{ump,ums})
  1464.                 end
  1465.                 --CButt.MouseButton1Click:connect(OCF)
  1466.                 CButt.Size=ud(0,12,0,12)
  1467.                 CButt.Position=Functions:CenterOffset(CButt,ud(.5,-(15*i),0,0))
  1468.                 --CButt:TweenPosition(Functions:CenterOffset(CButt,ud(0,0,0,-50),'Out','Back',1,true))
  1469.             end
  1470.             InfoFrame.Parent = HolderFrame
  1471.             local InfoIcon = Functions:MakeNewUi('ImageButton')
  1472.             InfoIcon.Parent=InfoFrame
  1473.             InfoIcon.Image=Functions:Asset(Data[2])
  1474.             InfoIcon.Size=ud(0,12,0,12)
  1475.             InfoIcon.ImageTransparency=0
  1476.             InfoIcon.Position=ud(0,2,0,3)
  1477.             InfoIcon.ZIndex=4
  1478.             local InfoText = Functions:MakeNewUi('TextButton')
  1479.             InfoText.BackgroundTransparency=.5
  1480.             InfoText.FontSize='Size12'
  1481.             InfoText.Parent=InfoFrame
  1482.             InfoText.TextXAlignment='Left'
  1483.             InfoText.Text= Data[1]--..'  \  '..Data[4]--'*C:\Users\\'..CurrentPlayer.Name..''
  1484.             InfoText.Size=ud(1,-40,1,0)
  1485.             InfoText.Position=ud(0,16,0,0)
  1486.             InfoText.ZIndex=4
  1487.            
  1488.             local md=false
  1489.             InfoText.MouseButton1Down:connect(function()
  1490.                 md=true
  1491.                 local origp=HolderFrame.Position
  1492.                 local origs=ud(0,600,0,15)
  1493.                 local origmp=Admino.Assets.Mouse.Position
  1494.                 HolderFrame.Size = ud(0,600,0,400)
  1495.                 maximized=false
  1496.                 spawn(function()
  1497.                     repeat wait() until Admino.MouseDown == false
  1498.                     md=false
  1499.                 end)
  1500.                 while md do
  1501.                     local mp={Admino.Assets.Mouse.Position.X.Scale,Admino.Assets.Mouse.Position.X.Offset,Admino.Assets.Mouse.Position.Y.Scale,Admino.Assets.Mouse.Position.Y.Offset};
  1502.                     local fs={origs.X.Scale,origs.X.Offset,origs.Y.Scale,origs.Y.Offset};
  1503.                     local fp={origp.X.Scale,origp.X.Offset,origp.Y.Scale,origp.Y.Offset};
  1504.                     --local a,b=
  1505.                     local x,y=mp[2]-(fs[2]/2),mp[4]-(fs[4]/2)
  1506.                     --print(x,y)
  1507.                     HolderFrame.Position=ud(0,x,0,y)
  1508.                     lrs:wait()
  1509.                 end
  1510.             end)
  1511.             InfoText.MouseButton1Up:connect(function()
  1512.                 --md=false
  1513.             end)
  1514.             local ContentFrame = Functions:MakeNewUi('Frame')
  1515.             ContentFrame.ZIndex=4
  1516.             ContentFrame.BackgroundTransparency=.1
  1517.             ContentFrame.Size=ud(1,-2,1,-17)
  1518.             ContentFrame.Position=ud(0,1,0,16)
  1519.             ContentFrame.Name='CF'
  1520.             ContentFrame.BackgroundColor3=CurrentPlayerData[4]
  1521.             ContentFrame.Parent = HolderFrame
  1522.             Data[5](HolderFrame, TitleFrame, ContentFrame)
  1523.         end)
  1524.     end
  1525. end
  1526.  
  1527. local AtMainScreen=false
  1528. function Functions:MakeHomeScreen()
  1529.     local Background_id = CurrentPlayerData[5]
  1530.     local BackgroundImg = Functions:MakeNewUi('ImageLabel')
  1531.     BackgroundImg.Image=Functions:Asset(Background_id)
  1532.     BackgroundImg.Name='Background'
  1533.     BackgroundImg.BackgroundTransparency=1
  1534.     BackgroundImg.ImageTransparency = .1
  1535.     BackgroundImg.Parent=MainFrame
  1536.     BackgroundImg.ZIndex=1
  1537.     BackgroundImg.Size=ud(1,0,1,0)
  1538.     Admino.Assets.Background = BackgroundImg
  1539.     for i = 0,1.025,.025 do
  1540.         MainFrame.BackgroundTransparency=i
  1541.         lrs:wait()
  1542.     end
  1543.     local TskBar = Functions:MakeNewUi('TextLabel')
  1544.     TskBar.Size = ud(1,0,0,52)
  1545.     TskBar.Parent = MainFrame
  1546.     TskBar.BackgroundColor3 = CurrentPlayerData[3]
  1547.     TskBar.BackgroundTransparency = .5
  1548.     TskBar.Position = ud(0,0,1,0)
  1549.     TskBar.ZIndex = 9
  1550.     TskBar:TweenPosition(ud(0,0,1,-52.5),'Out','Quint',1.2,true)
  1551.     for i = 0,.15,.05 do
  1552.         local TskBarShader = Functions:MakeNewUi('TextLabel')
  1553.         TskBarShader.BackgroundTransparency = .8
  1554.         TskBarShader.BackgroundColor3 = CurrentPlayerData[4]
  1555.         TskBarShader.BorderSizePixel = 0
  1556.         TskBarShader.Size = ud(1,0,.05,0)
  1557.         TskBarShader.Position = ud(0,0,-i,0)
  1558.         delay(.2,function()
  1559.             TskBarShader:TweenPosition(ud(0,0,i+5,0),'Out','Quint',.5,true)
  1560.         end)
  1561.         TskBarShader.ZIndex = 9
  1562.         TskBarShader.Name = 'shd'..i
  1563.         --TskBar:ClearAllChildren()
  1564.         TskBarShader.Parent = TskBar
  1565.     end
  1566.     --//tem\\
  1567.     local TimeLabel = Instance.new'TextLabel'
  1568.     TimeLabel.BackgroundTransparency = 1
  1569.     TimeLabel.BackgroundColor3 = c3(255,255,255)
  1570.     TimeLabel.BorderSizePixel = 0
  1571.     TimeLabel.ZIndex = 9
  1572.     TimeLabel.TextColor3 = CurrentPlayerData[4]
  1573.     TimeLabel.Font = Admino.Settings.Fonts.Sub_Header
  1574.     TimeLabel.TextScaled = true
  1575.     TimeLabel.Name = 'TimeLabel'
  1576.     TimeLabel.TextWrapped = true
  1577.     TimeLabel.TextStrokeTransparency = .9
  1578.     TimeLabel.Text = '00:00:00  PM'
  1579.     TimeLabel.Parent = TskBar
  1580.     TimeLabel.Size = ud(.08,0,.3,0)
  1581.     TimeLabel.Position = ud(.92,-10,0,6)
  1582.    
  1583.     local DateLabel = Instance.new'TextLabel'
  1584.     DateLabel.BackgroundTransparency = 1
  1585.     DateLabel.BackgroundColor3 = c3(255,255,255)
  1586.     DateLabel.BorderSizePixel = 0
  1587.     DateLabel.ZIndex = 9
  1588.     DateLabel.TextColor3 = CurrentPlayerData[4]
  1589.     DateLabel.Font = Admino.Settings.Fonts.Sub_Header
  1590.     DateLabel.TextScaled = true
  1591.     DateLabel.Name = 'DateLabel'
  1592.     DateLabel.TextWrapped = true
  1593.     DateLabel.TextStrokeTransparency = .9
  1594.     DateLabel.Text = '00/00/0000'
  1595.     DateLabel.Parent = TskBar
  1596.     DateLabel.Size = ud(.08,0,.3,0)
  1597.     DateLabel.Position = ud(.92,-10,.6,-6)
  1598.    
  1599.     local Logo = Functions:MakeNewUi'ImageButton'
  1600.     Logo.BackgroundTransparency = 1
  1601.     Logo.BackgroundColor3 = CurrentPlayerData[3]
  1602.     Logo.BorderSizePixel = 0
  1603.     Logo.ZIndex = 10
  1604.     Logo.Image = Functions:Asset(265489553)
  1605.     --Logo.TextColor3 = CurrentPlayerData[4]
  1606.     --Logo.Font = 'Cartoon'
  1607.     --Logo.FontSize='Size36'
  1608.     Logo.Name = 'Logo'
  1609.     --Logo.TextStrokeTransparency = .9
  1610.     --Logo.Text = '¶Y'
  1611.     Logo.Parent = TskBar
  1612.     Logo.Size = ud(0,40,0,50)
  1613.     Logo.Position = ud(0,1,0,1)
  1614.     local clrcancel=false
  1615.     local igc,bgc=CurrentPlayerData[4],CurrentPlayerData[3]
  1616.     Logo.MouseEnter:connect(function()
  1617.         local continue=true
  1618.         clrcancel=true
  1619.         clrcancel=false
  1620.         spawn(function()
  1621.             for i = 0,.57,.07 do
  1622.                 Logo.BackgroundTransparency=1-i
  1623.                 lrs:wait()
  1624.             end
  1625.         end)
  1626.         igc,bgc=CurrentPlayerData[3],CurrentPlayerData[4]
  1627.     end)
  1628.     Logo.MouseLeave:connect(function()
  1629.         local continue=true
  1630.         clrcancel=true
  1631.         clrcancel=false
  1632.         spawn(function()
  1633.             for i = 0,.57,.07 do
  1634.                 Logo.BackgroundTransparency=.5+i
  1635.                 lrs:wait()
  1636.             end
  1637.         end)
  1638.         igc,bgc=CurrentPlayerData[4],CurrentPlayerData[3]
  1639.     end)
  1640.     local StartFrameHolder = Functions:MakeNewUi('Frame')
  1641.     StartFrameHolder.ZIndex=5
  1642.     StartFrameHolder.BackgroundTransparency=1
  1643.     StartFrameHolder.Size=ud(0,200,.6,0)
  1644.     StartFrameHolder.Position = ud(0,0,.4,-52)
  1645.     StartFrameHolder.Parent = MainFrame
  1646.     local StartFrame = Functions:MakeNewUi('Frame')
  1647.     StartFrame.ZIndex=9
  1648.     StartFrame.BackgroundTransparency=.5
  1649.     StartFrame.Size=ud(1,0,1,0)
  1650.     StartFrame.BorderSizePixel=2
  1651.     StartFrame.Name='SF'
  1652.     StartFrame.BorderColor3=CurrentPlayerData[4]
  1653.     StartFrame.Position = ud(0,0,1,0)
  1654.     StartFrame.Parent = StartFrameHolder
  1655.    
  1656.     local TestButton = Functions:MakeNewUi('TextButton')
  1657.     TestButton.ZIndex=6
  1658.     TestButton.BackgroundTransparency=.7
  1659.     TestButton.Size=ud(1,-6,0,50)
  1660.     TestButton.Position = ud(0,3,0,3)
  1661.     TestButton.Text='LOL DUDE'
  1662.     TestButton.Parent = StartFrame
  1663.     TestButton.MouseButton1Click:connect(function()
  1664.         Functions:Notification('Fuck you!')
  1665.         Functions:Notification('You suck at life and everything, stop clicking me!')
  1666.     end)
  1667.    
  1668.     local sfcc,detection=false,false
  1669.     StartFrame.MouseEnter:connect(function()
  1670.         detection=false
  1671.         sfcc=false
  1672.     end)
  1673.     StartFrame.MouseLeave:connect(function()
  1674.         detection=true
  1675.         sfcc=true
  1676.     end)
  1677.    
  1678.     local Extended=false
  1679.     local function Open(trans)
  1680.         StartFrame:TweenPosition(ud(0,0,0,0),'Out','Sine',.5,true)
  1681.         for i = 0,1.05,.05 do
  1682.             for a,b in next, StartFrame:children() do
  1683.                 if b.Name ~= 'SF' then
  1684.                     pcall(function()
  1685.                         b.TextTransparency=b.TextTransparency-.05
  1686.                     end)
  1687.                     pcall(function()
  1688.                         b.BackgroundTransparency=bBackgroundTransparency-.05
  1689.                     end)
  1690.                     pcall(function()
  1691.                         b.ImageTransparency=b.ImageTransparency-.05
  1692.                     end)
  1693.                 end
  1694.             end
  1695.             StartFrame.BackgroundTransparency=1-.05
  1696.             lrs:wait()
  1697.         end
  1698.         StartFrame.BackgroundTransparency=trans
  1699.         Extended=true
  1700.     end
  1701.     local function Close(trans)
  1702.         StartFrame:TweenPosition(ud(0,0,1,0),'Out','Sine',.5,true)
  1703.         for i = 0,1,.05 do
  1704.             for a,b in next, StartFrame:children() do
  1705.                 if b.Name ~= 'SF' then
  1706.                     pcall(function()
  1707.                         b.TextTransparency=b.TextTransparency+.05
  1708.                     end)
  1709.                     pcall(function()
  1710.                         b.BackgroundTransparency=bBackgroundTransparency+.05
  1711.                     end)
  1712.                     pcall(function()
  1713.                         b.ImageTransparency=b.ImageTransparency+.05
  1714.                     end)
  1715.                 end
  1716.             end
  1717.             StartFrame.BackgroundTransparency=trans+.05
  1718.             lrs:wait()
  1719.         end
  1720.         StartFrame.BackgroundTransparency=1
  1721.         Extended=false
  1722.     end
  1723.     local trans=.45
  1724.     PlayerMouse.Button1Down:connect(function()
  1725.         if sfcc and Extended then
  1726.             detection=false
  1727.             Close(trans)
  1728.         end
  1729.     end)
  1730.     PlayerMouse.Button2Down:connect(function()
  1731.         if sfcc and Extended then
  1732.             detection=false
  1733.             Close(trans)
  1734.         end
  1735.     end)
  1736.     Logo.MouseButton1Down:connect(function(x,y)
  1737.         if Extended then
  1738.             Close(trans)
  1739.         else
  1740.             Open(trans)
  1741.         end
  1742.     end)
  1743.     local Months =  {
  1744.             "January", "Febreuary", "March", "April", "May", "June",
  1745.             "July", "August", "September", "October", "November", "December"
  1746.         }
  1747.     local MonthDays = {    
  1748.             31, 28, 31, 30, 31, 30,
  1749.             31, 31, 30, 31, 30, 31
  1750.         }
  1751.  
  1752.     function getDay(Date, year)
  1753.         local month, date = Date:match("(%a+)%s*(%d+)")
  1754.         local DAYS = tonumber(date)
  1755.         local leaps = math.floor( (year-2011)/4 - .25 ) + 1
  1756.         local Days = {"Saturday", "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday"}
  1757.         for _, v in ipairs(MonthDays) do
  1758.             if Months[_] == month then break end
  1759.             DAYS = DAYS + v
  1760.         end
  1761.         DAYS = math.floor( DAYS + (year-2017) * 365 ) + leaps
  1762.         return Days[ (DAYS%7 == 0 and 7 or DAYS%7) ]
  1763.     end
  1764.  
  1765.     function getMonthAndDate(days, year)
  1766.         local leap = year%4 == 0 and 1 or 0
  1767.         local month;
  1768.         for _, v in ipairs(MonthDays) do
  1769.             if (days-v) < 1 then
  1770.                 month = Months[_]
  1771.                 break
  1772.             end
  1773.             days = days - v
  1774.         end
  1775.         return month, days
  1776.     end
  1777.     local LTime,LDate = '',''
  1778.     local M = ''
  1779.     Time = function()
  1780.         local secondsInDay = 60*60*24
  1781.         local time = tick()
  1782.         local year = math.floor(1970 + time/(365.25*86400))
  1783.         local days = math.ceil(((time % (86400*365.25)) )/86400 + 0.25)
  1784.         local month, date = getMonthAndDate(days, year)
  1785.         local day = getDay(month..date, year)
  1786.         local tick = math.fmod(tick(),secondsInDay)
  1787.         local hour = math.floor(tick/3600) + 5 + -5
  1788.         local minute = math.floor(tick/60 - 60*hour)
  1789.         local seconds = math.floor(math.fmod(tick,60))
  1790.         if (hour > 12) then
  1791.                M = ' PM' hour = hour - 12
  1792.         else
  1793.             M = ' AM'
  1794.         end
  1795.         if hour == 0 then
  1796.             hour = 12
  1797.         end
  1798.         if hour == 24 then
  1799.             hour = 1
  1800.         end
  1801.         LTime = string.format("%2.0f:%02.0f",hour,minute)
  1802.         local MonthNums =   {
  1803.             ["January"]=1, ["February"]=2, ["March"]=3, ["April"]=4, ["May"]=5, ["June"]=6,
  1804.             ["July"]=7, ["August"]=8, ["September"]=9, ["October"]=10, ["November"]=11, ["December"]=12
  1805.         }
  1806.         month=MonthNums[month]
  1807.         LDate = month..'/'..(days-1)..'/'..year
  1808.         TimeLabel.Text = LTime..M
  1809.         DateLabel.Text = LDate
  1810.         Logo.ImageColor3 = Logo.ImageColor3:lerp(igc,.2)
  1811.         Logo.BackgroundColor3 = Logo.BackgroundColor3:lerp(bgc,.2)
  1812.     end
  1813.     game:service'RunService'.Heartbeat:connect(Time)
  1814.     AtMainScreen=true
  1815.     local txt=''
  1816.     if Official then
  1817.         txt='Welcome back, '..CurrentPlayerData[1]..', your last session\'s saved data has been loaded'
  1818.     else
  1819.         txt='Hello, '..CurrentPlayerData[1]..'. Your data will be saved at the end of this session'
  1820.     end
  1821.     delay(math.random(1,4),function()
  1822.         delay(.3,function()
  1823.             Functions:PlayerImgNotification('DestinyProsYT', 'Creator & Founder of Admino - DestinyProsYT')
  1824.         end)
  1825.         local fr,tl = Functions:Notification(txt,6)
  1826.     end)
  1827.     Functions:GeneratePrograms({25,20})
  1828.     AtMainScreen=true
  1829.     return warn'Homescreen Loaded'
  1830. end
  1831.  
  1832. function Functions:PlayerImgNotification(Plr, Type)
  1833.     if not AtMainScreen then return end
  1834.     local sz=50
  1835.     if Type=='join' then
  1836.         local fr,tl=Functions:Notification('New Player has joined, '..tostring(Plr)..'.', 4)
  1837.         tl.Size=ud(1,-(sz+5),1,0)
  1838.         tl.Position=ud(0,sz+5,0,0)
  1839.         local UserImage = Functions:MakeNewUi('ImageLabel')
  1840.         UserImage.Image=Functions:PlayerImage(tostring(Plr))
  1841.         UserImage.Parent=fr
  1842.         UserImage.Size=ud(0,sz,1,0)
  1843.         UserImage.ImageTransparency=0
  1844.         UserImage.Position=ud(0,4,0,0)
  1845.         UserImage.ZIndex=8
  1846.         wait(4*1.5)
  1847.         for i = 0,1.05,.05 do UserImage.ImageTransparency=i lrs:wait() end
  1848.     elseif Type=='rmv' then
  1849.         local fr,tl=Functions:Notification('Player has left, '..tostring(Plr)..'.', 4)
  1850.         tl.Size=ud(1,-(sz+5),1,0)
  1851.         tl.Position=ud(0,sz+5,0,0)
  1852.         local UserImage = Functions:MakeNewUi('ImageLabel')
  1853.         UserImage.Image=Functions:PlayerImage(tostring(Plr))
  1854.         UserImage.Parent=fr
  1855.         UserImage.Size=ud(0,sz,1,0)
  1856.         UserImage.ImageTransparency=0
  1857.         UserImage.Position=ud(0,4,0,0)
  1858.         UserImage.ZIndex=8
  1859.         wait(4*1.5)
  1860.         for i = 0,1.05,.05 do UserImage.ImageTransparency=i lrs:wait() end
  1861.     else
  1862.         local fr,tl=Functions:Notification(Type, 4)
  1863.         tl.Size=ud(1,-(sz+5),1,0)
  1864.         tl.Position=ud(0,sz+5,0,0)
  1865.         local UserImage = Functions:MakeNewUi('ImageLabel')
  1866.         UserImage.Image=Functions:PlayerImage(tostring(Plr))
  1867.         UserImage.Parent=fr
  1868.         UserImage.Size=ud(0,sz,1,0)
  1869.         UserImage.ImageTransparency=0
  1870.         UserImage.Position=ud(0,4,0,0)
  1871.         UserImage.ZIndex=8
  1872.         wait(4*1.5)
  1873.         for i = 0,1.05,.05 do UserImage.ImageTransparency=i lrs:wait() end
  1874.     end
  1875. end
  1876.  
  1877. local Notifications={};
  1878. local Notifs=0
  1879.  
  1880. function Functions:AdjustNotifPositions()
  1881.     local upv=0
  1882.     for i, data in next, Notifications do
  1883.         --warn('('..tostring(ud(1,-200,.8,-(60*upv)))..')',#Notifications)
  1884.         pcall(function()
  1885.             data[1]:TweenPosition(ud(1,-200,.8,-(60*upv)),'Out','Back',.5,true)
  1886.         end)
  1887.         upv=upv+1
  1888.         wait(.1)
  1889.     end
  1890. end
  1891.  
  1892. function Functions:Notification(Text, ExitDelay)
  1893.     if not ExitDelay then ExitDelay=4 end
  1894.     if not AtMainScreen then return end
  1895.     local v=false
  1896.     local Frame = Functions:MakeNewUi('Frame')
  1897.     Frame.ZIndex=8
  1898.     Frame.BackgroundTransparency=.25
  1899.     Frame.Size=ud(0,200,0,55)
  1900.     Frame.BackgroundColor3=CurrentPlayerData[4]
  1901.     Frame.Position = ud(1,0,.8,-(60*Notifs))
  1902.     Frame.Parent=MainFrame
  1903.     Frame:TweenPosition(ud(1,-200,.8,-(60*Notifs)),'Out','Sine',2,true)
  1904.     table.insert(Notifications,{Frame,ud(1,-200,.8,-(60*Notifs))})
  1905.     local Shader1 = Functions:MakeNewUi('Frame')
  1906.     Shader1.ZIndex=9
  1907.     Shader1.BackgroundTransparency=.9
  1908.     Shader1.Size=ud(0,2,1,0)
  1909.     Shader1.BackgroundColor3=CurrentPlayerData[4]
  1910.     Shader1.Position = ud(0,-2,0,0)
  1911.     Shader1.Parent=Frame
  1912.     local Shader2 = Functions:MakeNewUi('Frame')
  1913.     Shader2.ZIndex=9
  1914.     Shader2.BackgroundTransparency=.8
  1915.     Shader2.Size=ud(0,1,1,0)
  1916.     Shader2.BackgroundColor3=CurrentPlayerData[4]
  1917.     Shader2.Position = ud(0,-1,0,0)
  1918.     Shader2.Parent=Frame
  1919.     spawn(function()
  1920.         Shader1:TweenPosition(ud(0,0,0,0),'Out','Linear',.4,true)
  1921.          wait(.1)
  1922.         Shader2:TweenPosition(ud(0,1,0,0),'Out','Linear',.4,true)
  1923.     end)
  1924.     local TLabel = Functions:MakeNewUi('TextButton')
  1925.     TLabel.TextColor3=CurrentPlayerData[4]
  1926.     TLabel.Position=ud(0,4,0,0)
  1927.     TLabel.ZIndex=9
  1928.     TLabel.Active=true
  1929.     TLabel.BackgroundTransparency=.98
  1930.     TLabel.TextWrapped=true
  1931.     TLabel.Size=ud(1,-4,1,0)
  1932.     TLabel.TextXAlignment='Left'
  1933.     --TLabel.TextYAlignment='Top'
  1934.     TLabel.Font=Admino.Settings.Fonts.Sub_Header
  1935.     TLabel.FontSize='Size12'
  1936.     TLabel.TextStrokeColor3=CurrentPlayerData[4]
  1937.     TLabel.TextStrokeTransparency=1
  1938.     TLabel.TextTransparency=1
  1939.     TLabel.Parent=Frame
  1940.     Notifs=Notifs+1
  1941.     local tic = Functions:Sound(230336790,false)
  1942.     tic:Play()
  1943.     for i = 0,1.02,.02 do
  1944.         Frame.BackgroundColor3=Frame.BackgroundColor3:lerp(CurrentPlayerData[3],.2)
  1945.         Frame.BackgroundTransparency=1.5-i
  1946.         TLabel.TextStrokeTransparency=1.9-i
  1947.         TLabel.TextTransparency=1-i
  1948.         lrs:wait()
  1949.     end
  1950.     local cc=true
  1951.     local function Close()
  1952.         if (not cc) then return end
  1953.         --print'3'
  1954.         Frame:TweenPosition(ud(1,0,.8,Frame.Position.Y.Offset),'Out','Sine',3,true)
  1955.         for i = 0,1.015,.02 do
  1956.             --Frame.BackgroundColor3=Frame.BackgroundColor3:lerp(c3(0,0,0),.2)
  1957.             Frame.BackgroundTransparency=.5+i
  1958.             Shader1.BackgroundTransparency=.9+i
  1959.             Shader2.BackgroundTransparency=.8+i
  1960.             TLabel.TextStrokeTransparency=.9+i
  1961.             TLabel.TextTransparency=i
  1962.             lrs:wait()
  1963.         end
  1964.         val=true
  1965.         Frame:Destroy()
  1966.         for i,v in next, Notifications do
  1967.             if v[1]==Frame then
  1968.                 table.remove(Notifications,i)
  1969.             end
  1970.         end
  1971.         Notifs=Notifs-1
  1972.         Functions:AdjustNotifPositions()
  1973.     end
  1974.     local ev
  1975.     ev=TLabel.MouseButton1Click:connect(function()
  1976.         --print'k'
  1977.         spawn(Close)
  1978.         wait()
  1979.         cc=false
  1980.         ev:disconnect()
  1981.     end)
  1982.     spawn(function()
  1983.         if cc then
  1984.             Effects:Type(TLabel, Text, 'In',.01)
  1985.             wait(ExitDelay*1.2)
  1986.             --print'k2'
  1987.             spawn(Close)
  1988.             wait()
  1989.             cc=false
  1990.             ev:disconnect()
  1991.         end
  1992.     end)
  1993.     return Frame, TLabel
  1994. end
  1995.  
  1996. function Functions:CreateLogin()
  1997.     local BFrame = Functions:MakeNewUi('Frame')
  1998.     BFrame.ZIndex=4
  1999.     BFrame.BackgroundTransparency=1
  2000.     BFrame.Size=ud(1,0,1,0)
  2001.     BFrame.Position = ud(0,0,0,0)
  2002.     BFrame.Parent=MainFrame
  2003.     local TransFrame = Functions:MakeNewUi('Frame')
  2004.     TransFrame.ZIndex=8
  2005.     TransFrame.BackgroundTransparency=1
  2006.     TransFrame.Parent=MainFrame
  2007.     local Start = Functions:MakeNewUi('TextButton')
  2008.     local txt='Welcome to Admino, '..CurrentPlayer.Name..'.'
  2009.     Start.Text=txt
  2010.     Start.Font=Admino.Settings.Fonts.Header
  2011.     Start.TextColor3=CurrentPlayerData[4]
  2012.     Start.Position=ud(0,0,0,-18)
  2013.     Start.BackgroundTransparency=1
  2014.     Start.TextTransparency=1
  2015.     Start.Parent=BFrame
  2016.     local Sub = Functions:MakeNewUi('TextLabel')
  2017.     Sub.Parent=BFrame
  2018.     Sub.TextColor3=CurrentPlayerData[4]
  2019.     Sub.Text='Loading Decal and Sound Assets.'
  2020.     Sub.Position=ud(0,0,0,25-18)
  2021.     Sub.BackgroundTransparency=1
  2022.     Sub.TextTransparency=1
  2023.     Sub.ZIndex=6
  2024.     local Circ = Functions:MakeNewUi('ImageLabel')
  2025.     Circ.Image=Functions:Asset(502107146)
  2026.     Circ.Parent=BFrame
  2027.     Circ.ImageTransparency=0
  2028.     Circ.ImageColor3 = CurrentPlayerData[3]
  2029.     Circ.Size=ud(0,350,0,400)
  2030.     Circ.Position=Functions:CenterOffset(Circ,ud(0,0,0,0))
  2031.     Circ.ZIndex=5
  2032.     local con=false
  2033.     spawn(function()
  2034.         Effects:Type(Start, txt, 'In',.06)
  2035.         local nspd=.5
  2036.         repeat wait(nspd)
  2037.             --Start.Text=txt
  2038.             Circ:TweenSizeAndPosition(ud(0,450,0,500),ud(.5,-450/2,.5,-250),'In','Back',nspd,true)
  2039.             wait(nspd)
  2040.             Circ:TweenSizeAndPosition(ud(0,350,0,400),ud(.5,-350/2,.5,-200),'Out','Quint',nspd,true)
  2041.             --Start.Text=txt..'|'
  2042.         until con
  2043.     end)
  2044.     for i = 0,1.025,.025 do
  2045.         Start.TextTransparency = 1-i
  2046.         MainFrame.BackgroundTransparency = 1-i
  2047.         lrs:wait()
  2048.     end
  2049.     local function finish_Load()
  2050.         Particles=false
  2051.         Effects:Type(Start, txt, 'Out',.02)
  2052.         Start.Text=''
  2053.         Circ:TweenSizeAndPosition(ud(0,15,0,20),ud(.5,-15/2,.5,-10),'In','Quint',2,true)
  2054.         wait(2)
  2055.         Circ:TweenSizeAndPosition(ud(0,950,0,1000),ud(.5,-950/2,.5,-500),'In','Back',1,true)
  2056.         wait(.2)
  2057.         for i = 0,1.025,.025 do
  2058.             Sub.TextTransparency = i
  2059.             Circ.ImageTransparency=i
  2060.             lrs:wait()
  2061.         end
  2062.         Circ:Destroy()
  2063.         BFrame.Size = ud(0,400,0,210)
  2064.         BFrame.Position = Functions:Center(BFrame)
  2065.         spawn(function()
  2066.             for i = 0,20,.1 do
  2067.                 MainFrame.BackgroundColor3 = MainFrame.BackgroundColor3:lerp(CurrentPlayerData[3],.1)
  2068.                 lrs:wait()
  2069.             end
  2070.         end)
  2071.         Sub.Text='Assets['..(#Admino.Backgrounds+#Admino.Sounds)..'] Loaded.'
  2072.         delay(.5,function()
  2073.             txt='Click here to begin'
  2074.             Effects:Type(Start, txt, 'In',.05)
  2075.             delay(.6,function()
  2076.                 Start.Text=txt
  2077.             end)
  2078.         end)
  2079.         for i = 0,1.025,.025 do
  2080.             Sub.TextTransparency = 1-i
  2081.             lrs:wait()
  2082.         end
  2083.     end
  2084.     local con2=false
  2085.     delay(1,function()
  2086.         for i = 0,1.025,.025 do
  2087.             Sub.TextTransparency = 1-i
  2088.             lrs:wait()
  2089.         end
  2090.         delay(2,function()
  2091.             local tbl1={};
  2092.             local tbl2={Admino.Backgrounds,Admino.Sounds,Admino.DecalAssets}
  2093.             for _,__ in next, tbl2 do
  2094.                 for i, Id in next, __ do
  2095.                     table.insert(tbl1, Id)
  2096.                 end
  2097.             end
  2098.             for i,v in next, tbl1 do lrs:wait() end
  2099.             con=true
  2100.             finish_Load()
  2101.             con2=true
  2102.         end)
  2103.     end)
  2104.     repeat lrs:wait() until con2
  2105.     Start.TextTransparency = 0
  2106.     --MainFrame.Transparency = 0
  2107.     local LoginScreen
  2108.     local sclick
  2109.     sclick=Start.MouseButton1Down:connect(function()
  2110.         Sub:TweenPosition(ud(0,0,1,50),'In','Quint',1,true)
  2111.         delay(1, function()
  2112.             LoginScreen(false)
  2113.         end)
  2114.         sclick:disconnect()
  2115.     end)
  2116.     function LoginScreen(NewFrame)
  2117.         Admino['Login']=LoginScreen
  2118.         if NewFrame then
  2119.             BFrame = Functions:MakeNewUi('Frame')
  2120.             BFrame.ZIndex=4
  2121.             BFrame.BackgroundTransparency=1
  2122.             BFrame.Size = ud(0,400,0,210)
  2123.             BFrame.Position = Functions:Center(BFrame)
  2124.             BFrame.Parent=MainFrame
  2125.         end
  2126.         pcall(function()
  2127.             Sub:Destroy()
  2128.             for i = 0,1.025,.025 do
  2129.                 Start.TextTransparency = i
  2130.                 lrs:wait()
  2131.             end
  2132.             Start.Parent=nil
  2133.         end)
  2134.         local UserImage = Functions:MakeNewUi('ImageLabel')
  2135.         UserImage.Image=Functions:PlayerImage(CurrentPlayer)
  2136.         UserImage.Parent=BFrame
  2137.         UserImage.Size=ud(0,100,0,100)
  2138.         UserImage.ImageTransparency=1
  2139.         UserImage.Position=Functions:CenterOffset(UserImage,ud(0,0,-1,0))
  2140.         UserImage:TweenPosition(Functions:CenterOffset(UserImage,ud(0,0,0,-50),'Out','Back',1,true))
  2141.         UserImage.ZIndex=8
  2142.         local UserImgFrame = Functions:MakeNewUi('ImageLabel')
  2143.         UserImgFrame.Image=Functions:Asset(502107146)
  2144.         UserImgFrame.Parent=BFrame
  2145.         UserImgFrame.ImageTransparency=0
  2146.         --UserImgFrame.ImageColor3 = c3(Monitor.Color.r+.2,Monitor.Color.g+.2,Monitor.Color.b+.2)
  2147.         UserImgFrame.Size=ud(0,100,0,100)
  2148.         UserImgFrame.Position=Functions:CenterOffset(UserImgFrame,ud(0,0,-1,0))
  2149.         UserImgFrame:TweenPosition(Functions:CenterOffset(UserImgFrame,ud(0,0,0,-50),'Out','Back',1,true))
  2150.         local Username = Functions:MakeNewUi('TextLabel')
  2151.         Username.Text = CurrentPlayer.Name
  2152.         Username.Parent = BFrame
  2153.         Username.TextTransparency=.9
  2154.         Username.Position=ud(0,0,1,0)
  2155.         Username.ZIndex=9
  2156.         Username:TweenPosition(ud(0,0,0,15),'Out','Quint',1,true)
  2157.         local Password = Functions:MakeNewUi('TextButton')
  2158.         Password.TextTransparency=1
  2159.         Password.Parent=BFrame
  2160.         Password.Position=ud(0,0,1,0)
  2161.         Password.Font=Admino.Settings.Fonts.Sub_Header
  2162.         Password.TextStrokeColor3 = Password.TextColor3
  2163.         Password.MouseEnter:connect(function()
  2164.             Password.TextStrokeTransparency=.9
  2165.         end)
  2166.         Password.MouseLeave:connect(function()
  2167.             Password.TextStrokeTransparency=1
  2168.         end)
  2169.         local canclick=false
  2170.         Password.MouseButton1Down:connect(function(x,y)
  2171.             if not canclick then
  2172.                 return
  2173.             end
  2174.             canclick=false
  2175.             --Effects:Particles(x,y)
  2176.             local val = Functions:LoginScreenGui(ud(0,400,0,28),{loop=true,ui=Password},true)
  2177.             print('dun',val)
  2178.             local ss
  2179.             ss=function(pp)
  2180.             num=0
  2181.             for i,v in next,pp:children() do
  2182.                 num=num+1
  2183.                 pcall(function()
  2184.                     spawn(function()
  2185.                         for i = 0,1.025,.025 do
  2186.                             if v:IsA'TextButton' or v:IsA'TextBox' or v:IsA'TextLabel' then
  2187.                                 v.TextTransparency = i
  2188.                                 lrs:wait()
  2189.                             end
  2190.                         end
  2191.                     end)
  2192.                 end)
  2193.                 pcall(function()
  2194.                     spawn(function()
  2195.                         for i = 0,1.025,.025 do
  2196.                             if v:IsA'ImageLabel' then
  2197.                                 v.ImageTransparency = i
  2198.                                 lrs:wait()
  2199.                             end
  2200.                         end
  2201.                     end)
  2202.                 end)
  2203.                 pcall(function()
  2204.                 v:TweenPosition(ud(2,v.Position.X.Offset,v.Position.Y.Scale,v.Position.Y.Offset),'In','Sine',1,true)
  2205.                 end)
  2206.                 wait(.1)
  2207.                 ss(v)
  2208.             end
  2209.             return num
  2210.             end
  2211.             ss(BFrame)
  2212.             wait((num+1.5)-(.4*num))
  2213.             BFrame:Destroy()
  2214.             Functions:MakeHomeScreen()
  2215.             return {}
  2216.             --canclick=true
  2217.             --Gui:Destroy()
  2218.         end)
  2219.         delay(.1,function()
  2220.             Password:TweenPosition(ud(0,0,0,45),'Out','Quint',1,true)
  2221.         end)
  2222.         spawn(function()
  2223.             Effects:Type(Password, 'Enter your Password', 'In',.03)
  2224.             canclick=true
  2225.         end)
  2226.         wait(.3)
  2227.         spawn(function()
  2228.             Effects:Underline(Username, 20, 70, 2, CurrentPlayerData[4], true)
  2229.         end)
  2230.         for i = 0,1.025,.01 do
  2231.             --UserName.TextTransparency = 1-i
  2232.             Password.TextTransparency = 1-i
  2233.             Username.TextTransparency = 1-i
  2234.             UserImage.ImageTransparency = 1-i
  2235.             lrs:wait()
  2236.         end
  2237.         Functions:IfRegistered(CurrentPlayer.Name, function(bool)
  2238.             if bool==true then
  2239.                 for i = 0,20 do
  2240.                     UserImgFrame.ImageColor3 = UserImgFrame.ImageColor3:lerp(c3(.25,1,.25),.1)
  2241.                     lrs:wait()
  2242.                 end
  2243.             elseif bool and not Official then
  2244.                 for i = 0,20 do
  2245.                     UserImgFrame.ImageColor3 = UserImgFrame.ImageColor3:lerp(c3(1,.25,.25),.1)
  2246.                     lrs:wait()
  2247.                 end
  2248.             else
  2249.                 for i = 0,20 do
  2250.                     UserImgFrame.ImageColor3 = UserImgFrame.ImageColor3:lerp(c3(.4,0,0),.1)
  2251.                     lrs:wait()
  2252.                 end
  2253.             end
  2254.         end)
  2255.     end
  2256. end
  2257.  
  2258. function Functions:Lerp(Speed)
  2259.     if Monitor and Monitor.Parent~=nil then
  2260.         ypcall(function()
  2261.             Monitor.CFrame = Monitor.CFrame:lerp(
  2262.             CurrentPlayer.Character.HumanoidRootPart.CFrame *
  2263.             CFrame.new(0,5.5,-6.5) *
  2264.             CFrame.Angles(-math.rad(12),0,0)
  2265.             , Speed)
  2266.         end)
  2267.     end
  2268. end
  2269.  
  2270. function Functions:Boot()
  2271.     script:ClearAllChildren()
  2272.     Functions:MakeMonitor()
  2273.     G = Instance.new('SurfaceGui', Monitor)
  2274.     G.Adornee = Monitor
  2275.     G.Face = Enum.NormalId.Back
  2276.     MainFrame = Functions:MakeNewUi('Frame')
  2277.     MainFrame.ZIndex=1
  2278.     MainFrame.BackgroundTransparency=.3
  2279.     MainFrame.BackgroundColor3 = CurrentPlayerData[3]
  2280.     MainFrame.Parent=G
  2281.     spawn(function()
  2282.         --wait(2)
  2283.         for i = 0,20,.1 do
  2284.             MainFrame.BackgroundColor3 = MainFrame.BackgroundColor3:lerp(CurrentPlayerData[4],.1)
  2285.             lrs:wait()
  2286.         end
  2287.     end)
  2288.     local MouseFrame = Instance.new('TextLabel', MainFrame)
  2289.     MouseFrame.Size = ud(0,5,0,5)
  2290.     MouseFrame.BackgroundTransparency = 1
  2291.     MouseFrame.Text = ''
  2292.     MouseFrame.ZIndex = 9
  2293.     MouseFrame.BackgroundColor3=c3(-1,-1,-1)
  2294.     MainFrame.MouseMoved:connect(function(x,y)
  2295.         if MouseFrame.Parent ~= nil then
  2296.             MouseFrame.Position = ud(0,x+3,0,y+6)
  2297.         end
  2298.     end)
  2299.     --200182847
  2300.     local MouseInner = Instance.new('ImageLabel', MouseFrame)
  2301.     Admino.Assets.Mouse=MouseFrame
  2302.     MouseInner.Size = ud(0,5,0,5)
  2303.     MouseInner.Position = ud(0,-5,0,-7)
  2304.     MouseInner.ImageColor3 = CurrentPlayerData[3]
  2305.     MouseInner.Image = Functions:Asset(284205403)
  2306.     MouseInner.Name = 'AFriendlyMouse1'
  2307.     MouseInner.BackgroundTransparency = 1
  2308.     MouseInner.ZIndex = 10
  2309.     local MouseOuter = Instance.new('ImageLabel', MouseFrame)
  2310.     MouseOuter.Size = ud(0,7,0,7)
  2311.     MouseOuter.Position = ud(0,-6,0,-8)
  2312.     MouseOuter.ImageColor3 = CurrentPlayerData[4]
  2313.     MouseOuter.Image = Functions:Asset(284205403)
  2314.     MouseOuter.Name = 'AFriendlyMouse2'
  2315.     MouseOuter.BackgroundTransparency = 1
  2316.     MouseOuter.ZIndex = 9
  2317.     local sx,sy=90,100
  2318.     local mouseactive=true
  2319.     PlayerMouse.Button1Down:connect(function()
  2320.         Admino.MouseDown = true
  2321.         if not mouseactive then return end
  2322.         local mus=Functions:Sound(341225236)
  2323.         mus.Pitch=3
  2324.         mus:Play()
  2325.     end)
  2326.     PlayerMouse.Button1Up:connect(function()
  2327.         Admino.MouseDown = false
  2328.         if not mouseactive then return end
  2329.         local mds=Functions:Sound(341225236)
  2330.         mds.Pitch=2.5
  2331.         mds:Play()
  2332.         local RelativeUi=MouseFrame
  2333.         local x,y=RelativeUi.Position.X.Offset,RelativeUi.Position.Y.Offset
  2334.         local Circ = Functions:MakeNewUi('ImageLabel')
  2335.         Circ.Image=Functions:Asset(284205403)
  2336.         Circ.Parent=MainFrame
  2337.         Circ.ImageTransparency=0
  2338.         Circ.ImageColor3 = CurrentPlayerData[4]
  2339.         Circ.Size=ud(0,5,0,5)
  2340.         local backx,backy=5,6
  2341.         Circ.Position=ud(0,x-backx,0,y-backy)
  2342.         Circ.ZIndex=10
  2343.         spawn(function()
  2344.             Circ:TweenSizeAndPosition(ud(0,sx,0,sy),ud(0,(x-backx)-(sx/2),0,(y-backy)-(sy/2)),'Out','Sine',1,true)
  2345.             for i = 0,1.05,.05 do
  2346.                 Circ.ImageTransparency=i
  2347.                 lrs:wait()
  2348.             end
  2349.             Circ:Destroy()
  2350.         end)
  2351.     end)
  2352.     MainFrame.MouseEnter:connect(function(x,y)
  2353.         mouseactive=true
  2354.         game:service'UserInputService'.MouseIconEnabled=false
  2355.     end)
  2356.     MainFrame.MouseLeave:connect(function(x,y)
  2357.         mouseactive=false
  2358.         game:service'UserInputService'.MouseIconEnabled=true
  2359.     end)
  2360.     --Functions:CreateLogin()
  2361.     Functions:MakeHomeScreen()
  2362. end
  2363.  
  2364. lrs:connect(function()
  2365.     Functions:Lerp(.2)
  2366. end)
  2367.  
  2368. Character.Humanoid.Died:connect(function()
  2369.     Monitor.Parent:Destroy()
  2370.     game:service'UserInputService'.MouseIconEnabled=true
  2371.     script:Destroy()
  2372. end)
  2373.  
  2374. CurrentPlayer.Chatted:connect(function(msg)
  2375.     if msg=='g/r' then
  2376.         Monitor:Destroy()
  2377.         game:service'UserInputService'.MouseIconEnabled=true
  2378.         script:Destroy()
  2379.     end
  2380. end)
  2381.  
  2382. local plrz=game:service'Players'
  2383.  
  2384. plrz.PlayerAdded:connect(function(Plr)
  2385.     Functions:PlayerImgNotification(Plr, 'join')
  2386. end)
  2387.  
  2388. plrz.PlayerRemoving:connect(function(Plr)
  2389.     Functions:PlayerImgNotification(Plr, 'rmv')
  2390. end)
  2391.  
  2392. Functions:Boot()
  2393.  
  2394. CurrentPlayer.Chatted:connect(function(msg)
  2395.     if msg:lower()=='!reboot' then
  2396.         Functions:Boot()
  2397.     elseif msg:lower():sub(0,#'!background') == '!background' then
  2398.         local id = msg:lower():sub(#'!background'+2)
  2399.         Admino.UIs['Background'][1].Image=Functions:Asset(tonumber(id))
  2400.     end
  2401. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!