Initial commit of changes for 1.2.3. This includes:

- Scripting support: Allows for recording and playback of mouse/keyboard input and various system control actions. Simple (i.e. basic) scripting format. - Fix for stale packets left in ethernet input queue; packets received by pcap while Alto's receiver is off are discarded. - Mouse input made more accurate, and tweaked to avoid Alto microcode bug that causes erroneous mouse inputs under very rare circumstances on real hardware, but much more frequently under emulation. - Small code cleanup here and there. Moved many UI strings to resources, many more to go.
2026-02-28 09:17:53 +00:00 · 2018-03-20 14:16:07 -07:00
parent 6f20ebbfe7
commit d96d232fd3
39 changed files with 2733 additions and 510 deletions
--- a/Contralto/Scripting/ScriptPlayback.cs
+++ b/Contralto/Scripting/ScriptPlayback.cs
@@ -0,0 +1,108 @@
+using Contralto.Logging;
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.Threading.Tasks;
+
+namespace Contralto.Scripting
+{
+    public class ScriptPlayback
+    {
+        public ScriptPlayback(string scriptFile, AltoSystem system, ExecutionController controller)
+        {
+            _scriptReader = new ScriptReader(scriptFile);
+            _system = system;
+            _controller = controller;
+
+            _currentAction = null;
+
+            _stopPlayback = false;
+        }
+
+        /// <summary>
+        /// Fired when playback of the script has completed or is stopped.
+        /// </summary>
+        public event EventHandler PlaybackCompleted;
+
+        public void Start()
+        {
+            _stopPlayback = false;
+
+            // Schedule first event.
+            ScheduleNextEvent(0);
+        }
+
+        public void Stop()
+        {
+            // We will stop after the next event is fired (if any)
+            _stopPlayback = true;
+        }
+
+        private void ScheduleNextEvent(ulong skewNsec)
+        {
+            //
+            // Grab the next action if the current one is done.
+            //
+            if (_currentAction == null || _currentAction.Completed)
+            {
+                _currentAction = _scriptReader.ReadNext();
+            }            
+            
+            if (_currentAction != null)
+            {
+                // We have another action to queue up.
+                Event scriptEvent = new Event(_currentAction.Timestamp, _currentAction, OnEvent);
+                ScriptManager.ScriptScheduler.Schedule(scriptEvent);
+
+                Log.Write(LogComponent.Scripting, "Queueing script action {0}", _currentAction);
+            }
+            else 
+            {
+                //
+                // Playback is complete.
+                //
+                Log.Write(LogComponent.Scripting, "Playback completed.");
+                PlaybackCompleted(this, null);
+            }
+        }
+
+        private void OnEvent(ulong skewNsec, object context)
+        {
+            // Replay the action.
+            if (!_stopPlayback)
+            {
+                ScriptAction action = (ScriptAction)context;
+                Log.Write(LogComponent.Scripting, "Invoking action {0}", action);
+
+                action.Replay(_system, _controller);
+
+                // Special case for Wait -- this causes the script to stop here until the
+                // Alto itself tells things to start up again.
+                //
+                if (action is WaitAction)
+                {
+                    Log.Write(LogComponent.Scripting, "Playback paused, awaiting wakeup from Alto.");
+                }
+                else
+                {
+                    // Kick off the next action in the script.
+                    ScheduleNextEvent(skewNsec);
+                }
+            }
+            else
+            {
+                Log.Write(LogComponent.Scripting, "Playback stopped.");
+                PlaybackCompleted(this, null);
+            }
+        }
+
+        private AltoSystem _system;
+        private ExecutionController _controller;
+        private ScriptReader _scriptReader;
+
+        private ScriptAction _currentAction;
+
+        private bool _stopPlayback;
+    }
+}