Release Copy FX from item under mouse to selected items v1.01 (ReaTeam#453)

Select source FX by name from menu (if more then one).
Special Thanks to amagalma, https://forum.cockos.com/showthread.php?t=239556

Author: Edgemeal

Diff for: FX/edgemeal_Copy FX from item under mouse to selected items.lua

@@ -1,6 +1,9 @@
 -- @description Copy FX from item under mouse to selected items
 -- @author Edgemeal
--- @version 1.0
+-- @version 1.01
+-- @changelog
+--   Select source FX by name from menu (if more then one).
+--   Special Thanks to amagalma, https://forum.cockos.com/showthread.php?t=239556
 -- @link Forum Thread https://forum.cockos.com/showthread.php?t=239565
 -- @donation Donate https://www.paypal.me/Edgemeal
 -- @about See forum link.
@@ -11,21 +14,41 @@ function Main()
   if src_item == nil then return end
   local src_take = reaper.GetActiveTake(src_item)
   if src_take == nil then return end
-  if reaper.TakeFX_GetCount(src_take) == 0 then return end -- ignore if no source FX
-
+  local cnt = reaper.TakeFX_GetCount(src_take)
+  if cnt == 0 then return end -- abort if no source FX
   -- get source fx index
   local src_fx = 0
-  if reaper.TakeFX_GetCount(src_take) > 1 then -- more then one FX, ask user for source slot #
-    local retval, str = reaper.GetUserInputs("Copy Take FX", 1, "Copy source FX from slot #", "1")
-    if not retval then return end
-    src_fx = tonumber(str)-1
+  if cnt > 1 then -- more then one FX, let user select FX from menu
+    local x, y = reaper.GetMousePosition()
+    local FXs = {}  -- source fx names
+    for fx = 0, cnt-1 do
+      retval, name = reaper.TakeFX_GetFXName(src_take, fx, "")
+      FXs[fx+1] = {name = name}
+    end
+    local menu = "#Copy source FX:||"
+    for fx = 1, #FXs do
+      local space = "                "
+      space = space:sub( tostring(fx):len()*2 )
+      menu = menu .. (FXs[fx].act and "!" or "") ..fx .. space .. (FXs[fx].name == "" and "(unnamed)" or FXs[fx].name) .."|"
+    end
+    local title = "! Hidden window for menu !"
+    gfx.init( title, 0, 0, 0, 0, 0 )
+    local hwnd = reaper.JS_Window_FindTop( title, true )
+    local out = 0
+    if hwnd then
+      out = 7000
+      reaper.JS_Window_Move( hwnd, -out, -out )
+    end
+    gfx.x, gfx.y = x-52+out, y-70+out
+    src_fx = gfx.showmenu(menu)-2
+    gfx.quit()
     if src_fx < 0 then return end
   end
   -- set dest fx index from user
-  local retval, str = reaper.GetUserInputs("Paste Take FX", 1, "Paste to FX slot # (-1=last)", "-1")
+  local retval, str = reaper.GetUserInputs("Paste FX to selected items", 1, "Paste to FX slot # (-1 = last)", "-1")
   if not retval then return end
   local dest_fx = tonumber(str)
-  if dest_fx > 0 then  dest_fx=dest_fx-1 end
+  if dest_fx > 0 then dest_fx = dest_fx-1 end
   -- copy source fx to dest fx
   reaper.PreventUIRefresh(1)
   reaper.Undo_BeginBlock()
@@ -43,5 +66,9 @@ function Main()
   reaper.PreventUIRefresh(-1)
 end
 
-Main()
+if not reaper.APIExists('JS_Window_FindTop') then
+  reaper.MB('js_ReaScriptAPI extension is required for this script.', 'Missing API', 0)
+else
+  Main()
+end
 reaper.defer(function () end)