Allow scrolling script action argument

Author: Rampastring

src/TSMapEditor/UI/Windows/ScriptsWindow.cs

@@ -118,6 +118,7 @@ public override void Initialize()
 
             tbName.TextChanged += TbName_TextChanged;
             tbParameterValue.TextChanged += TbParameterValue_TextChanged;
+            tbParameterValue.MouseScrolled += TbParameterValue_MouseScrolled;
             lbScriptTypes.SelectedIndexChanged += LbScriptTypes_SelectedIndexChanged;
             lbActions.SelectedIndexChanged += LbActions_SelectedIndexChanged;
 
@@ -484,6 +485,23 @@ private void TbParameterValue_TextChanged(object sender, EventArgs e)
             lbActions.SelectedItem.Text = GetActionEntryText(lbActions.SelectedIndex, entry);
         }
 
+        private void TbParameterValue_MouseScrolled(object sender, InputEventArgs e)
+        {
+            e.Handled = true;
+
+            if (lbActions.SelectedItem == null || editedScript == null)
+                return;
+
+            ScriptActionEntry entry = editedScript.Actions[lbActions.SelectedIndex];
+            entry.Argument = Cursor.ScrollWheelValue > 0 ? entry.Argument - 1 : entry.Argument + 1;
+            lbActions.SelectedItem.Text = GetActionEntryText(lbActions.SelectedIndex, entry);
+
+            tbParameterValue.TextChanged -= TbParameterValue_TextChanged;
+            ScriptAction action = map.EditorConfig.ScriptActions.GetValueOrDefault(entry.Action);
+            SetParameterEntryText(entry, action);
+            tbParameterValue.TextChanged += TbParameterValue_TextChanged;
+        }
+
         private void ContextMenu_OptionSelected(object sender, ContextMenuItemSelectedEventArgs e)
         {
             if (lbActions.SelectedItem == null || editedScript == null)
@@ -706,6 +724,12 @@ private void SetParameterEntryText(ScriptActionEntry scriptActionEntry, ScriptAc
 
                 return;
             }
+            else if (action.ParamType == TriggerParamType.LocalVariable)
+            {
+                LocalVariable localVariable = map.LocalVariables.Find(lv => lv.Index == scriptActionEntry.Argument);
+                if (localVariable != null)
+                    tbParameterValue.Text = localVariable.Index + " - " + localVariable.Name;
+            }
 
             int presetIndex = action.PresetOptions.FindIndex(p => p.Value == scriptActionEntry.Argument);