VAELOR EMOTE PANEL BY N0T_Z0RO100 [ UPDATED ]

 StarterGui = :()

 discord = 


 setclipboard 
    (()
        (discord)
    )



.(()
     i = ,  
         success = (()
            StarterGui:(, {
                Title = ,
                Text = ,
                Icon = ,
                Duration = 
            })

            StarterGui:(, {
                Title = ,
                Text = ,
                Duration = 
            })
        )

         success 
            
        

        .()
    
)



 UserInputService = :()
 Players = :()
 RunService = :()
 AvatarEditorService = :()
 HttpService = :()
 CoreGui = :()

 Screen = .CurrentCamera.ViewportSize
 isMobile = UserInputService.TouchEnabled   UserInputService.KeyboardEnabled


  (value)
     .(value * (Screen.Y / ) * (isMobile    ))


 player = Players.LocalPlayer
 character = player.Character  player.CharacterAdded:()
 humanoid = character:()
 lastPosition = character.PrimaryPart  character.PrimaryPart.Position  .()

player.CharacterAdded:((newCharacter)
    character = newCharacter
    humanoid = newCharacter:()
    lastPosition = character.PrimaryPart  character.PrimaryPart.Position  .()
)

 Settings = { Speed = , StopOnMove =  }
 savedEmotes = {}
 SAVE_FILE = 

  ()
    (()
         readfile  isfile  (SAVE_FILE) 
             data = HttpService:((SAVE_FILE))
             (data) ==   savedEmotes = data 
        
    )


  ()
    (()
         writefile  (SAVE_FILE, HttpService:(savedEmotes)) 
    )

()

 CurrentTrack = 
 loopConnection

  (id)
     CurrentTrack  CurrentTrack:() 
    
     animId
     ok, result = (()  :( .. (id)) )
     ok  result  #result >   result[]:() 
        animId = result[].AnimationId
    
        animId =  .. (id)
    
    
     newAnim = .()
    newAnim.AnimationId = animId
     newTrack = humanoid:(newAnim)
    newTrack.Priority = .AnimationPriority.Action4
    newTrack.Looped = 
    
     _, t  (humanoid.Animator:()) 
         t.Priority ~= .AnimationPriority.Action4  t:() 
    
    
    newTrack:(, , Settings.Speed)
    CurrentTrack = newTrack


loopConnection = RunService.RenderStepped:(()
     character  character:() 
         root = character.HumanoidRootPart
         Settings.StopOnMove  CurrentTrack  CurrentTrack.IsPlaying 
             moved = (root.Position - lastPosition).Magnitude > 
             jumped = humanoid  humanoid:() == .HumanoidStateType.Jumping
             moved  jumped 
                CurrentTrack:()
                CurrentTrack = 
            
        
        lastPosition = root.Position
    
)

 THEME = {
    MainBg = .(, , ),
    SecBg = .(, , ),
    TertBg = .(, , ),
    Accent = .(, , ),
    Text = .(, , ),
    SubText = .(, , ),
    Red = .(, , ),
    Green = .(, , )
}

 gui = .()
gui.Name = 
gui.Parent = CoreGui
gui.DisplayOrder = 
gui.ResetOnSpawn = 

 screonGui = .()
screonGui.Name = 
screonGui.Parent = gui
screonGui.ResetOnSpawn = 



 ClickSound = .()
ClickSound.SoundId = 
ClickSound.Volume = 
ClickSound.Parent = gui
  ()
    ClickSound:()

.(()
)

  (parent, radius)
     corner = .()
    corner.CornerRadius = .(, radius)
    corner.Parent = parent
     corner



 mainContainer = .()
mainContainer.Size = .(, (), , )
mainContainer.Position = .(, -(), , )
mainContainer.BackgroundColor3 = THEME.MainBg
mainContainer.Active = 
mainContainer.Draggable = 
mainContainer.Parent = gui
(mainContainer, )
.(, mainContainer).Color = THEME.Accent


 topBar = .()
topBar.Size = .(, , , ())
topBar.BackgroundColor3 = THEME.SecBg
topBar.Parent = mainContainer
(topBar, )

 title = .()
title.Size = .(, , , )
title.Position = .(, , , )
title.BackgroundTransparency = 
title.Text = 
title.TextColor3 = THEME.Text
title.Font = .Font.GothamBlack
title.TextScaled = 
title.TextXAlignment = .TextXAlignment.Left
title.Parent = topBar


 closeBtn = .()
