From 1126a1497799dfd234a31347bbb6aab7dde9b850 Mon Sep 17 00:00:00 2001
From: 1496jun <junyaishi96@gmail.com>
Date: Mon, 26 May 2025 23:13:34 +0900
Subject: [PATCH] Release Change Region Length v1.0

---
 .../junishiscripts_Change Region Length.lua   | 67 +++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 Regions/junishiscripts_Change Region Length.lua

diff --git a/Regions/junishiscripts_Change Region Length.lua b/Regions/junishiscripts_Change Region Length.lua
new file mode 100644
index 000000000..32ac6db64
--- /dev/null
+++ b/Regions/junishiscripts_Change Region Length.lua	
@@ -0,0 +1,67 @@
+-- @description Change Region Length
+-- @author Junishi Scripts
+-- @version 1.0
+-- @about
+--   This REAPER Lua script allows you to **extend or shorten the length of regions** within the currently selected time range by a user-specified number of seconds.  
+--   It is especially useful for batch editing multiple regions without manually adjusting each one.
+--
+--   ### Features
+--   - Simple GUI input to enter the number of seconds (positive to extend, negative to shorten)
+--   - Only affects regions entirely within the current time selection
+--   - Automatically skips regions that would become zero or negative in length
+--
+--   ### Usage
+--   1. Select a time range in REAPER where the target regions are located.
+--   2. Run the script.
+--   3. Enter the number of seconds to extend or shorten.
+--   4. The script adjusts the length of all regions within the selected time range accordingly.
+
+-- @description My Script
+-- @version 1.0
+-- @author 1496jun
+-- @changelog
+--   Initial release
+-- @provides
+--   [main] Scripts/ChangeRegionLength.lua
+
+
+
+
+-- Prompt user to input seconds in GUI
+local ret, user_input = reaper.GetUserInputs("Change Region Length", 1, "Seconds to extend/shorten (e.g. 2, -1.5)", "")
+
+if not ret then return end
+
+local delta = tonumber(user_input)
+if not delta then
+    reaper.ShowMessageBox("Invalid number input.", "Error", 0)
+    return
+end
+
+-- Begin undo block
+reaper.Undo_BeginBlock()
+
+-- Get time selection
+local timeSelStart, timeSelEnd = reaper.GetSet_LoopTimeRange(false, false, 0, 0, false)
+
+-- Scan project markers and regions
+local numMarkers, numRegions = reaper.CountProjectMarkers(0)
+
+local count_changed = 0
+
+for i = 0, numMarkers + numRegions - 1 do
+    local retval, isrgn, pos, rgnend, name, markrgnindexnumber, color = reaper.EnumProjectMarkers3(0, i)
+    if isrgn and pos >= timeSelStart and rgnend <= timeSelEnd then
+        local newEnd = rgnend + delta
+        if newEnd > pos then
+            reaper.SetProjectMarkerByIndex(0, i, true, pos, newEnd, markrgnindexnumber, name, color)
+            count_changed = count_changed + 1
+        else
+            reaper.ShowMessageBox("Skipped region due to non-positive length: " .. name, "Warning", 0)
+        end
+    end
+end
+
+reaper.Undo_EndBlock("Changed Region Lengths (" .. count_changed .. " modified)", -1)
+reaper.UpdateArrange()
+