SlidingGui

local debounce = 0  --- this means the gui is closed
local menu = script.Parent.Parent.ImageLabel  -- quick way to reference the menu gui

script.Parent.MouseButton1Click:connect(function()

if debounce == 0 then -- checks if the menu is closed
 debounce = 1 -- this means the menu is in process of sliding

   for i = 1,10 do
 wait(0.02)
 menu.Position = menu.Position + UDim2.new(0.02,0, 0,0)  -- this moves the gui
   end
   debounce = 2 -- this means the menu is open

elseif debounce == 2 then -- checks if the menu is open
 debounce = 1 -- this means the menu is in process of sliding

 for i = 1,10 do
  wait(0.02)
 menu.Position = menu.Position - UDim2.new(0.02,0, 0,0)  -- this moves the gui
    end
    debounce = 0 -- this means the menu is closed

 end
end)