closeBtn.Size = .(, (), , ())
closeBtn.Position = .(, -(), , -())
closeBtn.BackgroundColor3 = THEME.Red
closeBtn.Text = 
closeBtn.Font = .Font.GothamBold
closeBtn.TextColor3 = .(,,)
closeBtn.Parent = topBar
(closeBtn, )

 minBtn = .()
minBtn.Size = .(, (), , ())
minBtn.Position = .(, -(), , -())
minBtn.BackgroundColor3 = THEME.TertBg
minBtn.Text = 
minBtn.Font = .Font.GothamBold
minBtn.TextColor3 = .(,,)
minBtn.Parent = topBar
(minBtn, )


 confirmFrame = .()
confirmFrame.Size = .(, , , )
confirmFrame.BackgroundColor3 = .(, , )
confirmFrame.BackgroundTransparency = 
confirmFrame.Visible = 
confirmFrame.ZIndex = 
confirmFrame.Parent = mainContainer
(confirmFrame, )

 promptBox = .()
promptBox.Size = .(, , , )
promptBox.Position = .(, , , )
promptBox.BackgroundColor3 = THEME.SecBg
promptBox.ZIndex = 
promptBox.Parent = confirmFrame
(promptBox, )

 promptText = .()
promptText.Size = .(, , , )
promptText.BackgroundTransparency = 
promptText.Text = 
promptText.Font = .Font.GothamBold
promptText.TextColor3 = THEME.Text
promptText.TextScaled = 
promptText.ZIndex = 
promptText.Parent = promptBox

 yesBtn = .()
yesBtn.Size = .(, , , )
yesBtn.Position = .(, , , )
yesBtn.BackgroundColor3 = THEME.Red
yesBtn.Text = 
yesBtn.Font = .Font.GothamBold
yesBtn.TextColor3 = THEME.Text
yesBtn.TextScaled = 
yesBtn.ZIndex = 
yesBtn.Parent = promptBox
(yesBtn, )

 noBtn = .()
noBtn.Size = .(, , , )
noBtn.Position = .(, , , )
noBtn.BackgroundColor3 = THEME.TertBg
noBtn.Text = 
noBtn.Font = .Font.GothamBold
noBtn.TextColor3 = THEME.Text
noBtn.TextScaled = 
noBtn.ZIndex = 
noBtn.Parent = promptBox
(noBtn, )

closeBtn.MouseButton1Click:(() confirmFrame.Visible =  )
noBtn.MouseButton1Click:(() confirmFrame.Visible =  )
yesBtn.MouseButton1Click:(()
    
     CurrentTrack 
        CurrentTrack:()
        CurrentTrack:()
        CurrentTrack = 
    

    
     loopConnection 
        loopConnection:()
        loopConnection = 
    

    
    gui:()
    screonGui:()
)
minBtn.MouseButton1Click:(() mainContainer.Visible =  )


 catalogTabBtn = .()
catalogTabBtn.Size = .(, , , ())
catalogTabBtn.Position = .(, , , ())
catalogTabBtn.BackgroundColor3 = THEME.TertBg
catalogTabBtn.Text = 
catalogTabBtn.TextColor3 = THEME.Text
catalogTabBtn.Font = .Font.GothamBold
catalogTabBtn.TextScaled = 
catalogTabBtn.Parent = mainContainer
(catalogTabBtn, )

 savedTabBtn = .()
savedTabBtn.Size = .(, , , ())
savedTabBtn.Position = .(, , , ())
savedTabBtn.BackgroundColor3 = THEME.SecBg
savedTabBtn.Text = 
savedTabBtn.TextColor3 = THEME.Text
savedTabBtn.Font = .Font.GothamBold
savedTabBtn.TextScaled = 
savedTabBtn.Parent = mainContainer
(savedTabBtn, )


 catalogFrame = .()
catalogFrame.Size = .(, -, , -())
catalogFrame.Position = .(, , , ())
catalogFrame.BackgroundTransparency = 
catalogFrame.Parent = mainContainer

 savedFrame = .()
savedFrame.Size = .(, -, , -())
savedFrame.Position = .(, , , ())
savedFrame.BackgroundTransparency = 
savedFrame.Visible = 
savedFrame.Parent = mainContainer


 controlsRow = .()
controlsRow.Size = .(, , , ())
controlsRow.BackgroundTransparency = 
controlsRow.Parent = catalogFrame

 controlsLayout = .()
