YURI TOOLBOX STUDIO LITE

 CoreGui = :()
 HttpService = :()
 UserInputService = :()
 TweenService = :()
 SoundService = :()
 Players = :()




 HOSTS = { ,  } 
 CATEGORIES = {
    Models = { id = , label =  },
    Decals = { id = , label =  },
    Audios = { id = ,  label =  },
}
 RED = .(, , )
 BG = .(, , )
 BG2 = .(, , )
 BG3 = .(, , )




  ()
     ok, h = (()  gethui  () )
     ok  h   h 
     CoreGui


 parentGui = ()
 _, p  ({ CoreGui, parentGui }) 
     old = p:()
     old  old:() 


 Gui = .()
Gui.Name = 
Gui.ResetOnSpawn = 
Gui.ZIndexBehavior = .ZIndexBehavior.Sibling
Gui.Parent = parentGui




  (url)
     ok, res = (()
         fn = (  .request)      (  .request)
         fn 
             r = ({ Url = url, Method = , Headers = { [] =  } })
             r.StatusCode  r.StatusCode ~=  
                ( .. (r.StatusCode))
            
             r.Body
        
         :(url)
    )
     ok, res


  (path)
     lastErr = 
     _, host  (HOSTS) 
         ok, body = ( .. host .. path)
         ok  body  body ~=  
             okJson, data = (()  HttpService:(body) )
             okJson  (data) ==  
                 data
            
            lastErr = 
        
            lastErr = (body)
        
    
     , lastErr





  (obj, r)
     c = .()
    c.CornerRadius = .(, r  )
    c.Parent = obj
     c


  (obj, color, th)
     s = .()
    s.Color = color  RED
    s.Thickness = th  
    s.ApplyStrokeMode = .ApplyStrokeMode.Border
    s.Parent = obj
     s


  (parent, text, color, size, pos)
     b = .()
    b.Size = size
    b.Position = pos  .()
    b.BackgroundColor3 = color
    b.TextColor3 = .(, , )
    b.Text = text
    b.Font = .Font.GothamBold
    b.TextSize = 
    b.AutoButtonColor = 
    b.Parent = parent
    (b, )
     base = color
    b.MouseEnter:(()
        TweenService:(b, TweenInfo.(), { BackgroundColor3 = base:(.(, , ), ) }):()
    )
    b.MouseLeave:(()
        TweenService:(b, TweenInfo.(), { BackgroundColor3 = base }):()
    )
     b


  (handle, frame)
     dragging, dragStart, startPos
    handle.InputBegan:((input)
         input.UserInputType == .UserInputType.MouseButton1  input.UserInputType == .UserInputType.Touch 
            dragging = 
            dragStart = input.Position
            startPos = frame.Position
            input.Changed:(()
                 input.UserInputState == .UserInputState.End  dragging =  
            )
        
    )
    UserInputService.InputChanged:((input)
         dragging  (input.UserInputType == .UserInputType.MouseMovement  input.UserInputType == .UserInputType.Touch) 
             d = input.Position - dragStart
            frame.Position = .(startPos.X.Scale, startPos.X.Offset + d.X, startPos.Y.Scale, startPos.Y.Offset + d.Y)
        
    )





 OpenBtn = .()
OpenBtn.Size = .(, , , )
OpenBtn.Position = .(, , , -)
OpenBtn.BackgroundColor3 = .(, , )
OpenBtn.Image = 
OpenBtn.Parent = Gui
(OpenBtn, )
(OpenBtn, RED, )
(OpenBtn, OpenBtn)




 MainFrame = .()
MainFrame.Size = .(, , , )
MainFrame.Position = .(, -, , -)
MainFrame.BackgroundColor3 = BG
MainFrame.Visible = 
MainFrame.ClipsDescendants = 
MainFrame.Parent = Gui
(MainFrame, )
(MainFrame, RED, )



     cam = .CurrentCamera
     cam 
         vp = cam.ViewportSize
         scale = .(, (vp.Y - ) / , (vp.X - ) / )
         scale <  
             us = .()
            us.Scale = .(scale, )
            us.Parent = MainFrame
        
    


OpenBtn.MouseButton1Click:(() MainFrame.Visible =  MainFrame.Visible )


 TopBar = .()
