Playback of recordings now working.

Platform/Apple/virtual/src/plasma/diskops.pla

@@ -646,6 +646,8 @@ def _newOrLoadGame(ask)#1
         break
       is 'I'
         if importGame(); return 0; fin
+      is 18 // ctrl-R
+        setRecordMode(1)
     wend
     beep()
   loop

Platform/Apple/virtual/src/plasma/gamelib.plh

@@ -122,6 +122,7 @@ import gamelib
   predef setGround(num)#0
   predef setIntimateMode(enable)#0
   predef setMap(is3D, num, x, y, dir)#0
+  predef setRecordMode(enable)#0
   predef setStoryMode(enable)#0
   predef useMapWindow()#0
   predef setBigWindow()#0

Platform/Apple/virtual/src/plasma/gameloop.pla

@@ -983,7 +983,7 @@ end
 
 ///////////////////////////////////////////////////////////////////////////////////////////////////
 // Display a string using the font engine.
-export asm displayStr(str)#0
+asm internalDisplayStr(str)#0
   +asmPlasmNoRet 1
   jmp DisplayStr
 end
@@ -1400,6 +1400,31 @@ export def charToUpper(c)#1
   return (c >= 'a' and c <= 'z') ?? (c - $20) :: c
 end
 
+///////////////////////////////////////////////////////////////////////////////////////////////////
+def recordChar(ch)#0
+  if ch < $20
+    printChar('^')
+    ch = ch + $40
+  fin
+  printChar(ch)
+end
+
+///////////////////////////////////////////////////////////////////////////////////////////////////
+def recordDisplay(str)#0
+  word i
+  puts("DISP:")
+  for i = 1 to ^str
+    recordChar(^(str + i) & $7F)
+  next
+  crout
+end
+
+///////////////////////////////////////////////////////////////////////////////////////////////////
+export def displayStr(str)#0
+  if recordMode; recordDisplay(str); fin
+  internalDisplayStr(str)
+end
+
 ///////////////////////////////////////////////////////////////////////////////////////////////////
 // Read a string from the keyboard using the font manager, and intern it to the heap.
 export def getStringResponse()#1
@@ -1538,15 +1563,6 @@ export def parseDec(str)#1
   return n
 end
 
-///////////////////////////////////////////////////////////////////////////////////////////////////
-def recordChar(ch)#0
-  if ch < $20
-    printChar('^')
-    ch = ch + $40
-  fin
-  printChar(ch)
-end
-
 ///////////////////////////////////////////////////////////////////////////////////////////////////
 // Used in record mode to print out a keystroke. Also handles caret -> ctrl translation during
 // playback of recordings.
@@ -1554,7 +1570,7 @@ export def recordKey()#1
   byte key
   key = ^kbd & $7F
   ^kbdStrobe
-  if recordMode
+  if recordMode and key <> 13  // don't record [Return] since it gets inserted for readability
     if key == '^'
       while ^kbd < 128; loop
       key = (^kbd & $7F) - $40
@@ -1562,6 +1578,8 @@ export def recordKey()#1
     fin
     puts("KEY:")
     recordChar(key)
+    puts(" SEED:$")
+    printHex(recordSeed)
     crout
   fin
   return key
@@ -1693,7 +1711,8 @@ end
 // Pause for a specified count period, advancing the animation periodically. Terminates early
 // if a key is pressed. In either case, returns the number of counts waited.
 export def pause(count)#1
-  word i
+  word i, prevSeed
+  if recordMode; prevSeed = recordSeed; fin
   for i = 0 to count
     if ^kbd >= 128; break; fin
     animPauseCt--
@@ -1702,6 +1721,7 @@ export def pause(count)#1
       animPauseCt = ANIM_PAUSE_MAX
     fin
   next
+  if recordMode; recordSeed = prevSeed; fin
   return i
 end
 
@@ -2455,16 +2475,6 @@ def advTime(hours, mins, secs)#0
   fin
 end
 
-///////////////////////////////////////////////////////////////////////////////////////////////////
-def recordDisplay(str)#0
-  word i
-  puts("DISP:")
-  for i = 1 to ^str
-    recordChar(^(str + i))
-  next
-  crout
-end
-
 ///////////////////////////////////////////////////////////////////////////////////////////////////
 // Called by scripts to display a string. We set the flag noting that something has been
 // displayed, then use an assembly routine to do the work.
@@ -2478,7 +2488,6 @@ export def _scriptDisplayStr(str)#0
       needRender = FALSE
     fin
     if textClearCountdown; clearTextWindow(); fin
-    if recordMode; recordDisplay(str); fin
     displayStr(str)
     textDrawn = TRUE
   fin
@@ -3241,6 +3250,13 @@ def help()#1
   return 0
 end
 
+///////////////////////////////////////////////////////////////////////////////////////////////////
+export def setRecordMode(enable)#0
+  recordMode = enable
+  if recordMode; recordSeed = 1; fin
+  setPrinter(recordMode)
+end
+
 ///////////////////////////////////////////////////////////////////////////////////////////////////
 def toggleGodMode()#1
   byte key
@@ -3255,9 +3271,7 @@ def toggleGodMode()#1
         displayf1("gm:%d\n", global->b_godmode & 1)
         initCmds() // rebuild the command table with new commands
       else
-        recordMode = 1 - recordMode
-        if recordMode; recordSeed = 1; fin
-        setPrinter(recordMode)
+        setRecordMode(1 - recordMode)
         displayf1("rm:%d\n", recordMode)
       fin
       textDrawn = TRUE

Platform/Apple/virtual/xformScript.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+
+length = 0
+File.readlines(ARGV[0]).each do |line|
+  line.scan(/KEY:(.*?) SEED:/).each { |match|
+    print $1
+    length += 1
+    if length > 80
+      print "\n"
+      length = 0
+    end
+  }
+  line.scan(/STRING:(.*)/).each { |match|
+    puts $1
+    length = 0
+  }
+end
+print "\n"