controlsLayout.FillDirection = .FillDirection.Horizontal
controlsLayout.SortOrder = .SortOrder.LayoutOrder
controlsLayout.Padding = .(, ())
controlsLayout.Parent = controlsRow

 searchBox = .()
searchBox.Size = .(, , , )
searchBox.LayoutOrder = 
searchBox.PlaceholderText = 
searchBox.BackgroundColor3 = THEME.SecBg
searchBox.TextColor3 = THEME.Text
searchBox.PlaceholderColor3 = THEME.SubText
searchBox.Font = .Font.Gotham
searchBox.TextScaled = 
searchBox.Parent = controlsRow
(searchBox, )

 sortBtn = .()
sortBtn.Size = .(, , , )
sortBtn.LayoutOrder = 
sortBtn.BackgroundColor3 = THEME.TertBg
sortBtn.Text = 
sortBtn.Font = .Font.GothamBold
sortBtn.TextColor3 = THEME.Text
sortBtn.TextScaled = 
sortBtn.Parent = controlsRow
(sortBtn, )

 toggleBtnUI = .()
toggleBtnUI.Size = .(, , , )
toggleBtnUI.LayoutOrder = 
toggleBtnUI.BackgroundColor3 = THEME.Green
toggleBtnUI.Text = 
toggleBtnUI.Font = .Font.GothamBold
toggleBtnUI.TextColor3 = .(,,)
toggleBtnUI.TextScaled = 
toggleBtnUI.Parent = controlsRow
(toggleBtnUI, )

 speedBox = .()
speedBox.Size = .(, , , )
speedBox.LayoutOrder = 
speedBox.BackgroundColor3 = THEME.SecBg
speedBox.TextColor3 = THEME.Text
speedBox.Text = 
speedBox.Font = .Font.GothamBold
speedBox.TextScaled = 
speedBox.Parent = controlsRow
(speedBox, )


 sortDropdown = .()
sortDropdown.Size = .(, , , ())
sortDropdown.Position = .(, (), , ())
sortDropdown.BackgroundColor3 = THEME.SecBg
sortDropdown.Visible = 
sortDropdown.ZIndex = 
sortDropdown.Parent = catalogFrame
(sortDropdown, )

 sortDropdownLayout = .()
sortDropdownLayout.FillDirection = .FillDirection.Vertical
sortDropdownLayout.SortOrder = .SortOrder.LayoutOrder
sortDropdownLayout.Parent = sortDropdown

  (enumObj, name1, name2, fallback)
     ok, val = (()  enumObj[name1] )
     ok  val   val 
    ok, val = (()  enumObj[name2] )
     (ok  val)  val  fallback


 SortModes = {
    {Name = ,  = .CatalogSortType.Relevance},
    {Name = ,  = (.CatalogSortType, , , .CatalogSortType.Relevance)},
    {Name = ,  = .CatalogSortType.RecentlyCreated},
    {Name = ,  = (.CatalogSortType, , , .CatalogSortType.Relevance)},
    {Name = ,  = .CatalogSortType.PriceHighToLow},
    {Name = ,  = .CatalogSortType.Relevance} 
}

 currentSortOption = SortModes[]
 doNewSearch 

 i, mode  (SortModes) 
     btn = .()
    btn.Size = .(, , , ())
    btn.BackgroundColor3 = (i %  == )  THEME.TertBg  THEME.SecBg
    btn.Text = mode.Name
    btn.Font = .Font.GothamBold
    btn.TextColor3 = THEME.Text
    btn.TextScaled = 
    btn.ZIndex = 
    btn.Parent = sortDropdown
    
    btn.MouseButton1Click:(()
        currentSortOption = mode
        sortBtn.Text = mode.Name .. 
        sortDropdown.Visible = 
        (searchBox.Text)
    )


sortBtn.MouseButton1Click:(()
    sortDropdown.Visible =  sortDropdown.Visible
)

toggleBtnUI.MouseButton1Click:(()
    Settings.StopOnMove =  Settings.StopOnMove
    toggleBtnUI.Text = Settings.StopOnMove    
    toggleBtnUI.BackgroundColor3 = Settings.StopOnMove  THEME.Green  THEME.Red
)