TopBar.Size = .(, , , )
TopBar.BackgroundColor3 = .(, , )
TopBar.Parent = MainFrame
(TopBar, MainFrame)

 Title = .()
Title.Size = .(, -, , )
Title.Position = .(, , , )
Title.BackgroundTransparency = 
Title.Text = 
Title.TextColor3 = RED
Title.Font = .Font.GothamBold
Title.TextSize = 
Title.TextXAlignment = .TextXAlignment.Left
Title.Parent = TopBar

 CloseBtn = (TopBar, , .(, , ), .(, , , ), .(, -, , ))
 MinBtn = (TopBar, , BG3, .(, , , ), .(, -, , ))

CloseBtn.MouseButton1Click:(() MainFrame.Visible =  )


 Body = .()
Body.Size = .(, , , -)
Body.Position = .(, , , )
Body.BackgroundTransparency = 
Body.Parent = MainFrame

 minimized = 
MinBtn.MouseButton1Click:(()
    minimized =  minimized
    Body.Visible =  minimized
    MainFrame.Size = minimized  .(, , , )  .(, , , )
)


 SearchBox = .()
SearchBox.Size = .(, -, , )
SearchBox.Position = .(, , , )
SearchBox.BackgroundColor3 = BG2
SearchBox.TextColor3 = .(, , )
SearchBox.PlaceholderText = 
SearchBox.PlaceholderColor3 = .(, , )
SearchBox.Font = .Font.Gotham
SearchBox.TextSize = 
SearchBox.Text = 
SearchBox.ClearTextOnFocus = 
SearchBox.Parent = Body
(SearchBox, )
(SearchBox, .(, , ), )

 SearchBtn = (Body, , RED, .(, , , ), .(, -, , ))
SearchBtn.TextSize = 


 Tabs = .()
Tabs.Size = .(, -, , )
Tabs.Position = .(, , , )
Tabs.BackgroundTransparency = 
Tabs.Parent = Body

 TabLayout = .()
TabLayout.FillDirection = .FillDirection.Horizontal
TabLayout.Padding = .(, )
TabLayout.Parent = Tabs

 currentCategory = 
 tabButtons = {}

  (key, txt)
     b = (Tabs, txt, BG3, .( / , -, , ))
    tabButtons[key] = b
     b


(, )
(, )
(, )

  ()
     key, b  (tabButtons) 
        b.BackgroundColor3 = (key == currentCategory)  RED  BG3
    

()


 Scroll = .()
Scroll.Size = .(, -, , )
Scroll.Position = .(, , , )
Scroll.BackgroundColor3 = .(, , )
Scroll.BorderSizePixel = 
Scroll.ScrollBarThickness = 
Scroll.ScrollBarImageColor3 = RED
Scroll.AutomaticCanvasSize = .AutomaticSize.Y
Scroll.CanvasSize = .()
Scroll.Parent = Body
(Scroll, )

 Pad = .()
Pad.PaddingTop = .(, )
Pad.PaddingLeft = .(, )
Pad.PaddingRight = .(, )
Pad.PaddingBottom = .(, )
Pad.Parent = Scroll

 Grid = .()
Grid.CellSize = .(, , , )
Grid.CellPadding = .(, , , )
Grid.SortOrder = .SortOrder.LayoutOrder
Grid.Parent = Scroll


 StatusLbl = .()
StatusLbl.Size = .(, -, , )
StatusLbl.Position = .(, , , )
StatusLbl.BackgroundTransparency = 
StatusLbl.TextColor3 = .(, , )
StatusLbl.Font = .Font.Gotham
StatusLbl.TextSize = 
StatusLbl.TextWrapped = 
StatusLbl.TextXAlignment = .TextXAlignment.Left
StatusLbl.Text = 
StatusLbl.Parent = Body

 LoadMoreBtn = (Body, , BG3, .(, , , ), .(, -, , ))
LoadMoreBtn.Visible = 

  (txt, color)
    StatusLbl.Text = txt
    StatusLbl.TextColor3 = color  .(, , )



 Inspector = .()
Inspector.Size = .(, -, , )
Inspector.Position = .(, , , )
Inspector.BackgroundColor3 = .(, , )
Inspector.Parent = Body
(Inspector, )
(Inspector, RED, )

 InspThumb = .()