speedBox.FocusLost:(()
     val = .(speedBox.Text, )
     num = (val)
     num  
        Settings.Speed = .(num, , ) 
         CurrentTrack  CurrentTrack.IsPlaying  CurrentTrack:(Settings.Speed) 
    
    speedBox.Text = (Settings.Speed) .. 
)


  (scrollFrame)
     layout = .()
    layout.CellSize = .(, , , ())
    layout.CellPadding = .(, , , ())
    layout.FillDirectionMaxCells = 
    layout.HorizontalAlignment = .HorizontalAlignment.Center
    layout.Parent = scrollFrame
     layout


 catalogScroll = .()
catalogScroll.Size = .(, , , -())
catalogScroll.Position = .(, , , ())
catalogScroll.ScrollBarThickness = 
catalogScroll.BackgroundTransparency = 
catalogScroll.ZIndex = 
catalogScroll.Parent = catalogFrame
 catLayout = (catalogScroll)

 savedScroll = .()
savedScroll.Size = .(, , , )
savedScroll.ScrollBarThickness = 
savedScroll.BackgroundTransparency = 
savedScroll.Parent = savedFrame
 savLayout = (savedScroll)


 pageRow = .()
pageRow.Size = .(, , , ())
pageRow.Position = .(, , , -())
pageRow.BackgroundTransparency = 
pageRow.Parent = catalogFrame

 prevBtn = .(, pageRow)
prevBtn.Size = .(, , , )
prevBtn.BackgroundColor3 = THEME.TertBg
prevBtn.Text = 
prevBtn.Font = .Font.GothamBold
prevBtn.TextColor3 = THEME.Text
prevBtn.TextScaled = 
(prevBtn, )

 nextBtn = .(, pageRow)
nextBtn.Size = .(, , , )
nextBtn.Position = .(, , , )
nextBtn.BackgroundColor3 = THEME.TertBg
nextBtn.Text = 
nextBtn.Font = .Font.GothamBold
nextBtn.TextColor3 = THEME.Text
nextBtn.TextScaled = 
(nextBtn, )

 pageLabel = .(, pageRow)
pageLabel.Size = .(, , , )
pageLabel.Position = .(, , , )
pageLabel.BackgroundTransparency = 
pageLabel.Text = 
pageLabel.Font = .Font.GothamBold
pageLabel.TextColor3 = THEME.Text
pageLabel.TextScaled = 


 currentKeyword, currentPages = , 
 currentPageNumber = 
 isLoading = 
 searchDebounce
 seenNames = {}

  (keyword)
     params = CatalogSearchParams.()
    params.SearchKeyword = keyword  
    params.AssetTypes = { .AvatarAssetType.EmoteAnimation }
    params.SortType = currentSortOption.Enum
    params.Limit = 
    
     ok, pages = (()  AvatarEditorService:(params) )
     ok  pages  


  (item, isSavedTab)
     card = .()
    card.BackgroundColor3 = THEME.SecBg
    (card, )
    
     img = .()
    img.Size = .(, -, , ())
    img.Position = .(, , , )
    img.BackgroundTransparency = 
    img.ScaleType = .ScaleType.Fit
    (() img.Image =  .. (item.AssetId  item.Id) ..  )
    img.Parent = card
    
     name = .()
    name.Size = .(, -, , ())
    name.Position = .(, , , ())
    name.BackgroundTransparency = 
    name.Text = item.Name  
    name.TextScaled = 
    name.Font = .Font.GothamBold
    name.TextColor3 = THEME.Text
    name.Parent = card

     actionBtn = .()
    actionBtn.Size = .(, , , ())
    actionBtn.Position = .(, , , -())
    actionBtn.BackgroundColor3 = THEME.Green
    actionBtn.Text = 
    actionBtn.Font = .Font.GothamBold
    actionBtn.TextColor3 = THEME.Text
    actionBtn.TextScaled = 
    actionBtn.Parent = card
    (actionBtn, )
    actionBtn.MouseButton1Click:(() (item.AssetId  item.Id) )

     secBtn = .()
    secBtn.Size = .(, , , ())
    secBtn.Position = .(, , , -())
    secBtn.Font = .Font.GothamBold
    secBtn.TextColor3 = THEME.Text
    secBtn.TextScaled = 
    secBtn.Parent = card
    (secBtn, )

     isSavedTab 
        secBtn.BackgroundColor3 = THEME.Red
        secBtn.Text = 
        secBtn.MouseButton1Click:(()
             i, v  (savedEmotes) 
                 v.Id == item.Id  .(savedEmotes, i);  
            
            ()
            card:()
            savedScroll.CanvasSize = .(, , , savLayout.AbsoluteContentSize.Y + )
        )
    
        secBtn.BackgroundColor3 = THEME.Accent
        secBtn.Text = 
        secBtn.MouseButton1Click:(()
             _, v  (savedEmotes)   v.Id == item.Id    
            .(savedEmotes, { Id = item.Id, AssetId = item.AssetId  item.Id, Name = item.Name })
            ()
            secBtn.Text = 
            .(, () secBtn.Text =  )
        )
    
     card


  (pages)
     isLoading   pages   
    isLoading = 
     _, child  (catalogScroll:()) 
         child:()  child:() 
    

     ok, currentList = (()  pages:() )
     ok  currentList  #currentList >  
        
        
         currentSortOption.Name ==  
             i = #currentList, , - 
                 j = .(i)
                currentList[i], currentList[j] = currentList[j], currentList[i]
            
        

         itemsAdded = 
         _, item  (currentList) 
             itemNameLower = .(item.Name  )
            
            
            
            
              seenNames[itemNameLower] 
                seenNames[itemNameLower] = 
                (item, ).Parent = catalogScroll
                itemsAdded += 
            
        
        
         itemsAdded ==    pages.IsFinished 
            (() pages:() )
            currentPageNumber += 
            isLoading = 
             (pages)
        
    

    catalogScroll.CanvasSize = .(, , , catLayout.AbsoluteContentSize.Y + )
    pageLabel.Text =  .. currentPageNumber
    prevBtn.Visible = (currentPageNumber > )
    nextBtn.Visible =  pages.IsFinished
    isLoading = 