InspThumb.Size = .(, , , )
InspThumb.Position = .(, , , )
InspThumb.BackgroundColor3 = BG
InspThumb.Parent = Inspector
(InspThumb, )

 InspName = .()
InspName.Size = .(, -, , )
InspName.Position = .(, , , )
InspName.BackgroundTransparency = 
InspName.Text = 
InspName.TextColor3 = .(, , )
InspName.Font = .Font.GothamBold
InspName.TextSize = 
InspName.TextXAlignment = .TextXAlignment.Left
InspName.TextTruncate = .TextTruncate.AtEnd
InspName.Parent = Inspector

 InspInfo = .()
InspInfo.Size = .(, -, , )
InspInfo.Position = .(, , , )
InspInfo.BackgroundTransparency = 
InspInfo.Text = 
InspInfo.TextColor3 = .(, , )
InspInfo.Font = .Font.Gotham
InspInfo.TextSize = 
InspInfo.TextXAlignment = .TextXAlignment.Left
InspInfo.TextYAlignment = .TextYAlignment.Top
InspInfo.Parent = Inspector

 BtnRow = .()
BtnRow.Size = .(, -, , )
BtnRow.Position = .(, , , )
BtnRow.BackgroundTransparency = 
BtnRow.Parent = Inspector

 RowLayout = .()
RowLayout.FillDirection = .FillDirection.Horizontal
RowLayout.Padding = .(, )
RowLayout.Parent = BtnRow

 InsertBtn = (BtnRow, , .(, , ), .(, -, , ))
 CopyBtn = (BtnRow, , .(, , ), .(, -, , ))
 PlayBtn = (BtnRow, , .(, , ), .(, -, , ))
 UndoBtn = (BtnRow, , .(, , ), .(, -, , ))




 SelectedAsset = 
 SelectedCard = 
 inserted = {}
 previewSound = .()
previewSound.Name = 
previewSound.Volume = 
previewSound.Parent = SoundService

  (btn, txt, original)
    btn.Text = txt
    .(, ()
         btn  btn.Parent  btn.Text = original 
    )





CopyBtn.MouseButton1Click:(()
      SelectedAsset   (, .(, , )) 
     id = (SelectedAsset.id)
     ok = (()
         setclipboard  (id)
         toclipboard  (id)
         Clipboard  Clipboard.set  Clipboard.(id)
         () 
    )
     ok 
        (CopyBtn, , )
        ( .. id .. , .(, , ))
    
        ( .. id, .(, , ))
    
)

PlayBtn.MouseButton1Click:(()
      SelectedAsset   (, .(, , )) 
     SelectedAsset.type ~=  
         (, .(, , ))
    
     sid =  .. SelectedAsset.id
     previewSound.IsPlaying  previewSound.SoundId == sid 
        previewSound:()
        PlayBtn.Text = 
    
        previewSound:()
        previewSound.SoundId = sid
        previewSound.TimePosition = 
        previewSound:()
        PlayBtn.Text = 
        ( .. SelectedAsset.name, .(, , ))
    
)

previewSound.Ended:(() PlayBtn.Text =  )
previewSound.Stopped:(() PlayBtn.Text =  )

  (obj)
     char = Players.LocalPlayer  Players.LocalPlayer.Character
     root = char  char:()
     root  (obj:()  obj:()) 
        (() obj:(root.CFrame * .(, , -)) )
    


InsertBtn.MouseButton1Click:(()
      SelectedAsset   (, .(, , )) 
     id, atype, name = SelectedAsset.id, SelectedAsset.type, SelectedAsset.name

     ok, err = (()
         atype ==  
             snd = .()
            snd.SoundId =  .. id
            snd.Name = name
            snd.Parent = 
            .(inserted, snd)
         atype ==  
             part = .()
            part.Name = name
            part.Size = .(, , )
            part.Anchored = 
             d = .()
            d.Texture =  .. id
            d.Face = .NormalId.Front
            d.Parent = part
            part.Parent = 
            (part)
            .(inserted, part)
        
             objs = :( .. id)
             _, o  (objs) 
                o.Parent = 
                (o)
                .(inserted, o)
            
        
    )

     ok 
        (InsertBtn, , )
        ( .. name, .(, , ))
    
        ( .. (err), .(, , ))
    
)

UndoBtn.MouseButton1Click:(()
     last = .(inserted)
     last 
        (() last:() )
        (, .(, , ))
    
        (, .(, , ))
    
)




 currentQuery = 
 currentCursor = 
 isFetching = 

  (card, thumbImage, id, name, typeStr, hasImage)
     SelectedCard  SelectedCard.Parent 
         st = SelectedCard:()
         st  st.Color = .(, , ) 
    
    SelectedCard = card
     st = card:()
     st  st.Color = RED 

    SelectedAsset = { id = id, name = name,  = typeStr }
    InspThumb.Image = hasImage  thumbImage  
    InspName.Text = name
    InspInfo.Text =  .. typeStr ..  .. (id)


  (id, name, typeStr)
     Card = .()
    Card.BackgroundColor3 = BG2
    Card.Parent = Scroll
    (Card, )
    (Card, .(, , ), )

     thumbImg =  .. id .. 
     isAudio = (typeStr == )

     Thumb = .()
    Thumb.Size = .(, -, , )
    Thumb.Position = .(, , , )
    Thumb.BackgroundColor3 = BG
    Thumb.Image = isAudio    thumbImg
    Thumb.ScaleType = .ScaleType.Fit
    Thumb.Parent = Card
    (Thumb, )

     isAudio 
         ic = .()
        ic.Size = .(, , , )
        ic.BackgroundTransparency = 
        ic.Text = 
        ic.TextSize = 
        ic.Parent = Thumb
    

     NameLbl = .()
    NameLbl.Size = .(, -, , )
    NameLbl.Position = .(, , , )
    NameLbl.BackgroundTransparency = 
    NameLbl.Text = name
    NameLbl.TextColor3 = .(, , )
    NameLbl.Font = .Font.Gotham
    NameLbl.TextSize = 
    NameLbl.TextWrapped = 
    NameLbl.TextTruncate = .TextTruncate.AtEnd
    NameLbl.TextYAlignment = .TextYAlignment.Top
    NameLbl.Parent = Card

     Click = .()
    Click.Size = .(, , , )
    Click.BackgroundTransparency = 
    Click.Text = 
    Click.ZIndex = 
    Click.Parent = Card

    Click.MouseButton1Click:(()
        (Card, thumbImg, id, name, typeStr,  isAudio)
    )


  ()
     _, c  (Scroll:()) 
         c:()  c:() 
    
    SelectedCard = 
    Scroll.CanvasPosition = .(, )


  (query, append)
     isFetching   
    query = (query  ):(, ):(, )
     query ==  
         (, .(, , ))
    

    isFetching = 
    currentQuery = query

     cat = CATEGORIES[currentCategory]
      append 
        ()
        currentCursor = 
    

    SearchBtn.Text = 
    LoadMoreBtn.Visible = 
    (, .(, , ))

    .(()
         path =  .. cat.id
            ..  .. HttpService:(query)
            .. 
         currentCursor ~=  
            path = path ..  .. HttpService:(currentCursor)
        

         data, err = (path)

         data  (data.data) ==  
             ids = {}
             _, item  (data.data) 
                 id = item.id  (item.asset  item.asset.id)
                 id  .(ids, id) 
            

             #ids ==  
                ( .. query, .(, , ))
            
                
                 names = {}
                 details = ( .. .(ids, ))
                 details  (details.data) ==  
                     _, d  (details.data) 
                         d.asset  d.asset.id 
                            names[d.asset.id] = d.asset.name
                        
                    
                

                 _, id  (ids) 
                    (id, names[id]  ( .. id), cat.label)
                
                (#ids .. , .(, , ))
            

            currentCursor = data.nextPageCursor  
            LoadMoreBtn.Visible = (currentCursor ~= )
        
            ( .. (err  ), .(, , ))
        

        SearchBtn.Text = 
        isFetching = 
    )





SearchBtn.MouseButton1Click:(() (SearchBox.Text, ) )
SearchBox.FocusLost:((enter)  enter  (SearchBox.Text, )  )
LoadMoreBtn.MouseButton1Click:(()
     currentCursor ~=   (currentQuery, ) 
)

 key, btn  (tabButtons) 
    btn.MouseButton1Click:(()
        currentCategory = key
        ()
         SearchBox.Text ~=   (SearchBox.Text, ) 
    )