doNewSearch = (keyword)
    currentKeyword = keyword
    currentPageNumber = 
    seenNames = {} 
    currentPages = (currentKeyword)
    (currentPages)



searchBox:():(()
     searchDebounce  .(searchDebounce) 
    searchDebounce = .(, ()
        (searchBox.Text)
    )
)

nextBtn.MouseButton1Click:(()
     currentPages   currentPages.IsFinished 
        (() currentPages:() )
        currentPageNumber += 
        (currentPages)
    
)

prevBtn.MouseButton1Click:(()
     currentPages  currentPageNumber >  
        currentPageNumber -= 
         fresh = (currentKeyword)
         fresh 
             i = , currentPageNumber  fresh:() 
            currentPages = fresh
            (currentPages)
        
    
)


  ()
     _, child  (savedScroll:())   child:()  child:()  
     _, item  (savedEmotes)  (item, ).Parent = savedScroll 
    savedScroll.CanvasSize = .(, , , savLayout.AbsoluteContentSize.Y + )


catalogTabBtn.MouseButton1Click:(()
    catalogFrame.Visible = ; savedFrame.Visible = 
    catalogTabBtn.BackgroundColor3 = THEME.TertBg; savedTabBtn.BackgroundColor3 = THEME.SecBg
)

savedTabBtn.MouseButton1Click:(()
    catalogFrame.Visible = ; savedFrame.Visible = 
    catalogTabBtn.BackgroundColor3 = THEME.SecBg; savedTabBtn.BackgroundColor3 = THEME.TertBg
    ()
)


 toggleBtn = .()
toggleBtn.Parent = screonGui
toggleBtn.Text = 
toggleBtn.Font = .Font.GothamBlack
toggleBtn.TextColor3 = THEME.Text
toggleBtn.TextScaled = 
toggleBtn.BackgroundColor3 = THEME.SecBg
toggleBtn.Size = .(, (), , ())
toggleBtn.Position = .(, , , )
toggleBtn.AnchorPoint = .(, )
(toggleBtn, ())

 dragInput, dragStart, startPos, dragging
toggleBtn.InputBegan:((input)
     input.UserInputType == .UserInputType.MouseButton1  input.UserInputType == .UserInputType.Touch 
        dragging, dragStart, startPos = , input.Position, toggleBtn.Position
        input.Changed:(()  input.UserInputState == .UserInputState.End  dragging =   )
    
)

toggleBtn.InputChanged:((input)
     input.UserInputType == .UserInputType.MouseMovement  input.UserInputType == .UserInputType.Touch  dragInput = input 
)

UserInputService.InputChanged:((input)
     input == dragInput  dragging 
         delta = input.Position - dragStart
        toggleBtn.Position = .(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    
)

 clickTick = 
toggleBtn.MouseButton1Down:(() clickTick = () )
toggleBtn.MouseButton1Up:(() 
     () - clickTick <   mainContainer.Visible =  mainContainer.Visible  
)

.(() () )